Q
3 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/09/20. PRINTED = 24/05/28. 19.12.12.
0                   UJN          =  CPS1871     FAMILY    = CYBER         JOB ORIGIN    = INTERACTIVE.        
                    CREATING JSN =  AACK        USER NAME = INSTALL       SERVICE CLASS = INTERACTIVE.                  
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA   IIIIIIIIIIII   AAAAAAAAAA    AAAAAAAAAA    CCCCCCCCCC   MM        MM  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  IIIIIIIIIIII  AAAAAAAAAAAA  AAAAAAAAAAAA  CCCCCCCCCCCC  MMM      MMM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC        CC  MMMM    MMMM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC        CC  MM MM  MM MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM  MMMM  MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM   MM   MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM        MM  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  CC            MM        MM  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  CC            MM        MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM        MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM        MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM        MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC            MM        MM  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  CC        CC  MM        MM  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  CCCCCCCCCCCC  MM        MM  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  CCCCCCCCCCC   MM        MM  
Q
T
2  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
2 
R
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE   1    
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE   2    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          COMPASS   SCP05     CPC1      MCPC1     CCIO1     COPE1     CSRT1     CPC2    
          CMP1      CMP3      CP13226   CMP4      CMP5      CMP6      CMP7      CMP8    
          CMP9      CMP10     CMP11     CMP12     CMP13     CP12752   CMP5A     CMP14   
          CMP15     CMP16     CMP17     CMP18     CMP19     CMP20     CMP21     COMTEXT 
          CMP22     CMP24     CMP25     CMP26     CMP27     CMP28     CMP17A    CMP029  
          CMP029A   CMP030    CMP031    CMP034    CMP039    CMP041    CMP042    CMP64G  
          CMP043    CPC30     COMPCOM   CMP30     CMP30A    CPS001    CPS002    CPS003  
          CPS004    CPS005    CMP036    CMP054    CMP057    CMP069    CMP085    CWEOR   
          CMP052    CMP109    CMP136    CPS005A   CPS008    CPS009    CPS010    CPS011  
          CPS012    CPS020    CPS028    CMP165    CMP051    CMP064    CMP162    L376F   
          CPS038    CPS047    CMP111    HISTORY   L380      CMP146    CPS026    CPS032  
          CPS052    CPS056    CPS061    CPS062    CPS063    CPS064    CMP146A   L383    
          CMP149    CPS057    CPS066    CPS069    CPS073    L383F     L386      L393    
          L397      CP114     L401      L406      CPSCPRT   CP096A    L410      CPS106  
          CPS110    CPS112    L414      S3143CP   *L420*    CPS*76    CP139CP   CP147   
          CP154     CPS085    *L428*    CPS126    CPS127    CPS130    CPS135    CPS141  
          *L433*    *L439*    CPS150    CPS153    *L446*    CPS*77    CPSVER34  CP161CP 
          F7540CP   F7820CP   CPS146    CPS167    *L452*    CPS118X   CPS173    *L460*  
          CPS076X   CPS144    CPS147X   CPS151    CPS161    CPS164X   CPS172    CPS176  
          *L470*    F4720     COMCARG   COMCCDD   COMCCFD   COMCCIO   COMCCOD   COMCCPT 
          COMCDXB   COMCMTM   COMCMTP   COMCMVE   COMCRDC   COMCRDH   COMCRDO   COMCRDS 
          COMCRDW   COMCRSR   COMCSFN   COMCSRT   COMCSST   COMCSTF   COMCSVR   COMCSYS 
          COMCUPC   COMCWOD   COMCWTC   COMCWTH   COMCWTO   COMCWTS   COMCWTW   COMCXJR 
          COMCZTB   CPUREL    CALLCPU   FEAT184N  FEAT184NA CPS*78    CPSA070   CPSA083 
          CPSA096   CPSA098   CPSA097   CPSA094   CPS168    CPSA104   CPSA107   *L477*  
          CPSA106   CPS188    CPS192    CPSA112   CPS198    *L485*    F4720A    F4720B  
          F4720C    F4720D    F4810A    F4810B    CPSA115   CPS202    CPSA117   CPSA119 
          CPSA123   CPSA125   CPSA126   *L498*    CPS*79    CPSA129   CPSA133   CPSA138 
          *L505*    CPSA132   CPSA134   CPSA142   CPS186    CPS191    CPS213    CPS216  
          CPS218    CPS227    *L508*    CPSA141   CPSA163   CPSA168   CPS219A   CPS234  
          CPS239    CPS243    CPS247    CPSA158   CPSA161   CPS236    CPS240    CPS*80  
          CPSA159   *L518*    *L528*    CPS251    F4820     F4820A    RSM4159   F233CMU 
          SIE7969   CPSA116   CPSA140   CPSA148   CPSA169   CPS214    CPSA181   CPSA184 
          CPSA187   CPSA195   CPSA196   CPSA204   CPS232    CPS0253   CPS254    CPS0257 
          CPS258    CPS0263   CPS0267   *L538*    CPS*81    F4830CP   AIDTEXT   CPSA197 
          CPSA198   CPSA200   CPSA210   CPSA213   CPSA214   CPS0275   CPS0278   CPS0279 
          CPS0281   *L552*    CPSA175   CPSA186   CPSA199   CPSA208   CPSA216   CPSA218 
          CPSA220   CPSA225   CPSA226   CPSA229   CPSA230   CPSA246   CPS211    CPS0241 
          CPS0287   CPS0289   CPS0303   CPS0307   *L564*    CPS*82    F4820B    NADTEXT 
          CPSA227   CPSA233   CPSA234   CPSA235   CPSA236   CPSA240   CPSA241   CPSA242 
          CPSA243   CPSA244   CPSA245   CPSA251   CPS0306   CPS0320   CPS0323   *L577*  
          CPSA257   CPSA259   CPS0094   CPS0325   CPS0338   CPS0340   CPS0343   CPS0345 
          *L587*    CPSA261   CPS2608   *L601*    CPSA265   COMCCPM   *L617*    CPSA266 
          *L628*    *L642*    CPSA274   CPS2627   CPS2628   *L650*    CPSA276   CPSA281 
          CPSA282   CPSA283   CPS0329   CPS2667   *L670*    CPSA284   CPSA286   CPSA287 
          CPSA288   CPSA289   CPSA292   CDCM      CDCMOPT   CWEOR2    CPSA293   CPSA295 
          CPSA297   CPSA300   CPS2658   CPS2659   CPS2672   *L688*    *L716*    CPS2660 
          *L739*    CPSA291   CPSA305   CPSA306   CPS0328   *L780*    *L797*    *L803*  
          *L826*    *L840*    *L847*    *L851*    *L859*    *L871*    PSRLEVEL
0                 75 PURGED IDENTS WERE FOUND   
  
1UNLABELED OLDPL              DECK LIST AS WRITTEN, IF NEWPL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE   3    
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   HISTORY   COMCARG   COMCCDD   COMCCFD   COMCCIO   COMCCOD   COMCCPM 
          COMCCPT   COMCDXB   COMCMNS   COMCMOS   COMCMTM   COMCMTP   COMCMVE   COMCRDC 
          COMCRDH   COMCRDO   COMCRDS   COMCRDW   COMCRSR   COMCSFN   COMCSRT   COMCSST 
          COMCSTF   COMCSVR   COMCSYS   COMCUPC   COMCWOD   COMCWTC   COMCWTH   COMCWTO 
          COMCWTS   COMCWTW   COMCXJR   COMCZTB   CPUREL    CALLCPU   CWEOR     COMPCOM 
          COMPASS   AIDTEXT   NADTEXT   CWEOR2    CDCMOPT   CDCM    
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE   4    
  
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                                                                 HISTORY        1     A     
 HISTORY  L383     ***                                                                     L383           1     A     
 HISTORY  L383F    ***                                                                     L383F          1     A     
 HISTORY  L386     ***                                                                     L386           1     A     
 HISTORY  L393     ***                                                                     L393           1     A     
 HISTORY  L397     ***                                                                     L397           1     A     
 HISTORY   CP114.   ALLOW COMPASS TO READ COMPRESSED COMPILE FILE AND *OPLC*               CP114          1     A     
 HISTORY            RECORDS WRITTEN BY *MODIFY* IN 64-GRAPHIC CHAR SET MODE.               CP114          2     A     
 HISTORY            RHG.   74/10/07.   COMPASS.                                            CP114          3     A     
 HISTORY                                                                                   CP114          4     A     
 HISTORY  L401     ***                                                                     L401           1     A     
 HISTORY  L406     ***                                                                     L406           1     A     
 HISTORY   CPSCPRT. UPDATE COPYRIGHT NOTICE IN COMPASS LISTING AND BINARY.                 CPSCPRT        1     A     
 HISTORY            VMA.   75/03/27.   COMPASS.                                            CPSCPRT        2     A     
 HISTORY                                                                                   CPSCPRT        3     A     
 HISTORY  CP096A.   MOVE SYMBOL TABLE TO LCM WHEN COMPASS IS USED UNDER                    CP096A         1     A     
 HISTORY            SCOPE 2, SO THAT COMPASS CAN ASSEMBLE THE SCOPE 2.1                    CP096A         2     A     
 HISTORY            OPERATING SYSTEM ON A 32K 7600.                                        CP096A         3     A     
 HISTORY            RHG.   75/03/01.   COMPASS.                                            CP096A         4     A     
 HISTORY                                                                                   CP096A         5     A     
 HISTORY  L410     ***                                                                     L410           1     A     
 HISTORY   CPS106.  CORRECT PASS 1 CONTROL CODE SO *COMMENT STAMENTS                       CPS106         1     A     
 HISTORY            ARE NOT COUNTED IN THE IF-SKIPPING LINE COUNT.                         CPS106         2     A     
 HISTORY            VMA.   75/04/30.   COMPASS.                                            CPS106         3     A     
 HISTORY                                                                                   CPS106         4     A     
 HISTORY   CPS110.  RECALL SCRATCH FILES BEFORE RETURNING CONTROL TO                       CPS110         1     A     
 HISTORY            CALLING COMPILER.                                                      CPS110         2     A     
 HISTORY            VMA.   75/05/07.   COMPASS.                                            CPS110         3     A     
 HISTORY                                                                                   CPS110         4     A     
 HISTORY   CPS112.  CODE TO CORRECT DAYFILE MESSAGE GIVING THE PROPER                      CPS112         1     A     
 HISTORY            AMOUNT OF FL REQUIRED BY COMPASS TO CONTINUE ASSEMBLY                  CPS112         2     A     
 HISTORY            AFTER ALLOCATION OF I/O BUFFERS.                                       CPS112         3     A     
 HISTORY            VMA.   75/05/13.   COMPASS.                                            CPS112         4     A     
 HISTORY                                                                                   CPS112         5     A     
 HISTORY  L414     ***                                                                     L414           1     A     
 HISTORY   S3143CP. REPLACE "OS.NAME""OS.VER" WITH "OS.ID" IN PREFIX                       S3143CP        1     A     
 HISTORY            TABLE, AND ALLOW "MODEL" = 17X.                                        S3143CP        2     A     
 HISTORY            RHG.   75/08/22.   COMPASS.                                            S3143CP        3     A     
 HISTORY                                                                                   S3143CP        4     A     
 HISTORY   *L420*    ********************************************************************* *L420*         1     A     
 HISTORY   CPS*76.  UPDATE COPYRIGHT NOTICE IN COMPASS LISTING AND BINARY.                 CPS*76         1     A     
 HISTORY            VMA.   75/12/05.   COMPASS.                                            CPS*76         2     A     
 HISTORY                                                                                   CPS*76         3     A     
 HISTORY  CP139CP.  CHANGES TO COMPASS AND COMPCOM TO ACCOMODATE INTERFACE                 CP139CP        1     A     
 HISTORY            TO COMPILERS THAT ARE NOW 54-TABLE OVERLAYS.  ALSO                     CP139CP        2     A     
 HISTORY            PROVIDES COMPASS-COMPILER INTERFACE WORDS FOR NEW                      CP139CP        3     A     
 HISTORY            CONTROL STATEMENT PARAMETERS BL, PD, PS, PW, AND                       CP139CP        4     A     
 HISTORY            RESERVES TWO INTERFACE WORDS TO USERS.  FOR *NOS*,                     CP139CP        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/28. 19.11.32.      PAGE   5    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ADDS ENTRY POINTS ARG= AND MFL= AND CHANGES COMPASS                    CP139CP        6     A     
 HISTORY            RECORD TYPE FROM *OVL* TO *ABS*.                                       CP139CP        7     A     
 HISTORY            RHG.   75/10/23.   COMPASS, COMPCOM.                                   CP139CP        8     A     
 HISTORY                                                                                   CP139CP        9     A     
 HISTORY   CP147.   ADD *LDSET* PSEUDO OP.                                                 CP147          1     A     
 HISTORY            VMA.   75/08/22.   COMPASS.                                            CP147          2     A     
 HISTORY                                                                                   CP147          3     A     
 HISTORY   CP154.   IMPLEMENT WEAK EXTERNALS (=Y SYMBOLS) FEATURE.                         CP154          1     A     
 HISTORY            RHG.   75/09/24.   COMPASS.                                            CP154          2     A     
 HISTORY                                                                                   CP154          3     A     
 HISTORY   CPS085.  PREVENT ASSEMBLY ERRORS WHEN OPCODE FIELD GOES PAST                    CPS085         1     A     
 HISTORY            DEFAULT COMMENT COLUMN.                                                CPS085         2     A     
 HISTORY            VMA.   75/10/03.   COMPASS.                                            CPS085         3     A     
 HISTORY                                                                                   CPS085         4     A     
 HISTORY   *L428*    ************************************************************* *L428*  *L428*         1     A     
 HISTORY   CPS126.  FIX *OPSYN* TO ALLOW SPECIAL CHARACTERS IN THE OPCODE          CPS126  CPS126         1     A     
 HISTORY            IN THE VARIABLE FIELD.                                         CPS126  CPS126         2     A     
 HISTORY            VMA.   75/11/06.   COMPASS.                                    CPS126  CPS126         3     A     
 HISTORY                                                                           CPS126  CPS126         4     A     
 HISTORY   CPS127.  FIX *SCAN IDENT CARD* SUBROUTINE SO ENTRY PARAMETER IN         CPS127  CPS127         1     A     
 HISTORY            IDENT CARD IS FLAGGED ERRONEOUS FOR *PERIPH* PROGRAM.          CPS127  CPS127         2     A     
 HISTORY            VMA.   75/11/06.   COMPASS.                                    CPS127  CPS127         3     A     
 HISTORY                                                                           CPS127  CPS127         4     A     
 HISTORY   CPS130.  FIX COMCWTH SO COLONS ARE NOT OMITTED AT THE END OF            CPS130  CPS130         1     A     
 HISTORY            LINE WHEN LISTING OUTPUT.                                      CPS130  CPS130         2     A     
 HISTORY            VMA.   75/05/23.   COMPASS.                                    CPS130  CPS130         3     A     
 HISTORY                                                                           CPS130  CPS130         4     A     
 HISTORY   CPS135.  PREVENT RECALL ERROR ON SCRATCH FILE ZZZZZRL.                  CPS135  CPS135         1     A     
 HISTORY            RHG.   76/03/23.   COMPASS.                                    CPS135  CPS135         2     A     
 HISTORY                                                                           CPS135  CPS135         3     A     
 HISTORY   CPS141.  CHANGE MSG= CORRESPONDING TO CHANGES IN *MESSAGE*              CPS141  CPS141         1     A     
 HISTORY            MACRO INTRODUCED BY *KR12124*.                                 CPS141  CPS141         2     A     
 HISTORY            RHG.   76/03/04.   COMPASS, COMPCOM.                           CPS141  CPS141         3     A     
 HISTORY                                                                           CPS141  CPS141         4     A     
 HISTORY   *L433*    ************************************************************* *L433*  *L433*         1     A     
 HISTORY   *L439*    ************************************************************* *L439*  *L439*         1     A     
 HISTORY   CPS150.  FIX ERRONEOUS COMMENT IN COMPCOM.                              CPS150  CPS150         1     A     
 HISTORY            VMA.   76/07/01.   COMPASS, COMPCOM.                           CPS150  CPS150         2     A     
 HISTORY   CPS153.  MAKE CONTROL STATEMENT CONTINUATION WORK UNDER *NOS*.          CPS153  CPS153         1     A     
 HISTORY            RHG.   76/07/07.   COMPASS.                                    CPS153  CPS153         2     A     
 HISTORY                                                                           CPS153  CPS153         3     A     
 HISTORY   *L446*    *************************************************************         *L446*         1     A     
 HISTORY  CPS*77.   UPDATE COPYRIGHT NOTICE FOR YEAR 1977 IN COMPASS.                      CPS*77         1     A     
 HISTORY            JEG.   76/10/26.   COMPASS.                                            CPS*77         2     A     
 HISTORY                                                                                   CPS*77         3     A     
 HISTORY   CPSVER34 UPGRADE COMPASS VERSION LEVEL.                                         CPSVER34       1     A     
 HISTORY            JEG.   76/10/29    COMPASS.77                                          CPSVER34       2     A     
 HISTORY                                                                                   CPSVER34       3     A     
 HISTORY   CP161CP. ADD LDSET KEYWORDS *EPT*, *NOEPT* TO SUPPORT FAST                      CP161CP        1     A     
 HISTORY            DYNAMIC LOADER (FDL).                                                  CP161CP        2     A     
 HISTORY            VMA.   76/04/05.   COMPASS.                                            CP161CP        3     A     
 HISTORY   F7540CP. MODIFICATIONS TO THE CONDITIONAL ASSEMBLY FOR CYBER 176                F7540CP        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/28. 19.11.32.      PAGE   6    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            SUPPORT.                                                               F7540CP        2     A     
 HISTORY            VMA.   76/09/22.   COMPASS.                                            F7540CP        3     A     
 HISTORY                                                                                   F7540CP        4     A     
 HISTORY  F7820CP   CODE TO SUPPORT NEW COMMON MESSAGE MACRO                               F7820CP        1     A     
 HISTORY            VMA.   76/11/09.   COMCSYS,CPCOM                                       F7820CP        2     A     
 HISTORY                                                                                   F7820CP        3     A     
 HISTORY   CPS146.  AUGMENT SIZE OF CARD IMAGE BUFFER TO ALLOW FOR LONG                    CPS146         1     A     
 HISTORY            LINES (UP TO 160 COLUMNS)                                              CPS146         2     A     
 HISTORY            VMA/JEG. 76/11/15. COMPASS.                                            CPS146         3     A     
 HISTORY                                                                                   CPS146         4     A     
 HISTORY   CPS167.  CODE TO CORRECT CONDITIONAL CODE FOR CYBER 176.                        CPS167         1     A     
 HISTORY            VMA,JEG. 76/12/10. COMPASS.                                            CPS167         2     A     
 HISTORY                                                                                   CPS167         3     A     
 HISTORY   *L452*    *************************************************************         *L452*         1     A     
 HISTORY  CPS118X.  THE FOLLOWING CODE FIXES *GSM* SO OPCODE ENTRIES                       CPS118X        1     A     
 HISTORY            ARE NOT LOST WHEN TRANSFERED TO TEMTAB.                                CPS118X        2     A     
 HISTORY            JEG.   77/02/17.   COMPASS.                                            CPS118X        3     A     
 HISTORY                                                                                   CPS118X        4     A     
 HISTORY   CPS173.  CODE TO ALLOW USE OF DELIMITERS AS CHARACTERS WITHIN NAMES             CPS173         1     A     
 HISTORY            DURING LDSET OPTIONS *LIB,OMIT,USE,USEP, AND SUBST *.                  CPS173         2     A     
 HISTORY            JEG.   77/03/18.   COMPASS.                                            CPS173         3     A     
 HISTORY                                                                                   CPS173         4     A     
 HISTORY   *L460*    ********************************************************************* *L460*         1     A     
 HISTORY   CPS076X. THIS CODE CORRECTS VFD SO THAT THE VALUE SENT TO PACKOR IS             CPS076X        1     A     
 HISTORY            CORRECTLY POSITIONED FOR PACKING INTO THE *OCTAL* AREA IN              CPS076X        2     A     
 HISTORY            PREPARATION FOR LISTING.                                               CPS076X        3     A     
 HISTORY            JEG.   77/03/08.   COMPASS.                                            CPS076X        4     A     
 HISTORY                                                                                   CPS076X        5     A     
 HISTORY   CPS144.  CODE TO ALLOW COMPASS TO SKIP OVER STATEMENT PREFIXES SUCH AS          CPS144         1     A     
 HISTORY            KCL LABELS , $ , AND /.                                                CPS144         2     A     
 HISTORY            JEG.   77/03/28    COMPASS.                                            CPS144         3     A     
 HISTORY                                                                                   CPS144         4     A     
 HISTORY   CPS147X. CODE TO ALLOW VARIABLE SUBFIELDS OF AN INSTRUCTION TO BE               CPS147X        1     A     
 HISTORY            WRITTEN IN THE OPERATION FIELD WITH EACH SUBFIELD PRECEDED             CPS147X        2     A     
 HISTORY            BY A COMMA.                                                            CPS147X        3     A     
 HISTORY            JEG.   77/04/26.   COMPASS.                                            CPS147X        4     A     
 HISTORY                                                                                   CPS147X        5     A     
 HISTORY   CPS151.  ADD CODE TO PRINT ERROR MESSAGE AND ABORT COMPASS WHEN ILLEGAL         CPS151         1     A     
 HISTORY            PARAMETERS  *X=0*  AND  *I=0*  ARE ENCOUNTERED ON THE COMPASS          CPS151         2     A     
 HISTORY            CALL STATEMENT.                                                        CPS151         3     A     
 HISTORY            JEG.   77/03/14.   COMPASS.                                            CPS151         4     A     
 HISTORY                                                                                   CPS151         5     A     
 HISTORY   CPS161.  POSITION *VERSION* AND *PSRLEVEL* CORRECTLY IN PREFIX TABLE.           CPS161         1     A     
 HISTORY            JEG.   76/03/11.   COMPASS.                                            CPS161         2     A     
 HISTORY                                                                                   CPS161         3     A     
 HISTORY   CPS164X. CODE TO ALLOW USE OF *LDC* WITH NEGATIVELY RELOCATED SYMBOL.           CPS164X        1     A     
 HISTORY            JEG.   77/04/04    COMPASS.                                            CPS164X        2     A     
 HISTORY                                                                                   CPS164X        3     A     
 HISTORY   CPS172.  MAKE *XTEXT* WORK ON UPDATE OLDPL WHEN *COMDECK CARD                   CPS172         1     A     
 HISTORY            HAS COMMON DECK NAME STARTING AFTER COLUMN 11.                         CPS172         2     A     
 HISTORY            JEG.   77/04/19.   COMPASS.                                            CPS172         3     A     
 HISTORY                                                                                   CPS172         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/28. 19.11.32.      PAGE   7    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   CPS176.  CODE TO CORRECTLY DETERMINE BLOCK COUNT OF PRESENT BLOCK GROUP         CPS176         1     A     
 HISTORY            WHEN TEST IS DONE FOR USETAB OVERFLOW.                                 CPS176         2     A     
 HISTORY            JEG.   77/05/04.   COMPASS.                                            CPS176         3     A     
 HISTORY                                                                                   CPS176         4     A     
 HISTORY   *L470*    ************************************************************* *L470*  *L470*         1     A     
 HISTORY   FEAT184N FEATURE CODE TO EXTEND LDSET OPTIONS TO INCLUDE COMMON, PS,    FEAT184 FEAT184N       1     A     
 HISTORY            PD AND PRESET=DEBUG.                                           FEAT184 FEAT184N       2     A     
 HISTORY            JEG.   77/05/24.   COMPASS.                                    FEAT184 FEAT184N       3     A     
 HISTORY                                                                           FEAT184 FEAT184N       4     A     
 HISTORY  FEAT184NA CORRECT VERSION NUMBER MICRO AND VERSION COMMENTS.             FEAT184 FEAT184NA      1     A     
 HISTORY            JEG.   77/08/26.   COMPASS.                                    FEAT184 FEAT184NA      2     A     
 HISTORY                                                                           FEAT184 FEAT184NA      3     A     
 HISTORY  CPS*78.   UPDATE COPYRIGHT NOTICE FOR YEAR 1978 IN COMPASS.              CPS*78  CPS*78         1     A     
 HISTORY            JEG.   77/07/26.   COMPASS.                                    CPS*78  CPS*78         2     A     
 HISTORY                                                                           CPS*78  CPS*78         3     A     
 HISTORY   CPSA070  ATTEMPTS TO PRESET DATA INTO BLANK LCM/ECS COMMON BLOCK        CPSA070 CPSA070        1     A     
 HISTORY            WAS NOT FLAGGED WITH *R* ERROR.                                CPSA070 CPSA070        2     A     
 HISTORY            DBK    77/10/26    COMPASS                       PSR           CPSA070 CPSA070        3     A     
 HISTORY                                                                           CPSA070 CPSA070        4     A     
 HISTORY   CPSA083. THIS CODE WILL PREVENT COMPASS FROM CREATING *FILL* TABLES     CPSA083 CPSA083        1     A     
 HISTORY            WITH A WORD COUNT GREATER THAN 7777B.                          CPSA083 CPSA083        2     A     
 HISTORY            JEG.   77/09/05.   COMPASS.                                    CPSA083 CPSA083        3     A     
 HISTORY                                                                           CPSA083 CPSA083        4     A     
 HISTORY   CPSA096. THIS CODE CORRECTS A PROBLEM WHICH CAUSES ASSEMBLY ERRORS      CPSA096 CPSA096        1     A     
 HISTORY            IN THE RETURN MACRO WHEN ASSEMBLING COMPASS.                   CPSA096 CPSA096        2     A     
 HISTORY            JEG.   77/09/19.   COMPASS.                                    CPSA096 CPSA096        3     A     
 HISTORY                                                                           CPSA096 CPSA096        4     A     
 HISTORY   CPSA098  WHEN CHANGING PSR LEVEL OF COMPASS USING *ML* PARAMETER ON     CPSA098 CPSA098        1     A     
 HISTORY            COMPASS CALL STATEMENT, WARNING MESSAGE WILL RESULT AND BAD    CPSA098 CPSA098        2     A     
 HISTORY            PREFIX TABLE WILL BE OUTPUT.                                   CPSA098 CPSA098        3     A     
 HISTORY            DBK    77/09/22    COMPASS                       PSR           CPSA098 CPSA098        4     A     
 HISTORY                                                                           CPSA098 CPSA098        5     A     
 HISTORY  CPSA097.  THIS CORRECTION SET MAKES SURE THAT THE COMPASS DOCK           CPSA097 CPSA097        1     A     
 HISTORY            OUTPUT IS IN AN ACCEPTABLE (READABLE) FORMAT.                  CPSA097 CPSA097        2     A     
 HISTORY            RLD.      08/30/77.      COMPASS.                              CPSA097 CPSA097        3     A     
 HISTORY                                                                           CPSA097 CPSA097        4     A     
 HISTORY   CPS076X. CODE TO CORRECT LISTING PROBLEM CAUSED BY VFD WHEN VALUE IS    CPSA094 CPSA094        1     A     
 HISTORY            OUTPUTTED AT BOTTOM OF WORD.                                   CPSA094 CPSA094        2     A     
 HISTORY            JEG.   77/08/26.   COMPASS.                                    CPSA094 CPSA094        3     A     
 HISTORY                                                                           CPSA094 CPSA094        4     A     
 HISTORY   CPS168.  CODE TO CORRECT COMPASS SO THAT CONTINUATION CARDS OF LESS     CPS168  CPS168         1     A     
 HISTORY            THAN 10 CHARACTERS WILL BE CORRECTLY PROCESSED.                CPS168  CPS168         2     A     
 HISTORY            JEG.   77/08/30.   COMPASS.                                    CPS168  CPS168         3     A     
 HISTORY                                                                           CPS168  CPS168         4     A     
 HISTORY            COMMON DECKS ON THE COMPASS PL ARE MODIFIED AS FOLLOWS --      CPSA104 CPSA104        1     A     
 HISTORY            1) COMCMTP IS MODIFIED TO MOVE TABLES PROPERLY,                CPSA104 CPSA104        2     A     
 HISTORY            2) COMCSRT IS MODIFIED TO USE REGISTERS AS DOCUMENTED,         CPSA104 CPSA104        3     A     
 HISTORY            3) COMCCPT IS MODIFIED TO MOVE PREFIX TABLE COMMENT            CPSA104 CPSA104        4     A     
 HISTORY               FIELDS PROPERLY,                                            CPSA104 CPSA104        5     A     
 HISTORY            4) COMCRSR AND COMCSVR COMMENTS ARE CHANGED TO INDICATE        CPSA104 CPSA104        6     A     
 HISTORY               AUTHOR UNKNOWN,                                             CPSA104 CPSA104        7     A     
 HISTORY            5) VARIOUS DECKS ARE MODIFIED TO ALLOW PROPER FUNCTIONING      CPSA104 CPSA104        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/28. 19.11.32.      PAGE   8    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY               WITH THE SUBR MACRO FROM EITHER CPUTEXT OR NOSTEXT.         CPSA104 CPSA104        9     A     
 HISTORY            CJL    77/12/06    CPUREL,CALLCPU                PSR           CPSA104 CPSA104       10     A     
 HISTORY                                                                           CPSA104 CPSA104       11     A     
 HISTORY   CPSA107  *COMCRDW* IS MODIFIED TO RETURN *EOI* STATUS PROPERLY.         CPSA107 CPSA107        1     A     
 HISTORY            CJL    78/01/19    CALLCPU,CPUREL                PSR           CPSA107 CPSA107        2     A     
 HISTORY                                                                           CPSA107 CPSA107        3     A     
 HISTORY   *L477*    ****************************************************                  *L477*         1     A     
 HISTORY  CPSA106.  THIS CODE WILL PREVENT COMPASS FROM CREATING A *XFILL* TABLE           CPSA106        1     A     
 HISTORY            WITH A WORD COUNT GREATER THAN 7777B.                                  CPSA106        2     A     
 HISTORY            JEG.   78/01/27.   COMPASS.                                            CPSA106        3     A     
 HISTORY                                                                                   CPSA106        4     A     
 HISTORY   CPS188   A *DECMIC* PSEUDO INSTRUCTION WITH A TEN DIGIT NUMBER                  CPS188         1     A     
 HISTORY            DEFINED THE MICRO WITH THE WRONG VALUE.                                CPS188         2     A     
 HISTORY            DBK    78/01/03    COMPASS                       PSR                   CPS188         3     A     
 HISTORY                                                                                   CPS188         4     A     
 HISTORY  CPS192.   THIS CODE PREVENTS THE OCCURANCE OF A MODE 1 ERROR CAUSED              CPS192         1     A     
 HISTORY            BY THE COMBINATION OF COMPRESSED MODIFY INPUT AND A SEQUENCE           CPS192         2     A     
 HISTORY            MICRO.                                                                 CPS192         3     A     
 HISTORY            JEG.   78/01/27.   COMPASS.                                            CPS192         4     A     
 HISTORY                                                                                   CPS192         5     A     
 HISTORY   CPSA112  BLANKS WERE NOT SQUEEZED OUT OF VERB(*COMPASS*) ON *NOS*               CPSA112        1     A     
 HISTORY            WHEN PROCESSING CONTROL STATEMENT.                                     CPSA112        2     A     
 HISTORY            DBK    78/03/13    COMPASS                       PSR                   CPSA112        3     A     
 HISTORY                                                                                   CPSA112        4     A     
 HISTORY   CPS198.  PREVENT COMPASS FROM PRINTING AN EXTRA LINE WHEN CALLED BY             CPS198         1     A     
 HISTORY            A FORTRAN PROGRAM WHICH HAD A L=LFN ON IT"S CONTROL CARD CALL.         CPS198         2     A     
 HISTORY            JEG.   78/04/03.   COMPASS.                                            CPS198         3     A     
 HISTORY                                                                                   CPS198         4     A     
 HISTORY   *L485*    *****************************************************                 *L485*         1     A     
 HISTORY   F4720A   THE COMMON COMMON DECKS ARE CHANGED TO DOCUMENT SOME GENERAL           F4720A         1     A     
 HISTORY            RESTRICTIONS WHICH APPLY TO ALL THE DECKS AND TO ADD COMMENTS          F4720A         2     A     
 HISTORY            TO MAKE THE DECKS MORE READABLE AND MAINTAINABLE.                      F4720A         3     A     
 HISTORY            CJL    78/04/11    CALLCPU                                             F4720A         4     A     
 HISTORY                                                                                   F4720A         5     A     
 HISTORY   F4720B   THE COMMON COMMON DECKS WHICH DO NOT APPLY TO SCOPE 2 ARE              F4720B         1     A     
 HISTORY            OMITTED UNDER SCOPE 2 VIA AN UPDATE DEFINE DIRECTIVE.                  F4720B         2     A     
 HISTORY            RLD    78/04/11    CALLCPU,CPUREL                                      F4720B         3     A     
 HISTORY                                                                                   F4720B         4     A     
 HISTORY   F4720C   COMMON DECKS *COMCMOS* AND *COMCMNS* ARE ADDED TO                      F4720C         1     A     
 HISTORY            THE COMMON COMMON DECKS.                                               F4720C         2     A     
 HISTORY            CJL    78/05/10    CALLCPU,CPUREL                                      F4720C         3     A     
 HISTORY                                                                                   F4720C         4     A     
 HISTORY  F4720D.   CODE ENABLES USERS TO CALL COMMON COMDECKS BY ENTRY POINT              F4720D         1     A     
 HISTORY            NAMES WITH AND WITHOUT EQUAL SIGNS APPENDED.                           F4720D         2     A     
 HISTORY            RLD.   09/01/78.   COMPASS.                                            F4720D         3     A     
 HISTORY                                                                                   F4720D         4     A     
 HISTORY   F4810A.  FEATURE CODE TO ENABLE PRINT DENSITY AND PAGE SIZE TO BE       F4810A  F4810A         1     A     
 HISTORY            SPECIFIED AT ASSEMBLY TIME.                                    F4810A  F4810A         2     A     
 HISTORY            JEG.   78/06/16.   COMPASS.                                    F4810A  F4810A         3     A     
 HISTORY                                                                           F4810A  F4810A         4     A     
 HISTORY   F4810B.  FEATURE CODE TO ENABLE COMPASS TO DYNAMICALLY MANAGE ITS FL.   F4810B  F4810B         1     A     
 HISTORY            JEG.   78/06/16.   COMPASS.                                    F4810B  F4810B         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/28. 19.11.32.      PAGE   9    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                           F4810B  F4810B         3     A     
 HISTORY   CPSA115. CODE TO ENSURE THAT *END* EXISTS IN OPTAB WHEN AN EOR IS               CPSA115        1     A     
 HISTORY            ENCOUNTERED ON THE INPUT FILE.  THIS CODE ALSO REMOVES UNUSED          CPSA115        2     A     
 HISTORY            6RM CODE FROM XTEXT AND RNC.                                           CPSA115        3     A     
 HISTORY            JEG.   77/07/05.   COMPASS.                                            CPSA115        4     A     
 HISTORY                                                                                   CPSA115        5     A     
 HISTORY   CPS202.  CODE TO ENABLE PURGMAC TO REMOVE MACROS WHICH TERMINATE WITH           CPS202         1     A     
 HISTORY            AN ASTERISK.                                                           CPS202         2     A     
 HISTORY            JEG.   05/08/78.   COMPASS.                                            CPS202         3     A     
 HISTORY                                                                                   CPS202         4     A     
 HISTORY  CPSA117.  CORRECTIVE CODE ENSURES THAT COMPASS DOES NOT RECEIVE                  CPSA117        1     A     
 HISTORY            ASSEMBLY ERRORS WHEN COMPASS IS BEING ASSEMBLED.                       CPSA117        2     A     
 HISTORY            RLD.   07/24/78.   COMPASS.                                            CPSA117        3     A     
 HISTORY                                                                                   CPSA117        4     A     
 HISTORY   CPSA119. THIS CODE ENABLES COMPASS TO OPEN (ON SCOPE2) THE OUTPUT               CPSA119        1     A     
 HISTORY            FILE FOR I/O.                                                          CPSA119        2     A     
 HISTORY            JEG.   08/11/78.   COMPASS.                                            CPSA119        3     A     
 HISTORY                                                                                   CPSA119        4     A     
 HISTORY   CPSA123. CODE TO ENSURE THAT RDC WILL TRANSFER DATA TO THE END OF THE           CPSA123        1     A     
 HISTORY            LINE IF NO WORD COUNT IS SPECIFIED.                                    CPSA123        2     A     
 HISTORY            JEG.   10/27/78.   COMPASS.                                            CPSA123        3     A     
 HISTORY                                                                                   CPSA123        4     A     
 HISTORY   CPSA125. THIS CODE CORRECTS DEGRADATIONS CREATED BY THE COMPASS DYN.            CPSA125        1     A     
 HISTORY            FL. MGMT. CODE.                                                        CPSA125        2     A     
 HISTORY            JEG.   11/09/78.   COMPASS.                                            CPSA125        3     A     
 HISTORY                                                                                   CPSA125        4     A     
 HISTORY   CPSA126. CODE TO INSURE THAT SPACE BETWEEN CP.NFLS AND CP.AFLS IS               CPSA126        1     A     
 HISTORY            PROPERLY RESTORED WHEN COMPASS RETURNS CONTROL TO A CALLING            CPSA126        2     A     
 HISTORY            COMPILER.                                                              CPSA126        3     A     
 HISTORY            JEG.   11/09/78.   COMPASS.                                            CPSA126        4     A     
 HISTORY                                                                                   CPSA126        5     A     
 HISTORY   *L498*    ************************************************                      *L498*         1     A     
 HISTORY  CPS*79.   UPDATE COPYRIGHT NOTICE FOR YEAR 1979 IN COMPASS.                      CPS*79         1     A     
 HISTORY            JEG.   78/12/27.   COMPASS.                                            CPS*79         2     A     
 HISTORY                                                                                   CPS*79         3     A     
 HISTORY   CPSA129. CODE TO PREVENT *LOST REFRENCES* ON NOS.                               CPSA129        1     A     
 HISTORY            JEG.   12/09/78.   COMPASS.                                            CPSA129        2     A     
 HISTORY                                                                                   CPSA129        3     A     
 HISTORY   CPSA133. CODE TO PREVENT ASSEMBLY ERRORS IN COMCMTP WHEN ASSEMBLING             CPSA133        1     A     
 HISTORY            WITH NOSTEXT.                                                          CPSA133        2     A     
 HISTORY            JEG.   12/26/78.   COMCMTP.                                            CPSA133        3     A     
 HISTORY                                                                                   CPSA133        4     A     
 HISTORY   CPSA138. CODE ENSURES THAT COMPASS FLUSHES ITS OUTPUT                           CPSA138        1     A     
 HISTORY            BUFFERS BEFORE RETURNING CONTROL TO A CALLING COMPILER.                CPSA138        2     A     
 HISTORY            JEG.   03/29/79.   COMPASS.                                            CPSA138        3     A     
 HISTORY                                                                                   CPSA138        4     A     
 HISTORY   *L505*    ************************************************                      *L505*         1     A     
 HISTORY   CPSA132. CODE TO PREVENT ASSEMBLY ERRORS WHEN ASSEMBLING COMPASS IN             CPSA132        1     A     
 HISTORY            DEBUG MODE.                                                            CPSA132        2     A     
 HISTORY            JEG.   12/26/78.   COMPASS.                                            CPSA132        3     A     
 HISTORY                                                                                   CPSA132        4     A     
 HISTORY   CPSA134. THIS CODE MODIFIES COMPASS CONDITIONAL CODE SO THAT                    CPSA134        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/28. 19.11.32.      PAGE  10    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            THE CONDITIONAL TESTS REFLECT THE ACTUAL HARDWARE FEATURE OR           CPSA134        2     A     
 HISTORY            SYSTEM WHICH CODE IS ASSEMBLED FOR.                                    CPSA134        3     A     
 HISTORY            JEG.   03/16/79.   COMPASS.                                            CPSA134        4     A     
 HISTORY                                                                                   CPSA134        5     A     
 HISTORY   CPSA142. CODE TO ADD *E* PARAMETER TO LIST OF COMPASS CONTROL                   CPSA142        1     A     
 HISTORY            CARD PARAMETERS.                                                       CPSA142        2     A     
 HISTORY            JEG.   05/08/79.   COMPASS.                                            CPSA142        3     A     
 HISTORY                                                                                   CPSA142        4     A     
 HISTORY   CPS186   NEGATIVE ADDRESS ON *ORG* WAS NOT DIAGNOSED WITH ERROR.                CPS186         1     A     
 HISTORY            RLD    78/12/06    COMPASS                       PSR                   CPS186         2     A     
 HISTORY                                                                                   CPS186         3     A     
 HISTORY   CPS191   CORRECTS ABORT TO SKIP TO EXIT(S) RATHER THAN EXIT AT                  CPS191         1     A     
 HISTORY            END OF RUN WHEN A OPTION IS SPECIFIED.                                 CPS191         2     A     
 HISTORY            CJC    4/10/79     COMPASS                                             CPS191         3     A     
 HISTORY                                                                                   CPS191         4     A     
 HISTORY   CPS213   MODIFY COMPRESSED CARD INPUT CAUSED GARBLED SEQUENCE                   CPS213         1     A     
 HISTORY            NUMBERS ON MICRO EXPANSIONS WITH *A* LIST OPTION TURNED ON.            CPS213         2     A     
 HISTORY            JEG    78/12/15    COMPASS                       PSR                   CPS213         3     A     
 HISTORY                                                                                   CPS213         4     A     
 HISTORY   CPS216   ALTERNATE FORM OF OPDEF CALL WITH VARIABLE SUBFIELDS NEXT TO           CPS216         1     A     
 HISTORY            OPERATION FIELD SEPERATED BY A COMMA DID NOT SUBSTITUTE                CPS216         2     A     
 HISTORY            PROPERLY.                                                              CPS216         3     A     
 HISTORY            DBK    78/12/28    COMPASS                       PSR                   CPS216         4     A     
 HISTORY                                                                                   CPS216         5     A     
 HISTORY   CPS218   SYMBOLS USED TO DEFINE A MICRO STRING DID NOT APPEAR IN                CPS218         1     A     
 HISTORY            THE CROSS REFERENCE MAP.                                               CPS218         2     A     
 HISTORY            DBK    78/12/28    COMPASS                       PSR                   CPS218         3     A     
 HISTORY                                                                                   CPS218         4     A     
 HISTORY   CPS227.  CODE ENSURES THAT THE CORRECT LENGTH IS STORED FOR ALL                 CPS227         1     A     
 HISTORY            SEGMENTS WHEN THE SEGMENT TABLE IS RELOCATED.                          CPS227         2     A     
 HISTORY            JEG.   03/06/79.   COMPASS.                                            CPS227         3     A     
 HISTORY                                                                                   CPS227         4     A     
 HISTORY   *L508*    ************************************************                      *L508*         1     A     
 HISTORY   CPSA141  CHANGES COMPASS TO CHECK FOR INPUT BEFORE SETTING UP TABLES.           CPSA141        1     A     
 HISTORY            THIS CHANGE REQUIRES A REFERENCE MANUAL CHANGE SINCE COMPASS           CPSA141        2     A     
 HISTORY            WILL GENERATE NO OUTPUT FILE WHEN USED ON AN EMPTY INPUT FILE.         CPSA141        3     A     
 HISTORY            CJC    05/09/79    COMPASS                                             CPSA141        4     A     
 HISTORY                                                                                   CPSA141        5     A     
 HISTORY   CPSA163. THIS CODE VOIDS THE INSTRUCTION STACK IN COMMON COMDECKS               CPSA163        1     A     
 HISTORY            COMCMVE, COMCRDW, AND COMCWTW IN CONFORMANCE WITH DESIGN               CPSA163        2     A     
 HISTORY            DOCUMENT S2658.                                                        CPSA163        3     A     
 HISTORY            MAH/CJC 02OCT79    COMPASS                       PSR                   CPSA163        4     A     
 HISTORY                                                                                   CPSA163        5     A     
 HISTORY   CPSA168. THIS CODE ALLOWS FTN TO CLOSE ALL ITS OWN FILES WHEN COMPASS           CPSA168        1     A     
 HISTORY            IS THE LAST SUBPROGRAM IN A FTN CALLED ASSEMBLY.                       CPSA168        2     A     
 HISTORY            ALSO CHECKS FOR *OPEN* RATHER THAN *WRITTEN TO* BEFORE CLOSING         CPSA168        3     A     
 HISTORY            THE LISTING FILE.                                                      CPSA168        4     A     
 HISTORY            CJC    10OCT79     COMPASS                                             CPSA168        5     A     
 HISTORY                                                                                   CPSA168        6     A     
 HISTORY  CPS219A.  THIS IDENT PURGES CPS219.                                              CPS219A        1     A     
 HISTORY             CJC.  08/19/79.   COMPASS.                                            CPS219A        2     A     
 HISTORY                                                                                   CPS219A        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/28. 19.11.32.      PAGE  11    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   CPS234   CORRECT COMPASS LINE NUMBER REPORTING FOR CROSS REFERENCE LIST         CPS234         1     A     
 HISTORY            WHEN REFERENCES ARE IN UNLISTED LINES.                                 CPS234         2     A     
 HISTORY            CJC    18MAY79     COMPASS                                             CPS234         3     A     
 HISTORY                                                                                   CPS234         4     A     
 HISTORY   CPS239.  SIGNAL T (8 LPI) AFTER THE DECKNAME ON OUTPUT FILE.                    CPS239         1     A     
 HISTORY            CJC    7AUG79      COMPASS                       PSR                   CPS239         2     A     
 HISTORY                                                                                   CPS239         3     A     
 HISTORY   CPS243.  THIS CODE CHECKS A FL PROBLEM IN ALC.  IT WAS SUBTRACTING              CPS243         1     A     
 HISTORY            THE REQUESTED SPACE TWICE.                                             CPS243         2     A     
 HISTORY            CJC    6/20/79     COMPASS                       PSR                   CPS243         3     A     
 HISTORY                                                                                   CPS243         4     A     
 HISTORY   CPS247.  THIS CODE CORRECTS SUBROUTINE DFL (DECREASE FL) TO DECREASE FL         CPS247         1     A     
 HISTORY            INSTEAD OF SET IT TO A MINIMUM OF 60K.                                 CPS247         2     A     
 HISTORY            CJC     27JUN79     COMPASS                                            CPS247         3     A     
 HISTORY                                                                                   CPS247         4     A     
 HISTORY   CPSA158. THIS CODE CHECKS FOR AN EMPTY CONTINUATION LINE                        CPSA158        1     A     
 HISTORY            SPECIFICALLY ON SCOPE 2 SYSTEMS.                                       CPSA158        2     A     
 HISTORY            CJC    17OCT79     COMPASS                       PSR                   CPSA158        3     A     
 HISTORY                                                                                   CPSA158        4     A     
 HISTORY   CPSA161. THIS CODE CHANGES OBSOLETE MESSAGE *IDENT CARD MISSING*                CPSA161        1     A     
 HISTORY            TO *IDENT STATEMENT MISSING* AS STATED IN THE REFERENCE                CPSA161        2     A     
 HISTORY            MANUAL.                                                                CPSA161        3     A     
 HISTORY            CJC    21SEP79     COMPASS                       PSR                   CPSA161        4     A     
 HISTORY                                                                                   CPSA161        5     A     
 HISTORY   CPS236.  CHANGE COMPASS TO PRINT CARRIAGE CONTROL CHARACTER ONLY WHEN           CPS236         1     A     
 HISTORY            8 LPI IS REQUESTED (BY DEFAULT OR OTHERWISE), AND RESET                CPS236         2     A     
 HISTORY            PRINTER TO 6 LPI UPON FINISHING ASSEMBLY, IF NECESSARY.                CPS236         3     A     
 HISTORY            CJC    03OCT79     COMPASS                       PSR                   CPS236         4     A     
 HISTORY                                                                                   CPS236         5     A     
 HISTORY   CPS240.  CHANGE ASSEMBLY MODEL MESSAGE TO INDICATE TYPE RATHER THAN             CPS240         1     A     
 HISTORY            INCORRECT MODEL NUMBER.                                                CPS240         2     A     
 HISTORY            CJC    15OCT79     COMPASS                       PSR                   CPS240         3     A     
 HISTORY                                                                                   CPS240         4     A     
 HISTORY  CPS*80.   UPDATE COPYRIGHT NOTICE FOR YEAR 1980 IN COMPASS.                      CPS*80         1     A     
 HISTORY            CJC.   5NOV79   COMPASS.                                               CPS*80         2     A     
 HISTORY                                                                                   CPS*80         3     A     
 HISTORY   *L518*    ************************************************                      *L518*         1     A     
 HISTORY   *L528*    ************************************************                      *L528*         1     A     
 HISTORY   CPS251   ENTRY. REMOVE N ERROR FOR NEGATIVE PROGRAM RELOCATION                  CPS251         1     A     
 HISTORY            ON  ENTRY.                                                             CPS251         2     A     
 HISTORY            MAH    79/11/16    APPLIES TO COMPASS 3.6 .                            CPS251         3     A     
 HISTORY                                                                                   CPS251         4     A     
 HISTORY   F4820.   FEATURE CODE TO ALLOW 8 BIT ASSEMBLY FOR NETWORK ACCESS                F4820          1     A     
 HISTORY            DEVICE(NAD), MOTOROLA 6800 AND INTEL 8080.                             F4820          2     A     
 HISTORY            RAW    11/07/79    COMPASS                                             F4820          3     A     
 HISTORY                                                                                   F4820          4     A     
 HISTORY   F4820A.  CODE TO ALLOW REVERSE ADDRESSING MODE FOR 8080.                        F4820A         1     A     
 HISTORY            RAW    02/01/80    COMPASS                                             F4820A         2     A     
 HISTORY                                                                                   F4820A         3     A     
 HISTORY   RSM4159  ALLOW 255 BLOCKS PER IDENT, NOT JUST PER ASSEMBLY.                     RSM4159        1     A     
 HISTORY            CUSTOMER RECOMMENDED CODE.                                             RSM4159        2     A     
 HISTORY            CJC    7FEB80      COMPASS                                             RSM4159        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/28. 19.11.32.      PAGE  12    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   RSM4159        4     A     
 HISTORY   F233CMU  INCORPORATE CMU CODE INTO *COMCMNS* SUCH THAT                          F233CMU        1     A     
 HISTORY            ON A CYBER 172/173/174 WITH CMU CHARACTER MOVES                        F233CMU        2     A     
 HISTORY            OVER 30 CHARACTERS WILL USE THE CMU.                                   F233CMU        3     A     
 HISTORY            LDH    11/28/80    COMCMNS                                             F233CMU        4     A     
 HISTORY                                                                                   F233CMU        5     A     
 HISTORY   SIE7969. THIS CODE ELIMINATES UNNECESSARY REQUESTS FOR FL EQUAL TO              SIE7969        1     A     
 HISTORY            CURRENT FL.                                                            SIE7969        2     A     
 HISTORY            CJC    12DEC79     COMPASS (RFL)                 PSR                   SIE7969        3     A     
 HISTORY                                                                                   SIE7969        4     A     
 HISTORY   CPSA116  ENSURE THAT THE INTERMEDIATE FILE IS CORRECTLY POSITIONED              CPSA116        1     A     
 HISTORY            BEFORE THE INTER TABLE IS DUMPED TO IT.                                CPSA116        2     A     
 HISTORY            CJC    4MAR80      COMPASS                                             CPSA116        3     A     
 HISTORY                                                                                   CPSA116        4     A     
 HISTORY   CPSA140  COMPASS.  AVOID SPURIOUS R ERRORS IN PROGRAMS WITH                     CPSA140        1     A     
 HISTORY            OPERATIONS WHICH VIOLATE *MACHINE*.  DO NOT ASSUME THESE               CPSA140        2     A     
 HISTORY            INSTRUCTIONS ARE 30-BIT IN PASS 2, BUT PROCESS NORMALLY.               CPSA140        3     A     
 HISTORY            MAH    1/12/80     APPLIES TO COMPASS 3.6 .                            CPSA140        4     A     
 HISTORY                                                                                   CPSA140        5     A     
 HISTORY   CPSA148  COMCRDH.  AVOID STORING INTO WORKING BUFFER-1.                         CPSA148        1     A     
 HISTORY            THIS IS ANALOG OF NOS IDENT CRDH1.                                     CPSA148        2     A     
 HISTORY            MAH    11/20/79    APPLIES TO COMMON COMMON DECKS.                     CPSA148        3     A     
 HISTORY                                                                                   CPSA148        4     A     
 HISTORY   CPSA169. COMPASS WAS GETTING AN RM142 ERROR ON GET DUE TO INCORRECT             CPSA169        1     A     
 HISTORY            FL MANAGEMENT ON SCOPE 2 SYSTEMS WHILE READING SYSTEXT.                CPSA169        2     A     
 HISTORY            THIS IDENT REMOVES UNNECESSARY GET AND FETCH.                          CPSA169        3     A     
 HISTORY            CJC    26NOV79     COMPASS                       PSR                   CPSA169        4     A     
 HISTORY                                                                                   CPSA169        5     A     
 HISTORY   CPS214   ARG.  DIAGNOSE CONTROL CARD OPTION APPEARING TWICE.                    CPS214         1     A     
 HISTORY            MAH    01/10/79    APPLIES TO COMPASS 3.6 .                            CPS214         2     A     
 HISTORY                                                                                   CPS214         3     A     
 HISTORY   CPSA181. THIS CODE ADDS THE BL PARAMETER IN CONFORMANCE WITH DAP S1295.         CPSA181        1     A     
 HISTORY            THE *N* OPTION IS CHANGED TO CONTROL (SUPPRESS) ONLY EXPLICIT          CPSA181        2     A     
 HISTORY            PAGE EJECTS.  DEFAULT VALUE OF BL IS OFF (0), THEREFORE                CPSA181        3     A     
 HISTORY            LISTINGS WILL BE CONDENSED.                                            CPSA181        4     A     
 HISTORY            CJC    20MAR80     COMPASS                       PSR                   CPSA181        5     A     
 HISTORY                                                                                   CPSA181        6     A     
 HISTORY   CPSA184  COMPASS WAS RESETTING UP THE E FET WHEN CALLED BY FTN MORE             CPSA184        1     A     
 HISTORY            THAN ONCE.                                                             CPSA184        2     A     
 HISTORY            MAH-CJC12FEB80     COMPASS                                             CPSA184        3     A     
 HISTORY                                                                                   CPSA184        4     A     
 HISTORY   CPSA187  COMCRDW IS CHANGED WITH THIS CODE TO CHECK FOR ZERO                    CPSA187        1     A     
 HISTORY            WORD COUNT ON ENTRY.                                                   CPSA187        2     A     
 HISTORY            CJC    6MAY80      COMCRDW                                             CPSA187        3     A     
 HISTORY                                                                                   CPSA187        4     A     
 HISTORY   CPSA195  THIS CODE CORRECTS THE INDEXING OF USETAB FROM 6 TO 4                  CPSA195        1     A     
 HISTORY            IN BCU PROCESSING, ALLOWING CORRECT PROGRAM LENGTH REPORTING.          CPSA195        2     A     
 HISTORY            CJC    17JUNE80    COMPASS                                             CPSA195        3     A     
 HISTORY                                                                                   CPSA195        4     A     
 HISTORY   CPSA196. REMOVE UNNECESSARY CONDITIONAL CODE.                                   CPSA196        1     A     
 HISTORY            CJC    24JUN80     COMPASS                                             CPSA196        2     A     
 HISTORY                                                                                   CPSA196        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/28. 19.11.32.      PAGE  13    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   CPSA204. CHANGE COMCSRT TO SUPPORT UPDATE PROGRAM LIBRARY DETECTION.            CPSA204        1     A     
 HISTORY            UTLA067 WILL HAVE TO BE INSTALLED WHEN THIS CHANGE IS MADE.            CPSA204        2     A     
 HISTORY            CJC    26AUG80     COMCSRT                                             CPSA204        3     A     
 HISTORY                                                                                   CPSA204        4     A     
 HISTORY   CPS232   PULL. AVOID SIGN EXTENDING FIELD RESIDING AT TOP                       CPS232         1     A     
 HISTORY            OF WORD. THIS PREVENTS BAD *BASE* MICRO WITH OVER                      CPS232         2     A     
 HISTORY            30 BASES STACKED.  AND PROBABLY OTHER BAD STUFF TOO.                   CPS232         3     A     
 HISTORY            MAH    11/17/79    APPLIES TO COMPASS 3.6 .                            CPS232         4     A     
 HISTORY                                                                                   CPS232         5     A     
 HISTORY   CPS0253  COMPASS/EXT.  DIAGNOSE MORE THAN 511 EXTERNAL SYMBOLS.                 CPS0253        1     A     
 HISTORY            MAH    1/11/80     APPLIES TO COMPASS 3.6 .                            CPS0253        2     A     
 HISTORY                                                                                   CPS0253        3     A     
 HISTORY   CPS254   COMPASS/MCLE.  DIAGNOSE IMPROPER SYNTAX ON MACROE CALL.                CPS254         1     A     
 HISTORY            MAH    1/3/80      APPLIES TO COMPASS 3.6 .                            CPS254         2     A     
 HISTORY                                                                                   CPS254         3     A     
 HISTORY   CPS0257  COMPASS/UCARD.  AVOID MODE 1 PROCESSING CARD OUTSIDE OF                CPS0257        1     A     
 HISTORY            MACRO BODY WITH A SEMICOLON CHARACTER.                                 CPS0257        2     A     
 HISTORY            THIS ERROR IS INTERMITTANT AND FIELD LENGTH (RELEASE LEVEL)            CPS0257        3     A     
 HISTORY            SENSITIVE.                                                             CPS0257        4     A     
 HISTORY            MAH    1/10/80     APPLIES TO COMPASS 3.6 .                            CPS0257        5     A     
 HISTORY                                                                                   CPS0257        6     A     
 HISTORY   CPS258   PASS0. DIAGNOSE CONFLICTING USE OF FILE FOR PAIR OF                    CPS258         1     A     
 HISTORY            LIST/INPUT/BINARY/XTEXT.                                               CPS258         2     A     
 HISTORY            MAH    11/17/79    APPLIES TO COMPASS 3.6 .                            CPS258         3     A     
 HISTORY                                                                                   CPS258         4     A     
 HISTORY   CPS0263  BY MASKING OFF THE NOREF BIT, IF ANY, THIS CODE PLACES                 CPS0263        1     A     
 HISTORY            THE PROPER QUALIFIER NAME INTO A QUAL MICRO SUBSTITUTION.              CPS0263        2     A     
 HISTORY            DLD    23APR80     COMPASS                       PSR                   CPS0263        3     A     
 HISTORY                                                                                   CPS0263        4     A     
 HISTORY   CPS0267  THIS CODE WILL ENABLE A COLON TO BE A USABLE                           CPS0267        1     A     
 HISTORY            MACRO SEPARATOR FOR BOTH 63 AND 64 CHARACTER SETS                      CPS0267        2     A     
 HISTORY            DLD    20MAR80     COMPASS                       PSR                   CPS0267        3     A     
 HISTORY                                                                                   CPS0267        4     A     
 HISTORY   *L538*    ************************************************                      *L538*         1     A     
 HISTORY  CPS*81.   UPDATE COPYRIGHT NOTICE FOR YEAR 1981 IN COMPASS.                      CPS*81         1     A     
 HISTORY            CJC    25JUL80     COMPASS                                             CPS*81         2     A     
 HISTORY                                                                                   CPS*81         3     A     
 HISTORY   CPSA197  CORRECTS PPTYPE TESTING FOR BCU/MCU TYPES.                             CPSA197        1     A     
 HISTORY            CJC    8JUL80      COMPASS                                             CPSA197        2     A     
 HISTORY                                                                                   CPSA197        3     A     
 HISTORY   CPSA198  REPLACE PACKO TO EFFICIENTLY HANDLE BOTH HEX                           CPSA198        1     A     
 HISTORY            AND OCTAL CONVERSIONS.                                                 CPSA198        2     A     
 HISTORY            CJC    16SEP80     COMPASS                                             CPSA198        3     A     
 HISTORY                                                                                   CPSA198        4     A     
 HISTORY   CPSA200  CORRECT LISTING PROBLEM IN SYMBOLIC REFERENCE TABLE                    CPSA200        1     A     
 HISTORY            INTRODUCED BY F4820. SAVE CONTENTS OF X2 IN PRT, ALSO USED             CPSA200        2     A     
 HISTORY            BY PACKO, SO THE BLOCK NAMES GET PRINTED ON THE LISTING.               CPSA200        3     A     
 HISTORY            CJC    24JUL80     COMPASS                                             CPSA200        4     A     
 HISTORY                                                                                   CPSA200        5     A     
 HISTORY   CPSA210  COMCSRT WAS CHECKING INCORRECTLY FOR ALPHANUMERIC CHARACTERS,          CPSA210        1     A     
 HISTORY            WHILE OBTAINING THE PROCEDURE NAME.                                    CPSA210        2     A     
 HISTORY            CJC    9OCT80      COMCSRT                                             CPSA210        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/28. 19.11.32.      PAGE  14    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY                                                                                   CPSA210        4     A     
 HISTORY   CPSA213  CHANGE TESTS FOR HEX ASSEMBLY SO ONLY PPTYPE OF -1 OR -2               CPSA213        1     A     
 HISTORY            ARE RECOGNIZED AS HEX.                                                 CPSA213        2     A     
 HISTORY            CJC    21OCT80     COMPASS                                             CPSA213        3     A     
 HISTORY                                                                                   CPSA213        4     A     
 HISTORY   CPSA214. LCM INSTRUCTIONS WERE BEING REDEFINED FOR ALL                          CPSA214        1     A     
 HISTORY            MACHINES UNCONDITIONALLY DUE TO F4830CP CHANGES.                       CPSA214        2     A     
 HISTORY            F4830CP MUST PRECEDE THIS CODE.                                        CPSA214        3     A     
 HISTORY            CJC    30OCT80     COMPASS                                             CPSA214        4     A     
 HISTORY                                                                                   CPSA214        5     A     
 HISTORY   CPS0275  THIS WILL WRITE THE MICRO TO THE INTERMEDIATE FILE SO THE              CPS0275        1     A     
 HISTORY            SYMBOLS USED BY THE MICRO CAN BE X-REFERENCED WITH OUT BEING LISTED    CPS0275        2     A     
 HISTORY            DLD    16MAY80       COMPASS                    PSR                    CPS0275        3     A     
 HISTORY                                                                                   CPS0275        4     A     
 HISTORY   CPS0278  COMCUPC WAS NOT TESTING FOR ILLEGAL CHARACTERS 60B-77B.                CPS0278        1     A     
 HISTORY            CJC    7JUL80      COMCUPC                                             CPS0278        2     A     
 HISTORY                                                                                   CPS0278        3     A     
 HISTORY   CPS0279  CORRECT COMCDXB RADIX CHECK WHEN DXB1$ IS DEFINED.                     CPS0279        1     A     
 HISTORY            CUSTOMER RECOMMENDED CODE.                                             CPS0279        2     A     
 HISTORY            CJC    1AUG80      COMCDXB                                             CPS0279        3     A     
 HISTORY                                                                                   CPS0279        4     A     
 HISTORY   CPS0281  CORRECT COMCSRT TO RETURN VALUE 16 ON PROC RECORDS.                    CPS0281        1     A     
 HISTORY            CJC    28JUL80     COMPASS                                             CPS0281        2     A     
 HISTORY                                                                                   CPS0281        3     A     
 HISTORY   *L552*    ************************************************                      *L552*         1     A     
 HISTORY   CPSA175. ON MICRO EXPANSIONS SPURIOUS COLONS AND CONTINUATION                   CPSA175        1     A     
 HISTORY            LINES WERE BEING ADDED TO STATEMENT.                                   CPSA175        2     A     
 HISTORY            CJC    6JAN81      COMPASS                                             CPSA175        3     A     
 HISTORY                                                                                   CPSA175        4     A     
 HISTORY   CPSA186. WHEN A SYMBOL IS REFERENCED INSIDE A MACRO CALL,                       CPSA186        1     A     
 HISTORY            AND THE MACRO IS NOT LISTED, BE SURE CORRECT PAGE/LINE                 CPSA186        2     A     
 HISTORY            NUMBERS ARE ENTERED IN THE REFERENCE TABLE.                            CPSA186        3     A     
 HISTORY            CJC    31MAR81     COMPASS                                             CPSA186        4     A     
 HISTORY                                                                                   CPSA186        5     A     
 HISTORY   CPSA199. ON NOS AND NOSBE SOURCE LINES OF 160 CHARACTERS ARE                    CPSA199        1     A     
 HISTORY            PERMITTED, BUT ON SCOPE 2 ONLY 100 CHARACTER LINES ARE                 CPSA199        2     A     
 HISTORY            ALLOWED.  THIS CODE CHANGES THE MRL TO 160 FOR NORMAL                  CPSA199        3     A     
 HISTORY            INPUT LINES ON SCOPE 2.                                                CPSA199        4     A     
 HISTORY            CJC    12NOV80     COMPASS                                             CPSA199        5     A     
 HISTORY                                                                                   CPSA199        6     A     
 HISTORY   CPSA208. REPLACE THE SUPPRESSED PAGE EJECTS BETWEEN LISTING PARTS               CPSA208        1     A     
 HISTORY            WITH A COUPLE BLANK LINES AND THE SUBTITLE LINE.                       CPSA208        2     A     
 HISTORY            CJC    8DEC80      COMPASS                                             CPSA208        3     A     
 HISTORY                                                                                   CPSA208        4     A     
 HISTORY   CPSA216. DOCUMENT IN COMPCOM *F VALUE OF -3 INDICATES FTN5 CALLED               CPSA216        1     A     
 HISTORY            COMPASS.                                                               CPSA216        2     A     
 HISTORY            CJC    5DEC80      COMPCOM                                             CPSA216        3     A     
 HISTORY                                                                                   CPSA216        4     A     
 HISTORY   CPSA218. PPTYPE TESTING FOR BCU/MCU WAS INCORRECT IN THE                        CPSA218        1     A     
 HISTORY            DATA DECLARATION ROUTINE.                                              CPSA218        2     A     
 HISTORY            CJC    17FEB80     COMPASS                                             CPSA218        3     A     
 HISTORY                                                                                   CPSA218        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/28. 19.11.32.      PAGE  15    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   CPSA220. FORCE UPPER ON RL AND WL INSTRUCTIONS.                                 CPSA220        1     A     
 HISTORY            CJC    10FEB81     COMPASS                                             CPSA220        2     A     
 HISTORY                                                                                   CPSA220        3     A     
 HISTORY   CPSA225. COMPASS WAS TESTING INCORRECTLY FOR PPTYPE IN *DIS*.                   CPSA225        1     A     
 HISTORY            CJC    31MAR81     COMPASS                                             CPSA225        2     A     
 HISTORY                                                                                   CPSA225        3     A     
 HISTORY   CPSA226. THIS CODE CORRECTS ROUTINE *DFL* IN TABLE MANAGEMENT                   CPSA226        1     A     
 HISTORY            FL CALCULATIONS AND CORRECTS THE LOGIC ON CLEARING THE                 CPSA226        2     A     
 HISTORY            *LSTTHOU* FLAG.                                                        CPSA226        3     A     
 HISTORY            CJC    31MAR81     COMPASS                                             CPSA226        4     A     
 HISTORY                                                                                   CPSA226        5     A     
 HISTORY   CPSA229. TEST FOR RECORD TYPE ON SCOPE 2 INPUT FILES TO AVOID                   CPSA229        1     A     
 HISTORY            RUN AWAY GETS ON COMPRESSED INPUT.  NEW DAYFILE MESSAGE,               CPSA229        2     A     
 HISTORY            * INPUT FILE RECORD TYPE NOT ALLOWED.*                                 CPSA229        3     A     
 HISTORY            CJC    9APR81      COMPASS                                             CPSA229        4     A     
 HISTORY                                                                                   CPSA229        5     A     
 HISTORY   CPSA230. CORRECT COMCSRT TO IDENTIFY A RANDOM PL WHOSE MASTER                   CPSA230        1     A     
 HISTORY            CHARACTER IS NOT ASTERISK.                                             CPSA230        2     A     
 HISTORY            CJC    16APR81     COMCSRT                                             CPSA230        3     A     
 HISTORY                                                                                   CPSA230        4     A     
 HISTORY   CPSA246. THIS CODE MOVES THE UNDEFINING OF REDEFINABLE                          CPSA246        1     A     
 HISTORY            SYMBOLS FROM THE END OF PASS1 TO THE INITIALIZATION OF                 CPSA246        2     A     
 HISTORY            PASS2.  IF CPS211 IS INSTALLED, IT MUST PRECEED THIS CODE.             CPSA246        3     A     
 HISTORY            CJC    3SEPT81     COMPASS                                             CPSA246        4     A     
 HISTORY                                                                                   CPSA246        5     A     
 HISTORY   CPS211   ALL REDEFINABLE SYMBOLS WERE NOT UNDEFINED PROPERLY AT THE             CPS211         1     A     
 HISTORY            END OF PASS ONE.                                                       CPS211         2     A     
 HISTORY            DBK    4DEC78      COMPASS                        PSR                  CPS211         3     A     
 HISTORY                                                                                   CPS211         4     A     
 HISTORY   CPS0241. TEST FOR BLANK OPCODE WAS DONE INCORRECTLY.                            CPS0241        1     A     
 HISTORY            THIS CODE CORRECTS THE TEST FOR BLANK.                                 CPS0241        2     A     
 HISTORY            CJC    13NOV80     COMPASS                       PSR                   CPS0241        3     A     
 HISTORY                                                                                   CPS0241        4     A     
 HISTORY   CPS0287. COMCARG COMMON COMMON DECK DOES NOT WORK WITH NOSBE                    CPS0287        1     A     
 HISTORY            GENERATED PARAMETER LISTS THAT HAVE CODED SEPARATORS,                  CPS0287        2     A     
 HISTORY            RATHER THAN DISPLAY CODE SEPARATORS, IN THE LOWER BITS                 CPS0287        3     A     
 HISTORY            OF THE ARGUMENT LIST.  THIS CODE CHECKS FOR CODED                      CPS0287        4     A     
 HISTORY            CHARACTERS AS WELL AS DISPLAY CODE ONES.                               CPS0287        5     A     
 HISTORY            CJC    6NOV80      COMCARG                                             CPS0287        6     A     
 HISTORY                                                                                   CPS0287        7     A     
 HISTORY   CPS0289  IF AN R= STATEMENT ALSO CONTAINS A MICRO, AND                          CPS0289        1     A     
 HISTORY            THE *A* LIST OPTION IS NOT TURNED ON, THE LISTING SHOWS                CPS0289        2     A     
 HISTORY            BOTH THE ORIGINAL STATEMENT AND THE GENERATED STATEMENT.               CPS0289        3     A     
 HISTORY            CUSTOMER RECOMMENDED CODE.                                             CPS0289        4     A     
 HISTORY            CJC    14OCT80     COMPASS                                             CPS0289        5     A     
 HISTORY                                                                                   CPS0289        6     A     
 HISTORY   CPS0303. CORRECTLY DOCUMENT MACRO USAGE IN COMMON COMMON DECKS.                 CPS0303        1     A     
 HISTORY            CJC    02APR81     CPUREL                                              CPS0303        2     A     
 HISTORY                                                                                   CPS0303        3     A     
 HISTORY   CPS0307. CORRECT COMCCIO TO ACCEPT THE ASTERISK OPTION OF                       CPS0307        1     A     
 HISTORY            *REWRITE*, *WRITE*, *WRITECW* AND *WRITEN* MACROS                      CPS0307        2     A     
 HISTORY            IN RELOCATABLE PROGRAMS, USING CPU.CIO OUT OF SYSLIB.                  CPS0307        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/28. 19.11.32.      PAGE  16    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ADAPTED FROM KRA681 ON THE NOS OPL.                                    CPS0307        4     A     
 HISTORY            CJC    02APR81     COMCCIO                                             CPS0307        5     A     
 HISTORY                                                                                   CPS0307        6     A     
 HISTORY   *L564*    ************************************************                      *L564*         1     A     
 HISTORY   CPS*82.  UPDATE COPYRIGHT NOTICE FOR YEAR 1982 IN COMPASS.                      CPS*82         1     A     
 HISTORY            CJC    27JUL81     COMPASS                                             CPS*82         2     A     
 HISTORY                                                                                   CPS*82         3     A     
 HISTORY   F4820B.  ADD TO BCU CODE FOR EXTENDED INSTRUCTION TYPES.                        F4820B         1     A     
 HISTORY            ADD NADTEXT TO COMPASS PL AS SEPARATE RECORD.                          F4820B         2     A     
 HISTORY            DDC/CJC  21JAN82   COMPASS,NADTEXT                                     F4820B         3     A     
 HISTORY                                                                                   F4820B         4     A     
 HISTORY   CPSA227. MACHINE 8 ON SCOPE 2 WAS CAUSING SCM DIRECT RANGE ERROR                CPSA227        1     A     
 HISTORY            TRYING TO LOAD AIDTEXT FROM THE SYSTEM LIBRARY.                        CPSA227        2     A     
 HISTORY            THIS CODE CONDITIONALIZES THIS PROCESS TO ONLY                         CPSA227        3     A     
 HISTORY            LOAD AIDTEXT IF NOT ON A SCOPE 2 SYSTEM.                               CPSA227        4     A     
 HISTORY            CJC    12AUG81     COMPASS                                             CPSA227        5     A     
 HISTORY                                                                                   CPSA227        6     A     
 HISTORY   CPSA233. *NCHARS* WAS NOT SET CORRECTLY FOR BCU MODE.                           CPSA233        1     A     
 HISTORY            PCH    4AUG81      COMPASS                                             CPSA233        2     A     
 HISTORY                                                                                   CPSA233        3     A     
 HISTORY   CPSA234. THE MESSAGE *COMPASS NEEDS AT LEAST 00000B SCM*                        CPSA234        1     A     
 HISTORY            ONLY GETS THE UPPER DIGIT OF THE AMOUNT CONVERTED                      CPSA234        2     A     
 HISTORY            TO THE MESSAGE.  THIS CODE CORRECTS REGISTER USE                       CPSA234        3     A     
 HISTORY            IN ROUTINE *TFL* SO THE CORRECT AMOUNT IS REPORTED.                    CPSA234        4     A     
 HISTORY            CJC    7MAY81      COMPASS                                             CPSA234        5     A     
 HISTORY                                                                                   CPSA234        6     A     
 HISTORY                                                                                   CPSA234        7     A     
 HISTORY   CPSA235. IF MORE THAN ONE SUBPROGRAM IS ASSEMBLED, PAGE                         CPSA235        1     A     
 HISTORY            PARITY WAS NOT BEING SUPPRESSED.  THIS CODE TESTS                      CPSA235        2     A     
 HISTORY            THE BL FLAG BEFORE ISSUING PAGE PARITY.                                CPSA235        3     A     
 HISTORY            CJC    7MAY81      COMPASS                                             CPSA235        4     A     
 HISTORY                                                                                   CPSA235        5     A     
 HISTORY   CPSA236. COMPASS, WHEN CALLED BY FTN4, WAS INCORRECTLY CLEARING                 CPSA236        1     A     
 HISTORY            THE FIRST ADDRESS IN THE E FET.  THIS CODE CORRECTS THAT               CPSA236        2     A     
 HISTORY            FLAW.                                                                  CPSA236        3     A     
 HISTORY            CJC    18MAY81     COMPASS                                             CPSA236        4     A     
 HISTORY                                                                                   CPSA236        5     A     
 HISTORY   CPSA240. PARAMETER F ON THE CONTROL CARD SHOULD ACCEPT                          CPSA240        1     A     
 HISTORY            FTN4 AND FTN5 (EQUIVALENT TO 2 AND 3 RESPECTIBELY)                     CPSA240        2     A     
 HISTORY            AS STATED IN THE REFERENCE MANUAL.  THIS CODE CHANGES                  CPSA240        3     A     
 HISTORY            FTN TO FTN4 AND ADDS FTN5 TO THE TABLE OF ACCEPTABLE NAMES.            CPSA240        4     A     
 HISTORY            CJC    22JUL81     COMPASS                                             CPSA240        5     A     
 HISTORY                                                                                   CPSA240        6     A     
 HISTORY   CPSA241. CHANGE MFL= VALUE TO REFLECT SIZE REQUIRED BY COMPASS                  CPSA241        1     A     
 HISTORY            INITIALLY BY MOVING DEFINITION TO END OF PROGRAM.                      CPSA241        2     A     
 HISTORY            CJC    23JUL81     COMPASS                                             CPSA241        3     A     
 HISTORY                                                                                   CPSA241        4     A     
 HISTORY   CPSA242. THE I/O COMMON DECKS GENERATE UNNECESSARY I/O REQUESTS.                CPSA242        1     A     
 HISTORY            THIS CODE CHANGES THEM SO THAT FET BUSY IS ALWAYS CHECKED              CPSA242        2     A     
 HISTORY            BEFORE THE POINTER IS CHECKED THAT IS BEING MOVED BY *CIO*.            CPSA242        3     A     
 HISTORY            THUS, THEY WILL NOT MISS THE FACT THAT THE STATUS OF THE               CPSA242        4     A     
 HISTORY            BUFFER HAS CHANGED BETWEEN THE POINTER TEST AND ACTUAL CALL.           CPSA242        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/28. 19.11.32.      PAGE  17    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ALSO, ALLOW THE USER TO PREVENT READ AHEAD AND WRITE BEHIND            CPSA242        6     A     
 HISTORY            CODE BY DEFINING SYMBOLS *RDX$* AND *WTX$* RESPECTIVELY.               CPSA242        7     A     
 HISTORY            DKE    5AUG81      COMCRDW,COMCWTC,COMCWTH,COMCWTO,COMCWTS,COMCWTW     CPSA242        8     A     
 HISTORY                                                                                   CPSA242        9     A     
 HISTORY   CPSA243. CODE CHANGES *COMCCFD* TO RETURN A RESULT OF                           CPSA243        1     A     
 HISTORY            ********** ON AN OVERFLOW CONDITION.                                   CPSA243        2     A     
 HISTORY            CJC    6AUG81      COMCCFD                                             CPSA243        3     A     
 HISTORY                                                                                   CPSA243        4     A     
 HISTORY   CPSA244. THIS CODE MAKES *COMCSTF* SAVE FET STATUS BEFORE                       CPSA244        1     A     
 HISTORY            ISSUING AN *OPEN* TO TEST FOR DEVICE TYPE, THEN                        CPSA244        2     A     
 HISTORY            RESTORE PREVIOUS FUNCTION CODE.                                        CPSA244        3     A     
 HISTORY            CJC    6AUG81      COMCSTF                                             CPSA244        4     A     
 HISTORY                                                                                   CPSA244        5     A     
 HISTORY   CPSA245. COMMENTS ARE ADDED TO COMMON COMMON DECKS SHOWING                      CPSA245        1     A     
 HISTORY            RESIDENCE AND MAINTENANCE RESPONSIBILITY.                              CPSA245        2     A     
 HISTORY            CJC    11AUG81     COMMON DECKS                                        CPSA245        3     A     
 HISTORY                                                                                   CPSA245        4     A     
 HISTORY   CPSA251. WHEN FL = MFL ON ENTRY TO COMPASS, DISK WAS NOT                        CPSA251        1     A     
 HISTORY            BEING USED ON OVERFLOW.  ALSO *LSTTHOU* FLAG WAS                       CPSA251        2     A     
 HISTORY            USED TO INDICATE BOTH *INTERIO* AND *LSTTHOU*                          CPSA251        3     A     
 HISTORY            THIS CODE CORRECTS USE OF *LSTTHOU* FLAG AND USES                      CPSA251        4     A     
 HISTORY            DISK SPACE WHEN AVAILABLE CORE SPACE IS USED UP.                       CPSA251        5     A     
 HISTORY            CJC    5OCT81      COMPASS                                             CPSA251        6     A     
 HISTORY                                                                                   CPSA251        7     A     
 HISTORY   CPS0306. CODE CHANGES *COMCSRT* TO NO LONGER RECOGNIZE                          CPS0306        1     A     
 HISTORY            *COS* TYPE RECORDS, CALLING THEM *TEXT*, INSTEAD.                      CPS0306        2     A     
 HISTORY            CJC    24SEP81     COMCSRT                                             CPS0306        3     A     
 HISTORY                                                                                   CPS0306        4     A     
 HISTORY   CPS0320. MISSING ENDD WAS CAUSING MODE ERRORS.                                  CPS0320        1     A     
 HISTORY            THIS CODE CHANGES *PEC* TO SET *OPTYPE* BEFORE                         CPS0320        2     A     
 HISTORY            EXITING WHEN *END* CARD IS FOUND.                                      CPS0320        3     A     
 HISTORY            CJC    18SEP81     COMPASS                                             CPS0320        4     A     
 HISTORY                                                                                   CPS0320        5     A     
 HISTORY   CPS0323. *COMCSRT* WAS NOT CHECKING FOR ADDRESS WITHIN BUFFER                   CPS0323        1     A     
 HISTORY            BEFORE JUMPING TO THE END OF A TABLE IN DETERMINING                    CPS0323        2     A     
 HISTORY            RECORD TYPE.  THIS CODE TESTS FOR LWA OF BLOCK, WHICH                  CPS0323        3     A     
 HISTORY            IS PASSED TO *COMCSRT* IN REGISTER *X1*.  IF *COMCSRT*                 CPS0323        4     A     
 HISTORY            CANNOT DETERMINE RECORD TYPE WITHIN BUFFER SIZE,                       CPS0323        5     A     
 HISTORY            TYPE *TEXT* WILL BE RETURNED.                                          CPS0323        6     A     
 HISTORY            CJC    11FEB82     COMCSRT                                             CPS0323        7     A     
 HISTORY                                                                                   CPS0323        8     A     
 HISTORY   *L577*    ************************************************                      *L577*         1     A     
 HISTORY   CPSA257. ADD A CHECK FOR WORD COUNT GREATER THAN ZERO                           CPSA257        1     A     
 HISTORY            FOR PIDL TABLES (RELOCATABLE RECORD TYPES) IN COMCSRT.                 CPSA257        2     A     
 HISTORY            CJC    7JAN82      COMCSRT                                             CPSA257        3     A     
 HISTORY                                                                                   CPSA257        4     A     
 HISTORY   CPSA259. CORRECT OMISSION OF LOADREQ CALL IN *RIV* ROUTINE.                     CPSA259        1     A     
 HISTORY            DEPENDENCY=F4830CP,CPSA227                                             CPSA259        2     A     
 HISTORY            CJC    82/04/24   COMPASS                                              CPSA259        3     A     
 HISTORY                                                                                   CPSA259        4     A     
 HISTORY   CPS0094. BASED UPON THE ASSUMPTION THAT COMPRESSED FILES                        CPS0094        1     A     
 HISTORY            CANNOT BE OF RECORD TYPE Z, THIS CODE ENABLES COMPASS                  CPS0094        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/28. 19.11.32.      PAGE  18    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            TO READ NORMAL SOURCE FROM Z TYPE INPUT RECORDS ON                     CPS0094        3     A     
 HISTORY            SCOPE 2.  A CHECK FOR RT=Z IN *CIF* DOES THE TRICK.                    CPS0094        4     A     
 HISTORY            CJC    19DEC81     COMPASS                                             CPS0094        5     A     
 HISTORY                                                                                   CPS0094        6     A     
 HISTORY   CPS0325  THIS CODE MOVES THE VALUE OF THE SYMBOL IN THE                         CPS0325        1     A     
 HISTORY            SYMBOLIC REFERENCE TABLE OVER TO ALLOW FOR 8-                          CPS0325        2     A     
 HISTORY            CHARACTER SYMBOLS WITH 7-CHARACTER VALUES.                             CPS0325        3     A     
 HISTORY            CJC    26MAR82     COMPASS                                             CPS0325        4     A     
 HISTORY                                                                                   CPS0325        5     A     
 HISTORY   CPS0338. WHILE PRINTING THE SYMBOLIC REFERENCE TABLE,                           CPS0338        1     A     
 HISTORY            COMPASS (CALLED FROM FTN5) STARTED PRINTING GARBAGE                    CPS0338        2     A     
 HISTORY            BECAUSE THE OUTPUT BUFFER WAS WRITTEN WITHOUT RECALL.                  CPS0338        3     A     
 HISTORY            THIS CODE ENSURES THE OUTPUT BUFFER FLUSHED BEFORE                     CPS0338        4     A     
 HISTORY            CLOSING AND REWINDING FILES.                                           CPS0338        5     A     
 HISTORY            CJC    23FEB82     COMPASS                                             CPS0338        6     A     
 HISTORY                                                                                   CPS0338        7     A     
 HISTORY   CPS0340. SINCE CPS240 CHANGED THE FORMAT OF ASSEMBLY STATISTICS                 CPS0340        1     A     
 HISTORY            TO LIST A GENERAL CPU TYPE RATHER THAN SPECIFIC MODEL                  CPS0340        2     A     
 HISTORY            NUMBER, THE STATS DO NOT LINE UP.  THIS CODE CHANGES                   CPS0340        3     A     
 HISTORY            THE SECOND LINE OF THE STATISTICS SO IT LINES UP WITH                  CPS0340        4     A     
 HISTORY            THE FIRST.  CUSTOMER RECOMMENDED CODE.                                 CPS0340        5     A     
 HISTORY            CJC    28DEC81     COMPASS                                             CPS0340        6     A     
 HISTORY                                                                                   CPS0340        7     A     
 HISTORY   CPS0343. COMPASS LISTS THE MEMORY IT USED IN HEX FOR HEX ASSEMBLIES             CPS0343        1     A     
 HISTORY            (BCU, MCU), BUT STILL PRINTS *B* POSTRADIX.  THIS CODE                 CPS0343        2     A     
 HISTORY            CORRECTS COMPASS TO REPORT THE MEMORY IT USED IN OCTAL,                CPS0343        3     A     
 HISTORY            THUS CORRECTLY INDICATING THE AMOUNT USED WITH POSTRADIX.              CPS0343        4     A     
 HISTORY            CUSTOMER RECOMMENDED CODE.                                             CPS0343        5     A     
 HISTORY            CJC    29DEC81     COMPASS                                             CPS0343        6     A     
 HISTORY                                                                                   CPS0343        7     A     
 HISTORY   CPS0345  TEACH *COMCSRT* THE DIFFERENCE BETWEEN CAPS AND OVCAPS.                CPS0345        1     A     
 HISTORY            DEPENDENT UPON CPSA204, CPS0281 AND CPS0306.                           CPS0345        2     A     
 HISTORY                   ITEMIZE MUST BE BUILT WITH UTL0121.                             CPS0345        3     A     
 HISTORY                   COPYL MUST BE BUILT WITH UTL0120.                               CPS0345        4     A     
 HISTORY            CJC    9MAR82      COMCSRT                                             CPS0345        5     A     
 HISTORY                                                                                   CPS0345        6     A     
 HISTORY   *L587*    ************************************************                      *L587*         1     A     
 HISTORY   CPSA261  CORRECT LABEL WTW10 IN COMCWTW WHEN WTX$ IS DEFINED.                   CPSA261        1     A     
 HISTORY            DEPENDENCY=CPSA242                                                     CPSA261        2     A     
 HISTORY            CJC    82/08/02    COMCWTW                                             CPSA261        3     A     
 HISTORY                                                                                   CPSA261        4     A     
 HISTORY   CPS2608  COMPASS COMBINES ALL LDSET PSEUDOS INTO ONE LOADER TABLE               CPS2608        1     A     
 HISTORY            WITHOUT CHECKING WORD SIZE, THUS CREATING AN ILLEGAL                   CPS2608        2     A     
 HISTORY            LOADER TABLE ON OVERFLOW CONDITIONS.  THIS CODE ADDS A                 CPS2608        3     A     
 HISTORY            ROUTINE TO GENERATE THE TABLE CONTROL WORD(S) DURING                   CPS2608        4     A     
 HISTORY            PASS ONE SO MORE THAN ONE LDSET TABLE CAN BE GENERATED                 CPS2608        5     A     
 HISTORY            IF NECESSARY.                                                          CPS2608        6     A     
 HISTORY            CJC    82/07/23    COMPASS                                             CPS2608        7     A     
 HISTORY                                                                                   CPS2608        8     A     
 HISTORY   *L601*    ************************************************                      *L601*         1     A     
 HISTORY   CPSA265  IMPLEMENT SYSTEM PAGE SIZE TO BE FETCHED FROM                          CPSA265        1     A     
 HISTORY            SYSTEM DEFAULT.  ALSO ADDS COMMON DECK *COMCCPM* TO THE                CPSA265        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/28. 19.11.32.      PAGE  19    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            *COMPASS* PL.                                                          CPSA265        3     A     
 HISTORY            DEPENDENCY=CMP30,CPS064,CPS236,F4810A                                  CPSA265        4     A     
 HISTORY            RETRANS=8I3                                                            CPSA265        5     A     
 HISTORY            ASD/RRR/CJC 82/07/01   COMCCPM, COMPASS                                CPSA265        6     A     
 HISTORY                                                                                   CPSA265        7     A     
 HISTORY   *L617*    ************************************************                      *L617*         1     A     
 HISTORY   CPSA266  CORRECT SYSTEM PAGE SIZE FETCHED FROM DEFAULT ON                       CPSA266        1     A     
 HISTORY            SCOPE 2 SYSTEMS.                                                       CPSA266        2     A     
 HISTORY            DEPENDENCY=CPSA265                                                     CPSA266        3     A     
 HISTORY            PFK/CJC  83/10/05   COMPASS                                            CPSA266        4     A     
 HISTORY                                                                                   CPSA266        5     A     
 HISTORY   *L628*    ************************************************                      *L628*         1     A     
 HISTORY   *L642*    ************************************************                      *L642*         1     A     
 HISTORY   CPSA274  CTM.  FIX MODE ERROR WHICH CAN OCCUR ON DUAL-STATE SYSTEMS.            CPSA274        1     A     
 HISTORY            CODE IN *CTM* DOES AN IN-STACK CODE MODIFICATION TO DETERMINE          CPSA274        2     A     
 HISTORY            THE TYPE OF CPU.  IT STORES A *JP B2* IN THE UPPER HALF AND            CPSA274        3     A     
 HISTORY            A *PS* (30 BITS OF ZERO) IN THE LOWER HALF OF A WORD WITHIN            CPSA274        4     A     
 HISTORY            THE STACK TO WHICH CONTROL SUBSEQUENTLY FALLS.  ON DUAL-STATE          CPSA274        5     A     
 HISTORY            SYSTEMS, INTERRUPTS ARE POSSIBLE AT ANY INSTRUCTION BOUNDARY,          CPSA274        6     A     
 HISTORY            SO CONTROL CAN GO TO THE *PS*.  CODE FIXES PROBLEM BY PLACING          CPSA274        7     A     
 HISTORY            THE *JP B2* IN BOTH THE UPPER AND LOWER HALVES OF THE WORD.            CPSA274        8     A     
 HISTORY            DEPENDENCY=CPS064                                                      CPSA274        9     A     
 HISTORY            AXM    85/01/23    COMPASS                                             CPSA274       10     A     
 HISTORY                                                                                   CPSA274       11     A     
 HISTORY   CPS2627  COMPASS/DBSSZ.  FIX BSSZ FOR BCU-TYPE ASSEMBLIES.                      CPS2627        1     A     
 HISTORY            DBSSZ WAS TREATING BCU ASSEMBLIES THE SAME AS FOR                      CPS2627        2     A     
 HISTORY            NORMAL PPU ASSEMBLIES, AND WAS THUS STORING ZERO                       CPS2627        3     A     
 HISTORY            BYTES INTO THE WRONG LOCATION OF THE PROGRAM IMAGE.                    CPS2627        4     A     
 HISTORY            AXM    84/10/23    COMPASS                                             CPS2627        5     A     
 HISTORY                                                                                   CPS2627        6     A     
 HISTORY   CPS2628  ON 63 CHAR SET SYSTEMS, BAD CODE IS GENERATED FOR COLON                CPS2628        1     A     
 HISTORY            IF 'CODE E', 'CODE I', OR 'CODE A' IS SELECTED.                        CPS2628        2     A     
 HISTORY            CODE CHANGES ENTRY FOR COLON IN CHAR SET TABLE FOR                     CPS2628        3     A     
 HISTORY            63 CHAR SET SYSTEMS.                                                   CPS2628        4     A     
 HISTORY            AXM    84/10/29    COMPASS                                             CPS2628        5     A     
 HISTORY                                                                                   CPS2628        6     A     
 HISTORY   *L650*    ************************************************                      *L650*         1     A     
 HISTORY   CPSA276  PROBLEM - IF B7 IS SET TO NEGATIVE UPON ENTRY (NOS/BE),                CPSA276        1     A     
 HISTORY            THE FIRST BLANK BEFORE THE VERB (COMMAND NAME) WILL BE                 CPSA276        2     A     
 HISTORY            CONSIDERED AS A SEPARATOR...THIS IS INCORRECT... THIS BLANK            CPSA276        3     A     
 HISTORY            (AND ALL BLANKS BEFORE THE VERB) SHOULD BE IGNORED.                    CPSA276        4     A     
 HISTORY            SOLUTION - CHECK ASSEMBLY AREA FOR ANY ASSEMBLY OF THE VERB.           CPSA276        5     A     
 HISTORY            IF THERE IS NONE YET, IGNORE THE BLANK (MUST BE LEADING).              CPSA276        6     A     
 HISTORY            CDF    85/04/05    COMCUPC                                             CPSA276        7     A     
 HISTORY                                                                                   CPSA276        8     A     
 HISTORY   CPSA281  IMPLEMENT CODE FOR 180 PPU ASSEMBLER SUPPORT (I4, I0).                 CPSA281        1     A     
 HISTORY            DERIVED FROM CODE DONE FOR THE CROSS INTERNAL ASSEMBLER.               CPSA281        2     A     
 HISTORY            DEPENDENCY=CMP17,CMP30,CPSA213,CPSA225 CPS011,CPS064, CMP64G,          CPSA281        3     A     
 HISTORY            DEPENDENCY=CPS2627,F4820,F4820B                                        CPSA281        4     A     
 HISTORY            CJC    83/12/15    COMPASS                                             CPSA281        5     A     
 HISTORY            AM     85/10/18                                                        CPSA281        6     A     
 HISTORY                                                                                   CPSA281        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/28. 19.11.32.      PAGE  20    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY   CPSA282  COMPASS/ARG.  COMPASS ABORTS WITH *AUTO-RECALL ERROR* ON               CPSA282        1     A     
 HISTORY            NOS/BE IF THE *PD* PARAMETER IS SPECIFIED.  ADD CODE TO CLEAR          CPSA282        2     A     
 HISTORY            COMPLETE BIT PRIOR TO 2ND EXECUTION OF THE *GETPAGE* FUNCTION.         CPSA282        3     A     
 HISTORY            DEPENDENCY=CPSA265                                                     CPSA282        4     A     
 HISTORY            CDF    85/07/27    COMPASS                                             CPSA282        5     A     
 HISTORY                                                                                   CPSA282        6     A     
 HISTORY   CPSA283  COMCRSR.  VOID STACK AFTER SETTING UP INSTRUCTIONS TO RESTORE          CPSA283        1     A     
 HISTORY            ALL OF THE B-REGISTERS.  NEEDED FOR THE 990-TYPE CPU ONLY.             CPSA283        2     A     
 HISTORY            CDF    85/08/14    COMCRSR                                             CPSA283        3     A     
 HISTORY            AXM    85/09/05                                                        CPSA283        4     A     
 HISTORY                                                                                   CPSA283        5     A     
 HISTORY   CPS0329  FIX REGRESSION CAUSED BY CPSA094.  FOR BCU OR MCU ASSEMBLIES,          CPS0329        1     A     
 HISTORY            THE BIT COUNT PER DIGIT (IN X0) WAS GETTING CLOBBERED.                 CPS0329        2     A     
 HISTORY            DEPENDENCY=F4820                                                       CPS0329        3     A     
 HISTORY            AXM    85/03/14    COMPASS                                             CPS0329        4     A     
 HISTORY                                                                                   CPS0329        5     A     
 HISTORY   CPS2667  COMPASS/PRT.  IF DIFFERENT FILE NAMES WERE SPECIFIED FOR THE           CPS2667        1     A     
 HISTORY            LISTING AND THE ERROR FILES (VIA THE *L* AND *E* CONTROL               CPS2667        2     A     
 HISTORY            STATEMENT OPTIONS), THE SUB-TITLE *SYMBOLIC REFERENCE TABLE*           CPS2667        3     A     
 HISTORY            WAS BEING WRITTEN TO THE ERROR FILE INSTEAD OF THE LISTING             CPS2667        4     A     
 HISTORY            FILE.  THIS ALSO LED TO MODE ERRORS DURING LARGE ASSEMBLIES.           CPS2667        5     A     
 HISTORY            CORRECTIVE CODE FIXES.                                                 CPS2667        6     A     
 HISTORY            AXM    85/09/09    COMPASS                                             CPS2667        7     A     
 HISTORY                                                                                   CPS2667        8     A     
 HISTORY   *L670*    ************************************************                      *L670*         1     A     
 HISTORY   CPSA284  PROBLEM - COMCSRT DETECTS MODIFY COMMON DECKS, BUT DOES NOT            CPSA284        1     A     
 HISTORY            INDIVIDUALLY IDENTIFY UPDATE COMMON DECKS.  ALSO, THE DECK             CPSA284        2     A     
 HISTORY            NAMES FOR UPDATE DECKS ON A RANDOM PL ARE NOT CORRECT.                 CPSA284        3     A     
 HISTORY            SOLUTION - ADD A NEW RECORD TYPE (UPLRC) FOR UPDATE RANDOM             CPSA284        4     A     
 HISTORY            PROGRAM LIBRARY COMMON DECKS, AND CORRECT THE ALGORITHM FOR            CPSA284        5     A     
 HISTORY            DETERMINING DECK NAMES IN UPDATE RANDOM PROGRAM LIBRARIRES.            CPSA284        6     A     
 HISTORY            DEPENDENCY=CPSA204,CPS0323,CPS0345,CPSA230                             CPSA284        7     A     
 HISTORY            CDF    85/10/02    COMCSRT                                             CPSA284        8     A     
 HISTORY                                                                                   CPSA284        9     A     
 HISTORY   CPSA286  CHANGE THE *TYPE* FIELD IN THE 77-TABLE TO 'H' FOR 16-BIT              CPSA286        1     A     
 HISTORY            PPU ASSEMBLIES.                                                        CPSA286        2     A     
 HISTORY            DEPENDENCY=CMP30                                                       CPSA286        3     A     
 HISTORY            AM     85/11/13    COMPASS                                             CPSA286        4     A     
 HISTORY                                                                                   CPSA286        5     A     
 HISTORY   CPSA287  COMPASS/DDUMP.  WITH CPSA281, SCOPE2 BUILD FAILS WITH ASSEMBLY         CPSA287        1     A     
 HISTORY            ERRORS.  CODE FIXES COMPASS TO HANDLE *CIPPU* TYPE PPU                 CPSA287        2     A     
 HISTORY            ASSEMBLIES ON SCOPE2.  ALSO FIXES A PROBLEM FOR ASSEMBLIES OF          CPSA287        3     A     
 HISTORY            *CIPPU* TYPE PPUS ON THE OTHER SYSTEMS; THE *NOLABEL* PSEUDO           CPSA287        4     A     
 HISTORY            DID NOT SUPPRESS THE PPU HEADER.                                       CPSA287        5     A     
 HISTORY            DEPENDENCY=CPSA281                                                     CPSA287        6     A     
 HISTORY            AM     86/01/16    COMPASS                                             CPSA287        7     A     
 HISTORY                                                                                   CPSA287        8     A     
 HISTORY   CPSA288  IMPLEMENTATION OF DAP *ARH7171*.  AFFECTS 180 PPU ASSEMBLIES           CPSA288        1     A     
 HISTORY            ONLY.  MODIFIES FORMAT OF DATA GENERATED BY *CON* AND *VFD*            CPSA288        2     A     
 HISTORY            PSEUDO-OPS WHEN DESIRED THAT SUCH DATA BE LIMITED TO THE LOWER         CPSA288        3     A     
 HISTORY            12 BITS OF EACH 16-BIT PPU WORD.  ADDS A SECOND PARAMETER TO           CPSA288        4     A     
 HISTORY            THE *CIPPU* PSEUDO AND INTRODUCES TWO (2) NEW PSEUDO OPS THAT          CPSA288        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/28. 19.11.32.      PAGE  21    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            ARE LEGAL ONLY DURING 180 PPU ASSEMBLIES:  *CONL* AND *VFDL*.          CPSA288        6     A     
 HISTORY            DEPENDENCY=CPSA281,CMP21,F4820,CPS076X                                 CPSA288        7     A     
 HISTORY            AM     86/02/14    COMPASS                                             CPSA288        8     A     
 HISTORY                                                                                   CPSA288        9     A     
 HISTORY   CPSA289  THE DECK *CALLCPU* WAS NOT UPDATED TO INCLUDE A CALL TO THE            CPSA289        1     A     
 HISTORY            COMDECK *COMCCPM*.  CODE FIXES.                                        CPSA289        2     A     
 HISTORY            AM     86/02/18    CALLCPU                                             CPSA289        3     A     
 HISTORY                                                                                   CPSA289        4     A     
 HISTORY   CPSA292  TRANSMITTAL OF CDCM.  REFERENCE DAP = S5012.  THIS UTILITY             CPSA292        1     A     
 HISTORY            READS A COMPILE FILE OF *COMPASS* CODE AND WRITES A LIST OF            CPSA292        2     A     
 HISTORY            ANY LINES WITHIN THAT FILE WHICH CONTAIN CODE-MODIFICATION             CPSA292        3     A     
 HISTORY            WHICH COULD CAUSE PROGRAM FAILURE.                                     CPSA292        4     A     
 HISTORY            NEWDECKS=CWEOR2,CDCMOPT,CDCM                                           CPSA292        5     A     
 HISTORY            AM     86/05/14    CDCMOPT, CWEOR2, CDCM                               CPSA292        6     A     
 HISTORY                                                                                   CPSA292        7     A     
 HISTORY   CPSA293  COMPASS/CCC/STC/BCU/CIPPU/END.  FIX *BCU* REGRESSION CAUSED            CPSA293        1     A     
 HISTORY            BY CPSA281.  CHARACTER DATA WAS STORED INCORRECTLY DURING              CPSA293        2     A     
 HISTORY            BCU-TYPE ASSEMBLIES.  THIS CODE REWORKS *STC* SO AS TO AVOID           CPSA293        3     A     
 HISTORY            THE VARIOUS TESTS THAT HAD TO BE MADE FOR EACH CHARACTER OF            CPSA293        4     A     
 HISTORY            DATA STORED.  INSTEAD, A METHOD OF CODE-MODIFICATION IS USED           CPSA293        5     A     
 HISTORY            WHICH CONTROLS THE ROUTINE'S PROCESSING ACCORDING TO THE               CPSA293        6     A     
 HISTORY            CHARACTER TYPE CURRENTLY IN EFFECT.  THE CODE MODIFICATION IS          CPSA293        7     A     
 HISTORY            DONE AT THE END OF BOTH PASS 1 AND 2 TO RESET TO NON-ASCII,            CPSA293        8     A     
 HISTORY            AND IN PASS 1 AND 2 PROCESSING OF THE *BCU*, *MCU*, CIPPU*,            CPSA293        9     A     
 HISTORY            AND *CODE* PSEUDO-OPS.                                                 CPSA293       10     A     
 HISTORY            DEPENDENCY=CPSA281,CMP30,F4820,CPSA213,CPSA288,CPSA125                 CPSA293       11     A     
 HISTORY            AM     86/07/11    COMPASS                                             CPSA293       12     A     
 HISTORY                                                                                   CPSA293       13     A     
 HISTORY   CPSA295  ADD RECORD TYPE 8PP (180-PPU) TO COMCSRT.                              CPSA295        1     A     
 HISTORY            DEPENDENCY=CPSA284                                                     CPSA295        2     A     
 HISTORY            AM     86/05/06    COMCSRT                                             CPSA295        3     A     
 HISTORY                                                                                   CPSA295        4     A     
 HISTORY   CPSA297  ON 16K CIPPU ASSEMBLIES, ISSUE WARNING ERROR ON STORE                  CPSA297        1     A     
 HISTORY            INSTRUCTIONS WHICH REFERENCE THE NEXT INSTRUCTION.  FOR                CPSA297        2     A     
 HISTORY            EXAMPLES:  STD *+1,  STDL *+1,  STML *+2.                              CPSA297        3     A     
 HISTORY            THIS IS NEEDED BECAUSE THE S0 IOU HAS A PIPELINE ARCHITECTURE,         CPSA297        4     A     
 HISTORY            MEANING INSTRUCTIONS ARE PREFETCHED DURING EXECUTION OF A              CPSA297        5     A     
 HISTORY            PREVIOUS ONE.  IN PARTICULAR, ANY STORE OPERATION TO A WORD            CPSA297        6     A     
 HISTORY            ADDRESS IMMEDIATELY FOLLOWING THE CURRENT INSTRUCTION WILL             CPSA297        7     A     
 HISTORY            NOT WORK AS EXPECTED, AS THE UNMODIFIED DATA WILL HAVE ALREADY         CPSA297        8     A     
 HISTORY            BEEN FETCHED.                                                          CPSA297        9     A     
 HISTORY            DEPENDENCY=CPS026,CPSA281                                              CPSA297       10     A     
 HISTORY            AM     86/05/12    COMPASS                                             CPSA297       11     A     
 HISTORY                                                                                   CPSA297       12     A     
 HISTORY   CPSA300  COMPASS.  ADD COMMENT LINE TO BEGINNING OF COMPASS LISTING TO          CPSA300        1     A     
 HISTORY            INDICATE VERSION 3.7.                                                  CPSA300        2     A     
 HISTORY            DEPENDENCY=F4810B                                                      CPSA300        3     A     
 HISTORY            AM     86/07/10    COMPASS                                             CPSA300        4     A     
 HISTORY                                                                                   CPSA300        5     A     
 HISTORY   CPS2658  COMPASS/SCD.  A NUMERIC DATA ITEM WITH TWO PERIODS CAUSES              CPS2658        1     A     
 HISTORY            COMPASS TO HANG.  CODE MODIFIES *NDS* IN *SCD* TO UPDATE THE           CPS2658        2     A     
 HISTORY            COLUMN POINTER BEFORE TAKING ERROR EXIT.                               CPS2658        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/28. 19.11.32.      PAGE  22    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            DEPENDENCY=CPS056                                                      CPS2658        4     A     
 HISTORY            AM     85/11/13    COMPASS                                             CPS2658        5     A     
 HISTORY                                                                                   CPS2658        6     A     
 HISTORY   CPS2659  COMPASS/PRT.  IF CROSS-REFERENCE TABLE PROCESSING DETECTS              CPS2659        1     A     
 HISTORY            CROSS-REFERENCE TABLE OVERFLOW, THEN END-OF-RECORD WRITE IS            CPS2659        2     A     
 HISTORY            ISSUED TO THE ERROR FILE UNCONDITIONALLY.  THIS CAUSES THE             CPS2659        3     A     
 HISTORY            FILE TO EXIST EVEN WHEN THERE WERE NO ERRORS.  CORRECTIVE              CPS2659        4     A     
 HISTORY            CODE FIXES.                                                            CPS2659        5     A     
 HISTORY            DEPENDENCY=CPS064                                                      CPS2659        6     A     
 HISTORY            AM     85/09/10    COMPASS                                             CPS2659        7     A     
 HISTORY                                                                                   CPS2659        8     A     
 HISTORY   CPS2672  CHANGE THE USAGE OF TABLE *RELVEC* AS FOLLOWS:  CURRENTLY,             CPS2672        1     A     
 HISTORY            IT IS USED IN SEVERAL WAYS, BUT WHERE IT IS USED AS THE                CPS2672        2     A     
 HISTORY            RELOCATION VECTOR, IT CAN OVERFLOW ITS FIXED LENGTH OF 256             CPS2672        3     A     
 HISTORY            DURING ASSEMBLIES WITH MANY OVERLAYS (SUCH AS *DSD*).  TO              CPS2672        4     A     
 HISTORY            CORRECT THIS, ADD A NEW MANAGE TABLE (*RVTAB*) TO BE USED              CPS2672        5     A     
 HISTORY            FOR THE RELOCATION VECTOR.  CONTINUE TO USE THE SAME                   CPS2672        6     A     
 HISTORY            FIXED-LENGTH *RELVEC* FOR ALL THE OTHER PURPOSES.                      CPS2672        7     A     
 HISTORY            DEPENDENCY=CMP30                                                       CPS2672        8     A     
 HISTORY            AM     86/06/18    COMPASS                                             CPS2672        9     A     
 HISTORY                                                                                   CPS2672       10     A     
 HISTORY   *L688*    ************************************************                      *L688*         1     A     
 HISTORY   *L716*    ************************************************                      *L716*         1     A     
 HISTORY   CPS2660  REMOVE UNNECESSARY ERROR CHECKING CODE AFTER LOADING SYSTEMS           CPS2660        1     A     
 HISTORY            TEXT ON NOS OR SCOPE 2 SYSTEMS.  THE CODE BEING REMOVED                CPS2660        2     A     
 HISTORY            APPLIES TO NOS/BE ONLY.                                                CPS2660        3     A     
 HISTORY            DEPENDENCY=CPSA134,CPS064,F4810B                                       CPS2660        4     A     
 HISTORY            AM     88/02/18    COMPASS                                             CPS2660        5     A     
 HISTORY                                                                                   CPS2660        6     A     
 HISTORY   *L739*    ************************************************                      *L739*         1     A     
 HISTORY   CPSA291  FIX PROBLEMS WITH CONTINUATION *COMPASS* STATEMENTS.                   CPSA291        1     A     
 HISTORY            (1) ON NOS, *CONTRLC* IS ISSUED WITHOUT THE *CRACK* PARAMETER          CPSA291        2     A     
 HISTORY                SET.  THIS CAUSES THE *ARG=* STATUS TO BE LOST.                    CPSA291        3     A     
 HISTORY            (2) WHEN THE *CONTRLC* REQUEST IS MADE, (RA+64) GETS RESET,            CPSA291        4     A     
 HISTORY                CAUSING THE WRONG VALUE TO BE USED FOR THE OVERLAY FILE.           CPSA291        5     A     
 HISTORY            DEPENDENCY=CMP30                                                       CPSA291        6     A     
 HISTORY            AM     88/05/19    COMPASS                                             CPSA291        7     A     
 HISTORY                                                                                   CPSA291        8     A     
 HISTORY   CPSA305  PROBLEM - FOR *BCU* AND *CIPPU* ASSEMBLIES WITH L=0, THE               CPSA305        1     A     
 HISTORY            CHARACTER SET DOES NOT PROPERLY DEFAULT TO *CODE N*, BUT               CPSA305        2     A     
 HISTORY            INSTEAD DEFAULTS TO *CODE A*.  THIS IS BECAUSE THE *BCU*               CPSA305        3     A     
 HISTORY            AND *CIPPU* PSEUDOS USE THE LOGIC TO NOT ENTER PASS 2                  CPSA305        4     A     
 HISTORY            PROCESSORS, BUT CPSA293 INTRODUCED PASS 2 LOGIC FOR THESE              CPSA305        5     A     
 HISTORY            TO PLUG SUBROUTINE *STC* FOR 8-BIT, ASCII.                             CPSA305        6     A     
 HISTORY            SOLUTION - CHANGE THE PASS 1 EXIT LOGIC FOR *BCU*, *CIPPU*,            CPSA305        7     A     
 HISTORY            AND *MCU* SO THAT THE PASS 2 PROCESSORS WILL BE EXECUTED.              CPSA305        8     A     
 HISTORY            DEPENDENCY=F4820,CPSA281                                               CPSA305        9     A     
 HISTORY            AM     88/09/19    COMPASS                                             CPSA305       10     A     
 HISTORY                                                                                   CPSA305       11     A     
 HISTORY   CPSA306  CPSA283 USES A *JP* INSTRUCTION TO VOID THE INSTRUCTION                CPSA306        1     A     
 HISTORY            STACK.  THIS SHOULD BE DONE WITH AN *RJ* TO ENSURE THAT IT             CPSA306        2     A     
 HISTORY            WORKS CORRECTLY ON ANY CPU TYPE.                                       CPSA306        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/28. 19.11.32.      PAGE  23    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
 HISTORY            DEPENDENCY=CPSA283                                                     CPSA306        4     A     
 HISTORY            AM     88/11/14    COMCRSR                                             CPSA306        5     A     
 HISTORY                                                                                   CPSA306        6     A     
 HISTORY   CPS0328  ON 63 CHAR SET SYSTEMS, CODE CONVERSION TABLE IS INCORRECT FOR         CPS0328        1     A     
 HISTORY            DISPLAY CODE 00.  IT SHOULD CONVERT TO A BLANK.  CPS2628               CPS0328        2     A     
 HISTORY            CORRECTED DISPLAY CODE 63 (COLON FOR 63CS, PERCENT FOR 64CS),          CPS0328        3     A     
 HISTORY            BUT NOT DISPLAY CODE 00.                                               CPS0328        4     A     
 HISTORY            AM     88/05/27    COMPASS                                             CPS0328        5     A     
 HISTORY                                                                                   CPS0328        6     A     
 HISTORY   *L780*    ************************************************                      *L780*         1     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   F4830CP  MACHINE PSEUDO-OP CHANGES, INSTRUCTION CHANGES AND                     F4830CP        1     A     
 HISTORY            TEXT FILE ADDED TO THE COMPASS PL.                                     F4830CP        2     A     
 HISTORY            CJC    14OCT80     COMPASS,AIDTEXT                                     F4830CP        3     A     
 HISTORY                                                                                   F4830CP        4     A     
 HISTORY                                                                                   HISTORY        3     A     
 HISTORY  *DECK COMTEXT                                                                    COMTEXT        1          I
          -F4720  
 HISTORY            IDENT  COMTEXT                                                         COMTEXT        2          I
          -F4720  
 HISTORY            STEXT                                                                  COMTEXT        3          I
          -F4720  
 HISTORY            COMMENT SYSTEM COMMUNICATION TEXT.                                     COMTEXT        4          I
          -F4720  
 HISTORY            TITLE  COMTEXT - SYSTEM COMMUNICATION TEXT FOR CPU PROGRAMS.           COMTEXT        5          I
          -F4720  
 HISTORY                                                                                   COMTEXT        6          I
          -F4720  
 HISTORY                                                                                   COMTEXT        7          I
          -F4720  
 HISTORY  *CALL CPCOM                                                                      COMTEXT        8          I
          -F4720  
 HISTORY                                                                                   COMTEXT        9          I
          -F4720  
 HISTORY                                                                                   COMTEXT       10          I
          -F4720  
 HISTORY            END    COMTEXT                                                         COMTEXT       11          I
          -F4720  
 HISTORY  *WEOR,0                                                                          COMTEXT       12          I
          -CWEOR  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  24    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - HISTORY 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMTEXT                     12         0
          HISTORY                      3         3
          L383                         1         1
          L383F                        1         1
          L386                         1         1
          L393                         1         1
          L397                         1         1
          CP114                        4         4
          L401                         1         1
          L406                         1         1
          CPSCPRT                      3         3
          CP096A                       5         5
          L410                         1         1
          CPS106                       4         4
          CPS110                       4         4
          CPS112                       5         5
          L414                         1         1
          S3143CP                      4         4
          *L420*                       1         1
          CPS*76                       3         3
          CP139CP                      9         9
          CP147                        3         3
          CP154                        3         3
          CPS085                       4         4
          *L428*                       1         1
          CPS126                       4         4
          CPS127                       4         4
          CPS130                       4         4
          CPS135                       3         3
          CPS141                       4         4
          *L433*                       1         1
          *L439*                       1         1
          CPS150                       2         2
          CPS153                       3         3
          *L446*                       1         1
          CPS*77                       3         3
          CPSVER34                     3         3
          CP161CP                      3         3
          F7540CP                      4         4
          F7820CP                      3         3
          CPS146                       4         4
          CPS167                       3         3
          *L452*                       1         1
          CPS118X                      4         4
          CPS173                       4         4
          *L460*                       1         1
          CPS076X                      5         5
          CPS144                       4         4
          CPS147X                      5         5
          CPS151                       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/28. 19.11.32.      PAGE  25    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          CPS161                       3         3
          CPS164X                      3         3
          CPS172                       4         4
          CPS176                       4         4
          *L470*                       1         1
          FEAT184N                     4         4
          FEAT184NA                    3         3
          CPS*78                       3         3
          CPSA070                      4         4
          CPSA083                      4         4
          CPSA096                      4         4
          CPSA098                      5         5
          CPSA097                      4         4
          CPSA094                      4         4
          CPS168                       4         4
          CPSA104                     11        11
          CPSA107                      3         3
          *L477*                       1         1
          CPSA106                      4         4
          CPS188                       4         4
          CPS192                       5         5
          CPSA112                      4         4
          CPS198                       4         4
          *L485*                       1         1
          F4720A                       5         5
          F4720B                       4         4
          F4720C                       4         4
          F4720D                       4         4
          F4810A                       4         4
          F4810B                       3         3
          CPSA115                      5         5
          CPS202                       4         4
          CPSA117                      4         4
          CPSA119                      4         4
          CPSA123                      4         4
          CPSA125                      4         4
          CPSA126                      5         5
          *L498*                       1         1
          CPS*79                       3         3
          CPSA129                      3         3
          CPSA133                      4         4
          CPSA138                      4         4
          *L505*                       1         1
          CPSA132                      4         4
          CPSA134                      5         5
          CPSA142                      4         4
          CPS186                       3         3
          CPS191                       4         4
          CPS213                       4         4
          CPS216                       5         5
          CPS218                       4         4
          CPS227                       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/28. 19.11.32.      PAGE  26    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          *L508*                       1         1
          CPSA141                      5         5
          CPSA163                      5         5
          CPSA168                      6         6
          CPS219A                      3         3
          CPS234                       4         4
          CPS239                       3         3
          CPS243                       4         4
          CPS247                       4         4
          CPSA158                      4         4
          CPSA161                      5         5
          CPS236                       5         5
          CPS240                       4         4
          CPS*80                       3         3
          *L518*                       1         1
          *L528*                       1         1
          CPS251                       4         4
          F4820                        4         4
          F4820A                       3         3
          RSM4159                      4         4
          F233CMU                      5         5
          SIE7969                      4         4
          CPSA116                      4         4
          CPSA140                      5         5
          CPSA148                      4         4
          CPSA169                      5         5
          CPS214                       3         3
          CPSA181                      6         6
          CPSA184                      4         4
          CPSA187                      4         4
          CPSA195                      4         4
          CPSA196                      3         3
          CPSA204                      4         4
          CPS232                       5         5
          CPS0253                      3         3
          CPS254                       3         3
          CPS0257                      6         6
          CPS258                       4         4
          CPS0263                      4         4
          CPS0267                      4         4
          *L538*                       1         1
          CPS*81                       3         3
          F4830CP                      4         4
          CPSA197                      3         3
          CPSA198                      4         4
          CPSA200                      5         5
          CPSA210                      4         4
          CPSA213                      4         4
          CPSA214                      5         5
          CPS0275                      4         4
          CPS0278                      3         3
          CPS0279                      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/28. 19.11.32.      PAGE  27    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          CPS0281                      3         3
          *L552*                       1         1
          CPSA175                      4         4
          CPSA186                      5         5
          CPSA199                      6         6
          CPSA208                      4         4
          CPSA216                      4         4
          CPSA218                      4         4
          CPSA220                      3         3
          CPSA225                      3         3
          CPSA226                      5         5
          CPSA229                      5         5
          CPSA230                      4         4
          CPSA246                      5         5
          CPS211                       4         4
          CPS0241                      4         4
          CPS0287                      7         7
          CPS0289                      6         6
          CPS0303                      3         3
          CPS0307                      6         6
          *L564*                       1         1
          CPS*82                       3         3
          F4820B                       4         4
          CPSA227                      6         6
          CPSA233                      3         3
          CPSA234                      7         7
          CPSA235                      5         5
          CPSA236                      5         5
          CPSA240                      6         6
          CPSA241                      4         4
          CPSA242                      9         9
          CPSA243                      4         4
          CPSA244                      5         5
          CPSA245                      4         4
          CPSA251                      7         7
          CPS0306                      4         4
          CPS0320                      5         5
          CPS0323                      8         8
          *L577*                       1         1
          CPSA257                      4         4
          CPSA259                      4         4
          CPS0094                      6         6
          CPS0325                      5         5
          CPS0338                      7         7
          CPS0340                      7         7
          CPS0343                      7         7
          CPS0345                      6         6
          *L587*                       1         1
          CPSA261                      4         4
          CPS2608                      8         8
          *L601*                       1         1
          CPSA265                      7         7
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  28    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN HISTORY 
  
          *L617*                       1         1
          CPSA266                      5         5
          *L628*                       1         1
          *L642*                       1         1
          CPSA274                     11        11
          CPS2627                      6         6
          CPS2628                      6         6
          *L650*                       1         1
          CPSA276                      8         8
          CPSA281                      7         7
          CPSA282                      6         6
          CPSA283                      5         5
          CPS0329                      5         5
          CPS2667                      8         8
          *L670*                       1         1
          CPSA284                      9         9
          CPSA286                      5         5
          CPSA287                      8         8
          CPSA288                      9         9
          CPSA289                      4         4
          CPSA292                      7         7
          CPSA293                     13        13
          CPSA295                      4         4
          CPSA297                     12        12
          CPSA300                      5         5
          CPS2658                      6         6
          CPS2659                      8         8
          CPS2672                     10        10
          *L688*                       1         1
          *L716*                       1         1
          CPS2660                      6         6
          *L739*                       1         1
          CPSA291                      8         8
          CPSA305                     11        11
          CPSA306                      6         6
          CPS0328                      6         6
          *L780*                       1         1
          *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 COMCARG 
  
 COMCARG  *COMDECK  COMCARG            PROCESS ARGUMENTS.                          COMCARG COMCARG        1     A     
 COMCARG   ARG      CTEXT  COMCARG - PROCESS ARGUMENTS.                            COMCARG COMCARG        2     A     
 COMCARG   ARG      SPACE  4,10                                                    COMCARG COMCARG        3     A     
 COMCARG            IF     -DEF,QUAL$,1                                            COMCARG COMCARG        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/28. 19.11.32.      PAGE  29    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCARG 
  
 COMCARG            QUAL   COMCARG                                                 COMCARG COMCARG        5     A     
 COMCARG            BASE   D                                                       COMCARG COMCARG        6     A     
 COMCARG  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCARG COMCARG        7     A     
 COMCARG   ARG      SPACE  4,10                                                    COMCARG COMCARG        8     A     
 COMCARG  ***       ARG - PROCESS ARGUMENTS.                                       COMCARG COMCARG        9     A     
 COMCARG  *                                                                        COMCARG COMCARG       10     A     
 COMCARG  *         G. R. MANSFIELD.   70/10/09.                                   COMCARG COMCARG       11     A     
 COMCARG  *                                                                                CPSA245        5     A     
 COMCARG  *         *******************************************************                CPSA245        6     A     
 COMCARG  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245        7     A     
 COMCARG  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245        8     A     
 COMCARG  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245        9     A     
 COMCARG  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       10     A     
 COMCARG  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       11     A     
 COMCARG  *         *******************************************************                CPSA245       12     A     
 COMCARG  *                                                                                CPSA245       13     A     
 COMCARG  *                                                                        COMCARG COMCARG       12     A     
 COMCARG  *         PROCESS A LIST OF ARGUMENTS BY USE OF AN EQUIVALENCE           COMCARG COMCARG       13     A     
 COMCARG  *         TABLE.                                                         COMCARG COMCARG       14     A     
 COMCARG   ARG      SPACE  4,10                                                    COMCARG COMCARG       15     A     
 COMCARG  ***       ARG PROCESSES AN ARGUMENT LIST BY THE USE OF AN                COMCARG COMCARG       16     A     
 COMCARG  *         EQUIVALENCE TABLE.                                             COMCARG COMCARG       17     A     
 COMCARG  *         THE ARGUMENT LIST IS EXPECTED TO BE IN THE FORMAT GENERATED    COMCARG COMCARG       18     A     
 COMCARG  *         BY *COMCUPC*.                                                  COMCARG COMCARG       19     A     
 COMCARG  *         IF A KEYWORD=VALUE FORM IS FOUND IN THE ARGUMENT LIST,         COMCARG COMCARG       20     A     
 COMCARG  *         (ADDR) ARE SET TO THE VALUE. IF ONLY THE KEYWORD IS FOUND      COMCARG COMCARG       21     A     
 COMCARG  *         IN THE ARGUMENT LIST AS A STANDALONE ARGUMENT, (ADDR) ARE      COMCARG COMCARG       22     A     
 COMCARG  *         SET TO (ASV). IF A KEYWORD DOES NOT APPEAR IN THE ARGUMENT     COMCARG COMCARG       23     A     
 COMCARG  *         LIST, (ADDR) REMAIN UNCHANGED.                                 COMCARG COMCARG       24     A     
 COMCARG  *                                                                        COMCARG COMCARG       25     A     
 COMCARG  *         ENTRY  (B1) = 1.                                               COMCARG COMCARG       26     A     
 COMCARG  *                (B4) = ARGUMENT COUNT.                                  COMCARG COMCARG       27     A     
 COMCARG  *                (A4) = ADDRESS OF FIRST ARGUMENT.                       COMCARG COMCARG       28     A     
 COMCARG  *                (X4) = FIRST ARGUMENT.                                  COMCARG COMCARG       29     A     
 COMCARG  *                (B5) = ADDRESS OF ARGUMENT TABLE IN FOLLOWING FORM -    COMCARG COMCARG       30     A     
 COMCARG  *                       AND TERMINATED BY A WORD OF ALL ZEROS                    CPS0287        8     A     
 COMCARG  *         VFD    12/OP,18/ASV,12/ST,18/ADDR                              COMCARG COMCARG       31     A     
 COMCARG  *                OP = 1 OR 2 CHAR KEYWORD (LEFT JUSTIFIED, ZERO FILL).   COMCARG COMCARG       32     A     
 COMCARG  *                ASV = ADDRESS OF ASSUMED VALUE.                         COMCARG COMCARG       33     A     
 COMCARG  *                ST = STATUS.                                            COMCARG COMCARG       34     A     
 COMCARG  *                ADDR = ADDRESS WHERE ARGUMENT PLACED.                   COMCARG COMCARG       35     A     
 COMCARG  *         IF (ASV) ARE STORED INTO (ADDR), THE FULL 60 BITS OF (ASV)     COMCARG COMCARG       36     A     
 COMCARG  *         WILL BE USED. IF AN EQUIVALENCED VALUE IS SUPPLIED IN THE      COMCARG COMCARG       37     A     
 COMCARG  *         ARGUMENT LIST, (ADDR) WILL BE SET TO THE UPPER 42 BITS OF      COMCARG COMCARG       38     A     
 COMCARG  *         THE ARGUMENT VALUE (IN BITS 59-18) AND THE LOWER 18 BITS       COMCARG COMCARG       39     A     
 COMCARG  *         OF (ASV) IN BITS 17-0.                                         COMCARG COMCARG       40     A     
 COMCARG  *         IF ASV .LT. 0, ARGUMENT MUST NOT BE EQUIVALENCED.              COMCARG COMCARG       41     A     
 COMCARG  *         IF STATUS = 4000B, A ZERO *0* PARAMETER IS RETAINED AS A       COMCARG COMCARG       42     A     
 COMCARG  *         DISPLAY ZERO, OTHERWISE, A VALUE OF ZERO (FULL WORD) IS        COMCARG COMCARG       43     A     
 COMCARG  *         STORED AT (ADDR).                                              COMCARG COMCARG       44     A     
 COMCARG  *         IF ASV = ADDR, ONLY ONE ENTRY OF THAT ARGUMENT                 COMCARG COMCARG       45     A     
 COMCARG  *         WILL BE ALLOWED AND OP WILL BE SET TO -0.                      COMCARG COMCARG       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/28. 19.11.32.      PAGE  30    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCARG 
  
 COMCARG  *                                                                        COMCARG COMCARG       47     A     
 COMCARG  *         EXIT   (X1) .NE. 0 IF ARGUMENT ERROR DETECTED.                 COMCARG COMCARG       48     A     
 COMCARG  *                ERRORS                                                  COMCARG COMCARG       49     A     
 COMCARG  *                1.  OPTION NOT FOUND IN TABLE.                          COMCARG COMCARG       50     A     
 COMCARG  *                2.  SINGLE ARGUMENT EQUIVALENCED.                       COMCARG COMCARG       51     A     
 COMCARG  *                3.  ILLEGAL RE-ENTRY OF ARGUMENT.                       COMCARG COMCARG       52     A     
 COMCARG  *                                                                        COMCARG COMCARG       53     A     
 COMCARG  *         USES   X - 0, 1, 2, 3, 4, 6, 7.                                COMCARG COMCARG       54     A     
 COMCARG  *                B - 2, 3, 4.                                            COMCARG COMCARG       55     A     
 COMCARG  *                A - 2, 3, 4, 7.                                         COMCARG COMCARG       56     A     
 COMCARG  *                                                                        COMCARG COMCARG       57     A     
 COMCARG  *         CALLS  NONE.                                                   COMCARG COMCARG       58     A     
 COMCARG                                                                           COMCARG COMCARG       59     A     
 COMCARG                                                                           COMCARG COMCARG       60     A     
 COMCARG   ARG      SUBR               ENTRY/EXIT                                  COMCARG COMCARG       61     A     
 COMCARG            MX0    42                                                      COMCARG COMCARG       62     A     
 COMCARG            SX1    B0                                                      COMCARG COMCARG       63     A     
 COMCARG            ZR     B4,ARGX     IF NO ARGUMENTS, RETURN                     COMCARG COMCARG       64     A     
 COMCARG            SX1    B1          PRESET ERROR                                COMCARG COMCARG       65     A     
 COMCARG                                                                           COMCARG COMCARG       66     A     
 COMCARG  *         SEARCH FOR MATCH IN ARGUMENT TABLE.                            COMCARG COMCARG       67     A     
 COMCARG                                                                           COMCARG COMCARG       68     A     
 COMCARG   ARG1     ZR     X4,ARGX     IF BLANK ARGUMENT, RETURN                   COMCARG COMCARG       69     A     
 COMCARG            SA2    B5          FIRST OPTION                                COMCARG COMCARG       70     A     
 COMCARG            MX3    12                                                      COMCARG COMCARG       71     A     
 COMCARG   ARG2     IX6    X2-X4       COMPARE ARGUMENT AND OPTION                 COMCARG COMCARG       72     A     
 COMCARG            BX7    X3*X6                                                   COMCARG COMCARG       73     A     
 COMCARG            ZR     X7,ARG3     IF MATCH FOUND                              COMCARG COMCARG       74     A     
 COMCARG            SA2    A2+B1       NEXT OPTION                                 COMCARG COMCARG       75     A     
 COMCARG            NZ     X2,ARG2     LOOP TO END OF TABLE                        COMCARG COMCARG       76     A     
 COMCARG            EQ     ARGX        RETURN                                      COMCARG COMCARG       77     A     
 COMCARG                                                                           COMCARG COMCARG       78     A     
 COMCARG  *         CHECK FOR EQUIVALENCE ALLOWED.                                 COMCARG COMCARG       79     A     
 COMCARG                                                                           COMCARG COMCARG       80     A     
 COMCARG   ARG3     SX7    X4-1R=      EQUIVALENCE SEPARATOR                       COMCARG COMCARG       81     A     
 COMCARG            SB2    X2          SET VALUE ADDRESS                           COMCARG COMCARG       82     A     
 COMCARG            LX2    30          GET ASSUMED VALUE                           COMCARG COMCARG       83     A     
 COMCARG            SB3    X2                                                      COMCARG COMCARG       84     A     
 COMCARG            PL     B3,ARG4     IF EQUIVALENCE ALLOWED                      COMCARG COMCARG       85     A     
 COMCARG            SA3    -B3         ASSUMED VALUE                               COMCARG COMCARG       86     A     
 COMCARG            BX6    -X0*X3      ASSUMED STATUS                              COMCARG COMCARG       87     A     
 COMCARG            SB3    -B3                                                     COMCARG COMCARG       88     A     
 COMCARG            ZR     X7,ARGX     IF ARGUMENT EQUIVALENCED...RETURN                   CPS0287        9     A     
 COMCARG            SX7    X4-2        NOS/BE EQUIVALENCE SEPARATOR                        CPS0287       10     A     
 COMCARG            NZ     X7,ARG5     IF ARGUMENT NOT EQUIVALENCED                COMCARG COMCARG       89     A     
 COMCARG            EQ     ARGX        RETURN                                      COMCARG COMCARG       90     A     
 COMCARG                                                                           COMCARG COMCARG       91     A     
 COMCARG  *         PROCESS EQUIVALENCE.                                           COMCARG COMCARG       92     A     
 COMCARG                                                                           COMCARG COMCARG       93     A     
 COMCARG   ARG4     SA3    B3          ASSUMED VALUE                               COMCARG COMCARG       94     A     
 COMCARG            BX6    -X0*X3      ASSUMED STATUS                              COMCARG COMCARG       95     A     
 COMCARG            ZR     X7,ARG4.0   IF ARGUMENT EQUIVALENCED                            CPS0287       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/28. 19.11.32.      PAGE  31    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCARG 
  
 COMCARG            SX7    X4-2        NOS/BE EQUIVALENCE SEPARATOR                        CPS0287       12     A     
 COMCARG            NZ     X7,ARG5     IF ARGUMENT NOT EQUIVALENCED                COMCARG COMCARG       96     A     
 COMCARG   ARG4.0   BSS    0                                                               CPS0287       13     A     
 COMCARG            SA4    A4+B1       CHECK EQUIVALENCE                           COMCARG COMCARG       97     A     
 COMCARG            SB4    B4-B1                                                   COMCARG COMCARG       98     A     
 COMCARG            BX3    X4                                                      COMCARG COMCARG       99     A     
 COMCARG            AX4    42                                                      COMCARG COMCARG      100     A     
 COMCARG            NG     X2,ARG4.1   IF DISPLAY ZERO REQUESTED                   COMCARG COMCARG      101     A     
 COMCARG            SX2    X4-1L0                                                  COMCARG COMCARG      102     A     
 COMCARG   ARG4.1   ZR     X3,ARGX     IF BLANK, RETURN                            COMCARG COMCARG      103     A     
 COMCARG            NZ     X2,ARG5     IF NOT *0*                                  COMCARG COMCARG      104     A     
 COMCARG            SX3    B0          CLEAR EQUIVALENCE                           COMCARG COMCARG      105     A     
 COMCARG            SX6    B0          CLEAR STATUS                                COMCARG COMCARG      106     A     
 COMCARG                                                                           COMCARG COMCARG      107     A     
 COMCARG  *         ENTER ARGUMENT.                                                COMCARG COMCARG      108     A     
 COMCARG                                                                           COMCARG COMCARG      109     A     
 COMCARG   ARG5     BX3    X0*X3       MERGE ARGUMENT AND STATUS                   COMCARG COMCARG      110     A     
 COMCARG            IX7    X3+X6                                                   COMCARG COMCARG      111     A     
 COMCARG            SA7    B2          STORE ARGUMENT                              COMCARG COMCARG      112     A     
 COMCARG            SB3    B2-B3       CHECK ADDR = ASV                            COMCARG COMCARG      113     A     
 COMCARG            NZ     B3,ARG6     IF NOT EQUAL                                COMCARG COMCARG      114     A     
 COMCARG            SA2    A2                                                      COMCARG COMCARG      115     A     
 COMCARG            MX3    12                                                      COMCARG COMCARG      116     A     
 COMCARG            BX4    -X3*X2                                                  COMCARG COMCARG      117     A     
 COMCARG            BX7    X3+X4       SET OP = -0 IF ONLY ONE ARGUMENT ALLOWED    COMCARG COMCARG      118     A     
 COMCARG            SA7    A2                                                      COMCARG COMCARG      119     A     
 COMCARG   ARG6     SB4    B4-B1       NEXT ARGUMENT                               COMCARG COMCARG      120     A     
 COMCARG            SA4    A4+B1                                                   COMCARG COMCARG      121     A     
 COMCARG            NZ     B4,ARG1     LOOP FOR ALL ARGUMENTS                      COMCARG COMCARG      122     A     
 COMCARG            SX1    B0          CLEAR ERROR                                 COMCARG COMCARG      123     A     
 COMCARG            EQ     ARGX        RETURN                                      COMCARG COMCARG      124     A     
 COMCARG   ARG      SPACE  4,10                                                    COMCARG COMCARG      125     A     
 COMCARG            BASE   *                                                       COMCARG COMCARG      126     A     
 COMCARG   QUAL$    IF     -DEF,QUAL$                                              COMCARG COMCARG      127     A     
 COMCARG            QUAL   *                                                       COMCARG COMCARG      128     A     
 COMCARG   ARG      EQU    /COMCARG/ARG                                            COMCARG COMCARG      129     A     
 COMCARG   ARG=     EQU    /COMCARG/ARG                                                    F4720D         5     A     
 COMCARG   QUAL$    ENDIF                                                          COMCARG COMCARG      130     A     
 COMCARG   ARG      ENDX                                                           COMCARG COMCARG      131     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCARG 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCARG                    131       131
          F4720D                       1         1
          CPS0287                      6         6
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCDD 
  
 COMCCDD  *COMDECK  COMCCDD            CONVERT CONSTANT TO DECIMAL DISPLAY CODE.   COMCCDD COMCCDD        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/28. 19.11.32.      PAGE  32    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCDD 
  
 COMCCDD   CDD      CTEXT  COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.  COMCCDD COMCCDD        2     A     
 COMCCDD   CDD      SPACE  4,10                                                    COMCCDD COMCCDD        3     A     
 COMCCDD            IF     -DEF,QUAL$,1                                            COMCCDD COMCCDD        4     A     
 COMCCDD            QUAL   COMCCDD                                                 COMCCDD COMCCDD        5     A     
 COMCCDD            BASE   D                                                       COMCCDD COMCCDD        6     A     
 COMCCDD  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCDD COMCCDD        7     A     
 COMCCDD   CDD      SPACE  4,10                                                    COMCCDD COMCCDD        8     A     
 COMCCDD  ***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.             COMCCDD COMCCDD        9     A     
 COMCCDD  *                                                                        COMCCDD COMCCDD       10     A     
 COMCCDD  *         G. R. MANSFIELD.   70/12/18.                                   COMCCDD COMCCDD       11     A     
 COMCCDD  *                                                                                CPSA245       14     A     
 COMCCDD  *         *******************************************************                CPSA245       15     A     
 COMCCDD  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       16     A     
 COMCCDD  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       17     A     
 COMCCDD  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       18     A     
 COMCCDD  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       19     A     
 COMCCDD  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       20     A     
 COMCCDD  *         *******************************************************                CPSA245       21     A     
 COMCCDD  *                                                                                CPSA245       22     A     
 COMCCDD  *                                                                        COMCCDD COMCCDD       12     A     
 COMCCDD  *         CDD CONVERTS AN INTEGER CONSTANT TO DECIMAL DISPLAY CODE.      COMCCDD COMCCDD       13     A     
 COMCCDD   CDD      SPACE  4,10                                                    COMCCDD COMCCDD       14     A     
 COMCCDD  ***       CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH              COMCCDD COMCCDD       15     A     
 COMCCDD  *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCDD COMCCDD       16     A     
 COMCCDD  *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCDD COMCCDD       17     A     
 COMCCDD  *                                                                        COMCCDD COMCCDD       18     A     
 COMCCDD  *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCDD COMCCDD       19     A     
 COMCCDD  *                (B1) = 1.                                               COMCCDD COMCCDD       20     A     
 COMCCDD  *                                                                        COMCCDD COMCCDD       21     A     
 COMCCDD  *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCDD COMCCDD       22     A     
 COMCCDD  *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCDD COMCCDD       23     A     
 COMCCDD  *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCDD COMCCDD       24     A     
 COMCCDD  *                                                                        COMCCDD COMCCDD       25     A     
 COMCCDD  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCDD COMCCDD       26     A     
 COMCCDD  *                B - 2, 3, 4.                                            COMCCDD COMCCDD       27     A     
 COMCCDD  *                A - 2, 3, 4.                                            COMCCDD COMCCDD       28     A     
 COMCCDD  *                                                                        COMCCDD COMCCDD       29     A     
 COMCCDD  *         CALLS  NONE.                                                   COMCCDD COMCCDD       30     A     
 COMCCDD                                                                           COMCCDD COMCCDD       31     A     
 COMCCDD                                                                           COMCCDD COMCCDD       32     A     
 COMCCDD   CDD1     DX6    X1*X2       COMPUTE QUOTIENT                            COMCCDD COMCCDD       33     A     
 COMCCDD            FX1    X1*X2                                                   COMCCDD COMCCDD       34     A     
 COMCCDD            UX7    X1          CHECK QUOTIENT                              COMCCDD COMCCDD       35     A     
 COMCCDD            LX4    -6          SHIFT ASSEMBLY                              COMCCDD COMCCDD       36     A     
 COMCCDD            SB2    B2+B4                                                   COMCCDD COMCCDD       37     A     
 COMCCDD            FX6    X6*X3       EXTRACT REMAINDER DIGIT                     COMCCDD COMCCDD       38     A     
 COMCCDD            SX6    X6+B3       CONVERT DIGIT                               COMCCDD COMCCDD       39     A     
 COMCCDD            IX4    X6+X4                                                   COMCCDD COMCCDD       40     A     
 COMCCDD            NZ     X7,CDD1     LOOP TO ZERO QUOTIENT                       COMCCDD COMCCDD       41     A     
 COMCCDD            LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCDD COMCCDD       42     A     
 COMCCDD            LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCDD COMCCDD       43     A     
 COMCCDD                                                                           COMCCDD COMCCDD       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/28. 19.11.32.      PAGE  33    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCDD 
  
 COMCCDD   CDD      SUBR               ENTRY/EXIT                                  COMCCDD COMCCDD       45     A     
 COMCCDD            SA2    CDDA        =.1P48+1                                    COMCCDD COMCCDD       46     A     
 COMCCDD            SA3    A2+B1       =10.P                                       COMCCDD COMCCDD       47     A     
 COMCCDD            PX1    X1                                                      COMCCDD COMCCDD       48     A     
 COMCCDD            SB2    B0          CLEAR JUSTIFY COUNT                         COMCCDD COMCCDD       49     A     
 COMCCDD            SA4    A3+B1       =1H                                         COMCCDD COMCCDD       50     A     
 COMCCDD            SB3    1R0-1R      (B3) = CONVERSION CONSTANT                  COMCCDD COMCCDD       51     A     
 COMCCDD            SB4    6           (B4) = SHIFT INCREMENT                      COMCCDD COMCCDD       52     A     
 COMCCDD            EQ     CDD1                                                    COMCCDD COMCCDD       53     A     
 COMCCDD                                                                           COMCCDD COMCCDD       54     A     
 COMCCDD   CDDA     CON    0.1P48+1                                                COMCCDD COMCCDD       55     A     
 COMCCDD            CON    10.P                                                    COMCCDD COMCCDD       56     A     
 COMCCDD            CON    1H                                                      COMCCDD COMCCDD       57     A     
 COMCCDD   CDD      SPACE  4,10                                                    COMCCDD COMCCDD       58     A     
 COMCCDD            BASE   *                                                       COMCCDD COMCCDD       59     A     
 COMCCDD   QUAL$    IF     -DEF,QUAL$                                              COMCCDD COMCCDD       60     A     
 COMCCDD            QUAL   *                                                       COMCCDD COMCCDD       61     A     
 COMCCDD   CDD      EQU    /COMCCDD/CDD                                            COMCCDD COMCCDD       62     A     
 COMCCDD   CDD=     EQU    /COMCCDD/CDD                                                    F4720D         6     A     
 COMCCDD   QUAL$    ENDIF                                                          COMCCDD COMCCDD       63     A     
 COMCCDD   CDD      ENDX                                                           COMCCDD COMCCDD       64     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCDD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCDD                     64        64
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCFD 
  
 COMCCFD  *COMDECK  COMCCFD            CONVERT CONSTANT TO F10.3 FORMAT.           COMCCFD COMCCFD        1     A     
 COMCCFD   CFD      CTEXT  COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.             COMCCFD COMCCFD        2     A     
 COMCCFD   CFD      SPACE  4,10                                                    COMCCFD COMCCFD        3     A     
 COMCCFD            IF     -DEF,QUAL$,1                                            COMCCFD COMCCFD        4     A     
 COMCCFD            QUAL   COMCCFD                                                 COMCCFD COMCCFD        5     A     
 COMCCFD            BASE   D                                                       COMCCFD COMCCFD        6     A     
 COMCCFD  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1971, 1978.        COMCCFD COMCCFD        7     A     
 COMCCFD   CFD      SPACE  4,10                                                    COMCCFD COMCCFD        8     A     
 COMCCFD  ***       CFD - CONVERT CONSTANT TO F10.3 FORMAT.                        COMCCFD COMCCFD        9     A     
 COMCCFD  *                                                                        COMCCFD COMCCFD       10     A     
 COMCCFD  *         J. C. BOHNHOFF.    71/08/15.                                   COMCCFD COMCCFD       11     A     
 COMCCFD  *         C. J. CONRAD.      81/08/06.                                           CPSA243        5     A     
 COMCCFD  *                                                                                CPSA243        6     A     
 COMCCFD  *         *******************************************************                CPSA243        7     A     
 COMCCFD  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA243        8     A     
 COMCCFD  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA243        9     A     
 COMCCFD  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA243       10     A     
 COMCCFD  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA243       11     A     
 COMCCFD  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA243       12     A     
 COMCCFD  *         *******************************************************                CPSA243       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/28. 19.11.32.      PAGE  34    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCFD 
  
 COMCCFD  *                                                                                CPSA243       14     A     
 COMCCFD  *                                                                        COMCCFD COMCCFD       12     A     
 COMCCFD  *         CFD CONVERTS AN INTEGER TO DISPLAY CODE WITH A DECIMAL POINT.  COMCCFD COMCCFD       13     A     
 COMCCFD   CFD      SPACE  4,10                                                    COMCCFD COMCCFD       14     A     
 COMCCFD  ***       CFD CONVERTS A 30 BIT INTEGER TO DISPLAY CODE IN               COMCCFD COMCCFD       15          I
          -CPSA243
 COMCCFD  *         FORTRAN F10.3 FORMAT. THE INTEGER REPRESENTS THE FLOATING      COMCCFD COMCCFD       16          I
          -CPSA243
 COMCCFD  *         POINT VALUE TIMES 1000. THE RESULTS ARE RIGHT AND LEFT         COMCCFD COMCCFD       17          I
          -CPSA243
 COMCCFD  *         JUSTIFIED WITH BLANK FILL AND LEADING ZEROS IN THE INTEGER     COMCCFD COMCCFD       18          I
          -CPSA243
 COMCCFD  *         PORTION ARE SUPPRESSED.                                        COMCCFD COMCCFD       19          I
          -CPSA243
 COMCCFD  ***       *CFD* CONVERTS A 30 BIT INTEGER TO DISPLAY CODE IN *FORTRAN*           CPSA243       15     A     
 COMCCFD  *         F10.34 FORMAT.  THE VALUE RETURNED IS EQUAL TO THE INPUT               CPSA243       16     A     
 COMCCFD  *         VALUE DIVIDED BY 1000D, THE RESULT IS RETURNED BOTH LEFT               CPSA243       17     A     
 COMCCFD  *         AND RIGHT JUSTIFIED AND LEADING ZEROS IN THE INTEGER PORTION           CPSA243       18     A     
 COMCCFD  *         ARE SUPPRESSED.  IF THE 30 BIT NUMBER EXCEEDS 999999.999               CPSA243       19     A     
 COMCCFD  *         (INPUT EXCEEDS 7346544777B) THE RESULT WILL BE **********.             CPSA243       20     A     
 COMCCFD  *         AN INPUT VALUE GREATER THAN 30 BITS IS TRUNCATED TO THE                CPSA243       21     A     
 COMCCFD  *         LOWER 30 BITS.                                                         CPSA243       22     A     
 COMCCFD  *                                                                        COMCCFD COMCCFD       20     A     
 COMCCFD  *         ENTRY  (X1) = INTEGER TO BE CONVERTED.                         COMCCFD COMCCFD       21     A     
 COMCCFD  *                (B1) = 1.                                               COMCCFD COMCCFD       22     A     
 COMCCFD  *                                                                        COMCCFD COMCCFD       23     A     
 COMCCFD  *         EXIT   (X6)= CONVERSION RIGHT JUSTIFIED.                       COMCCFD COMCCFD       24     A     
 COMCCFD  *                (X4)= CONVERSION LEFT JUSTIFIED.                        COMCCFD COMCCFD       25     A     
 COMCCFD  *                (B3) = -(NUMBER OF BLANK FILL BITS IN RESULT).          COMCCFD COMCCFD       26     A     
 COMCCFD  *                                                                        COMCCFD COMCCFD       27     A     
 COMCCFD  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCFD COMCCFD       28     A     
 COMCCFD  *                B - 2, 3, 4, 5.                                         COMCCFD COMCCFD       29     A     
 COMCCFD  *                A - 1, 2, 3, 4.                                         COMCCFD COMCCFD       30          I
          -CPSA243
 COMCCFD  *                A - 2, 3, 4.                                                    CPSA243       23     A     
 COMCCFD  *                                                                        COMCCFD COMCCFD       31     A     
 COMCCFD  *         CALLS  NONE.                                                   COMCCFD COMCCFD       32     A     
 COMCCFD                                                                           COMCCFD COMCCFD       33     A     
 COMCCFD                                                                           COMCCFD COMCCFD       34     A     
 COMCCFD   CFD3     SA1    CFDC        =10H    0.000                               COMCCFD COMCCFD       35          I
          -CPSA243
 COMCCFD            SB3    -30         SET NUMBER OF BLANK FILL BITS               COMCCFD COMCCFD       36          I
          -CPSA243
 COMCCFD            NO                                                             COMCCFD COMCCFD       37          I
          -CPSA243
 COMCCFD            SA4    A1+1        =10H0.000                                   COMCCFD COMCCFD       38          I
          -CPSA243
 COMCCFD            BX6    X1                                                      COMCCFD COMCCFD       39          I
          -CPSA243
 COMCCFD   CFD3     SA4    CFDC                                                            CPSA243       24     A     
 COMCCFD            SB3    B0                                                              CPSA243       25     A     
 COMCCFD            BX6    X4                                                              CPSA243       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/28. 19.11.32.      PAGE  35    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCFD 
  
 COMCCFD                                                                           COMCCFD COMCCFD       40     A     
 COMCCFD   CFD      SUBR               ENTRY/EXIT                                  COMCCFD COMCCFD       41     A     
 COMCCFD            SA2    CFDA        =.1P48+1                                    COMCCFD COMCCFD       42     A     
 COMCCFD            SA3    CFDB        =10.0P                                      COMCCFD COMCCFD       43     A     
 COMCCFD            MX4    -30                                                     COMCCFD COMCCFD       44          I
          -CPSA243
 COMCCFD            SA4    A2+B1       =7346544777B                                        CPSA243       27     A     
 COMCCFD            MX6    -30                                                             CPSA243       28     A     
 COMCCFD            SB5    6                                                       COMCCFD COMCCFD       45     A     
 COMCCFD            BX6    -X4*X1      CHECK FOR ZERO                              COMCCFD COMCCFD       46          I
          -CPSA243
 COMCCFD            BX6    -X6*X1      DISCARD UPPER BITS                                  CPSA243       29     A     
 COMCCFD            SX7    1000                                                    COMCCFD COMCCFD       47     A     
 COMCCFD            ZR     X6,CFD3     IF ZERO                                     COMCCFD COMCCFD       48          I
          -CPSA243
 COMCCFD            IX4    X4-X6                                                           CPSA243       30     A     
 COMCCFD            MI     X4,CFD3     IF INPUT .GT. 999999.999                            CPSA243       31     A     
 COMCCFD            SB4    1R0-1R      (B4) = CONVERSION                           COMCCFD COMCCFD       49     A     
 COMCCFD            SA4    A3+B1       (X4) = BACKGROUND                           COMCCFD COMCCFD       50     A     
 COMCCFD            PX1    X6                                                      COMCCFD COMCCFD       51     A     
 COMCCFD            IX7    X6-X7                                                   COMCCFD COMCCFD       52     A     
 COMCCFD            SB2    -B5                                                     COMCCFD COMCCFD       53     A     
 COMCCFD            PL     X7,CFD1     IF INTEGER PRESENT                          COMCCFD COMCCFD       54     A     
 COMCCFD            SB4    0                                                       COMCCFD COMCCFD       55          I
          -CPSA243
 COMCCFD            SA4    A4+1                                                    COMCCFD COMCCFD       56          I
          -CPSA243
 COMCCFD            SB4    B0                                                              CPSA243       32     A     
 COMCCFD            SA4    A4+B1                                                           CPSA243       33     A     
 COMCCFD   CFD1     DX6    X2*X1       EXTRACT REMAINDER                           COMCCFD COMCCFD       57     A     
 COMCCFD            FX1    X2*X1                                                   COMCCFD COMCCFD       58     A     
 COMCCFD            UX7    X1          CHECK QUOTIENT                              COMCCFD COMCCFD       59     A     
 COMCCFD            LX4    -6          SHIFT ASSEMBLY                              COMCCFD COMCCFD       60     A     
 COMCCFD            SB2    B2+B5       ADVANCE SHIFT COUNT                         COMCCFD COMCCFD       61     A     
 COMCCFD            FX6    X3*X6       EXTRACT DIGIT                               COMCCFD COMCCFD       62     A     
 COMCCFD            SX6    X6+B4       CONVERT DIGIT                               COMCCFD COMCCFD       63     A     
 COMCCFD            IX4    X6+X4                                                   COMCCFD COMCCFD       64     A     
 COMCCFD            NZ     X7,CFD1     LOOP TO ZERO QUOTIENT                       COMCCFD COMCCFD       65     A     
 COMCCFD            SX3    1R.         INSERT DECIMAL POINT                        COMCCFD COMCCFD       66     A     
 COMCCFD            MX2    -18         FRACTION MASK                               COMCCFD COMCCFD       67     A     
 COMCCFD            LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCFD COMCCFD       68     A     
 COMCCFD            SB2    B2+12       CALCULATE SHIFT TO LEFT JUSTIFY             COMCCFD COMCCFD       69     A     
 COMCCFD            LX3    18                                                      COMCCFD COMCCFD       70     A     
 COMCCFD            BX1    -X2*X6      EXTRACT FRACTION                            COMCCFD COMCCFD       71     A     
 COMCCFD            SB3    6*5                                                     COMCCFD COMCCFD       72     A     
 COMCCFD            IX7    X1+X3       ADD DECIMAL POINT                           COMCCFD COMCCFD       73     A     
 COMCCFD            BX4    X2*X6       EXTRACT INTEGER                             COMCCFD COMCCFD       74     A     
 COMCCFD            LX4    6                                                       COMCCFD COMCCFD       75     A     
 COMCCFD            IX6    X4+X7       ADD INTEGER INTO RESULT                     COMCCFD COMCCFD       76     A     
 COMCCFD            LT     B2,B3,CFD2  LEFT JUSTIFY RESULT                         COMCCFD COMCCFD       77     A     
 COMCCFD            SB3    B2+                                                     COMCCFD COMCCFD       78     A     
 COMCCFD   CFD2     SB3    B3-60                                                   COMCCFD COMCCFD       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/28. 19.11.32.      PAGE  36    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCFD 
  
 COMCCFD            AX4    X6,B3                                                   COMCCFD COMCCFD       80     A     
 COMCCFD            EQ     CFDX        RETURN                                      COMCCFD COMCCFD       81     A     
 COMCCFD                                                                           COMCCFD COMCCFD       82     A     
 COMCCFD   CFDA     CON    0.1P48+1                                                COMCCFD COMCCFD       83     A     
 COMCCFD            CON    7346544777B OVERFLOW BOUNDARY                                   CPSA243       34     A     
 COMCCFD   CFDB     CON    10.0P                                                   COMCCFD COMCCFD       84     A     
 COMCCFD            CON    9L                                                      COMCCFD COMCCFD       85     A     
 COMCCFD            CON    9L     0000                                             COMCCFD COMCCFD       86     A     
 COMCCFD   CFDC     CON    10H     0.000                                           COMCCFD COMCCFD       87          I
          -CPSA243
 COMCCFD            CON    10H0.000                                                COMCCFD COMCCFD       88          I
          -CPSA243
 COMCCFD   CFDC     DATA   10R**********                                                   CPSA243       35     A     
 COMCCFD   CFD      SPACE  4,10                                                    COMCCFD COMCCFD       89     A     
 COMCCFD            BASE   *                                                       COMCCFD COMCCFD       90     A     
 COMCCFD   QUAL$    IF     -DEF,QUAL$                                              COMCCFD COMCCFD       91     A     
 COMCCFD            QUAL   *                                                       COMCCFD COMCCFD       92     A     
 COMCCFD   CFD      EQU    /COMCCFD/CFD                                            COMCCFD COMCCFD       93     A     
 COMCCFD   CFD=     EQU    /COMCCFD/CFD                                                    F4720D         7     A     
 COMCCFD   QUAL$    ENDIF                                                          COMCCFD COMCCFD       94     A     
 COMCCFD   CFD      ENDX                                                           COMCCFD COMCCFD       95     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCFD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCFD                     95        77
          F4720D                       1         1
          CPSA243                     31        31
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO  *COMDECK  COMCCIO            I/O FUNCTION PROCESSOR.                     COMCCIO COMCCIO        1     A     
 COMCCIO   CIO      CTEXT  COMCCIO - I/O FUNCTION PROCESSOR.                       COMCCIO COMCCIO        2     A     
 COMCCIO   CIO      SPACE  4,10                                                    COMCCIO COMCCIO        3     A     
 COMCCIO            IF     -DEF,QUAL$,1                                            COMCCIO COMCCIO        4     A     
 COMCCIO            QUAL   COMCCIO                                                 COMCCIO COMCCIO        5     A     
 COMCCIO            BASE   D                                                       COMCCIO COMCCIO        6     A     
 COMCCIO            CODE   D                                                       COMCCIO COMCCIO        7     A     
 COMCCIO  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCIO COMCCIO        8     A     
 COMCCIO   CIO      SPACE  4,10                                                    COMCCIO COMCCIO        9     A     
 COMCCIO  ***       CIO - I/O FUNCTION PROCESSOR.                                  COMCCIO COMCCIO       10     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       11     A     
 COMCCIO  *         G. R. MANSFIELD.   70/10/09.                                   COMCCIO COMCCIO       12     A     
 COMCCIO  *                                                                                CPSA245       23     A     
 COMCCIO  *         *******************************************************                CPSA245       24     A     
 COMCCIO  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       25     A     
 COMCCIO  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       26     A     
 COMCCIO  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       27     A     
 COMCCIO  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       28     A     
 COMCCIO  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       29     A     
 COMCCIO  *         *******************************************************                CPSA245       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/28. 19.11.32.      PAGE  37    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO  *                                                                                CPSA245       31     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       13     A     
 COMCCIO  *         CIO ISSUES SYSTEM REQUESTS FOR I/O OPERATIONS.                 COMCCIO COMCCIO       14     A     
 COMCCIO   CIO      SPACE  4,10                                                    COMCCIO COMCCIO       15     A     
 COMCCIO  ***       CIO PERFORMS I/O FUNCTIONS VIA THE PP PROGRAM *CIO*.           COMCCIO COMCCIO       16     A     
 COMCCIO  *         THE OPERATION WILL BE PROCESSED WHEN THE BUFFER IS NOT BUSY.   COMCCIO COMCCIO       17     A     
 COMCCIO  *         IF THE FILE STATUS WORD = 0, THE OPERATION WILL NOT BE         COMCCIO COMCCIO       18     A     
 COMCCIO  *         PROCESSED AND IN AND OUT WILL BE SET TO FIRST.                 COMCCIO COMCCIO       19     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       20     A     
 COMCCIO  *         ENTRY  (X2) (BITS 17 - 0) = ADDRESS OF FET FOR FILE.           COMCCIO COMCCIO       21     A     
 COMCCIO  *                (X2) (BITS 35 - 18) = SKIP COUNT TO CIO.                COMCCIO COMCCIO       22     A     
 COMCCIO  *                (X2) (BIT 59) = 1 IF ASTERISK OPTION SPECIFIED ON               CPS0307        7     A     
 COMCCIO  *                     *CPCOM* MACRO FOR WHICH THE FUNCTION CODE IS               CPS0307        8     A     
 COMCCIO  *                     SET IN THE FET BUT *CIO* IS NOT CALLED (THAT               CPS0307        9     A     
 COMCCIO  *                     IS, THE I/O FUNCTION IS NOT PERFORMED).                    CPS0307       10     A     
 COMCCIO  *                (X7) = FUNCTION CODE.                                   COMCCIO COMCCIO       23     A     
 COMCCIO  *                IF (X7) .LT. 0, (X7) IS COMPLEMENT OF REQUEST, AND      COMCCIO COMCCIO       24     A     
 COMCCIO  *                AUTO RECALL WILL BE REQUESTED.                          COMCCIO COMCCIO       25     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       26     A     
 COMCCIO  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCCIO COMCCIO       27     A     
 COMCCIO  *                (X7) = 0.                                               COMCCIO COMCCIO       28     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       29     A     
 COMCCIO  *                IF *ERP$* IS DEFINED -                                  COMCCIO COMCCIO       30     A     
 COMCCIO  *                (X2) = FET ADDRESS.                                     COMCCIO COMCCIO       31     A     
 COMCCIO  *                (X7) = 0 IF NO ERROR CODE IN FET.  FUNCTION ISSUED.     COMCCIO COMCCIO       32     A     
 COMCCIO  *                       NORMAL EXIT.                                     COMCCIO COMCCIO       33     A     
 COMCCIO  *                (X7) = ERROR CODE FROM FET.  FUNCTION NOT ISSUED.       COMCCIO COMCCIO       34     A     
 COMCCIO  *                       EXIT TO *ERP$*.                                  COMCCIO COMCCIO       35     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       36     A     
 COMCCIO  *                IF *ERP1$* IS DEFINED -                                 COMCCIO COMCCIO       37     A     
 COMCCIO  *                (X2) = FET ADDRESS.                                     COMCCIO COMCCIO       38     A     
 COMCCIO  *                (X7) = 0 IF NO ERROR CODE IN FET.  FUNCTION ISSUED.     COMCCIO COMCCIO       39     A     
 COMCCIO  *                       NORMAL EXIT.                                     COMCCIO COMCCIO       40     A     
 COMCCIO  *                (X7) = ERROR CODE FROM FET.  FUNCTION NOT ISSUED.       COMCCIO COMCCIO       41     A     
 COMCCIO  *                       NORMAL EXIT.                                     COMCCIO COMCCIO       42     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       43     A     
 COMCCIO  *         USES   X - 1, 2, 6, 7.                                         COMCCIO COMCCIO       44     A     
 COMCCIO  *                B - NONE.                                               COMCCIO COMCCIO       45     A     
 COMCCIO  *                A - 1, 6, 7.                                            COMCCIO COMCCIO       46     A     
 COMCCIO  *                                                                        COMCCIO COMCCIO       47     A     
 COMCCIO  *         CALLS  NONE.                                                   COMCCIO COMCCIO       48          I
          -CPS0303
 COMCCIO  *         MACROS RECALL, SYSTEM.                                                 CPS0303        4     A     
 COMCCIO                                                                           COMCCIO COMCCIO       49     A     
 COMCCIO                                                                           COMCCIO COMCCIO       50     A     
 COMCCIO   ERP$     IF     DEF,ERP$                                                COMCCIO COMCCIO       51     A     
 COMCCIO   CIO1     BX7    X1          SET ERROR STATUS                            COMCCIO COMCCIO       52     A     
 COMCCIO            SX2    X2          UNPACK FET ADDRESS                          COMCCIO COMCCIO       53     A     
 COMCCIO            EQ     ERP$        EXIT TO ERROR PROCESSOR                     COMCCIO COMCCIO       54     A     
 COMCCIO   ERP$     ELSE                                                           COMCCIO COMCCIO       55     A     
 COMCCIO   ERP$     IF     DEF,ERP1$                                               COMCCIO COMCCIO       56     A     
 COMCCIO   CIO1     BX7    X1          SET ERROR STATUS                            COMCCIO COMCCIO       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/28. 19.11.32.      PAGE  38    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO            SX2    X2          UNPACK FET ADDRESS                          COMCCIO COMCCIO       58     A     
 COMCCIO            EQ     CIOX        RETURN                                      COMCCIO COMCCIO       59          I
          -CPSA104
 COMCCIO            EQ     CIO=        RETURN                                      CPSA104 CPSA104       12     A     
 COMCCIO   ERP$     ENDIF                                                          COMCCIO COMCCIO       60     A     
 COMCCIO                                                                           COMCCIO COMCCIO       61     A     
 COMCCIO   CIO2     RECALL X2          WAIT COMPLETION OF LAST REQUEST             COMCCIO COMCCIO       62     A     
 COMCCIO   CIO3     MX6    42          FILE NAME MASK                              COMCCIO COMCCIO       63     A     
 COMCCIO   ERP$     IF     -DEF,ERP$                                               COMCCIO COMCCIO       64     A     
 COMCCIO   ERP$     IF     -DEF,ERP1$                                              COMCCIO COMCCIO       65     A     
 COMCCIO            SX1    2           FILE MODE MASK                              COMCCIO COMCCIO       66     A     
 COMCCIO   ERP$     ELSE                                                           COMCCIO COMCCIO       67     A     
 COMCCIO            SX1    36002B      ERROR CODE AND FILE MODE MASK               COMCCIO COMCCIO       68     A     
 COMCCIO   ERP$     ENDIF                                                          COMCCIO COMCCIO       69     A     
 COMCCIO            BX6    X6+X1                                                   COMCCIO COMCCIO       70     A     
 COMCCIO            SA1    X2          SET FILE NAME, MODE AND ERROR CODE          COMCCIO COMCCIO       71     A     
 COMCCIO            BX1    X6*X1                                                   COMCCIO COMCCIO       72     A     
 COMCCIO            SX6    3RCIO       SET *CIO* REQUEST                           COMCCIO COMCCIO       73     A     
 COMCCIO            PL     X7,CIO4     IF NO AUTO RECALL WITH REQUEST              COMCCIO COMCCIO       74          I
          -CPS0307
 COMCCIO            PL     X2,CIO4     IF NOT ASTERISK OPTION                              CPS0307       11     A     
 COMCCIO            BX7    X1+X7       MERGE FUNCTION CODE WITH FILE NAME                  CPS0307       12     A     
 COMCCIO            SX2    X2          CLEAR BIT 2**59                                     CPS0307       13     A     
 COMCCIO            SA7    A1          STORE FET STATUS                                    CPS0307       14     A     
 COMCCIO            BX7    X7-X7       CLEAR ERROR STATUS                                  CPS0307       15     A     
 COMCCIO            EQ     CIO=        RETURN                                              CPS0307       16     A     
 COMCCIO                                                                                   CPS0307       17     A     
 COMCCIO   CIO4     PL     X7,CIO5     IF NO AUTO RECALL WITH REQUEST                      CPS0307       18     A     
 COMCCIO            BX7    -X7                                                     COMCCIO COMCCIO       75     A     
 COMCCIO            PX6    X6          SET AUTO RECALL                             COMCCIO COMCCIO       76     A     
 COMCCIO   CIO4     BX7    X1+X7       MERGE FUNCTION CODE WITH FILE NAME          COMCCIO COMCCIO       77          I
          -CPS0307
 COMCCIO   CIO5     BX7    X1+X7       MERGE FUNCTION CODE WITH FILE NAME                  CPS0307       19     A     
 COMCCIO            LX6    42                                                      COMCCIO COMCCIO       78     A     
 COMCCIO   ERP$     IF     -DEF,ERP$                                               COMCCIO COMCCIO       79     A     
 COMCCIO   ERP$     IF     -DEF,ERP1$                                              COMCCIO COMCCIO       80     A     
 COMCCIO            SA7    X2          STORE FET STATUS                            COMCCIO COMCCIO       81     A     
 COMCCIO            BX6    X6+X2       MERGE *CIO* REQUEST AND FET ADDRESS         COMCCIO COMCCIO       82     A     
 COMCCIO   ERP$     ELSE                                                           COMCCIO COMCCIO       83     A     
 COMCCIO            SX1    X1          UNPACK ERROR CODE                           COMCCIO COMCCIO       84     A     
 COMCCIO            BX6    X6+X2       MERGE *CIO* REQUEST AND FET ADDRESS         COMCCIO COMCCIO       85     A     
 COMCCIO            AX1    10                                                      COMCCIO COMCCIO       86     A     
 COMCCIO            NZ     X1,CIO1     IF ERROR ON LAST OPERATION                  COMCCIO COMCCIO       87     A     
 COMCCIO            SA7    X2          STORE FET STATUS                            COMCCIO COMCCIO       88     A     
 COMCCIO   ERP$     ENDIF                                                          COMCCIO COMCCIO       89     A     
 COMCCIO            SX2    X2          UNPACK FET ADDRESS                          COMCCIO COMCCIO       90     A     
 COMCCIO            BX7    X7-X7       CLEAR ERROR STATUS                          COMCCIO COMCCIO       91     A     
 COMCCIO            SYSTEM             MAKE REQUEST TO *CIO*                       COMCCIO COMCCIO       92     A     
 COMCCIO                                                                           COMCCIO COMCCIO       93     A     
 COMCCIO   CIO=     SUBR               ENTRY/EXIT                                  COMCCIO COMCCIO       94     A     
 COMCCIO            SA1    X2          CHECK FET STATUS                            COMCCIO COMCCIO       95     A     
 COMCCIO            LX1    59-0                                                    COMCCIO COMCCIO       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/28. 19.11.32.      PAGE  39    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCIO 
  
 COMCCIO            NG     X1,CIO3     IF FET NOT BUSY                             COMCCIO COMCCIO       97     A     
 COMCCIO            NZ     X1,CIO2     IF NOT BLANK FET STATUS                     COMCCIO COMCCIO       98     A     
 COMCCIO   QUAL$    IF     DEF,B1=1                                                COMCCIO COMCCIO       99     A     
 COMCCIO            SA1    X2+B1       SET FIRST = IN = OUT                        COMCCIO COMCCIO      100     A     
 COMCCIO            SX6    X1                                                      COMCCIO COMCCIO      101     A     
 COMCCIO            SA6    A1+B1                                                   COMCCIO COMCCIO      102     A     
 COMCCIO            SA6    A6+B1                                                   COMCCIO COMCCIO      103     A     
 COMCCIO   QUAL$    ELSE                                                           COMCCIO COMCCIO      104     A     
 COMCCIO            SA1    X2+1        SET FIRST = IN = OUT                        COMCCIO COMCCIO      105     A     
 COMCCIO            SX6    X1                                                      COMCCIO COMCCIO      106          I
          -CPS0307
 COMCCIO            SX6    X1+                                                             CPS0307       20     A     
 COMCCIO            SA6    X2+2                                                    COMCCIO COMCCIO      107     A     
 COMCCIO            SA6    X2+3                                                    COMCCIO COMCCIO      108     A     
 COMCCIO   QUAL$    ENDIF                                                          COMCCIO COMCCIO      109     A     
 COMCCIO            SX2    X2+         SET FET ADDRESS                                     CPS0307       21     A     
 COMCCIO            EQ     CIOX        RETURN                                      COMCCIO COMCCIO      110          I
          -CPSA104
 COMCCIO            EQ     CIO=        RETURN                                      CPSA104 CPSA104       13     A     
 COMCCIO   CIO      SPACE  4,10                                                    COMCCIO COMCCIO      111     A     
 COMCCIO            BASE   *                                                       COMCCIO COMCCIO      112     A     
 COMCCIO            CODE   *                                                       COMCCIO COMCCIO      113     A     
 COMCCIO   QUAL$    IF     -DEF,QUAL$                                              COMCCIO COMCCIO      114     A     
 COMCCIO            QUAL   *                                                       COMCCIO COMCCIO      115     A     
 COMCCIO   CIO=     EQU    /COMCCIO/CIO=                                           COMCCIO COMCCIO      116     A     
 COMCCIO   QUAL$    ENDIF                                                          COMCCIO COMCCIO      117     A     
 COMCCIO   CIO      ENDX                                                           COMCCIO COMCCIO      118     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCIO 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCIO                    118       112
          CPSA104                      2         2
          CPS0303                      1         1
          CPS0307                     15        15
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCOD 
  
 COMCCOD  *COMDECK  COMCCOD            CONVERT CONSTANT TO OCTAL DISPLAY CODE.     COMCCOD COMCCOD        1     A     
 COMCCOD   COD      CTEXT  COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.    COMCCOD COMCCOD        2     A     
 COMCCOD   COD      SPACE  4,10                                                    COMCCOD COMCCOD        3     A     
 COMCCOD            IF     -DEF,QUAL$,1                                            COMCCOD COMCCOD        4     A     
 COMCCOD            QUAL   COMCCOD                                                 COMCCOD COMCCOD        5     A     
 COMCCOD            BASE   D                                                       COMCCOD COMCCOD        6     A     
 COMCCOD  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCOD COMCCOD        7     A     
 COMCCOD   COD      SPACE  4,10                                                    COMCCOD COMCCOD        8     A     
 COMCCOD  ***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.               COMCCOD COMCCOD        9     A     
 COMCCOD  *                                                                        COMCCOD COMCCOD       10     A     
 COMCCOD  *         G. R. MANSFIELD.   70/12/18.                                   COMCCOD COMCCOD       11     A     
 COMCCOD  *                                                                                CPSA245       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/28. 19.11.32.      PAGE  40    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCOD 
  
 COMCCOD  *         *******************************************************                CPSA245       33     A     
 COMCCOD  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       34     A     
 COMCCOD  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       35     A     
 COMCCOD  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       36     A     
 COMCCOD  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       37     A     
 COMCCOD  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       38     A     
 COMCCOD  *         *******************************************************                CPSA245       39     A     
 COMCCOD  *                                                                                CPSA245       40     A     
 COMCCOD  *                                                                        COMCCOD COMCCOD       12     A     
 COMCCOD  *         COD CONVERTS AN INTEGER CONSTANT TO OCTAL DISPLAY CODE.        COMCCOD COMCCOD       13     A     
 COMCCOD   COD      SPACE  4,10                                                    COMCCOD COMCCOD       14     A     
 COMCCOD  ***       COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH              COMCCOD COMCCOD       15     A     
 COMCCOD  *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCOD COMCCOD       16     A     
 COMCCOD  *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCOD COMCCOD       17     A     
 COMCCOD  *                                                                        COMCCOD COMCCOD       18     A     
 COMCCOD  *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCOD COMCCOD       19     A     
 COMCCOD  *                (B1) = 1.                                               COMCCOD COMCCOD       20     A     
 COMCCOD  *                                                                        COMCCOD COMCCOD       21     A     
 COMCCOD  *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCOD COMCCOD       22     A     
 COMCCOD  *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCOD COMCCOD       23     A     
 COMCCOD  *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCOD COMCCOD       24     A     
 COMCCOD  *                                                                        COMCCOD COMCCOD       25     A     
 COMCCOD  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCOD COMCCOD       26     A     
 COMCCOD  *                B - 2, 3, 4.                                            COMCCOD COMCCOD       27     A     
 COMCCOD  *                A - 4.                                                  COMCCOD COMCCOD       28     A     
 COMCCOD  *                                                                        COMCCOD COMCCOD       29     A     
 COMCCOD  *         CALLS  NONE.                                                   COMCCOD COMCCOD       30     A     
 COMCCOD                                                                           COMCCOD COMCCOD       31     A     
 COMCCOD                                                                           COMCCOD COMCCOD       32     A     
 COMCCOD   COD      SUBR               ENTRY/EXIT                                  COMCCOD COMCCOD       33     A     
 COMCCOD            SA4    CODA        =1H                                         COMCCOD COMCCOD       34     A     
 COMCCOD            SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD COMCCOD       35     A     
 COMCCOD            MX2    -3          (X2) = DIGIT MASK                           COMCCOD COMCCOD       36     A     
 COMCCOD            SB2    B0          CLEAR JUSTIFY COUNT                         COMCCOD COMCCOD       37     A     
 COMCCOD            SB4    1R0-1R      (B4) = CONVERSION COUNT                     COMCCOD COMCCOD       38     A     
 COMCCOD   COD1     BX7    -X2*X1      EXTRACT DIGIT                               COMCCOD COMCCOD       39     A     
 COMCCOD            LX4    -6          SHIFT ASSEMBLY                              COMCCOD COMCCOD       40     A     
 COMCCOD            SB2    B2+B3                                                   COMCCOD COMCCOD       41     A     
 COMCCOD            SX3    X7+B4       CONVERT DIGIT                               COMCCOD COMCCOD       42     A     
 COMCCOD            AX1    3           SHIFT OFF DIGIT                             COMCCOD COMCCOD       43     A     
 COMCCOD            IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD COMCCOD       44     A     
 COMCCOD            NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD COMCCOD       45     A     
 COMCCOD            LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD COMCCOD       46     A     
 COMCCOD            LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD COMCCOD       47     A     
 COMCCOD            EQ     CODX        RETURN                                      COMCCOD COMCCOD       48     A     
 COMCCOD                                                                           COMCCOD COMCCOD       49     A     
 COMCCOD   CODA     CON    1H                                                      COMCCOD COMCCOD       50     A     
 COMCCOD   COD      SPACE  4,10                                                    COMCCOD COMCCOD       51     A     
 COMCCOD            BASE   *                                                       COMCCOD COMCCOD       52     A     
 COMCCOD   QUAL$    IF     -DEF,QUAL$                                              COMCCOD COMCCOD       53     A     
 COMCCOD            QUAL   *                                                       COMCCOD COMCCOD       54     A     
 COMCCOD   COD      EQU    /COMCCOD/COD                                            COMCCOD COMCCOD       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/28. 19.11.32.      PAGE  41    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCOD 
  
 COMCCOD   COD=     EQU    /COMCCOD/COD                                                    F4720D         8     A     
 COMCCOD   QUAL$    ENDIF                                                          COMCCOD COMCCOD       56     A     
 COMCCOD   COD      ENDX                                                           COMCCOD COMCCOD       57     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCOD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCOD                     57        57
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCPM 
  
 COMCCPM  *COMDECK COMCCPM                                                                 COMCCPM        1     A     
 COMCCPM            CTEXT  COMCCPM - CONTROL POINT MANAGER PROCESSOR.                      COMCCPM        2     A     
 COMCCPM   CPM      SPACE  4                                                               COMCCPM        3     A     
 COMCCPM            IF     -DEF,QUAL$,1                                                    COMCCPM        4     A     
 COMCCPM            QUAL   COMCCPM                                                         COMCCPM        5     A     
 COMCCPM            BASE   D                                                               COMCCPM        6     A     
 COMCCPM  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMCCPM        7     A     
 COMCCPM   CPM      SPACE  4                                                               COMCCPM        8     A     
 COMCCPM  ***       CPM - CONTROL POINT MANAGER PROCESSOR.                                 COMCCPM        9     A     
 COMCCPM  *                                                                                COMCCPM       10     A     
 COMCCPM  *         G. R. MANSFIELD.  70/10/09.                                            COMCCPM       11     A     
 COMCCPM  *                                                                                COMCCPM       12     A     
 COMCCPM  *         *******************************************************                COMCCPM       13     A     
 COMCCPM  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                COMCCPM       14     A     
 COMCCPM  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                COMCCPM       15     A     
 COMCCPM  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                COMCCPM       16     A     
 COMCCPM  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                COMCCPM       17     A     
 COMCCPM  *         * THROUGH THE PROPER PROCEDURE.                       *                COMCCPM       18     A     
 COMCCPM  *         *******************************************************                COMCCPM       19     A     
 COMCCPM  *                                                                                COMCCPM       20     A     
 COMCCPM  *                                                                                COMCCPM       21     A     
 COMCCPM  *         CPM CALLS THE PP PROGRAM *CPM*.                                        COMCCPM       22     A     
 COMCCPM   CPM      SPACE  4                                                               COMCCPM       23     A     
 COMCCPM  ***       CPM CALLS THE PP PROGRAM *CPM* TO PERFORM TASKS                        COMCCPM       24     A     
 COMCCPM  *         INVOLVING CONTROL POINT ACTIVITY.                                      COMCCPM       25     A     
 COMCCPM  *                                                                                COMCCPM       26     A     
 COMCCPM  *         ENTRY  (X1) = PARAMETER.                                               COMCCPM       27     A     
 COMCCPM  *                (X2) = REQUEST.                                                 COMCCPM       28     A     
 COMCCPM  *                                                                                COMCCPM       29     A     
 COMCCPM  *         EXIT   NONE.                                                           COMCCPM       30     A     
 COMCCPM  *                                                                                COMCCPM       31     A     
 COMCCPM  *         USES   X - 1, 2, 6.                                                    COMCCPM       32     A     
 COMCCPM  *                B - NONE.                                                       COMCCPM       33     A     
 COMCCPM  *                A - NONE.                                                       COMCCPM       34     A     
 COMCCPM  *                                                                                COMCCPM       35     A     
 COMCCPM  *         CALLS  SYS=.                                                           COMCCPM       36     A     
 COMCCPM                                                                                   COMCCPM       37     A     
 COMCCPM                                                                                   COMCCPM       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/28. 19.11.32.      PAGE  42    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCPM 
  
 COMCCPM   CPM1     RJ     =XSYS=      ISSUE REQUEST                                       COMCCPM       39     A     
 COMCCPM                                                                                   COMCCPM       40     A     
 COMCCPM   CPM=     PS                 ENTRY/EXIT                                          COMCCPM       41     A     
 COMCCPM            MX6    -24         FORM REQUEST                                        COMCCPM       42     A     
 COMCCPM            BX1    -X6*X1                                                          COMCCPM       43     A     
 COMCCPM            LX2    24                                                              COMCCPM       44     A     
 COMCCPM            SX6    4RCPMP/16                                                       COMCCPM       45     A     
 COMCCPM            BX1    X2+X1                                                           COMCCPM       46     A     
 COMCCPM            LX6    40                                                              COMCCPM       47     A     
 COMCCPM            BX6    X6+X1                                                           COMCCPM       48     A     
 COMCCPM            EQ     CPM1                                                            COMCCPM       49     A     
 COMCCPM            SPACE  4                                                               COMCCPM       50     A     
 COMCCPM            BASE   *                                                               COMCCPM       51     A     
 COMCCPM   QUAL$    IF     -DEF,QUAL$                                                      COMCCPM       52     A     
 COMCCPM            QUAL   *                                                               COMCCPM       53     A     
 COMCCPM   CPM=     EQU    /COMCCPM/CPM=                                                   COMCCPM       54     A     
 COMCCPM   QUAL$    ENDIF                                                                  COMCCPM       55     A     
 COMCCPM            ENDX                                                                   COMCCPM       56     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCPM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCPM                     56        56
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCPT 
  
 COMCCPT  *COMDECK  COMCCPT            COPY PREFIX TABLE.                          COMCCPT COMCCPT        1     A     
 COMCCPT   CPT      CTEXT  COMCCPT - COPY PREFIX TABLE.                            COMCCPT COMCCPT        2     A     
 COMCCPT   CPT      SPACE  4,10                                                    COMCCPT COMCCPT        3     A     
 COMCCPT            IF     -DEF,QUAL$,1                                            COMCCPT COMCCPT        4     A     
 COMCCPT            QUAL   COMCCPT                                                 COMCCPT COMCCPT        5     A     
 COMCCPT            BASE   D                                                       COMCCPT COMCCPT        6     A     
 COMCCPT            CODE   D                                                       COMCCPT COMCCPT        7     A     
 COMCCPT  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1973, 1978.        COMCCPT COMCCPT        8     A     
 COMCCPT   CPT      SPACE  4,10                                                    COMCCPT COMCCPT        9     A     
 COMCCPT  ***       CPT - COPY PREFIX TABLE.                                       COMCCPT COMCCPT       10     A     
 COMCCPT  *                                                                        COMCCPT COMCCPT       11     A     
 COMCCPT  *         P. D. HAAS.        73/10/12.                                   COMCCPT COMCCPT       12     A     
 COMCCPT  *                                                                                CPSA245       41     A     
 COMCCPT  *         *******************************************************                CPSA245       42     A     
 COMCCPT  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       43     A     
 COMCCPT  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       44     A     
 COMCCPT  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       45     A     
 COMCCPT  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       46     A     
 COMCCPT  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       47     A     
 COMCCPT  *         *******************************************************                CPSA245       48     A     
 COMCCPT  *                                                                                CPSA245       49     A     
 COMCCPT  *                                                                        COMCCPT COMCCPT       13     A     
 COMCCPT  *         CPT EXTRACTS THE COMMENTS FIELD FROM A PREFIX TABLE.           COMCCPT COMCCPT       14     A     
 COMCCPT   CPT      SPACE  4,10                                                    COMCCPT COMCCPT       15     A     
 COMCCPT  ***       CPT COPIES THE COMMENTS FIELD OF A PREFIX (7700) TABLE.        COMCCPT COMCCPT       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/28. 19.11.32.      PAGE  43    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCPT 
  
 COMCCPT  *         BOTH OLD AND NEW FORMS OF THE PREFIX TABLE ARE HANDLED,        COMCCPT COMCCPT       17     A     
 COMCCPT  *         AND ARE DIFFERENTIATED BY CHECKING IF WORD (FWA+3) OF THE      COMCCPT COMCCPT       18     A     
 COMCCPT  *         PREFIX TABLE LOOKS LIKE A TIME-OF-DAY WORD.  THE COPY          COMCCPT COMCCPT       19     A     
 COMCCPT  *         TERMINATES ON END OF TABLE, ZERO BYTE, OR *COPYRIGHT*          COMCCPT COMCCPT       20     A     
 COMCCPT  *         AND THE WORKING STORAGE AREA IS TERMINATED BY A ZERO WORD.     COMCCPT COMCCPT       21     A     
 COMCCPT  *                                                                        COMCCPT COMCCPT       22     A     
 COMCCPT  *         ENTRY  (A1) = PREFIX TABLE ADDRESS.                            COMCCPT COMCCPT       23     A     
 COMCCPT  *                (X1) = CONTROL WORD.                                    COMCCPT COMCCPT       24     A     
 COMCCPT  *                (A6) = ADDRESS OF WORKING STORAGE - 1.                  COMCCPT COMCCPT       25     A     
 COMCCPT  *                (B1) = 1.                                               COMCCPT COMCCPT       26     A     
 COMCCPT  *                                                                        COMCCPT COMCCPT       27     A     
 COMCCPT  *         EXIT   NONE.                                                   COMCCPT COMCCPT       28     A     
 COMCCPT  *                                                                        COMCCPT COMCCPT       29     A     
 COMCCPT  *         USES   A - 2, 3, 4, 6.                                         COMCCPT COMCCPT       30     A     
 COMCCPT  *                B - 3, 4.                                               COMCCPT COMCCPT       31     A     
 COMCCPT  *                X - 1, 2, 3, 4, 6.                                      COMCCPT COMCCPT       32     A     
 COMCCPT  *                                                                        COMCCPT COMCCPT       33     A     
 COMCCPT  *         CALLS  NONE.                                                   COMCCPT COMCCPT       34     A     
 COMCCPT                                                                           COMCCPT COMCCPT       35     A     
 COMCCPT                                                                           COMCCPT COMCCPT       36     A     
 COMCCPT   CPT      SUBR               ENTRY/EXIT                                  COMCCPT COMCCPT       37     A     
 COMCCPT            LX1    18                                                      COMCCPT COMCCPT       38     A     
 COMCCPT            SX3    X1-770000B  CHECK FOR PREFIX TABLE                      COMCCPT COMCCPT       39     A     
 COMCCPT            LX1    6                                                       COMCCPT COMCCPT       40     A     
 COMCCPT            NZ     X3,CPT2     IF NO PREFIX TABLE                          COMCCPT COMCCPT       41     A     
 COMCCPT            SB4    B1+B1                                                   COMCCPT COMCCPT       42     A     
 COMCCPT            SB3    X1+B1       SET LENGTH OF TABLE                         COMCCPT COMCCPT       43     A     
 COMCCPT            SA3    CPTA                                                    COMCCPT COMCCPT       44     A     
 COMCCPT            LE     B3,B4,CPT2  IF TOO SHORT TO COPY                        COMCCPT COMCCPT       45     A     
 COMCCPT            SA4    A1+3                                                    COMCCPT COMCCPT       46     A     
 COMCCPT            BX1    X3*X4                                                   COMCCPT COMCCPT       47     A     
 COMCCPT            SA2    A3+B1                                                   COMCCPT COMCCPT       48     A     
 COMCCPT            SA4    A1+B4                                                   COMCCPT COMCCPT       49     A     
 COMCCPT            BX6    X1-X2                                                   COMCCPT COMCCPT       50     A     
 COMCCPT            SA3    A2+B1                                                   COMCCPT COMCCPT       51     A     
 COMCCPT            MX1    -12                                                     COMCCPT COMCCPT       52     A     
 COMCCPT            NZ     X6,CPT1     IF OLD TABLE FORMAT                         COMCCPT COMCCPT       53     A     
 COMCCPT            SB4    7                                                       COMCCPT COMCCPT       54          I
          -CPSA104
 COMCCPT            SB4    10B         INDEX TO COMMENTS FIELD                     CPSA104 CPSA104       14     A     
 COMCCPT            LE     B3,B4,CPT2  IF TOO SHORT TO COPY                        CPSA104 CPSA104       15     A     
 COMCCPT            SA4    A1+B4                                                   CPSA104 CPSA104       16     A     
 COMCCPT   CPT1     BX2    X4-X3                                                   COMCCPT COMCCPT       55     A     
 COMCCPT            LX6    X4                                                      COMCCPT COMCCPT       56     A     
 COMCCPT            ZR     X2,CPT2     IF *COPYRIGHT*                              COMCCPT COMCCPT       57     A     
 COMCCPT            BX4    -X1*X4                                                  COMCCPT COMCCPT       58     A     
 COMCCPT            SA6    A6+B1                                                   COMCCPT COMCCPT       59     A     
 COMCCPT            ZR     X4,CPTX     IF END OF DATA                              COMCCPT COMCCPT       60     A     
 COMCCPT            SB4    B4+B1                                                   COMCCPT COMCCPT       61     A     
 COMCCPT            SA4    A1+B4       READ NEXT ENTRY                             COMCCPT COMCCPT       62     A     
 COMCCPT            NE     B4,B3,CPT1                                              COMCCPT COMCCPT       63     A     
 COMCCPT   CPT2     BX6    X6-X6       CLEAR END OF BUFFER                         COMCCPT COMCCPT       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/28. 19.11.32.      PAGE  44    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCCPT 
  
 COMCCPT            SA6    A6+B1                                                   COMCCPT COMCCPT       65     A     
 COMCCPT            EQ     CPTX        RETURN                                      COMCCPT COMCCPT       66     A     
 COMCCPT                                                                           COMCCPT COMCCPT       67     A     
 COMCCPT   CPTA     VFD    18/77B,18/77B,24/7777B                                  COMCCPT COMCCPT       68     A     
 COMCCPT            VFD    12/0,6/1H.,12/0,6/1H.,12/0,12/2H.                       COMCCPT COMCCPT       69     A     
 COMCCPT            DATA   10HCOPYRIGHT                                            COMCCPT COMCCPT       70     A     
 COMCCPT   CPT      SPACE  4,10                                                    COMCCPT COMCCPT       71     A     
 COMCCPT            BASE   *                                                       COMCCPT COMCCPT       72     A     
 COMCCPT            CODE   *                                                       COMCCPT COMCCPT       73     A     
 COMCCPT   QUAL$    IF     -DEF,QUAL$                                              COMCCPT COMCCPT       74     A     
 COMCCPT            QUAL   *                                                       COMCCPT COMCCPT       75     A     
 COMCCPT   CPT      EQU    /COMCCPT/CPT                                            COMCCPT COMCCPT       76     A     
 COMCCPT   CPT=     EQU    /COMCCPT/CPT                                                    F4720D         9     A     
 COMCCPT   QUAL$    ENDIF                                                          COMCCPT COMCCPT       77     A     
 COMCCPT   CPT      ENDX                                                           COMCCPT COMCCPT       78     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCCPT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCCPT                     78        77
          CPSA104                      3         3
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB  *COMDECK  COMCDXB            CONVERT DISPLAY CODE TO BINARY.             COMCDXB COMCDXB        1     A     
 COMCDXB   DXB      CTEXT  COMCDXB - CONVERT DISPLAY CODE TO BINARY.               COMCDXB COMCDXB        2     A     
 COMCDXB   DXB      SPACE  4,10                                                    COMCDXB COMCDXB        3     A     
 COMCDXB            IF     -DEF,QUAL$,1                                            COMCDXB COMCDXB        4     A     
 COMCDXB            QUAL   COMCDXB                                                 COMCDXB COMCDXB        5     A     
 COMCDXB            BASE   D                                                       COMCDXB COMCDXB        6     A     
 COMCDXB  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCDXB COMCDXB        7     A     
 COMCDXB   DXB      SPACE  4,10                                                    COMCDXB COMCDXB        8     A     
 COMCDXB  ***       DXB - CONVERT DISPLAY CODE TO BINARY.                          COMCDXB COMCDXB        9     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       10     A     
 COMCDXB  *         G. R. MANSFIELD.   70/10/09.                                   COMCDXB COMCDXB       11     A     
 COMCDXB  *         G. M. TOWNSEND.    77/05/25.                                   COMCDXB COMCDXB       12     A     
 COMCDXB  *                                                                                CPSA245       50     A     
 COMCDXB  *         *******************************************************                CPSA245       51     A     
 COMCDXB  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       52     A     
 COMCDXB  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       53     A     
 COMCDXB  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       54     A     
 COMCDXB  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       55     A     
 COMCDXB  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       56     A     
 COMCDXB  *         *******************************************************                CPSA245       57     A     
 COMCDXB  *                                                                                CPSA245       58     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       13     A     
 COMCDXB  *         DXB CONVERTS A STRING OF DECIMAL OR OCTAL DIGITS INTO          COMCDXB COMCDXB       14     A     
 COMCDXB  *         INTERNAL INTEGER FORM.                                         COMCDXB COMCDXB       15     A     
 COMCDXB   DXB      SPACE  4,10                                                    COMCDXB COMCDXB       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/28. 19.11.32.      PAGE  45    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB  ***       DXB CONVERTS ONE WORD OF DISPLAY CODE DIGITS TO AN             COMCDXB COMCDXB       17          I
          -CPS0279
 COMCDXB  ***       DXB CONVERTS A STRING OF DISPLAY CODE DIGITS CONTAINED WITHIN          CPS0279        5     A     
 COMCDXB  *         ONE WORD, LEFT-JUSTIFIED, ZERO-FILLED                                  CPS0279        6     A     
 COMCDXB  *         INTEGER VALUE.  CONVERSION ASSUMES EITHER BASE 8 OR 10 AS      COMCDXB COMCDXB       18     A     
 COMCDXB  *         SPECIFIED IN THE CALL, BUT THIS IS OVERRIDDEN IF AN EXPLICIT   COMCDXB COMCDXB       19     A     
 COMCDXB  *         *B* (OCTAL) OR *D* (DECIMAL) IS THE LAST CHARACTER.            COMCDXB COMCDXB       20     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       21     A     
 COMCDXB  *         THE ASSEMBLY OPTION *DXB1$* CONTROLS THE PROCESSING OF         COMCDXB COMCDXB       22     A     
 COMCDXB  *         AN 8 OR 9 IN AN ASSUMED OCTAL VALUE WHERE NO EXPLICIT *B* OR   COMCDXB COMCDXB       23     A     
 COMCDXB  *         *D* APPEARS.  IF *DXB1$* IS NOT DEFINED, THIS CASE IS TREATED  COMCDXB COMCDXB       24     A     
 COMCDXB  *         AS AN ERROR;  IF *DXB1$* IS DEFINED, THE VALUE IS INTERPRETED  COMCDXB COMCDXB       25     A     
 COMCDXB  *         AS DECIMAL.                                                    COMCDXB COMCDXB       26     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       27     A     
 COMCDXB  *         THE FOLLOWING ARE ALWAYS ERRORS -                              COMCDXB COMCDXB       28     A     
 COMCDXB  *         (1.)  PRESENCE OF NON-DIGIT IN WORD.                           COMCDXB COMCDXB       29          I
          -CPS0279
 COMCDXB  *         (1.)  PRESENCE OF NON-DIGIT IN STRING, EXCEPT IN POST-RADIX.           CPS0279        7     A     
 COMCDXB  *         (2.)  PRESENCE OF CHARACTER AFTER POST RADIX.                  COMCDXB COMCDXB       30     A     
 COMCDXB  *         (3.)  PRESENCE OF 8 OR 9 WITH POST RADIX = B.                  COMCDXB COMCDXB       31     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       32     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       33     A     
 COMCDXB  *         ENTRY  (X5) = WORD TO CONVERT.                                 COMCDXB COMCDXB       34     A     
 COMCDXB  *                (B7) .GT. 0 IF DECIMAL BASE ASSUMED.                    COMCDXB COMCDXB       35     A     
 COMCDXB  *                (B7) = 0 IF OCTAL BASE ASSUMED.                         COMCDXB COMCDXB       36     A     
 COMCDXB  *                (B1) = 1.                                               COMCDXB COMCDXB       37     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       38     A     
 COMCDXB  *         EXIT   (X6) = CONVERTED DIGITS.                                COMCDXB COMCDXB       39     A     
 COMCDXB  *                (X4) .NE. 0 IF ERROR IN ASSEMBLY.                       COMCDXB COMCDXB       40     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       41     A     
 COMCDXB  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCDXB COMCDXB       42     A     
 COMCDXB  *                B - 2, 3, 4, 5.                                         COMCDXB COMCDXB       43     A     
 COMCDXB  *                A - NONE.                                               COMCDXB COMCDXB       44     A     
 COMCDXB  *                                                                        COMCDXB COMCDXB       45     A     
 COMCDXB  *         CALLS  NONE.                                                   COMCDXB COMCDXB       46     A     
 COMCDXB                                                                           COMCDXB COMCDXB       47     A     
 COMCDXB                                                                           COMCDXB COMCDXB       48     A     
 COMCDXB   DXB1     LX2    X7,B2       DECIMAL * 10                                COMCDXB COMCDXB       49     A     
 COMCDXB            IX7    X2+X7                                                   COMCDXB COMCDXB       50     A     
 COMCDXB            LX6    3           OCTAL * 8                                   COMCDXB COMCDXB       51     A     
 COMCDXB            BX2    -X3*X1      8/9 PRESENCE                                COMCDXB COMCDXB       52     A     
 COMCDXB            LX7    1                                                       COMCDXB COMCDXB       53     A     
 COMCDXB            BX6    X6+X1       OCTAL + NEW DIGIT                           COMCDXB COMCDXB       54     A     
 COMCDXB            IX7    X7+X1       DECIMAL + NEW DIGIT                         COMCDXB COMCDXB       55     A     
 COMCDXB            SB5    B5+X2       NOTE 8/9                                    COMCDXB COMCDXB       56     A     
 COMCDXB   DXB2     LX5    6           NEXT CHARACTER                              COMCDXB COMCDXB       57     A     
 COMCDXB            BX1    -X0*X5                                                  COMCDXB COMCDXB       58     A     
 COMCDXB            SB4    X1          CHECK CHARACTER                             COMCDXB COMCDXB       59     A     
 COMCDXB            LX2    X4,B4                                                   COMCDXB COMCDXB       60     A     
 COMCDXB            SX1    X1+B3       CONVERT CHARACTER                           COMCDXB COMCDXB       61     A     
 COMCDXB            BX5    X0*X5       CLEAR CHARACTER                             COMCDXB COMCDXB       62     A     
 COMCDXB            NG     X2,DXB1     LOOP IF DIGIT                               COMCDXB COMCDXB       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/28. 19.11.32.      PAGE  46    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB                                                                           COMCDXB COMCDXB       64     A     
 COMCDXB  *         CHECK FOR POST RADIX SPECIFICATION.                            COMCDXB COMCDXB       65     A     
 COMCDXB                                                                           COMCDXB COMCDXB       66     A     
 COMCDXB   DXB1$    IF     -DEF,DXB1$                                              COMCDXB COMCDXB       67     A     
 COMCDXB            SB3    B7          OCTAL/DECIMAL FLAG                          COMCDXB COMCDXB       68     A     
 COMCDXB            ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB COMCDXB       69     A     
 COMCDXB            SB3    B4-B2                                                   COMCDXB COMCDXB       70     A     
 COMCDXB            ZR     B3,DXB3     IF EXPLICIT *B*                             COMCDXB COMCDXB       71     A     
 COMCDXB            NE     B3,B2,DXBX  IF OTHER BUT NOT *D* (ERROR), RETURN        COMCDXB COMCDXB       72     A     
 COMCDXB   DXB3     NZ     X5,DXBX     IF MORE CHARACTERS (ERROR), RETURN          COMCDXB COMCDXB       73     A     
 COMCDXB            SX4    B5+         CLEAR ERROR FLAG UNLESS 8 OR 9 PRESENT      COMCDXB COMCDXB       74     A     
 COMCDXB            ZR     B3,DXBX     IF BASE = OCTAL, RETURN                     COMCDXB COMCDXB       75     A     
 COMCDXB            BX6    X7          SET DECIMAL                                 COMCDXB COMCDXB       76     A     
 COMCDXB            SX4    B0          CLEAR ERROR FLAG                            COMCDXB COMCDXB       77     A     
 COMCDXB   DXB1$    ELSE                                                           COMCDXB COMCDXB       78     A     
 COMCDXB            SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                   COMCDXB COMCDXB       79     A     
 COMCDXB            ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB COMCDXB       80     A     
 COMCDXB            SB3    B2+B2       BASE = DECIMAL                              COMCDXB COMCDXB       81          I
          -CPS0279
 COMCDXB            SB3    B4-B2                                                           CPS0279        8     A     
 COMCDXB            NZ     X5,DXBX     IF NOT LAST CHARACTER, RETURN               COMCDXB COMCDXB       82     A     
 COMCDXB            EQ     B4,B3,DXB3  IF *D*                                      COMCDXB COMCDXB       83          I
          -CPS0279
 COMCDXB            SB5    B4-B5                                                   COMCDXB COMCDXB       84          I
          -CPS0279
 COMCDXB            NE     B5,B2,DXBX  IF NOT *B* OR *B* AND 8/9 PRESENT, RETURN   COMCDXB COMCDXB       85          I
          -CPS0279
 COMCDXB            EQ     B3,B2,DXB3  IF *D*                                              CPS0279        9     A     
 COMCDXB            NZ     B3,DXBX     IF NOT *B*                                          CPS0279       10     A     
 COMCDXB            NZ     B5,DXBX     IF 8/9 PRESENT.                                     CPS0279       11     A     
 COMCDXB            SB3    B0          SET OCTAL                                   COMCDXB COMCDXB       86     A     
 COMCDXB   DXB3     MX4    0           CLEAR ERROR                                 COMCDXB COMCDXB       87     A     
 COMCDXB            ZR     B3,DXBX     IF BASE = OCTAL, RETURN                     COMCDXB COMCDXB       88     A     
 COMCDXB            BX6    X7          SET DECIMAL                                 COMCDXB COMCDXB       89     A     
 COMCDXB   DXB1$    ENDIF                                                          COMCDXB COMCDXB       90     A     
 COMCDXB                                                                           COMCDXB COMCDXB       91     A     
 COMCDXB   DXB      SUBR               ENTRY/EXIT                                  COMCDXB COMCDXB       92     A     
 COMCDXB            SX4    7774B       MASK FOR (0123456789)                       COMCDXB COMCDXB       93     A     
 COMCDXB            MX0    -6          (X0) = CHARACTER MASK                       COMCDXB COMCDXB       94     A     
 COMCDXB            SX6    B0          CLEAR OCTAL                                 COMCDXB COMCDXB       95     A     
 COMCDXB            SB2    B1+B1       (B2) = 2                                    COMCDXB COMCDXB       96     A     
 COMCDXB            BX7    X7-X7       CLEAR DECIMAL                               COMCDXB COMCDXB       97     A     
 COMCDXB            SB3    -1R0        (B3) = CONVERSION CONSTANT                  COMCDXB COMCDXB       98     A     
 COMCDXB            SB5    6           TEST FIRST CHARACTER                        COMCDXB COMCDXB       99     A     
 COMCDXB            LX2    X5,B5                                                   COMCDXB COMCDXB      100     A     
 COMCDXB            BX3    -X0*X2                                                  COMCDXB COMCDXB      101     A     
 COMCDXB            ZR     X3,DXB3     IF ZERO WORD                                COMCDXB COMCDXB      102     A     
 COMCDXB            SX2    X3+B3                                                   COMCDXB COMCDXB      103     A     
 COMCDXB            LX4    21                                                      COMCDXB COMCDXB      104     A     
 COMCDXB            NG     X2,DXBX     IF FIRST CHARACTER ALPHABETIC, RETURN       COMCDXB COMCDXB      105     A     
 COMCDXB            SB5    B0+         CLEAR 8/9 PRESENT                           COMCDXB COMCDXB      106     A     
 COMCDXB            SX3    7           MASK FOR 8/9                                COMCDXB COMCDXB      107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  47    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCDXB 
  
 COMCDXB            EQ     DXB2        ENTER CONVERSION LOOP                       COMCDXB COMCDXB      108     A     
 COMCDXB   DXB      SPACE  4,10                                                    COMCDXB COMCDXB      109     A     
 COMCDXB            BASE   *                                                       COMCDXB COMCDXB      110     A     
 COMCDXB   QUAL$    IF     -DEF,QUAL$                                              COMCDXB COMCDXB      111     A     
 COMCDXB            QUAL   *                                                       COMCDXB COMCDXB      112     A     
 COMCDXB   DXB      EQU    /COMCDXB/DXB                                            COMCDXB COMCDXB      113     A     
 COMCDXB   DXB=     EQU    /COMCDXB/DXB                                                    F4720D        10     A     
 COMCDXB   QUAL$    ENDIF                                                          COMCDXB COMCDXB      114     A     
 COMCDXB   DXB      ENDX                                                           COMCDXB COMCDXB      115     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCDXB 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCDXB                    115       109
          F4720D                       1         1
          CPS0279                      7         7
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS  *COMDECK COMCMNS                                                                 F4720C         5     A     
 COMCMNS   MNS      CTEXT  COMCMNS - MOVE NON-OVERLAPPING STRING.                          F4720C         6     A     
 COMCMNS   MNS      SPACE  4,10                                                            F4720C         7     A     
 COMCMNS            IF     -DEF,QUAL$,1                                                    F4720C         8     A     
 COMCMNS            QUAL   COMCMNS                                                         F4720C         9     A     
 COMCMNS            BASE   D                                                               F4720C        10     A     
 COMCMNS  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION 1978.                       F4720C        11     A     
 COMCMNS   MNS      SPACE  4,10                                                            F4720C        12     A     
 COMCMNS  ***       MNS - MOVE NON-OVERLAPPING BIT STRING.                                 F4720C        13     A     
 COMCMNS  *                                                                                F4720C        14     A     
 COMCMNS  *         R. E. JAMES.       77/09/09.                                           F4720C        15     A     
 COMCMNS  *         L. D. HARE.        78/04/12.                                           F4720C        16     A     
 COMCMNS  *         L. D. HARE.        79/11/15 (CMU CODE).                                F233CMU        6     A     
 COMCMNS  *                                                                                CPSA245       59     A     
 COMCMNS  *         *******************************************************                CPSA245       60     A     
 COMCMNS  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       61     A     
 COMCMNS  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       62     A     
 COMCMNS  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       63     A     
 COMCMNS  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       64     A     
 COMCMNS  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       65     A     
 COMCMNS  *         *******************************************************                CPSA245       66     A     
 COMCMNS  *                                                                                CPSA245       67     A     
 COMCMNS  *                                                                                F4720C        17     A     
 COMCMNS  *         MNS WILL MOVE A BIT STRING FROM ONE CM LOCATION TO ANOTHER,            F4720C        18     A     
 COMCMNS  *         NO-OVERLAP ALLOWED.                                                    F4720C        19     A     
 COMCMNS   MNS      SPACE  4,10                                                            F4720C        20     A     
 COMCMNS  ***       MNS WILL MOVE A SPECIFIED SOURCE STRING FROM ONE LOCATION              F4720C        21     A     
 COMCMNS  *         TO ANOTHER IN CENTRAL MEMORY.  THE ONLY BITS DISTURBED IN              F4720C        22     A     
 COMCMNS  *         THE DESTINATION FIELD WILL BE THOSE EXTRACTED TO ACCEPT                F4720C        23     A     
 COMCMNS  *         THE SOURCE. THE DESTINATION FIELD MAY NOT OVERLAP THE SOURCE           F4720C        24     A     
 COMCMNS  *         FIELD IN ANY RESPECT, RESULTS ARE UNDEFINED IF THIS OCCURS.            F4720C        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/28. 19.11.32.      PAGE  48    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS  *         THE COMDECK *COMCMOS* IS PROVIDED FOR OVERLAPPING MOVES.               F4720C        26     A     
 COMCMNS  *                                                                                F4720C        27     A     
 COMCMNS  *         ENTRY  (B1) = 1.                                                       F4720C        28     A     
 COMCMNS  *                (B2) = SOURCE FIRST BIT (0,1,..,59).                            F4720C        29     A     
 COMCMNS  *                (B4) = DESTINATION FIRST BIT (0,1,..,59).                       F4720C        30     A     
 COMCMNS  *                (X0) = NUMBER OF BITS TO MOVE.                                  F4720C        31     A     
 COMCMNS  *                (X2) = SOURCE FIRST WORD ADDRESS.                               F4720C        32     A     
 COMCMNS  *                (X4) = DESTINATION FIRST WORD ADDRESS.                          F4720C        33     A     
 COMCMNS  *                                                                                F4720C        34     A     
 COMCMNS  *         EXIT   (B1) = 1.                                                       F4720C        35     A     
 COMCMNS  *                (B2) = SOURCE NEXT BIT (0,1,..,59).                             F4720C        36     A     
 COMCMNS  *                (B4) = DESTINATION NEXT BIT (0,1,..,59).                        F4720C        37     A     
 COMCMNS  *                (X2) = SOURCE NEXT WORD ADDRESS.                                F4720C        38     A     
 COMCMNS  *                (X4) = DESTINATION NEXT WORD ADDRESS.                           F4720C        39     A     
 COMCMNS  *                                                                                F4720C        40     A     
 COMCMNS  *         USES   X0, X1, X2, X3, X4, X5, X6, X7.                                 F4720C        41     A     
 COMCMNS  *                B1, B2, B3, B4, B5, B6.                                         F4720C        42     A     
 COMCMNS  *                A1, A2, A3, A5, A6, A7.                                         F4720C        43     A     
 COMCMNS  *                                                                                F4720C        44     A     
 COMCMNS  *         CALLS  NONE.                                                           F4720C        45     A     
 COMCMNS                                                                                   F4720C        46     A     
 COMCMNS  *         THE COMMENTING SCHEME INVOLVED HEREIN COULD ALSO USE                   F4720C        47     A     
 COMCMNS  *         SOME EXPLANATION.  IT IS BASED ON A SIX BIT WORD, EACH BIT             F4720C        48     A     
 COMCMNS  *         IDENTIFIED BY A LETTER IN THE 64 CHARACTER CHARACTER SET.              F4720C        49     A     
 COMCMNS  *         THE OVERALL ASSUMPTION IS THAT THE SOURCE STARTS AT BIT 0,             F4720C        50     A     
 COMCMNS  *         (LEFT MOST), AND THE DESTINATION COMMENCES AT BIT 3 (THE               F4720C        51     A     
 COMCMNS  *         MIDDLE).  THIS ASSUMPTION IS MODIFIED FOR THE BIT ALIGNED              F4720C        52     A     
 COMCMNS  *         MOVE (MNS10 ET SEQ.), AND FOR THE FIRST BIT SOURCE GREATER             F4720C        53     A     
 COMCMNS  *         THAN FIRST BIT DESTINATION CASE (MNS50 ET SEQ.).  THE                  F4720C        54     A     
 COMCMNS  *         COMMENTS EXPLAIN THE DIFFERENCE FOR THESE CASES.                       F4720C        55     A     
 COMCMNS   MNS      SPACE  4,10                                                            F233CMU        7     A     
 COMCMNS  *         ONE TIME INITIALIZATION CODE BASED ON THE PRESENCE                     F233CMU        8     A     
 COMCMNS  *         OF *CMU*.                                                              F233CMU        9     A     
 COMCMNS                                                                                   F233CMU       10     A     
 COMCMNS   MNS32    SB5    60          BITS PER WORD                                       F233CMU       11     A     
 COMCMNS            SA1    MNSD        1S48/6 + 1                                          F233CMU       12     A     
 COMCMNS                                                                                   F233CMU       13     A     
 COMCMNS            SA1    RA.CMU                                                          F233CMU       14     A     
 COMCMNS            SA5    MNSC                                                            F233CMU       15     A     
 COMCMNS            AX1    59          SIGN EXTEND CMU FLAG                                F233CMU       16     A     
 COMCMNS            BX6    X1*X3                                                           F233CMU       17     A     
 COMCMNS            BX5    -X1*X5                                                          F233CMU       18     A     
 COMCMNS            IX7    X5+X6                                                           F233CMU       19     A     
 COMCMNS            SA7    MNSB        SET CORRECT INITIALIZATION CODE                     F233CMU       20     A     
 COMCMNS                                                                                   F233CMU       21     A     
 COMCMNS            RJ     *                                                               F233CMU       22     A     
 COMCMNS                                                                                   F233CMU       23     A     
 COMCMNS            EQ     MNS02       RESTART                                             F233CMU       24     A     
 COMCMNS                                                                                   F4720C        56     A     
 COMCMNS  *         MNS - MOVE BIT STRING WITH NO OVERLAP.                                 F4720C        57     A     
 COMCMNS  *                                                                                F4720C        58     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C        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/28. 19.11.32.      PAGE  49    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS  *                            /ABCDEF/      /XXXXXX/  X4 =(XXX...)      /         F4720C        60     A     
 COMCMNS                                                                                   F4720C        61     A     
 COMCMNS   MNS40    GT     B2,B4,MNS50  IF 1*ST BIT SOURCE .GT. 1*ST BIT DEST.             F4720C        62     A     
 COMCMNS            SB4    B3+B5       CORRECT SHIFT COUNT                                 F4720C        63     A     
 COMCMNS            LX7    X1,B4       /      /      /      /      /      /DEFABC/         F4720C        64     A     
 COMCMNS            BX6    -X6*X7      /      /      /      /      /...ABC/      /         F4720C        65     A     
 COMCMNS            BX6    X4+X6       /      /      /      /      /XXXABC/      /         F4720C        66     A     
 COMCMNS            MI     X0,MNS120   IF BOTH FINISH IN ONE WORD                          F4720C        67     A     
 COMCMNS            SX1    B1                                                              F4720C        68     A     
 COMCMNS            LX2    X1,B4                                                           F4720C        69     A     
 COMCMNS            SB3    B3+B5       CORRECT SHIFT COUNT                                 F4720C        70     A     
 COMCMNS            IX4    X1-X2       MASK                                                F4720C        71     A     
 COMCMNS            BX3    X4*X7       /      /      /DEF.../      /      /      /         F4720C        72     A     
 COMCMNS            EQ     MNS60       CONTINUE                                            F4720C        73     A     
 COMCMNS                                                                                   F4720C        74     A     
 COMCMNS  *         FIRST BIT SOURCE .GT. FIRST BIT DESTINATION.                           F4720C        75     A     
 COMCMNS  *                                                                                F4720C        76     A     
 COMCMNS  *         SITUATION FOR      /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C        77     A     
 COMCMNS  *         THIS CASE IS:      /YYYYAB/      /XXXXXX/  X4 =(XXX...)      /         F4720C        78     A     
 COMCMNS                                                                                   F4720C        79     A     
 COMCMNS   MNS50    LX7    X1,B3       /      /      /      /      /      /YYYABY/         F4720C        80     A     
 COMCMNS            BX6    -X6*X7      /      /      /      /      /...ABY/      /         F4720C        81     A     
 COMCMNS            SX1    B1                                                              F4720C        82     A     
 COMCMNS            LX2    X1,B3                                                           F4720C        83     A     
 COMCMNS            BX6    X4+X6       /      /      /      /      /XXXABY/      /         F4720C        84     A     
 COMCMNS            IX4    X1-X2       MASK                                                F4720C        85     A     
 COMCMNS            SA1    A1+B1       /CDEFGH/      /      /      /      /      /         F4720C        86     A     
 COMCMNS            BX2    X4*X6       /      /XXXAB./      /      /      /      /         F4720C        87     A     
 COMCMNS            LX7    X1,B3       /      /      /      /      /      /DEFGHC/         F4720C        88     A     
 COMCMNS            BX1    -X4*X7      /.....C/      /      /      /      /      /         F4720C        89     A     
 COMCMNS            BX6    X2+X1       /      /      /      /      /XXXABC/      /         F4720C        90     A     
 COMCMNS            MI     X0,MNS110   IF ALL FITS IN ONE WORD                             F4720C        91     A     
 COMCMNS            BX3    X4*X7       /      /      /DEFGH./      /      /      /         F4720C        92     A     
 COMCMNS                                                                                   F4720C        93     A     
 COMCMNS  *         DESTINATION FIELD EXTENDS OVER A WORD BOUNDARY.                        F4720C        94     A     
 COMCMNS  *         NOTE: COMMENTS CONTINUE FROM *MNS40* CODE.                             F4720C        95     A     
 COMCMNS  *                                                                                F4720C        96     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C        97     A     
 COMCMNS  *                            /      /      /DEF.../      /XXXABC/      /         F4720C        98     A     
 COMCMNS                                                                                   F4720C        99     A     
 COMCMNS   MNS60    SX7    B5+B5                                                           F4720C       100     A     
 COMCMNS            SA6    A3          /      /      /      /      /*STOR*/      /         F4720C       101     A     
 COMCMNS            IX0    X0-X7       /      /      /DEF.../      /      /      /         F4720C       102     A     
 COMCMNS            SA1    A1+B1       /GHIJKL/      /      /      /      /      /         F4720C       103     A     
 COMCMNS            MI     X0,MNS90    IF 2 WORD FIT                                       F4720C       104     A     
 COMCMNS                                                                                   F4720C       105     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       106     A     
 COMCMNS  *                            /GHIJKL/      /DEF.../      /      /      /         F4720C       107     A     
 COMCMNS                                                                                   F4720C       108     A     
 COMCMNS            SA2    A1+B1       /      /MNOPQR/      /      /      /      /         F4720C       109     A     
 COMCMNS            LX5    X1,B3       /      /      /      /JKLGHI/      /      /         F4720C       110     A     
 COMCMNS            SA1    A2+B1       /STUVWX/      /      /      /      /      /         F4720C       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/28. 19.11.32.      PAGE  50    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS            IX0    X0-X7                                                           F4720C       112     A     
 COMCMNS            BX7    -X4*X5      /      /      /      /      /      /...GHI/         F4720C       113     A     
 COMCMNS            IX5    X5-X7       /      /      /      /JKL.../      /      /         F4720C       114     A     
 COMCMNS            BX7    X3+X7       /      /      /      /      /      /DEFGHI/         F4720C       115     A     
 COMCMNS            LX2    X2,B3       /      /PQRMNO/      /      /      /      /         F4720C       116     A     
 COMCMNS            MI     X0,MNS80    IF 3 WORD FIT                                       F4720C       117     A     
 COMCMNS                                                                                   F4720C       118     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       119     A     
 COMCMNS  *                            /STUVWX/PQRMNO/DEF.../JKL.../      /DEFGHI/         F4720C       120     A     
 COMCMNS                                                                                   F4720C       121     A     
 COMCMNS   MNS70    SA7    A6+B1       /      /      /      /      /      /*STOR*/         F4720C       122     A     
 COMCMNS            BX6    -X4*X2      /      /      /      /      /...MNO/      /         F4720C       123     A     
 COMCMNS            LX1    X1,B3       /VWXSTU/      /      /      /      /      /         F4720C       124     A     
 COMCMNS            SX7    B5+B5                                                           F4720C       125     A     
 COMCMNS            IX3    X2-X6       /      /      /PQR.../      /      /      /         F4720C       126     A     
 COMCMNS            SA2    A1+B1       /      /YZ0123/      /      /      /      /         F4720C       127     A     
 COMCMNS            BX6    X5+X6       /      /      /      /      /JKLMNO/      /         F4720C       128     A     
 COMCMNS            IX0    X0-X7                                                           F4720C       129     A     
 COMCMNS            SA6    A7+B1       /      /      /      /      /*STOR*/      /         F4720C       130     A     
 COMCMNS            BX7    -X4*X1      /      /      /      /      /      /...STU/         F4720C       131     A     
 COMCMNS            IX5    X1-X7       /      /      /      /VWX.../      /      /         F4720C       132     A     
 COMCMNS            SA1    A2+B1       /456789/      /      /      /      /      /         F4720C       133     A     
 COMCMNS            LX2    X2,B3       /      /123WX0/      /      /      /      /         F4720C       134     A     
 COMCMNS            BX7    X3+X7       /      /      /      /      /      /PQRSTU/         F4720C       135     A     
 COMCMNS            PL     X0,MNS70    IF MORE TO GO                                       F4720C       136     A     
 COMCMNS                                                                                   F4720C       137     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       138     A     
 COMCMNS  *         JUMPED:            /STUVWX/PQRMNO/      /JKL.../      /DEFGHI/         F4720C       139     A     
 COMCMNS  *         FALL THROUGH:      /456789/123YZ0/      /VWX.../      /PQRSTU/         F4720C       140     A     
 COMCMNS                                                                                   F4720C       141     A     
 COMCMNS   MNS80    BX6    -X4*X2      /      /      /      /      /...YZ0/      /         F4720C       142     A     
 COMCMNS            IX3    X2-X6       /      /      /123.../      /      /      /         F4720C       143     A     
 COMCMNS            SA7    A6+1        /      /      /      /      /      /*STOR*/         F4720C       144     A     
 COMCMNS            BX6    X5+X6       /      /      /      /      /VWXYZ0/      /         F4720C       145     A     
 COMCMNS            MX5    1                                                               F4720C       146     A     
 COMCMNS            SA6    A7+1        /      /      /      /      /*STOR*/      /         F4720C       147     A     
 COMCMNS                                                                                   F4720C       148     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       149     A     
 COMCMNS  *         JUMPED:            /GHIJKL/      /DEF.../      /      /      /         F4720C       150     A     
 COMCMNS  *         FALL THROUGH:      /456789/      /123.../      /      /      /         F4720C       151     A     
 COMCMNS                                                                                   F4720C       152     A     
 COMCMNS   MNS90    SX0    X0+60                                                           F4720C       153     A     
 COMCMNS            MI     X0,MNS100   IF NO MORE SOURCE WORDS                             F4720C       154     A     
 COMCMNS            LX2    X1,B3       /      /789456/      /      /      /      /         F4720C       155     A     
 COMCMNS            SA1    A1+B1       /+-*/()/      /      /      /      /      /         F4720C       156     A     
 COMCMNS            BX7    -X4*X2      /      /      /      /      /      /...456/         F4720C       157     A     
 COMCMNS            BX6    X3+X7       /      /      /      /      /123456/      /         F4720C       158     A     
 COMCMNS            SX0    X0-60                                                           F4720C       159     A     
 COMCMNS            IX3    X2-X7       /      /      /789.../      /      /      /         F4720C       160     A     
 COMCMNS            SA6    A6+B1       /      /      /      /      /*STOR*/      /         F4720C       161     A     
 COMCMNS                                                                                   F4720C       162     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       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/28. 19.11.32.      PAGE  51    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS  *         JUMPED:            /456789/      /123.../      /      /      /         F4720C       164     A     
 COMCMNS  *         FALL THROUGH:      /+-*/()/      /789.../      /      /      /         F4720C       165     A     
 COMCMNS                                                                                   F4720C       166     A     
 COMCMNS   MNS100   LX7    X1,B3       /      /      /      /      /      //()+-*/         F4720C       167     A     
 COMCMNS            BX2    -X4*X7      /      /...+-*/      /      /      /      /         F4720C       168     A     
 COMCMNS            BX6    X3+X2       /      /      /      /      /789+-*/      /         F4720C       169     A     
 COMCMNS            SA3    A6+B1       /      /      /XXXXXX/      /      /      /         F4720C       170     A     
 COMCMNS                                                                                   F4720C       171     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       172     A     
 COMCMNS  *         JUMPED:            /      /      /XXXXXX/      /XXXABC/DEFABC/         F4720C       173     A     
 COMCMNS  *         FALL THROUGH:      /+-*/()/...+-*/XXXXXX/      /789+-*//()+-*/         F4720C       174     A     
 COMCMNS                                                                                   F4720C       175     A     
 COMCMNS   MNS110   SB2    X0+B3                                                           F4720C       176     A     
 COMCMNS            SX2    A1-B1       COMPENSATE FOR READ AHEAD                           F4720C       177     A     
 COMCMNS            LT     B2,MNS120   IF LAST WORD WAS FROM READ AHEAD                    F4720C       178     A     
 COMCMNS            SX2    A1                                                              F4720C       179     A     
 COMCMNS            SB3    B3-B5                                                           F4720C       180     A     
 COMCMNS   MNS120   SB4    X0+B5       DESTINATION BIT POSITION                            F4720C       181     A     
 COMCMNS            SX4    A3          DESTINATION WORD ADDRESS                            F4720C       182     A     
 COMCMNS            SB2    B4+B3       SOURCE BIT POSITION                                 F4720C       183     A     
 COMCMNS            ZR     B4,MNS      IF FINISHED                                         F4720C       184     A     
 COMCMNS            SB3    B4-B1                                                           F4720C       185     A     
 COMCMNS            AX0    X5,B3       MASK                                                F4720C       186     A     
 COMCMNS            BX1    X0*X6       /789.../      /      /      /      /      /         F4720C       187     A     
 COMCMNS            BX7    -X0*X3      /      /      /      /      /      /...XXX/         F4720C       188     A     
 COMCMNS            BX6    X1+X7       /      /      /      /      /789XXX/      /         F4720C       189     A     
 COMCMNS            SA6    A3          /      /      /      /      /*STOR*/      /         F4720C       190     A     
 COMCMNS                                                                                   F4720C       191     A     
 COMCMNS  *         ENTER HERE, DETERMINE PRESENCE OF *CMU*.                               F233CMU       25     A     
 COMCMNS                                                                                   F233CMU       26     A     
 COMCMNS   MNS      SUBR               ENTRY/EXIT..                                        F233CMU       27     A     
 COMCMNS                                                                                   F233CMU       28     A     
 COMCMNS   MNS02    SA3    MNSA        INITIAL *WITH CMU* CODE                             F233CMU       29     A     
 COMCMNS            RJ     MNS32       PERFORM ONE TIME INITIALIZATION                     F233CMU       30     A     
 COMCMNS                                                                                   F233CMU       31     A     
 COMCMNS  *         THE ABOVE INSTRUCTIONS WILL BE REPLACED BY:                            F233CMU       32     A     
 COMCMNS  *                                                                                F233CMU       33     A     
 COMCMNS  *         WITH CMU:-  SB5  60     BITS PER WORD                                  F233CMU       34     A     
 COMCMNS  *                     SA1  MNSC   1S48/6 + 1                                     F233CMU       35     A     
 COMCMNS  *                                                                                F233CMU       36     A     
 COMCMNS  *         NO CMU:-    SB5  60                                                    F233CMU       37     A     
 COMCMNS  *                     EQ   MNS06  IGNORE CMU CODE                                F233CMU       38     A     
 COMCMNS                                                                                   F233CMU       39     A     
 COMCMNS            SX3    3*60                                                            F233CMU       40     A     
 COMCMNS            SA5    X4                                                              F233CMU       41     A     
 COMCMNS            SX7    B2          SF = FIRST SOURCE BIT                               F233CMU       42     A     
 COMCMNS            IX5    X3-X0                                                           F233CMU       43     A     
 COMCMNS            FX3    X0*X1       L6 = LENGTH / 6                                     F233CMU       44     A     
 COMCMNS            PL     X5,MNS06    IF QUICKER NOT TO USE CMU                           F233CMU       45     A     
 COMCMNS            SX6    B4          DF = DESTINATION FIRST BIT                          F233CMU       46     A     
 COMCMNS            FX5    X7*X1       S6 = SF / 6 = SOURCE FIRST CHARACTER                F233CMU       47     A     
 COMCMNS            SB3    X3                                                              F233CMU       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/28. 19.11.32.      PAGE  52    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS            SB6    X5                                                              F233CMU       49     A     
 COMCMNS            SB3    B3+B3       L2 = L6 * 2                                         F233CMU       50     A     
 COMCMNS            SB6    B6+B6       S2 = S6 * 2                                         F233CMU       51     A     
 COMCMNS            FX1    X6*X1       D6 = DF / 6 = DESTINATION FIRST CHARACTER           F233CMU       52     A     
 COMCMNS            LX7    X5                                                              F233CMU       53     A     
 COMCMNS            BX6    X3                                                              F233CMU       54     A     
 COMCMNS            LX7    2           S4 = S6 * 4                                         F233CMU       55     A     
 COMCMNS            LX6    2           L4 = L6 * 4                                         F233CMU       56     A     
 COMCMNS            SB6    B6+X7       SX = S2 + S4                                        F233CMU       57     A     
 COMCMNS            SB5    X1                                                              F233CMU       58     A     
 COMCMNS            SX6    B3+X6       LX = L2 + L4                                        F233CMU       59     A     
 COMCMNS            SB5    B5+B5       D2 = D6 * 2                                         F233CMU       60     A     
 COMCMNS            IX7    X0-X6       ML = LENGTH - LX = MOD(LENGTH,6)                    F233CMU       61     A     
 COMCMNS            SB3    B5+B5       D4 = D2 + D2                                        F233CMU       62     A     
 COMCMNS            SX6    B2-B6       MS = SF - SX = MOD(SF,6)                            F233CMU       63     A     
 COMCMNS            SB5    B3+B5       DX = D4 + D2                                        F233CMU       64     A     
 COMCMNS            BX7    X7+X6       REMAINDER = ML .OR. MS                              F233CMU       65     A     
 COMCMNS            SX6    B4-B5       MD = DF - DX = MOD(DF,6)                            F233CMU       66     A     
 COMCMNS            SB5    60          BITS PER WORD                                       F233CMU       67     A     
 COMCMNS            BX7    X6+X7       REMAINDER = REMAINDER .OR. MD                       F233CMU       68     A     
 COMCMNS            NO                                                                     F233CMU       69     A     
 COMCMNS            NZ     X7,MNS06    IF NOT CHARACTER ORIENTED                           F233CMU       70     A     
 COMCMNS                                                                                   F233CMU       71     A     
 COMCMNS            SA2    X2                                                              F233CMU       72     A     
 COMCMNS                                                                                   F233CMU       73     A     
 COMCMNS  *         SET UP CMU INSTRUCTION AND EXECUTE IT.                                 F233CMU       74     A     
 COMCMNS                                                                                   F233CMU       75     A     
 COMCMNS   MNS04    SX2    8191        MAX CMU CHARACTERS TRANSFERABLE                     F233CMU       76     A     
 COMCMNS            SX7    A2          SA = SOURCE ADDRESS                                 F233CMU       77     A     
 COMCMNS            IX0    X3-X2                                                           F233CMU       78     A     
 COMCMNS            LX7    30          POSITION SOURCE ADDRESS                             F233CMU       79     A     
 COMCMNS            AX0    60                                                              F233CMU       80     A     
 COMCMNS            SX6    A5          DA = DESTINATION ADDRESS                            F233CMU       81     A     
 COMCMNS            BX4    -X0*X2                                                          F233CMU       82     A     
 COMCMNS            IX7    X6+X7       SA + DA                                             F233CMU       83     A     
 COMCMNS            BX0    X0*X3                                                           F233CMU       84     A     
 COMCMNS            SX6    X1          DF = D6                                             F233CMU       85     A     
 COMCMNS            IX4    X0+X4       CHARS TO TRANSMIT = MIN(8191,L6)                    F233CMU       86     A     
 COMCMNS            LX6    18          POSITION DF                                         F233CMU       87     A     
 COMCMNS            MX0    -4                                                              F233CMU       88     A     
 COMCMNS            BX7    X6+X7       SA + DF + DA                                        F233CMU       89     A     
 COMCMNS            BX2    -X0*X4      LO BITS L6                                          F233CMU       90     A     
 COMCMNS            LX6    X5          SF = S6                                             F233CMU       91     A     
 COMCMNS            BX0    X0*X4       HI BITS L6                                          F233CMU       92     A     
 COMCMNS            LX6    22          POSITION SF                                         F233CMU       93     A     
 COMCMNS            LX2    26          POSITION LO L6                                      F233CMU       94     A     
 COMCMNS            IX7    X6+X7       SA + SF + DF + DA                                   F233CMU       95     A     
 COMCMNS            LX0    48-4        POSITION HI L6                                      F233CMU       96     A     
 COMCMNS            BX7    X2+X7       SA + LO L6 + SF + DF + DA                           F233CMU       97     A     
 COMCMNS            IX2    X3-X4                                                           F233CMU       98     A     
 COMCMNS            BX6    X0+X7       HI L6 + SA + LO L6 + SF + DF + DA                   F233CMU       99     A     
 COMCMNS            SB5    X2          REMAINING CHARACTERS                                F233CMU      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/28. 19.11.32.      PAGE  53    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS            SA6    MNSF                                                            F233CMU      101     A     
 COMCMNS                                                                                   F233CMU      102     A     
 COMCMNS            IM     MNSF        INDIRECT CMU MOVE                                   F233CMU      103     A     
 COMCMNS                                                                                   F233CMU      104     A     
 COMCMNS  *         SET UP EXIT CONDITION IN CHARACTERS.                                   F233CMU      105     A     
 COMCMNS                                                                                   F233CMU      106     A     
 COMCMNS            IX1    X1+X4       D6 + TRANSMITTED CHARACTERS                         F233CMU      107     A     
 COMCMNS            SA3    MNSE        IS48E-1 + 1                                         F233CMU      108     A     
 COMCMNS            IX5    X5+X4       S6 + TRANSMITTED CHARACTERS                         F233CMU      109     A     
 COMCMNS            FX6    X1*X3       D10 = D6 / 10                                       F233CMU      110     A     
 COMCMNS            FX7    X5*X3       S10 = S6 / 10                                       F233CMU      111     A     
 COMCMNS            LX0    B1,X6       D10 * 2                                             F233CMU      112     A     
 COMCMNS            LX2    B1,X7       S10 * 2                                             F233CMU      113     A     
 COMCMNS            BX4    X0                                                              F233CMU      114     A     
 COMCMNS            BX3    X2                                                              F233CMU      115     A     
 COMCMNS            LX4    2           D10 * 8                                             F233CMU      116     A     
 COMCMNS            SB6    X6                                                              F233CMU      117     A     
 COMCMNS            LX3    2           S10 * 8                                             F233CMU      118     A     
 COMCMNS            SB2    X7                                                              F233CMU      119     A     
 COMCMNS            IX4    X0+X4       D10 * 10                                            F233CMU      120     A     
 COMCMNS            BX7    X5                                                              F233CMU      121     A     
 COMCMNS            IX3    X2+X3       S10 * 10                                            F233CMU      122     A     
 COMCMNS            SA2    A2+B2       NEW FWA SOURCE                                      F233CMU      123     A     
 COMCMNS            SA5    A5+B6       NEW FWA DESTINATION                                 F233CMU      124     A     
 COMCMNS            IX1    X1-X4       NEW FIRST CHARACTER DESTINATION                     F233CMU      125     A     
 COMCMNS            IX5    X7-X3       NEW FIRST CHARACTER SOURCE                          F233CMU      126     A     
 COMCMNS            SX3    B5          CHARACTERS LEFT TO TRANSMIT                         F233CMU      127     A     
 COMCMNS                                                                                   F233CMU      128     A     
 COMCMNS            GT     B5,B0,MNS04 IF MORE TO TRANSMIT                                 F233CMU      129     A     
 COMCMNS                                                                                   F233CMU      130     A     
 COMCMNS  *         EXIT PROCESSING, CONVERT CHARACTERS TO BITS                            F233CMU      131     A     
 COMCMNS  *         AND RESET ADDRESS REGISTERS.                                           F233CMU      132     A     
 COMCMNS                                                                                   F233CMU      133     A     
 COMCMNS            LX6    B1,X1       D6 * 2                                              F233CMU      134     A     
 COMCMNS            IX7    X5+X5       S6 * 2                                              F233CMU      135     A     
 COMCMNS            LX1    2           D6 * 4                                              F233CMU      136     A     
 COMCMNS            LX5    2           S6 * 4                                              F233CMU      137     A     
 COMCMNS            IX6    X6+X1       D6 * 6                                              F233CMU      138     A     
 COMCMNS            SX2    A2                                                              F233CMU      139     A     
 COMCMNS            SB4    X6                                                              F233CMU      140     A     
 COMCMNS            IX7    X7+X5       S6 * 6                                              F233CMU      141     A     
 COMCMNS            SX4    A5                                                              F233CMU      142     A     
 COMCMNS            SB2    X7                                                              F233CMU      143     A     
 COMCMNS                                                                                   F233CMU      144     A     
 COMCMNS            EQ     MNS         EXIT..                                              F233CMU      145     A     
 COMCMNS                                                                                   F233CMU      146     A     
 COMCMNS  *         DETERMINE IF A BIT ALIGNED MOVE IS POSSIBLE (DESTINATION               F4720C       192     A     
 COMCMNS  *         STRING WILL OCCUPY SAME WORD RELATIVE POSITION AS SOURCE               F4720C       193     A     
 COMCMNS  *         STRING).                                                               F4720C       194     A     
 COMCMNS  *                                                                                F4720C       195     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       196     A     
 COMCMNS  *                            /      /      /      /      /      /      /         F4720C       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/28. 19.11.32.      PAGE  54    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS                                                                                   F4720C       198     A     
 COMCMNS   MNS      SUBR               ENTRY/EXIT..                                        F4720C       199          I
          -F233CMU
 COMCMNS            MX5    1                                                               F4720C       200          I
          -F233CMU
 COMCMNS            SB5    60                                                              F4720C       201          I
          -F233CMU
 COMCMNS   MNS06    MX5    1                                                               F233CMU      147     A     
 COMCMNS            SA3    X4          /      /      /XXXXXX/      /      /      /         F4720C       202     A     
 COMCMNS            SA1    X2          /ABCDEF/      /      /      /      /      /         F4720C       203     A     
 COMCMNS            SX7    B4-B5                                                           F4720C       204     A     
 COMCMNS            AX6    X5,B4                                                           F4720C       205     A     
 COMCMNS            SB3    B2-B4       SHIFT COUNT                                         F4720C       206     A     
 COMCMNS            BX4    -X5*X6                                                          F4720C       207     A     
 COMCMNS            LX6    X4,B1       MASK FOR FIRST DESTINATION WORD                     F4720C       208     A     
 COMCMNS            IX0    X7+X0                                                           F4720C       209     A     
 COMCMNS            BX4    X6*X3       /      /  X4 =(XXX...)      /      /      /         F4720C       210     A     
 COMCMNS            NE     B2,B4,MNS40 IF NOT A BIT ALIGNED MOVE                           F4720C       211     A     
 COMCMNS                                                                                   F4720C       212     A     
 COMCMNS  *         PROCESS BIT ALIGNED MOVE.  NOTE THAT FOR OUR COMMENTING                F4720C       213     A     
 COMCMNS  *         EXAMPLE A BIT ALIGNED MOVE WOULD IMPLY A ZERO BIT MASK,                F4720C       214     A     
 COMCMNS  *         HENCE:                                                                 F4720C       215     A     
 COMCMNS  *                                                                                F4720C       216     A     
 COMCMNS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       217     A     
 COMCMNS  *                            /ABCDEF/  X4 =(......)      /....../      /         F4720C       218     A     
 COMCMNS                                                                                   F4720C       219     A     
 COMCMNS            BX7    -X6*X1      /      /      /      /      /      /ABCDEF/         F4720C       220     A     
 COMCMNS            BX6    X7+X4       /      /      /      /      /ABCDEF/      /         F4720C       221     A     
 COMCMNS            MI     X0,MNS120   IF ALL FITS IN ONE WORD                             F4720C       222     A     
 COMCMNS            SA1    A1+B1       /GHIJKL/      /      /      /      /      /         F4720C       223     A     
 COMCMNS            SA6    A3          /      /      /      /      /*STOR*/      /         F4720C       224     A     
 COMCMNS            SX4    B5+B5                                                           F4720C       225     A     
 COMCMNS            SA3    A1+B1       /      /      /MNOPQR/      /      /      /         F4720C       226     A     
 COMCMNS            IX0    X0-X4                                                           F4720C       227     A     
 COMCMNS            BX7    X1          /      /      /      /      /      /GHIJKL/         F4720C       228     A     
 COMCMNS            MI     X0,MNS20    IF ALL FITS IN TWO WORDS                            F4720C       229     A     
 COMCMNS   MNS10    SA7    A6+B1       /      /      /      /      /      /*STOR*/         F4720C       230     A     
 COMCMNS            BX6    X3          /      /      /      /      /MNOPQR/      /         F4720C       231     A     
 COMCMNS            IX0    X0-X4                                                           F4720C       232     A     
 COMCMNS            SA1    A3+B1       /STUVWX/      /      /      /      /      /         F4720C       233     A     
 COMCMNS            SA3    A3+2        /      /      /Z01234/      /      /      /         F4720C       234     A     
 COMCMNS            BX7    X1          /      /      /      /      /      /STUVWX/         F4720C       235     A     
 COMCMNS            SA6    A7+B1       /      /      /      /      /*STOR*/      /         F4720C       236     A     
 COMCMNS            PL     X0,MNS10    IF NEXT WORD IS A 60 BIT MOVE                       F4720C       237     A     
 COMCMNS   MNS20    SX0    X0+60                                                           F4720C       238     A     
 COMCMNS            SX2    A1                                                              F4720C       239     A     
 COMCMNS            BX6    X7          /      /      /      /      /STUVWX/      /         F4720C       240     A     
 COMCMNS            MI     X0,MNS30    IF LAST WORD FETCHED NOT LAST TO MOVE               F4720C       241     A     
 COMCMNS            SA6    A6+1        /      /      /      /      /*STOR*/      /         F4720C       242     A     
 COMCMNS            SX0    X0-60                                                           F4720C       243     A     
 COMCMNS            SX2    A3                                                              F4720C       244     A     
 COMCMNS            BX6    X3          /      /      /      /      /Z01234/      /         F4720C       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/28. 19.11.32.      PAGE  55    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMNS 
  
 COMCMNS   MNS30    SA3    A6+B1       FETCH LAST DESTINATION WORD                         F4720C       246     A     
 COMCMNS            EQ     MNS120      GO TO HANDLE THE MASKING                            F4720C       247     A     
 COMCMNS   MNS      SPACE  4,10                                                            F233CMU      148     A     
 COMCMNS  *         STORAGE.                                                               F233CMU      149     A     
 COMCMNS                                                                                   F233CMU      150     A     
 COMCMNS   MNSA     EQU    MNS32                                                           F233CMU      151     A     
 COMCMNS   MNSB     EQU    MNS02                                                           F233CMU      152     A     
 COMCMNS   MNSC     SB5    60                                                              F233CMU      153     A     
 COMCMNS            EQ     MNS06       IGNORE CMU CODE                                     F233CMU      154     A     
 COMCMNS   MNSD     CON    1252525252525253B  1S48/6 + 1                                   F233CMU      155     A     
 COMCMNS   MNSE     CON    1S48E-1+1   ONE TENTH + 1                                       F233CMU      156     A     
 COMCMNS   MNSF     BSS    1           CMU *IM* INDIRECT WORD                              F233CMU      157     A     
 COMCMNS   MNS      SPACE  4,10                                                            F4720C       248     A     
 COMCMNS            BASE   *                                                               F4720C       249     A     
 COMCMNS   QUAL$    IF     -DEF,QUAL$                                                      F4720C       250     A     
 COMCMNS            QUAL   *                                                               F4720C       251     A     
 COMCMNS   MNS      EQU    /COMCMNS/MNS                                                    F4720C       252     A     
 COMCMNS   MNS=     EQU    MNS                                                             F4720C       253     A     
 COMCMNS   QUAL$    ENDIF                                                                  F4720C       254     A     
 COMCMNS   MNS      ENDX                                                                   F4720C       255     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMNS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          F4720C                     251       248
          F233CMU                    152       152
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMOS 
  
 COMCMOS  *COMDECK COMCMOS                                                                 F4720C       256     A     
 COMCMOS   MOS      CTEXT  COMCMOS - MOVE BIT STRING.                                      F4720C       257     A     
 COMCMOS   MOS      SPACE  4,10                                                            F4720C       258     A     
 COMCMOS            IF     -DEF,QUAL$,1                                                    F4720C       259     A     
 COMCMOS            QUAL   COMCMOS                                                         F4720C       260     A     
 COMCMOS            BASE   D                                                               F4720C       261     A     
 COMCMOS  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION 1978.                       F4720C       262     A     
 COMCMOS   MOS      SPACE  4,10                                                            F4720C       263     A     
 COMCMOS  ***       MOS - MOVE OVERLAPPING BIT STRING.                                     F4720C       264     A     
 COMCMOS  *                                                                                F4720C       265     A     
 COMCMOS  *         R. E. JAMES.       77/09/09.                                           F4720C       266     A     
 COMCMOS  *         L. D. HARE.        78/04/12.                                           F4720C       267     A     
 COMCMOS  *                                                                                CPSA245       68     A     
 COMCMOS  *         *******************************************************                CPSA245       69     A     
 COMCMOS  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       70     A     
 COMCMOS  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       71     A     
 COMCMOS  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       72     A     
 COMCMOS  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       73     A     
 COMCMOS  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       74     A     
 COMCMOS  *         *******************************************************                CPSA245       75     A     
 COMCMOS  *                                                                                CPSA245       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/28. 19.11.32.      PAGE  56    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMOS 
  
 COMCMOS  *                                                                                F4720C       268     A     
 COMCMOS  *         MOS WILL MOVE A BIT STRING FROM ONE CM LOCATION TO ANOTHER,            F4720C       269     A     
 COMCMOS  *         OVERLAP IS ALLOWED.                                                    F4720C       270     A     
 COMCMOS   MOS      SPACE  4,10                                                            F4720C       271     A     
 COMCMOS  ***       MOS WILL MOVE A SPECIFIED SOURCE STRING FROM ONE LOCATION              F4720C       272     A     
 COMCMOS  *         TO ANOTHER IN CENTRAL MEMORY.  THE ONLY BITS DISTURBED IN              F4720C       273     A     
 COMCMOS  *         THE DESTINATION FIELD WILL BE THOSE EXTRACTED TO ACCEPT                F4720C       274     A     
 COMCMOS  *         THE SOURCE. MOS ALLOWS THE USER TO MOVE OVERLAPPING STRINGS,           F4720C       275     A     
 COMCMOS  *         I.E. STRINGS WHERE THE DESTINATION FIELD LIES PARTLY OR                F4720C       276     A     
 COMCMOS  *         COMPLETELY WITHIN THE SOURCE FIELD.  HOWEVER, MOS CHECKS               F4720C       277     A     
 COMCMOS  *         TO SEE WHETHER THIS MOVE IS IN ACTUAL FACT AN OVERLAP MOVE             F4720C       278     A     
 COMCMOS  *         AND IF NOT, CALLS THE FASTER MNS TO DO THE MOVE.  FOR THIS             F4720C       279     A     
 COMCMOS  *         REASON, USERS OF THIS ROUTINE SHOULD ALSO CALL *COMCMNS*.              F4720C       280     A     
 COMCMOS  *                                                                                F4720C       281     A     
 COMCMOS  *         ENTRY  (B1) = 1.                                                       F4720C       282     A     
 COMCMOS  *                (B2) = SOURCE FIRST BIT (0,1,..,59).                            F4720C       283     A     
 COMCMOS  *                (B4) = DESTINATION FIRST BIT (0,1,..,59).                       F4720C       284     A     
 COMCMOS  *                (X0) = NUMBER OF BITS TO MOVE.                                  F4720C       285     A     
 COMCMOS  *                (X2) = SOURCE FIRST WORD ADDRESS.                               F4720C       286     A     
 COMCMOS  *                (X4) = DESTINATION FIRST WORD ADDRESS.                          F4720C       287     A     
 COMCMOS  *                                                                                F4720C       288     A     
 COMCMOS  *         EXIT   (B1) = 1.                                                       F4720C       289     A     
 COMCMOS  *                (B2) = SOURCE NEXT BIT (0,1,..,59).                             F4720C       290     A     
 COMCMOS  *                (B4) = DESTINATION NEXT BIT (0,1,..,59).                        F4720C       291     A     
 COMCMOS  *                (X2) = SOURCE NEXT WORD ADDRESS.                                F4720C       292     A     
 COMCMOS  *                (X4) = DESTINATION NEXT WORD ADDRESS.                           F4720C       293     A     
 COMCMOS  *                                                                                F4720C       294     A     
 COMCMOS  *         USES   X0, X1, X2, X3, X4, X5, X6, X7.                                 F4720C       295     A     
 COMCMOS  *                B1, B2, B3, B4, B5, B6.                                         F4720C       296     A     
 COMCMOS  *                A1, A2, A3, A5, A6, A7.                                         F4720C       297     A     
 COMCMOS  *                                                                                F4720C       298     A     
 COMCMOS  *         CALLS  MNS=.                                                           F4720C       299     A     
 COMCMOS                                                                                   F4720C       300     A     
 COMCMOS  *         THE COMMENTING SCHEME INVOLVED HEREIN COULD ALSO USE                   F4720C       301     A     
 COMCMOS  *         SOME EXPLANATION.  IT IS BASED ON A SIX BIT WORD, EACH BIT             F4720C       302     A     
 COMCMOS  *         IDENTIFIED BY A LETTER IN THE 64 CHARACTER CHARACTER SET.              F4720C       303     A     
 COMCMOS  *         THE OVERALL ASSUMPTION IS THAT THE SOURCE STARTS AT BIT 0,             F4720C       304     A     
 COMCMOS  *         (LEFT MOST), AND THE DESTINATION COMMENCES AT BIT 3 (THE               F4720C       305     A     
 COMCMOS  *         MIDDLE).  THIS ASSUMPTION IS MODIFIED FOR THE BIT ALIGNED              F4720C       306     A     
 COMCMOS  *         MOVE (MOS10 ET SEQ.), AND FOR THE FIRST BIT SOURCE GREATER             F4720C       307     A     
 COMCMOS  *         THAN FIRST BIT DESTINATION CASE (MOS50 ET SEQ.).  THE                  F4720C       308     A     
 COMCMOS  *         COMMENTS EXPLAIN THE DIFFERENCE FOR THESE CASES.                       F4720C       309     A     
 COMCMOS                                                                                   F4720C       310     A     
 COMCMOS  *         PROCESS OVERLAP MOVE.                                                  F4720C       311     A     
 COMCMOS                                                                                   F4720C       312     A     
 COMCMOS   MOS50    BX7    X5+X7       /      /      /      /      /      /DEFGHI/         F4720C       313     A     
 COMCMOS            SX6    X6+1                                                            F4720C       314     A     
 COMCMOS            SA7    A7-B1       /      /      /      /      /      /*STOR*/         F4720C       315     A     
 COMCMOS                                                                                   F4720C       316     A     
 COMCMOS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       317     A     
 COMCMOS  *         WITH PRIOR JUMP:   /PQRMNO/      /GHIJKL/      /      /      /         F4720C       318     A     
 COMCMOS  *         WITHOUT JUMP:      /JKLGHI/      /ABCDEF/      /      /      /         F4720C       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/28. 19.11.32.      PAGE  57    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMOS 
  
 COMCMOS                                                                                   F4720C       320     A     
 COMCMOS   MOS60    BX5    X0*X1       /      /      /      /...GHI/      /      /         F4720C       321     A     
 COMCMOS            LX1    X3,B3       /DEFABC/      /      /      /      /      /         F4720C       322     A     
 COMCMOS            SA3    A3-B1       /      /      /<>@\^;/      /      /      /         F4720C       323     A     
 COMCMOS            BX7    -X0*X1      /      /      /      /      /      /DEF.../         F4720C       324     A     
 COMCMOS            MI     X6,MOS50    IF NOT ON LAST WORD                                 F4720C       325     A     
 COMCMOS                                                                                   F4720C       326     A     
 COMCMOS  *         SITUATION AFTER    /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       327     A     
 COMCMOS  *         ONE LOOP:          /\^;<>@/      /"_!&'?/...ABC/      /\^;.../         F4720C       328     A     
 COMCMOS                                                                                   F4720C       329     A     
 COMCMOS            SA1    A7-1        /XXXXXX/      /      /      /      /      /         F4720C       330     A     
 COMCMOS            MX0    59                                                              F4720C       331     A     
 COMCMOS            BX7    X5+X7       /      /      /      /      /      /\^;ABC/         F4720C       332     A     
 COMCMOS            AX5    X0,B5                                                           F4720C       333     A     
 COMCMOS            IX6    X5-X0       MASK FOR LAST WORD                                  F4720C       334     A     
 COMCMOS            BX3    -X6*X7      /      /      /...ABC/      /      /      /         F4720C       335     A     
 COMCMOS            BX5    X6*X1       /      /      /      /XXX.../      /      /         F4720C       336     A     
 COMCMOS            BX7    X5+X3       /      /      /      /      /      /XXXABC/         F4720C       337     A     
 COMCMOS            SA7    A1          /      /      /      /      /      /*STOR*/         F4720C       338     A     
 COMCMOS                                                                                   F4720C       339     A     
 COMCMOS  *         DETERMINE IF WE CAN PERFORM A NON OVERLAP MOVE.                        F4720C       340     A     
 COMCMOS                                                                                   F4720C       341     A     
 COMCMOS   MOS      SUBR               ENTRY/EXIT..                                        F4720C       342     A     
 COMCMOS            IX6    X2-X4       WOV = SOURCE ADDRESS - DESTINATION ADDRESS          F4720C       343     A     
 COMCMOS            PL     X6,MOS40    IF NO ADDRESS OVERLAP                               F4720C       344     A     
 COMCMOS            LX6    2           WO4 = WOV * 4                                       F4720C       345     A     
 COMCMOS            SX1    B4-B2       BOV = DESTINATION BIT - SOURCE BIT                  F4720C       346     A     
 COMCMOS            IX3    X1+X6       TMP = WO4 + BOV                                     F4720C       347     A     
 COMCMOS            LX6    4           W64 = WO4 * 16 = WOV * 64                           F4720C       348     A     
 COMCMOS            IX5    X3-X6       NBA = W64 - TMP = W64 - WO4 + BOV                   F4720C       349     A     
 COMCMOS            IX6    X5-X0                                                           F4720C       350     A     
 COMCMOS            PL     X6,MOS40    IF NBA (NUM. BITS APART) .LT. BITS TO MOVE          F4720C       351     A     
 COMCMOS            SA1    =00000104210422000074B D60 = 1.0/60 .OR. 60                     F4720C       352     A     
 COMCMOS            FX7    X1*X0       WTM = BITS TO MOVE / 60.                            F4720C       353     A     
 COMCMOS            SB3    X1                                                              F4720C       354     A     
 COMCMOS            BX6    X4                                                              F4720C       355     A     
 COMCMOS            ZR     X7,MOS40    IF BITS TO MOVE .LT. 60 (WTM = 0)                   F4720C       356     A     
 COMCMOS                                                                                   F4720C       357     A     
 COMCMOS  *         THIS IS A GENUINE OVERLAP MOVE.                                        F4720C       358     A     
 COMCMOS                                                                                   F4720C       359     A     
 COMCMOS            IX4    X4+X7       TENTATIVE END OF DESTINATION FIELD                  F4720C       360     A     
 COMCMOS            IX2    X2+X7       TENTATIVE END OF SOURCE FIELD                       F4720C       361     A     
 COMCMOS            LX7    2           WT4 = WTM * 4                                       F4720C       362     A     
 COMCMOS            IX3    X0+X7       TMP = WT4 + BTM (BITS TO MOVE)                      F4720C       363     A     
 COMCMOS            LX7    4           W64 = WT4 * 16 = WTM * 64                           F4720C       364     A     
 COMCMOS            IX5    X3-X7       REM = TMP - W64 ( MOD(BTM, 60) )                    F4720C       365     A     
 COMCMOS            SB5    B4-B3       FOR FINAL PUT TOGETHER                              F4720C       366     A     
 COMCMOS            SB2    X5+B2       TENTATIVE SOURCE BIT                                F4720C       367     A     
 COMCMOS            SB4    X5+B4       TENTATIVE DESTINATION BIT                           F4720C       368     A     
 COMCMOS            SB1    1                                                               F4720C       369     A     
 COMCMOS            LT     B2,B3,MOS10  IF SOURCE BIT WITHIN SAME WORD                     F4720C       370     A     
 COMCMOS            SB2    B2-B3       CORRECT SOURCE BIT                                  F4720C       371     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  58    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMOS 
  
 COMCMOS            SX2    X2+B1       POSITION AT NEXT SOURCE WORD                        F4720C       372     A     
 COMCMOS   MOS10    LT     B4,B3,MOS20  IF DESTINATION BIT WITHIN SAME WORD                F4720C       373     A     
 COMCMOS            SB4    B4-B3       CORRECT DESTINATION BIT                             F4720C       374     A     
 COMCMOS            SX4    X4+B1       POSITION AT NEXT DESTINATION WORD                   F4720C       375     A     
 COMCMOS                                                                                   F4720C       376     A     
 COMCMOS  *         STARTING POINT IS NOW DETERMINED FOR A BACKWARDS MOVE.                 F4720C       377     A     
 COMCMOS  *                                                                                F4720C       378     A     
 COMCMOS  *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  /         F4720C       379     A     
 COMCMOS  *                            /      /      /      /      /      /      /         F4720C       380     A     
 COMCMOS                                                                                   F4720C       381     A     
 COMCMOS   MOS20    SA3    X2          /      /      /MNOPQR/      /      /      /         F4720C       382     A     
 COMCMOS            MX0    1           FORM MASK                                           F4720C       383     A     
 COMCMOS            SA5    X4          /      /      /      /XXXXXX/      /      /         F4720C       384     A     
 COMCMOS            AX1    X0,B4                                                           F4720C       385     A     
 COMCMOS            SB3    B2-B4       SHIFT                                               F4720C       386     A     
 COMCMOS            BX7    -X0*X1                                                          F4720C       387     A     
 COMCMOS            LX1    X3,B3       /PQRMNO/      /      /      /      /      /         F4720C       388     A     
 COMCMOS            IX7    X7+X7       MASK                                                F4720C       389     A     
 COMCMOS            BX5    -X7*X5      /      /      /      /...XXX/      /      /         F4720C       390     A     
 COMCMOS            IX6    X6-X4                                                           F4720C       391     A     
 COMCMOS            LX3    X0,B3                                                           F4720C       392     A     
 COMCMOS            BX7    X7*X1       /      /      /      /      /      /PQR.../         F4720C       393     A     
 COMCMOS            IX0    X3-X0                                                           F4720C       394     A     
 COMCMOS            BX7    X7+X5       /      /      /      /      /      /PQRXXX/         F4720C       395     A     
 COMCMOS            SA3    A3-B1       /      /      /GHIJKL/      /      /      /         F4720C       396     A     
 COMCMOS            LX0    X0,B1       - MASK ( 60 - SHIFT ) FOR LOOP                      F4720C       397     A     
 COMCMOS            LE     B4,B2,MOS30  IF DESTINATION BIT .LE. SOURCE BIT                 F4720C       398     A     
 COMCMOS            SB3    B3+60       WE NEED AN EXTRA SOURCE WORD                        F4720C       399     A     
 COMCMOS            BX0    -X0         REVERSE THE MASK                                    F4720C       400     A     
 COMCMOS            LX1    X3,B3       /JHKGHI/      /      /      /      /      /         F4720C       401     A     
 COMCMOS            SA3    A3-1        /      /      /ABCDEF/      /      /      /         F4720C       402     A     
 COMCMOS            BX7    X0*X7       /      /      /      /      /      /...XXX/         F4720C       403     A     
 COMCMOS            BX5    -X0*X1      /      /      /      /JKL.../      /      /         F4720C       404     A     
 COMCMOS            NO                                                                     F4720C       405     A     
 COMCMOS            BX7    X5+X7       /      /      /      /      /      /JKLXXX/         F4720C       406     A     
 COMCMOS   MOS30    SA7    A5          /      /      /      /      /      /*STOR*/         F4720C       407     A     
 COMCMOS            SX6    X6+B1                                                           F4720C       408     A     
 COMCMOS            EQ     MOS60       CONTINUE                                            F4720C       409     A     
 COMCMOS                                                                                   F4720C       410     A     
 COMCMOS  *         HERE WE HAVE A NON-OVERLAPPING MOVE.                                   F4720C       411     A     
 COMCMOS                                                                                   F4720C       412     A     
 COMCMOS   MOS40    SA1    MOS         TRANSFER CALLERS RETURN ADDRESS                     F4720C       413     A     
 COMCMOS            BX6    X1                                                              F4720C       414     A     
 COMCMOS            SA6    =XMNS=                                                          F4720C       415     A     
 COMCMOS            EQ     =XMNS=+1    MOVE BIT STRING WITH NO OVERLAP                     F4720C       416     A     
 COMCMOS   MOS      SPACE  4,10                                                            F4720C       417     A     
 COMCMOS            BASE   *                                                               F4720C       418     A     
 COMCMOS   QUAL$    IF     -DEF,QUAL$                                                      F4720C       419     A     
 COMCMOS            QUAL   *                                                               F4720C       420     A     
 COMCMOS   MOS      EQU    /COMCMOS/MOS                                                    F4720C       421     A     
 COMCMOS   MOS=     EQU    /COMCMOS/MOS                                                    F4720D        11     A     
 COMCMOS   QUAL$    ENDIF                                                                  F4720C       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/28. 19.11.32.      PAGE  59    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMOS 
  
 COMCMOS   MOS      ENDX                                                                   F4720C       423     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMOS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          F4720C                     168       168
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTM 
  
 COMCMTM  *COMDECK  COMCMTM            MANAGED TABLE MACROS.                       COMCMTM COMCMTM        1     A     
 COMCMTM   MTM      CTEXT  COMCMTM - MANAGED TABLE MACROS.                         COMCMTM COMCMTM        2     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM        3     A     
 COMCMTM  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCMTM COMCMTM        4     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM        5     A     
 COMCMTM  ***       COMCMTM - MANAGED TABLE MACROS.                                COMCMTM COMCMTM        6     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM        7     A     
 COMCMTM  *         G. R. MANSFIELD.   70/12/14.                                   COMCMTM COMCMTM        8     A     
 COMCMTM  *                                                                                CPSA245       77     A     
 COMCMTM  *         *******************************************************                CPSA245       78     A     
 COMCMTM  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       79     A     
 COMCMTM  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       80     A     
 COMCMTM  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       81     A     
 COMCMTM  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       82     A     
 COMCMTM  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       83     A     
 COMCMTM  *         *******************************************************                CPSA245       84     A     
 COMCMTM  *                                                                                CPSA245       85     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM        9     A     
 COMCMTM  *         COMCMTM CONTAINS MACROS FOR GENERATION, ALLOCATION,            COMCMTM COMCMTM       10     A     
 COMCMTM  *         AND PROCESSING OF MANAGED TABLES.  COMCMTM IS INTENDED FOR     COMCMTM COMCMTM       11     A     
 COMCMTM  *         USE WITH COMCMTP.                                              COMCMTM COMCMTM       12     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM       13     A     
 COMCMTM  ***       ADDWRD - ADD WORD TO MANAGED TABLE.                            COMCMTM COMCMTM       14     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       15     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       16     A     
 COMCMTM  *         ADDWRD TABLE,REG                                               COMCMTM COMCMTM       17     A     
 COMCMTM  *         ENTRY  *TABLE* = TABLE NUMBER.                                 COMCMTM COMCMTM       18     A     
 COMCMTM  *                *REG* = REGISTER NAME OR EXPRESSION FOR WORD TO ADD.    COMCMTM COMCMTM       19     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       20     A     
 COMCMTM  *         USES   A - 0.                                                  COMCMTM COMCMTM       21     A     
 COMCMTM  *                X - 1.                                                  COMCMTM COMCMTM       22     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       23     A     
 COMCMTM  *         CALLS  ADW.                                                    COMCMTM COMCMTM       24     A     
 COMCMTM                                                                           COMCMTM COMCMTM       25     A     
 COMCMTM                                                                           COMCMTM COMCMTM       26     A     
 COMCMTM   ADDWRD   MACRO  A,B                                                     COMCMTM COMCMTM       27     A     
 COMCMTM            IFC    NE,$X1$B$,1                                             COMCMTM COMCMTM       28     A     
 COMCMTM            BX1    B                                                       COMCMTM COMCMTM       29     A     
 COMCMTM            R=     A0,A                                                    COMCMTM COMCMTM       30     A     
 COMCMTM            RJ     ADW                                                     COMCMTM COMCMTM       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/28. 19.11.32.      PAGE  60    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTM 
  
 COMCMTM            ENDM                                                           COMCMTM COMCMTM       32     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM       33     A     
 COMCMTM  ***       ALLOC - ALLOCATE TABLE SPACE.                                  COMCMTM COMCMTM       34     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       35     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       36     A     
 COMCMTM  *         ALLOC  TABLE,WORDS                                             COMCMTM COMCMTM       37     A     
 COMCMTM  *         ENTRY  *TABLE* = TABLE NUMBER.                                 COMCMTM COMCMTM       38     A     
 COMCMTM  *                *WORDS* = WORD COUNT OF TABLE.                          COMCMTM COMCMTM       39     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       40     A     
 COMCMTM  *         USES   A - 0.                                                  COMCMTM COMCMTM       41     A     
 COMCMTM  *                X - 1.                                                  COMCMTM COMCMTM       42     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       43     A     
 COMCMTM  *         CALLS  ATS.                                                    COMCMTM COMCMTM       44     A     
 COMCMTM                                                                           COMCMTM COMCMTM       45     A     
 COMCMTM                                                                           COMCMTM COMCMTM       46     A     
 COMCMTM   ALLOC    MACRO  A,B                                                     COMCMTM COMCMTM       47     A     
 COMCMTM            R=     X1,B                                                    COMCMTM COMCMTM       48     A     
 COMCMTM            R=     A0,A                                                    COMCMTM COMCMTM       49     A     
 COMCMTM            RJ     ATS                                                     COMCMTM COMCMTM       50     A     
 COMCMTM            ENDM                                                           COMCMTM COMCMTM       51     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM       52     A     
 COMCMTM  ***       SEARCH - SEARCH MANAGED TABLE.                                 COMCMTM COMCMTM       53     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       54     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       55     A     
 COMCMTM  *         SEARCH TNAM,ENTRY,MASK                                         COMCMTM COMCMTM       56     A     
 COMCMTM  *         ENTRY  *TNAM* = TABLE NAME.                                    COMCMTM COMCMTM       57     A     
 COMCMTM  *                *ENTRY* = ENTRY TO SEARCH FOR.                          COMCMTM COMCMTM       58     A     
 COMCMTM  *                *MASK* = SEARCH MASK IN (X0).                           COMCMTM COMCMTM       59     A     
 COMCMTM  *                IF *MASK* IS NOT PRESENT, MASK IS ALL BITS.             COMCMTM COMCMTM       60     A     
 COMCMTM  *         USES   A - 0.                                                  COMCMTM COMCMTM       61     A     
 COMCMTM  *                B - 7.                                                  COMCMTM COMCMTM       62     A     
 COMCMTM  *                X - 6.                                                  COMCMTM COMCMTM       63     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       64     A     
 COMCMTM  *         CALLS  EQS OR MES.                                             COMCMTM COMCMTM       65     A     
 COMCMTM                                                                           COMCMTM COMCMTM       66     A     
 COMCMTM                                                                           COMCMTM COMCMTM       67     A     
 COMCMTM   SEARCH   MACRO  TNAM,ENTRY,MASK                                         COMCMTM COMCMTM       68     A     
 COMCMTM            R=     A0,TNAM                                                 COMCMTM COMCMTM       69     A     
 COMCMTM            R=     B7,C.TNAM                                               COMCMTM COMCMTM       70     A     
 COMCMTM            IFC    NE,$X6$ENTRY$,1                                         COMCMTM COMCMTM       71     A     
 COMCMTM            BX6    ENTRY                                                   COMCMTM COMCMTM       72     A     
 COMCMTM            IFC    EQ,$MASK$$                                              COMCMTM COMCMTM       73     A     
 COMCMTM            RJ     EQS                                                     COMCMTM COMCMTM       74     A     
 COMCMTM            ELSE   1                                                       COMCMTM COMCMTM       75     A     
 COMCMTM            RJ     MES                                                     COMCMTM COMCMTM       76     A     
 COMCMTM            ENDM                                                           COMCMTM COMCMTM       77     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM       78     A     
 COMCMTM  ***       TABLE - GENERATE MANAGED TABLE.                                COMCMTM COMCMTM       79     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       80     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       81     A     
 COMCMTM  *         TABLE  TNAME,COUNT,EQUIV                                       COMCMTM COMCMTM       82     A     
 COMCMTM  *         ENTRY  *TNAME* = TABLE NAME.                                   COMCMTM COMCMTM       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/28. 19.11.32.      PAGE  61    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTM 
  
 COMCMTM  *                *COUNT* = WORD COUNT/ENTRY (1 IF NOT SPECIFIED)         COMCMTM COMCMTM       84     A     
 COMCMTM  *                *EQUIV* = EQUIVALENT TABLE NAME.  THIS ALLOWS CERTAIN   COMCMTM COMCMTM       85     A     
 COMCMTM  *                            TABLES TO BE USED BY DIFFERENT PROCESSORS.  COMCMTM COMCMTM       86     A     
 COMCMTM  *         EXIT   *F.TNAM* IS NAME OF WORD CONTAINING THE TABLE FWA.      COMCMTM COMCMTM       87     A     
 COMCMTM  *                *L.TNAM* IS NAME OF WORD CONTAINING THE TABLE LENGTH.   COMCMTM COMCMTM       88     A     
 COMCMTM  *                *C.TNAM* IS WORD COUNT PER ENTRY.                       COMCMTM COMCMTM       89     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       90     A     
 COMCMTM  *         USES   NONE.                                                   COMCMTM COMCMTM       91     A     
 COMCMTM  *                                                                        COMCMTM COMCMTM       92     A     
 COMCMTM  *         CALLS  NONE.                                                   COMCMTM COMCMTM       93     A     
 COMCMTM                                                                           COMCMTM COMCMTM       94     A     
 COMCMTM                                                                           COMCMTM COMCMTM       95     A     
 COMCMTM   NTAB     SET    0                                                       COMCMTM COMCMTM       96     A     
 COMCMTM                                                                           COMCMTM COMCMTM       97     A     
 COMCMTM            MACRO  TABLE,TNAM,COUNT,EQUIV                                  COMCMTM COMCMTM       98     A     
 COMCMTM            VFD    6/TNAM,18/C.TNAM,18/L.TNAM,18/F.TNAM                    COMCMTM COMCMTM       99     A     
 COMCMTM            ORG    *-1                                                     COMCMTM COMCMTM      100     A     
 COMCMTM   C.TNAM   EQU    COUNT 1                                                 COMCMTM COMCMTM      101     A     
 COMCMTM            IFC    EQ,$EQUIV$$                                             COMCMTM COMCMTM      102     A     
 COMCMTM   TNAM     EQU    NTAB                                                    COMCMTM COMCMTM      103     A     
 COMCMTM   NTAB     SET    NTAB+1                                                  COMCMTM COMCMTM      104     A     
 COMCMTM   TABLES   RMT                                                            COMCMTM COMCMTM      105     A     
 COMCMTM            ORG    FTAB+TNAM                                               COMCMTM COMCMTM      106     A     
 COMCMTM   F.TNAM   CON    MEML+TNAM                                               COMCMTM COMCMTM      107     A     
 COMCMTM            ORG    LTAB+TNAM                                               COMCMTM COMCMTM      108     A     
 COMCMTM   L.TNAM   CON    0                                                       COMCMTM COMCMTM      109     A     
 COMCMTM            ORG    LTAB+NTAB                                               COMCMTM COMCMTM      110     A     
 COMCMTM   TABLES   RMT                                                            COMCMTM COMCMTM      111     A     
 COMCMTM                                                                           COMCMTM COMCMTM      112     A     
 COMCMTM            ELSE                                                           COMCMTM COMCMTM      113     A     
 COMCMTM   TNAM     EQU    EQUIV                                                   COMCMTM COMCMTM      114     A     
 COMCMTM   TABLES   RMT                                                            COMCMTM COMCMTM      115     A     
 COMCMTM   F.TNAM   EQU    F.EQUIV                                                 COMCMTM COMCMTM      116     A     
 COMCMTM   L.TNAM   EQU    L.EQUIV                                                 COMCMTM COMCMTM      117     A     
 COMCMTM   TABLES   RMT                                                            COMCMTM COMCMTM      118     A     
 COMCMTM                                                                           COMCMTM COMCMTM      119     A     
 COMCMTM            ENDIF                                                          COMCMTM COMCMTM      120     A     
 COMCMTM            ENDM                                                           COMCMTM COMCMTM      121     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM      122     A     
 COMCMTM  *         REMAINDER OF TABLE MANAGER STORAGE.                            COMCMTM COMCMTM      123     A     
 COMCMTM                                                                           COMCMTM COMCMTM      124     A     
 COMCMTM                                                                           COMCMTM COMCMTM      125     A     
 COMCMTM   TABLES   RMT                                                            COMCMTM COMCMTM      126     A     
 COMCMTM   MU       CON    0           MEMORY USED                                 COMCMTM COMCMTM      127     A     
 COMCMTM   LM       CON    MEML        LOW MEMORY ADDRESS                          COMCMTM COMCMTM      128     A     
 COMCMTM   TN       CON    NTAB+1      NUMBER OF MANAGED TABLES                    COMCMTM COMCMTM      129     A     
 COMCMTM   TO       CON    TOV         ADDRESS OF TABLE OVERFLOW PROCESSOR         COMCMTM COMCMTM      130     A     
 COMCMTM   FTAB     BSS    0           TABLE ADDRESSES                             COMCMTM COMCMTM      131     A     
 COMCMTM                                                                           COMCMTM COMCMTM      132     A     
 COMCMTM   TEND     EQU    NTAB        DUMMY TABLE                                 COMCMTM COMCMTM      133     A     
 COMCMTM   NTAB     SET    NTAB+1                                                  COMCMTM COMCMTM      134     A     
 COMCMTM            ORG    FTAB+TEND                                               COMCMTM COMCMTM      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/28. 19.11.32.      PAGE  62    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTM 
  
 COMCMTM   F.TEND   CON    MEML+TEND   DUMMY TABLE                                 COMCMTM COMCMTM      136     A     
 COMCMTM   LTAB     BSS    0           TABLE LENGTHS                               COMCMTM COMCMTM      137     A     
 COMCMTM            ORG    LTAB+TEND                                               COMCMTM COMCMTM      138     A     
 COMCMTM   L.TEND   CON    0                                                       COMCMTM COMCMTM      139     A     
 COMCMTM   TABLES   RMT                                                            COMCMTM COMCMTM      140     A     
 COMCMTM   MTM      SPACE  4,10                                                    COMCMTM COMCMTM      141     A     
 COMCMTM   MTM      ENDX                                                           COMCMTM COMCMTM      142     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMTM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCMTM                    142       142
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP  *COMDECK  COMCMTP            MANAGED TABLE PROCESSORS.                   COMCMTP COMCMTP        1     A     
 COMCMTP   MTP      CTEXT  COMCMTP - MANAGED TABLE PROCESSORS.                     COMCMTP COMCMTP        2     A     
 COMCMTP   MTP      SPACE  4,10                                                    COMCMTP COMCMTP        3     A     
 COMCMTP            IF     -DEF,FTAB,1                                             COMCMTP COMCMTP        4     A     
 COMCMTP   TABLES   HERE                                                           COMCMTP COMCMTP        5     A     
 COMCMTP   MTP      SPACE  4,10                                                    COMCMTP COMCMTP        6     A     
 COMCMTP            IF     -DEF,QUAL$,1                                            COMCMTP COMCMTP        7     A     
 COMCMTP            QUAL   COMCMTP                                                 COMCMTP COMCMTP        8     A     
 COMCMTP            BASE   D                                                       COMCMTP COMCMTP        9     A     
 COMCMTP  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCMTP COMCMTP       10     A     
 COMCMTP   MTP      SPACE  4,10                                                    COMCMTP COMCMTP       11     A     
 COMCMTP  ***       COMCMTP - MANAGED TABLE PROCESSORS.                            COMCMTP COMCMTP       12     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       13     A     
 COMCMTP  *         G. R. MANSFIELD.   70/12/20.                                   COMCMTP COMCMTP       14     A     
 COMCMTP  *         G. M. TOWNSEND.    77/06/11.                                   COMCMTP COMCMTP       15     A     
 COMCMTP  *                                                                                CPSA245       86     A     
 COMCMTP  *         *******************************************************                CPSA245       87     A     
 COMCMTP  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       88     A     
 COMCMTP  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       89     A     
 COMCMTP  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       90     A     
 COMCMTP  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245       91     A     
 COMCMTP  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245       92     A     
 COMCMTP  *         *******************************************************                CPSA245       93     A     
 COMCMTP  *                                                                                CPSA245       94     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       16     A     
 COMCMTP  *         COMCMTP CONTAINS ROUTINES FOR PROCESSING MANAGED TABLES.       COMCMTP COMCMTP       17     A     
 COMCMTP  *         MACROS FOR CALLS AND GENERATION ARE CONTAINED IN COMCMTM.      COMCMTP COMCMTP       18     A     
 COMCMTP   MTP      SPACE  4,10                                                    COMCMTP COMCMTP       19     A     
 COMCMTP  ***       THE MANAGED TABLE PROCESSORS ALLOW THE PARTITIONING OF         COMCMTP COMCMTP       20     A     
 COMCMTP  *         CENTRAL MEMORY INTO VARIABLE REGIONS (CALLED TABLES).          COMCMTP COMCMTP       21     A     
 COMCMTP  *         THESE TABLES ARE REFERENCED BY POINTERS WHICH INDICATE         COMCMTP COMCMTP       22     A     
 COMCMTP  *         THE FIRST ADDRESS OF THE TABLE AND THE TABLE LENGTH.           COMCMTP COMCMTP       23     A     
 COMCMTP  *         MEMORY IS ALLOCATED TO EACH TABLE AS IT IS REQUIRED AND        COMCMTP COMCMTP       24     A     
 COMCMTP  *         THE USER MAY DELETE SPACE FROM THE TABLES.  THE USER IS        COMCMTP COMCMTP       25     A     
 COMCMTP  *         EXPECTED TO PROVIDE CERTAIN CONSTANTS FOR USE BY THE           COMCMTP COMCMTP       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/28. 19.11.32.      PAGE  63    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP  *         TABLE PROCESSORS.  EACH TABLE IS ALLOWED AT LEAST 1 WORD       COMCMTP COMCMTP       27     A     
 COMCMTP  *         OF EXPANSION SPACE TO ALLOW A DUMMY WORD BETWEEN EACH          COMCMTP COMCMTP       28     A     
 COMCMTP  *         TABLE.  THIS ALLOWS EFFICIENT SEARCH METHODS TO BE USED.       COMCMTP COMCMTP       29     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       30     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       31     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       32     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       33     A     
 COMCMTP  *         DATA PROVIDED BY CALLER.                                       COMCMTP COMCMTP       34     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       35     A     
 COMCMTP  *         *MEML* = LOWEST ADDRESS OF MANAGED MEMORY.                     COMCMTP COMCMTP       36     A     
 COMCMTP  *         *TOV*  = ADDRESS OF TABLE OVERFLOW PROCESSOR.                  COMCMTP COMCMTP       37     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       38     A     
 COMCMTP  *         DATA PROVIDED BY *COMCMTM*.                                    COMCMTP COMCMTP       39     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       40     A     
 COMCMTP  *         *NTAB* = NUMBER OF MANAGED TABLES.                             COMCMTP COMCMTP       41     A     
 COMCMTP  *         *FTAB* = START OF TABLE ADDRESSES.                             COMCMTP COMCMTP       42     A     
 COMCMTP  *         *LTAB* = START OF TABLE LENGTHS.                               COMCMTP COMCMTP       43     A     
 COMCMTP  *         *F.TNAM* = ADDRESS POINTER FOR TABLE *TNAM*.                   COMCMTP COMCMTP       44     A     
 COMCMTP  *         *L.TNAM* = LENGTH POINTER FOR TABLE *TNAM*.                    COMCMTP COMCMTP       45     A     
 COMCMTP  *         *C.TNAM* = WORDS/ENTRY FOR SEARCH ROUTINES.                    COMCMTP COMCMTP       46     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       47     A     
 COMCMTP  *         DATA DYNAMICALLY CHANGABLE.                                    COMCMTP COMCMTP       48     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       49     A     
 COMCMTP  *         (TN) = NUMBER OF MANAGED TABLES.  SET TO *NTAB* BY             COMCMTP COMCMTP       50     A     
 COMCMTP  *                *COMCMTM*.  VALUE MUST BE .LE. *NTAB* DURING USE.       COMCMTP COMCMTP       51     A     
 COMCMTP  *         (TO) = TABLE OVERFLOW PROCESSOR.  SET TO *TOV* BY              COMCMTP COMCMTP       52     A     
 COMCMTP  *                *COMCMTM*.                                              COMCMTP COMCMTP       53     A     
 COMCMTP  *         (LM) = LOW MEMORY LIMIT.  VALUE SET TO *MEML* BY *COMCMTM*.    COMCMTP COMCMTP       54     A     
 COMCMTP  *                IF THIS VALUE IS RAISED, *MTU* SHOULD BE CALLED         COMCMTP COMCMTP       55     A     
 COMCMTP  *                TO ALLOW ROOM FOR CHANGE.                               COMCMTP COMCMTP       56     A     
 COMCMTP  *         (F.TEND) = HIGH MEMORY LIMIT.  VALUE MUST BE INITIALIZED       COMCMTP COMCMTP       57     A     
 COMCMTP  *                BY USER.  IF THIS VALUE IS LOWERED, *MTD* SHOULD        COMCMTP COMCMTP       58     A     
 COMCMTP  *                BE CALLED TO ALLOW ROOM FOR CHANGE.                     COMCMTP COMCMTP       59     A     
 COMCMTP  *         (TOVT) = *TOV* THRESHOLD.  IF THIS WORD IS DEFINED IT          COMCMTP COMCMTP       60     A     
 COMCMTP  *                SHOULD CONTAIN THE THRESHOLD FOR CALLING *TOV*; *ATS*   COMCMTP COMCMTP       61     A     
 COMCMTP  *                WILL CALL *TOV* WHEN TABLES MUST BE MOVED AND LESS      COMCMTP COMCMTP       62     A     
 COMCMTP  *                THAN (TOVT) FREE WORDS REMAIN.  IF NOT DEFINED, AN      COMCMTP COMCMTP       63     A     
 COMCMTP  *                EFFECTIVE VALUE OF ZERO IS USED.                        COMCMTP COMCMTP       64     A     
 COMCMTP   ADW      SPACE  4,10                                                    COMCMTP COMCMTP       65     A     
 COMCMTP  ***       ADW - ADD WORD TO TABLE.                                       COMCMTP COMCMTP       66     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       67     A     
 COMCMTP  *         ENTRY  (A0) = TABLE NUMBER.                                    COMCMTP COMCMTP       68     A     
 COMCMTP  *                (X1) = WORD.                                            COMCMTP COMCMTP       69     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       70     A     
 COMCMTP  *         EXIT   (X1) = WORD.                                            COMCMTP COMCMTP       71     A     
 COMCMTP  *                (X6) = WORD.                                            COMCMTP COMCMTP       72     A     
 COMCMTP  *                (A6) = ADDRESS OF WORD.                                 COMCMTP COMCMTP       73     A     
 COMCMTP  *                (X2) = FWA TABLE.                                       COMCMTP COMCMTP       74     A     
 COMCMTP  *                (X3) = LENGTH OF TABLE.                                 COMCMTP COMCMTP       75     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       76     A     
 COMCMTP  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCMTP COMCMTP       77     A     
 COMCMTP  *                B - NONE.                                               COMCMTP COMCMTP       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/28. 19.11.32.      PAGE  64    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP  *                A - 1, 2, 3, 4, 6, 7.                                   COMCMTP COMCMTP       79     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP       80     A     
 COMCMTP  *         CALLS  ATS.                                                    COMCMTP COMCMTP       81     A     
 COMCMTP                                                                           COMCMTP COMCMTP       82     A     
 COMCMTP                                                                           COMCMTP COMCMTP       83     A     
 COMCMTP   ADW1     BX6    X1          PLACE ENTRY IN TABLE                        COMCMTP COMCMTP       84     A     
 COMCMTP            IX7    X2+X3                                                   COMCMTP COMCMTP       85     A     
 COMCMTP            SA6    X7                                                      COMCMTP COMCMTP       86     A     
 COMCMTP            SX3    X3+B1                                                   COMCMTP COMCMTP       87     A     
 COMCMTP                                                                           COMCMTP COMCMTP       88     A     
 COMCMTP   ADW      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP       89     A     
 COMCMTP            SA2    FTAB+A0     SET TABLE DIFFERENTIAL                      COMCMTP COMCMTP       90     A     
 COMCMTP            SA4    A2+B1                                                   COMCMTP COMCMTP       91     A     
 COMCMTP            IX7    X4-X2                                                   COMCMTP COMCMTP       92     A     
 COMCMTP            SA3    LTAB+A0     CURRENT LENGTH                              COMCMTP COMCMTP       93     A     
 COMCMTP            SX6    X3+B1       ADD NEW ENTRY                               COMCMTP COMCMTP       94     A     
 COMCMTP            IX7    X6-X7                                                   COMCMTP COMCMTP       95     A     
 COMCMTP            SA6    A3          UPDATE LENGTH                               COMCMTP COMCMTP       96     A     
 COMCMTP            NG     X7,ADW1     IF ROOM FOR ENTRY + 1 WORD                  COMCMTP COMCMTP       97     A     
 COMCMTP            BX6    X1          SAVE ENTRY                                  COMCMTP COMCMTP       98     A     
 COMCMTP            LX7    X3          RESTORE LENGTH                              COMCMTP COMCMTP       99     A     
 COMCMTP            SA6    ADWA                                                    COMCMTP COMCMTP      100     A     
 COMCMTP            SA7    A3                                                      COMCMTP COMCMTP      101     A     
 COMCMTP            ALLOC  A0,1        ALLOCATE 1 WORD                             COMCMTP COMCMTP      102     A     
 COMCMTP            SA1    ADWA        RESTORE ENTRY                               COMCMTP COMCMTP      103     A     
 COMCMTP            SX3    X3-1        SET ORIGINAL LENGTH                         COMCMTP COMCMTP      104     A     
 COMCMTP            EQ     ADW1        PROCESS ENTRY                               COMCMTP COMCMTP      105     A     
 COMCMTP                                                                           COMCMTP COMCMTP      106     A     
 COMCMTP   ADWA     CON    0                                                       COMCMTP COMCMTP      107     A     
 COMCMTP   AMU      SPACE  4,10                                                    COMCMTP COMCMTP      108     A     
 COMCMTP  ***       AMU - ACCUMULATE MEMORY USED.                                  COMCMTP COMCMTP      109     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      110     A     
 COMCMTP  *         ENTRY  NONE.                                                   COMCMTP COMCMTP      111     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      112     A     
 COMCMTP  *         EXIT   MU = MAX(MU,CURRENT ASSIGNED LENGTH)                    COMCMTP COMCMTP      113     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      114     A     
 COMCMTP  *         USES   X - 1, 2, 3, 6.                                         COMCMTP COMCMTP      115     A     
 COMCMTP  *                B - 2.                                                  COMCMTP COMCMTP      116     A     
 COMCMTP  *                A - 1, 2, 6.                                            COMCMTP COMCMTP      117     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      118     A     
 COMCMTP  *         CALLS  NONE.                                                   COMCMTP COMCMTP      119     A     
 COMCMTP                                                                           COMCMTP COMCMTP      120     A     
 COMCMTP                                                                           COMCMTP COMCMTP      121     A     
 COMCMTP   AMU1     IX6    X6+X2       ACCUMULATE LENGTH                           COMCMTP COMCMTP      122     A     
 COMCMTP            SB2    B2-B1                                                   COMCMTP COMCMTP      123     A     
 COMCMTP            SA2    A2+B1       NEXT TABLE                                  COMCMTP COMCMTP      124     A     
 COMCMTP            NE     B2,B1,AMU1  LOOP FOR ALL TABLES                         COMCMTP COMCMTP      125     A     
 COMCMTP            SA1    MU          SET MAX LENGTH                              COMCMTP COMCMTP      126     A     
 COMCMTP            IX3    X6-X1                                                   COMCMTP COMCMTP      127     A     
 COMCMTP            NG     X3,AMUX     RETURN                                      COMCMTP COMCMTP      128     A     
 COMCMTP            SA6    A1                                                      COMCMTP COMCMTP      129     A     
 COMCMTP                                                                           COMCMTP COMCMTP      130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  65    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP   AMU      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP      131     A     
 COMCMTP            SA1    TN          (B2) = NUMBER OF TABLES                     COMCMTP COMCMTP      132     A     
 COMCMTP            MX6    0           CLEAR ACCUMULATION                          COMCMTP COMCMTP      133     A     
 COMCMTP            SB2    X1                                                      COMCMTP COMCMTP      134     A     
 COMCMTP            SA2    LTAB        FIRST TABLE                                 COMCMTP COMCMTP      135     A     
 COMCMTP            EQ     AMU1                                                    COMCMTP COMCMTP      136     A     
 COMCMTP   ATS      SPACE  4,10                                                    COMCMTP COMCMTP      137     A     
 COMCMTP  ***       ATS - ALLOCATE TABLE SPACE.                                    COMCMTP COMCMTP      138     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      139     A     
 COMCMTP  *         ENTRY  (A0) = TABLE INDEX.                                     COMCMTP COMCMTP      140     A     
 COMCMTP  *                (X1) = CHANGE (+ OR -) TO TABLE SIZE.                   COMCMTP COMCMTP      141     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      142     A     
 COMCMTP  *         EXIT   (X1) = CHANGE.                                          COMCMTP COMCMTP      143     A     
 COMCMTP  *                (X2) = FWA OF TABLE.                                    COMCMTP COMCMTP      144     A     
 COMCMTP  *                (X3) = NEW LENGTH OF TABLE.                             COMCMTP COMCMTP      145     A     
 COMCMTP  *                (X7) .LT. 0 IF TABLES MOVED.                            COMCMTP COMCMTP      146     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      147     A     
 COMCMTP  *         IF TABLES NOT MOVED -                                          COMCMTP COMCMTP      148     A     
 COMCMTP  *         USES   X - 2, 3, 4, 6, 7.                                      COMCMTP COMCMTP      149     A     
 COMCMTP  *                B - NONE.                                               COMCMTP COMCMTP      150     A     
 COMCMTP  *                A - 2, 3, 4, 6.                                         COMCMTP COMCMTP      151     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      152     A     
 COMCMTP  *         IF TABLES MOVED -                                              COMCMTP COMCMTP      153     A     
 COMCMTP  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCMTP COMCMTP      154     A     
 COMCMTP  *                B - 2, 3, 4, 5, 6, 7.                                   COMCMTP COMCMTP      155     A     
 COMCMTP  *                A - 1, 2, 3, 4, 6, 7.                                   COMCMTP COMCMTP      156     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      157     A     
 COMCMTP  *         RESTORES X - 0, 1, 5.                                          COMCMTP COMCMTP      158     A     
 COMCMTP  *                  B - 2, 3, 4, 5, 6, 7. (EXCEPT -0)                     COMCMTP COMCMTP      159     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      160     A     
 COMCMTP  *         CALLS  AMU, MVE=, TOV.                                         COMCMTP COMCMTP      161     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      162     A     
 COMCMTP  *         ENTRY CONDITIONS FOR USER ROUTINE *TOV*.                       COMCMTP COMCMTP      163     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      164     A     
 COMCMTP  *                (B1) = 1.                                               COMCMTP COMCMTP      165     A     
 COMCMTP  *                (B5) = COMPLEMENT OF NUMBER OF WORDS REQUIRED.          COMCMTP COMCMTP      166     A     
 COMCMTP  *                (B6) = RETURN ADDRESS TO CONTINUE PROCESSING, I.E.,     COMCMTP COMCMTP      167     A     
 COMCMTP  *                       EXIT FROM *TOV* VIA  * JP B6 *  INSTRUCTION.     COMCMTP COMCMTP      168     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      169     A     
 COMCMTP  *                THE LOCATION *TOV* MUST CONTAIN EXECUTABLE CODE.  *TOV* COMCMTP COMCMTP      170     A     
 COMCMTP  *                IS ENTERED VIA A *JP*, NOT VIA *RJ*.                    COMCMTP COMCMTP      171     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      172     A     
 COMCMTP  *         EXIT CONDITIONS FOR *TOV*.                                     COMCMTP COMCMTP      173     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      174     A     
 COMCMTP  *                ONLY B1 MUST BE PRESERVED.                              COMCMTP COMCMTP      175     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      176     A     
 COMCMTP  *                A POINTER WORD MUST BE INCREMENTED BY THE NUMBER OF     COMCMTP COMCMTP      177     A     
 COMCMTP  *                WORDS NEWLY AVAILABLE.  IF *NT* HAS NOT BEEN ALTERED    COMCMTP COMCMTP      178     A     
 COMCMTP  *                DURING EXECUTION, THE ADDRESS OF THE POINTER WORD IS    COMCMTP COMCMTP      179     A     
 COMCMTP  *                *F.TEND*.                                               COMCMTP COMCMTP      180     A     
 COMCMTP  *                IF *NT* HAS CHANGED, THE ADDRESS OF THE POINTER WORD    COMCMTP COMCMTP      181     A     
 COMCMTP  *                = FTAB-1 PLUS THE CONTENTS OF *NT*.                     COMCMTP COMCMTP      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/28. 19.11.32.      PAGE  66    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP                                                                           COMCMTP COMCMTP      183     A     
 COMCMTP                                                                           COMCMTP COMCMTP      184     A     
 COMCMTP   ATS      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP      185     A     
 COMCMTP            SA2    FTAB+A0     CURRENT FWA                                 COMCMTP COMCMTP      186     A     
 COMCMTP            SA3    LTAB+A0     CURRENT LENGTH                              COMCMTP COMCMTP      187     A     
 COMCMTP            SA4    A2+B1       NEXT TABLE FWA                              COMCMTP COMCMTP      188     A     
 COMCMTP            IX6    X1+X3       NEW LENGTH                                  COMCMTP COMCMTP      189     A     
 COMCMTP            IX7    X4-X2       ROOM BETWEEN TABLES                         COMCMTP COMCMTP      190     A     
 COMCMTP            SA6    A3          SET NEW LENGTH                              COMCMTP COMCMTP      191     A     
 COMCMTP            IX7    X6-X7                                                   COMCMTP COMCMTP      192     A     
 COMCMTP            BX3    X6                                                      COMCMTP COMCMTP      193     A     
 COMCMTP            NG     X7,ATSX     IF ROOM FOR CHANGE + 1 WORD, RETURN         COMCMTP COMCMTP      194     A     
 COMCMTP            IX7    X6-X1       SET PREVIOUS LENGTH                         COMCMTP COMCMTP      195     A     
 COMCMTP                                                                           COMCMTP COMCMTP      196     A     
 COMCMTP  *         INITIALIZE FOR TABLE MOVE.                                     COMCMTP COMCMTP      197     A     
 COMCMTP                                                                           COMCMTP COMCMTP      198     A     
 COMCMTP            BX6    X0          SAVE (X0)                                   COMCMTP COMCMTP      199     A     
 COMCMTP            SA7    A3                                                      COMCMTP COMCMTP      200     A     
 COMCMTP            SA6    ATSB                                                    COMCMTP COMCMTP      201     A     
 COMCMTP            BX7    X1          SAVE (X1)                                   COMCMTP COMCMTP      202     A     
 COMCMTP            LX6    X5          SAVE (X5)                                   COMCMTP COMCMTP      203     A     
 COMCMTP            SA7    A6+B1                                                   COMCMTP COMCMTP      204     A     
 COMCMTP            SA6    A7+B1                                                   COMCMTP COMCMTP      205     A     
 COMCMTP            SX7    B2          SAVE B REGISTERS                            COMCMTP COMCMTP      206     A     
 COMCMTP            SX6    B3                                                      COMCMTP COMCMTP      207     A     
 COMCMTP            SA7    A6+B1                                                   COMCMTP COMCMTP      208     A     
 COMCMTP            SA6    A7+B1                                                   COMCMTP COMCMTP      209     A     
 COMCMTP            SX7    B4                                                      COMCMTP COMCMTP      210     A     
 COMCMTP            SX6    B5                                                      COMCMTP COMCMTP      211     A     
 COMCMTP            SA7    A6+B1                                                   COMCMTP COMCMTP      212     A     
 COMCMTP            SA6    A7+B1                                                   COMCMTP COMCMTP      213     A     
 COMCMTP            SX7    B6                                                      COMCMTP COMCMTP      214     A     
 COMCMTP            SX6    B7                                                      COMCMTP COMCMTP      215     A     
 COMCMTP            SA7    A6+1                                                    COMCMTP COMCMTP      216     A     
 COMCMTP            SA6    A7+1                                                    COMCMTP COMCMTP      217     A     
 COMCMTP                                                                           COMCMTP COMCMTP      218     A     
 COMCMTP  *         COMPUTE REMAINING TABLE SPACE.                                 COMCMTP COMCMTP      219     A     
 COMCMTP                                                                           COMCMTP COMCMTP      220     A     
 COMCMTP   ATS1     SA2    TN          (B2) = NUMBER OF TABLES                     COMCMTP COMCMTP      221     A     
 COMCMTP            SB2    X2                                                      COMCMTP COMCMTP      222     A     
 COMCMTP            IX4    X1+X2       LENGTH = NUMBER OF TABLES + INCREASE        COMCMTP COMCMTP      223     A     
 COMCMTP            SB3    B2-1                                                    COMCMTP COMCMTP      224     A     
 COMCMTP   ATS2     SB3    B3-B1       LENGTH = LENGTH + TABLE LENGTH              COMCMTP COMCMTP      225     A     
 COMCMTP            SA3    LTAB+B3                                                 COMCMTP COMCMTP      226     A     
 COMCMTP            IX4    X4+X3                                                   COMCMTP COMCMTP      227     A     
 COMCMTP            NZ     B3,ATS2     LOOP FOR ALL TABLES                         COMCMTP COMCMTP      228     A     
 COMCMTP            SA2    LM          SET AVAILABLE LENGTH                        COMCMTP COMCMTP      229     A     
 COMCMTP            SA3    FTAB-1+B2                                               COMCMTP COMCMTP      230     A     
 COMCMTP            IX6    X3-X2                                                   COMCMTP COMCMTP      231     A     
 COMCMTP            SB4    X4          (B4) = TOTAL ASSIGNED LENGTH                COMCMTP COMCMTP      232     A     
 COMCMTP            IX7    X6-X4                                                   COMCMTP COMCMTP      233     A     
 COMCMTP            SB5    X7          (B5) = REMAINING SPACE                      COMCMTP COMCMTP      234     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  67    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP   QUAL$    IF     DEF,TOVT                                                COMCMTP COMCMTP      235     A     
 COMCMTP            SA1    TOVT                                                    COMCMTP COMCMTP      236     A     
 COMCMTP            IX7    X7-X1       ALLOW FOR THRESHOLD                         COMCMTP COMCMTP      237     A     
 COMCMTP   QUAL$    ENDIF                                                          COMCMTP COMCMTP      238     A     
 COMCMTP            MI     X7,ATS9     IF BELOW THRESHOLD                          COMCMTP COMCMTP      239     A     
 COMCMTP            SA3    FTAB        SET MOVE OFFSET FOR FIRST TABLE             COMCMTP COMCMTP      240     A     
 COMCMTP            MX7    30                                                      COMCMTP COMCMTP      241     A     
 COMCMTP            IX4    X2-X3                                                   COMCMTP COMCMTP      242     A     
 COMCMTP            LX4    30                                                      COMCMTP COMCMTP      243     A     
 COMCMTP            BX4    X7*X4                                                   COMCMTP COMCMTP      244     A     
 COMCMTP            BX7    X3+X4                                                   COMCMTP COMCMTP      245     A     
 COMCMTP            SA7    A3                                                      COMCMTP COMCMTP      246     A     
 COMCMTP            SA1    ATSB+1      INCREMENT SIZE OF REQUESTED TABLE           COMCMTP COMCMTP      247     A     
 COMCMTP            SA2    LTAB+A0                                                 COMCMTP COMCMTP      248     A     
 COMCMTP            IX6    X2+X1                                                   COMCMTP COMCMTP      249     A     
 COMCMTP            SA6    A2                                                      COMCMTP COMCMTP      250     A     
 COMCMTP                                                                           COMCMTP COMCMTP      251     A     
 COMCMTP  *         ALLOCATE SPACE BETWEEN TABLES: (LA/2N) + ((TL*LA)/2) + 1.      COMCMTP COMCMTP      252     A     
 COMCMTP  *         DETERMINE NEW FWA AND TEMPORARILY SET DIRECTED DISTANCE        COMCMTP COMCMTP      253     A     
 COMCMTP  *         (OFFSET) IN TOP HALF OF FWA WORD.                              COMCMTP COMCMTP      254     A     
 COMCMTP                                                                           COMCMTP COMCMTP      255     A     
 COMCMTP            SA1    FTAB-1+B2   (X0) = LWA+1 LAST TABLE                     COMCMTP COMCMTP      256     A     
 COMCMTP            SB6    B2-B1                                                   COMCMTP COMCMTP      257     A     
 COMCMTP            BX0    X1                                                      COMCMTP COMCMTP      258     A     
 COMCMTP   ATS3     SB6    B6-B1       I = I-1                                     COMCMTP COMCMTP      259     A     
 COMCMTP            SA2    FTAB+B6     FWA(I)                                      COMCMTP COMCMTP      260     A     
 COMCMTP            SX4    B5          LA (LENGTH AVAILABLE)                       COMCMTP COMCMTP      261     A     
 COMCMTP            SA1    LTAB+B6     TL (LENGTH OF TABLE)                        COMCMTP COMCMTP      262     A     
 COMCMTP            SX3    B2-B1       N  (NUMBER OF TABLES)                       COMCMTP COMCMTP      263     A     
 COMCMTP            AX5    X4,B1       LA/2                                        COMCMTP COMCMTP      264     A     
 COMCMTP            IX6    X4/X3,B7    L1 = LA/N                                   COMCMTP COMCMTP      265          I
          -CPSA133
 COMCMTP            IX6    X4/X3       L1 = LA/N                                           CPSA133        5     A     
 COMCMTP            ZR     B4,ATS4     IF NO TABLES ASSIGNED, L = L1               COMCMTP COMCMTP      266     A     
 COMCMTP            SX3    B4          AL (TOTAL ASSIGNED LENGTH)                  COMCMTP COMCMTP      267     A     
 COMCMTP            IX7    X5*X1       (LA/2)*TL                                   COMCMTP COMCMTP      268     A     
 COMCMTP            AX6    1           L1 = LA/2N                                  COMCMTP COMCMTP      269     A     
 COMCMTP            IX7    X7/X3,B7    L2 = (TL*LA)/2                              COMCMTP COMCMTP      270          I
          -CPSA133
 COMCMTP            IX7    X7/X3       L2 = (TL*LA)/2                                      CPSA133        6     A     
 COMCMTP            IX6    X6+X7       L = L1+L2                                   COMCMTP COMCMTP      271     A     
 COMCMTP   ATS4     SX6    X6+B1       L = L+1                                     COMCMTP COMCMTP      272     A     
 COMCMTP            IX4    X0-X6       FWA(I+1) - L                                COMCMTP COMCMTP      273     A     
 COMCMTP            IX7    X4-X1       FWA(I) = FWA(I+1) - L - TL - 1              COMCMTP COMCMTP      274     A     
 COMCMTP            IX6    X7-X2       OFFSET TO NEW FWA                           COMCMTP COMCMTP      275     A     
 COMCMTP            MX3    30                                                      COMCMTP COMCMTP      276     A     
 COMCMTP            LX6    30          ADD OFFSET TO FWA WORD                      COMCMTP COMCMTP      277     A     
 COMCMTP            BX6    X3*X6                                                   COMCMTP COMCMTP      278     A     
 COMCMTP            LX0    X7          FWA(I+1) = FWA(I)                           COMCMTP COMCMTP      279     A     
 COMCMTP            BX6    X6+X2                                                   COMCMTP COMCMTP      280     A     
 COMCMTP            SA6    A2          30/OFFSET, 30/OLD FWA                       COMCMTP COMCMTP      281     A     
 COMCMTP            NE     B6,B1,ATS3  LOOP                                        COMCMTP COMCMTP      282     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  68    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP            SA1    ATSB+1                                                  COMCMTP COMCMTP      283     A     
 COMCMTP            SA2    LTAB+A0                                                 COMCMTP COMCMTP      284     A     
 COMCMTP            IX6    X2-X1       REMOVE INCREASE                             COMCMTP COMCMTP      285     A     
 COMCMTP            SA6    A2                                                      COMCMTP COMCMTP      286     A     
 COMCMTP                                                                           COMCMTP COMCMTP      287     A     
 COMCMTP  *         MOVE TABLES.  FIRST START AT LAST TABLE AND MOVE ALL TABLES    COMCMTP COMCMTP      288     A     
 COMCMTP  *         WHICH MOVE UP;  THEN START AT FIRST TABLE AND MOVE ALL WHICH   COMCMTP COMCMTP      289     A     
 COMCMTP  *         MOVE DOWN.                                                     COMCMTP COMCMTP      290     A     
 COMCMTP                                                                           COMCMTP COMCMTP      291     A     
 COMCMTP            SB6    B2-B1                                                   COMCMTP COMCMTP      292     A     
 COMCMTP   ATS5     SB6    B6-B1                                                   COMCMTP COMCMTP      293     A     
 COMCMTP            SA3    FTAB+B6                                                 COMCMTP COMCMTP      294     A     
 COMCMTP            SX2    X3          CURRENT FWA                                 COMCMTP COMCMTP      295     A     
 COMCMTP            MI     X3,ATS6     IF MOVING DOWN                              COMCMTP COMCMTP      296     A     
 COMCMTP            AX3    30                                                      COMCMTP COMCMTP      297     A     
 COMCMTP            IX6    X2+X3       NEW FWA                                     COMCMTP COMCMTP      298     A     
 COMCMTP            ZR     X3,ATS6     IF NOT MOVING                               COMCMTP COMCMTP      299     A     
 COMCMTP            SA1    LTAB+B6     LENGTH                                      COMCMTP COMCMTP      300     A     
 COMCMTP            BX3    X6                                                      COMCMTP COMCMTP      301     A     
 COMCMTP            SA6    A3                                                      COMCMTP COMCMTP      302     A     
 COMCMTP            RJ     =XMVE=      MOVE TABLE                                  COMCMTP COMCMTP      303     A     
 COMCMTP   ATS6     NE     B6,B1,ATS5  IF MORE TABLES TO MOVE UP                   COMCMTP COMCMTP      304     A     
 COMCMTP            SB2    B2-B1                                                   COMCMTP COMCMTP      305     A     
 COMCMTP            SB6    B0                                                      COMCMTP COMCMTP      306     A     
 COMCMTP   ATS7     GE     B6,B2,ATS8  IF NO MORE TO MOVE UP                       COMCMTP COMCMTP      307     A     
 COMCMTP            SA3    FTAB+B6                                                 COMCMTP COMCMTP      308     A     
 COMCMTP            SB6    B6+B1                                                   COMCMTP COMCMTP      309     A     
 COMCMTP            PL     X3,ATS7     IF NOT MOVING DOWN                          COMCMTP COMCMTP      310     A     
 COMCMTP            SX2    X3          CURRENT FWA                                 COMCMTP COMCMTP      311     A     
 COMCMTP            SA1    LTAB+B6     LENGTH                                      COMCMTP COMCMTP      312          I
          -CPSA104
 COMCMTP            SA1    LTAB+B6-1   LENGTH                                      CPSA104 CPSA104       17     A     
 COMCMTP            AX3    30                                                      COMCMTP COMCMTP      313     A     
 COMCMTP            IX6    X3+X2       NEW FWA                                     COMCMTP COMCMTP      314     A     
 COMCMTP            BX3    X6                                                      COMCMTP COMCMTP      315     A     
 COMCMTP            SA6    A3                                                      COMCMTP COMCMTP      316     A     
 COMCMTP            RJ     =XMVE=      MOVE TABLE                                  COMCMTP COMCMTP      317     A     
 COMCMTP            EQ     ATS7                                                    COMCMTP COMCMTP      318     A     
 COMCMTP                                                                           COMCMTP COMCMTP      319     A     
 COMCMTP  *         RESTORE REGISTERS.                                             COMCMTP COMCMTP      320     A     
 COMCMTP                                                                           COMCMTP COMCMTP      321     A     
 COMCMTP   ATS8     RJ     AMU         ACCUMULATE MEMORY USED                      COMCMTP COMCMTP      322     A     
 COMCMTP            SA3    LTAB+A0     ADD INCREASE BACK TO SPECIFIED TABLE        COMCMTP COMCMTP      323     A     
 COMCMTP            SA1    ATSA        COUNT MOVES                                 COMCMTP COMCMTP      324     A     
 COMCMTP            SX6    X1+B1                                                   COMCMTP COMCMTP      325     A     
 COMCMTP            SA6    A1                                                      COMCMTP COMCMTP      326     A     
 COMCMTP            SA2    ATSB        RESTORE (X0)                                COMCMTP COMCMTP      327     A     
 COMCMTP            SA1    A2+B1       RESTORE (X1)                                COMCMTP COMCMTP      328     A     
 COMCMTP            IX6    X1+X3                                                   COMCMTP COMCMTP      329     A     
 COMCMTP            SA6    A3                                                      COMCMTP COMCMTP      330     A     
 COMCMTP            BX0    X2                                                      COMCMTP COMCMTP      331     A     
 COMCMTP            SA3    A1+B1       RESTORE (X5)                                COMCMTP COMCMTP      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/28. 19.11.32.      PAGE  69    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP            SA2    A3+B1       RESTORE B REGISTERS                         COMCMTP COMCMTP      333     A     
 COMCMTP            BX5    X3                                                      COMCMTP COMCMTP      334     A     
 COMCMTP            SB2    X2                                                      COMCMTP COMCMTP      335     A     
 COMCMTP            SA3    A2+B1                                                   COMCMTP COMCMTP      336     A     
 COMCMTP            SB3    X3                                                      COMCMTP COMCMTP      337     A     
 COMCMTP            SA4    A3+B1                                                   COMCMTP COMCMTP      338     A     
 COMCMTP            SB4    X4                                                      COMCMTP COMCMTP      339     A     
 COMCMTP            SA2    A4+B1                                                   COMCMTP COMCMTP      340     A     
 COMCMTP            SB5    X2                                                      COMCMTP COMCMTP      341     A     
 COMCMTP            SA3    A2+B1                                                   COMCMTP COMCMTP      342     A     
 COMCMTP            SB6    X3                                                      COMCMTP COMCMTP      343     A     
 COMCMTP            SA4    A3+B1                                                   COMCMTP COMCMTP      344     A     
 COMCMTP            SB7    X4                                                      COMCMTP COMCMTP      345     A     
 COMCMTP            SA2    FTAB+A0     SET TABLE FWA                               COMCMTP COMCMTP      346     A     
 COMCMTP            SA3    LTAB+A0     SET TABLE LENGTH                            COMCMTP COMCMTP      347     A     
 COMCMTP            SX7    -B1         FLAG TABLES MOVED                           COMCMTP COMCMTP      348     A     
 COMCMTP            EQ     ATSX        RETURN                                      COMCMTP COMCMTP      349     A     
 COMCMTP                                                                           COMCMTP COMCMTP      350     A     
 COMCMTP  *         PROCESS TABLE OVERFLOW.                                        COMCMTP COMCMTP      351     A     
 COMCMTP                                                                           COMCMTP COMCMTP      352     A     
 COMCMTP   ATS9     SA3    TO                                                      COMCMTP COMCMTP      353     A     
 COMCMTP            SB2    X3                                                      COMCMTP COMCMTP      354     A     
 COMCMTP            SX6    A0          PRESERVE (A0) FROM USER DEPREDATIONS        COMCMTP COMCMTP      355     A     
 COMCMTP            SB6    ATS10       PASS RETURN ADDRESS TO USER                 COMCMTP COMCMTP      356     A     
 COMCMTP            SA6    ATSC                                                    COMCMTP COMCMTP      357     A     
 COMCMTP            JP     B2                                                      COMCMTP COMCMTP      358     A     
 COMCMTP                                                                           COMCMTP COMCMTP      359     A     
 COMCMTP  *         RETURN FROM USER ROUTINE *TOV*.                                COMCMTP COMCMTP      360     A     
 COMCMTP                                                                           COMCMTP COMCMTP      361     A     
 COMCMTP   ATS10    SA1    ATSC        RESTORE (A0), (X1)                          COMCMTP COMCMTP      362     A     
 COMCMTP            SA0    X1+                                                     COMCMTP COMCMTP      363     A     
 COMCMTP            SA1    ATSB+1                                                  COMCMTP COMCMTP      364     A     
 COMCMTP            EQ     ATS1        RE-COMPUTE WITH NEW MEMORY                  COMCMTP COMCMTP      365     A     
 COMCMTP                                                                           COMCMTP COMCMTP      366     A     
 COMCMTP   ATSA     CON    0           COUNT OF TABLE MOVES                        COMCMTP COMCMTP      367     A     
 COMCMTP                                                                           COMCMTP COMCMTP      368     A     
 COMCMTP   ATSB     CON    0,0,0       (X0, X1, X5) SAVE                           COMCMTP COMCMTP      369     A     
 COMCMTP            CON    0,0,0,0,0,0 (B2 - B7) SAVE                              COMCMTP COMCMTP      370     A     
 COMCMTP   ATSC     CON    0           (A0) SAVE IF TABLE OVERFLOW                 COMCMTP COMCMTP      371     A     
 COMCMTP   EQS      SPACE  4,10                                                    COMCMTP COMCMTP      372     A     
 COMCMTP  ***       EQS -  EQUALITY SEARCH TABLE.                                  COMCMTP COMCMTP      373     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      374     A     
 COMCMTP  *         ENTRY  (X6) = ENTRY FOR SEARCH.                                COMCMTP COMCMTP      375     A     
 COMCMTP  *                (B7) = WORD COUNT/ENTRY.                                COMCMTP COMCMTP      376     A     
 COMCMTP  *                (A0) = TABLE NUMBER.                                    COMCMTP COMCMTP      377     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      378     A     
 COMCMTP  *         EXIT   (X2) = ENTRY FOUND.                                     COMCMTP COMCMTP      379     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      380     A     
 COMCMTP  *         USES   X - 1, 2, 3, 7.                                         COMCMTP COMCMTP      381     A     
 COMCMTP  *                B - NONE.                                               COMCMTP COMCMTP      382     A     
 COMCMTP  *                A - 1, 2, 6.                                            COMCMTP COMCMTP      383     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      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/28. 19.11.32.      PAGE  70    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP  *         CALLS  NONE.                                                   COMCMTP COMCMTP      385     A     
 COMCMTP                                                                           COMCMTP COMCMTP      386     A     
 COMCMTP                                                                           COMCMTP COMCMTP      387     A     
 COMCMTP   EQS      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP      388     A     
 COMCMTP            SA1    FTAB+A0     SET TABLE PARAMETERS                        COMCMTP COMCMTP      389     A     
 COMCMTP            SA2    LTAB+A0                                                 COMCMTP COMCMTP      390     A     
 COMCMTP            IX3    X1+X2       SET SEARCH KEY IN LWA+1                     COMCMTP COMCMTP      391     A     
 COMCMTP            SA6    X3                                                      COMCMTP COMCMTP      392     A     
 COMCMTP            NO                                                             COMCMTP COMCMTP      393     A     
 COMCMTP            SA1    X1          FIRST ENTRY                                 COMCMTP COMCMTP      394     A     
 COMCMTP   +        BX2    X1-X6       COMPARE ENTRIES                             COMCMTP COMCMTP      395     A     
 COMCMTP            SA1    A1+B7       NEXT ENTRY                                  COMCMTP COMCMTP      396     A     
 COMCMTP            NZ     X2,*        LOOP TO MATCH                               COMCMTP COMCMTP      397     A     
 COMCMTP            SX7    A1-B7       CHECK SEARCH                                COMCMTP COMCMTP      398     A     
 COMCMTP            BX2    X7-X3                                                   COMCMTP COMCMTP      399     A     
 COMCMTP            ZR     X2,EQSX     IF NOT FOUND, RETURN                        COMCMTP COMCMTP      400     A     
 COMCMTP            SA2    A1-B7       RETURN ENTRY                                COMCMTP COMCMTP      401     A     
 COMCMTP            EQ     EQSX        RETURN                                      COMCMTP COMCMTP      402     A     
 COMCMTP   MES      SPACE  4,10                                                    COMCMTP COMCMTP      403     A     
 COMCMTP  ***       MES - MASKED EQUALITY SEARCH TABLE.                            COMCMTP COMCMTP      404     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      405     A     
 COMCMTP  *         ENTRY  (X6) = ENTRY FOR SEARCH.                                COMCMTP COMCMTP      406     A     
 COMCMTP  *                (X0) = MASK.                                            COMCMTP COMCMTP      407     A     
 COMCMTP  *                (B7) = WORD COUNT/ENTRY.                                COMCMTP COMCMTP      408     A     
 COMCMTP  *                (A0) = TABLE NUMBER.                                    COMCMTP COMCMTP      409     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      410     A     
 COMCMTP  *         EXIT   (X2) = ENTRY FOUND.                                     COMCMTP COMCMTP      411     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      412     A     
 COMCMTP  *         USES   X - 1, 2, 3, 4, 7.                                      COMCMTP COMCMTP      413     A     
 COMCMTP  *                B - NONE.                                               COMCMTP COMCMTP      414     A     
 COMCMTP  *                A - 1, 2, 6.                                            COMCMTP COMCMTP      415     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      416     A     
 COMCMTP  *         CALLS  NONE.                                                   COMCMTP COMCMTP      417     A     
 COMCMTP                                                                           COMCMTP COMCMTP      418     A     
 COMCMTP                                                                           COMCMTP COMCMTP      419     A     
 COMCMTP   MES1     BX4    X0*X2                                                   COMCMTP COMCMTP      420     A     
 COMCMTP            SA1    A1+B7       NEXT ENTRY                                  COMCMTP COMCMTP      421     A     
 COMCMTP            BX2    X6-X1       COMPARE ENTRIES                             COMCMTP COMCMTP      422     A     
 COMCMTP            NZ     X4,MES1     LOOP TO MATCH                               COMCMTP COMCMTP      423     A     
 COMCMTP            SX7    A1-B7       CHECK SEARCH                                COMCMTP COMCMTP      424     A     
 COMCMTP            BX2    X7-X3                                                   COMCMTP COMCMTP      425     A     
 COMCMTP            ZR     X2,MESX     IF NOT FOUND, RETURN                        COMCMTP COMCMTP      426     A     
 COMCMTP            SA2    X7+         RETURN ENTRY                                COMCMTP COMCMTP      427     A     
 COMCMTP                                                                           COMCMTP COMCMTP      428     A     
 COMCMTP   MES      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP      429     A     
 COMCMTP            SA1    FTAB+A0     SET TABLE PARAMETERS                        COMCMTP COMCMTP      430     A     
 COMCMTP            SA2    LTAB+A0                                                 COMCMTP COMCMTP      431     A     
 COMCMTP            IX3    X1+X2       SET SEARCH KEY IN LWA+1                     COMCMTP COMCMTP      432     A     
 COMCMTP            SA6    X3                                                      COMCMTP COMCMTP      433     A     
 COMCMTP            SA1    X1          FIRST ENTRY                                 COMCMTP COMCMTP      434     A     
 COMCMTP            BX2    X6-X1                                                   COMCMTP COMCMTP      435     A     
 COMCMTP            EQ     MES1                                                    COMCMTP COMCMTP      436     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  71    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP   MTD      SPACE  4,10                                                    COMCMTP COMCMTP      437     A     
 COMCMTP  ***       MTD - MOVE TABLES DOWN.                                        COMCMTP COMCMTP      438     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      439     A     
 COMCMTP  *         ENTRY  NONE.                                                   COMCMTP COMCMTP      440     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      441     A     
 COMCMTP  *         EXIT   (B2) = NUMBER OF TABLES.                                COMCMTP COMCMTP      442     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      443     A     
 COMCMTP  *         USES   X - 0, 1, 2, 3, 4, 7.                                   COMCMTP COMCMTP      444     A     
 COMCMTP  *                B - 2, 3.                                               COMCMTP COMCMTP      445     A     
 COMCMTP  *                A - 1, 2, 3, 7.                                         COMCMTP COMCMTP      446     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      447     A     
 COMCMTP  *         CALLS  MVE=.                                                   COMCMTP COMCMTP      448     A     
 COMCMTP                                                                           COMCMTP COMCMTP      449     A     
 COMCMTP                                                                           COMCMTP COMCMTP      450     A     
 COMCMTP   MTD      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP      451     A     
 COMCMTP            SA1    LM          LOW MEMORY LIMIT                            COMCMTP COMCMTP      452     A     
 COMCMTP            SA2    TN          (B2) = NUMBER OF TABLES                     COMCMTP COMCMTP      453     A     
 COMCMTP            BX0    X1                                                      COMCMTP COMCMTP      454     A     
 COMCMTP            SB2    X2                                                      COMCMTP COMCMTP      455     A     
 COMCMTP            SB3    1                                                       COMCMTP COMCMTP      456     A     
 COMCMTP   MTD1     SA2    FTAB-1+B3   ORIGIN = PREVIOUS FWA                       COMCMTP COMCMTP      457     A     
 COMCMTP            SA3    LTAB-1+B3   WORD COUNT = LENGTH + 1                     COMCMTP COMCMTP      458     A     
 COMCMTP            BX4    X2-X0       MOVE DIFFERENTIAL                           COMCMTP COMCMTP      459     A     
 COMCMTP            SX1    X3+B1                                                   COMCMTP COMCMTP      460     A     
 COMCMTP            SX7    X0          SET NEW FWA                                 COMCMTP COMCMTP      461     A     
 COMCMTP            IX0    X0+X1       NEXT FWA                                    COMCMTP COMCMTP      462     A     
 COMCMTP            SB3    B3+B1       ADVANCE TABLE NUMBER                        COMCMTP COMCMTP      463     A     
 COMCMTP            ZR     X4,MTD2     IF NO MOVE REQUIRED                         COMCMTP COMCMTP      464     A     
 COMCMTP            SA7    A2                                                      COMCMTP COMCMTP      465     A     
 COMCMTP            SX3    X7          MOVE TABLE                                  COMCMTP COMCMTP      466     A     
 COMCMTP            RJ     =XMVE=                                                  COMCMTP COMCMTP      467     A     
 COMCMTP   MTD2     LT     B3,B2,MTD1  LOOP TO LAST TABLE                          COMCMTP COMCMTP      468     A     
 COMCMTP            EQ     MTDX        RETURN                                      COMCMTP COMCMTP      469     A     
 COMCMTP   MTU      SPACE  4,10                                                    COMCMTP COMCMTP      470     A     
 COMCMTP  ***       MTU - MOVE TABLES UP.                                          COMCMTP COMCMTP      471     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      472     A     
 COMCMTP  *         ENTRY  NONE.                                                   COMCMTP COMCMTP      473     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      474     A     
 COMCMTP  *         EXIT   NONE.                                                   COMCMTP COMCMTP      475     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      476     A     
 COMCMTP  *         USES   X - 0, 1, 2, 3, 7.                                      COMCMTP COMCMTP      477     A     
 COMCMTP  *                B - 3.                                                  COMCMTP COMCMTP      478     A     
 COMCMTP  *                A - 1, 2, 7.                                            COMCMTP COMCMTP      479     A     
 COMCMTP  *                                                                        COMCMTP COMCMTP      480     A     
 COMCMTP  *         CALLS  MVE=.                                                   COMCMTP COMCMTP      481     A     
 COMCMTP                                                                           COMCMTP COMCMTP      482     A     
 COMCMTP                                                                           COMCMTP COMCMTP      483     A     
 COMCMTP   MTU1     SB3    B3-B1       DECREMENT TABLE COUNT                       COMCMTP COMCMTP      484     A     
 COMCMTP            SA2    FTAB+B3                                                 COMCMTP COMCMTP      485     A     
 COMCMTP            SA1    LTAB+B3                                                 COMCMTP COMCMTP      486     A     
 COMCMTP            IX7    X0-X1       NEW FWA = L - LENGTH                        COMCMTP COMCMTP      487     A     
 COMCMTP            LX0    X7          L = NEW FWA                                 COMCMTP COMCMTP      488     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  72    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMTP 
  
 COMCMTP            SA7    A2                                                      COMCMTP COMCMTP      489     A     
 COMCMTP            BX3    X0          MOVE TABLE                                  COMCMTP COMCMTP      490     A     
 COMCMTP            RJ     =XMVE=                                                  COMCMTP COMCMTP      491     A     
 COMCMTP            NZ     B3,MTU1                                                 COMCMTP COMCMTP      492     A     
 COMCMTP                                                                           COMCMTP COMCMTP      493     A     
 COMCMTP   MTU      SUBR               ENTRY/EXIT                                  COMCMTP COMCMTP      494     A     
 COMCMTP            SA1    F.TEND      (X0) = LWA+1 ALL TABLES (L)                 COMCMTP COMCMTP      495     A     
 COMCMTP            SB3    NTAB-1      (B3) = NUMBER OF TABLES - 1                 COMCMTP COMCMTP      496     A     
 COMCMTP            BX0    X1                                                      COMCMTP COMCMTP      497     A     
 COMCMTP            EQ     MTU1                                                    COMCMTP COMCMTP      498     A     
 COMCMTP   MTP      SPACE  4,10                                                    COMCMTP COMCMTP      499     A     
 COMCMTP            BASE   *                                                       COMCMTP COMCMTP      500     A     
 COMCMTP   QUAL$    IF     -DEF,QUAL$                                              COMCMTP COMCMTP      501     A     
 COMCMTP            QUAL   *                                                       COMCMTP COMCMTP      502     A     
 COMCMTP   ADW      EQU    /COMCMTP/ADW                                            COMCMTP COMCMTP      503     A     
 COMCMTP   AMU      EQU    /COMCMTP/AMU                                            COMCMTP COMCMTP      504     A     
 COMCMTP   ATS      EQU    /COMCMTP/ATS                                            COMCMTP COMCMTP      505     A     
 COMCMTP   EQS      EQU    /COMCMTP/EQS                                            COMCMTP COMCMTP      506     A     
 COMCMTP   MES      EQU    /COMCMTP/MES                                            COMCMTP COMCMTP      507     A     
 COMCMTP   MTD      EQU    /COMCMTP/MTD                                            COMCMTP COMCMTP      508     A     
 COMCMTP   MTU      EQU    /COMCMTP/MTU                                            COMCMTP COMCMTP      509     A     
 COMCMTP   QUAL$    ENDIF                                                          COMCMTP COMCMTP      510     A     
 COMCMTP   MTP      ENDX                                                           COMCMTP COMCMTP      511     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMTP 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCMTP                    511       508
          CPSA104                      1         1
          CPSA133                      2         2
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE  *COMDECK  COMCMVE            MOVE BLOCK OF DATA.                         COMCMVE COMCMVE        1     A     
 COMCMVE   MVE      CTEXT  COMCMVE - MOVE BLOCK OF DATA.                           COMCMVE COMCMVE        2     A     
 COMCMVE   MVE      SPACE  4,10                                                    COMCMVE COMCMVE        3     A     
 COMCMVE            IF     -DEF,QUAL$,1                                            COMCMVE COMCMVE        4     A     
 COMCMVE            QUAL   COMCMVE                                                 COMCMVE COMCMVE        5     A     
 COMCMVE            BASE   D                                                       COMCMVE COMCMVE        6     A     
 COMCMVE  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCMVE COMCMVE        7     A     
 COMCMVE   MVE      SPACE  4,10                                                    COMCMVE COMCMVE        8     A     
 COMCMVE  ***       MVE - MOVE BLOCK OF DATA.                                      COMCMVE COMCMVE        9     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       10     A     
 COMCMVE  *         G. R. MANSFIELD.   70/10/09.                                   COMCMVE COMCMVE       11     A     
 COMCMVE  *         R. E. TATE.        73/11/04.                                   COMCMVE COMCMVE       12     A     
 COMCMVE  *                                                                                CPSA245       95     A     
 COMCMVE  *         *******************************************************                CPSA245       96     A     
 COMCMVE  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245       97     A     
 COMCMVE  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245       98     A     
 COMCMVE  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245       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/28. 19.11.32.      PAGE  73    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      100     A     
 COMCMVE  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      101     A     
 COMCMVE  *         *******************************************************                CPSA245      102     A     
 COMCMVE  *                                                                                CPSA245      103     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       13     A     
 COMCMVE  *         MVE MOVES A SPECIFIED BLOCK OF DATA TO A SPECIFIED             COMCMVE COMCMVE       14     A     
 COMCMVE  *         LOCATION.                                                      COMCMVE COMCMVE       15     A     
 COMCMVE   MVE      SPACE  4,10                                                    COMCMVE COMCMVE       16     A     
 COMCMVE  ***       MVE - MOVES A BLOCK OF DATA. GIVEN A SOURCE                    COMCMVE COMCMVE       17     A     
 COMCMVE  *         ADDRESS, WORD COUNT, AND DESTINATION ADDRESS, MVE MOVES        COMCMVE COMCMVE       18     A     
 COMCMVE  *         THE DATA FROM SOURCE ADDRESS THROUGH (SOURCE ADDRESS +         COMCMVE COMCMVE       19     A     
 COMCMVE  *         WORD COUNT - 1) TO DESTINATION ADDRESS THROUGH                 COMCMVE COMCMVE       20     A     
 COMCMVE  *         (DESTINATION ADDRESS + WORD COUNT - 1).  THE MOVE MAY          COMCMVE COMCMVE       21     A     
 COMCMVE  *         BE IN EITHER DIRECTION.                                        COMCMVE COMCMVE       22     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       23     A     
 COMCMVE  *         NOTE-  UPWARD MOVE MEANS TOWARD RA.                            COMCMVE COMCMVE       24     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       25     A     
 COMCMVE  *         ENTRY  (X1) = WORD COUNT.                                      COMCMVE COMCMVE       26     A     
 COMCMVE  *                (X2) = SOURCE ADDRESS.                                  COMCMVE COMCMVE       27     A     
 COMCMVE  *                (X3) = DESTINATION ADDRESS.                             COMCMVE COMCMVE       28     A     
 COMCMVE  *                (B1) = 1.                                               COMCMVE COMCMVE       29     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       30     A     
 COMCMVE  *         EXIT   NONE.                                                   COMCMVE COMCMVE       31     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       32     A     
 COMCMVE  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCMVE COMCMVE       33     A     
 COMCMVE  *                B - 7.                                                  COMCMVE COMCMVE       34     A     
 COMCMVE  *                A - 2, 4, 6, 7.                                         COMCMVE COMCMVE       35     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE       36     A     
 COMCMVE  *         CALLS  NONE.                                                   COMCMVE COMCMVE       37     A     
 COMCMVE                                                                           COMCMVE COMCMVE       38     A     
 COMCMVE                                                                           COMCMVE COMCMVE       39     A     
 COMCMVE  *         COMPARE MOVE UNIT BUFFER AREA/PRESET.                          COMCMVE COMCMVE       40     A     
 COMCMVE  *         MVEB IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID     COMCMVE COMCMVE       41     A     
 COMCMVE  *         THE INSTRUCTION STACK.  LATER MVEB IS USED FOR THE CMU         COMCMVE COMCMVE       42     A     
 COMCMVE  *         DESCRIPTOR WORD.                                               COMCMVE COMCMVE       43     A     
 COMCMVE                                                                           COMCMVE COMCMVE       44     A     
 COMCMVE   MVE11    BSS    0           ENTRY FOR PRESET                            COMCMVE COMCMVE       45     A     
 COMCMVE   MVEB     IX4    X2-X3       CHECK DIRECTION OF MOVE  (NO CMU)           COMCMVE COMCMVE       46     A     
 COMCMVE            MX7    59                                                      COMCMVE COMCMVE       47     A     
 COMCMVE            EQ     MVE13                                                   COMCMVE COMCMVE       48     A     
 COMCMVE                                                                           COMCMVE COMCMVE       49     A     
 COMCMVE   MVEC     BX7    X2          CHECK IF CMU AVAILABLE (BUFFER AREA FWA)    COMCMVE COMCMVE       50     A     
 COMCMVE            SA2    RA.CMU                                                  COMCMVE COMCMVE       51     A     
 COMCMVE            PL     X2,MVE12    IF NO CMU                                   COMCMVE COMCMVE       52     A     
 COMCMVE            SA4    MVED                                                    COMCMVE COMCMVE       53     A     
 COMCMVE   MVE12    BX6    X4                                                      COMCMVE COMCMVE       54     A     
 COMCMVE            LX2    X7          RESTORE X2                                  COMCMVE COMCMVE       55     A     
 COMCMVE            SA6    MVEA                                                    COMCMVE COMCMVE       56     A     
 COMCMVE            RJ     *           VOID INSTRUCTION STACK.                             CPSA163        6     A     
 COMCMVE            EQ     MVE1        RESTART LOOP                                COMCMVE COMCMVE       57     A     
 COMCMVE                                                                           COMCMVE COMCMVE       58     A     
 COMCMVE   MVED     IX4    X2-X3       CHECK DIRECTION OF MOVE (CMU)               COMCMVE COMCMVE       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/28. 19.11.32.      PAGE  74    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE            BX7    X1          SET WORD COUNT                              COMCMVE COMCMVE       60     A     
 COMCMVE            BX1    X0          SAVE X0                                     COMCMVE COMCMVE       61     A     
 COMCMVE            LX2    30                                                      COMCMVE COMCMVE       62     A     
 COMCMVE                                                                           COMCMVE COMCMVE       63     A     
 COMCMVE  *         DETERMINE MOVE DIRECTION.                                      COMCMVE COMCMVE       64     A     
 COMCMVE                                                                           COMCMVE COMCMVE       65     A     
 COMCMVE   MVE13    BX6    -X7*X1                                                  COMCMVE COMCMVE       66     A     
 COMCMVE            IX1    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER            COMCMVE COMCMVE       67     A     
 COMCMVE            PL     X4,MVE15    IF MOVE UP                                  COMCMVE COMCMVE       68     A     
 COMCMVE                                                                           COMCMVE COMCMVE       69     A     
 COMCMVE  *         BEGIN DOWNWARD MOVE.                                           COMCMVE COMCMVE       70     A     
 COMCMVE                                                                           COMCMVE COMCMVE       71     A     
 COMCMVE            ZR     X6,MVE14    IF WORD COUNT EVEN                          COMCMVE COMCMVE       72     A     
 COMCMVE            SB7    X1                                                      COMCMVE COMCMVE       73     A     
 COMCMVE            SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE COMCMVE       74     A     
 COMCMVE            BX6    X4                                                      COMCMVE COMCMVE       75     A     
 COMCMVE            SA6    X3+B7                                                   COMCMVE COMCMVE       76     A     
 COMCMVE   MVE14    IX2    X2+X1                                                   COMCMVE COMCMVE       77     A     
 COMCMVE            IX3    X3+X1                                                   COMCMVE COMCMVE       78     A     
 COMCMVE            SB7    -2                                                      COMCMVE COMCMVE       79     A     
 COMCMVE            EQ     MVE16                                                   COMCMVE COMCMVE       80     A     
 COMCMVE                                                                           COMCMVE COMCMVE       81     A     
 COMCMVE  *         BEGIN UPWARD MOVE.                                             COMCMVE COMCMVE       82     A     
 COMCMVE                                                                           COMCMVE COMCMVE       83     A     
 COMCMVE   MVE15    SB7    -2          UPWARD MOVE                                 COMCMVE COMCMVE       84     A     
 COMCMVE            SX2    X2+B7                                                   COMCMVE COMCMVE       85     A     
 COMCMVE            SX3    X3+B7                                                   COMCMVE COMCMVE       86     A     
 COMCMVE            SB7    B1+B1                                                   COMCMVE COMCMVE       87     A     
 COMCMVE            ZR     X6,MVE16    IF WORD COUNT EVEN                          COMCMVE COMCMVE       88     A     
 COMCMVE            SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE COMCMVE       89     A     
 COMCMVE            IX2    X2+X6                                                   COMCMVE COMCMVE       90     A     
 COMCMVE            BX7    X4                                                      COMCMVE COMCMVE       91     A     
 COMCMVE            SA7    X3+B7                                                   COMCMVE COMCMVE       92     A     
 COMCMVE            IX3    X3+X6                                                   COMCMVE COMCMVE       93     A     
 COMCMVE                                                                           COMCMVE COMCMVE       94     A     
 COMCMVE  *         INITIALIZE MOVE LOOP.                                          COMCMVE COMCMVE       95     A     
 COMCMVE                                                                           COMCMVE COMCMVE       96     A     
 COMCMVE   MVE16    ZR     X1,MVEX     IF MOVE COMPLETE, RETURN                    COMCMVE COMCMVE       97          I
          -CPSA104
 COMCMVE   MVE16    ZR     X1,MVE=     IF MOVE COMPLETE, RETURN                    CPSA104 CPSA104       18     A     
 COMCMVE            SA2    X2+B7       MOVE FIRST 2 WORDS                          COMCMVE COMCMVE       98     A     
 COMCMVE            SA4    A2+B1                                                   COMCMVE COMCMVE       99     A     
 COMCMVE            BX6    X2                                                      COMCMVE COMCMVE      100     A     
 COMCMVE            LX7    X4                                                      COMCMVE COMCMVE      101     A     
 COMCMVE            SA6    X3+B7                                                   COMCMVE COMCMVE      102     A     
 COMCMVE            SA7    A6+B1                                                   COMCMVE COMCMVE      103     A     
 COMCMVE            SX3    B1+B1                                                   COMCMVE COMCMVE      104     A     
 COMCMVE            IX1    X1-X3                                                   COMCMVE COMCMVE      105     A     
 COMCMVE            ZR     X1,MVEX     IF MOVE COMPLETE, RETURN                    COMCMVE COMCMVE      106          I
          -CPSA104
 COMCMVE            ZR     X1,MVE=     IF MOVE COMPLETE, RETURN                    CPSA104 CPSA104       19     A     
 COMCMVE            SA2    A2+B7       NEXT 2 WORDS                                COMCMVE COMCMVE      107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  75    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE            SA4    A4+B7                                                   COMCMVE COMCMVE      108     A     
 COMCMVE                                                                           COMCMVE COMCMVE      109     A     
 COMCMVE  *         MOVE LOOP.                                                     COMCMVE COMCMVE      110     A     
 COMCMVE                                                                           COMCMVE COMCMVE      111     A     
 COMCMVE   MVE17    BX6    X2                                                      COMCMVE COMCMVE      112     A     
 COMCMVE            SA2    A2+B7                                                   COMCMVE COMCMVE      113     A     
 COMCMVE            LX7    X4                                                      COMCMVE COMCMVE      114     A     
 COMCMVE            SA4    A4+B7                                                   COMCMVE COMCMVE      115     A     
 COMCMVE            IX1    X1-X3                                                   COMCMVE COMCMVE      116     A     
 COMCMVE            NO                                                             COMCMVE COMCMVE      117     A     
 COMCMVE            SA6    A6+B7                                                   COMCMVE COMCMVE      118     A     
 COMCMVE            SA7    A7+B7                                                   COMCMVE COMCMVE      119     A     
 COMCMVE            NZ     X1,MVE17                                                COMCMVE COMCMVE      120     A     
 COMCMVE                                                                           COMCMVE COMCMVE      121     A     
 COMCMVE   MVEE     BSS    0           END OF CMU BUFFER AREA                      COMCMVE COMCMVE      122     A     
 COMCMVE   MVELL    EQU    MVEE-MVEC   NUMBER OF WORDS IN BUFFER                   COMCMVE COMCMVE      123     A     
 COMCMVE                                                                           COMCMVE COMCMVE      124     A     
 COMCMVE   MVE=     SUBR               ENTRY/EXIT                                  COMCMVE COMCMVE      125     A     
 COMCMVE   MVEA     BSS    0                                                       COMCMVE COMCMVE      126     A     
 COMCMVE   MVE1     SA4    MVEB        INITIALIZE FOR CMU                          COMCMVE COMCMVE      127     A     
 COMCMVE            RJ     MVE11                                                   COMCMVE COMCMVE      128     A     
 COMCMVE  *         IX4    X2-X3       CHECK DIRECTION OF MOVE (NO CMU)            COMCMVE COMCMVE      129     A     
 COMCMVE  *         MX7    59          (NO CMU)                                    COMCMVE COMCMVE      130     A     
 COMCMVE  *         EQ     MVE13       (NO CMU)                                    COMCMVE COMCMVE      131     A     
 COMCMVE  *                                                                        COMCMVE COMCMVE      132     A     
 COMCMVE  *         IX4    X2-X3       CHECK DIRECTION OF MOVE (CMU)               COMCMVE COMCMVE      133     A     
 COMCMVE  *         BX7    X1          (CMU)                                       COMCMVE COMCMVE      134     A     
 COMCMVE  *         BX1    X0          SAVE X0 (CMU)                               COMCMVE COMCMVE      135     A     
 COMCMVE  *         LX2    30          (CMU)                                       COMCMVE COMCMVE      136     A     
 COMCMVE                                                                           COMCMVE COMCMVE      137     A     
 COMCMVE  *         MOVE DATA WITH CMU.                                            COMCMVE COMCMVE      138     A     
 COMCMVE                                                                           COMCMVE COMCMVE      139     A     
 COMCMVE            ZR     X7,MVEX     IF NO DATA TO MOVE, RETURN                  COMCMVE COMCMVE      140          I
          -CPSA104
 COMCMVE            ZR     X7,MVE=     IF NO DATA TO MOVE, RETURN                  CPSA104 CPSA104       20     A     
 COMCMVE            SX6    X7-819                                                  COMCMVE COMCMVE      141     A     
 COMCMVE            BX0    X4                                                      COMCMVE COMCMVE      142     A     
 COMCMVE            NG     X4,MVE2     IF MOVE DOWNWARD                            COMCMVE COMCMVE      143     A     
 COMCMVE            BX0    -X4                                                     COMCMVE COMCMVE      144     A     
 COMCMVE   MVE2     IX0    X0+X7                                                   COMCMVE COMCMVE      145     A     
 COMCMVE            BX6    X0*X6                                                   COMCMVE COMCMVE      146     A     
 COMCMVE            PL     X6,MVE3     IF BLOCK TOO LONG FOR 1 MOVE OR BLOCKS LAP  COMCMVE COMCMVE      147     A     
 COMCMVE            BX0    X7          SET UP FOR 1 MOVE                           COMCMVE COMCMVE      148     A     
 COMCMVE            BX2    X2+X3                                                   COMCMVE COMCMVE      149     A     
 COMCMVE            BX7    X7-X7       SET TO FORCE EXIT                           COMCMVE COMCMVE      150     A     
 COMCMVE            MX4    -4                                                      COMCMVE COMCMVE      151     A     
 COMCMVE            SB7    MVE9                                                    COMCMVE COMCMVE      152     A     
 COMCMVE            EQ     MVE10                                                   COMCMVE COMCMVE      153     A     
 COMCMVE                                                                           COMCMVE COMCMVE      154     A     
 COMCMVE   MVE3     SX6    MVEC        SET INTERMEDIATE BUFFER ADDRESS             COMCMVE COMCMVE      155     A     
 COMCMVE            NG     X4,MVE6     IF MOVE DOWNWARD                            COMCMVE COMCMVE      156     A     
 COMCMVE                                                                           COMCMVE COMCMVE      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/28. 19.11.32.      PAGE  76    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE  *         MOVE UPWARD.                                                   COMCMVE COMCMVE      158     A     
 COMCMVE                                                                           COMCMVE COMCMVE      159     A     
 COMCMVE            BX2    X2+X6                                                   COMCMVE COMCMVE      160     A     
 COMCMVE            LX6    30                                                      COMCMVE COMCMVE      161     A     
 COMCMVE            BX3    X3+X6                                                   COMCMVE COMCMVE      162     A     
 COMCMVE   MVE4     BX0    X7                                                      COMCMVE COMCMVE      163     A     
 COMCMVE            SX7    X7-MVELL    DECREMENT WORD COUNT                        COMCMVE COMCMVE      164     A     
 COMCMVE            MX4    -4                                                      COMCMVE COMCMVE      165     A     
 COMCMVE            NG     X7,MVE5     IF LAST BLOCK TO MOVE                       COMCMVE COMCMVE      166     A     
 COMCMVE            SX0    MVELL                                                   COMCMVE COMCMVE      167     A     
 COMCMVE   MVE5     SB7    *+1         SET TO RETURN HERE                          COMCMVE COMCMVE      168     A     
 COMCMVE            EQ     MVE10                                                   COMCMVE COMCMVE      169     A     
 COMCMVE            IM     MVEB                                                    COMCMVE COMCMVE      170     A     
 COMCMVE            SB7    X7                                                      COMCMVE COMCMVE      171     A     
 COMCMVE            BX0    X1          RESTORE X0                                  COMCMVE COMCMVE      172     A     
 COMCMVE            LT     B7,B1,MVEX  IF MOVE COMPLETE, RETURN                    COMCMVE COMCMVE      173          I
          -CPSA104
 COMCMVE            LT     B7,B1,MVE=  IF MOVE COMPLETE, RETURN                    CPSA104 CPSA104       21     A     
 COMCMVE            SX4    -MVELL      UPDATE ADDRESSES                            COMCMVE COMCMVE      174     A     
 COMCMVE            IX3    X3-X4                                                   COMCMVE COMCMVE      175     A     
 COMCMVE            LX4    30                                                      COMCMVE COMCMVE      176     A     
 COMCMVE            IX2    X2-X4                                                   COMCMVE COMCMVE      177     A     
 COMCMVE            EQ     MVE4                                                    COMCMVE COMCMVE      178     A     
 COMCMVE                                                                           COMCMVE COMCMVE      179     A     
 COMCMVE  *         MOVE DOWNWARD.                                                 COMCMVE COMCMVE      180     A     
 COMCMVE                                                                           COMCMVE COMCMVE      181     A     
 COMCMVE   MVE6     LX6    30          SET LAST WORD ADDRESSES OF DATA AREAS       COMCMVE COMCMVE      182     A     
 COMCMVE            BX6    X7+X6                                                   COMCMVE COMCMVE      183     A     
 COMCMVE            IX3    X3+X6                                                   COMCMVE COMCMVE      184     A     
 COMCMVE            LX6    30                                                      COMCMVE COMCMVE      185     A     
 COMCMVE            IX2    X2+X6                                                   COMCMVE COMCMVE      186     A     
 COMCMVE   MVE7     SX6    MVELL                                                   COMCMVE COMCMVE      187     A     
 COMCMVE            SX0    X7                                                      COMCMVE COMCMVE      188     A     
 COMCMVE            IX7    X7-X6                                                   COMCMVE COMCMVE      189     A     
 COMCMVE            MX4    -4                                                      COMCMVE COMCMVE      190     A     
 COMCMVE            NG     X7,MVE8     IF LAST BLOCK TO MOVE                       COMCMVE COMCMVE      191     A     
 COMCMVE            BX0    X6                                                      COMCMVE COMCMVE      192     A     
 COMCMVE   MVE8     BX6    X0          ADJUST DESTINATION AND SOURCE ADDRESSES     COMCMVE COMCMVE      193     A     
 COMCMVE            IX3    X3-X0                                                   COMCMVE COMCMVE      194     A     
 COMCMVE            LX6    30                                                      COMCMVE COMCMVE      195     A     
 COMCMVE            IX2    X2-X6                                                   COMCMVE COMCMVE      196     A     
 COMCMVE            SB7    *+1         SET TO RETURN HERE                          COMCMVE COMCMVE      197     A     
 COMCMVE            EQ     MVE10                                                   COMCMVE COMCMVE      198     A     
 COMCMVE            IM     MVEB        MOVE DATA TO DESTINATION BUFFER             COMCMVE COMCMVE      199     A     
 COMCMVE   MVE9     SB7    X7                                                      COMCMVE COMCMVE      200     A     
 COMCMVE            BX0    X1          RESTORE X0                                  COMCMVE COMCMVE      201     A     
 COMCMVE            LT     B7,B1,MVEX  IF MOVE COMPLETE, RETURN                    COMCMVE COMCMVE      202          I
          -CPSA104
 COMCMVE            LT     B7,B1,MVE=  IF MOVE COMPLETE, RETURN                    CPSA104 CPSA104       22     A     
 COMCMVE            EQ     MVE7        LOOP                                        COMCMVE COMCMVE      203     A     
 COMCMVE                                                                           COMCMVE COMCMVE      204     A     
 COMCMVE  *         SETUP MOVE WORD.                                               COMCMVE COMCMVE      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/28. 19.11.32.      PAGE  77    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCMVE 
  
 COMCMVE  *         (X0) = NUMBER OF WORDS TO MOVE.                                COMCMVE COMCMVE      206     A     
 COMCMVE  *         (X4) = 56 BIT MASK.                                            COMCMVE COMCMVE      207     A     
 COMCMVE                                                                           COMCMVE COMCMVE      208     A     
 COMCMVE   MVE10    LX6    X0,B1       10 * WORD COUNT = CHARACTER COUNT           COMCMVE COMCMVE      209     A     
 COMCMVE            LX0    3                                                       COMCMVE COMCMVE      210     A     
 COMCMVE            IX6    X0+X6                                                   COMCMVE COMCMVE      211     A     
 COMCMVE            BX0    -X4*X6      EXTRACT LOWER PORTION                       COMCMVE COMCMVE      212     A     
 COMCMVE            BX4    X4*X6       EXTRACT UPPER PORTION                       COMCMVE COMCMVE      213     A     
 COMCMVE            LX0    26                                                      COMCMVE COMCMVE      214     A     
 COMCMVE            LX4    48-4                                                    COMCMVE COMCMVE      215     A     
 COMCMVE            BX0    X4+X0                                                   COMCMVE COMCMVE      216     A     
 COMCMVE            BX6    X2+X0                                                   COMCMVE COMCMVE      217     A     
 COMCMVE            SA6    MVEB        STORE FIRST DESCRIPTOR WORD                 COMCMVE COMCMVE      218     A     
 COMCMVE            BX6    X3+X0                                                   COMCMVE COMCMVE      219     A     
 COMCMVE            IM     MVEB        MOVE DATA TO INTERMEDIATE BUFFER            COMCMVE COMCMVE      220     A     
 COMCMVE            SA6    A6          STORE SECOND DESCRIPTOR WORD                COMCMVE COMCMVE      221     A     
 COMCMVE            JP     B7                                                      COMCMVE COMCMVE      222     A     
 COMCMVE   MVE      SPACE  4,10                                                    COMCMVE COMCMVE      223     A     
 COMCMVE            BASE   *                                                       COMCMVE COMCMVE      224     A     
 COMCMVE   QUAL$    IF     -DEF,QUAL$                                              COMCMVE COMCMVE      225     A     
 COMCMVE            QUAL   *                                                       COMCMVE COMCMVE      226     A     
 COMCMVE   MVE=     EQU    /COMCMVE/MVE=                                           COMCMVE COMCMVE      227     A     
 COMCMVE   QUAL$    ENDIF                                                          COMCMVE COMCMVE      228     A     
 COMCMVE   MVE      ENDX                                                           COMCMVE COMCMVE      229     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCMVE 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCMVE                    229       224
          CPSA104                      5         5
          CPSA163                      1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDC 
  
 COMCRDC  *COMDECK  COMCRDC            READ CODED LINE, *C* FORMAT.                COMCRDC COMCRDC        1     A     
 COMCRDC   RDC      CTEXT  COMCRDC - READ CODED LINE, -C- FORMAT.                  COMCRDC COMCRDC        2     A     
 COMCRDC   RDC      SPACE  4,10                                                    COMCRDC COMCRDC        3     A     
 COMCRDC            IF     -DEF,QUAL$,1                                            COMCRDC COMCRDC        4     A     
 COMCRDC            QUAL   COMCRDC                                                 COMCRDC COMCRDC        5     A     
 COMCRDC            BASE   D                                                       COMCRDC COMCRDC        6     A     
 COMCRDC  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970, 1978.               COMCRDC COMCRDC        7     A     
 COMCRDC   RDC      SPACE  4,10                                                    COMCRDC COMCRDC        8     A     
 COMCRDC  ***       RDC - READ CODED LINE, -C- FORMAT.                             COMCRDC COMCRDC        9     A     
 COMCRDC  *                                                                        COMCRDC COMCRDC       10     A     
 COMCRDC  *         G. R. MANSFIELD.   70/10/09.                                   COMCRDC COMCRDC       11     A     
 COMCRDC  *         R. R. RAGAN.       77/07/24.                                   COMCRDC COMCRDC       12     A     
 COMCRDC  *                                                                                CPSA245      104     A     
 COMCRDC  *         *******************************************************                CPSA245      105     A     
 COMCRDC  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      106     A     
 COMCRDC  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  78    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDC 
  
 COMCRDC  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      108     A     
 COMCRDC  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      109     A     
 COMCRDC  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      110     A     
 COMCRDC  *         *******************************************************                CPSA245      111     A     
 COMCRDC  *                                                                                CPSA245      112     A     
 COMCRDC  *                                                                        COMCRDC COMCRDC       13     A     
 COMCRDC  *         RDC READS A CODED LINE TERMINATED BY A ZERO BYTE FROM          COMCRDC COMCRDC       14     A     
 COMCRDC  *         A CIO BUFFER TO A WORKING STORAGE AREA.                        COMCRDC COMCRDC       15     A     
 COMCRDC   RDC      SPACE  4,10                                                    COMCRDC COMCRDC       16     A     
 COMCRDC  ***       RDC READS 1 CODED LINE FROM A CIO BUFFER TO A                  COMCRDC COMCRDC       17     A     
 COMCRDC  *         WORKING BUFFER.                                                COMCRDC COMCRDC       18     A     
 COMCRDC  *                                                                        COMCRDC COMCRDC       19     A     
 COMCRDC  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC COMCRDC       20     A     
 COMCRDC  *                (B6) = FWA WORKING BUFFER.                              COMCRDC COMCRDC       21     A     
 COMCRDC  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDC COMCRDC       22     A     
 COMCRDC  *                IF (B7) .LT. 0 THEN -(B7) = WORD COUNT OF WORKING       COMCRDC COMCRDC       23     A     
 COMCRDC  *                BUFFER AND RDC WILL NOT READ AND DISCARD WORDS          COMCRDC COMCRDC       24     A     
 COMCRDC  *                UNTIL AN END OF LINE FOR LINES LONGER THAN THE          COMCRDC COMCRDC       25     A     
 COMCRDC  *                WORKING BUFFER.                                         COMCRDC COMCRDC       26     A     
 COMCRDC  *                                                                        COMCRDC COMCRDC       27     A     
 COMCRDC  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDC COMCRDC       28     A     
 COMCRDC  *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDC COMCRDC       29     A     
 COMCRDC  *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDC COMCRDC       30     A     
 COMCRDC  *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDC COMCRDC       31     A     
 COMCRDC  *                             TRANSFER WAS COMPLETED.                    COMCRDC COMCRDC       32     A     
 COMCRDC  *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDC COMCRDC       33     A     
 COMCRDC  *                             WORKING BUFFER.                            COMCRDC COMCRDC       34     A     
 COMCRDC  *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC COMCRDC       35     A     
 COMCRDC  *                (X4) = CONTENTS OF LAST DATA WORD TRANSFERRED           COMCRDC COMCRDC       36     A     
 COMCRDC  *                            BEFORE EOL GUARANTEED. IF TRANSFER          COMCRDC COMCRDC       37     A     
 COMCRDC  *                            COMPLETED ((X1)  = 0).                      COMCRDC COMCRDC       38     A     
 COMCRDC  *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDC COMCRDC       39     A     
 COMCRDC  *                (B1) = 1.                                               COMCRDC COMCRDC       40     A     
 COMCRDC  *                                                                        COMCRDC COMCRDC       41     A     
 COMCRDC  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDC COMCRDC       42     A     
 COMCRDC  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDC COMCRDC       43     A     
 COMCRDC  *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDC COMCRDC       44     A     
 COMCRDC  *                                                                        COMCRDC COMCRDC       45     A     
 COMCRDC  *         CALLS  LCB=, RDX=.                                             COMCRDC COMCRDC       46     A     
 COMCRDC                                                                           COMCRDC COMCRDC       47     A     
 COMCRDC                                                                           COMCRDC COMCRDC       48     A     
 COMCRDC   +        EQ     RDC2                                                    COMCRDC COMCRDC       49     A     
 COMCRDC                                                                           COMCRDC COMCRDC       50     A     
 COMCRDC   RDC=     SUBR               ENTRY/EXIT                                  COMCRDC COMCRDC       51     A     
 COMCRDC            SA4    RDCX        SET RETURN ADDRESS                          COMCRDC COMCRDC       52          I
          -CPSA104
 COMCRDC            SA4    RDC=        SET RETURN ADDRESS                          CPSA104 CPSA104       23     A     
 COMCRDC            IF     -DEF,B1=1,1                                             COMCRDC COMCRDC       53     A     
 COMCRDC            SB1    1                                                       COMCRDC COMCRDC       54     A     
 COMCRDC            SA1    X2+4        (B5) = LIMIT                                COMCRDC COMCRDC       55     A     
 COMCRDC            SB2    B7          (B2) = ORIGINAL (B7)                        COMCRDC COMCRDC       56     A     
 COMCRDC            PL     B7,RDC1     IF (B7) = POSITIVE WORD COUNT               COMCRDC COMCRDC       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/28. 19.11.32.      PAGE  79    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDC 
  
 COMCRDC            SB7    -B7                                                     COMCRDC COMCRDC       58     A     
 COMCRDC   RDC1     SA3    X2+B1       (X3) = FIRST                                COMCRDC COMCRDC       59          I
          -CPSA123
 COMCRDC   RDC1     NZ     B2,RDC1A    IF ORIGINAL (B7) IS NON-ZERO                        CPSA123        5     A     
 COMCRDC            SB7    -B1         ENSURE TRANSFER TILL END OF LINE                    CPSA123        6     A     
 COMCRDC   RDC1A    SA3    X2+B1       (X3) = FIRST                                        CPSA123        7     A     
 COMCRDC            SB7    B6+B7       (B7) = LWA+1 WORKING BUFFER                 COMCRDC COMCRDC       60     A     
 COMCRDC            MX4    -12         (X4) = BYTE MASK                            COMCRDC COMCRDC       61     A     
 COMCRDC            SB5    X1                                                      COMCRDC COMCRDC       62     A     
 COMCRDC                                                                           COMCRDC COMCRDC       63     A     
 COMCRDC  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDC COMCRDC       64     A     
 COMCRDC                                                                           COMCRDC COMCRDC       65     A     
 COMCRDC   RDC2     SA1    A3+B1       (B3) = IN                                   COMCRDC COMCRDC       66     A     
 COMCRDC            SA2    A1+B1       (B4) = OUT                                  COMCRDC COMCRDC       67     A     
 COMCRDC            SB3    X1                                                      COMCRDC COMCRDC       68     A     
 COMCRDC            SB4    X2                                                      COMCRDC COMCRDC       69     A     
 COMCRDC                                                                           COMCRDC COMCRDC       70     A     
 COMCRDC  *         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.          COMCRDC COMCRDC       71     A     
 COMCRDC                                                                           COMCRDC COMCRDC       72     A     
 COMCRDC   RDC3     EQ     B4,B3,=XLCB= LOAD CIRCULAR BUFFER IF OUT = IN           COMCRDC COMCRDC       73     A     
 COMCRDC            SA1    B4          READ WORD                                   COMCRDC COMCRDC       74     A     
 COMCRDC            SB4    B4+B1       (OUT+1)                                     COMCRDC COMCRDC       75     A     
 COMCRDC            BX7    -X4*X1      CHECK LAST BYTE                             COMCRDC COMCRDC       76     A     
 COMCRDC            EQ     B4,B5,RDC6  IF (OUT+1) = LIMIT                          COMCRDC COMCRDC       77     A     
 COMCRDC            BX6    X1                                                      COMCRDC COMCRDC       78     A     
 COMCRDC   RDC4     ZR     X7,RDC5     IF END OF LINE                              COMCRDC COMCRDC       79     A     
 COMCRDC            EQ     B6,B7,RDC3  IF WORKING BUFFER FILLED                    COMCRDC COMCRDC       80     A     
 COMCRDC            SA6    B6          STORE WORD                                  COMCRDC COMCRDC       81     A     
 COMCRDC            SB6    B6+B1                                                   COMCRDC COMCRDC       82     A     
 COMCRDC            NE     B6,B7,RDC3  IF WORKING BUFFER NOT FULL                  COMCRDC COMCRDC       83     A     
 COMCRDC            PL     B2,RDC3     IF REST OF LINE TO BE SKIPPED               COMCRDC COMCRDC       84     A     
 COMCRDC            BX6    X4*X6       CLEAR LAST BYTE                             COMCRDC COMCRDC       85     A     
 COMCRDC            SB6    B6-B1                                                   COMCRDC COMCRDC       86     A     
 COMCRDC                                                                           COMCRDC COMCRDC       87     A     
 COMCRDC  *         STORE LAST WORD TO WORKING BUFFER.                             COMCRDC COMCRDC       88     A     
 COMCRDC                                                                           COMCRDC COMCRDC       89     A     
 COMCRDC   RDC5     EQ     B6,B7,RDC7  IF WORKING BUFFER FULL                      COMCRDC COMCRDC       90     A     
 COMCRDC            SA6    B6          STORE LAST WORD                             COMCRDC COMCRDC       91     A     
 COMCRDC            SB6    B6+B1                                                   COMCRDC COMCRDC       92     A     
 COMCRDC            BX4    X1          RETURN LAST WORD BEFORE EOL CLEARED         COMCRDC COMCRDC       93     A     
 COMCRDC            EQ     =XRDX=      EXIT                                        COMCRDC COMCRDC       94     A     
 COMCRDC                                                                           COMCRDC COMCRDC       95     A     
 COMCRDC   RDC6     SB4    X3          (OUT+1) = FIRST                             COMCRDC COMCRDC       96     A     
 COMCRDC            BX6    X1                                                      COMCRDC COMCRDC       97     A     
 COMCRDC            EQ     RDC4        LOOP                                        COMCRDC COMCRDC       98     A     
 COMCRDC                                                                           COMCRDC COMCRDC       99     A     
 COMCRDC   RDC7     SA1    B6-B1       READ LAST WORD IN WORKING BUFFER            COMCRDC COMCRDC      100     A     
 COMCRDC            BX6    X4*X1       CLEAR LAST BYTE                             COMCRDC COMCRDC      101     A     
 COMCRDC            BX4    X1          RETURN LAST WORD BEFORE EOL CLEARED         COMCRDC COMCRDC      102     A     
 COMCRDC            SA6    A1                                                      COMCRDC COMCRDC      103     A     
 COMCRDC            EQ     =XRDX=      EXIT                                        COMCRDC COMCRDC      104     A     
 COMCRDC   RDS      SPACE  4,10                                                    COMCRDC COMCRDC      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/28. 19.11.32.      PAGE  80    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDC 
  
 COMCRDC            BASE   *                                                       COMCRDC COMCRDC      106     A     
 COMCRDC   QUAL$    IF     -DEF,QUAL$                                              COMCRDC COMCRDC      107     A     
 COMCRDC            QUAL   *                                                       COMCRDC COMCRDC      108     A     
 COMCRDC   RDC=     EQU    /COMCRDC/RDC=                                           COMCRDC COMCRDC      109     A     
 COMCRDC   QUAL$    ENDIF                                                          COMCRDC COMCRDC      110     A     
 COMCRDC   RDC      ENDX                                                           COMCRDC COMCRDC      111     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDC                    111       109
          CPSA104                      1         1
          CPSA123                      3         3
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDH 
  
 COMCRDH  *COMDECK  COMCRDH            READ CODED LINE, *H* FORMAT.                COMCRDH COMCRDH        1     A     
 COMCRDH   RDH      CTEXT  COMCRDH - READ CODED LINE, -H- FORMAT.                  COMCRDH COMCRDH        2     A     
 COMCRDH   RDH      SPACE  4,10                                                    COMCRDH COMCRDH        3     A     
 COMCRDH            IF     -DEF,QUAL$,1                                            COMCRDH COMCRDH        4     A     
 COMCRDH            QUAL   COMCRDH                                                 COMCRDH COMCRDH        5     A     
 COMCRDH            BASE   D                                                       COMCRDH COMCRDH        6     A     
 COMCRDH  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970, 1978.               COMCRDH COMCRDH        7     A     
 COMCRDH   RDH      SPACE  4,10                                                    COMCRDH COMCRDH        8     A     
 COMCRDH  ***       RDH - READ CODED LINE, -H- FORMAT.                             COMCRDH COMCRDH        9     A     
 COMCRDH  *                                                                        COMCRDH COMCRDH       10     A     
 COMCRDH  *         G. R. MANSFIELD.   70/10/09.                                   COMCRDH COMCRDH       11     A     
 COMCRDH  *         R. R. RAGAN.       77/07/24.                                   COMCRDH COMCRDH       12     A     
 COMCRDH  *                                                                                CPSA245      113     A     
 COMCRDH  *         *******************************************************                CPSA245      114     A     
 COMCRDH  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      115     A     
 COMCRDH  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      116     A     
 COMCRDH  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      117     A     
 COMCRDH  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      118     A     
 COMCRDH  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      119     A     
 COMCRDH  *         *******************************************************                CPSA245      120     A     
 COMCRDH  *                                                                                CPSA245      121     A     
 COMCRDH  *                                                                        COMCRDH COMCRDH       13     A     
 COMCRDH  *         RDH READS A CODED LINE TERMINATED BY A ZERO BYTE FROM          COMCRDH COMCRDH       14     A     
 COMCRDH  *         A CIO BUFFER TO A WORKING STORAGE AREA AND SUPPLIES            COMCRDH COMCRDH       15     A     
 COMCRDH  *         TRAILING SPACE FILL.                                           COMCRDH COMCRDH       16     A     
 COMCRDH   RDH      SPACE  4,10                                                    COMCRDH COMCRDH       17     A     
 COMCRDH  ***       RDH READS 1 CODED LINE FROM A CIO BUFFER TO A WORKING          COMCRDH COMCRDH       18     A     
 COMCRDH  *         BUFFER WITH TRAILING SPACE FILL.                               COMCRDH COMCRDH       19     A     
 COMCRDH  *                                                                        COMCRDH COMCRDH       20     A     
 COMCRDH  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDH COMCRDH       21     A     
 COMCRDH  *                (B6) = FWA WORKING BUFFER.                              COMCRDH COMCRDH       22     A     
 COMCRDH  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDH COMCRDH       23     A     
 COMCRDH  *                                                                        COMCRDH COMCRDH       24     A     
 COMCRDH  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDH COMCRDH       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/28. 19.11.32.      PAGE  81    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDH 
  
 COMCRDH  *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDH COMCRDH       26     A     
 COMCRDH  *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDH COMCRDH       27     A     
 COMCRDH  *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDH COMCRDH       28     A     
 COMCRDH  *                             TRANSFER WAS COMPLETED.                    COMCRDH COMCRDH       29     A     
 COMCRDH  *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDH COMCRDH       30     A     
 COMCRDH  *                             WORKING BUFFER.                            COMCRDH COMCRDH       31     A     
 COMCRDH  *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDH COMCRDH       32     A     
 COMCRDH  *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDH COMCRDH       33     A     
 COMCRDH  *                (B1) = 1.                                               COMCRDH COMCRDH       34     A     
 COMCRDH  *                                                                        COMCRDH COMCRDH       35     A     
 COMCRDH  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDH COMCRDH       36     A     
 COMCRDH  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDH COMCRDH       37     A     
 COMCRDH  *                A - 1, 2, 3, 4, 6.                                      COMCRDH COMCRDH       38     A     
 COMCRDH  *                                                                        COMCRDH COMCRDH       39     A     
 COMCRDH  *         CALLS  LCB=, RDX=.                                             COMCRDH COMCRDH       40     A     
 COMCRDH                                                                           COMCRDH COMCRDH       41     A     
 COMCRDH                                                                           COMCRDH COMCRDH       42     A     
 COMCRDH   RDH=     SUBR               ENTRY/EXIT                                  COMCRDH COMCRDH       43     A     
 COMCRDH            SA4    RDH6        SET RETURN ADDRESS                          COMCRDH COMCRDH       44     A     
 COMCRDH            IF     -DEF,B1=1,1                                             COMCRDH COMCRDH       45     A     
 COMCRDH            SB1    1                                                       COMCRDH COMCRDH       46     A     
 COMCRDH            SA1    X2+4        (B5) = LIMIT                                COMCRDH COMCRDH       47     A     
 COMCRDH            SA3    X2+B1       (X3) = FIRST                                COMCRDH COMCRDH       48     A     
 COMCRDH            SB7    B6+B7       (B7) = LWA+1 WORKING BUFFER                 COMCRDH COMCRDH       49     A     
 COMCRDH            SB5    X1                                                      COMCRDH COMCRDH       50     A     
 COMCRDH            SX6    B6                                                              CPSA148        5     A     
 COMCRDH            SA6    RDHC        SAVE FWA WORKING BUFFER                             CPSA148        6     A     
 COMCRDH            BX4    X4-X4       (X4) = FLAG FOR 11 CHAR LINE TERMINATOR     COMCRDH COMCRDH       51     A     
 COMCRDH                                                                           COMCRDH COMCRDH       52     A     
 COMCRDH  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDH COMCRDH       53     A     
 COMCRDH                                                                           COMCRDH COMCRDH       54     A     
 COMCRDH   RDH1     SA1    A3+B1       (B3) = IN                                   COMCRDH COMCRDH       55     A     
 COMCRDH            SA2    A1+B1       (B4) = OUT                                  COMCRDH COMCRDH       56     A     
 COMCRDH            MX7    -12         (X7) = BYTE MASK                            COMCRDH COMCRDH       57     A     
 COMCRDH            SB3    X1                                                      COMCRDH COMCRDH       58     A     
 COMCRDH            SB4    X2+                                                     COMCRDH COMCRDH       59     A     
 COMCRDH                                                                           COMCRDH COMCRDH       60     A     
 COMCRDH  *         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.          COMCRDH COMCRDH       61     A     
 COMCRDH                                                                           COMCRDH COMCRDH       62     A     
 COMCRDH   RDH2     EQ     B4,B3,=XLCB= LOAD CIRCULAR BUFFER IF OUT = IN           COMCRDH COMCRDH       63     A     
 COMCRDH            SA1    B4          READ WORD                                   COMCRDH COMCRDH       64     A     
 COMCRDH            SB4    B4+B1       (OUT+1)                                     COMCRDH COMCRDH       65     A     
 COMCRDH            BX2    -X7*X1      CHECK LAST BYTE                             COMCRDH COMCRDH       66     A     
 COMCRDH            EQ     B4,B5,RDH4  IF (OUT+1) = LIMIT                          COMCRDH COMCRDH       67     A     
 COMCRDH            BX6    X1                                                      COMCRDH COMCRDH       68     A     
 COMCRDH   RDH3     ZR     X2,RDH5     IF END OF LINE                              COMCRDH COMCRDH       69     A     
 COMCRDH            EQ     B6,B7,RDH2  IF WORKING BUFFER FILLED                    COMCRDH COMCRDH       70     A     
 COMCRDH            SA6    B6          STORE WORD                                  COMCRDH COMCRDH       71     A     
 COMCRDH            SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCRDH COMCRDH       72     A     
 COMCRDH            NE     B6,B7,RDH2  IF WORKING BUFFER NOT FULL                  COMCRDH COMCRDH       73     A     
 COMCRDH            NZ     X4,RDH2     IF END OF WORKING BUFFER HIT PREVIOUSLY     COMCRDH COMCRDH       74     A     
 COMCRDH                                                                           COMCRDH COMCRDH       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/28. 19.11.32.      PAGE  82    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDH 
  
 COMCRDH  *         SAVE LAST WORD THAT WOULD HAVE FIT INTO THE WORKING BUFFER     COMCRDH COMCRDH       76     A     
 COMCRDH  *         IN X4 AND BACK UP B6 TO ALLOW A PEEK AT THE NEXT WORD.         COMCRDH COMCRDH       77     A     
 COMCRDH  *         THIS MUST BE DONE IN CASE THE LAST WORD TO FIT IN THE          COMCRDH COMCRDH       78     A     
 COMCRDH  *         WORKING BUFFER HAS CHARACTER 10 = 00B AND THE NEXT WORD        COMCRDH COMCRDH       79     A     
 COMCRDH  *         MIGHT BE ALL ZERO CONSTITUTING AN 11 CHARACTER LINE            COMCRDH COMCRDH       80     A     
 COMCRDH  *         TERMINATOR. IF IT IS AN 11 CHARACTER LINE TERMINATOR THEN      COMCRDH COMCRDH       81     A     
 COMCRDH  *         THE 00B CHARACTER MUST BE CHANGED TO A BLANK.                  COMCRDH COMCRDH       82     A     
 COMCRDH                                                                           COMCRDH COMCRDH       83     A     
 COMCRDH            BX4    X6          SAVE LAST WORD TO FIT IN BUFFER             COMCRDH COMCRDH       84     A     
 COMCRDH            SB6    B6-B1       ALLOW PEEK AT NEXT WORD                     COMCRDH COMCRDH       85     A     
 COMCRDH            EQ     RDH2                                                    COMCRDH COMCRDH       86     A     
 COMCRDH                                                                           COMCRDH COMCRDH       87     A     
 COMCRDH   RDH4     SB4    X3          (OUT+1) = FIRST                             COMCRDH COMCRDH       88     A     
 COMCRDH            BX6    X1                                                      COMCRDH COMCRDH       89     A     
 COMCRDH            EQ     RDH3                                                    COMCRDH COMCRDH       90     A     
 COMCRDH                                                                           COMCRDH COMCRDH       91     A     
 COMCRDH  *         SPACE FILL LAST WORD.                                          COMCRDH COMCRDH       92     A     
 COMCRDH                                                                           COMCRDH COMCRDH       93     A     
 COMCRDH   RDH5     EQ     B6,B7,RDH8  IF WORKING BUFFER FILLED                    COMCRDH COMCRDH       94     A     
 COMCRDH            ZR     X4,RDH5.1   IF BUFFER NEVER FILLED                      COMCRDH COMCRDH       95     A     
 COMCRDH            SB6    B6+B1                                                   COMCRDH COMCRDH       96     A     
 COMCRDH            NZ     X6,=XRDX=   IF NO NEED TO CONSIDER FILLING A 00B CHAR   COMCRDH COMCRDH       97     A     
 COMCRDH   RDH5.1   NZ     X6,RDH5.2   IF NOT FULL ZERO WORD                       COMCRDH COMCRDH       98     A     
 COMCRDH            SA1    RDHC                                                            CPSA148        7     A     
 COMCRDH            SB2    X1                                                              CPSA148        8     A     
 COMCRDH            EQ     B2,B6,RDH5.2      IF NO PREVIOUS WORD IN LINE                   CPSA148        9     A     
 COMCRDH            SA1    B6-B1       CHECK LAST CHARACTER OF PREVIOUS WORD       COMCRDH COMCRDH       99     A     
 COMCRDH            MX7    -6                                                      COMCRDH COMCRDH      100     A     
 COMCRDH            BX7    -X7*X1                                                  COMCRDH COMCRDH      101     A     
 COMCRDH            NZ     X7,=XRDX=   IF NOT TRAILING ZERO CHARACTER              COMCRDH COMCRDH      102     A     
 COMCRDH            SX7    1R          INSERT BLANK CHARACTER                      COMCRDH COMCRDH      103     A     
 COMCRDH            BX6    X7+X1                                                   COMCRDH COMCRDH      104     A     
 COMCRDH            SA6    A1                                                      COMCRDH COMCRDH      105     A     
 COMCRDH            EQ     =XRDX=      EXIT                                        COMCRDH COMCRDH      106     A     
 COMCRDH                                                                           COMCRDH COMCRDH      107     A     
 COMCRDH   RDH5.2   SA1    RDHA        =40404040404040404040B                      COMCRDH COMCRDH      108     A     
 COMCRDH            SX7    B1                                                      COMCRDH COMCRDH      109     A     
 COMCRDH            IX7    X6-X7                                                   COMCRDH COMCRDH      110     A     
 COMCRDH            SB2    60-5                                                    COMCRDH COMCRDH      111     A     
 COMCRDH            BX4    -X7+X6                                                  COMCRDH COMCRDH      112     A     
 COMCRDH            BX7    X1*X4                                                   COMCRDH COMCRDH      113     A     
 COMCRDH            LX4    X7,B2                                                   COMCRDH COMCRDH      114     A     
 COMCRDH            SA1    A1+B1       =1H                                         COMCRDH COMCRDH      115     A     
 COMCRDH            IX2    X7-X4                                                   COMCRDH COMCRDH      116     A     
 COMCRDH            BX7    X7+X2                                                   COMCRDH COMCRDH      117     A     
 COMCRDH            BX4    -X7*X1                                                  COMCRDH COMCRDH      118     A     
 COMCRDH            IX6    X6+X4                                                   COMCRDH COMCRDH      119     A     
 COMCRDH            SA6    B6                                                      COMCRDH COMCRDH      120     A     
 COMCRDH            SB6    B6+B1                                                   COMCRDH COMCRDH      121     A     
 COMCRDH            EQ     =XRDX=      EXIT                                        COMCRDH COMCRDH      122     A     
 COMCRDH                                                                           COMCRDH COMCRDH      123     A     
 COMCRDH  *         SPACE FILL REMAINDER OF WORKING BUFFER.                        COMCRDH COMCRDH      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/28. 19.11.32.      PAGE  83    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDH 
  
 COMCRDH                                                                           COMCRDH COMCRDH      125     A     
 COMCRDH   +        EQ     RDH1                                                    COMCRDH COMCRDH      126     A     
 COMCRDH                                                                           COMCRDH COMCRDH      127     A     
 COMCRDH   RDH6     EQ     B6,B7,RDHX  IF WORKING BUFFER FULL, RETURN              COMCRDH COMCRDH      128          I
          -CPSA104
 COMCRDH   RDH6     EQ     B6,B7,RDH=  IF WORKING BUFFER FULL, RETURN              CPSA104 CPSA104       24     A     
 COMCRDH            SA4    RDHB        =1H                                         COMCRDH COMCRDH      129     A     
 COMCRDH            BX6    X4                                                      COMCRDH COMCRDH      130     A     
 COMCRDH   RDH7     SA6    B6                                                      COMCRDH COMCRDH      131     A     
 COMCRDH            SB6    B6+B1                                                   COMCRDH COMCRDH      132     A     
 COMCRDH            NE     B6,B7,RDH7                                              COMCRDH COMCRDH      133     A     
 COMCRDH            EQ     RDHX        RETURN                                      COMCRDH COMCRDH      134          I
          -CPSA104
 COMCRDH            EQ     RDH=        RETURN                                      CPSA104 CPSA104       25     A     
 COMCRDH                                                                           COMCRDH COMCRDH      135     A     
 COMCRDH   RDH8     BX6    X4                                                      COMCRDH COMCRDH      136     A     
 COMCRDH            SA6    B6-B1       STORE SAVED LAST WORD INTO BUFFER           COMCRDH COMCRDH      137     A     
 COMCRDH            EQ     =XRDX=      EXIT                                        COMCRDH COMCRDH      138     A     
 COMCRDH                                                                           COMCRDH COMCRDH      139     A     
 COMCRDH   RDHA     CON    40404040404040404040B                                   COMCRDH COMCRDH      140     A     
 COMCRDH   RDHB     DATA   1H                                                      COMCRDH COMCRDH      141     A     
 COMCRDH   RDHC     CON    0           SAVE FWA WORKING BUFFER                             CPSA148       10     A     
 COMCRDH   RDH      SPACE  4,10                                                    COMCRDH COMCRDH      142     A     
 COMCRDH            BASE   *                                                       COMCRDH COMCRDH      143     A     
 COMCRDH   QUAL$    IF     -DEF,QUAL$                                              COMCRDH COMCRDH      144     A     
 COMCRDH            QUAL   *                                                       COMCRDH COMCRDH      145     A     
 COMCRDH   RDH=     EQU    /COMCRDH/RDH=                                           COMCRDH COMCRDH      146     A     
 COMCRDH   QUAL$    ENDIF                                                          COMCRDH COMCRDH      147     A     
 COMCRDH   RDH      ENDX                                                           COMCRDH COMCRDH      148     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDH 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDH                    148       146
          CPSA104                      2         2
          CPSA148                      6         6
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDO 
  
 COMCRDO  *COMDECK  COMCRDO            READ ONE WORD.                              COMCRDO COMCRDO        1     A     
 COMCRDO   RDO      CTEXT  COMCRDO - READ ONE WORD.                                COMCRDO COMCRDO        2     A     
 COMCRDO   RDO      SPACE  4,10                                                    COMCRDO COMCRDO        3     A     
 COMCRDO            IF     -DEF,QUAL$,1                                            COMCRDO COMCRDO        4     A     
 COMCRDO            QUAL   COMCRDO                                                 COMCRDO COMCRDO        5     A     
 COMCRDO            BASE   D                                                       COMCRDO COMCRDO        6     A     
 COMCRDO  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCRDO COMCRDO        7     A     
 COMCRDO   RDO      SPACE  4,10                                                    COMCRDO COMCRDO        8     A     
 COMCRDO  ***       RDO - READ ONE WORD.                                           COMCRDO COMCRDO        9     A     
 COMCRDO  *                                                                        COMCRDO COMCRDO       10     A     
 COMCRDO  *         D. A. CAHLANDER.   70/10/09.                                   COMCRDO COMCRDO       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/28. 19.11.32.      PAGE  84    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDO 
  
 COMCRDO  *                                                                                CPSA245      122     A     
 COMCRDO  *         *******************************************************                CPSA245      123     A     
 COMCRDO  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      124     A     
 COMCRDO  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      125     A     
 COMCRDO  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      126     A     
 COMCRDO  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      127     A     
 COMCRDO  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      128     A     
 COMCRDO  *         *******************************************************                CPSA245      129     A     
 COMCRDO  *                                                                                CPSA245      130     A     
 COMCRDO  *                                                                        COMCRDO COMCRDO       12     A     
 COMCRDO  *         RDO READS ONE WORD FROM A CIO BUFFER INTO X6.                  COMCRDO COMCRDO       13     A     
 COMCRDO   RDO      SPACE  4,10                                                    COMCRDO COMCRDO       14     A     
 COMCRDO  ***       RDO READS ONE WORD FROM A CIO BUFFER TO X6.                    COMCRDO COMCRDO       15     A     
 COMCRDO  *                                                                        COMCRDO COMCRDO       16     A     
 COMCRDO  *         ENTRY  (A1) = ADDRESS OF IN POINTER.                           COMCRDO COMCRDO       17     A     
 COMCRDO  *                (X1) = IN.                                              COMCRDO COMCRDO       18     A     
 COMCRDO  *                                                                        COMCRDO COMCRDO       19     A     
 COMCRDO  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDO COMCRDO       20     A     
 COMCRDO  *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDO COMCRDO       21     A     
 COMCRDO  *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDO COMCRDO       22     A     
 COMCRDO  *                (X1) = 1 IF EOR DETECTED ON FILE.                       COMCRDO COMCRDO       23     A     
 COMCRDO  *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDO COMCRDO       24     A     
 COMCRDO  *                (X6) = WORD READ.                                       COMCRDO COMCRDO       25     A     
 COMCRDO  *                (B1) = 1.                                               COMCRDO COMCRDO       26     A     
 COMCRDO  *                                                                        COMCRDO COMCRDO       27     A     
 COMCRDO  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDO COMCRDO       28     A     
 COMCRDO  *                B - 1.                                                  COMCRDO COMCRDO       29     A     
 COMCRDO  *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDO COMCRDO       30     A     
 COMCRDO  *                                                                        COMCRDO COMCRDO       31     A     
 COMCRDO  *         CALLS  CIO=.                                                   COMCRDO COMCRDO       32     A     
 COMCRDO  *                                                                                CPS0303        5     A     
 COMCRDO  *         MACROS RECALL.                                                         CPS0303        6     A     
 COMCRDO                                                                           COMCRDO COMCRDO       33     A     
 COMCRDO                                                                           COMCRDO COMCRDO       34     A     
 COMCRDO   RDO1     SX7    X3+B1       INCREMENT OUT                               COMCRDO COMCRDO       35     A     
 COMCRDO            BX6    X4                                                      COMCRDO COMCRDO       36     A     
 COMCRDO            MX1    0           RESPONSE = 0                                COMCRDO COMCRDO       37     A     
 COMCRDO            SA7    A3          UPDATE OUT                                  COMCRDO COMCRDO       38     A     
 COMCRDO                                                                           COMCRDO COMCRDO       39     A     
 COMCRDO   RDO=     SUBR               ENTRY/EXIT                                  COMCRDO COMCRDO       40     A     
 COMCRDO   RDO2     BSS    0                                                       COMCRDO COMCRDO       41     A     
 COMCRDO            IF     -DEF,B1=1,1                                             COMCRDO COMCRDO       42     A     
 COMCRDO            SB1    1                                                       COMCRDO COMCRDO       43     A     
 COMCRDO            SA3    A1+B1       READ OUT                                    COMCRDO COMCRDO       44     A     
 COMCRDO            IX7    X3-X1       OUT - IN                                    COMCRDO COMCRDO       45     A     
 COMCRDO            SX2    A1-2                                                    COMCRDO COMCRDO       46     A     
 COMCRDO            SA4    X3          READ WORD                                   COMCRDO COMCRDO       47     A     
 COMCRDO            NG     X7,RDO1     IF NO WRAP AROUND                           COMCRDO COMCRDO       48     A     
 COMCRDO            SA1    A3+B1       READ LIMIT                                  COMCRDO COMCRDO       49     A     
 COMCRDO            SX6    X1                                                      COMCRDO COMCRDO       50     A     
 COMCRDO            ZR     X7,RDO3     IF BUFFER EMPTY                             COMCRDO COMCRDO       51     A     
 COMCRDO            SX7    X3+B1       ADVANCE OUT                                 COMCRDO COMCRDO       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/28. 19.11.32.      PAGE  85    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDO 
  
 COMCRDO            IX1    X7-X6                                                   COMCRDO COMCRDO       53     A     
 COMCRDO            NZ     X1,RDO1     IF OUT .NE. LIMIT                           COMCRDO COMCRDO       54     A     
 COMCRDO            SA1    X2+B1       READ FIRST                                  COMCRDO COMCRDO       55     A     
 COMCRDO            SX3    X1-1                                                    COMCRDO COMCRDO       56     A     
 COMCRDO            EQ     RDO1        RETURN                                      COMCRDO COMCRDO       57     A     
 COMCRDO                                                                           COMCRDO COMCRDO       58     A     
 COMCRDO  *         LOAD CIRCULAR BUFFER.                                          COMCRDO COMCRDO       59     A     
 COMCRDO                                                                           COMCRDO COMCRDO       60     A     
 COMCRDO   RDO3     SA1    X2          CHECK BUFFER STATUS                         COMCRDO COMCRDO       61     A     
 COMCRDO            LX1    59-0                                                    COMCRDO COMCRDO       62     A     
 COMCRDO            NG     X1,RDO5     IF BUFFER NOT BUSY                          COMCRDO COMCRDO       63     A     
 COMCRDO            RECALL                                                         COMCRDO COMCRDO       64     A     
 COMCRDO   RDO4     SA1    X2+2        READ IN                                     COMCRDO COMCRDO       65     A     
 COMCRDO            EQ     RDO2        CONTINUE READ                               COMCRDO COMCRDO       66     A     
 COMCRDO                                                                           COMCRDO COMCRDO       67     A     
 COMCRDO   RDO5     SA4    A3-B1       READ IN                                     COMCRDO COMCRDO       68     A     
 COMCRDO            IX7    X4-X3                                                   COMCRDO COMCRDO       69     A     
 COMCRDO            NZ     X7,RDO4     IF BUFFER NOT EMPTY                         COMCRDO COMCRDO       70     A     
 COMCRDO            LX1    -4                                                      COMCRDO COMCRDO       71     A     
 COMCRDO            NG     X1,RDO6     IF EOR SET                                  COMCRDO COMCRDO       72     A     
 COMCRDO            LX1    4           ISSUE PREVIOUS READ FUNCTION                COMCRDO COMCRDO       73     A     
 COMCRDO            SX6    740770B/2                                               COMCRDO COMCRDO       74     A     
 COMCRDO            BX7    X6*X1                                                   COMCRDO COMCRDO       75     A     
 COMCRDO            LX7    1                                                       COMCRDO COMCRDO       76     A     
 COMCRDO            RJ     =XCIO=                                                  COMCRDO COMCRDO       77     A     
 COMCRDO            EQ     RDO4        CONTINUE READ                               COMCRDO COMCRDO       78     A     
 COMCRDO                                                                           COMCRDO COMCRDO       79     A     
 COMCRDO   RDO6     LX3    X1,B1                                                   COMCRDO COMCRDO       80     A     
 COMCRDO            SA1    A1+B1       SET IN = OUT = FIRST                        COMCRDO COMCRDO       81     A     
 COMCRDO            SX7    X1                                                      COMCRDO COMCRDO       82     A     
 COMCRDO            SA7    A1+B1                                                   COMCRDO COMCRDO       83     A     
 COMCRDO            SA7    A7+B1                                                   COMCRDO COMCRDO       84     A     
 COMCRDO            SX1    B1          RESPONSE = 1                                COMCRDO COMCRDO       85     A     
 COMCRDO            PL     X3,RDOX     IF NOT EOF, RETURN                          COMCRDO COMCRDO       86          I
          -CPSA104
 COMCRDO            PL     X3,RDO=     IF NOT EOF, RETURN                          CPSA104 CPSA104       26     A     
 COMCRDO            LX3    3-9                                                     COMCRDO COMCRDO       87     A     
 COMCRDO            SX1    -B1         RESPONSE = -1                               COMCRDO COMCRDO       88     A     
 COMCRDO            PL     X3,RDOX     IF NOT EOI, RETURN                          COMCRDO COMCRDO       89          I
          -CPSA104
 COMCRDO            PL     X3,RDO=     IF NOT EOI, RETURN                          CPSA104 CPSA104       27     A     
 COMCRDO            SX1    -2          RESPONSE = -2                               COMCRDO COMCRDO       90     A     
 COMCRDO            EQ     RDOX        RETURN                                      COMCRDO COMCRDO       91          I
          -CPSA104
 COMCRDO            EQ     RDO=        RETURN                                      CPSA104 CPSA104       28     A     
 COMCRDO   RDO      SPACE  4,10                                                    COMCRDO COMCRDO       92     A     
 COMCRDO            BASE   *                                                       COMCRDO COMCRDO       93     A     
 COMCRDO   QUAL$    IF     -DEF,QUAL$                                              COMCRDO COMCRDO       94     A     
 COMCRDO            QUAL   *                                                       COMCRDO COMCRDO       95     A     
 COMCRDO   RDO=     EQU    /COMCRDO/RDO=                                           COMCRDO COMCRDO       96     A     
 COMCRDO   QUAL$    ENDIF                                                          COMCRDO COMCRDO       97     A     
 COMCRDO   RDO      ENDX                                                           COMCRDO COMCRDO       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/28. 19.11.32.      PAGE  86    
  
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDO 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDO                     98        95
          CPSA104                      3         3
          CPS0303                      2         2
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDS 
  
 COMCRDS  *COMDECK  COMCRDS            READ CODED LINE TO STRING BUFFER.           COMCRDS COMCRDS        1     A     
 COMCRDS   RDS      CTEXT  COMCRDS - READ CODED LINE TO STRING BUFFER.             COMCRDS COMCRDS        2     A     
 COMCRDS   RDS      SPACE  4,10                                                    COMCRDS COMCRDS        3     A     
 COMCRDS            IF     -DEF,QUAL$,1                                            COMCRDS COMCRDS        4     A     
 COMCRDS            QUAL   COMCRDS                                                 COMCRDS COMCRDS        5     A     
 COMCRDS            BASE   D                                                       COMCRDS COMCRDS        6     A     
 COMCRDS  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCRDS COMCRDS        7     A     
 COMCRDS   RDS      SPACE  4,10                                                    COMCRDS COMCRDS        8     A     
 COMCRDS  ***       RDS - READ CODED LINE TO STRING BUFFER.                        COMCRDS COMCRDS        9     A     
 COMCRDS  *                                                                        COMCRDS COMCRDS       10     A     
 COMCRDS  *         R. S. HORECK.      71/05/19.                                   COMCRDS COMCRDS       11     A     
 COMCRDS  *         S. R. MCPHERSON.   74/09/30.                                   COMCRDS COMCRDS       12     A     
 COMCRDS  *         R. R. RAGAN        77/07/22.                                   COMCRDS COMCRDS       13     A     
 COMCRDS  *                                                                                CPSA245      131     A     
 COMCRDS  *         *******************************************************                CPSA245      132     A     
 COMCRDS  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      133     A     
 COMCRDS  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      134     A     
 COMCRDS  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      135     A     
 COMCRDS  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      136     A     
 COMCRDS  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      137     A     
 COMCRDS  *         *******************************************************                CPSA245      138     A     
 COMCRDS  *                                                                                CPSA245      139     A     
 COMCRDS  *                                                                        COMCRDS COMCRDS       14     A     
 COMCRDS  *         RDS READS A CODED LINE TO A STRING BUFFER, ONE CHARACTER       COMCRDS COMCRDS       15     A     
 COMCRDS  *         PER WORD.                                                      COMCRDS COMCRDS       16     A     
 COMCRDS   RDS      SPACE  4,10                                                    COMCRDS COMCRDS       17     A     
 COMCRDS  ***       RDS READS 1 CODED LINE FROM A CIO BUFFER TO A WORKING          COMCRDS COMCRDS       18     A     
 COMCRDS  *         BUFFER ONE CHARACTER PER WORD.  WORDS IN THE CIRCULAR          COMCRDS COMCRDS       19     A     
 COMCRDS  *         BUFFER ARE UNPACKED AND STORED ONE CHARACTER PER WORD IN       COMCRDS COMCRDS       20     A     
 COMCRDS  *         THE WORKING BUFFER UNTIL THE END OF LINE BYTE IS DETECTED.     COMCRDS COMCRDS       21     A     
 COMCRDS  *         IF THE CODED LINE TERMINATES BEFORE THE WORKING BUFFER         COMCRDS COMCRDS       22     A     
 COMCRDS  *         IS FILLED, THE WORKING BUFFER IS PADDED WITH SPACE CODES,      COMCRDS COMCRDS       23     A     
 COMCRDS  *         UNLESS UPON ENTRY THE COMPLEMENT OF THE WORD COUNT OF          COMCRDS COMCRDS       24     A     
 COMCRDS  *         THE WORKING BUFFER IS USED.  IN THIS CASE, THE REMAINDER       COMCRDS COMCRDS       25     A     
 COMCRDS  *         OF THE WORKING BUFFER IS NOT SPACE FILLED.  IF THE CODED       COMCRDS COMCRDS       26     A     
 COMCRDS  *         LINE EXCEEDS THE SIZE OF THE WORKING BUFFER THE EXCESS         COMCRDS COMCRDS       27     A     
 COMCRDS  *         CHARACTERS ARE IGNORED.                                        COMCRDS COMCRDS       28     A     
 COMCRDS  *                                                                        COMCRDS COMCRDS       29     A     
 COMCRDS  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDS COMCRDS       30     A     
 COMCRDS  *                (B6) = FWA WORKING BUFFER.                              COMCRDS COMCRDS       31     A     
 COMCRDS  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDS COMCRDS       32     A     
 COMCRDS  *                       IF (B7) .LT.  0, IT IS THE COMPLEMENT OF THE     COMCRDS COMCRDS       33     A     
 COMCRDS  *                       BUFFER LENGTH AND THE STRING BUFFER WILL         COMCRDS COMCRDS       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/28. 19.11.32.      PAGE  87    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDS 
  
 COMCRDS  *                       NOT BE SPACE FILLED.                             COMCRDS COMCRDS       35     A     
 COMCRDS  *                                                                        COMCRDS COMCRDS       36     A     
 COMCRDS  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDS COMCRDS       37     A     
 COMCRDS  *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDS COMCRDS       38     A     
 COMCRDS  *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDS COMCRDS       39     A     
 COMCRDS  *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDS COMCRDS       40     A     
 COMCRDS  *                             TRANSFER WAS COMPLETED.                    COMCRDS COMCRDS       41     A     
 COMCRDS  *                (B6) = ADDRESS PLUS ONE OF LAST CHARACTER FROM CODED    COMCRDS COMCRDS       42     A     
 COMCRDS  *                             LINE IN WORKING BUFFER.                    COMCRDS COMCRDS       43     A     
 COMCRDS  *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDS COMCRDS       44     A     
 COMCRDS  *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDS COMCRDS       45     A     
 COMCRDS  *                (B1) = 1.                                               COMCRDS COMCRDS       46     A     
 COMCRDS  *                                                                        COMCRDS COMCRDS       47     A     
 COMCRDS  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDS COMCRDS       48     A     
 COMCRDS  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDS COMCRDS       49     A     
 COMCRDS  *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDS COMCRDS       50     A     
 COMCRDS  *                                                                        COMCRDS COMCRDS       51     A     
 COMCRDS  *         CALLS  LCB=, RDX=.                                             COMCRDS COMCRDS       52     A     
 COMCRDS                                                                           COMCRDS COMCRDS       53     A     
 COMCRDS                                                                           COMCRDS COMCRDS       54     A     
 COMCRDS   +        EQ     RDS1        ENTRY FROM LCB= ON A CONTINUATION READ      COMCRDS COMCRDS       55     A     
 COMCRDS                                                                           COMCRDS COMCRDS       56     A     
 COMCRDS  *         SPACE FILL REMAINDER OF BUFFER.                                COMCRDS COMCRDS       57     A     
 COMCRDS                                                                           COMCRDS COMCRDS       58     A     
 COMCRDS   RDS12    EQ     B6,B7,RDSX  IF WORKING BUFFER FULL, RETURN              COMCRDS COMCRDS       59          I
          -CPSA104
 COMCRDS   RDS12    EQ     B6,B7,RDS=  IF WORKING BUFFER FULL, RETURN              CPSA104 CPSA104       29     A     
 COMCRDS            SB5    X7          (B5) = LEVEL NUMBER                         COMCRDS COMCRDS       60     A     
 COMCRDS            SX6    1R          * *                                         COMCRDS COMCRDS       61     A     
 COMCRDS            SX4    B7-B6       (X4) = COUNT OF WORDS REMAINING IN BUFFER   COMCRDS COMCRDS       62     A     
 COMCRDS            SB4    -B1         (B4) = -1                                   COMCRDS COMCRDS       63     A     
 COMCRDS            SA6    B6          INITIALIZE (A6)                             COMCRDS COMCRDS       64     A     
 COMCRDS            SB2    X4                                                      COMCRDS COMCRDS       65     A     
 COMCRDS            EQ     B2,B1,RDSX  IF ONLY 1 WORD REMAINING, RETURN            COMCRDS COMCRDS       66          I
          -CPSA104
 COMCRDS            EQ     B2,B1,RDS=  IF ONLY 1 WORD REMAINING, RETURN            CPSA104 CPSA104       30     A     
 COMCRDS            BX7    X6          (X7) = * *                                  COMCRDS COMCRDS       67     A     
 COMCRDS            LX4    -1          WORD COUNT/2                                COMCRDS COMCRDS       68     A     
 COMCRDS            MI     X4,RDS13    IF WORD COUNT IS ODD                        COMCRDS COMCRDS       69     A     
 COMCRDS            SA6    A6+B1       STORE NEXT WORD                             COMCRDS COMCRDS       70     A     
 COMCRDS            SX4    X4+B4       DECREMENT LOOP COUNT                        COMCRDS COMCRDS       71     A     
 COMCRDS            ZR     X4,RDS14    IF WORD COUNT = 2                           COMCRDS COMCRDS       72     A     
 COMCRDS   RDS13    SX4    X4+B4       DECREMENT LOOP COUNT                        COMCRDS COMCRDS       73     A     
 COMCRDS            SA7    A6+1                                                    COMCRDS COMCRDS       74     A     
 COMCRDS            SA6    A7+B1                                                   COMCRDS COMCRDS       75     A     
 COMCRDS            NZ     X4,RDS13    LOOP TO END OF BUFFER                       COMCRDS COMCRDS       76     A     
 COMCRDS   RDS14    SX7    B5          RESTORE LEVEL NUMBER                        COMCRDS COMCRDS       77     A     
 COMCRDS            EQ     RDSX        RETURN                                      COMCRDS COMCRDS       78          I
          -CPSA104
 COMCRDS            EQ     RDS=        RETURN                                      CPSA104 CPSA104       31     A     
 COMCRDS                                                                           COMCRDS COMCRDS       79     A     
 COMCRDS   +        EQ     RDS1        ENTRY FROM LCB= ON A CONTINUATION READ      COMCRDS COMCRDS       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/28. 19.11.32.      PAGE  88    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDS 
  
 COMCRDS                                                                           COMCRDS COMCRDS       81     A     
 COMCRDS   RDS=     SUBR               ENTRY/EXIT                                  COMCRDS COMCRDS       82     A     
 COMCRDS            SA4    RDS12       SET RETURN ADDRESS                          COMCRDS COMCRDS       83     A     
 COMCRDS                                                                           COMCRDS COMCRDS       84     A     
 COMCRDS            IF     -DEF,B1=1,1                                             COMCRDS COMCRDS       85     A     
 COMCRDS            SB1    1                                                       COMCRDS COMCRDS       86     A     
 COMCRDS                                                                           COMCRDS COMCRDS       87     A     
 COMCRDS            SA1    X2+4        (B5) = LIMIT                                COMCRDS COMCRDS       88     A     
 COMCRDS            PL     B7,RDS0     IF BUFFER TO BE SPACE FILLED                COMCRDS COMCRDS       89     A     
 COMCRDS            SA4    RDSX        SKIP SPACE FILLING THE BUFFER               COMCRDS COMCRDS       90          I
          -CPSA104
 COMCRDS            SA4    RDS=        SKIP SPACE FILLING THE BUFFER               CPSA104 CPSA104       32     A     
 COMCRDS            SB7    -B7                                                     COMCRDS COMCRDS       91     A     
 COMCRDS   RDS0     SA3    X2+B1       (X3) = FIRST, (A3) = ADDRESS OF FIRST       COMCRDS COMCRDS       92     A     
 COMCRDS            SB7    B6+B7       (B7) = LWA+1                                COMCRDS COMCRDS       93     A     
 COMCRDS            SX4    B6          (X4) = FWA WORKING STORAGE                  COMCRDS COMCRDS       94     A     
 COMCRDS            SB5    X1                                                      COMCRDS COMCRDS       95     A     
 COMCRDS                                                                           COMCRDS COMCRDS       96     A     
 COMCRDS  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDS COMCRDS       97     A     
 COMCRDS                                                                           COMCRDS COMCRDS       98     A     
 COMCRDS   RDS1     SA1    A3+B1       IN                                          COMCRDS COMCRDS       99     A     
 COMCRDS            SA2    A1+B1       (B4) = OUT                                  COMCRDS COMCRDS      100     A     
 COMCRDS            SB4    X2                                                      COMCRDS COMCRDS      101     A     
 COMCRDS            IX6    X1-X2       IN - OUT                                    COMCRDS COMCRDS      102     A     
 COMCRDS            SX1    B5          LIMIT                                       COMCRDS COMCRDS      103     A     
 COMCRDS            PL     X6,RDS2     IF IN .GE. OUT                              COMCRDS COMCRDS      104     A     
 COMCRDS            IX6    X1-X2       LIMIT - OUT                                 COMCRDS COMCRDS      105     A     
 COMCRDS   RDS2     ZR     X6,=XLCB=   IF NO FREE BUFFER SPACE                     COMCRDS COMCRDS      106     A     
 COMCRDS            MX2    -6          (X2) = CHARACTER MASK                       COMCRDS COMCRDS      107     A     
 COMCRDS            SB3    X6          (B3) = FREE BUFFER SPACE                    COMCRDS COMCRDS      108     A     
 COMCRDS                                                                           COMCRDS COMCRDS      109     A     
 COMCRDS                                                                           COMCRDS COMCRDS      110     A     
 COMCRDS   RDS3     NE     B4,B5,RDS4  IF OUT .NE. LIMIT                           COMCRDS COMCRDS      111     A     
 COMCRDS            SA1    A3                                                      COMCRDS COMCRDS      112     A     
 COMCRDS            SB4    X1          OUT = FIRST                                 COMCRDS COMCRDS      113     A     
 COMCRDS   RDS4     SX6    B4          RESET OUT                                   COMCRDS COMCRDS      114     A     
 COMCRDS            SA6    A2                                                      COMCRDS COMCRDS      115     A     
 COMCRDS            ZR     B3,RDS1     IF FREE BUFFER SPACE EXHAUSTED              COMCRDS COMCRDS      116     A     
 COMCRDS                                                                           COMCRDS COMCRDS      117     A     
 COMCRDS  *         READ WORD FROM BUFFER.                                         COMCRDS COMCRDS      118     A     
 COMCRDS                                                                           COMCRDS COMCRDS      119     A     
 COMCRDS            SA1    B4                                                      COMCRDS COMCRDS      120     A     
 COMCRDS            SB4    B4+B1                                                   COMCRDS COMCRDS      121     A     
 COMCRDS            EQ     B7,B6,RDS10 IF MAXIMUM CHARACTERS PROCESSED             COMCRDS COMCRDS      122     A     
 COMCRDS            SB2    B0+         INITIALIZE CHARACTER COUNT                  COMCRDS COMCRDS      123     A     
 COMCRDS            NG     X1,RDS5     IF POSSIBLY 10 SEMI-COLONS                  COMCRDS COMCRDS      124     A     
 COMCRDS            ZR     X1,RDS8     IF ZERO WORD SKIP UNPACKING                 COMCRDS COMCRDS      125     A     
 COMCRDS                                                                           COMCRDS COMCRDS      126     A     
 COMCRDS  *         UNPACK WORD TO WORKING BUFFER.                                 COMCRDS COMCRDS      127     A     
 COMCRDS                                                                           COMCRDS COMCRDS      128     A     
 COMCRDS   RDS5     LX1    6                                                       COMCRDS COMCRDS      129     A     
 COMCRDS            SB2    B2+B1       BUMP CHARACTER COUNT                        COMCRDS COMCRDS      130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  89    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDS 
  
 COMCRDS            BX6    -X2*X1      PICK UP CHARACTER                           COMCRDS COMCRDS      131     A     
 COMCRDS            BX1    X2*X1       ERASE CHARACTER                             COMCRDS COMCRDS      132     A     
 COMCRDS   RDS6     SA6    B6                                                      COMCRDS COMCRDS      133     A     
 COMCRDS            SB6    B6+B1                                                   COMCRDS COMCRDS      134     A     
 COMCRDS            EQ     B6,B7,RDS10 IF MAXIMUM CHARACTERS PROCESSED             COMCRDS COMCRDS      135     A     
 COMCRDS            NZ     X1,RDS5     IF MORE CHARACTERS THIS WORD                COMCRDS COMCRDS      136     A     
 COMCRDS            SX6    B2-9                                                    COMCRDS COMCRDS      137     A     
 COMCRDS            SB2    B0          RESET CHARACTER COUNT                       COMCRDS COMCRDS      138     A     
 COMCRDS            SB3    B3-B1       DECREMENT FREE BUFFER SPACE                 COMCRDS COMCRDS      139     A     
 COMCRDS            NG     X6,RDS10    IF END OF LINE                              COMCRDS COMCRDS      140     A     
 COMCRDS            ZR     B3,RDS7     IF FREE BUFFER SPACE EXHAUSTED              COMCRDS COMCRDS      141     A     
 COMCRDS            SA1    B4          GET NEXT WORD TO BE UNPACKED                COMCRDS COMCRDS      142     A     
 COMCRDS            SB4    B4+B1                                                   COMCRDS COMCRDS      143     A     
 COMCRDS            NG     X1,RDS6.1   IF POSSIBLY 10 SEMI-COLONS                  COMCRDS COMCRDS      144     A     
 COMCRDS            ZR     X1,RDS10    IF ZERO WORD, END OF LINE                   COMCRDS COMCRDS      145     A     
 COMCRDS   RDS6.1   NZ     X6,RDS5     IF WORD COMPLETLY PROCESSED                 COMCRDS COMCRDS      146     A     
 COMCRDS            EQ     RDS6        PROCESS LAST CHARACTER                      COMCRDS COMCRDS      147     A     
 COMCRDS                                                                           COMCRDS COMCRDS      148     A     
 COMCRDS   RDS7     NZ     X6,RDS3     IF LAST CHARACTER PROCESSED                 COMCRDS COMCRDS      149     A     
 COMCRDS            SA6    B6          PROCESS LAST CHARACTER                      COMCRDS COMCRDS      150     A     
 COMCRDS            SB6    B6+B1                                                   COMCRDS COMCRDS      151     A     
 COMCRDS            EQ     RDS3                                                    COMCRDS COMCRDS      152     A     
 COMCRDS                                                                           COMCRDS COMCRDS      153     A     
 COMCRDS   RDS8     SB2    X4                                                      COMCRDS COMCRDS      154     A     
 COMCRDS            NE     B6,B2,RDS9  IF AT LEAST 1 CHARACTER IN WORKING BUFFER   COMCRDS COMCRDS      155     A     
 COMCRDS            SX6    1R          ASSURE 1 BLANK IN STRING BUFFER             COMCRDS COMCRDS      156     A     
 COMCRDS            SB6    B2+B1                                                   COMCRDS COMCRDS      157     A     
 COMCRDS            SA6    B2                                                      COMCRDS COMCRDS      158     A     
 COMCRDS   RDS9     SA1    B6-B1       CHECK LAST CHARACTER IN BUFFER              COMCRDS COMCRDS      159     A     
 COMCRDS            NZ     X1,RDS10    IF NOT BEGINNING OF END OF LINE             COMCRDS COMCRDS      160     A     
 COMCRDS            SB6    B6-1        ERASE CHARACTER                             COMCRDS COMCRDS      161     A     
 COMCRDS                                                                           COMCRDS COMCRDS      162     A     
 COMCRDS  *         SEARCH FOR END OF LINE.                                        COMCRDS COMCRDS      163     A     
 COMCRDS                                                                           COMCRDS COMCRDS      164     A     
 COMCRDS   RDS10    SA1    B4-1        READ LAST WORD PROCESSED                    COMCRDS COMCRDS      165     A     
 COMCRDS            MX7    -12                                                     COMCRDS COMCRDS      166     A     
 COMCRDS            BX7    -X7*X1      CHECK FOR END OF LINE                       COMCRDS COMCRDS      167     A     
 COMCRDS            SB3    B3-1        DECREMENT FREE BUFFER SPACE                 COMCRDS COMCRDS      168     A     
 COMCRDS            NZ     X7,RDS3     IF END OF LINE NOT FOUND                    COMCRDS COMCRDS      169     A     
 COMCRDS            NE     B4,B5,RDS11 IF OUT .NE. LIMIT                           COMCRDS COMCRDS      170     A     
 COMCRDS            SB4    X3+         OUT = FIRST                                 COMCRDS COMCRDS      171     A     
 COMCRDS   RDS11    SA1    A3+B1       RESET IN                                    COMCRDS COMCRDS      172     A     
 COMCRDS            SB2    X4          FWA WORKING BUFFER                          COMCRDS COMCRDS      173     A     
 COMCRDS            SB3    X1+         (B3) = IN                                   COMCRDS COMCRDS      174     A     
 COMCRDS            GE     B6,B2,=XRDX=                                            COMCRDS COMCRDS      175     A     
 COMCRDS            SB6    B2+                                                     COMCRDS COMCRDS      176     A     
 COMCRDS            EQ     =XRDX=      EXIT                                        COMCRDS COMCRDS      177     A     
 COMCRDS   RDS      SPACE  4,10                                                    COMCRDS COMCRDS      178     A     
 COMCRDS            BASE   *                                                       COMCRDS COMCRDS      179     A     
 COMCRDS   QUAL$    IF     -DEF,QUAL$                                              COMCRDS COMCRDS      180     A     
 COMCRDS            QUAL   *                                                       COMCRDS COMCRDS      181     A     
 COMCRDS   RDS=     EQU    /COMCRDS/RDS=                                           COMCRDS COMCRDS      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/28. 19.11.32.      PAGE  90    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDS 
  
 COMCRDS   QUAL$    ENDIF                                                          COMCRDS COMCRDS      183     A     
 COMCRDS   RDS      ENDX                                                           COMCRDS COMCRDS      184     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDS                    184       180
          CPSA104                      4         4
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW  *COMDECK  COMCRDW            READ WORDS TO WORKING BUFFER.               COMCRDW COMCRDW        1     A     
 COMCRDW   RDW      CTEXT  COMCRDW - READ WORDS TO WORKING BUFFER.                 COMCRDW COMCRDW        2     A     
 COMCRDW   RDW      SPACE  4,10                                                    COMCRDW COMCRDW        3     A     
 COMCRDW            IF     -DEF,QUAL$,1                                            COMCRDW COMCRDW        4     A     
 COMCRDW            QUAL   COMCRDW                                                 COMCRDW COMCRDW        5     A     
 COMCRDW            BASE   D                                                       COMCRDW COMCRDW        6     A     
 COMCRDW  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970, 1978.               COMCRDW COMCRDW        7     A     
 COMCRDW   RDW      SPACE  4,10                                                    COMCRDW COMCRDW        8     A     
 COMCRDW  ***       RDW - READ WORDS TO WORKING BUFFER.                            COMCRDW COMCRDW        9     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       10     A     
 COMCRDW  *         D. A. CAHLANDER.   70/11/29.                                   COMCRDW COMCRDW       11     A     
 COMCRDW  *         R. E. TATE.        73/11/04.                                   COMCRDW COMCRDW       12     A     
 COMCRDW  *         R. R. RAGAN.       77/07/21.                                   COMCRDW COMCRDW       13     A     
 COMCRDW  *         C. J. CONRAD.      81/08/06.                                           CPSA242       10     A     
 COMCRDW  *                                                                                CPSA242       11     A     
 COMCRDW  *         *******************************************************                CPSA242       12     A     
 COMCRDW  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA242       13     A     
 COMCRDW  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA242       14     A     
 COMCRDW  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA242       15     A     
 COMCRDW  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA242       16     A     
 COMCRDW  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA242       17     A     
 COMCRDW  *         *******************************************************                CPSA242       18     A     
 COMCRDW  *                                                                                CPSA242       19     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       14     A     
 COMCRDW  *         RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER            COMCRDW COMCRDW       15     A     
 COMCRDW  *         TO A WORKING STORAGE AREA.  IT ALSO CONTAINS THE LOAD CIO      COMCRDW COMCRDW       16     A     
 COMCRDW  *         BUFFER AND READ EXIT ROUTINES REQUIRED BY RDC,RDH, AND RDS.    COMCRDW COMCRDW       17     A     
 COMCRDW   RDW      SPACE  4,10                                                    COMCRDW COMCRDW       18     A     
 COMCRDW  ***       RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER TO         COMCRDW COMCRDW       19     A     
 COMCRDW  *         A WORKING BUFFER.  THIS DECK ALSO CONTAINS LCB=, RDX=.         COMCRDW COMCRDW       20     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       21     A     
 COMCRDW  *         THE THRESHOLD CONDITION TO ISSUE READ FUNCTIONS                        CPSA242       20     A     
 COMCRDW  *         IS BUFFER HALF EMPTY FOR BUFFERS LARGER                                CPSA242       21     A     
 COMCRDW  *         THAN 511 DECIMAL WORDS, AND BUFFER TOTALLY                             CPSA242       22     A     
 COMCRDW  *         EMPTY FOR SMALLER BUFFERS.  IF THE SYMBOL                              CPSA242       23     A     
 COMCRDW  *         RDX$ IS DEFINED, THEN THE THRESHOLD IS                                 CPSA242       24     A     
 COMCRDW  *         BUFFER EMPTY FOR ALL BUFFER SIZES.                                     CPSA242       25     A     
 COMCRDW  *                                                                                CPSA242       26     A     
 COMCRDW  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW COMCRDW       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/28. 19.11.32.      PAGE  91    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW  *                (B6) = FWA WORKING BUFFER.                              COMCRDW COMCRDW       23     A     
 COMCRDW  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDW COMCRDW       24     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       25     A     
 COMCRDW  *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDW COMCRDW       26     A     
 COMCRDW  *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDW COMCRDW       27     A     
 COMCRDW  *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDW COMCRDW       28     A     
 COMCRDW  *                (X1) = -3 IF *CIO=* WAS CALLED TO READ MORE DATA AND    COMCRDW COMCRDW       29     A     
 COMCRDW  *                       RETURNED AN ERROR STATUS.                        COMCRDW COMCRDW       30     A     
 COMCRDW  *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDW COMCRDW       31     A     
 COMCRDW  *                             TRANSFER WAS COMPLETED.                    COMCRDW COMCRDW       32     A     
 COMCRDW  *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDW COMCRDW       33     A     
 COMCRDW  *                             WORKING BUFFER.                            COMCRDW COMCRDW       34     A     
 COMCRDW  *                (B7) = WORD COUNT REMAINING TO BE TRANSFERRED.          COMCRDW COMCRDW       35     A     
 COMCRDW  *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW COMCRDW       36     A     
 COMCRDW  *                (X7) = ERROR STATUS IF (X1) = -3.                       COMCRDW COMCRDW       37     A     
 COMCRDW  *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDW COMCRDW       38     A     
 COMCRDW  *                (B1) = 1.                                               COMCRDW COMCRDW       39     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       40     A     
 COMCRDW  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDW COMCRDW       41     A     
 COMCRDW  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDW COMCRDW       42     A     
 COMCRDW  *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDW COMCRDW       43     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       44     A     
 COMCRDW  *         CALLS  CIO=.                                                   COMCRDW COMCRDW       45     A     
 COMCRDW                                                                           COMCRDW COMCRDW       46     A     
 COMCRDW                                                                           COMCRDW COMCRDW       47     A     
 COMCRDW  *         PROCESS 1 WORD OR BUFFER EMPTY.                                COMCRDW COMCRDW       48     A     
 COMCRDW                                                                           COMCRDW COMCRDW       49     A     
 COMCRDW   RDW18    ZR     B3,RDW11    IF NO DATA                                  COMCRDW COMCRDW       50     A     
 COMCRDW            BX7    X1          STORE 1 WORD                                COMCRDW COMCRDW       51     A     
 COMCRDW            SA7    B6                                                      COMCRDW COMCRDW       52     A     
 COMCRDW   RDW19    SX6    B4+B3       ADVANCE OUT                                 COMCRDW COMCRDW       53     A     
 COMCRDW            SB4    B4+B3                                                   COMCRDW COMCRDW       54     A     
 COMCRDW            SB6    B6+B3                                                   COMCRDW COMCRDW       55     A     
 COMCRDW            SB7    B7-B3                                                   COMCRDW COMCRDW       56     A     
 COMCRDW            NE     B4,B5,RDW20 IF OUT .NE. LIMIT                           COMCRDW COMCRDW       57     A     
 COMCRDW            SA1    X2+B1       READ FIRST                                  COMCRDW COMCRDW       58     A     
 COMCRDW            SX6    X1          OUT = FIRST                                 COMCRDW COMCRDW       59     A     
 COMCRDW   RDW20    SA6    A3          UPDATE OUT                                  COMCRDW COMCRDW       60     A     
 COMCRDW   RDW21    BSS    0                                                               CPSA187        5     A     
 COMCRDW            BX1    X1-X1       RESPONSE = 0                                COMCRDW COMCRDW       61     A     
 COMCRDW            NZ     B7,RDW1     IF NOT END OF TRANSFER                      COMCRDW COMCRDW       62     A     
 COMCRDW                                                                           COMCRDW COMCRDW       63     A     
 COMCRDW   RDW=     SUBR               ENTRY/EXIT                                  COMCRDW COMCRDW       64     A     
 COMCRDW            ZR     B7,RDW21    IF ZERO WORD COUNT, SET COMPLETE AND EXIT.          CPSA187        6     A     
 COMCRDW   RDW1     SA3    X2+3        (B4) = OUT                                  COMCRDW COMCRDW       65     A     
 COMCRDW            SA1    X2+2        (B3) = IN                                   COMCRDW COMCRDW       66     A     
 COMCRDW            IF     -DEF,B1=1,1                                             COMCRDW COMCRDW       67     A     
 COMCRDW            SB1    1                                                       COMCRDW COMCRDW       68     A     
 COMCRDW            SA4    A3+B1       (B5) = LIMIT                                COMCRDW COMCRDW       69     A     
 COMCRDW            SB4    X3                                                      COMCRDW COMCRDW       70     A     
 COMCRDW            SB3    X1                                                      COMCRDW COMCRDW       71     A     
 COMCRDW            SA1    X3          READ FIRST WORD                             COMCRDW COMCRDW       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/28. 19.11.32.      PAGE  92    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            SB5    X4                                                      COMCRDW COMCRDW       73     A     
 COMCRDW            GE     B3,B4,RDW2  IF NO END AROUND                            COMCRDW COMCRDW       74     A     
 COMCRDW            SB3    B5                                                      COMCRDW COMCRDW       75     A     
 COMCRDW   RDW2     SB3    B3-B4       FREE DATA LENGTH                            COMCRDW COMCRDW       76     A     
 COMCRDW            LE     B3,B7,RDW3  IF NOT ENOUGH ROOM                          COMCRDW COMCRDW       77     A     
 COMCRDW            SB3    B7                                                      COMCRDW COMCRDW       78     A     
 COMCRDW   RDWA     BSS    0                                                       COMCRDW COMCRDW       79     A     
 COMCRDW   RDW3     SA3    RDWB        PRESET CMU CODE                             COMCRDW COMCRDW       80     A     
 COMCRDW            RJ     RDW16       PRESET CMU CODE                             COMCRDW COMCRDW       81     A     
 COMCRDW  *         LE     B3,B1,RDW18 IF 1 WORD OR LESS OF DATA (NO CMU)          COMCRDW COMCRDW       82     A     
 COMCRDW  *         BX7    X1          (NO CMU)                                    COMCRDW COMCRDW       83     A     
 COMCRDW  *         SA1    A1+B1       (NO CMU)                                    COMCRDW COMCRDW       84     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW       85     A     
 COMCRDW  *         LE     B3,B1,RDW18 IF 1 WORD OR LESS OF DATA (CMU)             COMCRDW COMCRDW       86     A     
 COMCRDW  *         EQ     RDW14       (CMU)                                       COMCRDW COMCRDW       87     A     
 COMCRDW                                                                           COMCRDW COMCRDW       88     A     
 COMCRDW  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDW COMCRDW       89     A     
 COMCRDW                                                                           COMCRDW COMCRDW       90     A     
 COMCRDW   RDW4     SX4    B3-B1                                                   COMCRDW COMCRDW       91     A     
 COMCRDW            MX6    -3                                                      COMCRDW COMCRDW       92     A     
 COMCRDW            SA7    B6                                                      COMCRDW COMCRDW       93     A     
 COMCRDW            BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCRDW COMCRDW       94     A     
 COMCRDW            AX4    3           NUMBER OF BLOCKS                            COMCRDW COMCRDW       95     A     
 COMCRDW                                                                           COMCRDW COMCRDW       96     A     
 COMCRDW  *         TRANSFER UP TO 7 WORDS.                                        COMCRDW COMCRDW       97     A     
 COMCRDW                                                                           COMCRDW COMCRDW       98     A     
 COMCRDW            ZR     X3,RDW6     IF NO ODD WORDS                             COMCRDW COMCRDW       99     A     
 COMCRDW            SB2    X3                                                      COMCRDW COMCRDW      100     A     
 COMCRDW   RDW5     SB2    B2-B1                                                   COMCRDW COMCRDW      101     A     
 COMCRDW            BX7    X1                                                      COMCRDW COMCRDW      102     A     
 COMCRDW            SA1    A1+B1                                                   COMCRDW COMCRDW      103     A     
 COMCRDW            SA7    A7+B1                                                   COMCRDW COMCRDW      104     A     
 COMCRDW            NZ     B2,RDW5     IF MORE WORDS                               COMCRDW COMCRDW      105     A     
 COMCRDW                                                                           COMCRDW COMCRDW      106     A     
 COMCRDW  *         PRE-READ REGISTERS.                                            COMCRDW COMCRDW      107     A     
 COMCRDW                                                                           COMCRDW COMCRDW      108     A     
 COMCRDW   RDW6     ZR     X4,RDW19    IF NO BLOCKS                                COMCRDW COMCRDW      109     A     
 COMCRDW            SB5    X2                                                      COMCRDW COMCRDW      110     A     
 COMCRDW            SA2    A1+B1                                                   COMCRDW COMCRDW      111     A     
 COMCRDW            SB2    B1+B1       (B2) = 2                                    COMCRDW COMCRDW      112     A     
 COMCRDW            SA3    A2+B1                                                   COMCRDW COMCRDW      113     A     
 COMCRDW            SB4    X4          (B4) = LOOP COUNT                           COMCRDW COMCRDW      114     A     
 COMCRDW            SA4    A3+B1                                                   COMCRDW COMCRDW      115     A     
 COMCRDW                                                                           COMCRDW COMCRDW      116     A     
 COMCRDW  *         TRANSFER 8 WORD BLOCKS.                                        COMCRDW COMCRDW      117     A     
 COMCRDW                                                                           COMCRDW COMCRDW      118     A     
 COMCRDW   RDW7     BX6    X1                                                      COMCRDW COMCRDW      119     A     
 COMCRDW            LX7    X2                                                      COMCRDW COMCRDW      120     A     
 COMCRDW            SA1    A3+B2                                                   COMCRDW COMCRDW      121     A     
 COMCRDW            SA2    A4+B2                                                   COMCRDW COMCRDW      122     A     
 COMCRDW            SA6    A7+B1                                                   COMCRDW COMCRDW      123     A     
 COMCRDW            SB4    B4-B1                                                   COMCRDW COMCRDW      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/28. 19.11.32.      PAGE  93    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            SA7    A6+B1                                                   COMCRDW COMCRDW      125     A     
 COMCRDW            BX6    X3                                                      COMCRDW COMCRDW      126     A     
 COMCRDW            LX7    X4                                                      COMCRDW COMCRDW      127     A     
 COMCRDW            SA3    A1+B2                                                   COMCRDW COMCRDW      128     A     
 COMCRDW            SA4    A2+B2                                                   COMCRDW COMCRDW      129     A     
 COMCRDW            SA6    A6+B2                                                   COMCRDW COMCRDW      130     A     
 COMCRDW            SA7    A7+B2                                                   COMCRDW COMCRDW      131     A     
 COMCRDW            BX6    X1                                                      COMCRDW COMCRDW      132     A     
 COMCRDW            LX7    X2                                                      COMCRDW COMCRDW      133     A     
 COMCRDW            SA1    A3+B2                                                   COMCRDW COMCRDW      134     A     
 COMCRDW            SA2    A4+B2                                                   COMCRDW COMCRDW      135     A     
 COMCRDW            SA6    A6+B2                                                   COMCRDW COMCRDW      136     A     
 COMCRDW            SA7    A7+B2                                                   COMCRDW COMCRDW      137     A     
 COMCRDW            BX6    X3                                                      COMCRDW COMCRDW      138     A     
 COMCRDW            LX7    X4                                                      COMCRDW COMCRDW      139     A     
 COMCRDW            SA3    A1+B2                                                   COMCRDW COMCRDW      140     A     
 COMCRDW            SA4    A2+B2                                                   COMCRDW COMCRDW      141     A     
 COMCRDW            SA6    A6+B2                                                   COMCRDW COMCRDW      142     A     
 COMCRDW            SA7    A7+B2                                                   COMCRDW COMCRDW      143     A     
 COMCRDW            NZ     B4,RDW7     LOOP                                        COMCRDW COMCRDW      144     A     
 COMCRDW                                                                           COMCRDW COMCRDW      145     A     
 COMCRDW  *         READ EXIT.                                                     COMCRDW COMCRDW      146     A     
 COMCRDW                                                                           COMCRDW COMCRDW      147     A     
 COMCRDW            SX2    B5          RESET FET ADDRESS                           COMCRDW COMCRDW      148     A     
 COMCRDW            SA3    B5+3        OUT                                         COMCRDW COMCRDW      149     A     
 COMCRDW            SA1    A3+B1       (B5) = LIMIT                                COMCRDW COMCRDW      150     A     
 COMCRDW            SB5    X1                                                      COMCRDW COMCRDW      151     A     
 COMCRDW   RDW8     SA4    X2          CHECK BUFFER STATUS                         COMCRDW COMCRDW      152     A     
 COMCRDW            SB6    B6+B3                                                   COMCRDW COMCRDW      153     A     
 COMCRDW            SB7    B7-B3                                                   COMCRDW COMCRDW      154     A     
 COMCRDW            SB4    X3+B3       ADVANCE OUT                                 COMCRDW COMCRDW      155     A     
 COMCRDW            SX6    X3+B3                                                   COMCRDW COMCRDW      156     A     
 COMCRDW            LX4    59-0                                                    COMCRDW COMCRDW      157     A     
 COMCRDW            SA1    X2+1        READ FIRST                                  COMCRDW COMCRDW      158     A     
 COMCRDW            NE     B4,B5,RDW9  IF OUT .NE. LIMIT                           COMCRDW COMCRDW      159     A     
 COMCRDW            SX6    X1+         OUT = FIRST                                 COMCRDW COMCRDW      160     A     
 COMCRDW   RDX$     IF     DEF,RDX$                                                        CPSA242       27     A     
 COMCRDW   RDW9     EQ     RDW20       CLEAN UP AND RETURN                                 CPSA242       28     A     
 COMCRDW   RDX$     ELSE                                                                   CPSA242       29     A     
 COMCRDW                                                                           COMCRDW COMCRDW      161     A     
 COMCRDW  *         TRY TO BUFFER AHEAD.                                           COMCRDW COMCRDW      162     A     
 COMCRDW                                                                           COMCRDW COMCRDW      163     A     
 COMCRDW   RDW9     PL     X4,RDW20    IF BUFFER BUSY                              COMCRDW COMCRDW      164     A     
 COMCRDW            LX4    59-4-59-0                                               COMCRDW COMCRDW      165     A     
 COMCRDW            NG     X4,RDW20    IF EOR/EOF SET                              COMCRDW COMCRDW      166     A     
 COMCRDW            SA4    X2+2        READ IN                                     COMCRDW COMCRDW      167     A     
 COMCRDW            SB2    X1          (LIMIT - FIRST)                             COMCRDW COMCRDW      168     A     
 COMCRDW            SX1    B5-B2                                                   COMCRDW COMCRDW      169     A     
 COMCRDW            IX7    X4-X6       (IN-OUT)                                    COMCRDW COMCRDW      170     A     
 COMCRDW            LX3    X7,B1       2*(IN-OUT)                                  COMCRDW COMCRDW      171     A     
 COMCRDW            AX7    60          SIGN OF (IN-OUT)                            COMCRDW COMCRDW      172     A     
 COMCRDW            BX4    X7-X1       INVERT BUFFER IF OUT .GE. IN                COMCRDW COMCRDW      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/28. 19.11.32.      PAGE  94    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            IX7    X4-X3       BUFFER SIZE - 2*(IN-OUT)                    COMCRDW COMCRDW      174     A     
 COMCRDW            AX1    9                                                       COMCRDW COMCRDW      175     A     
 COMCRDW            NG     X7,RDW20    IF BUFFER THRESHOLD NOT REACHED             COMCRDW COMCRDW      176     A     
 COMCRDW            ZR     X1,RDW20    IF BUFFER NOT BIG ENOUGH TO READ AHEAD      COMCRDW COMCRDW      177     A     
 COMCRDW            SA6    A3+         UPDATE OUT                                  COMCRDW COMCRDW      178     A     
 COMCRDW   RDX$     ENDIF                                                                  CPSA242       30     A     
 COMCRDW   RDW10    SA1    A1          REREAD FIRST                                COMCRDW COMCRDW      179     A     
 COMCRDW            AX1    54                                                      COMCRDW COMCRDW      180     A     
 COMCRDW            SX7    740770B/2                                               COMCRDW COMCRDW      181     A     
 COMCRDW            SB2    X1+77B-61B  CHECK FOR NOS/BE TERMINAL                   COMCRDW COMCRDW      182     A     
 COMCRDW            SA1    X2                                                      COMCRDW COMCRDW      183     A     
 COMCRDW            LX4    X7,B1                                                   COMCRDW COMCRDW      184     A     
 COMCRDW            ZR     B2,RDW20    IF A TERMINAL SUPPRESS READ AHEAD           COMCRDW COMCRDW      185     A     
 COMCRDW            LX4    X7,B1                                                   COMCRDW COMCRDW      186     A     
 COMCRDW            BX7    X4*X1                                                   COMCRDW COMCRDW      187     A     
 COMCRDW            RJ     =XCIO=                                                  COMCRDW COMCRDW      188     A     
 COMCRDW            MX1    -2          RESPONSE = -3                               COMCRDW COMCRDW      189     A     
 COMCRDW            NZ     X7,RDWX     IF ERROR ON LAST *CIO* REQUEST, RETURN      COMCRDW COMCRDW      190          I
          -CPSA104
 COMCRDW            NZ     X7,RDW=     IF ERROR ON LAST *CIO* REQUEST, RETURN      CPSA104 CPSA104       33     A     
 COMCRDW            BX1    X1-X1       RESPONSE = 0                                COMCRDW COMCRDW      191     A     
 COMCRDW            NZ     B7,RDW1     IF NOT DONE                                 COMCRDW COMCRDW      192     A     
 COMCRDW            EQ     RDWX        RETURN                                      COMCRDW COMCRDW      193          I
          -CPSA104
 COMCRDW            EQ     RDW=        RETURN                                      CPSA104 CPSA104       34     A     
 COMCRDW                                                                           COMCRDW COMCRDW      194     A     
 COMCRDW  *         LOAD CIRCULAR BUFFER.                                          COMCRDW COMCRDW      195     A     
 COMCRDW                                                                           COMCRDW COMCRDW      196     A     
 COMCRDW   RDW11    SA1    X2          CHECK BUFFER STATUS                         COMCRDW COMCRDW      197     A     
 COMCRDW            SA3    X2+2        READ IN                                     COMCRDW COMCRDW      198     A     
 COMCRDW            LX1    59-0                                                    COMCRDW COMCRDW      199     A     
 COMCRDW            PL     X1,RDW13    IF BUFFER BUSY                              COMCRDW COMCRDW      200     A     
 COMCRDW            SB3    X3                                                      COMCRDW COMCRDW      201     A     
 COMCRDW            LX1    59-4-59+0                                               COMCRDW COMCRDW      202     A     
 COMCRDW            NE     B3,B4,RDW1  IF BUFFER NOT EMPTY                         COMCRDW COMCRDW      203     A     
 COMCRDW            PL     X1,RDW10    IF NOT EOR SET                              COMCRDW COMCRDW      204     A     
 COMCRDW            SA3    X2+B1       SET IN = OUT = FIRST                        COMCRDW COMCRDW      205     A     
 COMCRDW            MX7    -4                                                      COMCRDW COMCRDW      206     A     
 COMCRDW            LX6    X1,B1                                                   COMCRDW COMCRDW      207     A     
 COMCRDW            LX1    60+0-14-59+4                                            COMCRDW COMCRDW      208     A     
 COMCRDW            BX7    -X7*X1      (X7) = LEVEL NUMBER                         COMCRDW COMCRDW      209     A     
 COMCRDW            SX1    B6                                                      COMCRDW COMCRDW      210     A     
 COMCRDW            PL     X6,RDW12    IF NOT EOF                                  COMCRDW COMCRDW      211     A     
 COMCRDW            LX6    59-9-59+3                                               COMCRDW COMCRDW      212     A     
 COMCRDW            MX1    -1                                                      COMCRDW COMCRDW      213     A     
 COMCRDW            PL     X6,RDW12    IF NOT EOI                                  COMCRDW COMCRDW      214     A     
 COMCRDW            SX1    -2                                                      COMCRDW COMCRDW      215     A     
 COMCRDW   RDW12    SX6    X3+                                                     COMCRDW COMCRDW      216     A     
 COMCRDW            SA6    A3+B1       STORE IN                                    COMCRDW COMCRDW      217     A     
 COMCRDW            SA6    A6+B1       STORE OUT                                   COMCRDW COMCRDW      218     A     
 COMCRDW            EQ     RDWX        RETURN                                      COMCRDW COMCRDW      219          I
          -CPSA104
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE  95    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            EQ     RDW=        RETURN                                      CPSA104 CPSA104       35     A     
 COMCRDW                                                                           COMCRDW COMCRDW      220     A     
 COMCRDW  *         RECALL WAITING FOR I/O.                                        COMCRDW COMCRDW      221     A     
 COMCRDW                                                                           COMCRDW COMCRDW      222     A     
 COMCRDW   RDW13    RECALL                                                         COMCRDW COMCRDW      223     A     
 COMCRDW            EQ     RDW1                                                    COMCRDW COMCRDW      224     A     
 COMCRDW                                                                           COMCRDW COMCRDW      225     A     
 COMCRDW  *         MOVE DATA WITH CMU.                                            COMCRDW COMCRDW      226     A     
 COMCRDW                                                                           COMCRDW COMCRDW      227     A     
 COMCRDW   RDW14    SX4    B3-819                                                  COMCRDW COMCRDW      228     A     
 COMCRDW            PL     X4,RDW15    IF MOVE TOO BIG FOR CMU                     COMCRDW COMCRDW      229     A     
 COMCRDW            SX4    B3          10 * WORDS = CHARACTERS                     COMCRDW COMCRDW      230     A     
 COMCRDW            LX6    X4,B1                                                   COMCRDW COMCRDW      231     A     
 COMCRDW            BX1    X0          SAVE X0                                     COMCRDW COMCRDW      232     A     
 COMCRDW            LX4    3                                                       COMCRDW COMCRDW      233     A     
 COMCRDW            IX6    X4+X6                                                   COMCRDW COMCRDW      234     A     
 COMCRDW            SX7    B6          SET DESTINATION ADDRESS                     COMCRDW COMCRDW      235     A     
 COMCRDW            LX3    30                                                      COMCRDW COMCRDW      236     A     
 COMCRDW            MX4    -4                                                      COMCRDW COMCRDW      237     A     
 COMCRDW            BX7    X7+X3                                                   COMCRDW COMCRDW      238     A     
 COMCRDW            BX3    X4*X6       EXTRACT UPPER PORTION OF CHARACTER COUNT    COMCRDW COMCRDW      239     A     
 COMCRDW            LX3    48-4                                                    COMCRDW COMCRDW      240     A     
 COMCRDW            BX4    -X4*X6                                                  COMCRDW COMCRDW      241     A     
 COMCRDW            BX7    X3+X7                                                   COMCRDW COMCRDW      242     A     
 COMCRDW            LX4    26                                                      COMCRDW COMCRDW      243     A     
 COMCRDW            BX7    X4+X7                                                   COMCRDW COMCRDW      244     A     
 COMCRDW            AX3    51                                                      COMCRDW COMCRDW      245     A     
 COMCRDW            SA7    RDWB        STORE DESCRIPTOR WORD                       COMCRDW COMCRDW      246     A     
 COMCRDW            IM     RDWB        MOVE DATA                                   COMCRDW COMCRDW      247     A     
 COMCRDW            BX0    X1          RESTORE X0                                  COMCRDW COMCRDW      248     A     
 COMCRDW            ZR     X3,RDW19    IF NO READ EXIT CHECK                       COMCRDW COMCRDW      249     A     
 COMCRDW            SX3    B4          SET OUT                                     COMCRDW COMCRDW      250     A     
 COMCRDW            EQ     RDW8                                                    COMCRDW COMCRDW      251     A     
 COMCRDW                                                                           COMCRDW COMCRDW      252     A     
 COMCRDW   RDW15    BX7    X1                                                      COMCRDW COMCRDW      253     A     
 COMCRDW            SA1    A1+B1                                                   COMCRDW COMCRDW      254     A     
 COMCRDW            EQ     RDW4                                                    COMCRDW COMCRDW      255     A     
 COMCRDW                                                                           COMCRDW COMCRDW      256     A     
 COMCRDW  *         PRESET FOR CMU.                                                COMCRDW COMCRDW      257     A     
 COMCRDW  *         RDWB IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID     COMCRDW COMCRDW      258     A     
 COMCRDW  *         THE INSTRUCTION STACK.                                         COMCRDW COMCRDW      259     A     
 COMCRDW                                                                           COMCRDW COMCRDW      260     A     
 COMCRDW   RDWB     LE     B3,B1,RDW18  IF 1 WORD OR LESS (CMU)                    COMCRDW COMCRDW      261     A     
 COMCRDW            EQ     RDW14                                                   COMCRDW COMCRDW      262     A     
 COMCRDW                                                                           COMCRDW COMCRDW      263     A     
 COMCRDW   RDW16    EQU    RDWB        USED TO VOID STACK AT PRESET                COMCRDW COMCRDW      264     A     
 COMCRDW                                                                           COMCRDW COMCRDW      265     A     
 COMCRDW  *         PRESET FOR CMU.                                                COMCRDW COMCRDW      266     A     
 COMCRDW                                                                           COMCRDW COMCRDW      267     A     
 COMCRDW            SA4    RA.CMU      CHECK IF CMU AVAILABLE                      COMCRDW COMCRDW      268     A     
 COMCRDW            SB3    RDWA                                                    COMCRDW COMCRDW      269     A     
 COMCRDW            NG     X4,RDW17    IF CMU                                      COMCRDW COMCRDW      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/28. 19.11.32.      PAGE  96    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            SA3    RDWC                                                    COMCRDW COMCRDW      271     A     
 COMCRDW   RDW17    BX6    X3                                                      COMCRDW COMCRDW      272     A     
 COMCRDW            SA6    B3                                                      COMCRDW COMCRDW      273     A     
 COMCRDW            RJ     *           VOID INSTRUCTION STACK.                             CPSA163        7     A     
 COMCRDW            EQ     RDW1                                                    COMCRDW COMCRDW      274     A     
 COMCRDW                                                                           COMCRDW COMCRDW      275     A     
 COMCRDW   RDWC     LE     B3,B1,RDW18  IF 1 WORD OR LESS (NO CMU)                 COMCRDW COMCRDW      276     A     
 COMCRDW            BX7    X1                                                      COMCRDW COMCRDW      277     A     
 COMCRDW            SA1    A1+B1                                                   COMCRDW COMCRDW      278     A     
 COMCRDW   RDX      SPACE  4,10                                                    COMCRDW COMCRDW      279     A     
 COMCRDW  **        RDX - READ EXIT.                                               COMCRDW COMCRDW      280     A     
 COMCRDW  *         EXIT FROM READ SUBROUTINE TO CALLER.                           COMCRDW COMCRDW      281     A     
 COMCRDW  *         IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO ACTION    COMCRDW COMCRDW      282     A     
 COMCRDW  *         IS TAKEN.                                                      COMCRDW COMCRDW      283     A     
 COMCRDW  *         OTHERWISE, THE WORD COUNT REMAINING IN THE BUFFER IS CHECKED   COMCRDW COMCRDW      284     A     
 COMCRDW  *         AND PREVIOUS READ FUNCTION ISSUED IF NECESSARY.                COMCRDW COMCRDW      285     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      286     A     
 COMCRDW  *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW COMCRDW      287     A     
 COMCRDW  *                (A3) = ADDRESS OF FIRST.                                COMCRDW COMCRDW      288     A     
 COMCRDW  *                (A4) = RETURN ADDRESS.                                  COMCRDW COMCRDW      289     A     
 COMCRDW  *                (X3) = FIRST.                                           COMCRDW COMCRDW      290     A     
 COMCRDW  *                (B3) = IN.                                              COMCRDW COMCRDW      291     A     
 COMCRDW  *                (B4) = OUT.                                             COMCRDW COMCRDW      292     A     
 COMCRDW  *                (B5) = LIMIT.                                           COMCRDW COMCRDW      293     A     
 COMCRDW  *                (B1) = 1.                                               COMCRDW COMCRDW      294     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      295     A     
 COMCRDW  *         EXIT   TO RETURN ADDRESS.                                      COMCRDW COMCRDW      296     A     
 COMCRDW  *                (X2) = FET ADDRESS.                                     COMCRDW COMCRDW      297     A     
 COMCRDW  *                (X1) = 0.                                               COMCRDW COMCRDW      298     A     
 COMCRDW  *                (B1) = 1.                                               COMCRDW COMCRDW      299     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      300     A     
 COMCRDW  *         USES   A - 1, 6.                                               COMCRDW COMCRDW      301     A     
 COMCRDW  *                B - 2.                                                  COMCRDW COMCRDW      302     A     
 COMCRDW  *                X - 1, 2, 3, 6, 7.                                      COMCRDW COMCRDW      303     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      304     A     
 COMCRDW  *         CALLS  CIO=.                                                   COMCRDW COMCRDW      305     A     
 COMCRDW                                                                           COMCRDW COMCRDW      306     A     
 COMCRDW                                                                           COMCRDW COMCRDW      307     A     
 COMCRDW   RDX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW COMCRDW      308     A     
 COMCRDW            SX6    B4          STORE OUT                                   COMCRDW COMCRDW      309     A     
 COMCRDW            LX1    59-0                                                    COMCRDW COMCRDW      310     A     
 COMCRDW            SA6    A2                                                      COMCRDW COMCRDW      311     A     
 COMCRDW            SX2    A3-B1       RESET (X2)                                  COMCRDW COMCRDW      312     A     
 COMCRDW   RDX$     IF     -DEF,RDX$                                                       CPSA242       31     A     
 COMCRDW            PL     X1,RDX1     IF BUFFER BUSY                              COMCRDW COMCRDW      313     A     
 COMCRDW            LX1    59-4-59+0                                               COMCRDW COMCRDW      314     A     
 COMCRDW            NG     X1,RDX1     IF EOR/EOF SET                              COMCRDW COMCRDW      315     A     
 COMCRDW                                                                           COMCRDW COMCRDW      316     A     
 COMCRDW  *         IF BUFFER IS NOT BUSY, CHECK BUFFER SIZE.                      COMCRDW COMCRDW      317     A     
 COMCRDW  *         ISSUE READ IF BUFFER THRESHOLD IS REACHED.                     COMCRDW COMCRDW      318     A     
 COMCRDW                                                                           COMCRDW COMCRDW      319     A     
 COMCRDW            SA1    A2-B1       REREAD IN                                           CPSA242       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/28. 19.11.32.      PAGE  97    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            SB3    X1                                                              CPSA242       33     A     
 COMCRDW            SX6    B3-B4       (IN-OUT)                                    COMCRDW COMCRDW      320     A     
 COMCRDW            SB2    X3          (LIMIT-FIRST)                               COMCRDW COMCRDW      321     A     
 COMCRDW            AX3    54                                                      COMCRDW COMCRDW      322     A     
 COMCRDW            SX7    X3+77B-61B  CHECK IF NOS/BE TERMINAL                    COMCRDW COMCRDW      323     A     
 COMCRDW            LX3    X6,B1       2*(IN-OUT)                                  COMCRDW COMCRDW      324     A     
 COMCRDW            ZR     X7,RDX1     IF TERMINAL SUPPRESS READ AHEAD             COMCRDW COMCRDW      325     A     
 COMCRDW            SX7    B5-B2                                                   COMCRDW COMCRDW      326     A     
 COMCRDW            AX6    60          SIGN OF (IN-OUT)                            COMCRDW COMCRDW      327     A     
 COMCRDW            BX6    X6-X7       INVERT BUFFER IF OUT .GE. IN                COMCRDW COMCRDW      328     A     
 COMCRDW            IX6    X6-X3       BUFFER SIZE - 2 * ( IN - OUT )              COMCRDW COMCRDW      329     A     
 COMCRDW            AX7    9                                                               CPSA242       34     A     
 COMCRDW            NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED             COMCRDW COMCRDW      330     A     
 COMCRDW            AX7    9                                                       COMCRDW COMCRDW      331          I
          -CPSA242
 COMCRDW            ZR     X7,RDX1     IF BUFFER NOT BIG ENOUGH TO READ AHEAD      COMCRDW COMCRDW      332     A     
 COMCRDW            LX1    4           ISSUE PREVIOUS READ FUNCTION                COMCRDW COMCRDW      333          I
          -CPSA242
 COMCRDW            SA1    X2          ISSUE PREVIOUS READ FUNCTION                        CPSA242       35     A     
 COMCRDW            SX6    740770B/2                                               COMCRDW COMCRDW      334     A     
 COMCRDW            LX6    1                                                               CPSA242       36     A     
 COMCRDW            BX7    X6*X1                                                   COMCRDW COMCRDW      335     A     
 COMCRDW            LX7    1                                                       COMCRDW COMCRDW      336          I
          -CPSA242
 COMCRDW            RJ     =XCIO=                                                  COMCRDW COMCRDW      337     A     
 COMCRDW   RDX1     SX1    B0          RESPONSE = 0                                COMCRDW COMCRDW      338     A     
 COMCRDW   RDX$     ELSE                                                                   CPSA242       37     A     
 COMCRDW            SX1    B0+         RESPONSE = 0                                        CPSA242       38     A     
 COMCRDW   RDX$     ENDIF                                                                  CPSA242       39     A     
 COMCRDW            SB2    A4          SET RETURN ADDRESS                          COMCRDW COMCRDW      339     A     
 COMCRDW            JP     B2          RETURN                                      COMCRDW COMCRDW      340     A     
 COMCRDW   LCB      SPACE  4                                                       COMCRDW COMCRDW      341     A     
 COMCRDW  **        LCB - LOAD CIRCULAR BUFFER.                                    COMCRDW COMCRDW      342     A     
 COMCRDW  *         REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOT EOR/EOF.     COMCRDW COMCRDW      343     A     
 COMCRDW  *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCRDW COMCRDW      344     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      345     A     
 COMCRDW  *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW COMCRDW      346     A     
 COMCRDW  *                (A3) = ADDRESS OF FIRST.                                COMCRDW COMCRDW      347     A     
 COMCRDW  *                (A4) = RETURN ADDRESS.                                  COMCRDW COMCRDW      348     A     
 COMCRDW  *                (B4) = OUT.                                             COMCRDW COMCRDW      349     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      350     A     
 COMCRDW  *         EXIT   TO RETURN ADDRESS - 1 IF CONTINUATION READ.             COMCRDW COMCRDW      351     A     
 COMCRDW  *                TO RETURN ADDRESS IF EOR/EOF.                           COMCRDW COMCRDW      352     A     
 COMCRDW  *                (X1) = LAST WORD ADDRESS OF WORKING BUFFER.             COMCRDW COMCRDW      353     A     
 COMCRDW  *                (X1) = -1 IF EOF.                                       COMCRDW COMCRDW      354     A     
 COMCRDW  *                (X1) = -2 IF EOI.                                       COMCRDW COMCRDW      355     A     
 COMCRDW  *                (X2) = FET ADDRESS.                                     COMCRDW COMCRDW      356     A     
 COMCRDW  *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDW COMCRDW      357     A     
 COMCRDW  *                (B1) = 1.                                               COMCRDW COMCRDW      358     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      359     A     
 COMCRDW  *         USES   A - 1, 6, 7.                                            COMCRDW COMCRDW      360     A     
 COMCRDW  *                B - 3.                                                  COMCRDW COMCRDW      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/28. 19.11.32.      PAGE  98    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW  *                X - 1, 2, 6, 7.                                         COMCRDW COMCRDW      362     A     
 COMCRDW  *                                                                        COMCRDW COMCRDW      363     A     
 COMCRDW  *         CALLS  CIO=.                                                   COMCRDW COMCRDW      364     A     
 COMCRDW  *                                                                                CPS0303        7     A     
 COMCRDW  *         MACROS READ, RECALL.                                                   CPS0303        8     A     
 COMCRDW                                                                           COMCRDW COMCRDW      365     A     
 COMCRDW                                                                           COMCRDW COMCRDW      366     A     
 COMCRDW   LCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW COMCRDW      367     A     
 COMCRDW            SX6    B4          STORE OUT                                   COMCRDW COMCRDW      368     A     
 COMCRDW            LX1    59-0                                                    COMCRDW COMCRDW      369     A     
 COMCRDW            SA6    A2                                                      COMCRDW COMCRDW      370     A     
 COMCRDW            NG     X1,LCB2     IF BUFFER NOT BUSY                          COMCRDW COMCRDW      371     A     
 COMCRDW            RECALL                                                         COMCRDW COMCRDW      372     A     
 COMCRDW   LCB1     SB3    A4-B1       CONTINUE READ                               COMCRDW COMCRDW      373     A     
 COMCRDW            SX2    A3-B1       RESET (X2)                                  COMCRDW COMCRDW      374     A     
 COMCRDW            JP     B3                                                      COMCRDW COMCRDW      375     A     
 COMCRDW                                                                           COMCRDW COMCRDW      376     A     
 COMCRDW   LCB2     SA1    A2-B1       RE-READ IN                                  COMCRDW COMCRDW      377     A     
 COMCRDW            SB3    X1                                                      COMCRDW COMCRDW      378     A     
 COMCRDW            NE     B3,B4,LCB1  IF BUFFER NOT EMPTY                         COMCRDW COMCRDW      379     A     
 COMCRDW            SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW COMCRDW      380     A     
 COMCRDW            LX1    59-4                                                    COMCRDW COMCRDW      381     A     
 COMCRDW            NG     X1,LCB3     IF EOR SET                                  COMCRDW COMCRDW      382     A     
 COMCRDW            SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW COMCRDW      383     A     
 COMCRDW            LX1    4                                                       COMCRDW COMCRDW      384     A     
 COMCRDW            SX2    A3-B1                                                   COMCRDW COMCRDW      385     A     
 COMCRDW            BX7    X6*X1                                                   COMCRDW COMCRDW      386     A     
 COMCRDW            LX7    1                                                       COMCRDW COMCRDW      387     A     
 COMCRDW            RJ     =XCIO=                                                  COMCRDW COMCRDW      388     A     
 COMCRDW            SB3    A4-B1       CONTINUE READ                               COMCRDW COMCRDW      389     A     
 COMCRDW            JP     B3                                                      COMCRDW COMCRDW      390     A     
 COMCRDW                                                                           COMCRDW COMCRDW      391     A     
 COMCRDW   LCB3     LX2    B1,X1                                                   COMCRDW COMCRDW      392     A     
 COMCRDW            SA1    A3          SET IN = OUT = FIRST                        COMCRDW COMCRDW      393     A     
 COMCRDW            SX6    X1                                                      COMCRDW COMCRDW      394     A     
 COMCRDW            AX1    48                                                      COMCRDW COMCRDW      395     A     
 COMCRDW            SB3    X1-2RTT     CHECK FOR NOS TERMINAL                      COMCRDW COMCRDW      396     A     
 COMCRDW            SA6    A1+B1                                                   COMCRDW COMCRDW      397     A     
 COMCRDW            SX1    -B1         RESPONSE = -1                               COMCRDW COMCRDW      398     A     
 COMCRDW            NG     X2,LCB4     IF EOF                                      COMCRDW COMCRDW      399     A     
 COMCRDW            MX7    -4                                                      COMCRDW COMCRDW      400     A     
 COMCRDW            SX1    B6          RESPONSE = LAST WORD ADDRESS                COMCRDW COMCRDW      401     A     
 COMCRDW            LX2    60+0-14-59+3                                            COMCRDW COMCRDW      402     A     
 COMCRDW            BX7    -X7*X2      (X7) = LEVEL NUMBER                         COMCRDW COMCRDW      403     A     
 COMCRDW            NZ     B3,LCB4     IF NOT A NOS TERMINAL                       COMCRDW COMCRDW      404     A     
 COMCRDW            SB3    X7                                                      COMCRDW COMCRDW      405     A     
 COMCRDW            EQ     B3,B1,LCB6  IF LEVEL 1                                  COMCRDW COMCRDW      406     A     
 COMCRDW   LCB4     SX2    A3-B1       RESET (X2)                                  COMCRDW COMCRDW      407          I
          -CPSA107
 COMCRDW            SA6    A6+B1       STORE OUT                                   COMCRDW COMCRDW      408          I
          -CPSA107
 COMCRDW   LCB4     SA6    A6+B1       STORE OUT                                   CPSA107 CPSA107        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/28. 19.11.32.      PAGE  99    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRDW 
  
 COMCRDW            NG     X1,LCB7     IF EOF/EOI                                  COMCRDW COMCRDW      409     A     
 COMCRDW   LCB5     SB3    A4          SET RETURN ADDRESS                          COMCRDW COMCRDW      410     A     
 COMCRDW            SX2    A3-B1       RESET (X2)                                  CPSA107 CPSA107        5     A     
 COMCRDW            JP     B3          RETURN                                      COMCRDW COMCRDW      411     A     
 COMCRDW                                                                           COMCRDW COMCRDW      412     A     
 COMCRDW   LCB6     SA6    A6+B1       STORE OUT                                   COMCRDW COMCRDW      413     A     
 COMCRDW            READ   A3-B1       RESTART READ                                COMCRDW COMCRDW      414     A     
 COMCRDW            SB3    A4-B1       CONTINUE READ                               COMCRDW COMCRDW      415     A     
 COMCRDW            JP     B3                                                      COMCRDW COMCRDW      416     A     
 COMCRDW                                                                           COMCRDW COMCRDW      417     A     
 COMCRDW   LCB7     LX6    59-9-59+3                                               COMCRDW COMCRDW      418          I
          -CPSA107
 COMCRDW            PL     X6,LCB5     IF NOT EOI                                  COMCRDW COMCRDW      419          I
          -CPSA107
 COMCRDW   LCB7     LX2    59-9-59+3                                               CPSA107 CPSA107        6     A     
 COMCRDW            PL     X2,LCB5     IF NOT EOI                                  CPSA107 CPSA107        7     A     
 COMCRDW            LX1    1           RESPONSE= -2                                COMCRDW COMCRDW      420     A     
 COMCRDW            SB3    A4          SET RETURN ADDRESS                          COMCRDW COMCRDW      421     A     
 COMCRDW            SX2    A3-B1       RESET (X2)                                  CPSA107 CPSA107        8     A     
 COMCRDW            JP     B3          RETURN                                      COMCRDW COMCRDW      422     A     
 COMCRDW   RDW      SPACE  4,10                                                    COMCRDW COMCRDW      423     A     
 COMCRDW            BASE   *                                                       COMCRDW COMCRDW      424     A     
 COMCRDW   QUAL$    IF     -DEF,QUAL$                                              COMCRDW COMCRDW      425     A     
 COMCRDW            QUAL   *                                                       COMCRDW COMCRDW      426     A     
 COMCRDW   RDW=     EQU    /COMCRDW/RDW=                                           COMCRDW COMCRDW      427     A     
 COMCRDW   RDX=     EQU    /COMCRDW/RDX=                                           COMCRDW COMCRDW      428     A     
 COMCRDW   LCB=     EQU    /COMCRDW/LCB=                                           COMCRDW COMCRDW      429     A     
 COMCRDW   QUAL$    ENDIF                                                          COMCRDW COMCRDW      430     A     
 COMCRDW   RDW      ENDX                                                           COMCRDW COMCRDW      431     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRDW 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRDW                    431       421
          CPSA104                      3         3
          CPSA107                      5         5
          CPSA163                      1         1
          CPSA187                      2         2
          CPS0303                      2         2
          CPSA242                     30        30
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRSR 
  
 COMCRSR  *COMDECK  COMCRSR            RESTORE REGISTERS.                          COMCRSR COMCRSR        1     A     
 COMCRSR   RSR      CTEXT  COMCRSR - RESTORE REGISTERS.                            COMCRSR COMCRSR        2     A     
 COMCRSR   RSR      SPACE  4,10                                                    COMCRSR COMCRSR        3     A     
 COMCRSR            IF     -DEF,QUAL$,1                                            COMCRSR COMCRSR        4     A     
 COMCRSR            QUAL   COMCRSR                                                 COMCRSR COMCRSR        5     A     
 COMCRSR            BASE   D                                                       COMCRSR COMCRSR        6     A     
 COMCRSR  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCRSR COMCRSR        7     A     
 COMCRSR   RSR      SPACE  4,10                                                    COMCRSR COMCRSR        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/28. 19.11.32.      PAGE 100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRSR 
  
 COMCRSR  ***       RSR - RESTORE ALL REGISTERS.                                   COMCRSR COMCRSR        9     A     
 COMCRSR  *                                                                        COMCRSR COMCRSR       10     A     
 COMCRSR  *         AUTHOR UNKNOWN.    CIRCA 1971.                                 CPSA104 CPSA104       36     A     
 COMCRSR  *         P. C. TAM          77/07/05.                                   COMCRSR COMCRSR       11     A     
 COMCRSR  *                                                                                CPSA245      140     A     
 COMCRSR  *         *******************************************************                CPSA245      141     A     
 COMCRSR  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      142     A     
 COMCRSR  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      143     A     
 COMCRSR  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      144     A     
 COMCRSR  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      145     A     
 COMCRSR  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      146     A     
 COMCRSR  *         *******************************************************                CPSA245      147     A     
 COMCRSR  *                                                                                CPSA245      148     A     
 COMCRSR  *                                                                        COMCRSR COMCRSR       12     A     
 COMCRSR  *         RSR RESTORES B, A, AND X REGISTERS FROM A SAVE AREA.           COMCRSR COMCRSR       13     A     
 COMCRSR   RSR      SPACE  4,10                                                    COMCRSR COMCRSR       14     A     
 COMCRSR  ***       RSR RESTORES B, A, AND X REGISTERS FROM A SPECIFIED REGISTER   COMCRSR COMCRSR       15     A     
 COMCRSR  *         SAVE AREA. THE FORMAT OF THE REGISTERS IN THE SAVE AREA IS -   COMCRSR COMCRSR       16     A     
 COMCRSR  *         B0, B1, ..., B7, A0, A1, ..., A7, X0, X1, ..., X7.             COMCRSR COMCRSR       17     A     
 COMCRSR  *         EACH REGISTER OCCUPIES A FULL WORD WITH B AND A REGISTER       COMCRSR COMCRSR       18     A     
 COMCRSR  *         VALUES IN BITS 17-0.                                           COMCRSR COMCRSR       19     A     
 COMCRSR  *                                                                        COMCRSR COMCRSR       20     A     
 COMCRSR  *         ENTRY  (X1) = ADDRESS OF REGISTER SAVE AREA.                   COMCRSR COMCRSR       21     A     
 COMCRSR  *                                                                        COMCRSR COMCRSR       22     A     
 COMCRSR  *         EXIT   ALL REGISTERS SET TO THE CONTENT OF THE REGISTER        COMCRSR COMCRSR       23     A     
 COMCRSR  *                SAVE AREA.                                              COMCRSR COMCRSR       24     A     
 COMCRSR  *                                                                        COMCRSR COMCRSR       25     A     
 COMCRSR  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCRSR COMCRSR       26     A     
 COMCRSR  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRSR COMCRSR       27     A     
 COMCRSR  *                A - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCRSR COMCRSR       28     A     
 COMCRSR  *                                                                        COMCRSR COMCRSR       29     A     
 COMCRSR  *         CALLS  NONE.                                                   COMCRSR COMCRSR       30     A     
 COMCRSR                                                                           COMCRSR COMCRSR       31     A     
 COMCRSR                                                                           COMCRSR COMCRSR       32     A     
 COMCRSR   SAVEB    EQU    0                                                       COMCRSR COMCRSR       33     A     
 COMCRSR   SAVEA    EQU    8                                                       COMCRSR COMCRSR       34     A     
 COMCRSR   SAVEX    EQU    16                                                      COMCRSR COMCRSR       35     A     
 COMCRSR   RSR      SPACE  4,10                                                    COMCRSR COMCRSR       36     A     
 COMCRSR   RSR      SUBR               ENTRY/EXIT                                  COMCRSR COMCRSR       37     A     
 COMCRSR            IF     -DEF,B1=1,1                                             COMCRSR COMCRSR       38     A     
 COMCRSR            SB1    1                                                       COMCRSR COMCRSR       39     A     
 COMCRSR                                                                           COMCRSR COMCRSR       40     A     
 COMCRSR  *         SET UP FINAL -B- REGISTERS RESTORE AT (RSR4) ET SEQ.           COMCRSR COMCRSR       41     A     
 COMCRSR                                                                           COMCRSR COMCRSR       42     A     
 COMCRSR            SB7    X1+         (B7) = FWA OF REGISTER SAVE AREA            COMCRSR COMCRSR       43     A     
 COMCRSR            MX4    -18                                                     COMCRSR COMCRSR       44     A     
 COMCRSR            SA1    B7+SAVEB+7  (X1) = SAVED (B7)                           COMCRSR COMCRSR       45     A     
 COMCRSR            BX5    X4                                                      COMCRSR COMCRSR       46     A     
 COMCRSR            LX4    30                                                      COMCRSR COMCRSR       47     A     
 COMCRSR            SB4    4                                                       COMCRSR COMCRSR       48     A     
 COMCRSR            BX0    X4*X5       (X0) = 77770000007777000000B                COMCRSR COMCRSR       49     A     
 COMCRSR                                                                           COMCRSR COMCRSR       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/28. 19.11.32.      PAGE 101    
0*** OUTPUT LINE LIMIT EXCEEDED.  LIST OPTIONS 3 AND 4 CANCELLED. *** 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRSR 
  
 COMCRSR  *         SET UP RESTORE B REGISTER INSTRUCTIONS.                        COMCRSR COMCRSR       51     A     
 COMCRSR                                                                           COMCRSR COMCRSR       52     A     
 COMCRSR   RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                        COMCRSR COMCRSR       53     A     
 COMCRSR            SA3    RSR4+B4-1                                               COMCRSR COMCRSR       54     A     
 COMCRSR            BX1    -X5*X1                                                  COMCRSR COMCRSR       55     A     
 COMCRSR            SB4    B4-B1                                                   COMCRSR COMCRSR       56     A     
 COMCRSR            BX2    -X5*X2                                                  COMCRSR COMCRSR       57     A     
 COMCRSR            LX1    30                                                      COMCRSR COMCRSR       58     A     
 COMCRSR            BX3    X0*X3                                                   COMCRSR COMCRSR       59     A     
 COMCRSR            IX6    X1+X2                                                   COMCRSR COMCRSR       60     A     
 COMCRSR            BX7    X6+X3       (X7) = 30/SB.N B6+K, 30/SB.N-1 B6+K         COMCRSR COMCRSR       61     A     
 COMCRSR            SA7    A3                                                      COMCRSR COMCRSR       62     A     
 COMCRSR            SA1    A2-B1       (X1) = SAVED (B.N)                          COMCRSR COMCRSR       63     A     
 COMCRSR            NZ     B4,RSR2     IF STILL MORE B REGISTERS TO GO             COMCRSR COMCRSR       64     A     
 COMCRSR                                                                           COMCRSR COMCRSR       65     A     
 COMCRSR  *         THE MOST LIKELY CANDIDATE FOR THE DANGER DISCUSSED IN THE      COMCRSR COMCRSR       66     A     
 COMCRSR  *         NEXT PARAGRAPH IS THE SYSTEM COMMUNICATION CELL (RA.MTR).      COMCRSR COMCRSR       67     A     
 COMCRSR  *         ACCORDINGLY, WE WAIT FOR IT TO CLEAR BEFORE PROCEEDING.        COMCRSR COMCRSR       68     A     
 COMCRSR                                                                           COMCRSR COMCRSR       69     A     
 COMCRSR            SA2    B7+SAVEA+6  (X2) = SAVED (A6)                           COMCRSR COMCRSR       70     A     
 COMCRSR   RSR3     SA1    RA.MTR                                                  COMCRSR COMCRSR       71     A     
 COMCRSR            NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                       COMCRSR COMCRSR       72     A     
 COMCRSR                                                                           COMCRSR COMCRSR       73     A     
 COMCRSR  *         A BIT OF CARE IS SPENT ON RESTORATION OF (A6) AND (A7).        COMCRSR COMCRSR       74     A     
 COMCRSR  *         WE WISH TO AVOID HAVING THE CONTENTS OF THE WORD THAT THE      COMCRSR COMCRSR       75     A     
 COMCRSR  *         STORE REGISTER IS POINTING TO GET CHANGED (I.E. BY A PP)       COMCRSR COMCRSR       76     A     
 COMCRSR  *         WHILE WE ARE RESTORING (A6) OR (A7). ABOUT THE ONLY THING      COMCRSR COMCRSR       77     A     
 COMCRSR  *         THAT CAN BE DONE TO MINIMIZE THIS POSSIBILITY IS TO GET THE    COMCRSR COMCRSR       78     A     
 COMCRSR  *         LOAD AND THE STORE AS CLOSE TOGETHER AS POSSIBLE. BY KEEPING   COMCRSR COMCRSR       79     A     
 COMCRSR  *         THEM IN THE SAME WORD, WE HAVE AT LEAST ENSURED THAT WE WILL   COMCRSR COMCRSR       80     A     
 COMCRSR  *         NOT BE EXCHANGED AFTER THE LOAD BUT BEFORE THE STORE.          COMCRSR COMCRSR       81     A     
 COMCRSR  *         BARRING DELAYS IN THE HOPPER, THIS SHOULD REDUCE THE DANGER    COMCRSR COMCRSR       82     A     
 COMCRSR  *         PERIOD TO A FEW MINOR CYCLES.                                  COMCRSR COMCRSR       83     A     
 COMCRSR                                                                           COMCRSR COMCRSR       84     A     
 COMCRSR            SA3    A2+B1       (X3) = SAVED (A7)                           COMCRSR COMCRSR       85     A     
 COMCRSR            JP     *+1         VOID INSTRUCTION STACK                              CPSA283        6          I
          -CPSA306
 COMCRSR            RJ     *+1         VOID INSTRUCTION STACK                              CPSA306        7     A     
 COMCRSR            CON    0                                                               CPSA306        8     A     
 COMCRSR   +        SA4    X2-0                                                    COMCRSR COMCRSR       86     A     
 COMCRSR            BX6    X4                                                      COMCRSR COMCRSR       87     A     
 COMCRSR            SA6    A4-B0       RESTORE (A6)                                COMCRSR COMCRSR       88     A     
 COMCRSR   +        SA5    X3-0                                                    COMCRSR COMCRSR       89     A     
 COMCRSR            BX7    X5                                                      COMCRSR COMCRSR       90     A     
 COMCRSR            SA7    A5-B0       RESTORE (A7)                                COMCRSR COMCRSR       91     A     
 COMCRSR                                                                           COMCRSR COMCRSR       92     A     
 COMCRSR  *         RESTORE (X6), (X7).                                            COMCRSR COMCRSR       93     A     
 COMCRSR                                                                           COMCRSR COMCRSR       94     A     
 COMCRSR            SA1    B7+SAVEX+6                                              COMCRSR COMCRSR       95     A     
 COMCRSR            SA4    A1+B1                                                   COMCRSR COMCRSR       96     A     
 COMCRSR            BX6    X1          RESTORE (X6)                                COMCRSR COMCRSR       97     A     
 COMCRSR            LX7    X4          RESTORE (X7)                                COMCRSR COMCRSR       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/28. 19.11.32.      PAGE 102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRSR 
  
 COMCRSR            BX0    -X0-X0                                                  COMCRSR COMCRSR       99     A     
 COMCRSR            SB6    X0-0        (B6) = -0                                   COMCRSR COMCRSR      100     A     
 COMCRSR                                                                           COMCRSR COMCRSR      101     A     
 COMCRSR  *         RESTORE (A0),(X0).                                             COMCRSR COMCRSR      102     A     
 COMCRSR                                                                           COMCRSR COMCRSR      103     A     
 COMCRSR            SA4    B7+SAVEA+0                                              COMCRSR COMCRSR      104     A     
 COMCRSR            SA5    B7+SAVEX+0                                              COMCRSR COMCRSR      105     A     
 COMCRSR            SA0    X4+B6                                                   COMCRSR COMCRSR      106     A     
 COMCRSR            BX0    X5                                                      COMCRSR COMCRSR      107     A     
 COMCRSR                                                                           COMCRSR COMCRSR      108     A     
 COMCRSR  *         RESTORE (A) - 1,2,3,4.                                         COMCRSR COMCRSR      109     A     
 COMCRSR  *                 (X) - 1,2,3,4.                                         COMCRSR COMCRSR      110     A     
 COMCRSR                                                                           COMCRSR COMCRSR      111     A     
 COMCRSR            ECHO   4,N=(1,2,3,4)                                           COMCRSR COMCRSR      112     A     
 COMCRSR            SA4    A4+B1       (X4) = SAVED (A.N)                          COMCRSR COMCRSR      113     A     
 COMCRSR            SA5    A5+B1       (X5) = SAVED (X.N)                          COMCRSR COMCRSR      114     A     
 COMCRSR            SA.N   X4+B6                                                   COMCRSR COMCRSR      115     A     
 COMCRSR            BX.N   X5                                                      COMCRSR COMCRSR      116     A     
 COMCRSR                                                                           COMCRSR COMCRSR      117     A     
 COMCRSR  *         RESTORE (A5),(X5)-- THE ORIGINAL (X5) ARE BROKEN APART INTO    COMCRSR COMCRSR      118     A     
 COMCRSR  *         (B1) THRU (B5) AS DISPLAYED BELOW. THIS ALLOWS US TO RESTORE   COMCRSR COMCRSR      119     A     
 COMCRSR  *         (A5).                                                          COMCRSR COMCRSR      120     A     
 COMCRSR  *         DISASSEMBLY IS FROM LEFT TO RIGHT, TOP TO BOTTOM.              COMCRSR COMCRSR      121     A     
 COMCRSR  *         REASSEMBLY IS FROM RIGHT TO LEFT, BOTTOM TO TOP.               COMCRSR COMCRSR      122     A     
 COMCRSR  *         5          4          3          2          1               55 COMCRSR COMCRSR      123     A     
 COMCRSR  *         9          8          7          6          5              098 COMCRSR COMCRSR      124     A     
 COMCRSR  *         .............................................................. COMCRSR COMCRSR      125     A     
 COMCRSR  *         ++++++++++++                                                   COMCRSR COMCRSR      126     A     
 COMCRSR  *             (B1)   ++++++++++++                                        COMCRSR COMCRSR      127     A     
 COMCRSR  *                        (B2)   ++++++++++++                             COMCRSR COMCRSR      128     A     
 COMCRSR  *                                   (B3)   ++++++++++++                  COMCRSR COMCRSR      129     A     
 COMCRSR  *                                              (B4)   ++++++++++++++++++ COMCRSR COMCRSR      130     A     
 COMCRSR  *         ++                                                 (B5)        COMCRSR COMCRSR      131     A     
 COMCRSR                                                                           COMCRSR COMCRSR      132     A     
 COMCRSR            SA5    A5+B1       (X5) = SAVED (X5)                           COMCRSR COMCRSR      133     A     
 COMCRSR            ECHO   2,N=(1,2,3)                                             COMCRSR COMCRSR      134     A     
 COMCRSR            UX5,B.N X5                                                     COMCRSR COMCRSR      135     A     
 COMCRSR            LX5    11                                                      COMCRSR COMCRSR      136     A     
 COMCRSR            UX5,B4 X5                                                      COMCRSR COMCRSR      137     A     
 COMCRSR            LX5    11+18                                                   COMCRSR COMCRSR      138     A     
 COMCRSR            SB5    X5+B6                                                   COMCRSR COMCRSR      139     A     
 COMCRSR            SA5    B7+SAVEA+5  (X5) = SAVED (A5)                           COMCRSR COMCRSR      140     A     
 COMCRSR            SA5    X5+B6       RESTORE (A5)                                COMCRSR COMCRSR      141     A     
 COMCRSR                                                                           COMCRSR COMCRSR      142     A     
 COMCRSR  *         REASSEMBLE (X5).                                               COMCRSR COMCRSR      143     A     
 COMCRSR                                                                           COMCRSR COMCRSR      144     A     
 COMCRSR            SX5    B5+B6                                                   COMCRSR COMCRSR      145     A     
 COMCRSR            LX5    60-11-18                                                COMCRSR COMCRSR      146     A     
 COMCRSR            PX5    X5,B4                                                   COMCRSR COMCRSR      147     A     
 COMCRSR            ECHO   2,N=(3,2,1)                                             COMCRSR COMCRSR      148     A     
 COMCRSR            LX5    -11                                                     COMCRSR COMCRSR      149     A     
 COMCRSR            PX5    X5,B.N                                                  COMCRSR COMCRSR      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/28. 19.11.32.      PAGE 103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCRSR 
  
 COMCRSR                                                                           COMCRSR COMCRSR      151     A     
 COMCRSR  *         RESTORE (B) - 0,1,2,3,4,5,6,7.                                 COMCRSR COMCRSR      152     A     
 COMCRSR                                                                           COMCRSR COMCRSR      153     A     
 COMCRSR   RSR4     BSS    0                                                       COMCRSR COMCRSR      154     A     
 COMCRSR            ECHO   2,U=(1,3,5,7),L=(0,2,4,6)                               COMCRSR COMCRSR      155     A     
 COMCRSR            SB.U   B6+*                                                    COMCRSR COMCRSR      156     A     
 COMCRSR            SB.L   B6+*                                                    COMCRSR COMCRSR      157     A     
 COMCRSR            EQ     RSRX        RETURN                                      COMCRSR COMCRSR      158     A     
 COMCRSR   RSR      SPACE  4,10                                                    COMCRSR COMCRSR      159     A     
 COMCRSR            BASE   *                                                       COMCRSR COMCRSR      160     A     
 COMCRSR   QUAL$    IF     -DEF,QUAL$                                              COMCRSR COMCRSR      161     A     
 COMCRSR            QUAL   *                                                       COMCRSR COMCRSR      162     A     
 COMCRSR   RSR      EQU    /COMCRSR/RSR                                            COMCRSR COMCRSR      163     A     
 COMCRSR   RSR=     EQU    /COMCRSR/RSR                                                    F4720D        12     A     
 COMCRSR   QUAL$    ENDIF                                                          COMCRSR COMCRSR      164     A     
 COMCRSR   RSR      ENDX                                                           COMCRSR COMCRSR      165     A     
 COMCRSR            SPACE  4                                                       COMCRSR COMCRSR      166     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCRSR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCRSR                    166       166
          CPSA104                      1         1
          F4720D                       1         1
          CPSA245                      9         9
          CPSA283                      1         0
          CPSA306                      2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSFN 
  
 COMCSFN  *COMDECK  COMCSFN            SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.    COMCSFN COMCSFN        1     A     
 COMCSFN   SFN      CTEXT  COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.      COMCSFN COMCSFN        2     A     
 COMCSFN   SFN      SPACE  4,10                                                    COMCSFN COMCSFN        3     A     
 COMCSFN            IF     -DEF,QUAL$,1                                            COMCSFN COMCSFN        4     A     
 COMCSFN            QUAL   COMCSFN                                                 COMCSFN COMCSFN        5     A     
 COMCSFN            BASE   D                                                       COMCSFN COMCSFN        6     A     
 COMCSFN  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1974, 1978.        COMCSFN COMCSFN        7     A     
 COMCSFN   SFN      SPACE  4,10                                                    COMCSFN COMCSFN        8     A     
 COMCSFN  ***       SFN - SPACE FILL NAME.                                         COMCSFN COMCSFN        9     A     
 COMCSFN  *                                                                        COMCSFN COMCSFN       10     A     
 COMCSFN  *         G. R. MANSFIELD.   70/12/08.                                   COMCSFN COMCSFN       11     A     
 COMCSFN  *         S. R. MCPHERSON.   74/11/15.                                   COMCSFN COMCSFN       12     A     
 COMCSFN  *                                                                                CPSA245      149     A     
 COMCSFN  *         *******************************************************                CPSA245      150     A     
 COMCSFN  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      151     A     
 COMCSFN  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      152     A     
 COMCSFN  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      153     A     
 COMCSFN  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      154     A     
 COMCSFN  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      155     A     
 COMCSFN  *         *******************************************************                CPSA245      156     A     
 COMCSFN  *                                                                                CPSA245      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/28. 19.11.32.      PAGE 104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSFN 
  
 COMCSFN  *                                                                        COMCSFN COMCSFN       13     A     
 COMCSFN  *         SFN CONVERTS TRAILING 00 CHARACTERS IN A WORD TO BLANKS.       COMCSFN COMCSFN       14     A     
 COMCSFN   SFN      SPACE  4,10                                                    COMCSFN COMCSFN       15     A     
 COMCSFN  ***       SFN CONVERTS TRAILING 00 CHARACTERS IN A WORD TO BLANKS.       COMCSFN COMCSFN       16     A     
 COMCSFN  *                                                                        COMCSFN COMCSFN       17     A     
 COMCSFN  *         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                  COMCSFN COMCSFN       18     A     
 COMCSFN  *                (B1) = 1.                                               COMCSFN COMCSFN       19     A     
 COMCSFN  *                                                                        COMCSFN COMCSFN       20     A     
 COMCSFN  *         EXIT   (X6) = NAME SPACE FILLED.                               COMCSFN COMCSFN       21     A     
 COMCSFN  *                (X7) = FINAL CHARACTER MASK.                            COMCSFN COMCSFN       22     A     
 COMCSFN  *                                                                        COMCSFN COMCSFN       23     A     
 COMCSFN  *         USES   X - 3, 6, 7.                                            COMCSFN COMCSFN       24     A     
 COMCSFN  *                A - 3.                                                  COMCSFN COMCSFN       25     A     
 COMCSFN  *                B - 2.                                                  COMCSFN COMCSFN       26     A     
 COMCSFN  *                                                                        COMCSFN COMCSFN       27     A     
 COMCSFN  *         CALLS  NONE.                                                   COMCSFN COMCSFN       28     A     
 COMCSFN                                                                           COMCSFN COMCSFN       29     A     
 COMCSFN                                                                           COMCSFN COMCSFN       30     A     
 COMCSFN   SFN      SUBR               ENTRY/EXIT                                  COMCSFN COMCSFN       31     A     
 COMCSFN            SX7    B1                                                      COMCSFN COMCSFN       32     A     
 COMCSFN            SA3    SFNA        =40404040404040404040B                      COMCSFN COMCSFN       33     A     
 COMCSFN            IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN COMCSFN       34     A     
 COMCSFN            BX6    -X7+X1                                                  COMCSFN COMCSFN       35     A     
 COMCSFN            SB2    60-5                                                    COMCSFN COMCSFN       36     A     
 COMCSFN            BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN COMCSFN       37     A     
 COMCSFN            SA3    A3+B1       =10H                                        COMCSFN COMCSFN       38     A     
 COMCSFN            LX6    X7,B2                                                   COMCSFN COMCSFN       39     A     
 COMCSFN            IX6    X7-X6                                                   COMCSFN COMCSFN       40     A     
 COMCSFN            BX7    X7+X6                                                   COMCSFN COMCSFN       41     A     
 COMCSFN            BX3    -X7*X3                                                  COMCSFN COMCSFN       42     A     
 COMCSFN            IX6    X1+X3                                                   COMCSFN COMCSFN       43     A     
 COMCSFN            EQ     SFNX        RETURN                                      COMCSFN COMCSFN       44     A     
 COMCSFN                                                                           COMCSFN COMCSFN       45     A     
 COMCSFN   SFNA     DATA   40404040404040404040B                                   COMCSFN COMCSFN       46     A     
 COMCSFN            DATA   10H                                                     COMCSFN COMCSFN       47     A     
 COMCSFN   SFN      SPACE  4,10                                                    COMCSFN COMCSFN       48     A     
 COMCSFN            BASE   *                                                       COMCSFN COMCSFN       49     A     
 COMCSFN   QUAL$    IF     -DEF,QUAL$                                              COMCSFN COMCSFN       50     A     
 COMCSFN            QUAL   *                                                       COMCSFN COMCSFN       51     A     
 COMCSFN   SFN      EQU    /COMCSFN/SFN                                            COMCSFN COMCSFN       52     A     
 COMCSFN   SFN=     EQU    /COMCSFN/SFN                                                    F4720D        13     A     
 COMCSFN   QUAL$    ENDIF                                                          COMCSFN COMCSFN       53     A     
 COMCSFN   SFN      ENDX                                                           COMCSFN COMCSFN       54     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSFN 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSFN                     54        54
          F4720D                       1         1
          CPSA245                      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/28. 19.11.32.      PAGE 105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSFN 
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT  *COMDECK  COMCSRT            SET RECORD TYPE.                            COMCSRT COMCSRT        1     A     
 COMCSRT   SRT      CTEXT  COMCSRT - SET RECORD TYPE.                              COMCSRT COMCSRT        2     A     
 COMCSRT   SRT      SPACE  4,10                                                    COMCSRT COMCSRT        3     A     
 COMCSRT            IF     -DEF,QUAL$,1                                            COMCSRT COMCSRT        4     A     
 COMCSRT            QUAL   COMCSRT                                                 COMCSRT COMCSRT        5     A     
 COMCSRT            BASE   D                                                       COMCSRT COMCSRT        6     A     
 COMCSRT  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1970, 1978.       COMCSRT COMCSRT        7     A     
 COMCSRT   SRT      SPACE  4,10                                                    COMCSRT COMCSRT        8     A     
 COMCSRT  ***       SRT - SET RECORD TYPE.                                         COMCSRT COMCSRT        9     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       10     A     
 COMCSRT  *         G. R. MANSFIELD    70/09/04.                                   COMCSRT COMCSRT       11     A     
 COMCSRT  *         R. H. GOODELL      71/08/24.                                   COMCSRT COMCSRT       12     A     
 COMCSRT  *         R. H. FRANK        73/07/11.                                   COMCSRT COMCSRT       13     A     
 COMCSRT  *         P. H. MCQUESTEN    77/06/30.                                   COMCSRT COMCSRT       14     A     
 COMCSRT  *                C.J.CONRAD  80/08/26.                                           CPSA204        5          I
          -CPSA230
 COMCSRT  *         C. J. CONRAD       80/08/26.                                           CPSA230        5          I
          -CPS0306
 COMCSRT  *         C. J. CONRAD.      81/08/06.                                           CPS0306        5     A     
 COMCSRT  *                                                                                CPS0306        6     A     
 COMCSRT  *         *******************************************************                CPS0306        7     A     
 COMCSRT  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPS0306        8     A     
 COMCSRT  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPS0306        9     A     
 COMCSRT  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPS0306       10     A     
 COMCSRT  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPS0306       11     A     
 COMCSRT  *         * THROUGH THE PROPER PROCEDURE.                       *                CPS0306       12     A     
 COMCSRT  *         *******************************************************                CPS0306       13     A     
 COMCSRT  *                                                                                CPS0306       14     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       15     A     
 COMCSRT  *         SRT IDENTIFIES THE FORMAT OF A RECORD FROM THE FIRST 64 WORDS  COMCSRT COMCSRT       16          I
          -CPS0323
 COMCSRT  *         LOCATED IN A WORKING BUFFER.                                   COMCSRT COMCSRT       17          I
          -CPS0323
 COMCSRT  *         SRT IDENTIFIES THE FORMAT OF A RECORD FROM THE PREFIX TABLES           CPS0323        9     A     
 COMCSRT  *         AND/OR FIRST 64 WORDS OF RECORD LOCATED IN A WORKING BUFFER.           CPS0323       10     A     
 COMCSRT  *         IF BUFFER IS NOT LARGE ENOUGH TO CONTAIN ALL PREFIX TABLES             CPS0323       11     A     
 COMCSRT  *         AND ENOUGH RECORD TO DETERMINE TYPE, TYPE *TEXT* IS RETURNED.          CPS0323       12     A     
 COMCSRT   SRT      SPACE  4,10                                                    COMCSRT COMCSRT       18     A     
 COMCSRT  ***       SRT IDENTIFIES THE FORMAT OF A RECORD FROM THE FIRST           COMCSRT COMCSRT       19     A     
 COMCSRT  *         64 WORDS LOCATED IN A WORKING BUFFER.  THE TYPE CODES RETURNED COMCSRT COMCSRT       20     A     
 COMCSRT  *         ARE LISTED BELOW.                                              COMCSRT COMCSRT       21     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       22     A     
 COMCSRT  *         IF TYPE NUMBER AND RECORD NAME = 0, RECORD IS ZERO LENGTH.     COMCSRT COMCSRT       23     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       24     A     
 COMCSRT  *         SYMBOL PROVIDED BY *COMCSRT* --                                COMCSRT COMCSRT       25     A     
 COMCSRT  *                *L.SRT* = MAXIMUM RECORD TYPE NUMBER.                   COMCSRT COMCSRT       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/28. 19.11.32.      PAGE 106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT  *                                                                        COMCSRT COMCSRT       27     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       28     A     
 COMCSRT  *         ENTRY  (X1) = LWA+1 OF BLOCK.                                  COMCSRT COMCSRT       29     A     
 COMCSRT  *                (X2) = FWA OF CURRENT RECORD.                           COMCSRT COMCSRT       30     A     
 COMCSRT  *                (B1) = 1.                                               COMCSRT COMCSRT       31     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       32     A     
 COMCSRT  *         EXIT   (X6) = 42/ 0L_NAME,  12/ 0,  6/ TYPE.                   COMCSRT COMCSRT       33     A     
 COMCSRT  *                (X7) = RECORD NAME (-L- FORMAT).                        COMCSRT COMCSRT       34     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       35     A     
 COMCSRT  *         USES   X - 0, 1, 2, 3, 4, 6, 7.                                COMCSRT COMCSRT       36     A     
 COMCSRT  *                B - 2, 3.                                               COMCSRT COMCSRT       37     A     
 COMCSRT  *                A - 1, 2, 3.                                            COMCSRT COMCSRT       38     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       39     A     
 COMCSRT  *         CALLS  NONE.                                                   COMCSRT COMCSRT       40     A     
 COMCSRT            SPACE  4,8                                                             F4720A         6     A     
 COMCSRT  ***       RECORD TYPES ARE AS FOLLOWS --                                         F4720A         7     A     
 COMCSRT  *                                                                                F4720A         8     A     
 COMCSRT  *         TYPE   NUMBER      FORMAT                                              F4720A         9     A     
 COMCSRT  *                                                                                F4720A        10     A     
 COMCSRT  *         TEXT   0           TEXT RECORD.                                        F4720A        11     A     
 COMCSRT  *         6PP    1           6000-SERIES PERIPHERAL PROCESSOR OVERLAY.           F4720A        12     A     
 COMCSRT  *         COS    2           CHIPPEWA OS FORMATTED PROGRAM.                      F4720A        13          I
          -CPS0306
 COMCSRT  *                2           (CDC RESERVED).                                     CPS0306       15          I
          -CPS0345
 COMCSRT  *         OVCAP  2           OVERLAY CAPSULE.                                    CPS0345        7     A     
 COMCSRT  *         REL    3           RELOCATABLE SUBPROGRAM.                             F4720A        14     A     
 COMCSRT  *         OVL    4           CENTRAL PROCESSOR OVERLAY.                          F4720A        15     A     
 COMCSRT  *         ULIB   5           NOS USER LIBRARY.                                   F4720A        16     A     
 COMCSRT  *         OPL    6           MODIFY PROGRAM LIBRARY DECK.                        F4720A        17     A     
 COMCSRT  *         OPLC   7           MODIFY PROGRAM LIBRARY COMMON DECK.                 F4720A        18     A     
 COMCSRT  *         OPLD   8           MODIFY PROGRAM LIBRARY DIRECTORY.                   F4720A        19     A     
 COMCSRT  *         ABS    9           MULTIPLE ENTRY POINT OVERLAY.                       F4720A        20     A     
 COMCSRT  *         7PP    10          7000-SERIES PERIPHERAL PROCESSOR OVERLAY.           F4720A        21     A     
 COMCSRT  *         UPL    11          UPDATE SEQUENTIAL PROGRAM LIBRARY.                  F4720A        22     A     
 COMCSRT  *         UCF    12          UPDATE COMPRESSED COMPILE FILE.                     F4720A        23     A     
 COMCSRT  *         ACF    13          MODIFY COMPRESSED COMPILE FILE.                     F4720A        24     A     
 COMCSRT  *         CAP    14          FAST DYNAMIC LOAD CAPSULE.                          F4720A        25     A     
 COMCSRT  *         DATA   15          ARBITRARY DATA.                                     F4720A        26     A     
 COMCSRT  *                16          (CDC RESERVED).                                     F4720A        27          I
          -CPS0281
 COMCSRT  *         PROC   17          PROCEDURE RECORD.                                   F4720A        28          I
          -CPS0281
 COMCSRT  *         PROC   16          PROCEDURE RECORD.                                   CPS0281        4     A     
 COMCSRT  *                17          (CDC RESERVED).                                     CPS0281        5     A     
 COMCSRT  *         SDR    18          SPECIAL DEADSTART RECORD.                           F4720A        29     A     
 COMCSRT  *         UPLR   19          UPDATE RANDOM PROGRAM LIBRARY.                      CPSA204        6     A     
 COMCSRT  *         UPLRC  20          UPDATE RANDOM PROGRAM LIBRARY COMMON DECK.          CPSA284       10     A     
 COMCSRT  *         8PP    21          CYBER 180 PERIPHERAL PROCESSOR OVERLAY.             CPSA295        5     A     
 COMCSRT   SRT      SPACE  4,10                                                    COMCSRT COMCSRT       41     A     
 COMCSRT  ****      TYPES - ONE OF THE FOLLOWING RECORD TYPES IS RETURNED.         COMCSRT COMCSRT       42     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT       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/28. 19.11.32.      PAGE 107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT  *                                                                        COMCSRT COMCSRT       44     A     
 COMCSRT  * TYPE           NUMBER      FORMAT                                      COMCSRT COMCSRT       45     A     
 COMCSRT                                                                           COMCSRT COMCSRT       46     A     
 COMCSRT                                                                           COMCSRT COMCSRT       47     A     
 COMCSRT   O.TEXT   EQU    0           TEXT RECORD                                 COMCSRT COMCSRT       48     A     
 COMCSRT   O.6PP    EQU    1           6000-SERIES PERIPHERAL PROCESSOR OVERLAY    COMCSRT COMCSRT       49     A     
 COMCSRT   O.COS    EQU    2           CHIPPEWA OS FORMATTED PROGRAM               COMCSRT COMCSRT       50          I
          -CPS0306
 COMCSRT  *                2           (CDC RESERVED)                                      CPS0306       16          I
          -CPS0345
 COMCSRT   O.OVCAP  EQU    2           OVERLAY CAPSULE.                                    CPS0345        8     A     
 COMCSRT   O.REL    EQU    3           RELOCATABLE SUBPROGRAM                      COMCSRT COMCSRT       51     A     
 COMCSRT   O.OVL    EQU    4           CENTRAL PROCESSOR OVERLAY                   COMCSRT COMCSRT       52     A     
 COMCSRT   O.ULIB   EQU    5           USER LIBRARY                                COMCSRT COMCSRT       53     A     
 COMCSRT   O.OPL    EQU    6           MODIFY PROGRAM LIBRARY DECK                 COMCSRT COMCSRT       54     A     
 COMCSRT   O.OPLC   EQU    7           MODIFY PROGRAM LIBRARY COMMON DECK          COMCSRT COMCSRT       55     A     
 COMCSRT   O.OPLD   EQU    8           MODIFY PROGRAM LIBRARY DIRECTORY            COMCSRT COMCSRT       56     A     
 COMCSRT   O.ABS    EQU    9           MULTIPLE ENTRY POINT OVERLAY                COMCSRT COMCSRT       57     A     
 COMCSRT   O.7PP    EQU    10          7000-SERIES PERIPHERAL PROCESSOR OVERLAY    COMCSRT COMCSRT       58     A     
 COMCSRT   O.UPL    EQU    11          UPDATE SEQUENTIAL PROGRAM LIBRARY           COMCSRT COMCSRT       59     A     
 COMCSRT   O.UCF    EQU    12          UPDATE COMPRESSED COMPILE FILE              COMCSRT COMCSRT       60     A     
 COMCSRT   O.ACF    EQU    13          MODIFY COMPRESSED COMPILE FILE              COMCSRT COMCSRT       61     A     
 COMCSRT   O.CAP    EQU    14          FAST DYNAMIC LOAD CAPSULE                   COMCSRT COMCSRT       62     A     
 COMCSRT   O.DATA   EQU    15          ARBITRARY DATA                              COMCSRT COMCSRT       63     A     
 COMCSRT  *                16          (CDC RESERVED)                              COMCSRT COMCSRT       64          I
          -CPS0281
 COMCSRT   O.PROC   EQU    17          PROCEDURE RECORD                            COMCSRT COMCSRT       65          I
          -CPS0281
 COMCSRT   O.PROC   EQU    16          PROCEDURE RECORD                                    CPS0281        6     A     
 COMCSRT  *                17          (CDC RESERVED)                                      CPS0281        7     A     
 COMCSRT   O.SDR    EQU    18          SPECIAL DEADSTART RECORD                    COMCSRT COMCSRT       66     A     
 COMCSRT   O.UPLR   EQU    19          UPDATE RANDOM PROGRAM LIBRARY.                      CPSA204        7     A     
 COMCSRT   O.UPLRC  EQU    20          UPDATE RANDOM PROGRAM LIBRARY COMMON DECK.          CPSA284       11     A     
 COMCSRT   O.8PP    EQU    21          CYBER 180 PERIPHERAL PROCESSOR OVERLAY.             CPSA295        6     A     
 COMCSRT  ****                                                                     COMCSRT COMCSRT       67     A     
 COMCSRT                                                                           COMCSRT COMCSRT       68     A     
 COMCSRT   L.SRT    EQU    O.SDR       MAX TYPE NUMBER                             COMCSRT COMCSRT       69          I
          -CPS0323
 COMCSRT   L.SRT    EQU    O.UPLR      MAX TYPE NUMBER                                     CPS0323       13          I
          -CPSA284
 COMCSRT   L.SRT    EQU    O.UPLRC     MAX TYPE NUMBER                                     CPSA284       12          I
          -CPSA295
 COMCSRT   L.SRT    EQU    O.8PP       MAX TYPE NUMBER                                     CPSA295        7     A     
 COMCSRT                                                                           COMCSRT COMCSRT       70     A     
 COMCSRT                                                                           COMCSRT COMCSRT       71     A     
 COMCSRT   SRT      SUBR               ENTRY/EXIT                                  COMCSRT COMCSRT       72     A     
 COMCSRT            BX7    X7-X7                                                   COMCSRT COMCSRT       73     A     
 COMCSRT            IX6    X2-X1                                                   COMCSRT COMCSRT       74     A     
 COMCSRT            ZR     X6,SRTX     IF ZERO LENGTH RECORD, RETURN               COMCSRT COMCSRT       75     A     
 COMCSRT            BX4    -X1         LWA+1 OF RECORD                                     CPS0323       14     A     
 COMCSRT            SA1    X2          CHECK FIRST WORD                            COMCSRT COMCSRT       76     A     
 COMCSRT            MX0    42                                                              CPSA284       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/28. 19.11.32.      PAGE 108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT            BX6    X1          (X6) = PROGRAM NAME                         COMCSRT COMCSRT       77     A     
 COMCSRT            BX2    X0*X1       (X2) = RECORD NAME                                  CPSA284       14     A     
 COMCSRT            MX0    48                                                      COMCSRT COMCSRT       78     A     
 COMCSRT            LX2    X1          (X2) = RECORD NAME                          COMCSRT COMCSRT       79          I
          -CPSA284
 COMCSRT            LX1    12                                                      COMCSRT COMCSRT       80     A     
 COMCSRT            BX3    -X0*X1                                                  COMCSRT COMCSRT       81     A     
 COMCSRT            SB2    X3-7700B                                                COMCSRT COMCSRT       82     A     
 COMCSRT            NZ     B2,SRT16    IF NO 7700 TABLE                            COMCSRT COMCSRT       83     A     
 COMCSRT                                                                           COMCSRT COMCSRT       84     A     
 COMCSRT  **        7700-TABLE IS PRESENT.  IF IT HAS A WORD COUNT OF ZERO, THIS   COMCSRT COMCSRT       85     A     
 COMCSRT  *         IS AN UPDATE COMPRESSED COMPILE FILE.                          COMCSRT COMCSRT       86     A     
 COMCSRT                                                                           COMCSRT COMCSRT       87     A     
 COMCSRT            SA2    A1+B1       (X2) = NAME IN 7700 TABLE                   COMCSRT COMCSRT       88     A     
 COMCSRT            LX1    12                                                      COMCSRT COMCSRT       89     A     
 COMCSRT            BX3    -X0*X1                                                  COMCSRT COMCSRT       90     A     
 COMCSRT            SB3    X3+1        WORD COUNT PLUS 1                                   CPS0323       15     A     
 COMCSRT            SB3    A1+B3       LWA+1 OF 77 TABLE                                   CPS0323       16     A     
 COMCSRT            SX6    X4+B3       COMPARE FILE SIZE TO TABLE SIZE                     CPS0323       17     A     
 COMCSRT            PL     X6,SRT13    ILLEGAL 77 TABLE, TEXT RECORD                       CPS0323       18     A     
 COMCSRT            SB2    O.UCF                                                   COMCSRT COMCSRT       91     A     
 COMCSRT            ZR     X3,SRT13    IF UPDATE COMPRESSED COMPILE FILE           COMCSRT COMCSRT       92     A     
 COMCSRT            SB3    X2                                                      COMCSRT COMCSRT       93     A     
 COMCSRT            SB2    O.ACF                                                   COMCSRT COMCSRT       94     A     
 COMCSRT            NZ     B3,SRT13    IF MODIFY COMPRESSED COMPILE FILE           COMCSRT COMCSRT       95     A     
 COMCSRT            SB3    X3                                                      COMCSRT COMCSRT       96     A     
 COMCSRT            SA1    A2+B3                                                   COMCSRT COMCSRT       97     A     
 COMCSRT            BX6    X1          (X6) = FIRST WORD OF PROGRAM                COMCSRT COMCSRT       98     A     
 COMCSRT                                                                           COMCSRT COMCSRT       99     A     
 COMCSRT  **        IDENTIFY PP PROGRAM FORMAT.                                    COMCSRT COMCSRT      100     A     
 COMCSRT  *                CHARACTER 3 .NZ.,                                       COMCSRT COMCSRT      101     A     
 COMCSRT  *                CHARACTER 4 = 0,                                        COMCSRT COMCSRT      102     A     
 COMCSRT  *                BYTE 3 = 0,                                             COMCSRT COMCSRT      103     A     
 COMCSRT  *                BYTE 4 .NZ.                                             COMCSRT COMCSRT      104     A     
 COMCSRT  *                IF CHARACTER 1 IS ALPHA, BYTE 2 .NZ.                    COMCSRT COMCSRT      105     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT      106     A     
 COMCSRT  *         ENTRY  (X2) = NAME IN 7700 TABLE.                              COMCSRT COMCSRT      107     A     
 COMCSRT  *                (X6) = FIRST WORD OF PROGRAM.                           COMCSRT COMCSRT      108     A     
 COMCSRT  *                                                                        COMCSRT COMCSRT      109     A     
 COMCSRT   SRT1     SA3    SRTA        =77000077770000B                            COMCSRT COMCSRT      110     A     
 COMCSRT            SB2    O.DATA                                                  COMCSRT COMCSRT      111     A     
 COMCSRT            BX3    X3*X6       CHECK (NAME .LE. 3 CHARS) AND (BYTE 3 = 0)  COMCSRT COMCSRT      112     A     
 COMCSRT            MX0    12                                                      COMCSRT COMCSRT      113     A     
 COMCSRT            BX1    X0*X6       CHECK FOR NUMERIC FIRST CHARACTER           COMCSRT COMCSRT      114     A     
 COMCSRT            LX0    48                                                      COMCSRT COMCSRT      115     A     
 COMCSRT            BX4    X0*X6       CHECK FOR 3-CHARACTER NAME                  COMCSRT COMCSRT      116          I
          -CPS0323
 COMCSRT            BX7    X0*X6       CHECK FOR 3-CHARACTER NAME                          CPS0323       19     A     
 COMCSRT            LX1    12                                                      COMCSRT COMCSRT      117     A     
 COMCSRT            LX0    48                                                      COMCSRT COMCSRT      118     A     
 COMCSRT            NZ     X3,SRT3     IF (NAME .GE. 3 CHARS) OR (BYTE 3 .NZ.)     COMCSRT COMCSRT      119     A     
 COMCSRT            ZR     X4,SRT3     IF NAME .LT. 3 CHARACTERS                   COMCSRT COMCSRT      120          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
          -CPS0323
 COMCSRT            ZR     X7,SRT3     IF NAME .LT. 3 CHARACTERS                           CPS0323       20     A     
 COMCSRT            SB3    X1-2R0A                                                 COMCSRT COMCSRT      121     A     
 COMCSRT            BX3    X0*X6                                                   COMCSRT COMCSRT      122     A     
 COMCSRT            MX0    6                                                       COMCSRT COMCSRT      123     A     
 COMCSRT            LX0    54                                                      COMCSRT COMCSRT      124     A     
 COMCSRT            BX7    X0*X6                                                   COMCSRT COMCSRT      125     A     
 COMCSRT            ZR     X7,SRT3     IF CHARACTER 2 = 0                          COMCSRT COMCSRT      126     A     
 COMCSRT            PL     B3,SRT2     IF NUMERIC PP NAME                          COMCSRT COMCSRT      127     A     
 COMCSRT            ZR     X3,SRT3     IF NO LOAD ADDRESS                          COMCSRT COMCSRT      128     A     
 COMCSRT   SRT2     MX0    18                                                      COMCSRT COMCSRT      129     A     
 COMCSRT            SB3    X6                                                      COMCSRT COMCSRT      130     A     
 COMCSRT            ZR     B3,SRT3     IF ZERO LENGTH PROGRAM                      COMCSRT COMCSRT      131     A     
 COMCSRT            SB2    B1          O.6PP                                       COMCSRT COMCSRT      132     A     
 COMCSRT            BX2    X0*X2                                                   COMCSRT COMCSRT      133     A     
 COMCSRT            EQ     SRT13       EXIT                                        COMCSRT COMCSRT      134     A     
 COMCSRT                                                                           COMCSRT COMCSRT      135     A     
 COMCSRT                                                                           COMCSRT COMCSRT      136     A     
 COMCSRT  **        HAVE ALREADY SKIPPED (OPTIONAL) 7700-TABLE, NOW CHECK FOR --   COMCSRT COMCSRT      137     A     
 COMCSRT  *         3      REL         (7000, WC .NZ.),  3400                      COMCSRT COMCSRT      138     A     
 COMCSRT  *         2      OVCAP       6000, WITH BIT 18 SET                               CPS0345        9     A     
 COMCSRT  *         4      OVL         (7000, WC .NZ.),  5000                      COMCSRT COMCSRT      139     A     
 COMCSRT  *         5      ULIB        7600                                        COMCSRT COMCSRT      140     A     
 COMCSRT  *         6      OPL         7001                                        COMCSRT COMCSRT      141     A     
 COMCSRT  *         7      OPLC        7002                                        COMCSRT COMCSRT      142     A     
 COMCSRT  *         8      OPLD        (7000, WC .ZR.)                             COMCSRT COMCSRT      143     A     
 COMCSRT  *         9      ABS         (7000, WC .NZ.), 5100                       COMCSRT COMCSRT      144     A     
 COMCSRT  *         10     7PP         5200                                        COMCSRT COMCSRT      145     A     
 COMCSRT  *         14     CAP         6000                                        COMCSRT COMCSRT      146     A     
 COMCSRT  *         17     .PROC       5720   = 36/6L.PROC,                        COMCSRT COMCSRT      147          I
          -CPS0281
 COMCSRT  *         16     .PROC       5720 = 36/6L.PROC,                                  CPS0281        8     A     
 COMCSRT  *         19     UPLR        6000, COMDECK, YANK, DECK                           CPS0345       10          I
          -CPSA284
 COMCSRT  *         19     UPLR        6000, YANK, DECK                                    CPSA284       15     A     
 COMCSRT  *         20     UPLRC       6000, COMDECK                                       CPSA284       16     A     
 COMCSRT  *         21     8PP         6100                                                CPSA295        8     A     
 COMCSRT                                                                           COMCSRT COMCSRT      148     A     
 COMCSRT   SRT3     SB2    O.REL                                                   COMCSRT COMCSRT      149     A     
 COMCSRT            SB3    X1-3400B                                                COMCSRT COMCSRT      150     A     
 COMCSRT            ZR     B3,SRT13    IF PIDL TABLE, RELOCATABLE                  COMCSRT COMCSRT      151          I
          -CPSA257
 COMCSRT            ZR     B3,SRT17    IF 3400, MAY BE PIDL TABLE                          CPSA257        5     A     
 COMCSRT            SB3    X1-7000B                                                COMCSRT COMCSRT      152     A     
 COMCSRT            NZ     B3,SRT4     IF NOT LDSET OR OPLD TABLE                  COMCSRT COMCSRT      153     A     
 COMCSRT            BX1    X6                                                      COMCSRT COMCSRT      154     A     
 COMCSRT            LX1    -36                                                     COMCSRT COMCSRT      155     A     
 COMCSRT            MX0    -12         EXTRACT 7000 TABLE WORD COUNT               COMCSRT COMCSRT      156     A     
 COMCSRT            BX1    -X0*X1                                                  COMCSRT COMCSRT      157     A     
 COMCSRT            SB2    O.OPLD                                                  COMCSRT COMCSRT      158     A     
 COMCSRT            ZR     X1,SRT13    IF OPL DIRECTORY (7000,WC=0)                COMCSRT COMCSRT      159     A     
 COMCSRT                                                                           COMCSRT COMCSRT      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/28. 19.11.32.      PAGE 110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT            SB2    X1+B1       NO, IS LDSET TABLE (7000, WC .NZ.)          COMCSRT COMCSRT      161     A     
 COMCSRT            SA1    A1+B2       POSITION PAST THE LDSET TABLE               COMCSRT COMCSRT      162          I
          -CPS0323
 COMCSRT            SX3    A1+B2       ADDR OF WORD PAST LDSET TABLE                       CPS0323       21     A     
 COMCSRT            SB2    O.TEXT      *TEXT*, JUST IN CASE WE RUN OUT OF ROOM             CPS0323       22     A     
 COMCSRT            IX1    X3+X4       COMPARE NEXT ADDR TO BUFFER LWA+1                   CPS0323       23     A     
 COMCSRT            PL     X1,SRT13                                                        CPS0323       24     A     
 COMCSRT            SA1    X3          POSITION PAST THE LDSET TABLE                       CPS0323       25     A     
 COMCSRT            BX6    X1          FIRST WORD OF PROGRAM                       COMCSRT COMCSRT      163     A     
 COMCSRT            LX1    12                                                      COMCSRT COMCSRT      164     A     
 COMCSRT            BX1    -X0*X1      TABLE TYPE                                  COMCSRT COMCSRT      165     A     
 COMCSRT            EQ     SRT3                                                    COMCSRT COMCSRT      166     A     
 COMCSRT                                                                           COMCSRT COMCSRT      167     A     
 COMCSRT   SRT4     SB2    O.ULIB                                                  COMCSRT COMCSRT      168     A     
 COMCSRT            SB3    X1-7600B                                                COMCSRT COMCSRT      169     A     
 COMCSRT            ZR     B3,SRT13    IF USER LIBRARY                             COMCSRT COMCSRT      170     A     
 COMCSRT            SB2    O.OPL                                                   COMCSRT COMCSRT      171     A     
 COMCSRT            SB3    X1-7001B                                                COMCSRT COMCSRT      172     A     
 COMCSRT            ZR     B3,SRT13    IF OLD PROGRAM LIBRARY                      COMCSRT COMCSRT      173     A     
 COMCSRT            SB2    O.OPLC                                                  COMCSRT COMCSRT      174     A     
 COMCSRT            SB3    X1-7002B                                                COMCSRT COMCSRT      175     A     
 COMCSRT            ZR     B3,SRT13    IF OPL COMMON DECK                          COMCSRT COMCSRT      176     A     
 COMCSRT            SB2    O.ABS                                                   COMCSRT COMCSRT      177     A     
 COMCSRT            SB3    X1-5100B                                                COMCSRT COMCSRT      178     A     
 COMCSRT            ZR     B3,SRT13    IF ABS                                      COMCSRT COMCSRT      179     A     
 COMCSRT            SB3    X1-5300B                                                COMCSRT COMCSRT      180     A     
 COMCSRT            NZ     B3,SRT6     IF NOT 5300 TABLE                           COMCSRT COMCSRT      181     A     
 COMCSRT            SB3    X6+                                                     COMCSRT COMCSRT      182     A     
 COMCSRT            NG     B3,SRT13    IF ABSOLUTE MODULE                          COMCSRT COMCSRT      183     A     
 COMCSRT   SRT5     SB2    O.OVL                                                   COMCSRT COMCSRT      184     A     
 COMCSRT            EQ     SRT13       IF OVL                                      COMCSRT COMCSRT      185     A     
 COMCSRT                                                                           COMCSRT COMCSRT      186     A     
 COMCSRT   SRT6     SB3    X1-5400B                                                COMCSRT COMCSRT      187     A     
 COMCSRT            NZ     B3,SRT7     IF NOT 5400 TABLE                           COMCSRT COMCSRT      188     A     
 COMCSRT            BX3    X6                                                      COMCSRT COMCSRT      189     A     
 COMCSRT            LX3    -36                                                     COMCSRT COMCSRT      190     A     
 COMCSRT            SX4    X3                                                      COMCSRT COMCSRT      191     A     
 COMCSRT            ZR     X4,SRT13    IF (0,0) OVERLAY, TYPE ABSOLUTE             COMCSRT COMCSRT      192     A     
 COMCSRT            EQ     SRT5        ELSE TYPE OVL                               COMCSRT COMCSRT      193     A     
 COMCSRT                                                                           COMCSRT COMCSRT      194     A     
 COMCSRT   SRT7     SB2    O.CAP                                                   COMCSRT COMCSRT      195     A     
 COMCSRT            SB3    X1-6000B                                                COMCSRT COMCSRT      196     A     
 COMCSRT            ZR     B3,SRT13    IF CAPSULE                                  COMCSRT COMCSRT      197          I
          -CPSA204
 COMCSRT            SB2    O.7PP                                                   COMCSRT COMCSRT      198          I
          -CPSA204
 COMCSRT            NZ     B3,SRT7.5   IF NOT CAPSULE OR RANDOM PL.                        CPSA204        8     A     
 COMCSRT            SA1    A1                                                              CPSA284       17     A     
 COMCSRT            MX0    -12                                                             CPSA284       18     A     
 COMCSRT            LX1    -36                                                             CPSA284       19     A     
 COMCSRT            BX1    -X0*X1                                                          CPSA284       20     A     
 COMCSRT            SX1    X1-1                                                            CPSA284       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/28. 19.11.32.      PAGE 111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT            SA3    A1+B1       FETCH SECOND WORD                                   CPSA204        9     A     
 COMCSRT            MX0    60                                                              CPSA204       10          I
          -CPSA230
 COMCSRT            SB3    60                                                              CPSA204       11          I
          -CPSA230
 COMCSRT            MX0    42          7 CHARACTERS                                        CPSA230        6     A     
 COMCSRT            SB3    54           SHIFT FACTOR                                       CPSA230        7          I
          -CPSA284
 COMCSRT            SB3    48          SHIFT FACTOR                                        CPSA284       22     A     
 COMCSRT            BX4    X3                                                              CPSA204       12     A     
 COMCSRT            LX4    6                                                               CPSA230        8     A     
 COMCSRT            BX6    X4*X0                                                           CPSA230        9     A     
 COMCSRT            SA3    SRTD        *COMDECK                                            CPSA204       13     A     
 COMCSRT            BX6    X4-X3                                                           CPSA204       14          I
          -CPSA230
 COMCSRT            MX0    54                                                              CPSA230       10          I
          -CPSA284
 COMCSRT            MX0    48                                                              CPSA284       23     A     
 COMCSRT            BX6    X6-X3                                                           CPSA230       11     A     
 COMCSRT            ZR     X6,SRT7.1    IF COMDECK, THEN RANDOM PL.                        CPSA204       15          I
          -CPSA284
 COMCSRT            SX7    O.UPLRC                                                         CPSA284       24     A     
 COMCSRT            ZR     X6,SRT7.1   IF COMDECK, THEN RANDOM PL.                         CPSA284       25     A     
 COMCSRT            MX0    54                                                              CPSA204       16          I
          -CPSA230
 COMCSRT            SB3    54          IF ONLY ONE BLANK BETWEEN *COMDECK AND NAME.        CPSA204       17          I
          -CPSA230
 COMCSRT            BX6    X0*X6                                                           CPSA204       18          I
          -CPSA230
 COMCSRT            ZR     X6,SRT7.1   COMDECK.                                            CPSA204       19          I
          -CPSA230
 COMCSRT            MX0    30                                                              CPSA204       20          I
          -CPSA230
 COMCSRT            MX0    24                                                              CPSA230       12     A     
 COMCSRT            SB3    36          SHIFT FACTOR FOR EXTRACTING YANK DECK NAME.         CPSA204       21          I
          -CPSA284
 COMCSRT            SB3    30          SHIFT FACTOR FOR EXTRACTING *DECK DECK NAME         CPSA284       26     A     
 COMCSRT            BX4    X0*X4                                                           CPSA204       22     A     
 COMCSRT            SA3    SRTE        *YANK                                               CPSA204       23     A     
 COMCSRT            MX0    36          SET UP MASK FOR EXTRACTING YANK DECK NAME.          CPSA204       24          I
          -CPSA284
 COMCSRT            MX0    30          SET UP MASK FOR EXTRACTING *DECK DECK NAME.         CPSA284       27     A     
 COMCSRT            IX6    X4-X3                                                           CPSA204       25     A     
 COMCSRT            ZR     X6,SRT7.1    IF YANK DECK, THEN RANDOM PL.                      CPSA204       26          I
          -CPSA284
 COMCSRT            SA3    SRTF        *DECK                                               CPSA204       27          I
          -CPSA284
 COMCSRT            NZ     X6,SRT7.0   IF NOT YANK DECK                                    CPSA284       28     A     
 COMCSRT            SA2    SRTG        YANK DECK (MUST BE RANDOM PL)                       CPSA284       29     A     
 COMCSRT            SB2    O.UPLR                                                          CPSA284       30     A     
 COMCSRT            EQ     SRT13       INDICATE YANK$$$, TYPE UPLR                         CPSA284       31     A     
 COMCSRT                                                                                   CPSA284       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/28. 19.11.32.      PAGE 112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT   SRT7.0   SA3    SRTF        *DECK                                               CPSA284       33     A     
 COMCSRT            IX6    X4-X3                                                           CPSA204       28     A     
 COMCSRT            SX7    O.UPLR                                                          CPSA284       34     A     
 COMCSRT            NZ     X6,SRT13    CAPSULE.                                            CPSA204       29          I
          -CPS0345
 COMCSRT            ZR     X6,SRT7.1   IF DECK, THEN RANDOM PL                             CPS0345       11     A     
 COMCSRT            SA1      A1                                                            CPS0345       12          I
          -CPSA284
 COMCSRT            BX6   X1                                                               CPS0345       13          I
          -CPSA284
 COMCSRT            SA1    A1                                                              CPSA284       35     A     
 COMCSRT            BX6    X1                                                              CPSA284       36     A     
 COMCSRT            LX6    59-18       CHECK OVCAP FLAG                                    CPS0345       14     A     
 COMCSRT            PL     X6,SRT13    IF NOT SET, CAPSULE.                                CPS0345       15     A     
 COMCSRT            SB2    O.OVCAP     ELSE, OVERLAY CAPSULE.                              CPS0345       16     A     
 COMCSRT            EQ     SRT13                                                           CPS0345       17     A     
 COMCSRT                                                                                   CPSA204       30     A     
 COMCSRT  **        OBTAIN NAME OF DECK                                                    CPSA204       31     A     
 COMCSRT  *         B3 = SHIFT FACTOR TO LEFT JUSTIFY DECKNAME.                            CPSA204       32     A     
 COMCSRT                                                                                   CPSA204       33     A     
 COMCSRT   SRT7.1   SB2    O.UPLR                                                          CPSA204       34          I
          -CPSA230
 COMCSRT            SA3    A1+B1       REFETCH 2ND WORD                                    CPSA204       35          I
          -CPSA230
 COMCSRT   SRT7.1   SA3    A1+B1       REFETCH SECOND WORD                                 CPSA230       13     A     
 COMCSRT            MX6    -6          MASK FOR ONE CHARACTER                              CPSA230       14     A     
 COMCSRT                                                                                   CPSA284       37     A     
 COMCSRT   SRT7.2   SB2    B3-60                                                           CPSA230       15     A     
 COMCSRT            NZ     B2,SRT7.3                                                       CPSA230       16     A     
 COMCSRT            SA3    A3+B1       FETCH THE NEXT WORD                                 CPSA230       17     A     
 COMCSRT            SB3    B0                                                              CPSA230       18          I
          -CPSA284
 COMCSRT            SB3    0                                                               CPSA284       38     A     
 COMCSRT            MX0    0                                                               CPSA230       19     A     
 COMCSRT   SRT7.3   SB2    B3+6                                                            CPSA230       20     A     
 COMCSRT            LX2    X3,B2       SHIFT FIRST CHAR. TO LOWEST POSITION                CPSA230       21     A     
 COMCSRT            BX2    -X6*X2      MASK OFF CHARACTER                                  CPSA230       22     A     
 COMCSRT            SB2    X2-1R       TEST FOR BLANK                                      CPSA230       23     A     
 COMCSRT            NZ     B2,SRT7.4                                                       CPSA230       24          I
          -CPSA284
 COMCSRT            SB3    B3+6        INCREMENT SHIFT                                     CPSA230       25          I
          -CPSA284
 COMCSRT            AX0    6           INCREASE MASK                                       CPSA230       26          I
          -CPSA284
 COMCSRT            NZ     X0,SRT7.2                                                       CPSA230       27          I
          -CPSA284
 COMCSRT            ZR     B2,SRT7.36                                                      CPSA284       39     A     
 COMCSRT            SB2    X2-1R,      TEST FOR COMMA                                      CPSA284       40     A     
 COMCSRT            ZR     B2,SRT7.36                                                      CPSA284       41     A     
 COMCSRT            NZ     X2,SRT7.4   READY TO GO                                         CPSA284       42     A     
 COMCSRT            SB3    B3+6        SHIFT FIRST CHARACTER POSITION                      CPSA284       43     A     
 COMCSRT            MX0    6                                                               CPSA230       28          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
          -CPSA284
 COMCSRT            AX0    6                                                               CPSA284       44     A     
 COMCSRT            SB2    B3-60                                                           CPSA284       45     A     
 COMCSRT            NZ     B2,SRT7.36  SHIFT SECOND CHARACTER POSITION                     CPSA284       46     A     
 COMCSRT            SA3    A3+B1       FAKE THE SECOND SHIFT                               CPSA284       47     A     
 COMCSRT            SB3    0                                                               CPSA284       48     A     
 COMCSRT            MX0    0                                                               CPSA284       49     A     
 COMCSRT            EQ     SRT7.2                                                          CPSA284       50     A     
 COMCSRT   SRT7.36  SB3    B3+6        INCREMENT SHIFT                                     CPSA284       51     A     
 COMCSRT   SRT7.37  ZR     X0,SRT7.39  RESET MASK                                          CPSA284       52     A     
 COMCSRT            AX0    6                                                               CPSA284       53     A     
 COMCSRT            EQ     SRT7.2                                                          CPSA284       54     A     
 COMCSRT   SRT7.38  MX0    6                                                               CPSA284       55     A     
 COMCSRT            EQ     SRT7.2      TRY NEXT CHARACTER                                  CPSA230       29     A     
 COMCSRT   SRT7.4   SB2    O.UPLR                                                          CPSA230       30          I
          -CPSA284
 COMCSRT            BX2    -X0*X3                                                          CPSA204       36          I
          -CPSA284
 COMCSRT   SRT7.39  PL     X0,SRT7.38                                                      CPSA284       56     A     
 COMCSRT            MX0    0                                                               CPSA284       57     A     
 COMCSRT            EQ     SRT7.2                                                          CPSA284       58     A     
 COMCSRT   SRT7.4   BX2    -X0*X3                                                          CPSA284       59     A     
 COMCSRT            MX3    0                                                               CPSA284       60     A     
 COMCSRT            ZR     X1,SRT7.41  IF ONLY ONE WORD ENTRY                              CPSA284       61     A     
 COMCSRT            SA3    A3+B1       FETCH NEXT WORD                                     CPSA204       37     A     
 COMCSRT            BX3    X0*X3                                                           CPSA204       38          I
          -CPSA284
 COMCSRT   SRT7.41  BX3    X0*X3                                                           CPSA284       62     A     
 COMCSRT            BX2    X2+X3       PUT THE NAME IN ONE WORD                            CPSA204       39     A     
 COMCSRT            LX2    B3          POSITION  DECK NAME.                                CPSA204       40     A     
 COMCSRT            MX0    6           CURRENT CHARACTER MASK                              CPSA284       63     A     
 COMCSRT            SB3    6                                                               CPSA284       64     A     
 COMCSRT   SRT7.43  BX6    X0*X2       CHARACTER                                           CPSA284       65     A     
 COMCSRT            LX6    X6,B3       POSITION AS LOW ORDER 6 BITS                        CPSA284       66     A     
 COMCSRT            ZR     X6,SRT7.46  IF A ZERO                                           CPSA284       67     A     
 COMCSRT            SX6    X6-1R                                                           CPSA284       68     A     
 COMCSRT            ZR     X6,SRT7.46  IF A BLANK                                          CPSA284       69     A     
 COMCSRT            SB3    B3+6                                                            CPSA284       70     A     
 COMCSRT            LX0    -6          NEXT CHARACTER                                      CPSA284       71     A     
 COMCSRT            SB2    B3-60                                                           CPSA284       72     A     
 COMCSRT            NZ     B2,SRT7.43                                                      CPSA284       73     A     
 COMCSRT   SRT7.46  SB3    B3-6                                                            CPSA284       74     A     
 COMCSRT            MX0    6                                                               CPSA284       75     A     
 COMCSRT            AX0    X0,B3       FINAL MASK                                          CPSA284       76     A     
 COMCSRT            BX2    X0*X2       DECK NAME                                           CPSA284       77     A     
 COMCSRT            SB2    X7                                                              CPSA284       78     A     
 COMCSRT            EQ     SRT13                                                           CPSA204       41     A     
 COMCSRT                                                                                   CPSA204       42     A     
 COMCSRT   SRT7.5   SB2    O.7PP                                                           CPSA204       43     A     
 COMCSRT            SB3    X1-5200B                                                COMCSRT COMCSRT      199     A     
 COMCSRT            ZR     B3,SRT13    IF PPU                                      COMCSRT COMCSRT      200     A     
 COMCSRT            SB2    O.8PP                                                           CPSA295        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/28. 19.11.32.      PAGE 114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT            SB3    X1-6100B                                                        CPSA295       10     A     
 COMCSRT            ZR     B3,SRT13    IF 180 PPU                                          CPSA295       11     A     
 COMCSRT            SB3    X1-5000B                                                COMCSRT COMCSRT      201     A     
 COMCSRT            NZ     B3,SRT8     IF NOT OVERLAY                              COMCSRT COMCSRT      202     A     
 COMCSRT                                                                           COMCSRT COMCSRT      203     A     
 COMCSRT            SB2    O.OVL                                                   COMCSRT COMCSRT      204     A     
 COMCSRT            BX7    X2-X6                                                   COMCSRT COMCSRT      205     A     
 COMCSRT            NZ     X7,SRT13    IF NAME .NE. FIRST WORD OF PROGRAM          COMCSRT COMCSRT      206     A     
 COMCSRT  SRT8      SA3    A1          REFETCH FIRST WORD                          COMCSRT COMCSRT      207     A     
 COMCSRT            MX0    36                                                      COMCSRT COMCSRT      208     A     
 COMCSRT            BX7    X0*X3       ISOLATE POSSIBLE *.PROC,*                   COMCSRT COMCSRT      209     A     
 COMCSRT            BX4    -X0*X3                                                  COMCSRT COMCSRT      210     A     
 COMCSRT            SA3    SRTC        *.PROC,*                                    COMCSRT COMCSRT      211     A     
 COMCSRT            BX7    X7-X3                                                   COMCSRT COMCSRT      212     A     
 COMCSRT            NZ     X7,SRT11    IF NOT *.PROC,*                             COMCSRT COMCSRT      213     A     
 COMCSRT                                                                           COMCSRT COMCSRT      214     A     
 COMCSRT  *         OBTAIN NAME OF PROCEDURE.                                      COMCSRT COMCSRT      215     A     
 COMCSRT                                                                           COMCSRT COMCSRT      216     A     
 COMCSRT            SA3    A1+B1       PICK UP SECOND WORD OF BINARY               COMCSRT COMCSRT      217     A     
 COMCSRT            MX0    24                                                      COMCSRT COMCSRT      218     A     
 COMCSRT            BX3    X0*X3       ISOLATE THE NEXT FOUR CHARACTERS            COMCSRT COMCSRT      219     A     
 COMCSRT            BX4    X4+X3       COMBINE ALL EIGHT CHARACTERS                COMCSRT COMCSRT      220     A     
 COMCSRT            LX4    36          SHIFT INTO PLACE AT LEFT                    COMCSRT COMCSRT      221     A     
 COMCSRT            MX0    -6                                                      COMCSRT COMCSRT      222     A     
 COMCSRT            SB3    48                                                      COMCSRT COMCSRT      223     A     
 COMCSRT            SB2    53          CONSTANT FOR CREATING MASK                  COMCSRT COMCSRT      224     A     
 COMCSRT   SRT9     LX4    6           SHIFT NEXT CHARACTER TO LOW ORDER           COMCSRT COMCSRT      225     A     
 COMCSRT            BX7    -X0*X4                                                  COMCSRT COMCSRT      226     A     
 COMCSRT            ZR     X7,SRT10    IF NOT LEGAL CHARACTER                      COMCSRT COMCSRT      227     A     
 COMCSRT            SX7    X7-1R0                                                  COMCSRT COMCSRT      228          I
          -CPSA210
 COMCSRT            SX7    X7-1R+                                                          CPSA210        5     A     
 COMCSRT            PL     X7,SRT10    IF NOT ALPHA-NUMERIC                        COMCSRT COMCSRT      229     A     
 COMCSRT            SB3    B3-6        DECREMENT CHARACTER COUNT                   COMCSRT COMCSRT      230     A     
 COMCSRT            ZR     B3,SRT11    IF EIGHT CHARACTERS AND NO COMMA            COMCSRT COMCSRT      231     A     
 COMCSRT            EQ     SRT9                                                    COMCSRT COMCSRT      232     A     
 COMCSRT                                                                           COMCSRT COMCSRT      233     A     
 COMCSRT   SRT10    SB3    B3-48                                                   COMCSRT COMCSRT      234     A     
 COMCSRT            ZR     B3,SRT11    IF NULL NAME                                COMCSRT COMCSRT      235     A     
 COMCSRT            SB3    B3+54       SHIFT COUNT TO RESTORE NAME IN PLACE        COMCSRT COMCSRT      236     A     
 COMCSRT            SB2    B2-B3                                                   COMCSRT COMCSRT      237     A     
 COMCSRT            MX7    1                                                       COMCSRT COMCSRT      238     A     
 COMCSRT            AX7    B2          MASK FOR NAME                               COMCSRT COMCSRT      239     A     
 COMCSRT            LX4    B3          RESTORE NAME                                COMCSRT COMCSRT      240     A     
 COMCSRT            BX2    X7*X4       ISOLATE NAME                                COMCSRT COMCSRT      241     A     
 COMCSRT            SB2    O.PROC      PROCEDURE TYPE                              COMCSRT COMCSRT      242     A     
 COMCSRT            EQ     SRT13                                                   COMCSRT COMCSRT      243     A     
 COMCSRT                                                                           COMCSRT COMCSRT      244     A     
 COMCSRT   SRT11    BX4    X6                                                      COMCSRT COMCSRT      245     A     
 COMCSRT            SB3    X6                                                      COMCSRT COMCSRT      246     A     
 COMCSRT            LX4    59-17                                                   COMCSRT COMCSRT      247     A     
 COMCSRT            BX7    X4+X6                                                   COMCSRT COMCSRT      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/28. 19.11.32.      PAGE 115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT            MI     X7,SRT12    IF POSSIBLE TEXT                            COMCSRT COMCSRT      249     A     
 COMCSRT            SB2    O.COS                                                   COMCSRT COMCSRT      250          I
          -CPS0306
 COMCSRT            SB2    O.TEXT                                                          CPS0306       17     A     
 COMCSRT            NZ     B3,SRT13    IF COS                                      COMCSRT COMCSRT      251     A     
 COMCSRT   SRT12    MX0    -12                                                     COMCSRT COMCSRT      252     A     
 COMCSRT            BX7    -X0*X6                                                  COMCSRT COMCSRT      253     A     
 COMCSRT            SB2    O.DATA                                                  COMCSRT COMCSRT      254     A     
 COMCSRT            NZ     X7,SRT13    IF DATA                                     COMCSRT COMCSRT      255     A     
 COMCSRT            MX0    6                                                       COMCSRT COMCSRT      256     A     
 COMCSRT            BX7    X0*X4                                                   COMCSRT COMCSRT      257     A     
 COMCSRT            SB2    B0          O.TEXT                                      COMCSRT COMCSRT      258     A     
 COMCSRT            ZR     X7,SRT13    IF LOWER 18 BITS ARE ZERO, TEXT TYPE        COMCSRT COMCSRT      259     A     
 COMCSRT            LX7    6                                                       COMCSRT COMCSRT      260     A     
 COMCSRT            SB3    X7-1R                                                   COMCSRT COMCSRT      261     A     
 COMCSRT            ZR     B3,SRT13    IF 8TH CHARACTER IS SPACE                   COMCSRT COMCSRT      262     A     
 COMCSRT            SB2    O.DATA                                                  COMCSRT COMCSRT      263     A     
 COMCSRT                                                                           COMCSRT COMCSRT      264     A     
 COMCSRT  *         SET NAME AND TYPE.                                             COMCSRT COMCSRT      265     A     
 COMCSRT  *         (X2) = RECORD NAME.                                            COMCSRT COMCSRT      266     A     
 COMCSRT  *         (B2) = RECORD TYPE.                                            COMCSRT COMCSRT      267     A     
 COMCSRT                                                                           COMCSRT COMCSRT      268     A     
 COMCSRT   SRT13    MX0    42                                                      COMCSRT COMCSRT      269          I
          -CPSA284
 COMCSRT   SRT13    MX0    54                                                              CPSA284       79     A     
 COMCSRT            SX4    1R                                                      COMCSRT COMCSRT      270     A     
 COMCSRT            BX7    X0*X2                                                   COMCSRT COMCSRT      271     A     
 COMCSRT            LX4    12                                                      COMCSRT COMCSRT      272     A     
 COMCSRT            MX2    6                                                       COMCSRT COMCSRT      273     A     
 COMCSRT            LX2    -42                                                     COMCSRT COMCSRT      274     A     
 COMCSRT                                                                           COMCSRT COMCSRT      275     A     
 COMCSRT  *         STRIP TRAILING SPACES FROM NAME.                               COMCSRT COMCSRT      276     A     
 COMCSRT                                                                           COMCSRT COMCSRT      277     A     
 COMCSRT   SRT14    LX4    6                                                       COMCSRT COMCSRT      278     A     
 COMCSRT            NG     X2,SRT15    IF END OF WORD                              COMCSRT COMCSRT      279     A     
 COMCSRT            LX2    6                                                       COMCSRT COMCSRT      280     A     
 COMCSRT            BX3    X2*X7                                                   COMCSRT COMCSRT      281     A     
 COMCSRT            ZR     X3,SRT14    IF COLON OR NULL CHARACTER                  COMCSRT COMCSRT      282     A     
 COMCSRT            BX6    X4-X3                                                   COMCSRT COMCSRT      283     A     
 COMCSRT            NZ     X6,SRT15    IF NOT BLANK                                COMCSRT COMCSRT      284     A     
 COMCSRT            BX7    -X2*X7      DELETE TRAILING BLANK                       COMCSRT COMCSRT      285     A     
 COMCSRT            EQ     SRT14                                                   COMCSRT COMCSRT      286     A     
 COMCSRT                                                                           COMCSRT COMCSRT      287     A     
 COMCSRT   SRT15    SX6    B2          TYPE                                        COMCSRT COMCSRT      288          I
          -CPSA284
 COMCSRT            IX6    X6+X7                                                   COMCSRT COMCSRT      289          I
          -CPSA284
 COMCSRT   SRT15    MX0    42                                                              CPSA284       80     A     
 COMCSRT            SX6    B2          TYPE                                                CPSA284       81     A     
 COMCSRT            BX3    X0*X7                                                           CPSA284       82     A     
 COMCSRT            IX6    X6+X3                                                           CPSA284       83     A     
 COMCSRT            NZ     X6,SRTX     IF NAME NOT ALL BLANKS, RETURN              COMCSRT COMCSRT      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/28. 19.11.32.      PAGE 116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT            SX6    O.DATA                                                  COMCSRT COMCSRT      291     A     
 COMCSRT            EQ     SRTX        RETURN                                      COMCSRT COMCSRT      292     A     
 COMCSRT                                                                           COMCSRT COMCSRT      293     A     
 COMCSRT  *         (X6) = FIRST WORD OF PROGRAM.                                  COMCSRT COMCSRT      294     A     
 COMCSRT                                                                           COMCSRT COMCSRT      295     A     
 COMCSRT   SRT16    MX0    36                                                      COMCSRT COMCSRT      296          I
          -CPSA204
 COMCSRT   SRT16    MX0    30                                                              CPSA204       44     A     
 COMCSRT            SA3    SRTB        *CHECK*                                     COMCSRT COMCSRT      297     A     
 COMCSRT            BX4    X0*X6                                                   COMCSRT COMCSRT      298     A     
 COMCSRT            SB2    O.UPL                                                   COMCSRT COMCSRT      299     A     
 COMCSRT            IX7    X4-X3                                                   COMCSRT COMCSRT      300     A     
 COMCSRT            MX0    12                                                      COMCSRT COMCSRT      301     A     
 COMCSRT            ZR     X7,SRT13    IF UPL                                      COMCSRT COMCSRT      302     A     
 COMCSRT                                                                           COMCSRT COMCSRT      303     A     
 COMCSRT  **        CHECK FOR *SDR* TYPE.                                          COMCSRT COMCSRT      304     A     
 COMCSRT  *         *SDR* TYPE DEFINED AS A RECORD STARTING WITH A 50 TABLE.       COMCSRT COMCSRT      305     A     
 COMCSRT                                                                           COMCSRT COMCSRT      306     A     
 COMCSRT            BX1    X0*X4                                                   COMCSRT COMCSRT      307     A     
 COMCSRT            LX1    12                                                      COMCSRT COMCSRT      308     A     
 COMCSRT            SB7    X1-5000B                                                COMCSRT COMCSRT      309          I
          -CPSA104
 COMCSRT            NZ     B7,SRT1     IF NOT 50 TABLE                             COMCSRT COMCSRT      310          I
          -CPSA104
 COMCSRT            SB2    X1-5000B                                                CPSA104 CPSA104       37     A     
 COMCSRT            NZ     B2,SRT1     IF NOT 50 TABLE                             CPSA104 CPSA104       38     A     
 COMCSRT            SA2    A1+B1       LOAD 77 TABLE NAME                          COMCSRT COMCSRT      311     A     
 COMCSRT            SB2    O.SDR                                                   COMCSRT COMCSRT      312     A     
 COMCSRT            EQ     SRT13                                                   COMCSRT COMCSRT      313     A     
 COMCSRT                                                                                   CPSA257        6     A     
 COMCSRT  **        CHECK FOR *LEGAL* PIDL TABLE                                           CPSA257        7     A     
 COMCSRT  *         LEGAL PIDL TABLE HAS WC .GT. ZERO                                      CPSA257        8     A     
 COMCSRT                                                                                   CPSA257        9     A     
 COMCSRT   SRT17    BX1    X6          SHIFT TO GET WORD COUNT                             CPSA257       10     A     
 COMCSRT            LX1    12                                                              CPSA257       11     A     
 COMCSRT            SB3    X1                                                              CPSA257       12     A     
 COMCSRT            NZ     B3,SRT13    IF LEGAL PIDL, RELOCATABLE                          CPSA257       13     A     
 COMCSRT            SB2    O.DATA      IF NOT A LEGAL PIDL, MUST BE DATA                   CPSA257       14     A     
 COMCSRT            EQ     SRT13                                                           CPSA257       15     A     
 COMCSRT                                                                           COMCSRT COMCSRT      314     A     
 COMCSRT   SRTA     CON    77000077770000B                                         COMCSRT COMCSRT      315     A     
 COMCSRT   SRTB     CON    5LCHECK                                                 COMCSRT COMCSRT      316     A     
 COMCSRT   SRTC     CON    6L.PROC,                                                COMCSRT COMCSRT      317     A     
 COMCSRT   SRTD     CON    10L*COMDECK                                                     CPSA204       45          I
          -CPSA230
 COMCSRT   SRTE     CON    5L*YANK                                                         CPSA204       46          I
          -CPSA230
 COMCSRT   SRTF     CON    5L*DECK                                                         CPSA204       47          I
          -CPSA230
 COMCSRT   SRTD     CON    7LCOMDECK                                                       CPSA230       31     A     
 COMCSRT   SRTE     CON    4LYANK                                                          CPSA230       32     A     
 COMCSRT   SRTF     CON    4LDECK                                                          CPSA230       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/28. 19.11.32.      PAGE 117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSRT 
  
 COMCSRT   SRTG     CON    7LYANK$$$                                                       CPSA284       84     A     
 COMCSRT  SRT       SPACE  4,10                                                    COMCSRT COMCSRT      318     A     
 COMCSRT            BASE   *                                                       COMCSRT COMCSRT      319     A     
 COMCSRT   QUAL$    IF     -DEF,QUAL$                                              COMCSRT COMCSRT      320     A     
 COMCSRT            QUAL   *                                                       COMCSRT COMCSRT      321     A     
 COMCSRT   SRT      EQU    /COMCSRT/SRT                                            COMCSRT COMCSRT      322     A     
 COMCSRT   SRT=     EQU    /COMCSRT/SRT                                                    F4720D        14     A     
 COMCSRT   L.SRT    EQU    /COMCSRT/L.SRT                                          COMCSRT COMCSRT      323     A     
 COMCSRT   QUAL$    ENDIF                                                          COMCSRT COMCSRT      324     A     
 COMCSRT   SRT      ENDX                                                           COMCSRT COMCSRT      325     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSRT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSRT                    325       303
          CPSA104                      2         2
          F4720A                      24        21
          F4720D                       1         1
          CPSA204                     43        21
          CPSA210                      1         1
          CPS0281                      5         5
          CPSA230                     29        19
          CPS0306                     13        11
          CPS0323                     17        16
          CPSA257                     11        11
          CPS0345                     11         8
          CPSA284                     75        74
          CPSA295                      7         7
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSST 
  
 COMCSST  *COMDECK  COMCSST            SHELL SORT TABLE.                           COMCSST COMCSST        1     A     
 COMCSST   SST      CTEXT  COMCSST - SHELL SORT TABLE.                             COMCSST COMCSST        2     A     
 COMCSST   SST      SPACE  4,10                                                    COMCSST COMCSST        3     A     
 COMCSST            IF     -DEF,QUAL$,1                                            COMCSST COMCSST        4     A     
 COMCSST            QUAL   COMCSST                                                 COMCSST COMCSST        5     A     
 COMCSST            BASE   D                                                       COMCSST COMCSST        6     A     
 COMCSST   SST      SPACE  4,10                                                    COMCSST COMCSST        7     A     
 COMCSST  ***       SST - SHELL SORT TABLE.                                        COMCSST COMCSST        8     A     
 COMCSST  *                                                                        COMCSST COMCSST        9     A     
 COMCSST  *         R. HOTCHKISS.                                                  COMCSST COMCSST       10     A     
 COMCSST  *         L. A. LIDDIARD.                                                COMCSST COMCSST       11     A     
 COMCSST  *         E. J. MUNDSTOCK.   70/10/07.  UNIVERSITY OF MINNESOTA.         COMCSST COMCSST       12     A     
 COMCSST  *                                                                                CPSA245      158     A     
 COMCSST  *         *******************************************************                CPSA245      159     A     
 COMCSST  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      160     A     
 COMCSST  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      161     A     
 COMCSST  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      162     A     
 COMCSST  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      163     A     
 COMCSST  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      164     A     
 COMCSST  *         *******************************************************                CPSA245      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/28. 19.11.32.      PAGE 118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSST 
  
 COMCSST  *                                                                                CPSA245      166     A     
 COMCSST  *                                                                        COMCSST COMCSST       13     A     
 COMCSST  *         SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE.             COMCSST COMCSST       14     A     
 COMCSST   SST      SPACE  4,10                                                    COMCSST COMCSST       15     A     
 COMCSST  ***       SST SORTS A TABLE OF ONE-WORD ENTRIES INTO ASCENDING ORDER.    COMCSST COMCSST       16     A     
 COMCSST  *         ALL ENTRIES SHOULD BE OF THE SAME SIGN.                        COMCSST COMCSST       17     A     
 COMCSST  *                                                                        COMCSST COMCSST       18     A     
 COMCSST  *         ORIGIN OF TECHNIQUE IS *COMMUNICATIONS OF THE ACM*             COMCSST COMCSST       19     A     
 COMCSST  *         VOLUME 6, NUMBER 5 (MAY 1963), PAGE 209.                       COMCSST COMCSST       20     A     
 COMCSST  *                                                                        COMCSST COMCSST       21     A     
 COMCSST  *         ENTRY  (B1) = 1.                                               COMCSST COMCSST       22     A     
 COMCSST  *                (B7) = ADDRESS OF TABLE TO BE SORTED.                   COMCSST COMCSST       23     A     
 COMCSST  *                (X1) = NUMBER OF ELEMENTS IN ARRAY.                     COMCSST COMCSST       24     A     
 COMCSST  *                                                                        COMCSST COMCSST       25     A     
 COMCSST  *         EXIT   TABLE SORTED.                                           COMCSST COMCSST       26     A     
 COMCSST  *                                                                        COMCSST COMCSST       27     A     
 COMCSST  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCSST COMCSST       28     A     
 COMCSST  *                B - 2, 3, 4, 5.                                         COMCSST COMCSST       29     A     
 COMCSST  *                A - 1, 2, 6, 7.                                         COMCSST COMCSST       30     A     
 COMCSST  *                                                                        COMCSST COMCSST       31     A     
 COMCSST  *         CALLS  NONE.                                                   COMCSST COMCSST       32     A     
 COMCSST                                                                           COMCSST COMCSST       33     A     
 COMCSST                                                                           COMCSST COMCSST       34     A     
 COMCSST   SST1     SA7    B5-B4       T(J+K) = S                                  COMCSST COMCSST       35     A     
 COMCSST            SB2    B2+B1       I = I+1                                     COMCSST COMCSST       36     A     
 COMCSST            EQ     B2,B3,SST4  IF END OF TABLE                             COMCSST COMCSST       37     A     
 COMCSST   SST2     SA2    B2          S = T(I)                                    COMCSST COMCSST       38     A     
 COMCSST            NO                                                             COMCSST COMCSST       39     A     
 COMCSST            SB5    B2+B4       J = I-K                                     COMCSST COMCSST       40     A     
 COMCSST            BX7    X2                                                      COMCSST COMCSST       41     A     
 COMCSST   SST3     SA1    B5          T(J)                                        COMCSST COMCSST       42     A     
 COMCSST            IX3    X2-X1       COMPARE S AND T(J)                          COMCSST COMCSST       43     A     
 COMCSST            PL     X3,SST1     IF ELEMENTS IN ORDER                        COMCSST COMCSST       44     A     
 COMCSST            BX6    X1          T(J+K) = T(J)                               COMCSST COMCSST       45     A     
 COMCSST            SB5    B5+B4       J = J-K                                     COMCSST COMCSST       46     A     
 COMCSST            SA6    A1-B4                                                   COMCSST COMCSST       47     A     
 COMCSST            GE     B5,B7,SST3  IF J .NE. FIRST                             COMCSST COMCSST       48     A     
 COMCSST            EQ     SST1                                                    COMCSST COMCSST       49     A     
 COMCSST                                                                           COMCSST COMCSST       50     A     
 COMCSST                                                                           COMCSST COMCSST       51     A     
 COMCSST   SST4     AX4    1           K = K/2                                     COMCSST COMCSST       52     A     
 COMCSST            NO                                                             COMCSST COMCSST       53     A     
 COMCSST            SB4    X4          (B4) = -K                                   COMCSST COMCSST       54     A     
 COMCSST            SB2    B7-B4       I = FIRST+K                                 COMCSST COMCSST       55     A     
 COMCSST            NZ     X4,SST2     IF K .NE. 0                                 COMCSST COMCSST       56     A     
 COMCSST                                                                           COMCSST COMCSST       57     A     
 COMCSST   SST      SUBR               ENTRY/EXIT                                  COMCSST COMCSST       58     A     
 COMCSST            MX4    12          K = 2**(ENTIER(LOG2(COUNT)+1)               COMCSST COMCSST       59     A     
 COMCSST            SB3    B7+X1       (B3) = LAST+1                               COMCSST COMCSST       60     A     
 COMCSST            NX6,B2 X1                                                      COMCSST COMCSST       61     A     
 COMCSST            AX4    X4,B2                                                   COMCSST COMCSST       62     A     
 COMCSST            EQ     SST4        ENTER SORT LOOP                             COMCSST COMCSST       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/28. 19.11.32.      PAGE 119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSST 
  
 COMCSST   SST      SPACE  4,10                                                    COMCSST COMCSST       64     A     
 COMCSST            BASE   *                                                       COMCSST COMCSST       65     A     
 COMCSST   QUAL$    IF     -DEF,QUAL$                                              COMCSST COMCSST       66     A     
 COMCSST            QUAL   *                                                       COMCSST COMCSST       67     A     
 COMCSST   SST      EQU    /COMCSST/SST                                            COMCSST COMCSST       68     A     
 COMCSST   SST=     EQU    /COMCSST/SST                                                    F4720D        15     A     
 COMCSST   QUAL$    ENDIF                                                          COMCSST COMCSST       69     A     
 COMCSST   SST      ENDX                                                           COMCSST COMCSST       70     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSST 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSST                     70        70
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSTF 
  
 COMCSTF  *COMDECK  COMCSTF            SET TERMINAL FILE.                          COMCSTF COMCSTF        1     A     
 COMCSTF   STF      CTEXT  COMCSTF - SET TERMINAL FILE.                            COMCSTF COMCSTF        2     A     
 COMCSTF   STF      SPACE  4,10                                                    COMCSTF COMCSTF        3     A     
 COMCSTF            IF     -DEF,QUAL$,1                                            COMCSTF COMCSTF        4     A     
 COMCSTF            QUAL   COMCSTF                                                 COMCSTF COMCSTF        5     A     
 COMCSTF            BASE   D                                                       COMCSTF COMCSTF        6     A     
 COMCSTF  *         COMMENT COPYRIGHT CONTROL DATA CORP. 1971, 1978.               COMCSTF COMCSTF        7     A     
 COMCSTF   STF      SPACE  4,10                                                    COMCSTF COMCSTF        8     A     
 COMCSTF  ***       STF - SET TERMINAL FILE.                                       COMCSTF COMCSTF        9     A     
 COMCSTF  *                                                                        COMCSTF COMCSTF       10     A     
 COMCSTF  *         J. L. WARDELL.     71/01/29.                                   COMCSTF COMCSTF       11     A     
 COMCSTF  *         R. E. TATE.        73/04/08.                                   COMCSTF COMCSTF       12     A     
 COMCSTF  *         G. M. TOWNSEND.    77/05/26.                                   COMCSTF COMCSTF       13     A     
 COMCSTF  *         C. J. CONRAD.      81/08/06.                                           CPSA244        6     A     
 COMCSTF  *                                                                                CPSA244        7     A     
 COMCSTF  *         *******************************************************                CPSA244        8     A     
 COMCSTF  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA244        9     A     
 COMCSTF  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA244       10     A     
 COMCSTF  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA244       11     A     
 COMCSTF  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA244       12     A     
 COMCSTF  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA244       13     A     
 COMCSTF  *         *******************************************************                CPSA244       14     A     
 COMCSTF  *                                                                                CPSA244       15     A     
 COMCSTF  *                                                                        COMCSTF COMCSTF       14     A     
 COMCSTF  *         STF DETERMINES WHETHER A FILE IS ASSIGNED TO AN INTERACTIVE    COMCSTF COMCSTF       15     A     
 COMCSTF  *         TERMINAL.                                                      COMCSTF COMCSTF       16     A     
 COMCSTF   STF      SPACE  4,10                                                    COMCSTF COMCSTF       17     A     
 COMCSTF  ***       STF DETECTS IF A FILE IS ASSIGNED TO A TERMINAL.               COMCSTF COMCSTF       18     A     
 COMCSTF  *                                                                        COMCSTF COMCSTF       19     A     
 COMCSTF  *         ENTRY  (X2) = ADDRESS OF FET.                                  COMCSTF COMCSTF       20     A     
 COMCSTF  *                (B1) = 1.                                               COMCSTF COMCSTF       21     A     
 COMCSTF  *                FET MUST BE GREATER THAN FIVE WORDS IN LENGTH.          COMCSTF COMCSTF       22     A     
 COMCSTF  *                                                                        COMCSTF COMCSTF       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/28. 19.11.32.      PAGE 120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSTF 
  
 COMCSTF  *         EXIT   (X6) = 0 IF FILE IS TERMINAL FILE.                      COMCSTF COMCSTF       24     A     
 COMCSTF  *                (X2) = ADDRESS OF FET.                                  COMCSTF COMCSTF       25     A     
 COMCSTF  *                                                                        COMCSTF COMCSTF       26     A     
 COMCSTF  *         USES   A - 1, 4.                                               COMCSTF COMCSTF       27          I
          -CPSA244
 COMCSTF  *         USES   A - 1, 4, 6.                                                    CPSA244       16     A     
 COMCSTF  *                B - NONE.                                               COMCSTF COMCSTF       28     A     
 COMCSTF  *                X - 1, 3, 4, 6.                                         COMCSTF COMCSTF       29     A     
 COMCSTF  *                                                                        COMCSTF COMCSTF       30     A     
 COMCSTF  *         CALLS  CIO=.                                                   COMCSTF COMCSTF       31          I
          -CPS0303
 COMCSTF  *         MACROS OPEN.                                                           CPS0303        9     A     
 COMCSTF                                                                           COMCSTF COMCSTF       32     A     
 COMCSTF                                                                           COMCSTF COMCSTF       33     A     
 COMCSTF   STF      SUBR               ENTRY/EXIT                                  COMCSTF COMCSTF       34     A     
 COMCSTF            SA1    X2          CHECK FILE NAME AND STATUS                          CPSA244       17     A     
 COMCSTF            SX6    1                                                               CPSA244       18     A     
 COMCSTF            BX6    X6+X1       SET PREVIOUS STATUS COMPLETE                        CPSA244       19     A     
 COMCSTF            ZR     X1,STFX     IF NULL FILE, RETURN                                CPSA244       20     A     
 COMCSTF            SA6    STFA        SAVE FET STATUS                                     CPSA244       21     A     
 COMCSTF            OPEN   X2,ALTERNR,R                                            COMCSTF COMCSTF       35     A     
 COMCSTF            SA1    X2+B1                                                   COMCSTF COMCSTF       36          I
          -CPSA244
 COMCSTF            MX3    -12                                                     COMCSTF COMCSTF       37          I
          -CPSA244
 COMCSTF            SA1    STFA        RESTORE PREVIOUS FUNCTION CODE                      CPSA244       22     A     
 COMCSTF            MX3    -12                                                             CPSA244       23     A     
 COMCSTF            BX6    X1                                                              CPSA244       24     A     
 COMCSTF            SA1    X2+B1                                                           CPSA244       25     A     
 COMCSTF            SA6    X2                                                              CPSA244       26     A     
 COMCSTF            LX1    -48                                                     COMCSTF COMCSTF       38     A     
 COMCSTF            BX4    -X3*X1                                                  COMCSTF COMCSTF       39     A     
 COMCSTF            SX6    X4-2RTT     CHECK FOR DEVICE TYPE *TT*                  COMCSTF COMCSTF       40     A     
 COMCSTF            ZR     X6,STFX                                                 COMCSTF COMCSTF       41     A     
 COMCSTF            AX4    6                                                       COMCSTF COMCSTF       42     A     
 COMCSTF            SX6    X4-61B      CHECK FOR DEVICE TYPE 61B                   COMCSTF COMCSTF       43     A     
 COMCSTF            EQ     STFX        RETURN                                      COMCSTF COMCSTF       44     A     
 COMCSTF                                                                                   CPSA244       27     A     
 COMCSTF   STFA     CON    0           SAVE FET FUNCTION CODE                              CPSA244       28     A     
 COMCSTF   STF      SPACE  4,10                                                    COMCSTF COMCSTF       45     A     
 COMCSTF            BASE   *                                                       COMCSTF COMCSTF       46     A     
 COMCSTF   QUAL$    IF     -DEF,QUAL$                                              COMCSTF COMCSTF       47     A     
 COMCSTF            QUAL   *                                                       COMCSTF COMCSTF       48     A     
 COMCSTF   STF      EQU    /COMCSTF/STF                                            COMCSTF COMCSTF       49     A     
 COMCSTF   STF=     EQU    /COMCSTF/STF                                                    F4720D        16     A     
 COMCSTF   QUAL$    ENDIF                                                          COMCSTF COMCSTF       50     A     
 COMCSTF   STF      ENDX                                                           COMCSTF COMCSTF       51     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSTF 
  
          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/28. 19.11.32.      PAGE 121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSTF 
  
          COMCSTF                     51        47
          F4720D                       1         1
          CPS0303                      1         1
          CPSA244                     23        23
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR  *COMDECK  COMCSVR            SAVE REGISTERS.                             COMCSVR COMCSVR        1     A     
 COMCSVR   SVR      CTEXT  COMCSVR - SAVE ALL REGISTERS.                           COMCSVR COMCSVR        2     A     
 COMCSVR   SVR      SPACE  4,10                                                    COMCSVR COMCSVR        3     A     
 COMCSVR            IF     -DEF,QUAL$,1                                            COMCSVR COMCSVR        4     A     
 COMCSVR            QUAL   COMCSVR                                                 COMCSVR COMCSVR        5     A     
 COMCSVR            BASE   D                                                       COMCSVR COMCSVR        6     A     
 COMCSVR  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCSVR COMCSVR        7     A     
 COMCSVR   SVR      SPACE  4,10                                                    COMCSVR COMCSVR        8     A     
 COMCSVR  ***       SVR - SAVE ALL REGISTERS.                                      COMCSVR COMCSVR        9     A     
 COMCSVR  *                                                                        COMCSVR COMCSVR       10     A     
 COMCSVR  *         AUTHOR UNKNOWN.    CIRCA 1971.                                 CPSA104 CPSA104       39     A     
 COMCSVR  *         P. C. TAM.         77/06/18.                                   COMCSVR COMCSVR       11     A     
 COMCSVR  *                                                                        COMCSVR COMCSVR       12     A     
 COMCSVR  *         SVR SAVES ALL REGISTERS IN A SPECIFIED REGISTER SAVE AREA.     COMCSVR COMCSVR       13     A     
 COMCSVR  *                                                                                CPSA245      167     A     
 COMCSVR  *         *******************************************************                CPSA245      168     A     
 COMCSVR  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      169     A     
 COMCSVR  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      170     A     
 COMCSVR  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      171     A     
 COMCSVR  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      172     A     
 COMCSVR  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      173     A     
 COMCSVR  *         *******************************************************                CPSA245      174     A     
 COMCSVR  *                                                                                CPSA245      175     A     
 COMCSVR   SVR      SPACE  4,10                                                    COMCSVR COMCSVR       14     A     
 COMCSVR  ***       SVR SAVES ALL REGISTERS IN A SPECIFIED REGISTER SAVE AREA.     COMCSVR COMCSVR       15     A     
 COMCSVR  *         THE REGISTERS ARE SAVED IN THE FOLLOWING ORDER -               COMCSVR COMCSVR       16     A     
 COMCSVR  *         B0, B1, ..., B7, A0, A1, ..., A7, X0, X1, ..., X7.             COMCSVR COMCSVR       17     A     
 COMCSVR  *         EACH REGISTER OCCUPIES A FULL WORD WITH B AND A REGISTER       COMCSVR COMCSVR       18     A     
 COMCSVR  *         VALUES IN BITS 17-0. B AND A REGISTERS ARE SIGN EXTENDED.      COMCSVR COMCSVR       19     A     
 COMCSVR  *         MINUS ZERO (-0) IS PRESERVED IN ALL REGISTERS.                 COMCSVR COMCSVR       20     A     
 COMCSVR  *                                                                        COMCSVR COMCSVR       21     A     
 COMCSVR  *         ENTRY  BITS 17-0 OF THE WORD FROM WHICH SVR= WAS CALLED        COMCSVR COMCSVR       22     A     
 COMCSVR  *                CONTAIN THE ADDRESS OF THE REGISTER SAVE AREA.          COMCSVR COMCSVR       23     A     
 COMCSVR  *                                                                        COMCSVR COMCSVR       24     A     
 COMCSVR  *         EXIT   (SAVE - SAVE+7) = B REGISTERS.                          COMCSVR COMCSVR       25     A     
 COMCSVR  *                (SAVE+8 - SAVE+15) = A REGISTERS.                       COMCSVR COMCSVR       26     A     
 COMCSVR  *                (SAVE+16 - SAVE+23) = X REGISTERS.                      COMCSVR COMCSVR       27     A     
 COMCSVR  *                                                                        COMCSVR COMCSVR       28     A     
 COMCSVR  *         USES   A - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCSVR COMCSVR       29     A     
 COMCSVR  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCSVR COMCSVR       30     A     
 COMCSVR  *                X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCSVR COMCSVR       31     A     
 COMCSVR  *                                                                        COMCSVR COMCSVR       32     A     
 COMCSVR  *         CALLS  NONE.                                                   COMCSVR COMCSVR       33     A     
 COMCSVR                                                                           COMCSVR COMCSVR       34     A     
 COMCSVR                                                                           COMCSVR COMCSVR       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/28. 19.11.32.      PAGE 122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR   SAVEB    EQU    0                                                       COMCSVR COMCSVR       36     A     
 COMCSVR   SAVEA    EQU    8                                                       COMCSVR COMCSVR       37     A     
 COMCSVR   SAVEX    EQU    16                                                      COMCSVR COMCSVR       38     A     
 COMCSVR                                                                           COMCSVR COMCSVR       39     A     
 COMCSVR   SVR      SUBR               ENTRY/EXIT                                  COMCSVR COMCSVR       40     A     
 COMCSVR                                                                           COMCSVR COMCSVR       41     A     
 COMCSVR  *         CHECK FOR (B1) = 1. IF NOT, SAVE (B1) THE HARD WAY BY          COMCSVR COMCSVR       42     A     
 COMCSVR  *         EXECUTING THE RJ SEQUENCE AT *SVR2*. IF BIT                    COMCSVR COMCSVR       43     A     
 COMCSVR  *         2**N WAS ON IN (B1), THEN THE *RJ* AT (SVR2+2*N+1) WILL BE     COMCSVR COMCSVR       44     A     
 COMCSVR  *         EXECUTED, RESULTING IN AN /EQ SVR2+2*N+1/. IF BIT 2**N WAS     COMCSVR COMCSVR       45     A     
 COMCSVR  *         NOT ON IN (B1), THEN THE *RJ* WILL NOT BE EXECUTED. BY         COMCSVR COMCSVR       46     A     
 COMCSVR  *         QUERYING (SVR2+2*N+1), ONE CAN DETERMINE WHETHER OR NOT THE    COMCSVR COMCSVR       47     A     
 COMCSVR  *         BIT 2**N WAS ON IN (B1) BY THE PRESENCE OF AN *EQ* OR AN *RJ*  COMCSVR COMCSVR       48     A     
 COMCSVR  *         INSTRUCTION.                                                   COMCSVR COMCSVR       49     A     
 COMCSVR                                                                           COMCSVR COMCSVR       50     A     
 COMCSVR            MI     B1,SVR2     IF (B1) .LE. 0 (PRESERVE -0)                COMCSVR COMCSVR       51     A     
 COMCSVR            SB1    B1-1                                                    COMCSVR COMCSVR       52     A     
 COMCSVR            ZR     B1,SVR4     IF (B1) = 1                                 COMCSVR COMCSVR       53     A     
 COMCSVR            SB1    B1+1        RESTORE (B1)                                COMCSVR COMCSVR       54     A     
 COMCSVR                                                                           COMCSVR COMCSVR       55     A     
 COMCSVR  *         *RJ* SEQUENCE FOR SAVING (B1).                                 COMCSVR COMCSVR       56     A     
 COMCSVR                                                                           COMCSVR COMCSVR       57     A     
 COMCSVR   SVR2     PL     B1,*+2                                                  COMCSVR COMCSVR       58     A     
 COMCSVR   +        RJ     *                                                       COMCSVR COMCSVR       59     A     
 COMCSVR   B.NE.1   DUP    17                                                      COMCSVR COMCSVR       60     A     
 COMCSVR   +        SB1    B1+B1                                                   COMCSVR COMCSVR       61     A     
 COMCSVR            NO                                                             COMCSVR COMCSVR       62     A     
 COMCSVR            PL     B1,*+2                                                  COMCSVR COMCSVR       63     A     
 COMCSVR   +        RJ     *                                                       COMCSVR COMCSVR       64     A     
 COMCSVR   B.NE.1   ENDD                                                           COMCSVR COMCSVR       65     A     
 COMCSVR                                                                           COMCSVR COMCSVR       66     A     
 COMCSVR  *         FILLER BECAUSE RJ-S MUST BE 2 WORDS APART FOR RESTORE.         COMCSVR COMCSVR       67     A     
 COMCSVR                                                                           COMCSVR COMCSVR       68     A     
 COMCSVR   +        SB0    B0+                                                     COMCSVR COMCSVR       69     A     
 COMCSVR   SVR3     RJ     *           (B1) = 1/(B1) .NE. 1 FLAG                   COMCSVR COMCSVR       70     A     
 COMCSVR                                                                           COMCSVR COMCSVR       71     A     
 COMCSVR  *         SAVE   (A) - 4,5,6,7.                                          COMCSVR COMCSVR       72     A     
 COMCSVR  *                (X) - 4,5,6,7.                                          COMCSVR COMCSVR       73     A     
 COMCSVR                                                                           COMCSVR COMCSVR       74     A     
 COMCSVR   SVR4     SB1    A7-B0       SAVE (A7) TEMPORARILY.                      COMCSVR COMCSVR       75     A     
 COMCSVR            SA7    SVRA        SAVE (X7) TEMPORARILY                       COMCSVR COMCSVR       76     A     
 COMCSVR            SX7    A5-B0                                                   COMCSVR COMCSVR       77     A     
 COMCSVR            SA7    SVRB        SAVE (A5) TEMPORARILY                       COMCSVR COMCSVR       78     A     
 COMCSVR            BX7    X5                                                      COMCSVR COMCSVR       79     A     
 COMCSVR            SA7    SVRC        SAVE (X5) TEMPORARILY                       COMCSVR COMCSVR       80     A     
 COMCSVR            SA5    SVRX        (X5) = 30/EQ CALLER+1, 30/0                 COMCSVR COMCSVR       81     A     
 COMCSVR            LX5    30                                                      COMCSVR COMCSVR       82     A     
 COMCSVR            SA5    X5-1        (X5) = 30/RJ SVR=, 30/FWA OF RSA            COMCSVR COMCSVR       83     A     
 COMCSVR            SX7    B1-B0                                                   COMCSVR COMCSVR       84     A     
 COMCSVR            SB1    1                                                       COMCSVR COMCSVR       85     A     
 COMCSVR            SA7    X5+SAVEA+7  (A7) TO SAVE AREA                           COMCSVR COMCSVR       86     A     
 COMCSVR            SX7    A6-B0                                                   COMCSVR COMCSVR       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/28. 19.11.32.      PAGE 123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR            SA6    X5+SAVEX+6  (X6) TO SAVE AREA                           COMCSVR COMCSVR       88     A     
 COMCSVR            SA7    A7-B1       (A6) TO SAVE AREA                           COMCSVR COMCSVR       89     A     
 COMCSVR            BX6    X4                                                      COMCSVR COMCSVR       90     A     
 COMCSVR            SX7    A4-B0                                                   COMCSVR COMCSVR       91     A     
 COMCSVR            SA6    A6-2        (X4) TO SAVE AREA                           COMCSVR COMCSVR       92     A     
 COMCSVR            SA7    A7-2        (A4) TO SAVE AREA                           COMCSVR COMCSVR       93     A     
 COMCSVR                                                                           COMCSVR COMCSVR       94     A     
 COMCSVR  *         SAVE   (A) - 0,1,2,3.                                          COMCSVR COMCSVR       95     A     
 COMCSVR  *                (X) - 0,1,2,3.                                          COMCSVR COMCSVR       96     A     
 COMCSVR                                                                           COMCSVR COMCSVR       97     A     
 COMCSVR   SV=AX    ECHO   ,N=(3,2,1,0)                                            COMCSVR COMCSVR       98     A     
 COMCSVR            BX6    X.N                                                     COMCSVR COMCSVR       99     A     
 COMCSVR            SX7    A.N-B0                                                  COMCSVR COMCSVR      100     A     
 COMCSVR            SA6    A6-B1       (X.N) TO SAVE AREA                          COMCSVR COMCSVR      101     A     
 COMCSVR            SA7    A7-B1       (A.N) TO SAVE AREA                          COMCSVR COMCSVR      102     A     
 COMCSVR   SV=AX    ENDD                                                           COMCSVR COMCSVR      103     A     
 COMCSVR                                                                           COMCSVR COMCSVR      104     A     
 COMCSVR  *         SAVE (X7), (A5), (X5) FINALLY.                                 COMCSVR COMCSVR      105     A     
 COMCSVR                                                                           COMCSVR COMCSVR      106     A     
 COMCSVR            SA2    SVRA        (X2) = SAVED (X7)                           COMCSVR COMCSVR      107     A     
 COMCSVR            SA3    SVRB        (X3) = SAVED (A5)                           COMCSVR COMCSVR      108     A     
 COMCSVR            SA4    SVRC        (X4) = SAVED (X5)                           COMCSVR COMCSVR      109     A     
 COMCSVR            BX6    X2                                                      COMCSVR COMCSVR      110     A     
 COMCSVR            LX7    X3                                                      COMCSVR COMCSVR      111     A     
 COMCSVR            SA6    X5+SAVEX+7  (X7) TO SAVE AREA                           COMCSVR COMCSVR      112     A     
 COMCSVR            SA7    X5+SAVEA+5  (A5) TO SAVE AREA                           COMCSVR COMCSVR      113     A     
 COMCSVR            BX6    X4                                                      COMCSVR COMCSVR      114     A     
 COMCSVR            SA6    X5+SAVEX+5  (X5) TO SAVE AREA                           COMCSVR COMCSVR      115     A     
 COMCSVR                                                                           COMCSVR COMCSVR      116     A     
 COMCSVR  *         SAVE   (B) - 0,1,2,3,4,5,6,7.                                  COMCSVR COMCSVR      117     A     
 COMCSVR                                                                           COMCSVR COMCSVR      118     A     
 COMCSVR            BX6    X6-X6                                                   COMCSVR COMCSVR      119     A     
 COMCSVR            SA6    X5+SAVEB+0  (B0) = 0 TO SAVE AREA                       COMCSVR COMCSVR      120     A     
 COMCSVR            SX7    B1                                                      COMCSVR COMCSVR      121     A     
 COMCSVR            SA7    A6+B1                                                   COMCSVR COMCSVR      122     A     
 COMCSVR   SV=B     ECHO   ,U=(2,4,6),L=(3,5,7)                                    COMCSVR COMCSVR      123     A     
 COMCSVR            SX6    B.U-B0                                                  COMCSVR COMCSVR      124     A     
 COMCSVR            SX7    B.L-B0                                                  COMCSVR COMCSVR      125     A     
 COMCSVR            SA6    A7+B1                                                   COMCSVR COMCSVR      126     A     
 COMCSVR            SA7    A6+B1                                                   COMCSVR COMCSVR      127     A     
 COMCSVR   SV=B     ENDD                                                           COMCSVR COMCSVR      128     A     
 COMCSVR                                                                           COMCSVR COMCSVR      129     A     
 COMCSVR  *         SAVE (B1).                                                     COMCSVR COMCSVR      130     A     
 COMCSVR                                                                           COMCSVR COMCSVR      131     A     
 COMCSVR            SA5    SVR3        (X5) = (B1) = 1/(B1) .NE. 1 FLAG            COMCSVR COMCSVR      132     A     
 COMCSVR            SX4    0100B       (X4) = *RJ* OP CODE                         COMCSVR COMCSVR      133     A     
 COMCSVR            SX3    B1                                                      COMCSVR COMCSVR      134     A     
 COMCSVR            LX3    42-0-1      BIT FOR RECONSTRUCTION OF B1                COMCSVR COMCSVR      135     A     
 COMCSVR            SX6    A5                                                      COMCSVR COMCSVR      136     A     
 COMCSVR            LX4    29-11                                                   COMCSVR COMCSVR      137     A     
 COMCSVR            BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMCSVR COMCSVR      138     A     
 COMCSVR            LX6    59-29                                                   COMCSVR COMCSVR      139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSVR 
  
 COMCSVR            SA6    A5          RESTORE RJ    *                             COMCSVR COMCSVR      140     A     
 COMCSVR            LX5    59-56                                                   COMCSVR COMCSVR      141     A     
 COMCSVR            BX7    X7-X7                                                   COMCSVR COMCSVR      142     A     
 COMCSVR            PL     X5,SVRX     IF (B1) = 1, RETURN                         COMCSVR COMCSVR      143     A     
 COMCSVR            SB2    B1+B1                                                   COMCSVR COMCSVR      144     A     
 COMCSVR                                                                           COMCSVR COMCSVR      145     A     
 COMCSVR  *         ASSEMBLE ORIGINAL (B1) INTO (X7).                              COMCSVR COMCSVR      146     A     
 COMCSVR                                                                           COMCSVR COMCSVR      147     A     
 COMCSVR   SVR5     SA5    A5-B2                                                   COMCSVR COMCSVR      148     A     
 COMCSVR            IX3    X3+X3                                                   COMCSVR COMCSVR      149     A     
 COMCSVR            SX6    A5                                                      COMCSVR COMCSVR      150     A     
 COMCSVR            LX5    59-56                                                   COMCSVR COMCSVR      151     A     
 COMCSVR            BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMCSVR COMCSVR      152     A     
 COMCSVR            PL     X5,SVR6     IF BIT WAS CLEAR                            COMCSVR COMCSVR      153     A     
 COMCSVR            BX7    X7+X3                                                   COMCSVR COMCSVR      154     A     
 COMCSVR   SVR6     LX6    59-29       RESTORE RJ *                                COMCSVR COMCSVR      155     A     
 COMCSVR            SA6    A5                                                      COMCSVR COMCSVR      156     A     
 COMCSVR            PL     X3,SVR5     IF MORE BITS TO ASSEMBLE                    COMCSVR COMCSVR      157     A     
 COMCSVR                                                                           COMCSVR COMCSVR      158     A     
 COMCSVR  *         FINALLY SAVE (B1).                                             COMCSVR COMCSVR      159     A     
 COMCSVR                                                                           COMCSVR COMCSVR      160     A     
 COMCSVR            AX7    42          SIGN EXTEND                                 COMCSVR COMCSVR      161     A     
 COMCSVR            SA7    A7-7+1      (B1) TO SAVE AREA                           COMCSVR COMCSVR      162     A     
 COMCSVR            EQ     SVRX        RETURN                                      COMCSVR COMCSVR      163     A     
 COMCSVR                                                                           COMCSVR COMCSVR      164     A     
 COMCSVR  *         TEMPORARY SAVE AREAS.                                          COMCSVR COMCSVR      165     A     
 COMCSVR                                                                           COMCSVR COMCSVR      166     A     
 COMCSVR   SVRA     BSS    1           SAVE FOR (X7)                               COMCSVR COMCSVR      167     A     
 COMCSVR   SVRB     BSS    1           SAVE FOR (A5)                               COMCSVR COMCSVR      168     A     
 COMCSVR   SVRC     BSS    1           SAVE FOR (X5)                               COMCSVR COMCSVR      169     A     
 COMCSVR   SVR      SPACE  4,10                                                    COMCSVR COMCSVR      170     A     
 COMCSVR            BASE   *                                                       COMCSVR COMCSVR      171     A     
 COMCSVR   QUAL$    IF      -DEF,QUAL$                                             COMCSVR COMCSVR      172     A     
 COMCSVR            QUAL   *                                                       COMCSVR COMCSVR      173     A     
 COMCSVR   SVR      EQU    /COMCSVR/SVR                                            COMCSVR COMCSVR      174     A     
 COMCSVR   SVR=     EQU    /COMCSVR/SVR                                                    F4720D        17     A     
 COMCSVR   QUAL$    ENDIF                                                          COMCSVR COMCSVR      175     A     
 COMCSVR   SVR      ENDX                                                           COMCSVR COMCSVR      176     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSVR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSVR                    176       176
          CPSA104                      1         1
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSYS 
  
 COMCSYS  *COMDECK  COMCSYS            PROCESS SYSTEM REQUEST.                     COMCSYS COMCSYS        1     A     
 COMCSYS   SYS      CTEXT  COMCSYS - PROCESS SYSTEM REQUEST.                       COMCSYS COMCSYS        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/28. 19.11.32.      PAGE 125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSYS 
  
 COMCSYS   SYS      SPACE  4,10                                                    COMCSYS COMCSYS        3     A     
 COMCSYS            IF     -DEF,QUAL$,1                                            COMCSYS COMCSYS        4     A     
 COMCSYS            QUAL   COMCSYS                                                 COMCSYS COMCSYS        5     A     
 COMCSYS            BASE   D                                                       COMCSYS COMCSYS        6     A     
 COMCSYS            CODE   D                                                       COMCSYS COMCSYS        7     A     
 COMCSYS  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCSYS COMCSYS        8     A     
 COMCSYS   SYS      SPACE  4,10                                                    COMCSYS COMCSYS        9     A     
 COMCSYS  ***       SYS - PROCESS SYSTEM REQUEST.                                  COMCSYS COMCSYS       10     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       11     A     
 COMCSYS  *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS COMCSYS       12     A     
 COMCSYS  *                                                                                CPSA245      176     A     
 COMCSYS  *         *******************************************************                CPSA245      177     A     
 COMCSYS  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      178     A     
 COMCSYS  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      179     A     
 COMCSYS  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      180     A     
 COMCSYS  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      181     A     
 COMCSYS  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      182     A     
 COMCSYS  *         *******************************************************                CPSA245      183     A     
 COMCSYS  *                                                                                CPSA245      184     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       13     A     
 COMCSYS  *         SYS ISSUES A SYSTEM MONITOR REQUEST THROUGH RA+1.              COMCSYS COMCSYS       14     A     
 COMCSYS   SYS      SPACE  4,10                                                    COMCSYS COMCSYS       15     A     
 COMCSYS  ***       SYS WAITS FOR RA+1 TO CLEAR, THEN ISSUES THE DESIRED REQUEST.  COMCSYS COMCSYS       16     A     
 COMCSYS  *         CENTRAL EXCHANGE JUMP HARDWARE IS USED IF AVAILABLE.  IF NOT,  COMCSYS COMCSYS       17     A     
 COMCSYS  *         AND THE AUTO-RECALL BIT IS SET, SYS WAITS FOR THE MONITOR TO   COMCSYS COMCSYS       18     A     
 COMCSYS  *         PROCESS THE CALL BEFORE RETURNING.                             COMCSYS COMCSYS       19     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       20     A     
 COMCSYS  *         ENTRY  (X6) = SYSTEM REQUEST.                                  COMCSYS COMCSYS       21     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       22     A     
 COMCSYS  *         EXIT   REQUEST PROCESSED.                                      COMCSYS COMCSYS       23     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       24     A     
 COMCSYS  *         USES   A - 1, 6.                                               COMCSYS COMCSYS       25     A     
 COMCSYS  *                X - 6.                                                  COMCSYS COMCSYS       26     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       27     A     
 COMCSYS  *         CALLS  NONE.                                                   COMCSYS COMCSYS       28     A     
 COMCSYS                                                                           COMCSYS COMCSYS       29     A     
 COMCSYS                                                                           COMCSYS COMCSYS       30     A     
 COMCSYS   SYSA     SA1    A1          WAIT (RA.MTR) CLEAR IF AUTO RECALL          COMCSYS COMCSYS       31     A     
 COMCSYS            LX1    59-40                                                   COMCSYS COMCSYS       32     A     
 COMCSYS            MI     X1,SYS1                                                 COMCSYS COMCSYS       33     A     
 COMCSYS                                                                           COMCSYS COMCSYS       34     A     
 COMCSYS   SYS1     EQ     SYS2        FIRST ENTRY                                 COMCSYS COMCSYS       35     A     
 COMCSYS                                                                           COMCSYS COMCSYS       36     A     
 COMCSYS   SYS=     SUBR               ENTRY/EXIT                                  COMCSYS COMCSYS       37     A     
 COMCSYS   +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMCSYS COMCSYS       38     A     
 COMCSYS            NZ     X1,*                                                    COMCSYS COMCSYS       39     A     
 COMCSYS            SA6    A1          ENTER REQUEST                               COMCSYS COMCSYS       40     A     
 COMCSYS            EQ     SYS1                                                    COMCSYS COMCSYS       41     A     
 COMCSYS                                                                           COMCSYS COMCSYS       42     A     
 COMCSYS  *         INITIAL ENTRY TO SET TYPE OF CALL.                             COMCSYS COMCSYS       43     A     
 COMCSYS                                                                           COMCSYS COMCSYS       44     A     
 COMCSYS   SYS2     SA1    RA.CEJ      TEST FOR CENTRAL EXCHANGE JUMP SUPPORT      COMCSYS COMCSYS       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/28. 19.11.32.      PAGE 126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSYS 
  
 COMCSYS            MI     X1,SYS3                                                 COMCSYS COMCSYS       46     A     
 COMCSYS            SA1    SYSA        NO, USE WAIT LOOP                           COMCSYS COMCSYS       47     A     
 COMCSYS            EQ     SYS4                                                    COMCSYS COMCSYS       48     A     
 COMCSYS                                                                           COMCSYS COMCSYS       49     A     
 COMCSYS   SYS3     SX1    0130B       YES, USE XJ INSTRUCTION                     COMCSYS COMCSYS       50     A     
 COMCSYS            LX1    48                                                      COMCSYS COMCSYS       51     A     
 COMCSYS   SYS4     BX6    X6-X1       SWAP REGISTERS                              COMCSYS COMCSYS       52     A     
 COMCSYS            BX1    X6-X1                                                   COMCSYS COMCSYS       53     A     
 COMCSYS            BX6    X6-X1                                                   COMCSYS COMCSYS       54     A     
 COMCSYS            SA6    SYS1        SET MONITOR CALL                            COMCSYS COMCSYS       55     A     
 COMCSYS            BX6    X1          RESTORE (X6)                                COMCSYS COMCSYS       56     A     
 COMCSYS            SA1    RA.MTR      RESET (A1)                                  COMCSYS COMCSYS       57     A     
 COMCSYS            RJ     SYSA        CLEAR STACK                                 COMCSYS COMCSYS       58     A     
 COMCSYS   RCL      SPACE  4,10                                                    COMCSYS COMCSYS       59     A     
 COMCSYS  ***       RCL - PLACE PROGRAM ON RECALL.                                 COMCSYS COMCSYS       60     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       61     A     
 COMCSYS  *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS COMCSYS       62     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       63     A     
 COMCSYS  *         RCL ISSUES A SINGLE SYSTEM REQUEST FOR PERIODIC RECALL.        COMCSYS COMCSYS       64     A     
 COMCSYS  *         IF RA+1 IS BUSY, NO REQUEST IS ISSUED.                         COMCSYS COMCSYS       65     A     
 COMCSYS   RCL      SPACE  4,10                                                    COMCSYS COMCSYS       66     A     
 COMCSYS  ***       ENTRY  NONE.                                                   COMCSYS COMCSYS       67     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       68     A     
 COMCSYS  *         EXIT   REQUEST PROCESSED.                                      COMCSYS COMCSYS       69     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       70     A     
 COMCSYS  *         USES   A - 1.                                                  COMCSYS COMCSYS       71     A     
 COMCSYS  *                X - 1, 6.                                               COMCSYS COMCSYS       72     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       73     A     
 COMCSYS  *         CALLS  NONE.                                                   COMCSYS COMCSYS       74          I
          -CPS0303
 COMCSYS  *         MACROS SYSTEM.                                                         CPS0303       10     A     
 COMCSYS                                                                           COMCSYS COMCSYS       75     A     
 COMCSYS                                                                           COMCSYS COMCSYS       76     A     
 COMCSYS   RCL1     LX6    42          PROCESS REQUEST                             COMCSYS COMCSYS       77     A     
 COMCSYS            SYSTEM                                                         COMCSYS COMCSYS       78     A     
 COMCSYS   +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMCSYS COMCSYS       79     A     
 COMCSYS            NZ     X1,*                                                    COMCSYS COMCSYS       80     A     
 COMCSYS                                                                           COMCSYS COMCSYS       81     A     
 COMCSYS   RCL=     SUBR               ENTRY/EXIT                                  COMCSYS COMCSYS       82     A     
 COMCSYS            SA1    RA.MTR                                                  COMCSYS COMCSYS       83     A     
 COMCSYS            NZ     X1,RCLX     IF (RA.MTR) NOT CLEAR, RETURN               COMCSYS COMCSYS       84          I
          -CPSA104
 COMCSYS            NZ     X1,RCL=     IF (RA.MTR) NOT CLEAR, RETURN               CPSA104 CPSA104       40     A     
 COMCSYS            SX6    3RRCL       FORM RECALL REQUEST                         COMCSYS COMCSYS       85     A     
 COMCSYS            EQ     RCL1                                                    COMCSYS COMCSYS       86     A     
 COMCSYS   WNB      SPACE  4,10                                                    COMCSYS COMCSYS       87     A     
 COMCSYS  ***       WNB - WAIT NOT BUSY.                                           COMCSYS COMCSYS       88     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       89     A     
 COMCSYS  *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS COMCSYS       90     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       91     A     
 COMCSYS  *         WAIT FOR STATUS WORD BIT 0 TO BE SET.                          COMCSYS COMCSYS       92     A     
 COMCSYS  *         IF WORD IS INITIALLY 0, RETURN.                                COMCSYS COMCSYS       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/28. 19.11.32.      PAGE 127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSYS 
  
 COMCSYS   WNB      SPACE  4,10                                                    COMCSYS COMCSYS       94     A     
 COMCSYS  ***       ENTRY  (X2) = ADDRESS OF STATUS WORD.                          COMCSYS COMCSYS       95     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       96     A     
 COMCSYS  *         EXIT   RETURN WHEN BIT 0 OF STATUS WORD IS SET.                COMCSYS COMCSYS       97     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS       98     A     
 COMCSYS  *         USES   A - 1.                                                  COMCSYS COMCSYS       99     A     
 COMCSYS  *                X - 1, 6.                                               COMCSYS COMCSYS      100     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS      101     A     
 COMCSYS  *         CALLS  NONE.                                                   COMCSYS COMCSYS      102          I
          -CPS0303
 COMCSYS  *         MACROS SYSTEM.                                                         CPS0303       11     A     
 COMCSYS                                                                           COMCSYS COMCSYS      103     A     
 COMCSYS                                                                           COMCSYS COMCSYS      104     A     
 COMCSYS   WNB2     LX1    40          SET AUTO RECALL FLAG                        COMCSYS COMCSYS      105     A     
 COMCSYS            IX6    X6+X1                                                   COMCSYS COMCSYS      106     A     
 COMCSYS            SYSTEM             PROCESS REQUEST                             COMCSYS COMCSYS      107     A     
 COMCSYS                                                                           COMCSYS COMCSYS      108     A     
 COMCSYS   WNB=     SUBR               ENTRY/EXIT                                  COMCSYS COMCSYS      109     A     
 COMCSYS            SX6    3RRCL       FORM RECALL REQUEST                         COMCSYS COMCSYS      110     A     
 COMCSYS            LX6    42                                                      COMCSYS COMCSYS      111     A     
 COMCSYS            IX6    X6+X2                                                   COMCSYS COMCSYS      112     A     
 COMCSYS   WNB1     SA1    X6          CHECK STATUS WORD                           COMCSYS COMCSYS      113     A     
 COMCSYS            LX1    59                                                      COMCSYS COMCSYS      114     A     
 COMCSYS            MI     X1,WNBX     IF COMPLETE BIT SET, RETURN                 COMCSYS COMCSYS      115          I
          -CPSA104
 COMCSYS            ZR     X1,WNBX     IF BLANK STATUS, RETURN                     COMCSYS COMCSYS      116          I
          -CPSA104
 COMCSYS            MI     X1,WNB=     IF COMPLETE BIT SET, RETURN                 CPSA104 CPSA104       41     A     
 COMCSYS            ZR     X1,WNB=     IF BLANK STATUS, RETURN                     CPSA104 CPSA104       42     A     
 COMCSYS            SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMCSYS COMCSYS      117     A     
 COMCSYS            NZ     X1,WNB1                                                 COMCSYS COMCSYS      118     A     
 COMCSYS            SX1    1           CONTINUE RECALL                             COMCSYS COMCSYS      119     A     
 COMCSYS            EQ     WNB2                                                    COMCSYS COMCSYS      120     A     
 COMCSYS   MSG      SPACE  4,10                                                    COMCSYS COMCSYS      121     A     
 COMCSYS  ***       MSG - SEND MESSAGE.                                            COMCSYS COMCSYS      122     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS      123     A     
 COMCSYS  *         G. R. MANSFIELD.   70/09/12.                                   COMCSYS COMCSYS      124     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS      125     A     
 COMCSYS  *         MSG FORMATS AND ISSUES A SYSTEM REQUEST TO SEND A DAYFILE      COMCSYS COMCSYS      126     A     
 COMCSYS  *         MESSAGE.                                                       COMCSYS COMCSYS      127     A     
 COMCSYS   MSG      SPACE  4,10                                                    COMCSYS COMCSYS      128     A     
 COMCSYS  ***       ENTRY  (X1) = ADDRESS OF DATA.                                 COMCSYS COMCSYS      129     A     
 COMCSYS  *                (X6) = MESSAGE OPTION(S).                               COMCSYS COMCSYS      130     A     
 COMCSYS  *                            BIT 16 = AUTO RECALL (IF ON)                COMCSYS COMCSYS      131     A     
 COMCSYS  *                            BITS 11 - 0 = MESSAGE OPTION CODE.          COMCSYS COMCSYS      132     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS      133     A     
 COMCSYS  *         EXIT   RETURN WHEN OPERATION COMPLETE.                         COMCSYS COMCSYS      134     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS      135     A     
 COMCSYS  *         USES   A - 1, 6.                                               COMCSYS COMCSYS      136     A     
 COMCSYS  *         USES   X - 1, 6.                                               COMCSYS COMCSYS      137     A     
 COMCSYS  *                                                                        COMCSYS COMCSYS      138     A     
 COMCSYS  *         CALLS  NONE.                                                   COMCSYS COMCSYS      139          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCSYS 
  
          -CPS0303
 COMCSYS  *         MACROS SYSTEM.                                                         CPS0303       12     A     
 COMCSYS                                                                           COMCSYS COMCSYS      140     A     
 COMCSYS                                                                           COMCSYS COMCSYS      141     A     
 COMCSYS   MSG1     SX6    3RMSG*2     FORM MESSAGE REQUEST                        COMCSYS COMCSYS      142     A     
 COMCSYS            BX6    X6+X1                                                   COMCSYS COMCSYS      143     A     
 COMCSYS            LX6    40-59                                                   COMCSYS COMCSYS      144     A     
 COMCSYS            SYSTEM             PROCESS REQUEST                             COMCSYS COMCSYS      145     A     
 COMCSYS                                                                           COMCSYS COMCSYS      146     A     
 COMCSYS   MSG=     SUBR               ENTRY/EXIT                                  COMCSYS COMCSYS      147     A     
 COMCSYS            SX6    X6          THROW AWAY BIT 22 (OLD RECALL BIT)          COMCSYS COMCSYS      148     A     
 COMCSYS            LX6    24          MERGE OPTION(S) AND ADDRESS                 COMCSYS COMCSYS      149     A     
 COMCSYS            BX1    X6+X1                                                   COMCSYS COMCSYS      150     A     
 COMCSYS            SX6    X1                                                      COMCSYS COMCSYS      151     A     
 COMCSYS            LX1    59-40                                                   COMCSYS COMCSYS      152     A     
 COMCSYS            PL     X1,MSG1     IF NO AUTO RECALL                           COMCSYS COMCSYS      153     A     
 COMCSYS            LX1    40-59                                                   COMCSYS COMCSYS      154     A     
 COMCSYS            BX1    X1-X6       REMOVE MESSAGE ADDRESS                      COMCSYS COMCSYS      155     A     
 COMCSYS            LX6    30                                                      COMCSYS COMCSYS      156     A     
 COMCSYS            SA6    MSGA        STORE STATUS WORD                           COMCSYS COMCSYS      157     A     
 COMCSYS            SX6    A6                                                      COMCSYS COMCSYS      158     A     
 COMCSYS            IX1    X1+X6       SET INDIRECT ADDRESS                        COMCSYS COMCSYS      159     A     
 COMCSYS            LX1    59-40                                                   COMCSYS COMCSYS      160     A     
 COMCSYS            EQ     MSG1                                                    COMCSYS COMCSYS      161     A     
 COMCSYS                                                                           COMCSYS COMCSYS      162     A     
 COMCSYS   MSGA     VFD    30/**,30/0  STATUS WORD FOR MESSAGE WITH AUTO RECALL    COMCSYS COMCSYS      163     A     
 COMCSYS   SYS      SPACE  4,10                                                    COMCSYS COMCSYS      164     A     
 COMCSYS            BASE   *                                                       COMCSYS COMCSYS      165     A     
 COMCSYS            CODE   *                                                       COMCSYS COMCSYS      166     A     
 COMCSYS   QUAL$    IF     -DEF,QUAL$                                              COMCSYS COMCSYS      167     A     
 COMCSYS            QUAL   *                                                       COMCSYS COMCSYS      168     A     
 COMCSYS   SYS=     EQU    /COMCSYS/SYS=                                           COMCSYS COMCSYS      169     A     
 COMCSYS   RCL=     EQU    /COMCSYS/RCL=                                           COMCSYS COMCSYS      170     A     
 COMCSYS   WNB=     EQU    /COMCSYS/WNB=                                           COMCSYS COMCSYS      171     A     
 COMCSYS   MSG=     EQU    /COMCSYS/MSG=                                           COMCSYS COMCSYS      172     A     
 COMCSYS   QUAL$    ENDIF                                                          COMCSYS COMCSYS      173     A     
 COMCSYS   SYS      ENDX                                                           COMCSYS COMCSYS      174     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCSYS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCSYS                    174       168
          CPSA104                      3         3
          CPS0303                      3         3
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCUPC 
  
 COMCUPC  *COMDECK  COMCUPC            UNPACK CONTROL CARD.                        COMCUPC COMCUPC        1     A     
 COMCUPC   UPC      CTEXT  COMCUPC - UNPACK CONTROL CARD.                          COMCUPC COMCUPC        2     A     
 COMCUPC   UPC      SPACE  4,10                                                    COMCUPC COMCUPC        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/28. 19.11.32.      PAGE 129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCUPC 
  
 COMCUPC            IF     -DEF,QUAL$,1                                            COMCUPC COMCUPC        4     A     
 COMCUPC            QUAL   COMCUPC                                                 COMCUPC COMCUPC        5     A     
 COMCUPC            BASE   D                                                       COMCUPC COMCUPC        6     A     
 COMCUPC  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCUPC COMCUPC        7     A     
 COMCUPC   UPC      SPACE  4,10                                                    COMCUPC COMCUPC        8     A     
 COMCUPC  ***       UPC - UNPACK CONTROL CARD.                                     COMCUPC COMCUPC        9     A     
 COMCUPC  *                                                                        COMCUPC COMCUPC       10     A     
 COMCUPC  *         G. R. MANSFIELD.   70/12/12.                                   COMCUPC COMCUPC       11     A     
 COMCUPC  *         P. C. TAM.         77/05/25.                                   COMCUPC COMCUPC       12     A     
 COMCUPC  *                                                                                CPSA245      185     A     
 COMCUPC  *         *******************************************************                CPSA245      186     A     
 COMCUPC  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      187     A     
 COMCUPC  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      188     A     
 COMCUPC  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      189     A     
 COMCUPC  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      190     A     
 COMCUPC  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      191     A     
 COMCUPC  *         *******************************************************                CPSA245      192     A     
 COMCUPC  *                                                                                CPSA245      193     A     
 COMCUPC  *                                                                        COMCUPC COMCUPC       13     A     
 COMCUPC  *         UPC UNPACKS A CONTROL CARD TO INDIVIDUAL PARAMETERS.           COMCUPC COMCUPC       14     A     
 COMCUPC   UPC      SPACE  4,10                                                    COMCUPC COMCUPC       15     A     
 COMCUPC  ***       UPC UNPACKS A CONTROL CARD TO INDIVIDUAL PARAMETERS.           COMCUPC COMCUPC       16     A     
 COMCUPC  *         THE FOLLOWING CONDITIONS ARE NOTED.                            COMCUPC COMCUPC       17     A     
 COMCUPC  *         (1.)  IF (B7) IS NEGATIVE ON ENTRY, A BLANK AFTER THE KEYWORD  COMCUPC COMCUPC       18     A     
 COMCUPC  *                IS A SEPARATOR, OTHERWISE BLANKS ARE IGNORED.           COMCUPC COMCUPC       19     A     
 COMCUPC  *         (2.)  THE CHARACTERS +-/=,($ ARE CONSIDERED AS PARAMETER       COMCUPC COMCUPC       20     A     
 COMCUPC  *                SEPARATORS.                                             COMCUPC COMCUPC       21     A     
 COMCUPC  *         (3.)  THE CHARACTERS ). ARE CONSIDERED AS THE TERMINATION OF   COMCUPC COMCUPC       22     A     
 COMCUPC  *                THE CONTROL CARD.                                       COMCUPC COMCUPC       23     A     
 COMCUPC  *         (4.)  CHARACTERS WITH DISPLAY CODE VALUES 0, OR 60B - 77B      COMCUPC COMCUPC       24     A     
 COMCUPC  *                ARE ILLEGAL BEFORE THE TERMINATOR.                      COMCUPC COMCUPC       25     A     
 COMCUPC  *         (5.)  THE PARAMETER MUST CONTAIN 7 OR LESS CHARACTERS.         COMCUPC COMCUPC       26     A     
 COMCUPC  *         (6.)  THE PARAMETERS ARE STORED LEFT JUSTIFIED WITH ZERO       COMCUPC COMCUPC       27     A     
 COMCUPC  *                FILL.                                                   COMCUPC COMCUPC       28     A     
 COMCUPC  *         (7.)  THE SEPARATOR CHARACTER WILL BE PLACED IN THE            COMCUPC COMCUPC       29     A     
 COMCUPC  *                LOWER 18 BITS OF THE PARAMETER UNLESS IT IS A *,*       COMCUPC COMCUPC       30     A     
 COMCUPC  *                IN WHICH CASE THE LOWER 18 BITS WILL BE ZERO            COMCUPC COMCUPC       31     A     
 COMCUPC  *         (8.)  TWO SUCCESSIVE SEPARATORS OR A SEPARATOR FOLLOWED BY     COMCUPC COMCUPC       32     A     
 COMCUPC  *                A TERMINATOR RESULTS IN A PARAMETER OF ALL ZERO.        COMCUPC COMCUPC       33     A     
 COMCUPC  *                                                                        COMCUPC COMCUPC       34     A     
 COMCUPC  *         ENTRY  (X5) = FIRST WORD OF CONTROL CARD.                      COMCUPC COMCUPC       35     A     
 COMCUPC  *                (A5) = ADDRESS OF FIRST WORD.                           COMCUPC COMCUPC       36     A     
 COMCUPC  *                (B7) = ADDRESS FOR FIRST PARAMETER IF (B7) IS POSITIVE  COMCUPC COMCUPC       37     A     
 COMCUPC  *                       COMPLEMENT OF ADDRESS FOR FIRST PARAMETER IF     COMCUPC COMCUPC       38     A     
 COMCUPC  *                       (B7) IS NEGATIVE.                                COMCUPC COMCUPC       39     A     
 COMCUPC  *                (B1) = 1.                                               COMCUPC COMCUPC       40     A     
 COMCUPC  *                                                                        COMCUPC COMCUPC       41     A     
 COMCUPC  *         EXIT   (X6) = 0 IF NO ERROR DURING UNPACK.                     COMCUPC COMCUPC       42     A     
 COMCUPC  *                (B6) = PARAMETER COUNT.                                 COMCUPC COMCUPC       43     A     
 COMCUPC  *                                                                        COMCUPC COMCUPC       44     A     
 COMCUPC  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCUPC COMCUPC       45     A     
 COMCUPC  *                B - 2, 3, 4, 5, 6.                                      COMCUPC COMCUPC       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/28. 19.11.32.      PAGE 130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCUPC 
  
 COMCUPC  *                A - 1, 2, 5, 6, 7.                                      COMCUPC COMCUPC       47     A     
 COMCUPC  *                                                                        COMCUPC COMCUPC       48     A     
 COMCUPC  *         CALLS  NONE.                                                   COMCUPC COMCUPC       49     A     
 COMCUPC                                                                           COMCUPC COMCUPC       50     A     
 COMCUPC                                                                           COMCUPC COMCUPC       51     A     
 COMCUPC   UPC      SUBR               ENTRY/EXIT                                  COMCUPC COMCUPC       52     A     
 COMCUPC            SB2    B7                                                      COMCUPC COMCUPC       53     A     
 COMCUPC            PL     B2,UPC1     IF (B7) IS NEGATIVE ON ENTRY                COMCUPC COMCUPC       54     A     
 COMCUPC            SB2    -B7         IF NEGATIVE, RESET                          COMCUPC COMCUPC       55     A     
 COMCUPC   UPC1     SA6    B2          PRESET A6 FOR WRITE                         COMCUPC COMCUPC       56     A     
 COMCUPC            SX3    4100B       (X3) = MASK FOR TERMINATORS                 COMCUPC COMCUPC       57     A     
 COMCUPC            SB5    60          (B5) = CONSTANT 60                          COMCUPC COMCUPC       58     A     
 COMCUPC            MX0    -6          (X0) = CHARACTER MASK                       COMCUPC COMCUPC       59     A     
 COMCUPC            BX6    X6-X6       CLEAR ASSEMBLY                              COMCUPC COMCUPC       60     A     
 COMCUPC            SB2    B5          CLEAR CHARACTER COUNT                       COMCUPC COMCUPC       61     A     
 COMCUPC            MX2    18          (X2) = EXCESS CHARACTER MASK                COMCUPC COMCUPC       62     A     
 COMCUPC            MX4    1           (X4) = CHARACTER COUNTER                    COMCUPC COMCUPC       63     A     
 COMCUPC            SB6    B0          (B6) = ASSEMBLY INDEX                       COMCUPC COMCUPC       64     A     
 COMCUPC            EQ     UPC3        ENTER LOOP                                  COMCUPC COMCUPC       65     A     
 COMCUPC                                                                           COMCUPC COMCUPC       66     A     
 COMCUPC   UPC2     LX6    6           ADVANCE ASSEMBLY                            COMCUPC COMCUPC       67     A     
 COMCUPC            SB2    B2-6                                                    COMCUPC COMCUPC       68     A     
 COMCUPC            BX6    X6+X7                                                   COMCUPC COMCUPC       69     A     
 COMCUPC   UPC3     LX5    6           NEXT CHARACTER                              COMCUPC COMCUPC       70     A     
 COMCUPC            BX7    -X0*X5                                                  COMCUPC COMCUPC       71     A     
 COMCUPC            SB3    X7-1R9      CHECK CHARACTER                             COMCUPC COMCUPC       72     A     
 COMCUPC            LX4    6           ADVANCE DISASSEMBLY                         COMCUPC COMCUPC       73     A     
 COMCUPC            PL     X4,UPC4                                                 COMCUPC COMCUPC       74     A     
 COMCUPC                                                                           COMCUPC COMCUPC       75     A     
 COMCUPC  *         00 CHARACTER IS ILLEGAL AND * IS ALPHANUMERIC.                 COMCUPC COMCUPC       76     A     
 COMCUPC                                                                           COMCUPC COMCUPC       77     A     
 COMCUPC            SA5    A5+B1                                                   COMCUPC COMCUPC       78     A     
 COMCUPC   UPC4     ZR     X7,UPC7     IF CHARACTER = 00                           COMCUPC COMCUPC       79     A     
 COMCUPC            LT     B3,B1,UPC2  IF ALPHA/NUMERIC                            COMCUPC COMCUPC       80     A     
 COMCUPC            SB4    X7-60B      CHARS. 60-77B ARE ILLEGAL                           CPS0278        4     A     
 COMCUPC            GE     B4,UPC7                                                         CPS0278        5     A     
 COMCUPC            SB4    X7-1R*                                                  COMCUPC COMCUPC       81     A     
 COMCUPC            ZR     B4,UPC2     IF CHARACTER = *                            COMCUPC COMCUPC       82     A     
 COMCUPC                                                                           COMCUPC COMCUPC       83     A     
 COMCUPC  *         CHECK FOR BLANK AS SEPARATOR.                                  COMCUPC COMCUPC       84     A     
 COMCUPC                                                                           COMCUPC COMCUPC       85     A     
 COMCUPC            SB4    X7-1R       CHECK CHARACTER                             COMCUPC COMCUPC       86     A     
 COMCUPC            NZ     B4,UPC5     NOT BLANK, MUST BE SEPARATOR                COMCUPC COMCUPC       87     A     
 COMCUPC            PL     B7,UPC3     (B7) POSITIVE, BLANK IGNORED                COMCUPC COMCUPC       88     A     
 COMCUPC            NZ     B6,UPC3     NOT JUST AFTER KEYWORD, BLANK IGNORED       COMCUPC COMCUPC       89     A     
 COMCUPC            ZR     X6,UPC3     IF LEADING BLANK                                    CPSA276        9     A     
 COMCUPC                                                                           COMCUPC COMCUPC       90     A     
 COMCUPC  *         CHECK FOR PARAMETER .GT. 7 CHARACTERS.                         COMCUPC COMCUPC       91     A     
 COMCUPC                                                                           COMCUPC COMCUPC       92     A     
 COMCUPC   UPC5     BX1    X2*X6       CHECK ASSEMBLY                              COMCUPC COMCUPC       93     A     
 COMCUPC            LX6    X6,B2       LEFT JUSTIFY ASSEMBLY                       COMCUPC COMCUPC       94     A     
 COMCUPC            NZ     X1,UPC7     IF .GT. 7 CHARACTERS ASSEMBLED              COMCUPC COMCUPC       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/28. 19.11.32.      PAGE 131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCUPC 
  
 COMCUPC            AX1    X3,B3       CHECK FOR TERMINATOR                        COMCUPC COMCUPC       96     A     
 COMCUPC            EQ     B4,B1,UPC6  IF SEPARATOR = *,*                          COMCUPC COMCUPC       97     A     
 COMCUPC            BX6    X6+X7       INSERT SEPARATOR                            COMCUPC COMCUPC       98     A     
 COMCUPC   UPC6     SA6    A6                                                      COMCUPC COMCUPC       99     A     
 COMCUPC            SB2    B5          RESET ASSEMBLY                              COMCUPC COMCUPC      100     A     
 COMCUPC            BX6    X6-X6                                                   COMCUPC COMCUPC      101     A     
 COMCUPC            LX1    59                                                      COMCUPC COMCUPC      102     A     
 COMCUPC            SB6    B6+B1                                                   COMCUPC COMCUPC      103     A     
 COMCUPC            SA6    A6+B1       CLEAR LAST + 1                              COMCUPC COMCUPC      104     A     
 COMCUPC            PL     X1,UPC3     LOOP IF NOT TERMINATOR                      COMCUPC COMCUPC      105     A     
 COMCUPC            SA2    A6-B1       CLEAR TERMINATOR                            COMCUPC COMCUPC      106     A     
 COMCUPC            MX3    42                                                      COMCUPC COMCUPC      107     A     
 COMCUPC            BX7    X3*X2                                                   COMCUPC COMCUPC      108     A     
 COMCUPC            SA7    A2                                                      COMCUPC COMCUPC      109     A     
 COMCUPC            EQ     UPCX        RETURN                                      COMCUPC COMCUPC      110     A     
 COMCUPC                                                                           COMCUPC COMCUPC      111     A     
 COMCUPC   UPC7     SX6    B1          RETURN ERROR                                COMCUPC COMCUPC      112     A     
 COMCUPC            SB6    B0                                                      COMCUPC COMCUPC      113     A     
 COMCUPC            EQ     UPCX        RETURN                                      COMCUPC COMCUPC      114     A     
 COMCUPC   UPC      SPACE  4,10                                                    COMCUPC COMCUPC      115     A     
 COMCUPC            BASE   *                                                       COMCUPC COMCUPC      116     A     
 COMCUPC   QUAL$    IF     -DEF,QUAL$                                              COMCUPC COMCUPC      117     A     
 COMCUPC            QUAL   *                                                       COMCUPC COMCUPC      118     A     
 COMCUPC   UPC      EQU    /COMCUPC/UPC                                            COMCUPC COMCUPC      119     A     
 COMCUPC   UPC=     EQU    /COMCUPC/UPC                                                    F4720D        18     A     
 COMCUPC   QUAL$    ENDIF                                                          COMCUPC COMCUPC      120     A     
 COMCUPC   UPC      ENDX                                                           COMCUPC COMCUPC      121     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCUPC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCUPC                    121       121
          F4720D                       1         1
          CPS0278                      2         2
          CPSA245                      9         9
          CPSA276                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWOD 
  
 COMCWOD  *COMDECK  COMCWOD            CONVERT WORD TO OCTAL DISPLAY CODE.         COMCWOD COMCWOD        1     A     
 COMCWOD   WOD      CTEXT  COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.           COMCWOD COMCWOD        2     A     
 COMCWOD   WOD      SPACE  4,10                                                    COMCWOD COMCWOD        3     A     
 COMCWOD            IF     -DEF,QUAL$,1                                            COMCWOD COMCWOD        4     A     
 COMCWOD            QUAL   COMCWOD                                                 COMCWOD COMCWOD        5     A     
 COMCWOD            BASE   D                                                       COMCWOD COMCWOD        6     A     
 COMCWOD   WOD      SPACE  4,10                                                    COMCWOD COMCWOD        7     A     
 COMCWOD  ***       WOD - CONVERT WORD TO OCTAL DISPLAY CODE.                      COMCWOD COMCWOD        8     A     
 COMCWOD  *                                                                        COMCWOD COMCWOD        9     A     
 COMCWOD  *         C. R. WILLIS.      UNIVERSITY OF MINNESOTA.                    COMCWOD COMCWOD       10     A     
 COMCWOD  *                                                                                CPSA245      194     A     
 COMCWOD  *         *******************************************************                CPSA245      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/28. 19.11.32.      PAGE 132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWOD 
  
 COMCWOD  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      196     A     
 COMCWOD  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      197     A     
 COMCWOD  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      198     A     
 COMCWOD  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      199     A     
 COMCWOD  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      200     A     
 COMCWOD  *         *******************************************************                CPSA245      201     A     
 COMCWOD  *                                                                                CPSA245      202     A     
 COMCWOD  *                                                                        COMCWOD COMCWOD       11     A     
 COMCWOD  *         WOD CONVERTS A WORD INTO OCTAL DISPLAY CODE.                   COMCWOD COMCWOD       12     A     
 COMCWOD   WOD      SPACE  4,10                                                    COMCWOD COMCWOD       13     A     
 COMCWOD  ***       ENTRY  (X1) = WORD TO BE CONVERTED.                            COMCWOD COMCWOD       14     A     
 COMCWOD  *                                                                        COMCWOD COMCWOD       15     A     
 COMCWOD  *         EXIT   (X6,X7) = CONVERSION.                                   COMCWOD COMCWOD       16     A     
 COMCWOD  *                (B1) = 1.                                               COMCWOD COMCWOD       17     A     
 COMCWOD  *                                                                        COMCWOD COMCWOD       18     A     
 COMCWOD  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCWOD COMCWOD       19     A     
 COMCWOD  *                B - NONE.                                               COMCWOD COMCWOD       20     A     
 COMCWOD  *                A - 2, 3, 4, 5.                                         COMCWOD COMCWOD       21     A     
 COMCWOD  *                                                                        COMCWOD COMCWOD       22     A     
 COMCWOD  *         CALLS  NONE.                                                   COMCWOD COMCWOD       23     A     
 COMCWOD                                                                           COMCWOD COMCWOD       24     A     
 COMCWOD                                                                           COMCWOD COMCWOD       25     A     
 COMCWOD   WOD      SUBR               ENTRY/EXIT                                  COMCWOD COMCWOD       26     A     
 COMCWOD            IF     -DEF,B1=1,1                                             COMCWOD COMCWOD       27     A     
 COMCWOD            SB1    1                                                       COMCWOD COMCWOD       28     A     
 COMCWOD                                                                           COMCWOD COMCWOD       29     A     
 COMCWOD  *         (X1)   =           ABCDE FGHIJ KLMNO PQRST                     COMCWOD COMCWOD       30     A     
 COMCWOD                                                                           COMCWOD COMCWOD       31     A     
 COMCWOD            SA2    WODA        7.... 7.... 7.... 7....                     COMCWOD COMCWOD       32     A     
 COMCWOD            BX7    X2*X1       A.... F.... K.... P....                     COMCWOD COMCWOD       33     A     
 COMCWOD            LX1    3           BCDEF GHIJK LMNOP QRSTA                     COMCWOD COMCWOD       34     A     
 COMCWOD            BX6    X2*X1       B.... G.... L.... Q....                     COMCWOD COMCWOD       35     A     
 COMCWOD            LX1    3           CDEFG HIJKL MNOPQ RSTAB                     COMCWOD COMCWOD       36     A     
 COMCWOD            LX7    27          .K... .P... .A... .F...                     COMCWOD COMCWOD       37     A     
 COMCWOD            BX0    X2*X1       C.... H.... M.... R....                     COMCWOD COMCWOD       38     A     
 COMCWOD            LX6    21          ...L. ...Q. ...B. ...G.                     COMCWOD COMCWOD       39     A     
 COMCWOD            LX1    3           DEFGH IJKLM NOPQR STABC                     COMCWOD COMCWOD       40     A     
 COMCWOD            IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                     COMCWOD COMCWOD       41     A     
 COMCWOD            BX5    X2*X1       D.... I.... N.... S....                     COMCWOD COMCWOD       42     A     
 COMCWOD            LX1    3           EFGHI JKLMN OPQRS TABCD                     COMCWOD COMCWOD       43     A     
 COMCWOD            LX0    15          H.... M.... R.... C....                     COMCWOD COMCWOD       44     A     
 COMCWOD            BX6    X2*X1       E.... J.... O.... T....                     COMCWOD COMCWOD       45     A     
 COMCWOD            IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                     COMCWOD COMCWOD       46     A     
 COMCWOD            LX5    9           ..I.. ..N.. ..S.. ..D..                     COMCWOD COMCWOD       47     A     
 COMCWOD            LX6    3           ....J ....O ....T ....E                     COMCWOD COMCWOD       48     A     
 COMCWOD            IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                     COMCWOD COMCWOD       49     A     
 COMCWOD            SA4    A2+B1       .7.7. 7.7.7 ..... .....                     COMCWOD COMCWOD       50     A     
 COMCWOD            SA3    A4+B1       ..... .7.7. 7.7.7 .....                     COMCWOD COMCWOD       51     A     
 COMCWOD            BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                     COMCWOD COMCWOD       52     A     
 COMCWOD            BX2    X7*X4       .K.L. M.N.O ..... .....                     COMCWOD COMCWOD       53     A     
 COMCWOD            SA5    A3+B1       00000 00000 00000 00000                     COMCWOD COMCWOD       54     A     
 COMCWOD            BX1    X7*X3       ..... .P.Q. R.S.T .....                     COMCWOD COMCWOD       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/28. 19.11.32.      PAGE 133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWOD 
  
 COMCWOD            LX7    30          RASBT CFDGE HKILJ MPNQO                     COMCWOD COMCWOD       56     A     
 COMCWOD            IX2    X5+X2       .K.L. M.N.O 00000 00000                     COMCWOD COMCWOD       57     A     
 COMCWOD            BX0    X7*X4       .A.B. C.D.E ..... .....                     COMCWOD COMCWOD       58     A     
 COMCWOD            IX0    X0+X5       .A.B. C.D.E 00000 00000                     COMCWOD COMCWOD       59     A     
 COMCWOD            LX1    45          ..... ..... .P.Q. R.S.T                     COMCWOD COMCWOD       60     A     
 COMCWOD            BX3    X7*X3       ..... .F.G. H.I.J .....                     COMCWOD COMCWOD       61     A     
 COMCWOD            IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                     COMCWOD COMCWOD       62     A     
 COMCWOD            LX3    45          ..... ..... .F.G. H.I.J                     COMCWOD COMCWOD       63     A     
 COMCWOD            IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                     COMCWOD COMCWOD       64     A     
 COMCWOD            EQ     WODX        RETURN                                      COMCWOD COMCWOD       65     A     
 COMCWOD                                                                           COMCWOD COMCWOD       66     A     
 COMCWOD   WODA     CON    70000700007000070000B                                   COMCWOD COMCWOD       67     A     
 COMCWOD            CON    07070707070000000000B                                   COMCWOD COMCWOD       68     A     
 COMCWOD            CON    00000070707070700000B                                   COMCWOD COMCWOD       69     A     
 COMCWOD            CON    10H0000000000                                           COMCWOD COMCWOD       70     A     
 COMCWOD   WOD      SPACE  4,10                                                    COMCWOD COMCWOD       71     A     
 COMCWOD            BASE   *                                                       COMCWOD COMCWOD       72     A     
 COMCWOD   QUAL$    IF     -DEF,QUAL$                                              COMCWOD COMCWOD       73     A     
 COMCWOD            QUAL   *                                                       COMCWOD COMCWOD       74     A     
 COMCWOD   WOD      EQU    /COMCWOD/WOD                                            COMCWOD COMCWOD       75     A     
 COMCWOD   WOD=     EQU    /COMCWOD/WOD                                                    F4720D        19     A     
 COMCWOD   QUAL$    ENDIF                                                          COMCWOD COMCWOD       76     A     
 COMCWOD   WOD      ENDX                                                           COMCWOD COMCWOD       77     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWOD 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWOD                     77        77
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTC 
  
 COMCWTC  *COMDECK  COMCWTC            WRITE CODED LINE, *C* FORMAT.               COMCWTC COMCWTC        1     A     
 COMCWTC   WTC      CTEXT  COMCWTC - WRITE CODED LINE, -C- FORMAT.                 COMCWTC COMCWTC        2     A     
 COMCWTC   WTC      SPACE  4,10                                                    COMCWTC COMCWTC        3     A     
 COMCWTC            IF     -DEF,QUAL$,1                                            COMCWTC COMCWTC        4     A     
 COMCWTC            QUAL   COMCWTC                                                 COMCWTC COMCWTC        5     A     
 COMCWTC            BASE   D                                                       COMCWTC COMCWTC        6     A     
 COMCWTC  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTC COMCWTC        7     A     
 COMCWTC   WTC      SPACE  4,10                                                    COMCWTC COMCWTC        8     A     
 COMCWTC  ***       WTC - WRITE CODED LINE, -C- FORMAT.                            COMCWTC COMCWTC        9     A     
 COMCWTC  *                                                                        COMCWTC COMCWTC       10     A     
 COMCWTC  *         G. R. MANSFIELD.   70/10/09.                                   COMCWTC COMCWTC       11     A     
 COMCWTC  *         C. J. CONRAD.      81/08/06.                                           CPSA242       40     A     
 COMCWTC  *                                                                                CPSA242       41     A     
 COMCWTC  *         *******************************************************                CPSA242       42     A     
 COMCWTC  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA242       43     A     
 COMCWTC  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA242       44     A     
 COMCWTC  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA242       45     A     
 COMCWTC  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA242       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/28. 19.11.32.      PAGE 134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTC 
  
 COMCWTC  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA242       47     A     
 COMCWTC  *         *******************************************************                CPSA242       48     A     
 COMCWTC  *                                                                                CPSA242       49     A     
 COMCWTC  *                                                                        COMCWTC COMCWTC       12     A     
 COMCWTC  *         WTC WRITES A ZERO-BYTE-DELIMITED LINE TO A FILE.               COMCWTC COMCWTC       13     A     
 COMCWTC   WTC      SPACE  4,10                                                    COMCWTC COMCWTC       14     A     
 COMCWTC  ***       WTC TRANSFERS 1 CODED LINE IN -C- FORMAT FROM A                COMCWTC COMCWTC       15     A     
 COMCWTC  *         WORKING BUFFER TO A CIO BUFFER.                                COMCWTC COMCWTC       16     A     
 COMCWTC  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTC COMCWTC       17     A     
 COMCWTC  *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTC COMCWTC       18     A     
 COMCWTC  *         WTC WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTC COMCWTC       19     A     
 COMCWTC  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTC COMCWTC       20     A     
 COMCWTC  *         WILL BE RE-ISSUED.                                             COMCWTC COMCWTC       21     A     
 COMCWTC  *                                                                        COMCWTC COMCWTC       22     A     
 COMCWTC  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC COMCWTC       23     A     
 COMCWTC  *                (B6) = FWA WORKING BUFFER.                              COMCWTC COMCWTC       24     A     
 COMCWTC  *                                                                        COMCWTC COMCWTC       25     A     
 COMCWTC  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTC COMCWTC       26     A     
 COMCWTC  *                (B1) = 1.                                               COMCWTC COMCWTC       27     A     
 COMCWTC  *                                                                        COMCWTC COMCWTC       28     A     
 COMCWTC  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTC COMCWTC       29     A     
 COMCWTC  *                B - 1, 2, 3, 4, 5, 6.                                   COMCWTC COMCWTC       30     A     
 COMCWTC  *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTC COMCWTC       31     A     
 COMCWTC  *                                                                        COMCWTC COMCWTC       32     A     
 COMCWTC  *         CALLS  DCB=, WTX=.                                             COMCWTC COMCWTC       33     A     
 COMCWTC                                                                           COMCWTC COMCWTC       34     A     
 COMCWTC                                                                           COMCWTC COMCWTC       35     A     
 COMCWTC   +        EQ     WTC1                                                    COMCWTC COMCWTC       36     A     
 COMCWTC                                                                           COMCWTC COMCWTC       37     A     
 COMCWTC   WTC=     SUBR               ENTRY/EXIT                                  COMCWTC COMCWTC       38     A     
 COMCWTC            SA4    *-1                                                     COMCWTC COMCWTC       39     A     
 COMCWTC            IF     -DEF,B1=1,1                                             COMCWTC COMCWTC       40     A     
 COMCWTC            SB1    1                                                       COMCWTC COMCWTC       41     A     
 COMCWTC            SA1    X2+4        (B5) = LIMIT                                COMCWTC COMCWTC       42     A     
 COMCWTC            SA3    X2+B1       (X3) = FIRST                                COMCWTC COMCWTC       43     A     
 COMCWTC            MX4    -12         (X4) = BYTE MASK                            COMCWTC COMCWTC       44     A     
 COMCWTC            SB5    X1                                                      COMCWTC COMCWTC       45     A     
 COMCWTC                                                                           COMCWTC COMCWTC       46     A     
 COMCWTC  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTC COMCWTC       47     A     
 COMCWTC                                                                           COMCWTC COMCWTC       48     A     
 COMCWTC   WTC1     SA1    A3+2        (B4) = OUT                                  COMCWTC COMCWTC       49          I
          -CPSA242
 COMCWTC   WTC1     SA2    X2          (B2) = FET STATUS                                   CPSA242       50     A     
 COMCWTC            SA1    A3+2        (B4) = OUT                                          CPSA242       51     A     
 COMCWTC            SB2    X2                                                              CPSA242       52     A     
 COMCWTC            SA2    A3+B1       (X2) = IN                                   COMCWTC COMCWTC       50     A     
 COMCWTC            SB4    X1                                                      COMCWTC COMCWTC       51     A     
 COMCWTC                                                                           COMCWTC COMCWTC       52     A     
 COMCWTC  *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTC COMCWTC       53     A     
 COMCWTC                                                                           COMCWTC COMCWTC       54     A     
 COMCWTC   WTC2     SA1    B6          READ NEXT WORD                              COMCWTC COMCWTC       55     A     
 COMCWTC            SB3    X2+B1       (IN+1)                                      COMCWTC COMCWTC       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/28. 19.11.32.      PAGE 135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTC 
  
 COMCWTC            EQ     B3,B5,WTC4  IF (IN+1) = LIMIT                           COMCWTC COMCWTC       57     A     
 COMCWTC   WTC3     EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTC COMCWTC       58     A     
 COMCWTC            BX6    X1                                                      COMCWTC COMCWTC       59     A     
 COMCWTC            SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTC COMCWTC       60     A     
 COMCWTC            BX7    -X4*X1                                                  COMCWTC COMCWTC       61     A     
 COMCWTC            SA6    X2          STORE WORD                                  COMCWTC COMCWTC       62     A     
 COMCWTC            SX2    B3+         IN = IN+1                                   COMCWTC COMCWTC       63     A     
 COMCWTC            NZ     X7,WTC2     LOOP TO END OF LINE                         COMCWTC COMCWTC       64     A     
 COMCWTC            EQ     =XWTX=      EXIT                                        COMCWTC COMCWTC       65     A     
 COMCWTC                                                                           COMCWTC COMCWTC       66     A     
 COMCWTC   WTC4     SB3    X3          (IN+1) = FIRST                              COMCWTC COMCWTC       67     A     
 COMCWTC            EQ     WTC3                                                    COMCWTC COMCWTC       68     A     
 COMCWTC   WTC      SPACE  4,10                                                    COMCWTC COMCWTC       69     A     
 COMCWTC            BASE   *                                                       COMCWTC COMCWTC       70     A     
 COMCWTC   QUAL$    IF     -DEF,QUAL$                                              COMCWTC COMCWTC       71     A     
 COMCWTC            QUAL   *                                                       COMCWTC COMCWTC       72     A     
 COMCWTC   WTC=     EQU    /COMCWTC/WTC=                                           COMCWTC COMCWTC       73     A     
 COMCWTC   QUAL$    ENDIF                                                          COMCWTC COMCWTC       74     A     
 COMCWTC   WTC      ENDX                                                           COMCWTC COMCWTC       75     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTC 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTC                     75        74
          CPSA242                     13        13
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTH 
  
 COMCWTH  *COMDECK  COMCWTH            WRITE CODED LINE, *H* FORMAT.               COMCWTH COMCWTH        1     A     
 COMCWTH   WTH      CTEXT  COMCWTH - WRITE CODED LINE, -H- FORMAT.                 COMCWTH COMCWTH        2     A     
 COMCWTH   WTH      SPACE  4,10                                                    COMCWTH COMCWTH        3     A     
 COMCWTH            IF     -DEF,QUAL$,1                                            COMCWTH COMCWTH        4     A     
 COMCWTH            QUAL   COMCWTH                                                 COMCWTH COMCWTH        5     A     
 COMCWTH            BASE   D                                                       COMCWTH COMCWTH        6     A     
 COMCWTH  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTH COMCWTH        7     A     
 COMCWTH   WTH      SPACE  4,10                                                    COMCWTH COMCWTH        8     A     
 COMCWTH  ***       WTH - WRITE CODED LINE, *H* FORMAT.                            COMCWTH COMCWTH        9     A     
 COMCWTH  *                                                                        COMCWTH COMCWTH       10     A     
 COMCWTH  *         G. R. MANSFIELD.   70/10/09.                                   COMCWTH COMCWTH       11     A     
 COMCWTH  *         S. R. MCPHERSON.   74/09/30.                                   COMCWTH COMCWTH       12     A     
 COMCWTH  *         C. J. CONRAD.      81/08/06.                                           CPSA242       53     A     
 COMCWTH  *                                                                                CPSA242       54     A     
 COMCWTH  *         *******************************************************                CPSA242       55     A     
 COMCWTH  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA242       56     A     
 COMCWTH  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA242       57     A     
 COMCWTH  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA242       58     A     
 COMCWTH  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA242       59     A     
 COMCWTH  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA242       60     A     
 COMCWTH  *         *******************************************************                CPSA242       61     A     
 COMCWTH  *                                                                                CPSA242       62     A     
 COMCWTH  *                                                                        COMCWTH COMCWTH       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/28. 19.11.32.      PAGE 136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTH 
  
 COMCWTH  *         WTH TRIMS TRAILING SPACES AND WRITES A LINE TO A FILE.         COMCWTH COMCWTH       14     A     
 COMCWTH   WTH      SPACE  4,10                                                    COMCWTH COMCWTH       15     A     
 COMCWTH  ***       WTH TRANSFERS 1 CODED LINE IN -H- FORMAT FROM A                COMCWTH COMCWTH       16     A     
 COMCWTH  *         WORKING BUFFER TO A CIO BUFFER.  TRAILING SPACES ARE DELETED.  COMCWTH COMCWTH       17     A     
 COMCWTH  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTH COMCWTH       18     A     
 COMCWTH  *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTH COMCWTH       19     A     
 COMCWTH  *         WTH WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTH COMCWTH       20     A     
 COMCWTH  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTH COMCWTH       21     A     
 COMCWTH  *         WILL BE RE-ISSUED.                                             COMCWTH COMCWTH       22     A     
 COMCWTH  *         IF THE LINE TO BE WRITTEN TERMINATES WITH 6 BITS OF ZERO A     COMCWTH COMCWTH       23     A     
 COMCWTH  *         WORD CONTAINING A BLANK BYTE WILL BE APPENDED TO PRESERVE      COMCWTH COMCWTH       24     A     
 COMCWTH  *         THE  *00*  CHARACTER AS A COLON.  IF THE LINE TERMINATES       COMCWTH COMCWTH       25     A     
 COMCWTH  *         ON AN END-OF-LINE IT WILL BE WRITTEN AS IS.                    COMCWTH COMCWTH       26     A     
 COMCWTH  *                                                                        COMCWTH COMCWTH       27     A     
 COMCWTH  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTH COMCWTH       28     A     
 COMCWTH  *                (B6) = FWA WORKING BUFFER.                              COMCWTH COMCWTH       29     A     
 COMCWTH  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTH COMCWTH       30     A     
 COMCWTH  *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTH COMCWTH       31     A     
 COMCWTH  *                                                                        COMCWTH COMCWTH       32     A     
 COMCWTH  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTH COMCWTH       33     A     
 COMCWTH  *                (B1) = 1.                                               COMCWTH COMCWTH       34     A     
 COMCWTH  *                                                                        COMCWTH COMCWTH       35     A     
 COMCWTH  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTH COMCWTH       36     A     
 COMCWTH  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTH COMCWTH       37     A     
 COMCWTH  *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTH COMCWTH       38     A     
 COMCWTH  *                                                                        COMCWTH COMCWTH       39     A     
 COMCWTH  *         CALLS  DCB=, WTX=.                                             COMCWTH COMCWTH       40     A     
 COMCWTH                                                                           COMCWTH COMCWTH       41     A     
 COMCWTH                                                                           COMCWTH COMCWTH       42     A     
 COMCWTH   +        EQ     WTH3        ENTRY FROM DCB= ON A WRITE REQUEST          COMCWTH COMCWTH       43     A     
 COMCWTH                                                                           COMCWTH COMCWTH       44     A     
 COMCWTH   WTH=     SUBR               ENTRY/EXIT                                  COMCWTH COMCWTH       45     A     
 COMCWTH            SA4    WTHX                                                    COMCWTH COMCWTH       46          I
          -CPSA104
 COMCWTH            ZR     B7,WTHX     IF WORKING BUFFER EMPTY, RETURN             COMCWTH COMCWTH       47          I
          -CPSA104
 COMCWTH            SA4    WTH=        SET RETURN ADDRESS                          CPSA104 CPSA104       43     A     
 COMCWTH            ZR     B7,WTH=     IF WORKING BUFFER EMPTY, RETURN             CPSA104 CPSA104       44     A     
 COMCWTH            IF     -DEF,B1=1,1                                             COMCWTH COMCWTH       48     A     
 COMCWTH            SB1    1                                                       COMCWTH COMCWTH       49     A     
 COMCWTH                                                                           COMCWTH COMCWTH       50     A     
 COMCWTH  *         DELETE TRAILING BLANK WORDS.                                   COMCWTH COMCWTH       51     A     
 COMCWTH                                                                           COMCWTH COMCWTH       52     A     
 COMCWTH            SA3    WTHA        =1H                                         COMCWTH COMCWTH       53     A     
 COMCWTH            SA1    B6+B7       PRESET (A1)                                 COMCWTH COMCWTH       54     A     
 COMCWTH            SB7    B7+B1                                                   COMCWTH COMCWTH       55     A     
 COMCWTH   WTH1     SA1    A1-B1                                                   COMCWTH COMCWTH       56     A     
 COMCWTH            IX6    X1-X3                                                   COMCWTH COMCWTH       57     A     
 COMCWTH            SB7    B7-B1                                                   COMCWTH COMCWTH       58     A     
 COMCWTH            EQ     B7,B1,WTH2                                              COMCWTH COMCWTH       59     A     
 COMCWTH            ZR     X6,WTH1                                                 COMCWTH COMCWTH       60     A     
 COMCWTH   WTH2     SA1    X2+4        (B5) = LIMIT                                COMCWTH COMCWTH       61     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTH 
  
 COMCWTH            SA3    X2+B1       (X3) = FIRST                                COMCWTH COMCWTH       62     A     
 COMCWTH            SB5    X1                                                      COMCWTH COMCWTH       63     A     
 COMCWTH                                                                           COMCWTH COMCWTH       64     A     
 COMCWTH  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTH COMCWTH       65     A     
 COMCWTH                                                                           COMCWTH COMCWTH       66     A     
 COMCWTH   WTH3     SA1    A3+2        (B4) = OUT                                  COMCWTH COMCWTH       67          I
          -CPSA242
 COMCWTH   WTH3     SA2    X2          (B2) = FET STATUS                                   CPSA242       63     A     
 COMCWTH            SA1    A3+2        (B4) = OUT                                          CPSA242       64     A     
 COMCWTH            SB2    X2                                                              CPSA242       65     A     
 COMCWTH            SA2    A3+B1       (X2) = IN                                   COMCWTH COMCWTH       68     A     
 COMCWTH            SB4    X1                                                      COMCWTH COMCWTH       69     A     
 COMCWTH                                                                           COMCWTH COMCWTH       70     A     
 COMCWTH  *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTH COMCWTH       71     A     
 COMCWTH                                                                           COMCWTH COMCWTH       72     A     
 COMCWTH   WTH4     SB3    X2+1        (IN+1)                                      COMCWTH COMCWTH       73     A     
 COMCWTH            EQ     B3,B5,WTH9  IF (IN+1) = LIMIT                           COMCWTH COMCWTH       74     A     
 COMCWTH   WTH5     EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTH COMCWTH       75     A     
 COMCWTH            SA1    B6          READ WORD                                   COMCWTH COMCWTH       76     A     
 COMCWTH            SB7    B7-B1       DECREMENT WORD COUNT                        COMCWTH COMCWTH       77     A     
 COMCWTH            BX6    X1                                                      COMCWTH COMCWTH       78     A     
 COMCWTH            SA6    X2          STORE WORD                                  COMCWTH COMCWTH       79     A     
 COMCWTH            SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTH COMCWTH       80     A     
 COMCWTH            SX2    B3          IN = (IN+1)                                 COMCWTH COMCWTH       81     A     
 COMCWTH            GE     B7,B1,WTH4  LOOP TO LAST WORD                           COMCWTH COMCWTH       82     A     
 COMCWTH                                                                           COMCWTH COMCWTH       83     A     
 COMCWTH            MX1    -12         CHECK LAST BYTE                             COMCWTH COMCWTH       84     A     
 COMCWTH            BX7    -X1*X6                                                  COMCWTH COMCWTH       85     A     
 COMCWTH            ZR     X7,=XWTX=   EXIT IF 0000 BYTE                           COMCWTH COMCWTH       86     A     
 COMCWTH            SB6    WTHB        PREPARE ZERO WORD                           COMCWTH COMCWTH       87     A     
 COMCWTH            SX7    X7-2R                                                   COMCWTH COMCWTH       88     A     
 COMCWTH            ZR     X7,WTH6     IF *  * BYTE                                COMCWTH COMCWTH       89     A     
 COMCWTH            MX4    -6          SET CHARACTER MASK                          COMCWTH COMCWTH       90     A     
 COMCWTH            BX4    -X4*X6      GET LAST CHARACTER OF WORD                  COMCWTH COMCWTH       91     A     
 COMCWTH            NZ     X4,WTH4     IF LAST CHARACTER NOT  *00*                 COMCWTH COMCWTH       92     A     
 COMCWTH            SB6    WTHC        PRESERVE *00* CHARACTER WITH *  *           COMCWTH COMCWTH       93     A     
 COMCWTH            EQ     WTH4                                                    COMCWTH COMCWTH       94     A     
 COMCWTH                                                                           COMCWTH COMCWTH       95     A     
 COMCWTH  *         DELETE TRAILING SPACE BYTES.                                   COMCWTH COMCWTH       96     A     
 COMCWTH                                                                           COMCWTH COMCWTH       97     A     
 COMCWTH   WTH6     MX4    -6          SINGLE CHARACTER MASK                       COMCWTH COMCWTH       98     A     
 COMCWTH            LX4    12                                                      COMCWTH COMCWTH       99     A     
 COMCWTH            BX7    -X4*X6      GET RIGHT CHARACTER OF BYTE                 COMCWTH COMCWTH      100     A     
 COMCWTH            ZR     X7,WTH4     IF  *00*  CHARACTER ADD BLANK BYTE          COMCWTH COMCWTH      101     A     
 COMCWTH            SX2    2R          SET SPACE BYTE                              COMCWTH COMCWTH      102     A     
 COMCWTH   WTH7     BX6    X1*X6       ZERO OUT SPACE BYTE                         COMCWTH COMCWTH      103     A     
 COMCWTH            LX1    12          CHECK NEXT BYTE                             COMCWTH COMCWTH      104     A     
 COMCWTH            LX2    12                                                      COMCWTH COMCWTH      105     A     
 COMCWTH            BX7    -X1*X6      GET BYTE                                    COMCWTH COMCWTH      106     A     
 COMCWTH            LX4    12                                                      COMCWTH COMCWTH      107     A     
 COMCWTH            BX7    X7-X2       CHECK FOR SPACE BYTE                        COMCWTH COMCWTH      108     A     
 COMCWTH            NZ     X7,WTH8     IF NOT SPACE BYTE                           COMCWTH COMCWTH      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/28. 19.11.32.      PAGE 138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTH 
  
 COMCWTH            BX7    -X4*X6      CHECK CHARACTER BEFORE BYTE                 COMCWTH COMCWTH      110     A     
 COMCWTH            NZ     X7,WTH7     IF NOT  *00*  CHARACTER                     COMCWTH COMCWTH      111     A     
 COMCWTH   WTH8     SA6    A6                                                      COMCWTH COMCWTH      112     A     
 COMCWTH            SX2    B3                                                      COMCWTH COMCWTH      113     A     
 COMCWTH            EQ     =XWTX=      EXIT                                        COMCWTH COMCWTH      114     A     
 COMCWTH                                                                           COMCWTH COMCWTH      115     A     
 COMCWTH   WTH9     SB3    X3          (IN+1) = FIRST                              COMCWTH COMCWTH      116     A     
 COMCWTH            EQ     WTH5                                                    COMCWTH COMCWTH      117     A     
 COMCWTH                                                                           COMCWTH COMCWTH      118     A     
 COMCWTH   WTHA     DATA   1H                                                      COMCWTH COMCWTH      119     A     
 COMCWTH   WTHB     CON    0                                                       COMCWTH COMCWTH      120     A     
 COMCWTH   WTHC     DATA   2L                                                      COMCWTH COMCWTH      121     A     
 COMCWTH   WTH      SPACE  4,10                                                    COMCWTH COMCWTH      122     A     
 COMCWTH            BASE   *                                                       COMCWTH COMCWTH      123     A     
 COMCWTH   QUAL$    IF     -DEF,QUAL$                                              COMCWTH COMCWTH      124     A     
 COMCWTH            QUAL   *                                                       COMCWTH COMCWTH      125     A     
 COMCWTH   WTH=     EQU    /COMCWTH/WTH=                                           COMCWTH COMCWTH      126     A     
 COMCWTH   QUAL$    ENDIF                                                          COMCWTH COMCWTH      127     A     
 COMCWTH   WTH      ENDX                                                           COMCWTH COMCWTH      128     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTH 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTH                    128       125
          CPSA104                      2         2
          CPSA242                     13        13
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTO 
  
 COMCWTO  *COMDECK  COMCWTO            WRITE ONE WORD.                             COMCWTO COMCWTO        1     A     
 COMCWTO   WTO      CTEXT  COMCWTO - WRITE ONE WORD.                               COMCWTO COMCWTO        2     A     
 COMCWTO   WTO      SPACE  4,10                                                    COMCWTO COMCWTO        3     A     
 COMCWTO            IF     -DEF,QUAL$,1                                            COMCWTO COMCWTO        4     A     
 COMCWTO            QUAL   COMCWTO                                                 COMCWTO COMCWTO        5     A     
 COMCWTO            BASE   D                                                       COMCWTO COMCWTO        6     A     
 COMCWTO  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTO COMCWTO        7     A     
 COMCWTO   WTO      SPACE  4,10                                                    COMCWTO COMCWTO        8     A     
 COMCWTO  ***       WTO - WRITE ONE WORD.                                          COMCWTO COMCWTO        9     A     
 COMCWTO  *                                                                        COMCWTO COMCWTO       10     A     
 COMCWTO  *         D. A. CAHALANDER.  70/10/09.                                   COMCWTO COMCWTO       11     A     
 COMCWTO  *         C. J. CONRAD.      81/08/06.                                           CPSA242       66     A     
 COMCWTO  *                                                                                CPSA242       67     A     
 COMCWTO  *         *******************************************************                CPSA242       68     A     
 COMCWTO  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA242       69     A     
 COMCWTO  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA242       70     A     
 COMCWTO  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA242       71     A     
 COMCWTO  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA242       72     A     
 COMCWTO  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA242       73     A     
 COMCWTO  *         *******************************************************                CPSA242       74     A     
 COMCWTO  *                                                                                CPSA242       75     A     
 COMCWTO  *                                                                        COMCWTO COMCWTO       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/28. 19.11.32.      PAGE 139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTO 
  
 COMCWTO  *         WTO WRITES ONE WORD TO A FILE FROM X6.                         COMCWTO COMCWTO       13     A     
 COMCWTO   WTO      SPACE  4,10                                                    COMCWTO COMCWTO       14     A     
 COMCWTO  ***       WTO WRITES ONE WORD TO A CIO BUFFER FROM X6.                   COMCWTO COMCWTO       15     A     
 COMCWTO  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTO COMCWTO       16     A     
 COMCWTO  *         WTO WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTO COMCWTO       17     A     
 COMCWTO  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTO COMCWTO       18     A     
 COMCWTO  *         WILL BE RE-ISSUED.                                             COMCWTO COMCWTO       19     A     
 COMCWTO  *                                                                        COMCWTO COMCWTO       20     A     
 COMCWTO  *         ENTRY  (A1) = ADDRESS OF IN POINTER.                           COMCWTO COMCWTO       21     A     
 COMCWTO  *                (X1) = IN.                                              COMCWTO COMCWTO       22     A     
 COMCWTO  *                (X6) = WORD TO WRITE.                                   COMCWTO COMCWTO       23     A     
 COMCWTO  *                                                                        COMCWTO COMCWTO       24     A     
 COMCWTO  *         EXIT   (X2) = ADDRESS OF FET OF FILE.                          COMCWTO COMCWTO       25     A     
 COMCWTO  *                (B1) = 1.                                               COMCWTO COMCWTO       26     A     
 COMCWTO  *                                                                        COMCWTO COMCWTO       27     A     
 COMCWTO  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTO COMCWTO       28     A     
 COMCWTO  *                B - 1.                                                  COMCWTO COMCWTO       29     A     
 COMCWTO  *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTO COMCWTO       30     A     
 COMCWTO  *                                                                        COMCWTO COMCWTO       31     A     
 COMCWTO  *         CALLS  NONE.                                                   COMCWTO COMCWTO       32          I
          -CPS0303
 COMCWTO  *         MACROS RECALL, WRITE.                                                  CPS0303       13     A     
 COMCWTO                                                                           COMCWTO COMCWTO       33     A     
 COMCWTO                                                                           COMCWTO COMCWTO       34     A     
 COMCWTO   WTO1     SA6    X1          STORE WORD                                  COMCWTO COMCWTO       35     A     
 COMCWTO            SX2    A1-2                                                    COMCWTO COMCWTO       36     A     
 COMCWTO            SA7    A1          UPDATE IN                                   COMCWTO COMCWTO       37     A     
 COMCWTO                                                                           COMCWTO COMCWTO       38     A     
 COMCWTO   WTO=     SUBR               ENTRY/EXIT                                  COMCWTO COMCWTO       39     A     
 COMCWTO   WTO2     BSS    0                                                       COMCWTO COMCWTO       40     A     
 COMCWTO            IF     -DEF,B1=1,1                                             COMCWTO COMCWTO       41     A     
 COMCWTO            SB1    1                                                       COMCWTO COMCWTO       42     A     
 COMCWTO            SA2    A1-2        READ FET+0                                          CPSA242       76     A     
 COMCWTO            SA3    A1+B1       READ OUT                                    COMCWTO COMCWTO       43     A     
 COMCWTO            SX7    X1+B1       IN+1                                        COMCWTO COMCWTO       44     A     
 COMCWTO            NO                                                             COMCWTO COMCWTO       45          I
          -CPSA242
 COMCWTO            IX4    X7-X3       IN+1 - OUT                                  COMCWTO COMCWTO       46     A     
 COMCWTO            NG     X4,WTO1     IF NO WRAP AROUND                           COMCWTO COMCWTO       47     A     
 COMCWTO            SA3    A3+B1       READ LIMIT                                  COMCWTO COMCWTO       48     A     
 COMCWTO            SX2    X3                                                      COMCWTO COMCWTO       49          I
          -CPSA242
 COMCWTO            ZR     X4,WTO3     IF BUFFER FULL                              COMCWTO COMCWTO       50     A     
 COMCWTO            IX4    X7-X2       IN+1 - LIMIT                                COMCWTO COMCWTO       51          I
          -CPSA242
 COMCWTO            NZ     X4,WTO1     IF IN+1 .NE. LIMIT                          COMCWTO COMCWTO       52          I
          -CPSA242
 COMCWTO            SA3    A1-B1       READ FIRST                                  COMCWTO COMCWTO       53          I
          -CPSA242
 COMCWTO            SA2    A1+B1       READ OUT                                    COMCWTO COMCWTO       54          I
          -CPSA242
 COMCWTO            SX7    X3          IN+1                                        COMCWTO COMCWTO       55          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTO 
  
          -CPSA242
 COMCWTO            IX4    X7-X2                                                   COMCWTO COMCWTO       56          I
          -CPSA242
 COMCWTO            NZ     X4,WTO1     IF IN+1 .NE. OUT                            COMCWTO COMCWTO       57          I
          -CPSA242
 COMCWTO            SX3    X3                                                              CPSA242       77     A     
 COMCWTO            IX4    X7-X3       IN+1 - LIMIT                                        CPSA242       78     A     
 COMCWTO            SA3    A1-B1       READ FIRST                                          CPSA242       79     A     
 COMCWTO            NZ     X4,WTO1     IF IN+1 .NE. LIMIT                                  CPSA242       80     A     
 COMCWTO            SX7    X3          IN+1 = FIRST                                        CPSA242       81     A     
 COMCWTO            SA3    A1+B1       READ OUT                                            CPSA242       82     A     
 COMCWTO            IX4    X7-X3                                                           CPSA242       83     A     
 COMCWTO            NZ     X4,WTO1     IF IN+1 .NE. OUT                                    CPSA242       84     A     
 COMCWTO                                                                           COMCWTO COMCWTO       58     A     
 COMCWTO  *         DUMP CIRCULAR BUFFER.                                          COMCWTO COMCWTO       59     A     
 COMCWTO                                                                           COMCWTO COMCWTO       60     A     
 COMCWTO   WTO3     BX4    X6          SAVE WORD                                   COMCWTO COMCWTO       61          I
          -CPSA242
 COMCWTO            SA1    A1-2        CHECK STATUS                                COMCWTO COMCWTO       62          I
          -CPSA242
 COMCWTO            SX2    A1                                                      COMCWTO COMCWTO       63          I
          -CPSA242
 COMCWTO            LX1    -1                                                      COMCWTO COMCWTO       64          I
          -CPSA242
 COMCWTO   WTO3     BX1    X2                                                              CPSA242       85     A     
 COMCWTO            BX4    X6          SAVE WORD                                           CPSA242       86     A     
 COMCWTO            LX1    59-0                                                            CPSA242       87     A     
 COMCWTO            SX2    A2                                                              CPSA242       88     A     
 COMCWTO            NG     X1,WTO5     IF NOT BUSY                                 COMCWTO COMCWTO       65     A     
 COMCWTO            ZR     X1,WTOX     IF BLANK FET, RETURN                        COMCWTO COMCWTO       66          I
          -CPSA104
 COMCWTO            ZR     X1,WTO=     IF BLANK FET, RETURN                        CPSA104 CPSA104       45          I
          -CPSA242
 COMCWTO            ZR     X1,WTO5     IF BLANK FET                                        CPSA242       89     A     
 COMCWTO            RECALL X2                                                      COMCWTO COMCWTO       67     A     
 COMCWTO   WTO4     SA1    X2+2        READ IN                                     COMCWTO COMCWTO       68     A     
 COMCWTO            BX6    X4                                                      COMCWTO COMCWTO       69     A     
 COMCWTO            SA3    A1+B1       READ OUT                                    COMCWTO COMCWTO       70          I
          -CPSA242
 COMCWTO            EQ     WTO2        CONTINUE WRITE                              COMCWTO COMCWTO       71     A     
 COMCWTO   WRIF$    IF     DEF,WRIF$                                               COMCWTO COMCWTO       72     A     
 COMCWTO   WTO5     SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTO COMCWTO       73     A     
 COMCWTO            SX6    774B                                                    COMCWTO COMCWTO       74     A     
 COMCWTO            BX7    X6*X1                                                   COMCWTO COMCWTO       75     A     
 COMCWTO            RJ     =XCIO=                                                  COMCWTO COMCWTO       76     A     
 COMCWTO   WRIF$    ELSE   1                                                       COMCWTO COMCWTO       77     A     
 COMCWTO   WTO5     WRITE  X2                                                      COMCWTO COMCWTO       78     A     
 COMCWTO            EQ     WTO4        CONTINUE WRITE                              COMCWTO COMCWTO       79     A     
 COMCWTO   WTO      SPACE  4,10                                                    COMCWTO COMCWTO       80     A     
 COMCWTO            BASE   *                                                       COMCWTO COMCWTO       81     A     
 COMCWTO   QUAL$    IF     -DEF,QUAL$                                              COMCWTO COMCWTO       82     A     
 COMCWTO            QUAL   *                                                       COMCWTO COMCWTO       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/28. 19.11.32.      PAGE 141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTO 
  
 COMCWTO   WTO=     EQU    /COMCWTO/WTO=                                           COMCWTO COMCWTO       84     A     
 COMCWTO   QUAL$    ENDIF                                                          COMCWTO COMCWTO       85     A     
 COMCWTO   WTO      ENDX                                                           COMCWTO COMCWTO       86     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTO 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTO                     86        70
          CPSA104                      1         0
          CPS0303                      1         1
          CPSA242                     24        24
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTS 
  
 COMCWTS  *COMDECK  COMCWTS            WRITE CODED LINE FROM STRING BUFFER.        COMCWTS COMCWTS        1     A     
 COMCWTS   WTS      CTEXT  COMCWTS - WRITE CODED LINE FROM STRING BUFFER.          COMCWTS COMCWTS        2     A     
 COMCWTS   WTS      SPACE  4,10                                                    COMCWTS COMCWTS        3     A     
 COMCWTS            IF     -DEF,QUAL$,1                                            COMCWTS COMCWTS        4     A     
 COMCWTS            QUAL   COMCWTS                                                 COMCWTS COMCWTS        5     A     
 COMCWTS            BASE   D                                                       COMCWTS COMCWTS        6     A     
 COMCWTS  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTS COMCWTS        7     A     
 COMCWTS   WTS      SPACE  4,10                                                    COMCWTS COMCWTS        8     A     
 COMCWTS  ***       WTS - WRITE CODED LINE FROM STRING BUFFER.                     COMCWTS COMCWTS        9     A     
 COMCWTS  *                                                                        COMCWTS COMCWTS       10     A     
 COMCWTS  *         R. S. HORECK.      71/05/19.                                   COMCWTS COMCWTS       11     A     
 COMCWTS  *         S. R. MCPHERSON.   74/09/30.                                   COMCWTS COMCWTS       12     A     
 COMCWTS  *         C. J. CONRAD.      81/08/06.                                           CPSA242       90     A     
 COMCWTS  *                                                                                CPSA242       91     A     
 COMCWTS  *         *******************************************************                CPSA242       92     A     
 COMCWTS  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA242       93     A     
 COMCWTS  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA242       94     A     
 COMCWTS  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA242       95     A     
 COMCWTS  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA242       96     A     
 COMCWTS  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA242       97     A     
 COMCWTS  *         *******************************************************                CPSA242       98     A     
 COMCWTS  *                                                                                CPSA242       99     A     
 COMCWTS  *                                                                        COMCWTS COMCWTS       13     A     
 COMCWTS  *         WTS PACKS A STRING INTO WORDS AND WRITES A LINE.               COMCWTS COMCWTS       14     A     
 COMCWTS   WTS      SPACE  4,10                                                    COMCWTS COMCWTS       15     A     
 COMCWTS  ***       WTS TRANSFERS 1 CODED LINE FROM A STRING BUFFER TO             COMCWTS COMCWTS       16     A     
 COMCWTS  *         A CIO BUFFER WITH TRAILING SPACE SUPPRESSION.                  COMCWTS COMCWTS       17     A     
 COMCWTS  *         CHARACTERS IN THE WORKING BUFFER ARE PACKED AND STORED IN      COMCWTS COMCWTS       18     A     
 COMCWTS  *         THE CIRCULAR BUFFER.                                           COMCWTS COMCWTS       19     A     
 COMCWTS  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTS COMCWTS       20     A     
 COMCWTS  *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTS COMCWTS       21     A     
 COMCWTS  *         WTS WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTS COMCWTS       22     A     
 COMCWTS  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTS COMCWTS       23     A     
 COMCWTS  *         WILL BE RE-ISSUED.                                             COMCWTS COMCWTS       24     A     
 COMCWTS  *                                                                        COMCWTS COMCWTS       25     A     
 COMCWTS  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTS COMCWTS       26     A     
 COMCWTS  *                (B6) = FWA WORKING BUFFER.                              COMCWTS COMCWTS       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/28. 19.11.32.      PAGE 142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTS 
  
 COMCWTS  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTS COMCWTS       28     A     
 COMCWTS  *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTS COMCWTS       29     A     
 COMCWTS  *                                                                        COMCWTS COMCWTS       30     A     
 COMCWTS  *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTS COMCWTS       31     A     
 COMCWTS  *                (B6) = WORD COUNT OF DATA WRITTEN.                      COMCWTS COMCWTS       32     A     
 COMCWTS  *                (B1) = 1.                                               COMCWTS COMCWTS       33     A     
 COMCWTS  *                                                                        COMCWTS COMCWTS       34     A     
 COMCWTS  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTS COMCWTS       35     A     
 COMCWTS  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTS COMCWTS       36     A     
 COMCWTS  *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTS COMCWTS       37     A     
 COMCWTS  *                                                                        COMCWTS COMCWTS       38     A     
 COMCWTS  *         CALLS  DCB=, WTX=.                                             COMCWTS COMCWTS       39     A     
 COMCWTS                                                                           COMCWTS COMCWTS       40     A     
 COMCWTS                                                                           COMCWTS COMCWTS       41     A     
 COMCWTS   +        EQ     WTS3        ENTRY FROM DCB= ON A WRITE REQUEST          COMCWTS COMCWTS       42     A     
 COMCWTS                                                                           COMCWTS COMCWTS       43     A     
 COMCWTS   WTS=     SUBR               ENTRY/EXIT                                  COMCWTS COMCWTS       44     A     
 COMCWTS            SA4    WTSX                                                    COMCWTS COMCWTS       45          I
          -CPSA104
 COMCWTS            SA4    WTS=        SET RETURN ADDRESS                          CPSA104 CPSA104       46     A     
 COMCWTS            IF     -DEF,B1=1,1                                             COMCWTS COMCWTS       46     A     
 COMCWTS            SB1    1                                                       COMCWTS COMCWTS       47     A     
 COMCWTS                                                                           COMCWTS COMCWTS       48     A     
 COMCWTS            ZR     B7,WTSX     IF WORKING BUFFER EMPTY, RETURN             COMCWTS COMCWTS       49          I
          -CPSA104
 COMCWTS            ZR     B7,WTS=     IF WORKING BUFFER EMPTY, RETURN             CPSA104 CPSA104       47     A     
 COMCWTS            SA1    X2+4        (B5) = LIMIT                                COMCWTS COMCWTS       50     A     
 COMCWTS            SB4    B6+B7                                                   COMCWTS COMCWTS       51     A     
 COMCWTS            SB5    X1                                                      COMCWTS COMCWTS       52     A     
 COMCWTS            SX7    1R                                                      COMCWTS COMCWTS       53     A     
 COMCWTS            SA1    B4-B1       READ LAST CHARACTER                         COMCWTS COMCWTS       54     A     
 COMCWTS            SB2    B1+B1       (2)                                         COMCWTS COMCWTS       55     A     
 COMCWTS   WTS1     BX6    X1-X7       CHECK FOR BLANKS                            COMCWTS COMCWTS       56     A     
 COMCWTS            SA1    A1-B1       DECREMENT CHARACTER POSITION                COMCWTS COMCWTS       57     A     
 COMCWTS            ZR     X6,WTS1     IF BLANK                                    COMCWTS COMCWTS       58     A     
 COMCWTS            SB7    A1+B2       (B7) = LWA + 1                              COMCWTS COMCWTS       59     A     
 COMCWTS            LT     B6,B7,WTS2  IF NOT TO PAST START OF BUFFER              COMCWTS COMCWTS       60     A     
 COMCWTS            SB7    B6+B1                                                   COMCWTS COMCWTS       61     A     
 COMCWTS   WTS2     SA3    X2+1        (A3) = ADDRESS OF FIRST                     COMCWTS COMCWTS       62     A     
 COMCWTS            SX4    0           (X4) = WORD COUNT TRANSFERED TO BUFFER      COMCWTS COMCWTS       63     A     
 COMCWTS                                                                           COMCWTS COMCWTS       64     A     
 COMCWTS  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTS COMCWTS       65     A     
 COMCWTS                                                                           COMCWTS COMCWTS       66     A     
 COMCWTS   WTS3     SA2    A3+B1       (X2) = IN                                   COMCWTS COMCWTS       67          I
          -CPSA242
 COMCWTS            SA1    A2+B1       OUT                                         COMCWTS COMCWTS       68          I
          -CPSA242
 COMCWTS   WTS3     SA1    A3-B1       SAVE FET STATUS                                     CPSA242      100     A     
 COMCWTS            SA2    A3+B1       (X2) = IN                                           CPSA242      101     A     
 COMCWTS            BX6    X1                                                              CPSA242      102     A     
 COMCWTS            SA1    A2+B1       OUT                                                 CPSA242      103     A     
 COMCWTS            SA6    WTSA                                                            CPSA242      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/28. 19.11.32.      PAGE 143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTS 
  
 COMCWTS            SB3    X2+B1       (B3) = IN+1                                 COMCWTS COMCWTS       69     A     
 COMCWTS            SB4    X1                                                      COMCWTS COMCWTS       70     A     
 COMCWTS            SX6    B4-B3       OUT - IN+1                                  COMCWTS COMCWTS       71     A     
 COMCWTS            PL     X6,WTS4     IF OUT .GE. IN+1                            COMCWTS COMCWTS       72     A     
 COMCWTS            SX6    B5-B3       LIMIT - IN+1                                COMCWTS COMCWTS       73     A     
 COMCWTS   WTS4     SB4    X6          (B4) = FREE BUFFER SPACE                    COMCWTS COMCWTS       74     A     
 COMCWTS            SX3    X2          (X3) = IN                                   COMCWTS COMCWTS       75     A     
 COMCWTS            NZ     X6,WTS6     IF SPACE AVAILABLE                          COMCWTS COMCWTS       76     A     
 COMCWTS                                                                           COMCWTS COMCWTS       77     A     
 COMCWTS  *         PROCESS EXHAUSTED FREE BUFFER SPACE.                           COMCWTS COMCWTS       78     A     
 COMCWTS                                                                           COMCWTS COMCWTS       79     A     
 COMCWTS   WTS5     SA2    A3+B1       (A2) = ADDRESS OF IN                        COMCWTS COMCWTS       80          I
          -CPSA242
 COMCWTS   WTS5     SA1    WTSA        GET FET STATUS                                      CPSA242      105     A     
 COMCWTS            SA2    A3+B1       (A2) = ADDRESS OF IN                                CPSA242      106     A     
 COMCWTS            SB2    X1          (B2) = FET STATUS                                   CPSA242      107     A     
 COMCWTS            SX2    X3          (X2) = IN                                   COMCWTS COMCWTS       81     A     
 COMCWTS            NE     B3,B5,=XDCB=  IF IN+1 .NE. LIMIT                        COMCWTS COMCWTS       82     A     
 COMCWTS            SA1    A3          (X1) = FIRST                                COMCWTS COMCWTS       83     A     
 COMCWTS            SX6    X1                                                      COMCWTS COMCWTS       84     A     
 COMCWTS            SA1    A3-B1       FET+0                                               CPSA242      108     A     
 COMCWTS            SB2    X1          (B2) = FET STATUS                                   CPSA242      109     A     
 COMCWTS            SA1    A2+B1       OUT                                         COMCWTS COMCWTS       85     A     
 COMCWTS            IX7    X1-X6       OUT - IN+1                                  COMCWTS COMCWTS       86     A     
 COMCWTS            SB3    X6          IN+1 = FIRST                                COMCWTS COMCWTS       87     A     
 COMCWTS            ZR     X7,=XDCB=   IF IN+1 = OUT                               COMCWTS COMCWTS       88     A     
 COMCWTS            SB4    X7          (B4) = FREE BUFFER SPACE                    COMCWTS COMCWTS       89     A     
 COMCWTS                                                                           COMCWTS COMCWTS       90     A     
 COMCWTS  *         CHECK ASSEMBLY BUFFER.                                         COMCWTS COMCWTS       91     A     
 COMCWTS                                                                           COMCWTS COMCWTS       92     A     
 COMCWTS   WTS6     SB2    B6+10       SET LAST CHARACTER                          COMCWTS COMCWTS       93     A     
 COMCWTS            MX6    0           CLEAR ASSEMBLY                              COMCWTS COMCWTS       94     A     
 COMCWTS            SA1    B6          GET FIRST CHARACTER                         COMCWTS COMCWTS       95     A     
 COMCWTS            LT     B7,B2,WTS8  IF ASSEMBLY OVERRUNS WORKING BUFFER         COMCWTS COMCWTS       96     A     
 COMCWTS            SA2    A1+B1       GET SECOND CHARACTER                        COMCWTS COMCWTS       97     A     
 COMCWTS            SB6    A2+B1       INCREMENT CHARACTER ADDRESS                 COMCWTS COMCWTS       98     A     
 COMCWTS                                                                           COMCWTS COMCWTS       99     A     
 COMCWTS  *         ASSEMBLE WORD.                                                 COMCWTS COMCWTS      100     A     
 COMCWTS                                                                           COMCWTS COMCWTS      101     A     
 COMCWTS   WTS7     LX1    6           POSITION ODD CHARACTER                      COMCWTS COMCWTS      102     A     
 COMCWTS            SB6    B6+2        ADVANCE CHARACTER ADDRESS                   COMCWTS COMCWTS      103     A     
 COMCWTS            BX6    X6+X1       ASSEMBLE CHARACTER                          COMCWTS COMCWTS      104     A     
 COMCWTS            SA1    A2+B1       GET NEXT ODD CHARACTER                      COMCWTS COMCWTS      105     A     
 COMCWTS            BX6    X6+X2       ASSEMBLE CHARACTER                          COMCWTS COMCWTS      106     A     
 COMCWTS            SA2    A1+B1       GET NEXT EVEN CHARACTER                     COMCWTS COMCWTS      107     A     
 COMCWTS            LX6    12          POSITION ASSEMBLY                           COMCWTS COMCWTS      108     A     
 COMCWTS            NE     B6,B2,WTS7  LOOP FOR 10 CHARACTERS                      COMCWTS COMCWTS      109     A     
 COMCWTS            LX1    6           POSITION 9TH CHARACTER                      COMCWTS COMCWTS      110     A     
 COMCWTS            BX6    X6+X2       ASSEMBLE CHARACTER                          COMCWTS COMCWTS      111     A     
 COMCWTS            SB3    B3+B1       IN+1 = IN+1 + 1                             COMCWTS COMCWTS      112     A     
 COMCWTS            BX6    X6+X1       ASSEMBLE CHARACTER                          COMCWTS COMCWTS      113     A     
 COMCWTS            SB4    B4-B1       DECREMENT FREE BUFFER SPACE                 COMCWTS COMCWTS      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/28. 19.11.32.      PAGE 144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTS 
  
 COMCWTS            SA6    X3          STORE WORD                                  COMCWTS COMCWTS      115     A     
 COMCWTS            SX4    X4+B1       COUNT WORD                                  COMCWTS COMCWTS      116     A     
 COMCWTS            SX3    B3-B1       IN = IN+1                                   COMCWTS COMCWTS      117     A     
 COMCWTS            NZ     B4,WTS6     LOOP TO LAST CHARACTER OF FULL BUFFER       COMCWTS COMCWTS      118     A     
 COMCWTS            EQ     WTS5        CHECK BUFFER POINTERS                       COMCWTS COMCWTS      119     A     
 COMCWTS                                                                           COMCWTS COMCWTS      120     A     
 COMCWTS  *         PROCESS LAST .LE. 9 CHARACTERS.                                COMCWTS COMCWTS      121     A     
 COMCWTS                                                                           COMCWTS COMCWTS      122     A     
 COMCWTS   WTS8     SX7    0           SET ADD-ON CHARACTER                        COMCWTS COMCWTS      123     A     
 COMCWTS            SB2    54          (B2) = SHIFT COUNT                          COMCWTS COMCWTS      124     A     
 COMCWTS            EQ     B6,B7,WTS10 IF WORKING BUFFER EMPTY                     COMCWTS COMCWTS      125     A     
 COMCWTS            SX2    B7-B6       SET CHARACTER COUNT REMAINING               COMCWTS COMCWTS      126     A     
 COMCWTS            LX2    59-0        CHECK FOR ODD OR EVEN CHARACTER COUNT       COMCWTS COMCWTS      127     A     
 COMCWTS            PL     X2,WTS9     IF EVEN CHARACTER COUNT                     COMCWTS COMCWTS      128     A     
 COMCWTS            SX7    1R                                                      COMCWTS COMCWTS      129     A     
 COMCWTS   WTS9     LX1    X1,B2       POSITION CHARACTER                          COMCWTS COMCWTS      130     A     
 COMCWTS            SB6    B6+B1       ADVANCE CHARACTER ADDRESS                   COMCWTS COMCWTS      131     A     
 COMCWTS            SB2    B2-6        DECREMENT SHIFT COUNT                       COMCWTS COMCWTS      132     A     
 COMCWTS            BX6    X6+X1       ASSEMBLE CHARACTER                          COMCWTS COMCWTS      133     A     
 COMCWTS            SA1    B6          GET NEXT CHARACTER                          COMCWTS COMCWTS      134     A     
 COMCWTS            NE     B6,B7,WTS9  LOOP TO END OF BUFFER                       COMCWTS COMCWTS      135     A     
 COMCWTS                                                                           COMCWTS COMCWTS      136     A     
 COMCWTS  *         PROCESS LAST WORD.                                             COMCWTS COMCWTS      137     A     
 COMCWTS                                                                           COMCWTS COMCWTS      138     A     
 COMCWTS   WTS10    NZ     X7,WTS11    IF ODD NUMBER OF CHARACTERS                 COMCWTS COMCWTS      139     A     
 COMCWTS            ZR     B2,WTS11    IF WORD FULL                                COMCWTS COMCWTS      140     A     
 COMCWTS            SA1    A1-1        GET LAST CHARACTER IN BUFFER                COMCWTS COMCWTS      141     A     
 COMCWTS            NZ     X1,WTS11    IF NOT *00* CHARACTER                       COMCWTS COMCWTS      142     A     
 COMCWTS            SX7    2R          PRESERVE *00* CHARACTER WITH *  *           COMCWTS COMCWTS      143     A     
 COMCWTS            SB2    B2-6        REVISE SHIFT COUNT                          COMCWTS COMCWTS      144     A     
 COMCWTS   WTS11    LX7    X7,B2       ADD LAST CHARACTER(S)                       COMCWTS COMCWTS      145     A     
 COMCWTS            SA2    A3+B1       SET (A2) = IN                               COMCWTS COMCWTS      146     A     
 COMCWTS            MX1    -12                                                     COMCWTS COMCWTS      147     A     
 COMCWTS            BX6    X6+X7                                                   COMCWTS COMCWTS      148     A     
 COMCWTS            SX4    X4+B1       COUNT WORD                                  COMCWTS COMCWTS      149     A     
 COMCWTS            SA6    X3          STORE LAST WORD                             COMCWTS COMCWTS      150     A     
 COMCWTS            BX7    -X1*X6                                                  COMCWTS COMCWTS      151     A     
 COMCWTS            SX2    B3          IN = IN+1                                   COMCWTS COMCWTS      152     A     
 COMCWTS            SB6    X4          SET WORD COUNT TRANSFERRED                  COMCWTS COMCWTS      153     A     
 COMCWTS            SA3    A3          (X3) = FIRST                                COMCWTS COMCWTS      154     A     
 COMCWTS            ZR     X7,WTS13    IF VALID END OF LINE, EXIT                  COMCWTS COMCWTS      155     A     
 COMCWTS            SB3    B3+B1       ADVANCE IN+1                                COMCWTS COMCWTS      156     A     
 COMCWTS            SB4    B4-B1       DECREMENT FREE BUFFER SPACE                 COMCWTS COMCWTS      157     A     
 COMCWTS            MX1    -6                                                      COMCWTS COMCWTS      158     A     
 COMCWTS            BX1    -X1*X7      GET LAST CHARACTER                          COMCWTS COMCWTS      159     A     
 COMCWTS            SX3    X2+         (X3) = IN                                   COMCWTS COMCWTS      160     A     
 COMCWTS            SB6    B7+         RESET CHARACTER POSITION                    COMCWTS COMCWTS      161     A     
 COMCWTS            ZR     B4,WTS5     IF FREE SPACE EXHAUSTED                     COMCWTS COMCWTS      162     A     
 COMCWTS            SX6    B0+                                                     COMCWTS COMCWTS      163     A     
 COMCWTS            NZ     X1,WTS12    IF NOT *00* CHARACTER                       COMCWTS COMCWTS      164     A     
 COMCWTS            SX6    2R          PRESERVE *00* CHARACTER WITH *  *           COMCWTS COMCWTS      165     A     
 COMCWTS   WTS12    LX6    48                                                      COMCWTS COMCWTS      166     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTS 
  
 COMCWTS            SB6    X4+B1       RESET WORD COUNT                            COMCWTS COMCWTS      167     A     
 COMCWTS            SA6    X2                                                      COMCWTS COMCWTS      168     A     
 COMCWTS            SX2    B3          IN = IN+1                                   COMCWTS COMCWTS      169     A     
 COMCWTS   WTS13    SA1    A2+B1       SET OUT                                     COMCWTS COMCWTS      170     A     
 COMCWTS            SB4    X1                                                      COMCWTS COMCWTS      171     A     
 COMCWTS            EQ     =XWTX=      EXIT                                        COMCWTS COMCWTS      172     A     
 COMCWTS                                                                                   CPSA242      110     A     
 COMCWTS                                                                                   CPSA242      111     A     
 COMCWTS   WTSA     CON    0           FET STATUS PRIOR TO READING OUT                     CPSA242      112     A     
 COMCWTS   WTS      SPACE  4,10                                                    COMCWTS COMCWTS      173     A     
 COMCWTS            BASE   *                                                       COMCWTS COMCWTS      174     A     
 COMCWTS   QUAL$    IF     -DEF,QUAL$                                              COMCWTS COMCWTS      175     A     
 COMCWTS            QUAL   *                                                       COMCWTS COMCWTS      176     A     
 COMCWTS   WTS=     EQU    /COMCWTS/WTS=                                           COMCWTS COMCWTS      177     A     
 COMCWTS   QUAL$    ENDIF                                                          COMCWTS COMCWTS      178     A     
 COMCWTS   WTS      ENDX                                                           COMCWTS COMCWTS      179     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTS                    179       174
          CPSA104                      2         2
          CPSA242                     23        23
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW  *COMDECK  COMCWTW            WRITE WORDS FROM WORKING BUFFER.            COMCWTW COMCWTW        1     A     
 COMCWTW   WTW      CTEXT  COMCWTW - WRITE WORDS FROM WORKING BUFFER.              COMCWTW COMCWTW        2     A     
 COMCWTW   WTW      SPACE  4,10                                                    COMCWTW COMCWTW        3     A     
 COMCWTW            IF     -DEF,QUAL$,1                                            COMCWTW COMCWTW        4     A     
 COMCWTW            QUAL   COMCWTW                                                 COMCWTW COMCWTW        5     A     
 COMCWTW            BASE   D                                                       COMCWTW COMCWTW        6     A     
 COMCWTW  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTW COMCWTW        7     A     
 COMCWTW   WTW      SPACE  4,10                                                    COMCWTW COMCWTW        8     A     
 COMCWTW  ***       WTW - WRITE WORDS FROM WORKING BUFFER.                         COMCWTW COMCWTW        9     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       10     A     
 COMCWTW  *         D. A. CAHLANDER.   70/11/29.                                   COMCWTW COMCWTW       11     A     
 COMCWTW  *         R. E. TATE.        73/11/04.                                   COMCWTW COMCWTW       12     A     
 COMCWTW  *         G. M. TOWNSEND.    77/06/15.                                   COMCWTW COMCWTW       13     A     
 COMCWTW  *         C. J. CONRAD.      81/08/06.                                           CPSA242      113     A     
 COMCWTW  *                                                                                CPSA242      114     A     
 COMCWTW  *         *******************************************************                CPSA242      115     A     
 COMCWTW  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA242      116     A     
 COMCWTW  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA242      117     A     
 COMCWTW  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA242      118     A     
 COMCWTW  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA242      119     A     
 COMCWTW  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA242      120     A     
 COMCWTW  *         *******************************************************                CPSA242      121     A     
 COMCWTW  *                                                                                CPSA242      122     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       14     A     
 COMCWTW  *         WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO              COMCWTW COMCWTW       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/28. 19.11.32.      PAGE 146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW  *         BUFFER.  IT ALSO CONTAINS THE DUMP CIO BUFFER AND WRITE EXIT   COMCWTW COMCWTW       16     A     
 COMCWTW  *         ROUTINES REQUIRED BY WTC, WTH, AND WTS.                        COMCWTW COMCWTW       17     A     
 COMCWTW   WTW      SPACE  4,10                                                    COMCWTW COMCWTW       18     A     
 COMCWTW  ***       WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO              COMCWTW COMCWTW       19     A     
 COMCWTW  *         BUFFER.  THIS DECK ALSO CONTAINS DCB=, AND WTX=.               COMCWTW COMCWTW       20     A     
 COMCWTW  *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTW COMCWTW       21     A     
 COMCWTW  *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTW COMCWTW       22     A     
 COMCWTW  *         WTW WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTW COMCWTW       23     A     
 COMCWTW  *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTW COMCWTW       24     A     
 COMCWTW  *         WILL BE RE-ISSUED.                                             COMCWTW COMCWTW       25     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       26     A     
 COMCWTW  *         WHEN CALLING CIO= FROM THIS ROUTINE B6 AND B7                  COMCWTW COMCWTW       27     A     
 COMCWTW  *         MUST CONTAIN WORKING STORAGE BUFFER ADDRESS,                   COMCWTW COMCWTW       28     A     
 COMCWTW  *         AND NUMBER OF WORDS TO TRANSFER RESPECTIVELY                   COMCWTW COMCWTW       29     A     
 COMCWTW  *         AS ERROR PROCESSING ROUTINES DEPEND UPON                       COMCWTW COMCWTW       30     A     
 COMCWTW  *         THESE REGISTERS.                                               COMCWTW COMCWTW       31     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       32     A     
 COMCWTW  *         THE THRESHOLD CONDITION TO ISSUE WRITE FUNCTIONS                       CPSA242      123     A     
 COMCWTW  *         IS BUFFER HALF FULL FOR BUFFERS LARGER                                 CPSA242      124     A     
 COMCWTW  *         THAN 511 DECIMAL WORDS, AND BUFFER TOTALLY                             CPSA242      125     A     
 COMCWTW  *         FULL FOR SMALLER BUFFERS.  IF THE SYMBOL                               CPSA242      126     A     
 COMCWTW  *         WTX$ IS DEFINED, THEN THE THRESHOLD IS                                 CPSA242      127     A     
 COMCWTW  *         BUFFER FULL FOR ALL BUFFER SIZES.                                      CPSA242      128     A     
 COMCWTW  *                                                                                CPSA242      129     A     
 COMCWTW  *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW COMCWTW       33     A     
 COMCWTW  *                (B6) = FWA WORKING BUFFER.                              COMCWTW COMCWTW       34     A     
 COMCWTW  *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTW COMCWTW       35     A     
 COMCWTW  *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTW COMCWTW       36     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       37     A     
 COMCWTW  *         EXIT   (B1) = 1.                                               COMCWTW COMCWTW       38     A     
 COMCWTW  *                (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW COMCWTW       39     A     
 COMCWTW  *                (B6) = ADDRESS OF NEXT WORD TO BE TRANSFERRED FROM      COMCWTW COMCWTW       40     A     
 COMCWTW  *                       WORKING BUFFER.                                  COMCWTW COMCWTW       41     A     
 COMCWTW  *                (B7) = 0 IF TRANSFER COMPLETE.                          COMCWTW COMCWTW       42     A     
 COMCWTW  *                     = REMAINING WORD COUNT IF *CIO=* WAS CALLED TO     COMCWTW COMCWTW       43     A     
 COMCWTW  *                       WRITE DATA AND RETURNED AN ERROR STATUS.         COMCWTW COMCWTW       44     A     
 COMCWTW  *                (X7) = ERROR STATUS IF (B7) = 0.                        COMCWTW COMCWTW       45     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       46     A     
 COMCWTW  *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTW COMCWTW       47     A     
 COMCWTW  *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTW COMCWTW       48     A     
 COMCWTW  *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTW COMCWTW       49     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW       50     A     
 COMCWTW  *         CALLS  CIO=.                                                   COMCWTW COMCWTW       51     A     
 COMCWTW  *                                                                                CPS0303       14     A     
 COMCWTW  *         MACROS RECALL, WRITE.                                                  CPS0303       15     A     
 COMCWTW                                                                           COMCWTW COMCWTW       52     A     
 COMCWTW                                                                           COMCWTW COMCWTW       53     A     
 COMCWTW   WTW18    SX6    B3+B4       ADVANCE IN                                  COMCWTW COMCWTW       54     A     
 COMCWTW            SB3    B3+B4                                                   COMCWTW COMCWTW       55     A     
 COMCWTW            SB6    B6+B4                                                   COMCWTW COMCWTW       56     A     
 COMCWTW            SB7    B7-B4                                                   COMCWTW COMCWTW       57     A     
 COMCWTW            SA1    X2+B1                                                   COMCWTW COMCWTW       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/28. 19.11.32.      PAGE 147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW            NE     B3,B5,WTW19 IF IN .NE. LIMIT                            COMCWTW COMCWTW       59     A     
 COMCWTW            SX6    X1          IN = FIRST                                  COMCWTW COMCWTW       60     A     
 COMCWTW   WTW19    SA6    A1+B1       UPDATE IN                                   COMCWTW COMCWTW       61     A     
 COMCWTW            NZ     B7,WTW1     IF NOT END OF TRANSFER                      COMCWTW COMCWTW       62     A     
 COMCWTW            SA4    X2                                                      COMCWTW COMCWTW       63     A     
 COMCWTW            LX4    59-0                                                    COMCWTW COMCWTW       64     A     
 COMCWTW            PL     X4,WTWX     IF BUFFER BUSY, RETURN                      COMCWTW COMCWTW       65          I
          -CPSA104
 COMCWTW            PL     X4,WTW=     IF BUFFER BUSY, RETURN                      CPSA104 CPSA104       48     A     
 COMCWTW            AX1    54          CHECK FOR DT = 61XX (NOS/BE TERMINAL)       COMCWTW COMCWTW       66     A     
 COMCWTW            SX1    X1+77B-61B                                              COMCWTW COMCWTW       67     A     
 COMCWTW            ZR     X1,WTW11    IF NOS/BE TERMINAL, FLUSH BUFFER            COMCWTW COMCWTW       68     A     
 COMCWTW                                                                           COMCWTW COMCWTW       69     A     
 COMCWTW   WTW=     SUBR               ENTRY/EXIT                                  COMCWTW COMCWTW       70     A     
 COMCWTW   WTW1     SA1    X2+3        (B4) = OUT                                  COMCWTW COMCWTW       71     A     
 COMCWTW            SA3    X2+2        (B3) = IN                                   COMCWTW COMCWTW       72     A     
 COMCWTW            IF     -DEF,B1=1,1                                             COMCWTW COMCWTW       73     A     
 COMCWTW            SB1    1                                                       COMCWTW COMCWTW       74     A     
 COMCWTW            SA4    A1+B1       (B5) = LIMIT                                COMCWTW COMCWTW       75     A     
 COMCWTW            ZR     B7,WTWX     IF WORKING BUFFER EMPTY, RETURN             COMCWTW COMCWTW       76          I
          -CPSA104
 COMCWTW            ZR     B7,WTW=     IF WORKING BUFFER EMPTY, RETURN             CPSA104 CPSA104       49     A     
 COMCWTW            SB4    X1                                                      COMCWTW COMCWTW       77     A     
 COMCWTW            SA1    X2+B1       (B2) = FIRST                                COMCWTW COMCWTW       78     A     
 COMCWTW            SB3    X3                                                      COMCWTW COMCWTW       79     A     
 COMCWTW            SB5    X4                                                      COMCWTW COMCWTW       80     A     
 COMCWTW            SB2    X1                                                      COMCWTW COMCWTW       81     A     
 COMCWTW            SA1    B6          READ FIRST WORD                             COMCWTW COMCWTW       82     A     
 COMCWTW            NE     B2,B4,WTW2  IF OUT .NE. FIRST                           COMCWTW COMCWTW       83     A     
 COMCWTW            SB4    B5                                                      COMCWTW COMCWTW       84     A     
 COMCWTW   WTW2     LT     B3,B4,WTW3  IF NO END AROUND                            COMCWTW COMCWTW       85     A     
 COMCWTW            SB4    B5+1                                                    COMCWTW COMCWTW       86     A     
 COMCWTW   WTW3     SB4    B4-B1       CALCULATE FREE DATA SPACE                   COMCWTW COMCWTW       87     A     
 COMCWTW            SB4    B4-B3       (B4) = TRANSFER LENGTH                      COMCWTW COMCWTW       88     A     
 COMCWTW            ZR     B4,WTW13    IF NO ROOM                                  COMCWTW COMCWTW       89     A     
 COMCWTW            BX7    X1                                                      COMCWTW COMCWTW       90     A     
 COMCWTW            LE     B4,B7,WTW4  IF NOT ENOUGH ROOM                          COMCWTW COMCWTW       91     A     
 COMCWTW            SB4    B7                                                      COMCWTW COMCWTW       92     A     
 COMCWTW                                                                           COMCWTW COMCWTW       93     A     
 COMCWTW  *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTW COMCWTW       94     A     
 COMCWTW                                                                           COMCWTW COMCWTW       95     A     
 COMCWTW   WTWA     BSS    0                                                       COMCWTW COMCWTW       96     A     
 COMCWTW   WTW4     SA3    WTWC        PRESET CMU CODE AND VOID STACK              COMCWTW COMCWTW       97     A     
 COMCWTW            RJ     WTW16                                                   COMCWTW COMCWTW       98     A     
 COMCWTW  *         SA1    A1+B1       (NO CMU)                                    COMCWTW COMCWTW       99     A     
 COMCWTW  *         SX4    B4-B1       (NO CMU)                                    COMCWTW COMCWTW      100     A     
 COMCWTW  *         MX6    -3          (NO CMU)                                    COMCWTW COMCWTW      101     A     
 COMCWTW  *         SA7    B3          (NO CMU)                                    COMCWTW COMCWTW      102     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      103     A     
 COMCWTW  *         GT     B4,B1,WTW14 IF MORE THAN 1 WORD  (CMU)                  COMCWTW COMCWTW      104     A     
 COMCWTW  *         BX4    X4-X4       (CMU)                                       COMCWTW COMCWTW      105     A     
 COMCWTW  *         SA7    B3          (CMU)                                       COMCWTW COMCWTW      106     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW                                                                           COMCWTW COMCWTW      107     A     
 COMCWTW   WTW5     BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCWTW COMCWTW      108     A     
 COMCWTW            AX4    3           NUMBER OF BLOCKS                            COMCWTW COMCWTW      109     A     
 COMCWTW            ZR     X3,WTW7     IF NO ODD WORDS                             COMCWTW COMCWTW      110     A     
 COMCWTW                                                                           COMCWTW COMCWTW      111     A     
 COMCWTW  *         TRANSFER UP TO 7 WORDS.                                        COMCWTW COMCWTW      112     A     
 COMCWTW                                                                           COMCWTW COMCWTW      113     A     
 COMCWTW   WTW6     SX3    X3-1                                                    COMCWTW COMCWTW      114     A     
 COMCWTW            BX7    X1                                                      COMCWTW COMCWTW      115     A     
 COMCWTW            SA1    A1+B1                                                   COMCWTW COMCWTW      116     A     
 COMCWTW            SA7    A7+B1                                                   COMCWTW COMCWTW      117     A     
 COMCWTW            NZ     X3,WTW6     LOOP                                        COMCWTW COMCWTW      118     A     
 COMCWTW                                                                           COMCWTW COMCWTW      119     A     
 COMCWTW  *         PRE-READ REGISTERS.                                            COMCWTW COMCWTW      120     A     
 COMCWTW                                                                           COMCWTW COMCWTW      121     A     
 COMCWTW   WTW7     ZR     X4,WTW18    IF NO BLOCKS                                COMCWTW COMCWTW      122     A     
 COMCWTW            SB5    X2          (B5) = FET ADDRESS                          COMCWTW COMCWTW      123     A     
 COMCWTW            SA2    A1+B1                                                   COMCWTW COMCWTW      124     A     
 COMCWTW            SB2    B1+B1       (B2) = 2                                    COMCWTW COMCWTW      125     A     
 COMCWTW            SA3    A2+B1                                                   COMCWTW COMCWTW      126     A     
 COMCWTW            SB3    X4          (B3) = BLOCK COUNT                          COMCWTW COMCWTW      127     A     
 COMCWTW            SA4    A3+B1                                                   COMCWTW COMCWTW      128     A     
 COMCWTW                                                                           COMCWTW COMCWTW      129     A     
 COMCWTW  *         TRANSFER 8 WORD BLOCKS.                                        COMCWTW COMCWTW      130     A     
 COMCWTW                                                                           COMCWTW COMCWTW      131     A     
 COMCWTW   WTW8     BX6    X1                                                      COMCWTW COMCWTW      132     A     
 COMCWTW            LX7    X2                                                      COMCWTW COMCWTW      133     A     
 COMCWTW            SA1    A3+B2                                                   COMCWTW COMCWTW      134     A     
 COMCWTW            SA2    A4+B2                                                   COMCWTW COMCWTW      135     A     
 COMCWTW            SA6    A7+B1                                                   COMCWTW COMCWTW      136     A     
 COMCWTW            SB3    B3-B1                                                   COMCWTW COMCWTW      137     A     
 COMCWTW            SA7    A6+B1                                                   COMCWTW COMCWTW      138     A     
 COMCWTW            BX6    X3                                                      COMCWTW COMCWTW      139     A     
 COMCWTW            LX7    X4                                                      COMCWTW COMCWTW      140     A     
 COMCWTW            SA3    A1+B2                                                   COMCWTW COMCWTW      141     A     
 COMCWTW            SA4    A2+B2                                                   COMCWTW COMCWTW      142     A     
 COMCWTW            SA6    A6+B2                                                   COMCWTW COMCWTW      143     A     
 COMCWTW            SA7    A7+B2                                                   COMCWTW COMCWTW      144     A     
 COMCWTW            BX6    X1                                                      COMCWTW COMCWTW      145     A     
 COMCWTW            LX7    X2                                                      COMCWTW COMCWTW      146     A     
 COMCWTW            SA1    A3+B2                                                   COMCWTW COMCWTW      147     A     
 COMCWTW            SA2    A4+B2                                                   COMCWTW COMCWTW      148     A     
 COMCWTW            SA6    A6+B2                                                   COMCWTW COMCWTW      149     A     
 COMCWTW            SA7    A7+B2                                                   COMCWTW COMCWTW      150     A     
 COMCWTW            BX6    X3                                                      COMCWTW COMCWTW      151     A     
 COMCWTW            LX7    X4                                                      COMCWTW COMCWTW      152     A     
 COMCWTW            SA3    A1+B2                                                   COMCWTW COMCWTW      153     A     
 COMCWTW            SA4    A2+B2                                                   COMCWTW COMCWTW      154     A     
 COMCWTW            SA6    A6+B2                                                   COMCWTW COMCWTW      155     A     
 COMCWTW            SA7    A7+B2                                                   COMCWTW COMCWTW      156     A     
 COMCWTW            NZ     B3,WTW8     LOOP                                        COMCWTW COMCWTW      157     A     
 COMCWTW                                                                           COMCWTW COMCWTW      158     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW  *         WRITE EXIT.                                                    COMCWTW COMCWTW      159     A     
 COMCWTW                                                                           COMCWTW COMCWTW      160     A     
 COMCWTW            SA3    B5+B2       READ IN                                     COMCWTW COMCWTW      161     A     
 COMCWTW            SA1    A3+B2       (B5) = LIMIT                                COMCWTW COMCWTW      162     A     
 COMCWTW            SX2    B5                                                      COMCWTW COMCWTW      163     A     
 COMCWTW            SB5    X1                                                      COMCWTW COMCWTW      164     A     
 COMCWTW            SA4    X2          CHECK BUFFER STATUS                         COMCWTW COMCWTW      165     A     
 COMCWTW   WTW9     SB6    B6+B4                                                   COMCWTW COMCWTW      166     A     
 COMCWTW            SB7    B7-B4                                                   COMCWTW COMCWTW      167     A     
 COMCWTW            SB3    X3+B4       ADVANCE IN                                  COMCWTW COMCWTW      168     A     
 COMCWTW            SX6    X3+B4                                                   COMCWTW COMCWTW      169     A     
 COMCWTW            LX4    59-0                                                    COMCWTW COMCWTW      170     A     
 COMCWTW            SA3    X2+B1       READ FIRST                                  COMCWTW COMCWTW      171     A     
 COMCWTW            SB2    X3+                                                     COMCWTW COMCWTW      172     A     
 COMCWTW            NE     B3,B5,WTW10 IF IN .NE. LIMIT                            COMCWTW COMCWTW      173     A     
 COMCWTW            SX6    X3+         IN = FIRST                                  COMCWTW COMCWTW      174     A     
 COMCWTW   WTX$     IF     DEF,WTX$                                                        CPSA242      130     A     
 COMCWTW   WTX10    EQ     WTW19       CLEAN UP AND RETURN                                 CPSA242      131          I
          -CPSA261
 COMCWTW   WTW10    EQ     WTW19       CLEAN UP AND RETURN                                 CPSA261        5     A     
 COMCWTW   WTX$     ELSE                                                                   CPSA242      132     A     
 COMCWTW                                                                           COMCWTW COMCWTW      175     A     
 COMCWTW  *         TRY TO BUFFER AHEAD.                                           COMCWTW COMCWTW      176     A     
 COMCWTW                                                                           COMCWTW COMCWTW      177     A     
 COMCWTW   WTW10    SA6    A3+B1       STORE IN                                    COMCWTW COMCWTW      178     A     
 COMCWTW            PL     X4,WTW12    IF BUFFER BUSY                              COMCWTW COMCWTW      179     A     
 COMCWTW            AX3    54          CHECK FOR DT = 61XX (NOS/BE TERMINAL)       COMCWTW COMCWTW      180     A     
 COMCWTW            SX3    X3+77B-61B                                              COMCWTW COMCWTW      181     A     
 COMCWTW            ZR     X3,WTW11    IF NOS/BE TERMINAL, FLUSH BUFFER            COMCWTW COMCWTW      182     A     
 COMCWTW            SA1    X2+3        READ OUT                                    COMCWTW COMCWTW      183     A     
 COMCWTW            IX6    X1-X6       (OUT-IN)                                    COMCWTW COMCWTW      184     A     
 COMCWTW            SX7    B5-B2       (LIMIT-FIRST)                               COMCWTW COMCWTW      185     A     
 COMCWTW            LX3    X6,B1       2*(OUT-IN)                                  COMCWTW COMCWTW      186     A     
 COMCWTW            AX6    60          SIGN OF (OUT-IN)                            COMCWTW COMCWTW      187     A     
 COMCWTW            BX4    X6-X7       INVERT BUFFER IF IN .GE. OUT                COMCWTW COMCWTW      188     A     
 COMCWTW            IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN)                    COMCWTW COMCWTW      189     A     
 COMCWTW            NG     X6,WTW12    IF BUFFER THRESHOLD NOT REACHED             COMCWTW COMCWTW      190     A     
 COMCWTW            AX7    9                                                       COMCWTW COMCWTW      191     A     
 COMCWTW            ZR     X7,WTW12    IF BUFFER NOT BIG ENOUGH TO WRITE AHEAD     COMCWTW COMCWTW      192     A     
 COMCWTW   WTX$     ENDIF                                                                  CPSA242      133     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                               COMCWTW COMCWTW      193     A     
 COMCWTW   WTW11    SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW COMCWTW      194     A     
 COMCWTW            SX6    774B                                                    COMCWTW COMCWTW      195     A     
 COMCWTW            BX7    X6*X1                                                   COMCWTW COMCWTW      196     A     
 COMCWTW            RJ     =XCIO=                                                  COMCWTW COMCWTW      197     A     
 COMCWTW   WRIF$    ELSE   1                                                       COMCWTW COMCWTW      198     A     
 COMCWTW   WTW11    WRITE  X2                                                      COMCWTW COMCWTW      199     A     
 COMCWTW            NZ     X7,WTWX     IF ERROR IN LAST *CIO* REQUEST, RETURN      COMCWTW COMCWTW      200          I
          -CPSA104
 COMCWTW            NZ     X7,WTW=     IF ERROR IN LAST *CIO* REQUEST, RETURN      CPSA104 CPSA104       50     A     
 COMCWTW   WTW12    NZ     B7,WTW1     IF NOT DONE                                 COMCWTW COMCWTW      201     A     
 COMCWTW            EQ     WTWX        RETURN                                      COMCWTW COMCWTW      202          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
          -CPSA104
 COMCWTW            EQ     WTW=        RETURN                                      CPSA104 CPSA104       51     A     
 COMCWTW                                                                           COMCWTW COMCWTW      203     A     
 COMCWTW  *         DUMP CIRCULAR BUFFER.                                          COMCWTW COMCWTW      204     A     
 COMCWTW                                                                           COMCWTW COMCWTW      205     A     
 COMCWTW   WTW13    SA1    X2          CHECK BUFFER STATUS                         COMCWTW COMCWTW      206     A     
 COMCWTW            LX1    59-0                                                    COMCWTW COMCWTW      207     A     
 COMCWTW            NG     X1,WTW11    IF NOT BUSY                                 COMCWTW COMCWTW      208     A     
 COMCWTW            ZR     X1,WTW11    IF BLANK FET                                COMCWTW COMCWTW      209     A     
 COMCWTW            RECALL                                                         COMCWTW COMCWTW      210     A     
 COMCWTW            EQ     WTW1        CONTINUE WRITE                              COMCWTW COMCWTW      211     A     
 COMCWTW                                                                           COMCWTW COMCWTW      212     A     
 COMCWTW  *         MOVE DATA WITH CMU.                                            COMCWTW COMCWTW      213     A     
 COMCWTW                                                                           COMCWTW COMCWTW      214     A     
 COMCWTW   WTW14    SX4    B4-819                                                  COMCWTW COMCWTW      215     A     
 COMCWTW            PL     X4,WTW15    IF TOO BIG FOR CMU                          COMCWTW COMCWTW      216     A     
 COMCWTW            SX4    B4          10 * WORDS = CHARACTERS                     COMCWTW COMCWTW      217     A     
 COMCWTW            LX6    X4,B1                                                   COMCWTW COMCWTW      218     A     
 COMCWTW            BX1    X0          SAVE X0                                     COMCWTW COMCWTW      219     A     
 COMCWTW            LX4    3                                                       COMCWTW COMCWTW      220     A     
 COMCWTW            IX6    X4+X6                                                   COMCWTW COMCWTW      221     A     
 COMCWTW            SX7    B6          SET SOURCE ADDRESS                          COMCWTW COMCWTW      222     A     
 COMCWTW            SX4    B3          SET DESTINATION ADDRESS                     COMCWTW COMCWTW      223     A     
 COMCWTW            LX7    30                                                      COMCWTW COMCWTW      224     A     
 COMCWTW            BX4    X4+X7                                                   COMCWTW COMCWTW      225     A     
 COMCWTW            MX7    -4                                                      COMCWTW COMCWTW      226     A     
 COMCWTW            BX3    X7*X6       EXTRACT UPPER PORTION                       COMCWTW COMCWTW      227     A     
 COMCWTW            BX6    -X7*X6      EXTRACT LOWER PORTION                       COMCWTW COMCWTW      228     A     
 COMCWTW            LX3    48-4                                                    COMCWTW COMCWTW      229     A     
 COMCWTW            BX4    X4+X3                                                   COMCWTW COMCWTW      230     A     
 COMCWTW            LX6    26                                                      COMCWTW COMCWTW      231     A     
 COMCWTW            BX6    X4+X6                                                   COMCWTW COMCWTW      232     A     
 COMCWTW            AX3    51                                                      COMCWTW COMCWTW      233     A     
 COMCWTW            SA6    WTWC        STORE DESCRIPTOR WORD                       COMCWTW COMCWTW      234     A     
 COMCWTW            IM     WTWC        MOVE DATA                                   COMCWTW COMCWTW      235     A     
 COMCWTW            BX0    X1          RESTORE X0                                  COMCWTW COMCWTW      236     A     
 COMCWTW            ZR     X3,WTW18    IF NO WRITE EXIT                            COMCWTW COMCWTW      237     A     
 COMCWTW            SA4    X2                                                      COMCWTW COMCWTW      238     A     
 COMCWTW            SX3    B3          RESET IN                                    COMCWTW COMCWTW      239     A     
 COMCWTW            EQ     WTW9                                                    COMCWTW COMCWTW      240     A     
 COMCWTW                                                                           COMCWTW COMCWTW      241     A     
 COMCWTW   WTWB     BSS    0                                                       COMCWTW COMCWTW      242     A     
 COMCWTW   WTW15    SA1    A1+B1       MOVE DATA WITHOUT CMU                       COMCWTW COMCWTW      243     A     
 COMCWTW            SX4    B4-B1                                                   COMCWTW COMCWTW      244     A     
 COMCWTW            MX6    -3                                                      COMCWTW COMCWTW      245     A     
 COMCWTW            SA7    B3                                                      COMCWTW COMCWTW      246     A     
 COMCWTW            EQ     WTW5                                                    COMCWTW COMCWTW      247     A     
 COMCWTW                                                                           COMCWTW COMCWTW      248     A     
 COMCWTW  *         CMU PRESET CODE.                                               COMCWTW COMCWTW      249     A     
 COMCWTW  *         WTWC IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID     COMCWTW COMCWTW      250     A     
 COMCWTW  *         THE INSTRUCTION STACK. WTWC IS ALSO USED AS THE CMU            COMCWTW COMCWTW      251     A     
 COMCWTW  *         DESCRIPTOR WORD.                                               COMCWTW COMCWTW      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/28. 19.11.32.      PAGE 151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW                                                                           COMCWTW COMCWTW      253     A     
 COMCWTW   WTWC     GT     B4,B1,WTW14 IF MORE THAN 1 WORD TO MOVE  (CMU)          COMCWTW COMCWTW      254     A     
 COMCWTW            BX4    X4-X4                                                   COMCWTW COMCWTW      255     A     
 COMCWTW            SA7    B3                                                      COMCWTW COMCWTW      256     A     
 COMCWTW   WTW16    EQU    WTWC        USED TO VOID STACK                          COMCWTW COMCWTW      257     A     
 COMCWTW                                                                           COMCWTW COMCWTW      258     A     
 COMCWTW  *         PRESET FOR CMU CODE.                                           COMCWTW COMCWTW      259     A     
 COMCWTW                                                                           COMCWTW COMCWTW      260     A     
 COMCWTW            SA4    RA.CMU      CHECK IF CMU AVAILABLE                      COMCWTW COMCWTW      261     A     
 COMCWTW            SB4    WTWA                                                    COMCWTW COMCWTW      262     A     
 COMCWTW            NG     X4,WTW17    IF CMU                                      COMCWTW COMCWTW      263     A     
 COMCWTW            SA3    WTWB                                                    COMCWTW COMCWTW      264     A     
 COMCWTW   WTW17    BX6    X3                                                      COMCWTW COMCWTW      265     A     
 COMCWTW            SA6    B4                                                      COMCWTW COMCWTW      266     A     
 COMCWTW            RJ     *           VOID INSTRUCTION STACK.                             CPSA163        8     A     
 COMCWTW            EQ     WTW1                                                    COMCWTW COMCWTW      267     A     
 COMCWTW                                                                           COMCWTW COMCWTW      268     A     
 COMCWTW   WTX      SPACE  4,10                                                    COMCWTW COMCWTW      269     A     
 COMCWTW  **        WTX - WRITE EXIT.                                              COMCWTW COMCWTW      270     A     
 COMCWTW  *         IF BUFFER IS BUSY, RETURN.                                     COMCWTW COMCWTW      271     A     
 COMCWTW  *         IF DEVICE TYPE = 61XX (NOS/BE TERMINAL), ALWAYS ISSUE WRITE.   COMCWTW COMCWTW      272     A     
 COMCWTW  *         OTHERWISE, WORD COUNT OF BUFFER IS CHECKED, AND A WRITE        COMCWTW COMCWTW      273     A     
 COMCWTW  *         FUNCTION IS REQUESTED IF NECESSARY.                            COMCWTW COMCWTW      274     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      275     A     
 COMCWTW  *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW COMCWTW      276     A     
 COMCWTW  *                (A3) = ADDRESS OF FIRST.                                COMCWTW COMCWTW      277     A     
 COMCWTW  *                (A4) = RETURN ADDRESS.                                  COMCWTW COMCWTW      278     A     
 COMCWTW  *                (B3) = IN+1.                                            COMCWTW COMCWTW      279     A     
 COMCWTW  *                (B4) = OUT.                                             COMCWTW COMCWTW      280     A     
 COMCWTW  *                (B5) = LIMIT.                                           COMCWTW COMCWTW      281     A     
 COMCWTW  *                (X2) = IN                                               COMCWTW COMCWTW      282     A     
 COMCWTW  *                (B1) = 1.                                               COMCWTW COMCWTW      283     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      284     A     
 COMCWTW  *         EXIT   TO RETURN ADDRESS.                                      COMCWTW COMCWTW      285     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      286     A     
 COMCWTW  *         CALLS  CIO=.                                                   COMCWTW COMCWTW      287     A     
 COMCWTW  *                                                                                CPS0303       16     A     
 COMCWTW  *         MACROS WRITE.                                                          CPS0303       17     A     
 COMCWTW                                                                           COMCWTW COMCWTW      288     A     
 COMCWTW                                                                           COMCWTW COMCWTW      289     A     
 COMCWTW   WTX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW COMCWTW      290     A     
 COMCWTW            SX6    X2          STORE IN                                    COMCWTW COMCWTW      291     A     
 COMCWTW            LX1    59                                                      COMCWTW COMCWTW      292     A     
 COMCWTW            SA6    A2                                                      COMCWTW COMCWTW      293     A     
 COMCWTW   WTX$     IF     -DEF,WTX$                                                       CPSA242      134     A     
 COMCWTW            PL     X1,WTX1     IF BUFFER BUSY                              COMCWTW COMCWTW      294     A     
 COMCWTW            SA3    A3          CHECK DEVICE TYPE                           COMCWTW COMCWTW      295     A     
 COMCWTW            BX6    X3                                                      COMCWTW COMCWTW      296     A     
 COMCWTW            AX6    54                                                      COMCWTW COMCWTW      297     A     
 COMCWTW            SX6    X6+77B-61B                                              COMCWTW COMCWTW      298     A     
 COMCWTW            ZR     X6,WTX0     IF NOS/BE TERMINAL                          COMCWTW COMCWTW      299     A     
 COMCWTW                                                                           COMCWTW COMCWTW      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/28. 19.11.32.      PAGE 152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW  *         IF BUFFER IS NOT BUSY, CHECK SIZE OF BUFFER.                   COMCWTW COMCWTW      301     A     
 COMCWTW  *         ISSUE WRITE IF THRESHOLD IS REACHED.                           COMCWTW COMCWTW      302     A     
 COMCWTW                                                                           COMCWTW COMCWTW      303     A     
 COMCWTW            SA1    A2+B1       REREAD OUT                                          CPSA242      135     A     
 COMCWTW            SB4    X1                                                              CPSA242      136     A     
 COMCWTW            SX6    B4-B3       (OUT-IN+1)                                  COMCWTW COMCWTW      304     A     
 COMCWTW            SB2    X3          (LIMIT-FIRST)                               COMCWTW COMCWTW      305     A     
 COMCWTW            LX3    X6,B1       2*(OUT-IN+1)                                COMCWTW COMCWTW      306     A     
 COMCWTW            SX7    B5-B2                                                   COMCWTW COMCWTW      307     A     
 COMCWTW            AX6    60          SIGN OF (OUT-IN+1)                          COMCWTW COMCWTW      308     A     
 COMCWTW            BX4    X6-X7       INVERT BUFFER IF IN+1 .GE. OUT              COMCWTW COMCWTW      309     A     
 COMCWTW            IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN+1)                  COMCWTW COMCWTW      310     A     
 COMCWTW            NG     X6,WTX1     IF BUFFER THRESHOLD NOT REACHED             COMCWTW COMCWTW      311     A     
 COMCWTW            AX7    9                                                       COMCWTW COMCWTW      312     A     
 COMCWTW            ZR     X7,WTX1     IF BUFFER NOT BIG ENOUGH TO WRITE AHEAD     COMCWTW COMCWTW      313     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                               COMCWTW COMCWTW      314     A     
 COMCWTW   WTX0     SA1    A3-B1       REISSUE CURRENT WRITE FUNCTION              COMCWTW COMCWTW      315     A     
 COMCWTW            SX6    774B                                                    COMCWTW COMCWTW      316     A     
 COMCWTW            BX7    X6*X1                                                   COMCWTW COMCWTW      317     A     
 COMCWTW            SX2    A1          SET FET ADDRESS                             COMCWTW COMCWTW      318     A     
 COMCWTW            RJ     =XCIO=                                                  COMCWTW COMCWTW      319     A     
 COMCWTW   WRIF$    ELSE   1                                                       COMCWTW COMCWTW      320     A     
 COMCWTW   WTX0     WRITE  A3-B1                                                   COMCWTW COMCWTW      321     A     
 COMCWTW   WTX$     ENDIF                                                                  CPSA242      137     A     
 COMCWTW                                                                                   CPSA242      138     A     
 COMCWTW   WTX1     SB2    A4          SET RETURN ADDRESS                          COMCWTW COMCWTW      322     A     
 COMCWTW            SX2    A3-B1       RESET (X2)                                  COMCWTW COMCWTW      323     A     
 COMCWTW            JP     B2          RETURN                                      COMCWTW COMCWTW      324     A     
 COMCWTW   DCB      SPACE  4,10                                                    COMCWTW COMCWTW      325     A     
 COMCWTW  **        DCB - DUMP CIRCULAR BUFFER.                                    COMCWTW COMCWTW      326     A     
 COMCWTW  *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCWTW COMCWTW      327     A     
 COMCWTW  *         IF BUFFER IS NOT BUSY, REQUEST WRITE FUNCTION AND RETURN.      COMCWTW COMCWTW      328     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      329     A     
 COMCWTW  *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW COMCWTW      330     A     
 COMCWTW  *                (A3) = ADDRESS OF FIRST.                                COMCWTW COMCWTW      331     A     
 COMCWTW  *                (A4) = RETURN ADDRESS.                                  COMCWTW COMCWTW      332     A     
 COMCWTW  *                (X2) = IN.                                              COMCWTW COMCWTW      333     A     
 COMCWTW  *                (B1) = 1.                                               COMCWTW COMCWTW      334     A     
 COMCWTW  *                (B2) = FET STATUS READ PRIOR TO READ OF OUT.                    CPSA242      139     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      335     A     
 COMCWTW  *         EXIT   TO RETURN ADDRESS - 1.                                  COMCWTW COMCWTW      336     A     
 COMCWTW  *                (X2) = FET ADDRESS.                                             CPSA242      140     A     
 COMCWTW  *                                                                        COMCWTW COMCWTW      337     A     
 COMCWTW  *         CALLS  CIO=, RCL=.                                             COMCWTW COMCWTW      338          I
          -CPS0303
 COMCWTW  *         CALLS  CIO=.                                                           CPS0303       18     A     
 COMCWTW  *                                                                                CPS0303       19     A     
 COMCWTW  *         MACROS RECALL, WRITE.                                                  CPS0303       20     A     
 COMCWTW                                                                           COMCWTW COMCWTW      339     A     
 COMCWTW                                                                           COMCWTW COMCWTW      340     A     
 COMCWTW   DCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW COMCWTW      341          I
          -CPSA242
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCWTW 
  
 COMCWTW   DCB=     SX1    B2          CHECK BUFFER STATUS                                 CPSA242      141     A     
 COMCWTW            SX6    X2          STORE IN                                    COMCWTW COMCWTW      342     A     
 COMCWTW            LX1    59                                                      COMCWTW COMCWTW      343     A     
 COMCWTW            SA6    A2                                                      COMCWTW COMCWTW      344     A     
 COMCWTW            NG     X1,DCB1     IF NOT BUSY                                 COMCWTW COMCWTW      345     A     
 COMCWTW            ZR     X1,DCB1     IF BLANK FET                                COMCWTW COMCWTW      346     A     
 COMCWTW            SX2    A3-B1       RESET FET ADDRESS                                   CPSA242      142     A     
 COMCWTW            RECALL                                                         COMCWTW COMCWTW      347     A     
 COMCWTW            SB2    A4-B1       CONTINUE WRITE                              COMCWTW COMCWTW      348     A     
 COMCWTW            JP     B2                                                      COMCWTW COMCWTW      349     A     
 COMCWTW   WRIF$    IF     DEF,WRIF$                                               COMCWTW COMCWTW      350     A     
 COMCWTW   DCB1     SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW COMCWTW      351     A     
 COMCWTW            SX6    774B                                                    COMCWTW COMCWTW      352     A     
 COMCWTW            BX7    X6*X1                                                   COMCWTW COMCWTW      353     A     
 COMCWTW            SX2    A1          SET FET ADDRESS                             COMCWTW COMCWTW      354     A     
 COMCWTW            RJ     =XCIO=                                                  COMCWTW COMCWTW      355     A     
 COMCWTW   WRIF$    ELSE   1                                                       COMCWTW COMCWTW      356     A     
 COMCWTW   DCB1     WRITE  A3-B1                                                   COMCWTW COMCWTW      357     A     
 COMCWTW            SB2    A4-B1       CONTINUE WRITE                              COMCWTW COMCWTW      358     A     
 COMCWTW            JP     B2                                                      COMCWTW COMCWTW      359     A     
 COMCWTW   WTW      SPACE  4,10                                                    COMCWTW COMCWTW      360     A     
 COMCWTW            BASE   *                                                       COMCWTW COMCWTW      361     A     
 COMCWTW   QUAL$    IF     -DEF,QUAL$                                              COMCWTW COMCWTW      362     A     
 COMCWTW            QUAL   *                                                       COMCWTW COMCWTW      363     A     
 COMCWTW   WTW=     EQU    /COMCWTW/WTW=                                           COMCWTW COMCWTW      364     A     
 COMCWTW   WTX=     EQU    /COMCWTW/WTX=                                           COMCWTW COMCWTW      365     A     
 COMCWTW   DCB=     EQU    /COMCWTW/DCB=                                           COMCWTW COMCWTW      366     A     
 COMCWTW   QUAL$    ENDIF                                                          COMCWTW COMCWTW      367     A     
 COMCWTW   WTW      ENDX                                                           COMCWTW COMCWTW      368     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCWTW 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCWTW                    368       362
          CPSA104                      4         4
          CPSA163                      1         1
          CPS0303                      7         7
          CPSA242                     30        29
          CPSA261                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCXJR 
  
 COMCXJR  *COMDECK  COMCXJR            RESTORE REGISTERS VIA *XJR* MONITOR CALL.   COMCXJR COMCXJR        1     A     
 COMCXJR   XJR      CTEXT  COMCXJR - RESTORE REGISTERS.                            COMCXJR COMCXJR        2     A     
 COMCXJR   XJR      SPACE  4,10                                                    COMCXJR COMCXJR        3     A     
 COMCXJR            IF     -DEF,QUAL$,1                                            COMCXJR COMCXJR        4     A     
 COMCXJR            QUAL   COMCXJR                                                 COMCXJR COMCXJR        5     A     
 COMCXJR            BASE   D                                                       COMCXJR COMCXJR        6     A     
 COMCXJR  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              COMCXJR COMCXJR        7     A     
 COMCXJR   XJR      SPACE  4,10                                                    COMCXJR COMCXJR        8     A     
 COMCXJR  ***       XJR - RESTORE ALL REGISTERS WITH A SYSTEM *XJR* CALL.          COMCXJR COMCXJR        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/28. 19.11.32.      PAGE 154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCXJR 
  
 COMCXJR  *                                                                        COMCXJR COMCXJR       10     A     
 COMCXJR  *         P. C. TAM.         77/07/07.                                   COMCXJR COMCXJR       11     A     
 COMCXJR  *                                                                                CPSA245      203     A     
 COMCXJR  *         *******************************************************                CPSA245      204     A     
 COMCXJR  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      205     A     
 COMCXJR  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      206     A     
 COMCXJR  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      207     A     
 COMCXJR  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      208     A     
 COMCXJR  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      209     A     
 COMCXJR  *         *******************************************************                CPSA245      210     A     
 COMCXJR  *                                                                                CPSA245      211     A     
 COMCXJR  *                                                                        COMCXJR COMCXJR       12     A     
 COMCXJR  *         XJR RESTORES ALL REGISTERS FROM A REGISTER SAVE AREA.          COMCXJR COMCXJR       13     A     
 COMCXJR   XJR      SPACE  4,10                                                    COMCXJR COMCXJR       14     A     
 COMCXJR  ***       XJR RESTORES ALL REGISTERS FROM A REGISTER SAVE AREA.          COMCXJR COMCXJR       15     A     
 COMCXJR  *         THE REGISTERS ARE SAVED IN THE FOLLOWING ORDER -               COMCXJR COMCXJR       16     A     
 COMCXJR  *         B0, B1, ..., B7, A0, A1, ..., A7, X0, X1, ..., X7.             COMCXJR COMCXJR       17     A     
 COMCXJR  *         EACH REGISTER OCCUPIES A FULL WORD, WITH B AND A REGISTER      COMCXJR COMCXJR       18     A     
 COMCXJR  *         VALUES IN BITS 17-0.                                           COMCXJR COMCXJR       19     A     
 COMCXJR  *                                                                        COMCXJR COMCXJR       20     A     
 COMCXJR  *         ENTRY  (X1) = ADDRESS OF THE REGISTER SAVE AREA.               COMCXJR COMCXJR       21     A     
 COMCXJR  *                                                                        COMCXJR COMCXJR       22     A     
 COMCXJR  *         EXIT   ALL REGISTERS SET TO THE CONTENTS OF THE REGISTER       COMCXJR COMCXJR       23     A     
 COMCXJR  *                SAVE AREA.                                              COMCXJR COMCXJR       24     A     
 COMCXJR  *                                                                        COMCXJR COMCXJR       25     A     
 COMCXJR  *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCXJR COMCXJR       26     A     
 COMCXJR  *                B - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCXJR COMCXJR       27     A     
 COMCXJR  *                A - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCXJR COMCXJR       28     A     
 COMCXJR  *                                                                        COMCXJR COMCXJR       29     A     
 COMCXJR  *         CALLS  NONE.                                                   COMCXJR COMCXJR       30     A     
 COMCXJR   XJR      SPACE  4,10                                                    COMCXJR COMCXJR       31     A     
 COMCXJR   SAVEB    EQU    0                                                       COMCXJR COMCXJR       32     A     
 COMCXJR   SAVEA    EQU    8                                                       COMCXJR COMCXJR       33     A     
 COMCXJR   SAVEX    EQU    16                                                      COMCXJR COMCXJR       34     A     
 COMCXJR                                                                           COMCXJR COMCXJR       35     A     
 COMCXJR   XJR      SUBR               ENTRY/EXIT                                  COMCXJR COMCXJR       36     A     
 COMCXJR            IF     -DEF,B1=1,1                                             COMCXJR COMCXJR       37     A     
 COMCXJR            SB1    1                                                       COMCXJR COMCXJR       38     A     
 COMCXJR            MX0    -18         (X0) = 77777777777777000000B                COMCXJR COMCXJR       39     A     
 COMCXJR            SB2    7           (B2) = NUMBER OF HIGHEST REGISTER           COMCXJR COMCXJR       40     A     
 COMCXJR                                                                           COMCXJR COMCXJR       41     A     
 COMCXJR  *         COPY REGISTERS FROM THE SAVED FORMAT TO THE EXCHANGE           COMCXJR COMCXJR       42     A     
 COMCXJR  *         PACKAGE FORMAT.                                                COMCXJR COMCXJR       43     A     
 COMCXJR                                                                           COMCXJR COMCXJR       44     A     
 COMCXJR   XJR1     SB4    B2+X1                                                   COMCXJR COMCXJR       45     A     
 COMCXJR            SA2    SAVEA+B4    (X2) - A.(B2)                               COMCXJR COMCXJR       46     A     
 COMCXJR            SA3    B4          (X3) - B.(B2)                               COMCXJR COMCXJR       47     A     
 COMCXJR            BX2    -X0*X2      CLEAR UPPER BITS                            COMCXJR COMCXJR       48     A     
 COMCXJR            SA4    SAVEX+B4    (X4) - X.(B2)                               COMCXJR COMCXJR       49     A     
 COMCXJR            BX3    -X0*X3      CLEAR UPPER BITS                            COMCXJR COMCXJR       50     A     
 COMCXJR            LX2    18D         (X2) = POSITIONED A.(B2)                    COMCXJR COMCXJR       51     A     
 COMCXJR            BX6    X2+X3       (X6) = A.(B2) AND B.(B2) PACKED             COMCXJR COMCXJR       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/28. 19.11.32.      PAGE 155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCXJR 
  
 COMCXJR            LX7    X4                                                      COMCXJR COMCXJR       53     A     
 COMCXJR            SA6    XJRA+B2     STORE FORMATTED WORD IN EXCHANGE PACKAGE    COMCXJR COMCXJR       54     A     
 COMCXJR            SA7    XJRA+8+B2                                               COMCXJR COMCXJR       55     A     
 COMCXJR            SB2    B2-B1       BACK UP ONE REGISTER                        COMCXJR COMCXJR       56     A     
 COMCXJR            PL     B2,XJR1     IF ANOTHER B/A/X REGISTER TO MOVE           COMCXJR COMCXJR       57     A     
 COMCXJR                                                                           COMCXJR COMCXJR       58     A     
 COMCXJR  *         INSERT P AND RESTORE ALL REGISTERS.                            COMCXJR COMCXJR       59     A     
 COMCXJR                                                                           COMCXJR COMCXJR       60     A     
 COMCXJR            SX5    XJRX        (X5) = P REGISTER FOR RETURN TO CALLER      COMCXJR COMCXJR       61     A     
 COMCXJR            LX5    2*18D       (X5) = POSITIONED P-REGISTER                COMCXJR COMCXJR       62     A     
 COMCXJR            BX6    X6+X5       (X6) = P, A0, B0                            COMCXJR COMCXJR       63     A     
 COMCXJR            SA6    A6          REPLACE OLD RSRA+0 WORD                     COMCXJR COMCXJR       64     A     
 COMCXJR            SYSTEM XJR,R,XJRA                                              COMCXJR COMCXJR       65     A     
 COMCXJR   XJR      SPACE  4,10                                                    COMCXJR COMCXJR       66     A     
 COMCXJR   XJRA     BSS    2*8         EXCHANGE PACKAGE FOR XJR REQUEST            COMCXJR COMCXJR       67     A     
 COMCXJR   XJR      SPACE  4,10                                                    COMCXJR COMCXJR       68     A     
 COMCXJR            BASE   *                                                       COMCXJR COMCXJR       69     A     
 COMCXJR   QUAL$    IF     -DEF,QUAL$                                              COMCXJR COMCXJR       70     A     
 COMCXJR            QUAL   *                                                       COMCXJR COMCXJR       71     A     
 COMCXJR   XJR      EQU    /COMCXJR/XJR                                            COMCXJR COMCXJR       72     A     
 COMCXJR   XJR=     EQU    /COMCXJR/XJR                                                    F4720D        20     A     
 COMCXJR   QUAL$    ENDIF                                                          COMCXJR COMCXJR       73     A     
 COMCXJR   XJR      ENDX                                                           COMCXJR COMCXJR       74     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCXJR 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMCXJR                     74        74
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCZTB 
  
 COMCZTB  *COMDECK  COMCZTB            CONVERT ZEROES TO BLANKS IN A WORD.         COMCZTB COMCZTB        1     A     
 COMCZTB   ZTB      CTEXT  COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.            COMCZTB COMCZTB        2     A     
 COMCZTB   ZTB      SPACE  4,10                                                    COMCZTB COMCZTB        3     A     
 COMCZTB            IF     -DEF,QUAL$,1                                            COMCZTB COMCZTB        4     A     
 COMCZTB            QUAL   COMCZTB                                                 COMCZTB COMCZTB        5     A     
 COMCZTB            BASE   D                                                       COMCZTB COMCZTB        6     A     
 COMCZTB  *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1974, 1978.        COMCZTB COMCZTB        7     A     
 COMCZTB   ZTB      SPACE  4,10                                                    COMCZTB COMCZTB        8     A     
 COMCZTB  ***       ZTB - CONVERT ZEROES TO BLANKS IN A WORD.                      COMCZTB COMCZTB        9     A     
 COMCZTB  *                                                                        COMCZTB COMCZTB       10     A     
 COMCZTB  *         G. R. MANSFIELD.   70/12/08.                                   COMCZTB COMCZTB       11     A     
 COMCZTB  *         S. R. MCPHERSON.   74/11/15.                                   COMCZTB COMCZTB       12     A     
 COMCZTB  *                                                                                CPSA245      212     A     
 COMCZTB  *         *******************************************************                CPSA245      213     A     
 COMCZTB  *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *                CPSA245      214     A     
 COMCZTB  *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *                CPSA245      215     A     
 COMCZTB  *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *                CPSA245      216     A     
 COMCZTB  *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *                CPSA245      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/28. 19.11.32.      PAGE 156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCZTB 
  
 COMCZTB  *         * THROUGH THE PROPER PROCEDURE.                       *                CPSA245      218     A     
 COMCZTB  *         *******************************************************                CPSA245      219     A     
 COMCZTB  *                                                                                CPSA245      220     A     
 COMCZTB  *                                                                        COMCZTB COMCZTB       13     A     
 COMCZTB  *         ZTB CONVERTS ALL 00 CHARACTERS IN A WORD TO BLANKS.            COMCZTB COMCZTB       14     A     
 COMCZTB   ZTB      SPACE  4,10                                                    COMCZTB COMCZTB       15     A     
 COMCZTB  ***       ZTB CONVERTS ALL 00 CHARACTERS IN A WORD TO BLANKS.            COMCZTB COMCZTB       16     A     
 COMCZTB  *                                                                        COMCZTB COMCZTB       17     A     
 COMCZTB  *         ENTRY  (X1) = WORD TO BE CONVERTED.                            COMCZTB COMCZTB       18     A     
 COMCZTB  *                (B1) = 1.                                               COMCZTB COMCZTB       19     A     
 COMCZTB  *                                                                        COMCZTB COMCZTB       20     A     
 COMCZTB  *         EXIT   (X6) = CONVERTED WORD.                                  COMCZTB COMCZTB       21     A     
 COMCZTB  *                (X7) = FINAL CHARACTER MASK.                            COMCZTB COMCZTB       22     A     
 COMCZTB  *                                                                        COMCZTB COMCZTB       23     A     
 COMCZTB  *         USES   X - 3, 6, 7.                                            COMCZTB COMCZTB       24     A     
 COMCZTB  *                A - 3.                                                  COMCZTB COMCZTB       25     A     
 COMCZTB  *                B - NONE.                                               COMCZTB COMCZTB       26     A     
 COMCZTB  *                                                                        COMCZTB COMCZTB       27     A     
 COMCZTB  *         CALLS  NONE.                                                   COMCZTB COMCZTB       28     A     
 COMCZTB                                                                           COMCZTB COMCZTB       29     A     
 COMCZTB                                                                           COMCZTB COMCZTB       30     A     
 COMCZTB   ZTB      SUBR               ENTRY/EXIT                                  COMCZTB COMCZTB       31     A     
 COMCZTB            SA3    ZTBA                                                    COMCZTB COMCZTB       32     A     
 COMCZTB            BX6    X3*X1       EXTRACT UPPER BIT FROM ALL CHARACTERS       COMCZTB COMCZTB       33     A     
 COMCZTB            BX7    -X3*X1                                                  COMCZTB COMCZTB       34     A     
 COMCZTB            IX6    X6+X3       ANY NON-ZERO CHARACTER PRODUCES CARRY       COMCZTB COMCZTB       35     A     
 COMCZTB            BX6    X6+X7       MERGE UPPER BITS AND CARRIES                COMCZTB COMCZTB       36     A     
 COMCZTB            BX7    -X3*X6      ALL NON ZERO CHARACTERS = 40B               COMCZTB COMCZTB       37     A     
 COMCZTB            SA3    A3+B1                                                   COMCZTB COMCZTB       38     A     
 COMCZTB            BX6    X7                                                      COMCZTB COMCZTB       39     A     
 COMCZTB            LX7    -5          GENERATE SPACE MASK                         COMCZTB COMCZTB       40     A     
 COMCZTB            IX7    X6-X7                                                   COMCZTB COMCZTB       41     A     
 COMCZTB            BX7    X6+X7                                                   COMCZTB COMCZTB       42     A     
 COMCZTB            BX3    -X7*X3      SELECT SPACE CODES                          COMCZTB COMCZTB       43     A     
 COMCZTB            IX6    X1+X3       MERGE SPACES                                COMCZTB COMCZTB       44     A     
 COMCZTB            EQ     ZTB                                                     COMCZTB COMCZTB       45     A     
 COMCZTB                                                                           COMCZTB COMCZTB       46     A     
 COMCZTB   ZTBA     CON    37373737373737373737B                                   COMCZTB COMCZTB       47     A     
 COMCZTB            CON    1H                                                      COMCZTB COMCZTB       48     A     
 COMCZTB   ZTB      SPACE  4,10                                                    COMCZTB COMCZTB       49     A     
 COMCZTB            BASE   *                                                       COMCZTB COMCZTB       50     A     
 COMCZTB   QUAL$    IF     -DEF,QUAL$                                              COMCZTB COMCZTB       51     A     
 COMCZTB            QUAL   *                                                       COMCZTB COMCZTB       52     A     
 COMCZTB   ZTB      EQU    /COMCZTB/ZTB                                            COMCZTB COMCZTB       53     A     
 COMCZTB   ZTB=     EQU    /COMCZTB/ZTB                                                    F4720D        21     A     
 COMCZTB   QUAL$    ENDIF                                                          COMCZTB COMCZTB       54     A     
 COMCZTB   ZTB      ENDX                                                           COMCZTB COMCZTB       55     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMCZTB 
  
          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/28. 19.11.32.      PAGE 157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMCZTB 
  
          COMCZTB                     55        55
          F4720D                       1         1
          CPSA245                      9         9
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CPUREL  
  
 CPUREL   *DECK     CPUREL                                                         CPUREL  CPUREL         1     A     
 CPUREL             IDENT  CPU.ARG                                                 CPUREL  CPUREL         2     A     
 CPUREL             ENTRY  ARG=                                                    CPUREL  CPUREL         3     A     
 CPUREL    ARG      TITLE  ARG - PROCESS ARGUMENTS.                                CPUREL  CPUREL         4     A     
 CPUREL             COMMENT PROCESS ARGUMENTS.                                     CPUREL  CPUREL         5     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL         6     A     
 CPUREL   *CALL     COMCARG                                                        CPUREL  CPUREL         7     A     
 CPUREL    ARG=     EQU    ARG                                                     CPUREL  CPUREL         8          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL         9     A     
 CPUREL             IDENT  CPU.CDD                                                 CPUREL  CPUREL        10     A     
 CPUREL             ENTRY  CDD=                                                    CPUREL  CPUREL        11     A     
 CPUREL    CDD      TITLE  CDD - CONVERT CONSTANT TO DECIMAL DISPLAY CODE.         CPUREL  CPUREL        12     A     
 CPUREL             COMMENT CONVERT CONSTANT TO DECIMAL DISPLAY CODE.              CPUREL  CPUREL        13     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        14     A     
 CPUREL   *CALL     COMCCDD                                                        CPUREL  CPUREL        15     A     
 CPUREL    CDD=     EQU    CDD                                                     CPUREL  CPUREL        16          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL        17     A     
 CPUREL             IDENT  CPU.CFD                                                 CPUREL  CPUREL        18     A     
 CPUREL             ENTRY  CFD=                                                    CPUREL  CPUREL        19     A     
 CPUREL    CFD      TITLE  CFD - CONVERT CONSTANT TO F10.3 FORMAT.                 CPUREL  CPUREL        20     A     
 CPUREL             COMMENT CONVERT CONSTANT TO F10.3 FORMAT.                      CPUREL  CPUREL        21     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        22     A     
 CPUREL   *CALL     COMCCFD                                                        CPUREL  CPUREL        23     A     
 CPUREL    CFD=     EQU    CFD                                                     CPUREL  CPUREL        24          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL        25     A     
 CPUREL   *IF -DEF,SC2MACRO                                                                F4720B         5     A     
 CPUREL             IDENT  CPU.CIO                                                 CPUREL  CPUREL        26     A     
 CPUREL             ENTRY  CIO=                                                    CPUREL  CPUREL        27     A     
 CPUREL    CIO      TITLE  CIO - I/O FUNCTION PROCESSOR.                           CPUREL  CPUREL        28     A     
 CPUREL             COMMENT I/O FUNCTION PROCESSOR.                                CPUREL  CPUREL        29     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        30     A     
 CPUREL   *CALL     COMCCIO                                                        CPUREL  CPUREL        31     A     
 CPUREL             END                                                            CPUREL  CPUREL        32     A     
 CPUREL   *ENDIF                                                                           F4720B         6     A     
 CPUREL             IDENT  CPU.COD                                                 CPUREL  CPUREL        33     A     
 CPUREL             ENTRY  COD=                                                    CPUREL  CPUREL        34     A     
 CPUREL    COD      TITLE  COD - CONVERT CONSTANT TO OCTAL DISPLAY CODE.           CPUREL  CPUREL        35     A     
 CPUREL             COMMENT CONVERT CONSTANT TO OCTAL DISPLAY CODE.                CPUREL  CPUREL        36     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        37     A     
 CPUREL   *CALL     COMCCOD                                                        CPUREL  CPUREL        38     A     
 CPUREL    COD=     EQU    COD                                                     CPUREL  CPUREL        39          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL        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/28. 19.11.32.      PAGE 158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CPUREL  
  
 CPUREL             IDENT  CPU.CPT                                                 CPUREL  CPUREL        41     A     
 CPUREL             ENTRY  CPT=                                                    CPUREL  CPUREL        42     A     
 CPUREL    CPT      TITLE  CPT - COPY PREFIX TABLE.                                CPUREL  CPUREL        43     A     
 CPUREL             COMMENT COPY PREFIX TABLE.                                     CPUREL  CPUREL        44     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        45     A     
 CPUREL   *CALL     COMCCPT                                                        CPUREL  CPUREL        46     A     
 CPUREL    CPT=     EQU    CPT                                                     CPUREL  CPUREL        47          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL        48     A     
 CPUREL             IDENT  CPU.DXB                                                 CPUREL  CPUREL        49     A     
 CPUREL             ENTRY  DXB=                                                    CPUREL  CPUREL        50     A     
 CPUREL    DXB      TITLE  DXB - CONVERT DISPLAY CODE TO BINARY.                   CPUREL  CPUREL        51     A     
 CPUREL             COMMENT CONVERT DISPLAY CODE TO BINARY.                        CPUREL  CPUREL        52     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        53     A     
 CPUREL   *CALL     COMCDXB                                                        CPUREL  CPUREL        54     A     
 CPUREL    DXB=     EQU    DXB                                                     CPUREL  CPUREL        55          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL        56     A     
 CPUREL             IDENT  CPU.MNS                                                         F4720C       424     A     
 CPUREL             ENTRY  MNS=                                                            F4720C       425     A     
 CPUREL             SYSCOM B1                                                              F233CMU      158     A     
 CPUREL                                                                                    F4720C       426     A     
 CPUREL    MNS      TITLE  MNS - MOVE NON-OVERLAPPING STRING.                              F4720C       427     A     
 CPUREL                                                                                    F4720C       428     A     
 CPUREL             COMMENT MOVE NON-OVERLAPPING STRING.                                   F4720C       429     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORP. 1978.                             F4720C       430     A     
 CPUREL   *CALL     COMCMNS                                                                F4720C       431     A     
 CPUREL                                                                                    F4720C       432     A     
 CPUREL             END                                                                    F4720C       433     A     
 CPUREL             IDENT  CPU.MOS                                                         F4720C       434     A     
 CPUREL             ENTRY  MOS=                                                            F4720C       435     A     
 CPUREL                                                                                    F4720C       436     A     
 CPUREL    MOS      TITLE  MOS - MOVE OVERLAPPING STRING.                                  F4720C       437     A     
 CPUREL                                                                                    F4720C       438     A     
 CPUREL             COMMENT MOVE OVERLAPPING STRING.                                       F4720C       439     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORP. 1978.                             F4720C       440     A     
 CPUREL   *CALL     COMCMOS                                                                F4720C       441     A     
 CPUREL                                                                                    F4720C       442     A     
 CPUREL    MOS=     EQU    MOS                                                             F4720C       443          I
          -F4720D 
 CPUREL             END                                                                    F4720C       444     A     
 CPUREL             IDENT  CPU.MVE                                                 CPUREL  CPUREL        57     A     
 CPUREL             ENTRY  MVE=                                                    CPUREL  CPUREL        58     A     
 CPUREL             SYSCOM B1                                                      CPUREL  CPUREL        59     A     
 CPUREL    MVE      TITLE  MVE - MOVE BLOCK OF DATA.                               CPUREL  CPUREL        60     A     
 CPUREL             COMMENT MOVE BLOCK OF DATA.                                    CPUREL  CPUREL        61     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        62     A     
 CPUREL   *CALL     COMCMVE                                                        CPUREL  CPUREL        63     A     
 CPUREL             END                                                            CPUREL  CPUREL        64     A     
 CPUREL   *IF -DEF,SC2MACRO                                                                F4720B         7     A     
 CPUREL             IDENT  CPU.RDC                                                 CPUREL  CPUREL        65     A     
 CPUREL             ENTRY  RDC=                                                    CPUREL  CPUREL        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/28. 19.11.32.      PAGE 159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CPUREL  
  
 CPUREL    RDC      TITLE  RDC - READ CODED LINE, *C* FORMAT.                      CPUREL  CPUREL        67     A     
 CPUREL             COMMENT READ CODED LINE, *C* FORMAT.                           CPUREL  CPUREL        68     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        69     A     
 CPUREL   *CALL     COMCRDC                                                        CPUREL  CPUREL        70     A     
 CPUREL             END                                                            CPUREL  CPUREL        71     A     
 CPUREL             IDENT  CPU.RDH                                                 CPUREL  CPUREL        72     A     
 CPUREL             ENTRY  RDH=                                                    CPUREL  CPUREL        73     A     
 CPUREL    RDH      TITLE  RDH - READ CODED LINE, *H* FORMAT.                      CPUREL  CPUREL        74     A     
 CPUREL             COMMENT READ CODED LINE, *H* FORMAT.                           CPUREL  CPUREL        75     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        76     A     
 CPUREL   *CALL     COMCRDH                                                        CPUREL  CPUREL        77     A     
 CPUREL             END                                                            CPUREL  CPUREL        78     A     
 CPUREL             IDENT  CPU.RDO                                                 CPUREL  CPUREL        79     A     
 CPUREL             ENTRY  RDO=                                                    CPUREL  CPUREL        80     A     
 CPUREL    RDO      TITLE  RDO - READ ONE WORD.                                    CPUREL  CPUREL        81     A     
 CPUREL             COMMENT READ ONE WORD.                                         CPUREL  CPUREL        82     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        83     A     
 CPUREL   *CALL     COMCRDO                                                        CPUREL  CPUREL        84     A     
 CPUREL             END                                                            CPUREL  CPUREL        85     A     
 CPUREL             IDENT  CPU.RDS                                                 CPUREL  CPUREL        86     A     
 CPUREL             ENTRY  RDS=                                                    CPUREL  CPUREL        87     A     
 CPUREL    RDS      TITLE  RDS - READ CODED LINE TO STRING BUFFER.                 CPUREL  CPUREL        88     A     
 CPUREL             COMMENT READ CODED LINE TO STRING BUFFER.                      CPUREL  CPUREL        89     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL        90     A     
 CPUREL   *CALL     COMCRDS                                                        CPUREL  CPUREL        91     A     
 CPUREL             END                                                            CPUREL  CPUREL        92     A     
 CPUREL             IDENT  CPU.RDW                                                 CPUREL  CPUREL        93     A     
 CPUREL             ENTRY  RDW=                                                    CPUREL  CPUREL        94     A     
 CPUREL             ENTRY  RDX=                                                    CPUREL  CPUREL        95     A     
 CPUREL             ENTRY  LCB=                                                    CPUREL  CPUREL        96     A     
 CPUREL             SYSCOM                                                         CPUREL  CPUREL        97     A     
 CPUREL    RDW      TITLE  RDW - READ WORDS TO WORKING BUFFER.                     CPUREL  CPUREL        98     A     
 CPUREL             COMMENT READ WORDS TO WORKING BUFFER.                          CPUREL  CPUREL        99     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       100     A     
 CPUREL   *CALL     COMCRDW                                                        CPUREL  CPUREL       101     A     
 CPUREL             END                                                            CPUREL  CPUREL       102     A     
 CPUREL   *ENDIF                                                                           F4720B         8     A     
 CPUREL             IDENT  CPU.RSR                                                 CPUREL  CPUREL       103     A     
 CPUREL             ENTRY  RSR=                                                    CPUREL  CPUREL       104     A     
 CPUREL             SYSCOM                                                         CPUREL  CPUREL       105     A     
 CPUREL    RSR      TITLE  RSR - RESTORE REGISTERS.                                CPUREL  CPUREL       106     A     
 CPUREL             COMMENT RESTORE REGISTERS.                                     CPUREL  CPUREL       107     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       108     A     
 CPUREL   *CALL     COMCRSR                                                        CPUREL  CPUREL       109     A     
 CPUREL    RSR=     EQU    RSR                                                     CPUREL  CPUREL       110          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       111     A     
 CPUREL             IDENT  CPU.SFN                                                 CPUREL  CPUREL       112     A     
 CPUREL             ENTRY  SFN=                                                    CPUREL  CPUREL       113     A     
 CPUREL    SFN      TITLE  SFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.          CPUREL  CPUREL       114     A     
 CPUREL             COMMENT SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.               CPUREL  CPUREL       115     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CPUREL  
  
 CPUREL   *CALL     COMCSFN                                                        CPUREL  CPUREL       117     A     
 CPUREL    SFN=     EQU    SFN                                                     CPUREL  CPUREL       118          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       119     A     
 CPUREL             IDENT  CPU.SRT                                                 CPUREL  CPUREL       120     A     
 CPUREL             ENTRY  SRT=                                                    CPUREL  CPUREL       121     A     
 CPUREL    SRT      TITLE  SRT - SET RECORD TYPE.                                  CPUREL  CPUREL       122     A     
 CPUREL             COMMENT SET RECORD TYPE.                                       CPUREL  CPUREL       123     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       124     A     
 CPUREL   *CALL     COMCSRT                                                        CPUREL  CPUREL       125     A     
 CPUREL    SRT=     EQU    SRT                                                     CPUREL  CPUREL       126          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       127     A     
 CPUREL             IDENT  CPU.SST                                                 CPUREL  CPUREL       128     A     
 CPUREL             ENTRY  SST=                                                    CPUREL  CPUREL       129     A     
 CPUREL    SST      TITLE  SST - SHELL SORT TABLE.                                 CPUREL  CPUREL       130     A     
 CPUREL             COMMENT SHELL SORT TABLE.                                      CPUREL  CPUREL       131     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       132     A     
 CPUREL   *CALL     COMCSST                                                        CPUREL  CPUREL       133     A     
 CPUREL    SST=     EQU    SST                                                     CPUREL  CPUREL       134          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       135     A     
 CPUREL   *IF -DEF,SC2MACRO                                                                F4720B         9     A     
 CPUREL             IDENT  CPU.STF                                                 CPUREL  CPUREL       136     A     
 CPUREL             ENTRY  STF=                                                    CPUREL  CPUREL       137     A     
 CPUREL    STF      TITLE  STF - SET TERMINAL FILE.                                CPUREL  CPUREL       138     A     
 CPUREL             COMMENT SET TERMINAL FILE.                                     CPUREL  CPUREL       139     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       140     A     
 CPUREL   *CALL     COMCSTF                                                        CPUREL  CPUREL       141     A     
 CPUREL    STF=     EQU    STF                                                     CPUREL  CPUREL       142          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       143     A     
 CPUREL   *ENDIF                                                                           F4720B        10     A     
 CPUREL             IDENT  CPU.SVR                                                 CPUREL  CPUREL       144     A     
 CPUREL             ENTRY  SVR=                                                    CPUREL  CPUREL       145     A     
 CPUREL    SVR      TITLE  SVR - SAVE REGISTERS.                                   CPUREL  CPUREL       146     A     
 CPUREL             COMMENT SAVE REGISTERS.                                        CPUREL  CPUREL       147     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       148     A     
 CPUREL   *CALL     COMCSVR                                                        CPUREL  CPUREL       149     A     
 CPUREL    SVR=     EQU    SVR                                                     CPUREL  CPUREL       150          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       151     A     
 CPUREL   *IF -DEF,SC2MACRO                                                                F4720B        11     A     
 CPUREL             IDENT  CPU.SYS                                                 CPUREL  CPUREL       152     A     
 CPUREL             ENTRY  SYS=                                                    CPUREL  CPUREL       153     A     
 CPUREL             ENTRY  RCL=                                                    CPUREL  CPUREL       154     A     
 CPUREL             ENTRY  WNB=                                                    CPUREL  CPUREL       155     A     
 CPUREL             ENTRY  MSG=                                                    CPUREL  CPUREL       156     A     
 CPUREL             SYSCOM                                                         CPUREL  CPUREL       157     A     
 CPUREL    SYS      TITLE  SYS - PROCESS SYSTEM REQUEST.                           CPUREL  CPUREL       158     A     
 CPUREL             COMMENT PROCESS SYSTEM REQUEST.                                CPUREL  CPUREL       159     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       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/28. 19.11.32.      PAGE 161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CPUREL  
  
 CPUREL   *CALL     COMCSYS                                                        CPUREL  CPUREL       161     A     
 CPUREL             END                                                            CPUREL  CPUREL       162     A     
 CPUREL   *ENDIF                                                                           F4720B        12     A     
 CPUREL             IDENT  CPU.UPC                                                 CPUREL  CPUREL       163     A     
 CPUREL             ENTRY  UPC=                                                    CPUREL  CPUREL       164     A     
 CPUREL    UPC      TITLE  UPC - UNPACK CONTROL CARD.                              CPUREL  CPUREL       165     A     
 CPUREL             COMMENT UNPACK CONTROL CARD.                                   CPUREL  CPUREL       166     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       167     A     
 CPUREL   *CALL     COMCUPC                                                        CPUREL  CPUREL       168     A     
 CPUREL    UPC=     EQU    UPC                                                     CPUREL  CPUREL       169          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       170     A     
 CPUREL             IDENT  CPU.WOD                                                 CPUREL  CPUREL       171     A     
 CPUREL             ENTRY  WOD=                                                    CPUREL  CPUREL       172     A     
 CPUREL    WOD      TITLE  WOD - CONVERT WORD TO OCTAL DISPLAY CODE.               CPUREL  CPUREL       173     A     
 CPUREL             COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.                    CPUREL  CPUREL       174     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       175     A     
 CPUREL   *CALL     COMCWOD                                                        CPUREL  CPUREL       176     A     
 CPUREL    WOD=     EQU    WOD                                                     CPUREL  CPUREL       177          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       178     A     
 CPUREL   *IF -DEF,SC2MACRO                                                                F4720B        13     A     
 CPUREL             IDENT  CPU.WTC                                                 CPUREL  CPUREL       179     A     
 CPUREL             ENTRY  WTC=                                                    CPUREL  CPUREL       180     A     
 CPUREL    WTC      TITLE  WTC - WRITE CODED LINE, *C* FORMAT.                     CPUREL  CPUREL       181     A     
 CPUREL             COMMENT WRITE CODED LINE, *C* FORMAT.                          CPUREL  CPUREL       182     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       183     A     
 CPUREL   *CALL     COMCWTC                                                        CPUREL  CPUREL       184     A     
 CPUREL             END                                                            CPUREL  CPUREL       185     A     
 CPUREL             IDENT  CPU.WTH                                                 CPUREL  CPUREL       186     A     
 CPUREL             ENTRY  WTH=                                                    CPUREL  CPUREL       187     A     
 CPUREL    WTH      TITLE  WTH - WRITE CODED LINE, *H* FORMAT.                     CPUREL  CPUREL       188     A     
 CPUREL             COMMENT WRITE CODED LINE, *H* FORMAT.                          CPUREL  CPUREL       189     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       190     A     
 CPUREL   *CALL     COMCWTH                                                        CPUREL  CPUREL       191     A     
 CPUREL             END                                                            CPUREL  CPUREL       192     A     
 CPUREL             IDENT  CPU.WTO                                                 CPUREL  CPUREL       193     A     
 CPUREL             ENTRY  WTO=                                                    CPUREL  CPUREL       194     A     
 CPUREL    WTO      TITLE  WTO - WRITE ONE WORD.                                   CPUREL  CPUREL       195     A     
 CPUREL             COMMENT WRITE ONE WORD.                                        CPUREL  CPUREL       196     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       197     A     
 CPUREL   *CALL     COMCWTO                                                        CPUREL  CPUREL       198     A     
 CPUREL             END                                                            CPUREL  CPUREL       199     A     
 CPUREL             IDENT  CPU.WTS                                                 CPUREL  CPUREL       200     A     
 CPUREL             ENTRY  WTS=                                                    CPUREL  CPUREL       201     A     
 CPUREL    WTS      TITLE  WTS - WRITE CODED LINE FROM STRING BUFFER.              CPUREL  CPUREL       202     A     
 CPUREL             COMMENT WRITE CODED LINE FROM STRING BUFFER.                   CPUREL  CPUREL       203     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       204     A     
 CPUREL   *CALL     COMCWTS                                                        CPUREL  CPUREL       205     A     
 CPUREL             END                                                            CPUREL  CPUREL       206     A     
 CPUREL             IDENT  CPU.WTW                                                 CPUREL  CPUREL       207     A     
 CPUREL             ENTRY  WTW=                                                    CPUREL  CPUREL       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/28. 19.11.32.      PAGE 162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CPUREL  
  
 CPUREL             ENTRY  WTX=                                                    CPUREL  CPUREL       209     A     
 CPUREL             ENTRY  DCB=                                                    CPUREL  CPUREL       210     A     
 CPUREL             SYSCOM                                                         CPUREL  CPUREL       211     A     
 CPUREL    WTW      TITLE  WTW - WRITE WORDS FROM WORKING BUFFER.                  CPUREL  CPUREL       212     A     
 CPUREL             COMMENT WRITE WORDS FROM WORKING BUFFER.                       CPUREL  CPUREL       213     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       214     A     
 CPUREL   *CALL     COMCWTW                                                        CPUREL  CPUREL       215     A     
 CPUREL             END                                                            CPUREL  CPUREL       216     A     
 CPUREL             IDENT  CPU.XJR                                                 CPUREL  CPUREL       217     A     
 CPUREL             ENTRY  XJR=                                                    CPUREL  CPUREL       218     A     
 CPUREL    XJR      TITLE  XJR - RESTORE REGISTERS VIA *XJR* MONITOR CALL.         CPUREL  CPUREL       219     A     
 CPUREL             COMMENT RESTORE REGISTERS VIA *XJR* MONITOR CALL.              CPUREL  CPUREL       220     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       221     A     
 CPUREL   *CALL     COMCXJR                                                        CPUREL  CPUREL       222     A     
 CPUREL    XJR=     EQU    XJR                                                     CPUREL  CPUREL       223          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       224     A     
 CPUREL   *ENDIF                                                                           F4720B        14     A     
 CPUREL             IDENT  CPU.ZTB                                                 CPUREL  CPUREL       225     A     
 CPUREL             ENTRY  ZTB=                                                    CPUREL  CPUREL       226     A     
 CPUREL    ZTB      TITLE  ZTB - CONVERT ZEROES TO BLANKS IN A WORD.               CPUREL  CPUREL       227     A     
 CPUREL             COMMENT CONVERT ZEROES TO BLANKS IN A WORD.                    CPUREL  CPUREL       228     A     
 CPUREL             COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CPUREL  CPUREL       229     A     
 CPUREL   *CALL     COMCZTB                                                        CPUREL  CPUREL       230     A     
 CPUREL    ZTB=     EQU    ZTB                                                     CPUREL  CPUREL       231          I
          -F4720D 
 CPUREL             END                                                            CPUREL  CPUREL       232     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CPUREL  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CPUREL                     232       216
          F4720B                      10        10
          F4720C                      21        20
          F233CMU                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALLCPU 
  
 CALLCPU  *DECK     CALLCPU                                                        CALLCPU CALLCPU        1     A     
 CALLCPU            IDENT  CALLCPU                                                 CALLCPU CALLCPU        2     A     
 CALLCPU            SYSCOM B1                                                      CALLCPU CALLCPU        3     A     
 CALLCPU            LIST   F,X                                                     CALLCPU CALLCPU        4     A     
 CALLCPU   CALLCPU  TITLE  CALLCPU - CALL CPU COMMON DECKS.                        CALLCPU CALLCPU        5     A     
 CALLCPU            COMMENT CALL CPU COMMON DECKS.                                 CALLCPU CALLCPU        6     A     
 CALLCPU            COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.              CALLCPU CALLCPU        7     A     
 CALLCPU   CALLCPU  SPACE  4,10                                                    CALLCPU CALLCPU        8     A     
 CALLCPU  ***       CALLCPU - CALL CPU COMMON DECKS.                               CALLCPU CALLCPU        9     A     
 CALLCPU  *                                                                        CALLCPU CALLCPU       10     A     
 CALLCPU  *         THIS PROGRAM EXISTS TO PROVIDE AN EASY MEANS OF LISTING        CALLCPU CALLCPU       11     A     
 CALLCPU  *         THE STANDARD CPU COMMON DECKS.  IT IS NOT INTENDED TO BE       CALLCPU CALLCPU       12     A     
 CALLCPU  *         EXECUTED.                                                      CALLCPU CALLCPU       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/28. 19.11.32.      PAGE 163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALLCPU 
  
 CALLCPU   CALLCPU  SPACE  4,10                                                    CALLCPU CALLCPU       14     A     
 CALLCPU  ***       THE COMMON DECKS LISTED HERE CONSTITUTE A STANDARD SET OF      CALLCPU CALLCPU       15     A     
 CALLCPU  *         COMPASS SUBROUTINES FOR USE BY ALL CYBER 170 PRODUCTS.         CALLCPU CALLCPU       16     A     
 CALLCPU  *         ALL SUBROUTINES RUN ON BOTH NOS AND NOS/BE AND PRODUCE THE     CALLCPU CALLCPU       17     A     
 CALLCPU  *         SAME CODE ON BOTH SYSTEMS.  THEY MAY BE ASSEMBLED USING THE    CALLCPU CALLCPU       18     A     
 CALLCPU  *         COMMON SYSTEMS TEXT *CPUTEXT*.                                 CALLCPU CALLCPU       19     A     
 CALLCPU            SPACE  4,8                                                             F4720A        30     A     
 CALLCPU  ***       SOME GENERAL RULES APPLY TO THE USE OF ALL OF THESE COMMON             F4720A        31     A     
 CALLCPU  *         DECKS.  ANY SUCH GENERAL RULES ARE STATED HERE IN A                    F4720A        32     A     
 CALLCPU  *         CENTRALIZED PLACE AND ARE AS FOLLOWS --                                F4720A        33     A     
 CALLCPU  *                                                                                F4720A        34     A     
 CALLCPU  *         1) ANY I/O BUFFERS, STRING BUFFERS, EXCHANGE PACKAGE SAVE              F4720A        35     A     
 CALLCPU  *         AREAS, ETC. TO BE USED BY ANY OF THESE COMMON DECKS SHOULD             F4720A        36     A     
 CALLCPU  *         NOT BE LOCATED WITHIN THE LAST 10B WORDS OF THE FIELD LENGTH.          F4720A        37     A     
 CALLCPU  *         SOME FETCH LOOPS, MOVE LOOPS, ETC. ARE WRITTEN FOR OPTIMAL             F4720A        38     A     
 CALLCPU  *         PERFORMANCE AND MAY MODE OUT IF THE ABOVE RESTRICTION IS NOT           F4720A        39     A     
 CALLCPU  *         ADHERED TO.  THIS IS NOT CONSIDERED A BUG BUT A USER ERROR.            F4720A        40     A     
 CALLCPU  *                                                                                F4720A        41     A     
 CALLCPU  *         2) REGISTERS USED BY EACH COMMON DECK ARE DOCUMENTED AS SUCH.          F4720A        42     A     
 CALLCPU  *         REGISTERS WHICH ARE NOT USED BY THE COMMON DECKS ARE                   F4720A        43     A     
 CALLCPU  *         UNCHANGED AND MAY BE CONSIDERED PRESERVED.  THESE REGISTER             F4720A        44     A     
 CALLCPU  *         CONVENTIONS MAY NOT BE CHANGED AND ARE CONSIDERED TO BE SET            F4720A        45     A     
 CALLCPU  *         IN CONCRETE FOREVER.                                                   F4720A        46     A     
 CALLCPU  *                                                                                F4720A        47     A     
 CALLCPU  *         3) ENTRY AND EXIT CONDITIONS ARE EXACTLY AND ONLY THOSE                F4720A        48     A     
 CALLCPU  *         WHICH ARE DOCUMENTED WITHIN EACH COMMON DECK.  THE CALLER              F4720A        49     A     
 CALLCPU  *         SHOULD NOT RELY ON UNDOCUMENTED EXIT CONDITIONS, AS THESE              F4720A        50     A     
 CALLCPU  *         MAY CHANGE FROM TIME TO TIME.                                          F4720A        51     A     
 CALLCPU            SPACE  4,8                                                             F4720A        52     A     
 CALLCPU  *         NOTE THAT IDENT NAMES CHANGING ANY OF THESE COMMON DECKS ARE           F4720A        53     A     
 CALLCPU  *         RESTRICTED TO SEVEN CHARACTERS OR LESS.  THIS RESTRICTION IS           F4720A        54     A     
 CALLCPU  *         NEEDED TO ENSURE THAT *UPMOD* ON *NOS* MAY BE RUN TO GENERATE          F4720A        55     A     
 CALLCPU  *         AN *OPL* CONTAINING THESE COMMON DECKS SO THAT THESE DECKS             F4720A        56     A     
 CALLCPU  *         MAY ALSO BE USED BY *MODIFY* BASED PRODUCTS ON *NOS*.                  F4720A        57     A     
 CALLCPU            SPACE  4,8                                                             F4720A        58     A     
 CALLCPU  *         DOCUMENTATION FOR THESE DECKS MAY BE OBTAINED BY USING                 F4720A        59     A     
 CALLCPU  *         *UPMOD* ON *NOS* TO CREATE AN *OPL*, EDITING *CALLCPU*,                F4720A        60     A     
 CALLCPU  *         AND MAKING A *DOCMENT* RUN.                                            F4720A        61     A     
 CALLCPU   CALLCPU  SPACE  4,10                                                    CALLCPU CALLCPU       20     A     
 CALLCPU  *         EQUIVALENCES FOR *COMCMTP*.                                    CALLCPU CALLCPU       21     A     
 CALLCPU                                                                           CALLCPU CALLCPU       22     A     
 CALLCPU   MEML     EQU    0                                                       CALLCPU CALLCPU       23     A     
 CALLCPU   TOV      EQU    0                                                       CALLCPU CALLCPU       24     A     
 CALLCPU  *CALL     COMCARG                                                        CALLCPU CALLCPU       25     A     
 CALLCPU  *CALL     COMCCDD                                                        CALLCPU CALLCPU       26     A     
 CALLCPU  *CALL     COMCCFD                                                        CALLCPU CALLCPU       27     A     
 CALLCPU  *IF -DEF,SC2MACRO                                                                F4720B        15     A     
 CALLCPU  *CALL     COMCCIO                                                        CALLCPU CALLCPU       28     A     
 CALLCPU  *ENDIF                                                                           F4720B        16     A     
 CALLCPU  *CALL     COMCCOD                                                        CALLCPU CALLCPU       29     A     
 CALLCPU  *IF -DEF,SC2MACRO                                                                CPSA289        5     A     
 CALLCPU  *CALL COMCCPM                                                                    CPSA289        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/28. 19.11.32.      PAGE 164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CALLCPU 
  
 CALLCPU  *ENDIF                                                                           CPSA289        7     A     
 CALLCPU  *CALL     COMCCPT                                                        CALLCPU CALLCPU       30     A     
 CALLCPU  *CALL     COMCDXB                                                        CALLCPU CALLCPU       31     A     
 CALLCPU  *CALL     COMCMNS                                                                F4720C       445     A     
 CALLCPU  *CALL     COMCMOS                                                                F4720C       446     A     
 CALLCPU  *CALL     COMCMTM                                                        CALLCPU CALLCPU       32     A     
 CALLCPU  *CALL     COMCMTP                                                        CALLCPU CALLCPU       33     A     
 CALLCPU  *CALL     COMCMVE                                                        CALLCPU CALLCPU       34     A     
 CALLCPU  *IF -DEF,SC2MACRO                                                                F4720B        17     A     
 CALLCPU  *CALL     COMCRDC                                                        CALLCPU CALLCPU       35     A     
 CALLCPU  *CALL     COMCRDH                                                        CALLCPU CALLCPU       36     A     
 CALLCPU  *CALL     COMCRDO                                                        CALLCPU CALLCPU       37     A     
 CALLCPU  *CALL     COMCRDS                                                        CALLCPU CALLCPU       38     A     
 CALLCPU  *CALL     COMCRDW                                                        CALLCPU CALLCPU       39     A     
 CALLCPU  *ENDIF                                                                           F4720B        18     A     
 CALLCPU  *CALL     COMCRSR                                                        CALLCPU CALLCPU       40     A     
 CALLCPU  *CALL     COMCSFN                                                        CALLCPU CALLCPU       41     A     
 CALLCPU  *CALL     COMCSRT                                                        CALLCPU CALLCPU       42     A     
 CALLCPU  *CALL     COMCSST                                                        CALLCPU CALLCPU       43     A     
 CALLCPU  *IF -DEF,SC2MACRO                                                                F4720B        19     A     
 CALLCPU  *CALL     COMCSTF                                                        CALLCPU CALLCPU       44     A     
 CALLCPU  *ENDIF                                                                           F4720B        20     A     
 CALLCPU  *CALL     COMCSVR                                                        CALLCPU CALLCPU       45     A     
 CALLCPU  *IF -DEF,SC2MACRO                                                                F4720B        21     A     
 CALLCPU  *CALL     COMCSYS                                                        CALLCPU CALLCPU       46     A     
 CALLCPU  *ENDIF                                                                           F4720B        22     A     
 CALLCPU  *CALL     COMCUPC                                                        CALLCPU CALLCPU       47     A     
 CALLCPU  *CALL     COMCWOD                                                        CALLCPU CALLCPU       48     A     
 CALLCPU  *IF -DEF,SC2MACRO                                                                F4720B        23     A     
 CALLCPU  *CALL     COMCWTC                                                        CALLCPU CALLCPU       49     A     
 CALLCPU  *CALL     COMCWTH                                                        CALLCPU CALLCPU       50     A     
 CALLCPU  *CALL     COMCWTO                                                        CALLCPU CALLCPU       51     A     
 CALLCPU  *CALL     COMCWTS                                                        CALLCPU CALLCPU       52     A     
 CALLCPU  *CALL     COMCWTW                                                        CALLCPU CALLCPU       53     A     
 CALLCPU  *CALL     COMCXJR                                                        CALLCPU CALLCPU       54     A     
 CALLCPU  *ENDIF                                                                           F4720B        24     A     
 CALLCPU  *CALL     COMCZTB                                                        CALLCPU CALLCPU       55     A     
 CALLCPU            END                                                            CALLCPU CALLCPU       56     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CALLCPU 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CALLCPU                     56        56
          F4720A                      32        32
          F4720B                      10        10
          F4720C                       2         2
          CPSA289                      3         3
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CWEOR   
  
 CWEOR    *DECK CWEOR                                                               S013
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CWEOR   
  
 >>>>      3                                                                               CWEOR          1     A     
 CWEOR    *CWEOR,0                                                                S013   4 CWEOR          2     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CWEOR   
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CWEOR                        2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *COMDECK  COMPCOM                                                                COMPCOM        1     A     
 COMPCOM   COMPCOM  TITLE  COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.              COMPCOM        2     A     
 COMPCOM                                                                                   COMPCOM        3     A     
 COMPCOM  **        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.                     COMPCOM        4     A     
 COMPCOM  *                                                                                COMPCOM        5     A     
 COMPCOM  *                                                                                COMPCOM        6     A     
 COMPCOM  *                COMPCOM  CONTAINS ALL INFORMATION PASSED BETWEEN                COMPCOM        7     A     
 COMPCOM  *         COMPASS AND A COMPILER CALLING COMPASS AS A LEVEL (1,0)                COMPCOM        8     A     
 COMPCOM  *         OVERLAY TO PROCESS COMPASS SOURCE SUBPROGRAMS OCCURRING                COMPCOM        9     A     
 COMPCOM  *         BETWEEN COMPILER LANGUAGE  SUBPROGRAMS,  OR TO ASSEMBLE                COMPCOM       10     A     
 COMPCOM  *         OBJECT PROGRAMS PRODUCED BY THE COMPILER IN THE FORM OF                COMPCOM       11     A     
 COMPCOM  *         COMPASS SOURCE STATEMENTS.  COMPCOM IS A COMMON DECK IN                COMPCOM       12     A     
 COMPCOM  *         THE  COMPASS  PROGRAM LIBRARY FILE,  AND IS ACCESSED BY                COMPCOM       13     A     
 COMPCOM  *         COMPASS VIA AN UPDATE  *CALL  CARD AND BY COMPILERS VIA                COMPCOM       14     A     
 COMPCOM  *         COMPASS  XTEXT  PSEUDO INSTRUCTIONS.                                   COMPCOM       15     A     
 COMPCOM  *                                                                                COMPCOM       16     A     
 COMPCOM  *                                                                                COMPCOM       17     A     
 COMPCOM  *         R. H. GOODELL.     71/05/21.                                           COMPCOM       18     A     
 COMPCOM  *         R. H. GOODELL.     75/10/23.     54-TABLE, BL, PD, PS, PW.             CP139CP       10     A     
 COMPCOM                                                                                   COMPCOM       19     A     
 COMPCOM                                                                                   COMPCOM       20     A     
 COMPCOM  **        THE FOLLOWING MUST BE ESTABLISHED WHEN COMPCOM IS CALLED.              COMPCOM       21     A     
 COMPCOM  *                                                                                COMPCOM       22     A     
 COMPCOM  *         IN AN ABSOLUTE ASSEMBLY, THE LOCATION COUNTER MUST EQUAL               COMPCOM       23     A     
 COMPCOM  *         RA.ORG+1 = 101B.  IN A RELOCATABLE ASSEMBLY, THE LOCATION              COMPCOM       24          I
          -CP139CP
 COMPCOM  *         COUNTER MUST BE AT THE BEGINNING OF THE FIRST COMMON BLOCK,            COMPCOM       25          I
          -CP139CP
 COMPCOM  *         IF ANY, OTHERWISE AT THE BEGINNING OF THE MAIN PROGRAM.                COMPCOM       26          I
          -CP139CP
 COMPCOM  *         114B IF 54-TABLES ARE USED, ELSE 104B.  IN A RELOCATABLE               CP139CP       11     A     
 COMPCOM  *         ASSEMBLY, THE LOCATION COUNTER MUST BE AT THE LOCATION                 CP139CP       12     A     
 COMPCOM  *         THAT WILL CORRESPOND TO 114B OR 104B AFTER RELOCATION BY               CP139CP       13     A     
 COMPCOM  *         THE OVERLAY GENERATOR.                                                 CP139CP       14     A     
 COMPCOM  *                                                                                COMPCOM       27     A     
 COMPCOM  *         THE FOLLOWING MACROS, MICROS, AND SYMBOLS MUST BE DEFINED.             COMPCOM       28     A     
 COMPCOM  *                                                                                COMPCOM       29     A     
 COMPCOM  *         BUFL      MICRO    STANDARD CIO BUFFER SIZE.                           COMPCOM       30     A     
 COMPCOM  *                                                                                COMPCOM       31     A     
 COMPCOM  *         CP.ABORT  MICRO    DEFAULT CONTENT OF WORD CP.ABORT.                   COMPCOM       32          I
          -CPS150 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *                            MAY BE *0* OR *1S59*.                               COMPCOM       33          I
          -CPS150 
 COMPCOM  *         CP.ABORT  MICRO    DEFAULT CONTENT OF BIT 29 OF WORD           CPS150  CPS150         3     A     
 COMPCOM  *                            CP.ABORT MAY BE *0* OR */*.                 CPS150  CPS150         4     A     
 COMPCOM  *                                                                                CP139CP       15     A     
 COMPCOM  *         CP.BLF    MICRO    DEFAULT CONTENT OF WORD CP.BLF.                     CP139CP       16     A     
 COMPCOM  *                            MAY BE *0* OR *1S59*.                               CP139CP       17     A     
 COMPCOM  *                                                                                COMPCOM       34     A     
 COMPCOM  *         CP.F=     MICRO    DEFAULT CONTENT OF WORD CP.BATCH.                   COMPCOM       35     A     
 COMPCOM  *                            MAY BE *0*, *-1*, *-2*, ETC.                        COMPCOM       36     A     
 COMPCOM  *                                                                                COMPCOM       37     A     
 COMPCOM  *         CP.LISTF  MICRO    DEFAULT CONTENT OF WORD CP.LISTF.                   COMPCOM       38     A     
 COMPCOM  *                            MAY BE *0* OR *1*.                                  COMPCOM       39     A     
 COMPCOM  *                                                                                COMPCOM       40     A     
 COMPCOM  *         CP.PAGE   MICRO    DEFAULT CONTENT OF WORD CP.PAGE.                    COMPCOM       41     A     
 COMPCOM  *                            MAY BE *0* OR *1S59*.                               COMPCOM       42     A     
 COMPCOM  *                                                                                COMPCOM       43          I
          -CPS028 
 COMPCOM  *         CP#IR     SYMBOL   0 = ASSEMBLE NEW COMPILER/COMPASS INTERFACE         COMPCOM       44          I
          -CPS028 
 COMPCOM  *                            1 = ASSEMBLE FOR OLD INTERFACE REGION.              COMPCOM       45          I
          -CPS028 
 COMPCOM  *                                                                                COMPCOM       46     A     
 COMPCOM  *         CP#RM     SYMBOL   0 = ASSEMBLE DIRECT *CIO* CALLS FOR I/O.            COMPCOM       47     A     
 COMPCOM  *                            1 = ASSEMBLE RM/DM USAGE FOR I/O.                   COMPCOM       48          I
          -CPS028 
 COMPCOM  *                            6 = ASSEMBLE 6RM USAGE FOR I/O.            S028  15 CPS028         2     A     
 COMPCOM  *                            7 = ASSEMBLE 7RM USAGE FOR I/O.            S028  16 CPS028         3     A     
 COMPCOM  *                                                                                COMPCOM       49     A     
 COMPCOM  *         FET       MACRO    USED IF CP#RM = 0 TO DEFINE FET"S.                  COMPCOM       50     A     
 COMPCOM  *                            CALL -   LOCSYM  FET  LFN,BUF,SIZE                  COMPCOM       51     A     
 COMPCOM  *                                                                                COMPCOM       52     A     
 COMPCOM  *         IBUF      SYMBOL   FWA OF SOURCE INPUT FILE CIO BUFFER.                COMPCOM       53     A     
 COMPCOM  *                            NEED NOT BE PREVIOUSLY DEFINED.                     COMPCOM       54     A     
 COMPCOM  *                                                                                COMPCOM       55     A     
 COMPCOM  *         LISTRM    MICRO    CONTROLS LISTING OF I/O SUBROUTINES.                COMPCOM       56     A     
 COMPCOM  *                            * * = LIST,  *-* = DO NOT LIST.                     COMPCOM       57     A     
 COMPCOM  *                                                                                COMPCOM       58     A     
 COMPCOM  *         MIN.FL    SYMBOL   MINIMUM SCM FIELD LENGTH REQUIRED.                  COMPCOM       59     A     
 COMPCOM  *                            INITIAL CONTENT OF WORD CP.MAXFL.                   COMPCOM       60     A     
 COMPCOM  *                            NEED NOT BE PREVIOUSLY DEFINED.                     COMPCOM       61     A     
 COMPCOM  *                                                                                COMPCOM       62     A     
 COMPCOM  *         MODEL     MICRO    CYBER 70/ MODEL ON WHICH PROCESSOR IS USED.         COMPCOM       63     A     
 COMPCOM  *                            MAY BE *72*, *73*, *74*, OR *76*.                   COMPCOM       64          I
          -CP139CP
 COMPCOM  *                            MAY BE *72*, *73*, *74*, *76*, OR *17X*.            CP139CP       18     A     
 COMPCOM  *                                                                                COMPCOM       65     A     
 COMPCOM  *         OBUF      SYMBOL   FWA OF LISTING OUTPUT FILE CIO BUFFER.              COMPCOM       66     A     
 COMPCOM  *                            NEED NOT BE PREVIOUSLY DEFINED.                     COMPCOM       67     A     
 COMPCOM  *                                                                                COMPCOM       68     A     
 COMPCOM  *         OBUFL     SYMBOL   LISTING OUTPUT FILE CIO BUFFER LENGTH.              COMPCOM       69     A     
 COMPCOM  *                            NEED NOT BE PREVIOUSLY DEFINED.                     COMPCOM       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/28. 19.11.32.      PAGE 167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *                                                                                COMPCOM       71     A     
 COMPCOM  *         STOP      SYMBOL   ADDRESS FOR RETURN FROM COMPASS TO CALLING          COMPCOM       72     A     
 COMPCOM  *                            COMPILER.  NEED NOT BE PREVIOUSLY DEFINED.          COMPCOM       73     A     
 COMPCOM                                                                                   COMPCOM       74     A     
 COMPCOM                                                                                   COMPCOM       75     A     
 COMPCOM                                                                                   COMPCOM       76     A     
 COMPCOM  ****                                                                             COMPCOM       77     A     
 COMPCOM                                                                                   COMPCOM       78     A     
 COMPCOM                                                                                   COMPCOM       79     A     
 COMPCOM                                                                                   COMPCOM       80     A     
 COMPCOM  **        REDEFINE "BUFL" = *0* IF APPROPRIATE.                                  COMPCOM       81     A     
 COMPCOM                                                                                   COMPCOM       82     A     
 COMPCOM            IFNE   CP#RM,0,2                                                       COMPCOM       83          I
          -CPS028 
 COMPCOM            IFC    GE, "MODEL" 75 ,1                                               COMPCOM       84          I
          -CPS028 
 COMPCOM            IFEQ   CP#RM,7,1                                              S028  18 CPS028         4     A     
 COMPCOM   BUFL     MICRO  1,, 0                                                           COMPCOM       85     A     
 COMPCOM                                                                                   COMPCOM       86     A     
 COMPCOM                                                                                   COMPCOM       87     A     
 COMPCOM                                                                                   COMPCOM       88     A     
 COMPCOM  **        SOURCE INPUT FILE BUFFER LENGTH.                                       COMPCOM       89     A     
 COMPCOM                                                                                   COMPCOM       90     A     
 COMPCOM   IBUFL    EQU    "BUFL"                                                          COMPCOM       91     A     
 COMPCOM                                                                          S028  20 CPS028         5     A     
 COMPCOM                                                                          S028  21 CPS028         6     A     
 COMPCOM                                                                          S028  22 CPS028         7     A     
 COMPCOM  **        LIBRARY CONTAINING COMPASS OVERLAYS.                          S028  23 CPS028         8     A     
 COMPCOM  *         USED WHEN COMPASS (0,0) IS LOADED FROM LIBRARY *NUCLEUS*.              CPS064         1     A     
 COMPCOM                                                                          S028  24 CPS028         9     A     
 COMPCOM   CP.OVLIB MICRO              SEARCH GLOBAL LIBRARY SET                  S028  25 CPS028        10     A     
 COMPCOM                                                                                   COMPCOM       92     A     
 COMPCOM                                                                                   COMPCOM       93     A     
 COMPCOM                                                                                   COMPCOM       94     A     
 COMPCOM  **        NAME OF COMPASS (1,0) OVERLAY.                                         COMPCOM       95     A     
 COMPCOM                                                                                   COMPCOM       96     A     
 COMPCOM   CP.NAME  MICRO  1,, COMP2$                                                      COMPCOM       97          I
          -CPS064 
 COMPCOM   CP.NAME  MICRO  1,, COMP3$                                                      CPS064         2     A     
 COMPCOM                                                                                   COMPCOM       98     A     
 COMPCOM                                                                                   COMPCOM       99     A     
 COMPCOM                                                                                   COMPCOM      100     A     
 COMPCOM  **        ORIGIN OF COMPASS (1,0) OVERLAY.                                       COMPCOM      101     A     
 COMPCOM                                                                                   COMPCOM      102     A     
 COMPCOM   RM       IFEQ   CP#RM,0                                                         COMPCOM      103          I
          -CPS028 
 COMPCOM            IFEQ   CP#RM,0,1                                              S028  27 CPS028        11     A     
 COMPCOM   CP.ORG   EQU    2777B                                                           COMPCOM      104     A     
 COMPCOM   RM       ELSE                                                                   COMPCOM      105          I
          -CPS028 
 COMPCOM            IFC    LT, "MODEL" 75 ,2                                               COMPCOM      106          I
          -CPS028 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM   CP.ORG   EQU    7777B                                                           COMPCOM      107          I
          -CPS028 
 COMPCOM            SKIP   1                                                               COMPCOM      108          I
          -CPS028 
 COMPCOM            IFEQ   CP#RM,6,1                                              S028  29 CPS028        12     A     
 COMPCOM   CP.ORG   EQU    12777B                                                 S028  30 CPS028        13     A     
 COMPCOM            IFEQ   CP#RM,7,1                                              S028  31 CPS028        14     A     
 COMPCOM   CP.ORG   EQU    777B                                                            COMPCOM      109     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      110          I
          -CPS028 
 COMPCOM                                                                                   COMPCOM      111     A     
 COMPCOM                                                                                   COMPCOM      112     A     
 COMPCOM                                                                                   COMPCOM      113     A     
 COMPCOM  **        THE ABSOLUTE ADDRESS CP.BASE MUST EQUAL RA.ORG = 100B.                 COMPCOM      114          I
          -CP139CP
 COMPCOM  **        THE ABSOLUTE ADDRESS CP.BASE MUST EQUAL 114B IF                        CP139CP       19     A     
 COMPCOM  *         54-TABLES ARE USED, ELSE 104B.                                         CP139CP       20     A     
 COMPCOM                                                                                   COMPCOM      115     A     
 COMPCOM   CP.BASE  EQU    *-1                                                             COMPCOM      116          I
          -CP139CP
 COMPCOM   CP.BASE  BSS    0           BASE ADDRESS OF COMMUNICATION REGION                CP139CP       21     A     
 COMPCOM                                                                                   CP139CP       22     A     
 COMPCOM                                                                                   CP139CP       23     A     
 COMPCOM                                                                                   CP139CP       24     A     
 COMPCOM  **        EXIT FROM COMPASS TO THE CALLING COMPILER.                             CP139CP       25     A     
 COMPCOM                                                                                   CP139CP       26     A     
 COMPCOM   CP.STOP  EQ     =XSTOP                                                          CP139CP       27     A     
 COMPCOM                                                                                   CP139CP       28     A     
 COMPCOM                                                                                   CP139CP       29     A     
 COMPCOM                                                                                   CP139CP       30     A     
 COMPCOM  **        ABORT FLAG.  SPECIFIES WHETHER PROCESSOR SHOULD ABORT JOB              CP139CP       31     A     
 COMPCOM  *         AFTER COMPILATION/ASSEMBLY ERRORS, OR WAIT UNTIL THE USER              CP139CP       32     A     
 COMPCOM  *         ATTEMPTS TO EXECUTE THE BAD PROGRAM.                                   CP139CP       33     A     
 COMPCOM  *         0 = NO ABORT.                                                          CP139CP       34     A     
 COMPCOM  *         1 = ABORT TO EXIT(S) CARD IF SOURCE PROGRAM ERRORS.                    CP139CP       35     A     
 COMPCOM                                                                                   CP139CP       36     A     
 COMPCOM   CP.ABORT EQU    *                                                               CP139CP       37     A     
 COMPCOM   -        VFD    1/"CP.ABORT",11/0                                               CP139CP       38     A     
 COMPCOM                                                                                   COMPCOM      117     A     
 COMPCOM                                                                                   COMPCOM      118     A     
 COMPCOM                                                                                   COMPCOM      119     A     
 COMPCOM  **        COMPILER CALL FLAG.  INDICATES WHICH COMPILER CALLED COMPASS.          COMPCOM      120     A     
 COMPCOM  *         THE VALUE OF THE COMPASS SPECIAL SYMBOL *F IS THE MAGNITUDE            COMPCOM      121     A     
 COMPCOM  *         OF (CP.BATCH).  ASSIGNED VALUES ARE --                                 COMPCOM      122     A     
 COMPCOM  *                                                                                COMPCOM      123     A     
 COMPCOM  *                    0       COMPASS.                                            COMPCOM      124     A     
 COMPCOM  *                   -1       RUN 2.3.                                            COMPCOM      125     A     
 COMPCOM  *                   -2       FTN AND RUN 3.0 ET SEQ.                             COMPCOM      126          I
          -CP139CP
 COMPCOM  *                   -2       FTN AND FTN(TS).                                    CP139CP       39          I
          -CPSA216
 COMPCOM  *                   -2       FTN4 AND FTN(TS).                                   CPSA216        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/28. 19.11.32.      PAGE 169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *                   -3       PL/1.                                               COMPCOM      127          I
          -CPSA216
 COMPCOM  *                   -3       FTN5.                                               CPSA216        6     A     
 COMPCOM  *                                                                                COMPCOM      128     A     
 COMPCOM  *         VALUES -4 TO -99 ARE RESERVED TO CDC.                                  COMPCOM      129     A     
 COMPCOM                                                                                   COMPCOM      130     A     
 COMPCOM   CP.BATCH CON    "CP.F="                                                         COMPCOM      131          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      132          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      133          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      134          I
          -CP139CP
 COMPCOM  **        ABORT FLAG.  SPECIFIES WHETHER PROCESSOR SHOULD ABORT JOB              COMPCOM      135          I
          -CP139CP
 COMPCOM  *         AFTER COMPILATION/ASSEMBLY ERRORS, OR WAIT UNTIL THE USER              COMPCOM      136          I
          -CP139CP
 COMPCOM  *         ATTEMPTS TO EXECUTE THE BAD PROGRAM.                                   COMPCOM      137          I
          -CP139CP
 COMPCOM  *         0 = NO ABORT.                                                          COMPCOM      138          I
          -CP139CP
 COMPCOM  *         1S59 = ABORT TO EXIT(S) CARD IF SOURCE PROGRAM ERRORS.                 COMPCOM      139          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      140          I
          -CP139CP
 COMPCOM   CP.ABORT CON    "CP.ABORT"                                                      COMPCOM      141          I
          -CP139CP
 COMPCOM   CP.BATCH EQU    *                                                               CP139CP       40     A     
 COMPCOM   -        VFD    *P/"CP.F="                                                      CP139CP       41     A     
 COMPCOM                                                                                   COMPCOM      142     A     
 COMPCOM                                                                                   COMPCOM      143     A     
 COMPCOM                                                                                   COMPCOM      144     A     
 COMPCOM  **        BATCH ERROR COUNT.  FORMAT --                                          COMPCOM      145     A     
 COMPCOM  *                   VFD    1/D, 59/COUNT                                         COMPCOM      146     A     
 COMPCOM  *         D = 1 TO FORCE BINARY OUTPUT REGARDLESS OF ASSEMBLY ERRORS.            COMPCOM      147     A     
 COMPCOM                                                                                   COMPCOM      148     A     
 COMPCOM   CP.ERRCT CON    0                                                               COMPCOM      149     A     
 COMPCOM                                                                                   COMPCOM      150     A     
 COMPCOM                                                                                   COMPCOM      151     A     
 COMPCOM                                                                                   COMPCOM      152     A     
 COMPCOM  **        LONG LISTING FLAG.                                                     COMPCOM      153     A     
 COMPCOM  *         0 = NO LONG LISTING (ERROR LINES ONLY).                                COMPCOM      154     A     
 COMPCOM  *         1 = NORMAL LONG LISTING.                                               COMPCOM      155     A     
 COMPCOM                                                                                   COMPCOM      156     A     
 COMPCOM   CP.LISTF CON    "CP.LISTF"                                                      COMPCOM      157     A     
 COMPCOM                                                                                   COMPCOM      158     A     
 COMPCOM                                                                                   COMPCOM      159     A     
 COMPCOM                                                                                   COMPCOM      160     A     
 COMPCOM  **        LISTING PAGE NUMBER PROPAGATION CONTROL.                               COMPCOM      161     A     
 COMPCOM  *         (CP.PAGE) < 0 - DO NOT PROPAGATE AND DO NOT CHANGE (CP.PAGE).          COMPCOM      162          I
          -CPS236 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *         (CP.PAGE) \ 0 - CURRENT PAGE NUMBER IS (CP.PAGE).                      COMPCOM      163          I
          -CPS236 
 COMPCOM  *         IF BIT 59 IS SET - DO NOT PROPAGATE AND DO NOT CHANGE.                 CPS236         6     A     
 COMPCOM  *         IF BIT 59 IS NOT SET - CURRENT PAGE NUMBER IS IN BITS 0-29.            CPS236         7     A     
 COMPCOM  *         IF BIT 58 IS SET - LISTING FILE HAS BEEN WRITTEN TO (OPEN).            CPS236         8     A     
 COMPCOM                                                                                   COMPCOM      164     A     
 COMPCOM   CP.PAGE  CON    "CP.PAGE"                                                       COMPCOM      165     A     
 COMPCOM                                                                                   CPSA142        5     A     
 COMPCOM                                                                                   CPSA142        6     A     
 COMPCOM                                                                                   CPSA142        7     A     
 COMPCOM  **        ERROR LISTING PAGE NUMBER PROPAGATION CONTROL                          CPSA142        8     A     
 COMPCOM  *         (CP.EPAG)<0 - DO NOT PROPAGATE AND DO NOT CHANGE (CP.EPAG).            CPSA142        9          I
          -CPS236 
 COMPCOM  *         (CP.EPAG)\0 - CURRENT ERROR PAGE NUMBER IS (CP.EPAG).                  CPSA142       10          I
          -CPS236 
 COMPCOM  *         IF BIT 59 IS SET - DO NOT PROPAGATE AND DO NOT CHANGE.                 CPS236         9     A     
 COMPCOM  *         IF BIT 59 IS NOT SET - CURRENT PAGE NUMBER IS IN BITS 0-29.            CPS236        10     A     
 COMPCOM  *         IF BIT 58 IS SET - ERROR FILE HAS BEEN WRITTEN TO (OPEN).              CPS236        11     A     
 COMPCOM                                                                                   CPSA142       11     A     
 COMPCOM   CP.EPAG  CON    "CP.PAGE"                                                       CPSA142       12     A     
 COMPCOM                                                                                   CP139CP       42     A     
 COMPCOM                                                                                   CP139CP       43     A     
 COMPCOM                                                                                   CP139CP       44     A     
 COMPCOM  **        BIG (BURSTABLE) LISTING FLAG.                                          CP139CP       45     A     
 COMPCOM  *         0 = NO UNNECESSARY PAGE EJECTS.                                        CP139CP       46     A     
 COMPCOM  *         1S59 = PAGE EJECTS BETWEEN PORTIONS OF LISTING.                        CP139CP       47     A     
 COMPCOM                                                                                   CP139CP       48     A     
 COMPCOM   CP.BLF   CON    "CP.BLF"                                                        CP139CP       49     A     
 COMPCOM                                                                                   CP139CP       50     A     
 COMPCOM                                                                                   CP139CP       51     A     
 COMPCOM                                                                                   CP139CP       52     A     
 COMPCOM  **        PRINT DENSITY (LINES PER INCH).                                        CP139CP       53     A     
 COMPCOM  *         PD = 3     (CP.PD) = 1LS+1S17                                          CP139CP       54     A     
 COMPCOM  *         PD = 4     (CP.PD) = 1LT+1S17                                          CP139CP       55     A     
 COMPCOM  *         PD = 6     (CP.PD) = 1LS                                               CP139CP       56     A     
 COMPCOM  *         PD = 8     (CP.PD) = 1LT                                               CP139CP       57     A     
 COMPCOM  *         OMITTED    (CP.PD) = 0                                                 CP139CP       58     A     
 COMPCOM                                                                                   CP139CP       59     A     
 COMPCOM   CP.PD    CON    0                                                               CP139CP       60     A     
 COMPCOM                                                                                   CP139CP       61     A     
 COMPCOM                                                                                   CP139CP       62     A     
 COMPCOM                                                                                   CP139CP       63     A     
 COMPCOM  **        PAGE SIZE (LINES PER PAGE).                                            CP139CP       64     A     
 COMPCOM                                                                                   CP139CP       65     A     
 COMPCOM   CP.PS    CON    0                                                               CP139CP       66     A     
 COMPCOM                                                                                   CP139CP       67     A     
 COMPCOM                                                                                   CP139CP       68     A     
 COMPCOM                                                                                   CP139CP       69     A     
 COMPCOM  **        PAGE WIDTH (CHARACTERS PER LINE).                                      CP139CP       70     A     
 COMPCOM  *         IF *PW* SPECIFIED, (CP.PW) = 30/REMAINDER, 30/QUOTIENT                 CP139CP       71     A     
 COMPCOM  *                            OF *PW* VALUE DIVIDED BY 10.                        CP139CP       72     A     
 COMPCOM  *         OTHERWISE, ASSUME PW = 72 IF PRINT FILE IS A TERMINAL                  CP139CP       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/28. 19.11.32.      PAGE 171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *                            OR PW = IP.PW IF IT IS NOT.                         CP139CP       74     A     
 COMPCOM  *         HOWEVER, (CP.PW) = 0 WHEN PW .GE. 126 IS SPECIFIED OR                  CP139CP       75     A     
 COMPCOM  *                            ASSUMED.                                            CP139CP       76     A     
 COMPCOM                                                                                   CP139CP       77     A     
 COMPCOM   CP.PW    CON    0                                                               CP139CP       78     A     
 COMPCOM                                                                                   COMPCOM      166     A     
 COMPCOM                                                                                   COMPCOM      167     A     
 COMPCOM                                                                                   COMPCOM      168     A     
 COMPCOM  **        CYBER 70/ MODEL NUMBER ON WHICH PROCESSOR IS EXECUTING.                COMPCOM      169     A     
 COMPCOM                                                                                   COMPCOM      170     A     
 COMPCOM   CP.CPU   CON    2L"MODEL"                                                       COMPCOM      171          I
          -S3143CP
 COMPCOM   CP.CPU   CON    0L"MODEL"                                                       S3143CP        5     A     
 COMPCOM                                                                                   COMPCOM      172     A     
 COMPCOM                                                                                   COMPCOM      173     A     
 COMPCOM                                                                                   COMPCOM      174     A     
 COMPCOM  **        STORAGE USED FOR CURRENT BATCH OF COMPILATIONS/ASSEMBLIES.             COMPCOM      175     A     
 COMPCOM                                                                                   COMPCOM      176     A     
 COMPCOM   CP.MAXFL CON    =XMIN.FL                                                        COMPCOM      177     A     
 COMPCOM                                                                                   COMPCOM      178     A     
 COMPCOM                                                                                   COMPCOM      179     A     
 COMPCOM                                                                                   COMPCOM      180     A     
 COMPCOM  **        FILE NAME FOR *XTEXT* CARDS WITH BLANK LOCATION FIELD.                 COMPCOM      181     A     
 COMPCOM                                                                                   COMPCOM      182     A     
 COMPCOM   CP.XNAME CON    0LOLDPL                                                         COMPCOM      183     A     
 COMPCOM                                                                                   COMPCOM      184     A     
 COMPCOM                                                                                   COMPCOM      185     A     
 COMPCOM                                                                                   COMPCOM      186     A     
 COMPCOM  **        SOURCE INPUT FILE FORMAT.                                              COMPCOM      187     A     
 COMPCOM  *         0 = NORMAL INPUT.                                                      COMPCOM      188     A     
 COMPCOM  *         1 = MODIFY COMPRESSED COMPILE FILE.                                    COMPCOM      189          I
          -CP114  
 COMPCOM  *         2 = UPDATE COMPRESSED COMPILE FILE.                                    COMPCOM      190          I
          -CP114  
 COMPCOM  *         1 = MODIFY COMPRESSED COMPILE FILE (63 CHAR SET).                      CP114          5     A     
 COMPCOM  *         2 = UPDATE COMPRESSED COMPILE FILE (64 CHAR SET).                      CP114          6     A     
 COMPCOM  *         3 = MODIFY COMPRESSED COMPILE FILE (64 CHAR SET).                      CP114          7     A     
 COMPCOM  *         1S59 = END OF INPUT SECTION.                                           CP139CP       79     A     
 COMPCOM                                                                                   COMPCOM      191     A     
 COMPCOM   CP.IFORM CON    0                                                               COMPCOM      192     A     
 COMPCOM                                                                                   COMPCOM      193     A     
 COMPCOM                                                                                   COMPCOM      194     A     
 COMPCOM                                                                                   COMPCOM      195     A     
 COMPCOM  **        EXIT FROM COMPASS TO THE CALLING COMPILER.                             COMPCOM      196          I
          -CP139CP
 COMPCOM  **        THIS SPACE FOR RENT (RESERVED TO USER).                                CP139CP       80     A     
 COMPCOM                                                                                   COMPCOM      197     A     
 COMPCOM   CP.STOP  EQ     =XSTOP                                                          COMPCOM      198          I
          -CP139CP
 COMPCOM   CP.USER  CON    0                                                               CP139CP       81     A     
 COMPCOM            CON    0                                                               CP139CP       82     A     
 COMPCOM                                                                                   COMPCOM      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/28. 19.11.32.      PAGE 172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM                                                                                   COMPCOM      200     A     
 COMPCOM                                                                                   COMPCOM      201     A     
 COMPCOM  **        UNUSED WORD.                                                           COMPCOM      202          I
          -CP139CP
 COMPCOM  **        THIS SPACE FOR RENT (RESERVED TO CDC).                                 CP139CP       83     A     
 COMPCOM                                                                                   COMPCOM      203     A     
 COMPCOM   CP.UNU1  CON    0                                                               COMPCOM      204          I
          -CP139CP
 COMPCOM   CP.CDC   CON    0                                                               CP139CP       84     A     
 COMPCOM            CON    0                                                               CP139CP       85     A     
 COMPCOM                                                                                   COMPCOM      205     A     
 COMPCOM                                                                                   COMPCOM      206     A     
 COMPCOM                                                                                   COMPCOM      207     A     
 COMPCOM  **        FOUR WORDS PRECEDING SOURCE INPUT CARD AREA.                           COMPCOM      208     A     
 COMPCOM  *         MAY BE USED AS BEGINNING OF PRINT LINE AREA.                           COMPCOM      209     A     
 COMPCOM                                                                                   COMPCOM      210     A     
 COMPCOM   CP.LINE  DIS    4,                                                              COMPCOM      211     A     
 COMPCOM                                                                                   COMPCOM      212     A     
 COMPCOM                                                                                   COMPCOM      213     A     
 COMPCOM                                                                                   COMPCOM      214     A     
 COMPCOM  **        SOURCE INPUT CARD AREA.  HOLDS NEXT CARD TO BE PROCESSED.              COMPCOM      215     A     
 COMPCOM  *         (CP.CARD) = 0 AT END OF SECTION ON SOURCE INPUT FILE.                  COMPCOM      216     A     
 COMPCOM                                                                                   COMPCOM      217     A     
 COMPCOM   CP.CARD  DIS    4, CONTROL DATA  PROPRIETARY PRODUCT.                           COMPCOM      218          I
          -CPSCPRT
 COMPCOM            DIS    4, COPYRIGHT CONTROL DATA CORP. 1971.                           COMPCOM      219          I
          -CPSCPRT
 COMPCOM            DIS    8,                                                              COMPCOM      220          I
          -CPSCPRT
 COMPCOM   CP.CARD  DATA   H* CONTROL DATA PROPRIETARY PRODUCT.*                           CPSCPRT        4     A     
 COMPCOM            DATA   H* COPYRIGHT CONTROL DATA CORP. 1971, 1972, 1973, 1974,         CPSCPRT        5     A     
 COMPCOM  , 1975.*                                                                         CPSCPRT        6          I
          -CPS*76 
 COMPCOM  , 1975, 1976.*                                                                   CPS*76         4          I
          -CPS*77 
 COMPCOM  , 1975, 1976, 1977.*                                                             CPS*77         4          I
          -CPS*78 
 COMPCOM  , 1975, 1976, 1977, 1978.*                                               CPS*78  CPS*78         4          I
          -CPS*79 
 COMPCOM  , 1975, 1976, 1977, 1978, 1979.*                                                 CPS*79         4          I
          -CPS*80 
 COMPCOM  , 1975, 1976, 1977, 1978, 1979, 1980.*                                           CPS*80         4          I
          -CPS*81 
 COMPCOM  , 1975, 1976, 1977, 1978, 1979, 1980, 1981.*                                     CPS*81         4          I
          -CPS*82 
 COMPCOM  , 1975, 1976,, 1977, 1978, 1979, 1980, 1981, 1982.*                              CPS*82         4     A     
 COMPCOM            DIS    16-*+CP.CARD,                                                   CPSCPRT        7     A     
 COMPCOM                                                                                   COMPCOM      221     A     
 COMPCOM                                                                                   COMPCOM      222     A     
 COMPCOM                                                                                   COMPCOM      223     A     
 COMPCOM  **        SYSTEM TEXT OVERLAY NAMES.                                             COMPCOM      224     A     
 COMPCOM  *         (CP.STEXT) = NUMBER OF SYSTEM TEXTS (UP TO 7).                         COMPCOM      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/28. 19.11.32.      PAGE 173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *         SUBSEQUENT WORDS HAVE THE FOLLOWING FORMAT --                          COMPCOM      226     A     
 COMPCOM  *                   VFD    42/NAME, 17/0, 1/G                                    COMPCOM      227     A     
 COMPCOM  *         G = 0 FOR SYSTEM TEXT FROM A LIBRARY.                                  COMPCOM      228     A     
 COMPCOM  *         G = 1 FOR SYSTEM TEXT FROM A NON-LIBRARY FILE.                         COMPCOM      229     A     
 COMPCOM  *         NAME MAY BE NULL IF G = 1.                                             COMPCOM      230     A     
 COMPCOM                                                                                   COMPCOM      231     A     
 COMPCOM   CP.STEXT CON    0                                                               COMPCOM      232     A     
 COMPCOM            CON    0LSYSTEXT   DEFAULT SYSTEM TEXT                                 COMPCOM      233     A     
 COMPCOM            BSSZ   6                                                               COMPCOM      234     A     
 COMPCOM                                                                                   COMPCOM      235     A     
 COMPCOM                                                                                   COMPCOM      236     A     
 COMPCOM                                                                                   COMPCOM      237     A     
 COMPCOM  **        SYSTEM TEXT LIBRARY/FILE NAMES.                                        COMPCOM      238     A     
 COMPCOM  *         (CP.LIB) = 0 IF *S=0* SPECIFIED ON CONTROL CARD.                       COMPCOM      239     A     
 COMPCOM  *                  = 1 OTHERWISE.                                                COMPCOM      240     A     
 COMPCOM  *         SUBSEQUENT WORDS CONTAIN LIBRARY NAME OR NULL IF G = 0 IN              COMPCOM      241     A     
 COMPCOM  *         CORRESPONDING WORD OF CP.STEXT, OR FILE NAME IF G = 1.                 COMPCOM      242     A     
 COMPCOM                                                                                   COMPCOM      243     A     
 COMPCOM   CP.LIB   CON    1                                                               COMPCOM      244     A     
 COMPCOM            BSSZ   7                                                               COMPCOM      245     A     
 COMPCOM                                                                                   COMPCOM      246     A     
 COMPCOM                                                                                   COMPCOM      247     A     
 COMPCOM                                                                                   COMPCOM      248     A     
 COMPCOM  **        SCM FIELD LENGTHS, ACTUAL AND NOMINAL.                                 COMPCOM      249     A     
 COMPCOM  *         (CP.AFLS) = CURRENT ACTUAL FIELD LENGTH.                               COMPCOM      250     A     
 COMPCOM  *         (CP.NFLS) = AMOUNT OF SPACE AVAILABLE TO COMPASS.                      COMPCOM      251     A     
 COMPCOM  *         IF THEY ARE NOT EQUAL, COMPASS DOES NOT DESTROY THE AREA               COMPCOM      252     A     
 COMPCOM  *         ABOVE NOMINAL FIELD LENGTH.  BEFORE RETURNING TO CALLING               COMPCOM      253     A     
 COMPCOM  *         COMPILER, COMPASS RESTORES THESE WORDS, AND THE ACTUAL                 COMPCOM      254     A     
 COMPCOM  *         FIELD LENGTH, TO THE VALUES THEY HAD UPON ENTRY.                       COMPCOM      255     A     
 COMPCOM                                                                                   COMPCOM      256     A     
 COMPCOM   CP.AFLS  CON    0                                                               COMPCOM      257     A     
 COMPCOM   CP.NFLS  CON    0                                                               COMPCOM      258     A     
 COMPCOM                                                                                   COMPCOM      259     A     
 COMPCOM                                                                                   COMPCOM      260     A     
 COMPCOM                                                                                   COMPCOM      261     A     
 COMPCOM  **        LCM FIELD LENGTHS, ACTUAL AND NOMINAL.                                 COMPCOM      262     A     
 COMPCOM  *         USAGE IS SIMILAR TO THE ABOVE TWO WORDS.                               COMPCOM      263     A     
 COMPCOM                                                                                   COMPCOM      264     A     
 COMPCOM   CP.AFLL  CON    0                                                               COMPCOM      265     A     
 COMPCOM   CP.NFLL  CON    0                                                               COMPCOM      266     A     
 COMPCOM                                                                                   COMPCOM      267     A     
 COMPCOM                                                                                   COMPCOM      268     A     
 COMPCOM                                                                                   COMPCOM      269     A     
 COMPCOM  **        VALUE OF COMPASS BUILT-IN MICRO *MODLEVEL*.                            COMPCOM      270     A     
 COMPCOM  *         UP TO 9 CHARACTERS, LEFT JUSTIFIED WITH 00 FILL.                       COMPCOM      271     A     
 COMPCOM  *         IF (CP.MODL) = 0, COMPASS USES "JDATE".                                COMPCOM      272     A     
 COMPCOM                                                                                   COMPCOM      273     A     
 COMPCOM   CP.MODL  CON    0                                                               COMPCOM      274     A     
 COMPCOM                                                                                   COMPCOM      275     A     
 COMPCOM                                                                                   COMPCOM      276     A     
 COMPCOM                                                                                   COMPCOM      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/28. 19.11.32.      PAGE 174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  **        VALUE OF COMPASS BUILT-IN MICRO *PCOMMENT*.                            COMPCOM      278     A     
 COMPCOM  *         UP TO 30 CHARACTERS WITH BLANK FILL.                                   COMPCOM      279     A     
 COMPCOM                                                                                   COMPCOM      280     A     
 COMPCOM   CP.PCOM  DIS    3,                                                              COMPCOM      281     A     
 COMPCOM                                                                                   COMPCOM      282          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      283          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      284          I
          -CP139CP
 COMPCOM  *         THIS SPACE FOR RENT.                                                   COMPCOM      285          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      286          I
          -CP139CP
 COMPCOM            BSSZ   CP.BASE+100B-*                                                  COMPCOM      287          I
          -CP139CP
 COMPCOM                                                                                   COMPCOM      288     A     
 COMPCOM                                                                                   COMPCOM      289     A     
 COMPCOM  ****                                                                             COMPCOM      290     A     
 COMPCOM                                                                                   COMPCOM      291     A     
 COMPCOM                                                                                   COMPCOM      292     A     
 COMPCOM   RM       IFNE   CP#RM,0                                                         COMPCOM      293     A     
 COMPCOM   FET      SPACE  4,8                                                             COMPCOM      294     A     
 COMPCOM  **        FET - FILE ENVIRONMENT TABLE DEFINITION.                               COMPCOM      295     A     
 COMPCOM  *                                                                                COMPCOM      296     A     
 COMPCOM  * LOCSYM  FET    LFN,FIRST,LEN                                                   COMPCOM      297     A     
 COMPCOM  *                (LFN) = FILENAME.                                               COMPCOM      298     A     
 COMPCOM  *                (FIRST) = FWA OF CIRCULAR BUFFER.                               COMPCOM      299     A     
 COMPCOM  *                (LEN) = LENGTH OF CIRCULAR BUFFER.                              COMPCOM      300     A     
 COMPCOM                                                                                   COMPCOM      301     A     
 COMPCOM                                                                                   COMPCOM      302     A     
 COMPCOM   FET      MACRO  LFN,FIRST,LEN                                                   COMPCOM      303     A     
 COMPCOM            CON    0L_LFN+1                                                        COMPCOM      304     A     
 COMPCOM            CON    FIRST+8S18                                                      COMPCOM      305          I
          -CP139CP
 COMPCOM            CON    FIRST+3S18                                                      CP139CP       86     A     
 COMPCOM            CON    FIRST                                                           COMPCOM      306     A     
 COMPCOM            CON    FIRST                                                           COMPCOM      307     A     
 COMPCOM            CON    FIRST+LEN                                                       COMPCOM      308     A     
 COMPCOM            BSSZ   8                                                               COMPCOM      309          I
          -CP139CP
 COMPCOM            BSSZ   3                                                               CP139CP       87     A     
 COMPCOM            ENDM                                                                   COMPCOM      310     A     
 COMPCOM                                                                                   COMPCOM      311     A     
 COMPCOM                                                                                   COMPCOM      312     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      313     A     
 COMPCOM   INPUT    SPACE  4                                                               COMPCOM      314     A     
 COMPCOM  **        FET/FIT FOR SOURCE INPUT FILE.                                         COMPCOM      315     A     
 COMPCOM                                                                                   COMPCOM      316     A     
 COMPCOM                                                                                   COMPCOM      317     A     
 COMPCOM   CP.IFET  FET    INPUT,IBUF,IBUFL                                                COMPCOM      318     A     
 COMPCOM            BSSZ   CP.IFET+13-*                                                    COMPCOM      319          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
          -CP139CP
 COMPCOM            BSSZ   CP.IFET+8-*                                                     CP139CP       88     A     
 COMPCOM                                                                                   COMPCOM      320     A     
 COMPCOM   RM       IFNE   CP#RM,0                                                         COMPCOM      321     A     
 COMPCOM            IFC    LT, "MODEL" 75 ,2                                               COMPCOM      322          I
          -CPS028 
 COMPCOM            IFEQ   CP#RM,6,1                                              S028  34 CPS028        15     A     
 COMPCOM   CP.IFIT  FILE   LFN=INPUT,FO=SQ,BT=C,RT=Z,MRL=100,CM=YES,LT=UL,WSA=CP.C         COMPCOM      323     A     
 COMPCOM  ,ARD,FET=CP.IFET,FWB=IBUF,BFS=IBUFL                                              COMPCOM      324          I
          -CPS028 
 COMPCOM            SKIP   1                                                               COMPCOM      325          I
          -CPS028 
 COMPCOM  ,ARD,FET=CP.IFET,FWB=IBUF,BFS=IBUFL,ERL=1                               S028  36 CPS028        16     A     
 COMPCOM            IFEQ   CP#RM,7,1                                              S028  37 CPS028        17     A     
 COMPCOM   CP.IFIT  FILE   LFN=INPUT,FO=SQ,BT=,RT=W,MRL=5120,WSA=CP.CARD,OF=N,CF=N         COMPCOM      326     A     
 COMPCOM  ,,PD=INPUT                                                                       COMPCOM      327     A     
 COMPCOM            BSSZ   CP.IFET+40B-*                                                   COMPCOM      328          I
          -CP139CP
 COMPCOM            BSSZ   CP.IFIT+16-*                                                    CP139CP       89     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      329     A     
 COMPCOM   OUTPUT   SPACE  4                                                               COMPCOM      330     A     
 COMPCOM  **        FET/FIT FOR LISTING OUTPUT FILE.                                       COMPCOM      331     A     
 COMPCOM                                                                                   COMPCOM      332     A     
 COMPCOM                                                                                   COMPCOM      333     A     
 COMPCOM   CP.OFET  FET    OUTPUT,OBUF,OBUFL                                               COMPCOM      334     A     
 COMPCOM            BSSZ   CP.OFET+13-*                                                    COMPCOM      335          I
          -CP139CP
 COMPCOM            BSSZ   CP.OFET+8-*                                                     CP139CP       90     A     
 COMPCOM                                                                                   COMPCOM      336     A     
 COMPCOM   RM       IFNE   CP#RM,0                                                         COMPCOM      337     A     
 COMPCOM            IFC    LT, "MODEL" 75 ,2                                               COMPCOM      338          I
          -CPS028 
 COMPCOM            IFEQ   CP#RM,6,1                                              S028  39 CPS028        18     A     
 COMPCOM   CP.OFIT  FILE   LFN=OUTPUT,FO=SQ,BT=C,RT=Z,MRL=137,CM=YES,LT=UL,FET=CP.         COMPCOM      339     A     
 COMPCOM  ,OFET,FWB=OBUF,BFS=OBUFL                                                         COMPCOM      340          I
          -CPS028 
 COMPCOM            SKIP   1                                                               COMPCOM      341          I
          -CPS028 
 COMPCOM  ,OFET,FWB=OBUF,BFS=OBUFL,ERL=1                                          S028  41 CPS028        19     A     
 COMPCOM            IFEQ   CP#RM,7,1                                              S028  42 CPS028        20     A     
 COMPCOM   CP.OFIT  FILE   LFN=OUTPUT,FO=SQ,BT=,RT=W,MRL=137,OF=N,CF=N,PD=OUTPUT           COMPCOM      342     A     
 COMPCOM            BSSZ   CP.OFET+40B-*                                                   COMPCOM      343          I
          -CP139CP
 COMPCOM            BSSZ   CP.OFIT+16-*                                                    CP139CP       91     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      344     A     
 COMPCOM   ERRS     SPACE  4                                                               CPSA142       13     A     
 COMPCOM  **        FET/FIT FOR ERROR LISTING FILE                                         CPSA142       14     A     
 COMPCOM                                                                                   CPSA142       15     A     
 COMPCOM                                                                                   CPSA142       16     A     
 COMPCOM   CP.EFET  FET    OUTPUT,,EBUFL,5                                                 CPSA142       17     A     
 COMPCOM            BSSZ   CP.EFET+8-*                                                     CPSA142       18     A     
 COMPCOM                                                                                   CPSA142       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/28. 19.11.32.      PAGE 176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM   RM       IFNE   CP#RM,0                                                         CPSA142       20     A     
 COMPCOM            IFEQ   CP#RM,6,1                                                       CPSA142       21     A     
 COMPCOM   CP.EFIT  FILE   LFN=OUTPUT,FO=SQ,BT=C,RT=Z,MRL=137,CM=YES,LT=UL,FET=ERL         CPSA142       22     A     
 COMPCOM  ,,BFS=EBUFL,ERL=1                                                                CPSA142       23     A     
 COMPCOM            IFEQ   CP#RM,7,1                                                       CPSA142       24     A     
 COMPCOM   CP.EFIT  FILE   LFN=OUTPUT,FO=SQ,BT=,RT=W,MRL=137,OF=N,CF=N,PD=OUTPUT           CPSA142       25     A     
 COMPCOM            BSSZ   CP.EFIT+16-*                                                    CPSA142       26     A     
 COMPCOM   RM       ENDIF                                                                  CPSA142       27     A     
 COMPCOM   LGO      SPACE  4                                                               COMPCOM      345     A     
 COMPCOM  **        FET/FIT FOR BINARY OUTPUT FILE.                                        COMPCOM      346     A     
 COMPCOM                                                                                   COMPCOM      347     A     
 COMPCOM                                                                                   COMPCOM      348     A     
 COMPCOM   CP.BFET  FET    LGO,OBUF,OBUFL                                                  COMPCOM      349     A     
 COMPCOM            BSSZ   CP.BFET+13-*                                                    COMPCOM      350          I
          -CP139CP
 COMPCOM            BSSZ   CP.BFET+8-*                                                     CP139CP       92     A     
 COMPCOM                                                                                   COMPCOM      351     A     
 COMPCOM   RM       IFNE   CP#RM,0                                                         COMPCOM      352     A     
 COMPCOM            IFC    LT, "MODEL" 75 ,2                                               COMPCOM      353          I
          -CPS028 
 COMPCOM            IFEQ   CP#RM,6,1                                              S028  44 CPS028        21     A     
 COMPCOM   CP.BFIT  FILE   LFN=LGO,FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=CP.BFET,FWB=OBU         COMPCOM      354     A     
 COMPCOM  ,F,BFS=OBUFL                                                                     COMPCOM      355          I
          -CPS028 
 COMPCOM            SKIP   1                                                               COMPCOM      356          I
          -CPS028 
 COMPCOM  ,F,BFS=OBUFL,ERL=1                                                      S028  46 CPS028        22     A     
 COMPCOM            IFEQ   CP#RM,7,1                                              S028  47 CPS028        23     A     
 COMPCOM   CP.BFIT  FILE   LFN=LGO,FO=SQ,BT=,RT=W,CM=NO,OF=N,CF=N,PD=OUTPUT                COMPCOM      357     A     
 COMPCOM            BSSZ   CP.BFET+40B-*                                                   COMPCOM      358          I
          -CP139CP
 COMPCOM            BSSZ   CP.BFIT+16-*                                                    CP139CP       93     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      359     A     
 COMPCOM   JUMPS    SPACE  4                                                               COMPCOM      360     A     
 COMPCOM  **        JUMP TABLE FOR LINKING TO RECORD MANAGER ROUTINES.                     COMPCOM      361     A     
 COMPCOM                                                                                   COMPCOM      362     A     
 COMPCOM                                                                                   COMPCOM      363     A     
 COMPCOM   RM       IFNE   CP#RM,0                                                         COMPCOM      364          I
          -CPS028 
 COMPCOM   RM       IFC    LT, "MODEL" 75                                                  COMPCOM      365          I
          -CPS028 
 COMPCOM   RM       IFEQ   CP#RM,6                                                S028  49 CPS028        24     A     
 COMPCOM                                                                                   COMPCOM      366     A     
 COMPCOM   CLSF.RM  EQ     /6RM/CLSF.RM                                                    COMPCOM      367          I
          -CPS028 
 COMPCOM   GETP.RM  EQ     /6RM/GETP.RM                                                    COMPCOM      368          I
          -CPS028 
 COMPCOM   GET.RM   EQ     /6RM/GET.RM                                                     COMPCOM      369          I
          -CPS028 
 COMPCOM   PUTP.RM  EQ     /6RM/PUTP.RM                                                    COMPCOM      370          I
          -CPS028 
 COMPCOM   PUT.RM   EQ     /6RM/PUT.RM                                                     COMPCOM      371          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
          -CPS028 
 COMPCOM   WEOR.SQ  EQ     /6RM/WEOR.SQ                                                    COMPCOM      372          I
          -CPS028 
 COMPCOM   REW.RM   EQ     /6RM/REW.RM                                                     COMPCOM      373          I
          -CPS028 
 COMPCOM   SKBL.RM  EQ     /6RM/SKBL.RM                                                    COMPCOM      374          I
          -CPS028 
 COMPCOM   CHEK.RM  EQ     /6RM/CHEK.RM                                                    COMPCOM      375          I
          -CPS028 
 COMPCOM   ENDF.SQ  EQ     /6RM/ENDF.SQ                                                    COMPCOM      376          I
          -CPS028 
 COMPCOM   CHEK.RM  JP     /6RM/CHEK.RM                                           S028  51 CPS028        25     A     
 COMPCOM   CLSF.RM  JP     /6RM/CLSF.RM                                           S028  52 CPS028        26     A     
 COMPCOM   ENDF.SQ  JP     /6RM/ENDF.SQ                                           S028  53 CPS028        27     A     
 COMPCOM   GET.RM   JP     /6RM/GET.RM                                            S028  54 CPS028        28     A     
 COMPCOM   OPEN.RM  JP     /6RM/OPEN.RM                                           S028  55 CPS028        29     A     
 COMPCOM   PUT.RM   JP     /6RM/PUT.RM                                            S028  56 CPS028        30     A     
 COMPCOM   REW.RM   JP     /6RM/REW.RM                                            S028  57 CPS028        31     A     
 COMPCOM   SKBL.RM  JP     /6RM/SKBL.RM                                           S028  58 CPS028        32     A     
 COMPCOM   WEOR.SQ  JP     /6RM/WEOR.SQ                                           S028  59 CPS028        33     A     
 COMPCOM                                                                                   COMPCOM      377     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      378     A     
 COMPCOM   LCOM     SPACE  4                                                               COMPCOM      379     A     
 COMPCOM  **        END OF COMMUNICATION AREA.                                             COMPCOM      380     A     
 COMPCOM                                                                                   COMPCOM      381     A     
 COMPCOM                                                                                   COMPCOM      382     A     
 COMPCOM            BSS    0                                                      S028  61 CPS028        34     A     
 COMPCOM   CP.LCOM  EQU    *-CP.BASE-1 LENGTH OF COMMUNICATION AREA                        COMPCOM      383          I
          -CP139CP
 COMPCOM   CP.LCOM  EQU    *-CP.BASE   LENGTH OF COMMUNICATION REGION                      CP139CP       94     A     
 COMPCOM            USE    *           LEAVE COMMON BLOCK IF ANY                           COMPCOM      384     A     
 COMPCOM   SYSR     SPACE  4                                                               COMPCOM      385     A     
 COMPCOM  **        SYSTEM COMMUNICATION ROUTINES.                                         COMPCOM      386     A     
 COMPCOM                                                                                   COMPCOM      387     A     
 COMPCOM                                                                                   COMPCOM      388     A     
 COMPCOM            LIST   -F                                                              COMPCOM      389     A     
 COMPCOM                                                                                   COMPCOM      390     A     
 COMPCOM            IFC    GE, "MODEL" 75 ,1                                               COMPCOM      391          I
          -CPS028 
 COMPCOM   RM       IFEQ   CP#RM,0                                                         COMPCOM      392          I
          -CPS028 
 COMPCOM   RM       IFNE   CP#RM,7                                                S028  63 CPS028        35     A     
 COMPCOM   COMCSYS  CTEXT  PROCESS SYSTEM REQUEST.                                         COMPCOM      393     A     
 COMPCOM                                                                                   COMPCOM      394     A     
 COMPCOM                                                                                   COMPCOM      395     A     
 COMPCOM  ***              COMCSYS CONTAINS ROUTINES FOR PROCESSING CERTAIN                COMPCOM      396     A     
 COMPCOM  *         SYSTEM REQUESTS.                                                       COMPCOM      397     A     
 COMPCOM  *                                                                                COMPCOM      398     A     
 COMPCOM  *                                                                                COMPCOM      399     A     
 COMPCOM  *         G. R. MANSFIELD.   70/09/12.                                           COMPCOM      400     A     
 COMPCOM  *         R. H. GOODELL.     71/04/01.                                           COMPCOM      401     A     
 COMPCOM                                                                                   COMPCOM      402     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM                                                                                   COMPCOM      403     A     
 COMPCOM            IF     -DEF,QUAL$,1                                                    COMPCOM      404     A     
 COMPCOM            QUAL   COMCSYS                                                         COMPCOM      405     A     
 COMPCOM            BASE   D                                                               COMPCOM      406     A     
 COMPCOM   SYS      SPACE  4,11                                                            COMPCOM      407     A     
 COMPCOM  ***       SYS - PROCESS SYSTEM REQUEST.                                          COMPCOM      408     A     
 COMPCOM  *                                                                                COMPCOM      409     A     
 COMPCOM  *         ENTRY  (X6) = SYSTEM REQUEST.                                          COMPCOM      410     A     
 COMPCOM  *                                                                                COMPCOM      411     A     
 COMPCOM  *         EXIT   REQUEST PROCESSED.                                              COMPCOM      412     A     
 COMPCOM  *                                                                                COMPCOM      413     A     
 COMPCOM  *         USES   A1, A6, X1.                                                     COMPCOM      414     A     
 COMPCOM  *                                                                                COMPCOM      415     A     
 COMPCOM  *         CALLS  NONE.                                                           COMPCOM      416     A     
 COMPCOM                                                                                   COMPCOM      417     A     
 COMPCOM                                                                                   COMPCOM      418     A     
 COMPCOM   SYSA     SA1    A1          WAIT (RA.MTR) CLEAR IF AUTO RECALL                  COMPCOM      419     A     
 COMPCOM            LX1    59-40                                                           COMPCOM      420     A     
 COMPCOM            MI     X1,SYS1                                                         COMPCOM      421     A     
 COMPCOM                                                                                   COMPCOM      422     A     
 COMPCOM   SYS1     EQ     SYS2        FIRST ENTRY                                         COMPCOM      423     A     
 COMPCOM                                                                                   COMPCOM      424     A     
 COMPCOM   SYS=     EQ     *+1S17      ENTRY/EXIT                                          COMPCOM      425     A     
 COMPCOM                                                                                   COMPCOM      426     A     
 COMPCOM   +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                                 COMPCOM      427     A     
 COMPCOM            NZ     X1,*                                                            COMPCOM      428     A     
 COMPCOM            SA6    A1          ENTER REQUEST                                       COMPCOM      429     A     
 COMPCOM            EQ     SYS1                                                            COMPCOM      430     A     
 COMPCOM                                                                                   COMPCOM      431     A     
 COMPCOM  *         INITIAL ENTRY TO SET TYPE OF CALL.                                     COMPCOM      432     A     
 COMPCOM                                                                                   COMPCOM      433     A     
 COMPCOM   SYS2     SA1    RA.CEJ      TEST FOR CENTRAL EXCHANGE JUMP SUPPORT              COMPCOM      434     A     
 COMPCOM            MI     X1,SYS3                                                         COMPCOM      435     A     
 COMPCOM            SA1    SYSA        NO, USE WAIT LOOP                                   COMPCOM      436     A     
 COMPCOM            EQ     SYS4                                                            COMPCOM      437     A     
 COMPCOM   SYS3     SX1    0130B       YES, USE XJ INSTRUCTION                             COMPCOM      438     A     
 COMPCOM            LX1    48                                                              COMPCOM      439     A     
 COMPCOM   SYS4     BX6    X1-X6       SWAP REGISTERS                                      COMPCOM      440     A     
 COMPCOM            BX1    X1-X6                                                           COMPCOM      441     A     
 COMPCOM            BX6    X1-X6                                                           COMPCOM      442     A     
 COMPCOM            SA6    SYS1        SET MONITOR CALL                                    COMPCOM      443     A     
 COMPCOM            BX6    X1          RESTORE (X6)                                        COMPCOM      444     A     
 COMPCOM            SA1    RA.MTR      RESET (A1)                                          COMPCOM      445     A     
 COMPCOM            RJ     SYSA        CLEAR STACK                                         COMPCOM      446     A     
 COMPCOM   RCL      SPACE  4,12                                                            COMPCOM      447     A     
 COMPCOM  ***       RCL - PLACE PROGRAM ON RECALL.                                         COMPCOM      448     A     
 COMPCOM  *                                                                                COMPCOM      449     A     
 COMPCOM  *         ENTRY  NONE.                                                           COMPCOM      450     A     
 COMPCOM  *                                                                                COMPCOM      451     A     
 COMPCOM  *         EXIT   REQUEST PROCESSED.                                              COMPCOM      452     A     
 COMPCOM  *                                                                                COMPCOM      453     A     
 COMPCOM  *         USES   A1, X1, X6.                                                     COMPCOM      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/28. 19.11.32.      PAGE 179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *                                                                                COMPCOM      455     A     
 COMPCOM  *         CALLS  SYS=.                                                           COMPCOM      456     A     
 COMPCOM                                                                                   COMPCOM      457     A     
 COMPCOM                                                                                   COMPCOM      458     A     
 COMPCOM   RCL1     LX6    42          PROCESS REQUEST                                     COMPCOM      459     A     
 COMPCOM            RJ     =XSYS=                                                          COMPCOM      460     A     
 COMPCOM   +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                                 COMPCOM      461     A     
 COMPCOM            NZ     X1,*                                                            COMPCOM      462     A     
 COMPCOM                                                                                   COMPCOM      463     A     
 COMPCOM   RCL=     EQ     *+1S17      ENTRY/EXIT                                          COMPCOM      464     A     
 COMPCOM                                                                                   COMPCOM      465     A     
 COMPCOM            SA1    RA.MTR                                                          COMPCOM      466     A     
 COMPCOM            NZ     X1,RCL=     RETURN IF (RA.MTR) NOT CLEAR                        COMPCOM      467     A     
 COMPCOM            SX6    3RRCL       FORM RECALL REQUEST                                 COMPCOM      468     A     
 COMPCOM            EQ     RCL1                                                            COMPCOM      469     A     
 COMPCOM   WNB      SPACE  4,13                                                            COMPCOM      470     A     
 COMPCOM  ***       WNB - WAIT NOT BUSY.                                                   COMPCOM      471     A     
 COMPCOM  *                                                                                COMPCOM      472     A     
 COMPCOM  *         WAIT FOR STATUS WORD BIT 0 TO BE SET.                                  COMPCOM      473     A     
 COMPCOM  *         IF WORD IS INITIALLY 0, RETURN.                                        COMPCOM      474     A     
 COMPCOM  *                                                                                COMPCOM      475     A     
 COMPCOM  *         ENTRY  (X2) = ADDRESS OF STATUS WORD.                                  COMPCOM      476     A     
 COMPCOM  *                                                                                COMPCOM      477     A     
 COMPCOM  *         EXIT   RETURN WHEN BIT 0 OF STATUS WORD IS SET.                        COMPCOM      478     A     
 COMPCOM  *                                                                                COMPCOM      479     A     
 COMPCOM  *         USES   A1, X1, X6.                                                     COMPCOM      480     A     
 COMPCOM  *                                                                                COMPCOM      481     A     
 COMPCOM  *         CALLS  SYS=.                                                           COMPCOM      482     A     
 COMPCOM                                                                                   COMPCOM      483     A     
 COMPCOM                                                                                   COMPCOM      484     A     
 COMPCOM   WNB2     LX1    40          SET AUTO RECALL FLAG                                COMPCOM      485     A     
 COMPCOM            IX6    X6+X1                                                           COMPCOM      486     A     
 COMPCOM            RJ     =XSYS=      PROCESS REQUEST                                     COMPCOM      487     A     
 COMPCOM                                                                                   COMPCOM      488     A     
 COMPCOM   WNB=     EQ     *+1S17      ENTRY/EXIT                                          COMPCOM      489     A     
 COMPCOM                                                                                   COMPCOM      490     A     
 COMPCOM            SX6    3RRCL       FORM RECALL REQUEST                                 COMPCOM      491     A     
 COMPCOM            LX6    42                                                              COMPCOM      492     A     
 COMPCOM            IX6    X6+X2                                                           COMPCOM      493     A     
 COMPCOM   WNB1     SA1    X6          CHECK STATUS WORD                                   COMPCOM      494     A     
 COMPCOM            LX1    59                                                              COMPCOM      495     A     
 COMPCOM            MI     X1,WNB=     RETURN IF COMPLETE BIT SET                          COMPCOM      496     A     
 COMPCOM            ZR     X1,WNB=     RETURN IF BLANK STATUS                              COMPCOM      497     A     
 COMPCOM            SA1    RA.MTR      WAIT (RA.MTR) CLEAR                                 COMPCOM      498     A     
 COMPCOM            NZ     X1,WNB1                                                         COMPCOM      499     A     
 COMPCOM            SX1    1           CONTINUE RECALL                                     COMPCOM      500     A     
 COMPCOM            EQ     WNB2                                                            COMPCOM      501     A     
 COMPCOM   MSG      SPACE  4,15                                                            COMPCOM      502     A     
 COMPCOM  ***       MSG - SEND MESSAGE.                                                    COMPCOM      503     A     
 COMPCOM  *                                                                                COMPCOM      504     A     
 COMPCOM  *         ENTRY  (X1) = ADDRESS OF MESSAGE.                                      COMPCOM      505     A     
 COMPCOM  *                (X6) = MESSAGE OPTION(S).                                       COMPCOM      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/28. 19.11.32.      PAGE 180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM  *                            BIT 22 = AUTO RECALL.                               COMPCOM      507          I
          -F7820CP
 COMPCOM  *                            BITS 17 - 0 = MESSAGE OPTION.                       COMPCOM      508          I
          -F7820CP
 COMPCOM  *                            BIT 16 = AUTO RECALL.                               F7820CP       44     A     
 COMPCOM  *                            BITS 11 - 0 = MESSAGE OPTION CODE.                  F7820CP       45     A     
 COMPCOM  *                                                                                COMPCOM      509     A     
 COMPCOM  *         EXIT   RETURN WHEN OPERATION COMPLETE.                                 COMPCOM      510     A     
 COMPCOM  *                                                                                COMPCOM      511     A     
 COMPCOM  *         USES   A1, A6, X1, X6.                                                 COMPCOM      512     A     
 COMPCOM  *                                                                                COMPCOM      513     A     
 COMPCOM  *         CALLS  SYS=.                                                           COMPCOM      514     A     
 COMPCOM                                                                                   COMPCOM      515     A     
 COMPCOM                                                                                   COMPCOM      516     A     
 COMPCOM   MSG1     SX6    3RMSG*2     FORM MESSAGE REQUEST                                COMPCOM      517     A     
 COMPCOM            BX6    X6+X1                                                           COMPCOM      518     A     
 COMPCOM            LX6    40-59                                                           COMPCOM      519     A     
 COMPCOM            RJ     =XSYS=      PROCESS REQUEST                                     COMPCOM      520     A     
 COMPCOM                                                                                   COMPCOM      521     A     
 COMPCOM   MSG=     EQ     *+1S17      ENTRY/EXIT                                          COMPCOM      522     A     
 COMPCOM                                                                                   COMPCOM      523     A     
 COMPCOM            IFC    EQ,*"OS.NAME"*KRONOS*,2                                 CPS141  CPS141         5          I
          -F7820CP
 COMPCOM            LX6    24                                                      CPS141  CPS141         6          I
          -F7820CP
 COMPCOM            SKIP   1                                                       CPS141  CPS141         7          I
          -F7820CP
 COMPCOM            LX6    18          MERGE OPTION(S) AND ADDRESS                         COMPCOM      524          I
          -F7820CP
 COMPCOM            LX6    24          MERGE OPTION(S) AND ADDRESS                         F7820CP       46     A     
 COMPCOM            BX1    X6+X1                                                           COMPCOM      525     A     
 COMPCOM            SX6    X1                                                              COMPCOM      526     A     
 COMPCOM            LX1    59-40                                                           COMPCOM      527     A     
 COMPCOM            PL     X1,MSG1     IF NO AUTO RECALL                                   COMPCOM      528     A     
 COMPCOM            LX1    40-59                                                           COMPCOM      529     A     
 COMPCOM            BX1    X1-X6       REMOVE MESSAGE ADDRESS                              COMPCOM      530     A     
 COMPCOM            LX6    30                                                              COMPCOM      531     A     
 COMPCOM            SA6    MSGA        STORE STATUS WORD                                   COMPCOM      532     A     
 COMPCOM            SX6    A6                                                              COMPCOM      533     A     
 COMPCOM            IX1    X1+X6       SET INDIRECT ADDRESS                                COMPCOM      534     A     
 COMPCOM            LX1    59-40                                                           COMPCOM      535     A     
 COMPCOM            EQ     MSG1                                                            COMPCOM      536     A     
 COMPCOM                                                                                   COMPCOM      537     A     
 COMPCOM   MSGA     VFD    30/**,30/0  STATUS WORD FOR MESSAGE WITH AUTO RECALL            COMPCOM      538     A     
 COMPCOM            SPACE  4                                                               COMPCOM      539     A     
 COMPCOM            BASE   *                                                               COMPCOM      540     A     
 COMPCOM   QUAL$    IF     -DEF,QUAL$                                                      COMPCOM      541     A     
 COMPCOM            QUAL   *                                                               COMPCOM      542     A     
 COMPCOM   SYS=     EQU    /COMCSYS/SYS=                                                   COMPCOM      543     A     
 COMPCOM   RCL=     EQU    /COMCSYS/RCL=                                                   COMPCOM      544     A     
 COMPCOM   WNB=     EQU    /COMCSYS/WNB=                                                   COMPCOM      545     A     
 COMPCOM   MSG=     EQU    /COMCSYS/MSG=                                                   COMPCOM      546     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM   QUAL$    ENDIF                                                                  COMPCOM      547     A     
 COMPCOM                                                                                   COMPCOM      548     A     
 COMPCOM                                                                                   COMPCOM      549     A     
 COMPCOM   COMCSYS  ENDX                                                                   COMPCOM      550     A     
 COMPCOM                                                                                   COMPCOM      551     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      552     A     
 COMPCOM                                                                                   COMPCOM      553     A     
 COMPCOM            LIST   *                                                               COMPCOM      554     A     
 COMPCOM   6RM      SPACE  4                                                               COMPCOM      555     A     
 COMPCOM  **        RECORD MANAGER ROUTINES.                                               COMPCOM      556     A     
 COMPCOM                                                                                   COMPCOM      557     A     
 COMPCOM                                                                                   COMPCOM      558     A     
 COMPCOM   RM       IFNE   CP#RM,0                                                         COMPCOM      559          I
          -CPS028 
 COMPCOM   RM       IFC    LT, "MODEL" 75                                                  COMPCOM      560          I
          -CPS028 
 COMPCOM   RM       IFEQ   CP#RM,6                                                S028  65 CPS028        36     A     
 COMPCOM                                                                                   COMPCOM      561     A     
 COMPCOM   #PL6RM#  MICRO  1,9,*"#PLRM#"         *                                         COMPCOM      562     A     
 COMPCOM                                                                                   COMPCOM      563     A     
 COMPCOM            LIST   "LISTRM"X                                                       COMPCOM      564     A     
 COMPCOM                                                                                   COMPCOM      565     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMITXT                                                        COMPCOM      566     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCOND                                                        COMPCOM      567          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMCIOR                                               S028  67 CPS028        37     A     
 COMPCOM                                                                                   COMPCOM      568     A     
 COMPCOM            QUAL   6RM                                                             COMPCOM      569     A     
 COMPCOM                                                                                   COMPCOM      570     A     
 COMPCOM            SEL.RM FO=SQ,BT=(I,C),RT=(Z,W,U)                                       COMPCOM      571          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMOPER                                                        COMPCOM      572          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMOPES                                                        COMPCOM      573          I
          -CPS028 
 COMPCOM            SEL.RM FO=(SQ,WA),BT=(C,I),RT=(S,U,W,Z)                       S028  69 CPS028        38     A     
 COMPCOM                                                                          S028  70 CPS028        39     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMMCTR                                               S028  71 CPS028        40     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCHKR                                               S028  72 CPS028        41     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCHWS                                               S028  73 CPS028        42     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCLSR                                               S028  74 CPS028        43     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCLSS                                               S028  75 CPS028        44     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCLSW                                               S028  76 CPS028        45     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMENDS                                               S028  77 CPS028        46     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMERRM                                               S028  78 CPS028        47     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMGETR                                                        COMPCOM      574     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMGETS                                                        COMPCOM      575     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMPUTS                                                        COMPCOM      576          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMBTRS    MUST FOLLOW C6RMGETS                       S028  80 CPS028        48     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMFSUS    MUST FOLLOW C6RMGETS                       S028  81 CPS028        49     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMWS      MUST FOLLOW C6RMGETS                       S028  82 CPS028        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/28. 19.11.32.      PAGE 182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM   "#PLRM#" XTEXT  C6RMZS      MUST FOLLOW C6RMGETS                       S028  83 CPS028        51     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMGETW                                               S028  84 CPS028        52     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMMOVR                                               S028  85 CPS028        53     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMOPER                                               S028  86 CPS028        54     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMOPES                                               S028  87 CPS028        55     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMOPEW                                               S028  88 CPS028        56     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMOSUB                                               S028  89 CPS028        57     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMPDFR                                               S028  90 CPS028        58     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMPUTR                                                        COMPCOM      577     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCLSS                                                        COMPCOM      578          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMBTRS                                                        COMPCOM      579          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMBMVR                                                        COMPCOM      580          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMMOVR                                                        COMPCOM      581          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMWERS                                                        COMPCOM      582          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMRLEQ    MUST PRECEDE C6RMPUTS                      S028  92 CPS028        59     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMPUTS                                               S028  93 CPS028        60     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMPUTW                                               S028  94 CPS028        61     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMREWR                                                        COMPCOM      583     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMREWS                                                        COMPCOM      584     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMCLSR                                                        COMPCOM      585          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMSKBR                                                        COMPCOM      586     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMSKBS                                                        COMPCOM      587     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMSKFS                                                        COMPCOM      588          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMWS                                                          COMPCOM      589          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMFSUS                                                        COMPCOM      590          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMZS                                                          COMPCOM      591          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMPDFR                                                        COMPCOM      592          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMCHWS                                                        COMPCOM      593          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMERRM                                                        COMPCOM      594          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMCHKR                                                        COMPCOM      595          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMENDS                                                        COMPCOM      596          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMRLEQ                                                        COMPCOM      597          I
          -CPS028 
 COMPCOM   "#PLRM#" XTEXT  C6RMWARS                                               S028  97 CPS028        62     A     
 COMPCOM   "#PLRM#" XTEXT  C6RMWERS                                               S028  98 CPS028        63     A     
 COMPCOM                                                                                   COMPCOM      598     A     
 COMPCOM            QUAL                                                                   COMPCOM      599     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM                                                                                   COMPCOM      600     A     
 COMPCOM   ERR.RM   EQU    /6RM/ERR.RM                                                     COMPCOM      601          I
          -CPS028 
 COMPCOM   GET.SQ   EQU    /6RM/GET.SQ                                                     COMPCOM      602          I
          -CPS028 
 COMPCOM   PUT.SQ   EQU    /6RM/PUT.SQ                                                     COMPCOM      603          I
          -CPS028 
 COMPCOM   MOVE.RM  EQU    /6RM/MOVE.RM                                                    COMPCOM      604          I
          -CPS028 
 COMPCOM   OPEN.RM  EQU    /6RM/OPEN.RM                                                    COMPCOM      605          I
          -CPS028 
 COMPCOM   OPEN.SQ  EQU    /6RM/OPEN.SQ                                                    COMPCOM      606          I
          -CPS028 
 COMPCOM   PDF.RM   EQU    /6RM/PDF.RM                                                     COMPCOM      607          I
          -CPS028 
 COMPCOM   CLSF.SQ  EQU    /6RM/CLSF.SQ                                                    COMPCOM      608          I
          -CPS028 
 COMPCOM   SKBL.SQ  EQU    /6RM/SKBL.SQ                                                    COMPCOM      609          I
          -CPS028 
 COMPCOM   CHWR.SQ  EQU    /6RM/CHWR.SQ                                                    COMPCOM      610          I
          -CPS028 
 COMPCOM   SKFL.SQ  EQU    /6RM/SKFL.SQ                                                    COMPCOM      611          I
          -CPS028 
 COMPCOM   REW.SQ   EQU    /6RM/REW.SQ                                                     COMPCOM      612          I
          -CPS028 
 COMPCOM   PUTL.SQ  EQ     *+400000B                                                       COMPCOM      613          I
          -CPS028 
 COMPCOM   CHKSUM   EQ     *+400000B                                                       COMPCOM      614          I
          -CPS028 
 COMPCOM   SKBL.WA  EQ     *+400000B                                                       COMPCOM      615          I
          -CPS028 
 COMPCOM   A0B      EQU    /6RM/A0B                                               S028 100 CPS028        64     A     
 COMPCOM   AMAC.SQ  EQU    /6RM/AMAC.SQ                                           S028 101 CPS028        65     A     
 COMPCOM   CHWR.SQ  EQU    /6RM/CHWR.SQ                                           S028 102 CPS028        66     A     
 COMPCOM   CLSV.SQ  JP     *+400000B                                              S028 103 CPS028        67     A     
 COMPCOM   COMM.WA  EQU    /6RM/COMM.WA                                           S028 104 CPS028        68     A     
 COMPCOM   DXIT.SQ  EQU    /6RM/DXIT.SQ                                           S028 105 CPS028        69     A     
 COMPCOM   ERR.RM   EQU    /6RM/ERR.RM                                            S028 106 CPS028        70     A     
 COMPCOM   FLSH.SQ  EQU    /6RM/FLSH.SQ                                           S028 107 CPS028        71     A     
 COMPCOM   FLSH.WA  EQU    /6RM/FLSH.WA                                           S028 108 CPS028        72     A     
 COMPCOM   GXIT.SQ  EQU    /6RM/GXIT.SQ                                           S028 109 CPS028        73     A     
 COMPCOM   MCT.RM   EQU    /6RM/MCT.RM                                            S028 110 CPS028        74     A     
 COMPCOM   MOVE.RM  EQU    /6RM/MOVE.RM                                           S028 111 CPS028        75     A     
 COMPCOM   OPEX.SQ  JP     *+400000B                                              S028 112 CPS028        76     A     
 COMPCOM   OSUB.RM  EQU    /6RM/OSUB.RM                                           S028 113 CPS028        77     A     
 COMPCOM   PUT.SQ   EQU    /6RM/PUT.SQ                                            S028 114 CPS028        78     A     
 COMPCOM   RLEQ.RM  EQU    /6RM/RLEQ.RM                                           S028 115 CPS028        79     A     
 COMPCOM   RMU.SQ   EQU    /6RM/RMU.SQ                                            S028 116 CPS028        80     A     
 COMPCOM   RMU0.SQ  EQU    /6RM/RMU0.SQ                                           S028 117 CPS028        81     A     
 COMPCOM   RMU1.SQ  EQU    /6RM/RMU1.SQ                                           S028 118 CPS028        82     A     
 COMPCOM   RSPT.SQ  EQU    /6RM/RSPT.SQ                                           S028 119 CPS028        83     A     
 COMPCOM   SKGT.SQ  EQU    /6RM/SKGT.SQ                                           S028 120 CPS028        84     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPCOM 
  
 COMPCOM   WAR.SQ   EQU    /6RM/WAR.SQ                                            S028 121 CPS028        85     A     
 COMPCOM                                                                                   COMPCOM      616     A     
 COMPCOM            LIST   *                                                               COMPCOM      617     A     
 COMPCOM                                                                                   COMPCOM      618     A     
 COMPCOM   RM       ENDIF                                                                  COMPCOM      619     A     
 COMPCOM                                                                                   COMPCOM      620     A     
 COMPCOM                                                                                   COMPCOM      621     A     
 COMPCOM  **        END OF COMPCOM.                                                        COMPCOM      622     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMPCOM 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMPCOM                    622       497
          CPS028                      84        84
          CPS064                       2         2
          CP114                        3         3
          CPSCPRT                      4         3
          S3143CP                      1         1
          CPS*76                       1         0
          CP139CP                     85        84
          CPS141                       3         0
          CPS150                       2         2
          CPS*77                       1         0
          F7820CP                      3         3
          CPS*78                       1         0
          CPS*79                       1         0
          CPSA142                     23        21
          CPS236                       6         6
          CPS*80                       1         0
          CPS*81                       1         0
          CPSA216                      2         2
          CPS*82                       1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *DECK     COMPASS                                                                COMPASS        1     A     
 COMPASS            IDENT  COMPASS,LOVER,CMP                                               COMPASS        2          I
          -CMP30  
 COMPASS            IDENT  COMPASS,RA.ORG+1,CMP                                            CMP30          1          I
          -CP139CP
 COMPASS            IDENT  COMPASS,ORGZ                                                    CP139CP       95     A     
 COMPASS            ABS                                                                    COMPASS        3     A     
 COMPASS   VERSION  MICRO  1,,*VER 2.*                                                     COMPASS        4          I
          -CMP30  
 COMPASS   OVL      MICRO  1,, COMP1$                                                      COMPASS        5          I
          -CMP30  
 COMPASS  *COMMENT  "TIME" "VERSION" LEVEL 8.                                              COMPASS        6          I
          -CMP30  
 COMPASS            COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                             COMPASS        7          I
          -CMP30  
 COMPASS            SST                                                                    CMP30          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/28. 19.11.32.      PAGE 185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            IPARAMS                                                       S028 123 CPS028        86     A     
 COMPASS            SYSCOM B1                                                              COMPASS        8     A     
 COMPASS            LIST   F                                                               CMP14          1          I
          -CMP30  
 COMPASS   DEBUG    SPACE  4                                                               CMP14          2          I
          -CMP30  
 COMPASS  **        DEBUGGING FACILITY CONTROL.                                            CMP14          3          I
          -CMP30  
 COMPASS  *         DEBUG = 0 TO OMIT DEBUGGING FACILITY.                                  CMP14          4          I
          -CMP30  
 COMPASS  *               = 1 TO INCLUDE DEBUGGING FACILITY.                               CMP14          5          I
          -CMP30  
 COMPASS                                                                                   CMP14          6          I
          -CMP30  
 COMPASS                                                                                   CMP14          7          I
          -CMP30  
 COMPASS   DEBUG    EQU    0                                                               CMP14          8          I
          -CMP30  
 COMPASS   OVL      SPACE  4                                                               COMPASS        9          I
          -CMP30  
 COMPASS  **        OVERLAY CONTROL.                                                       COMPASS       10          I
          -CMP30  
 COMPASS  *         OVERLAY = 0 IF ONE OVERLAY.                                            COMPASS       11          I
          -CMP30  
 COMPASS  *                 = 1 IF TWO OVERLAYS.                                           COMPASS       12          I
          -CMP30  
 COMPASS                                                                                   COMPASS       13          I
          -CMP30  
 COMPASS                                                                                   COMPASS       14          I
          -CMP30  
 COMPASS   OVERLAY  SET    1                                                               COMPASS       15          I
          -CMP30  
 COMPASS   OVERLAY  MIN    1-DEBUG,OVERLAY                                                 CMP14          9          I
          -CMP30  
 COMPASS            TITLE  COMPASS - 6000/7000 ASSEMBLER - "VERSION"                       COMPASS       16          I
          -CMP30  
 COMPASS            TITLE                                                                  COMPASS       17          I
          -CMP30  
 COMPASS  ***       6000/7000 COMPASS ASSEMBLER.                                           COMPASS       18          I
          -CMP30  
 COMPASS  *         D. M. KURN. 67/01/01.                                                  COMPASS       19          I
          -CMP30  
 COMPASS  *         MODIFIED BY D. A. CAHLANDER.  69/06/07.                                COMPASS       20          I
          -CMP30  
 COMPASS   CONTROL  SPACE  4                                                               COMPASS       21          I
          -CMP30  
 COMPASS            LIST   F,X                                                             CMP30          3     A     
 COMPASS            ORG    RA.ORG+1                                                        CMP30          4          I
          -CP139CP
 COMPASS   COMPASS  SPACE  4                                                               CMP30          5     A     
 COMPASS  ***       COMPASS - CYBER 70 SERIES COMPREHENSIVE ASSEMBLER PROGRAM.             CMP30          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/28. 19.11.32.      PAGE 186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                CMP30          7     A     
 COMPASS  *                                                                                CMP30          8     A     
 COMPASS  *         VERSION 1.0   67/01/01   D. M. KURN.                                   CMP30          9     A     
 COMPASS  *         VERSION 1.1   67/09/01   D. M. KURN.                                   CMP30         10     A     
 COMPASS  *         VERSION 2.0   69/06/07   D. A. CAHLANDER.                              CMP30         11     A     
 COMPASS  *         VERSION 3.0   71/03/01   R. H. GOODELL.                                CMP30         12     A     
 COMPASS  *         VERSION 3.1   74/10/07   R. H. GOODELL.                                CP096A        25     A     
 COMPASS  *         VERSION 3.2   75/03/01   R. H. GOODELL.                                CP096A        26     A     
 COMPASS  *         VERSION 3.3   75/10/23   R. H. GOODELL, V. M. AMEZCUA.                 CP154          4     A     
 COMPASS  *         VERSION 3.4   77/05/24   J.E. GARCIA                           FEAT184 FEAT184N       5          I
          -FEAT184NA
 COMPASS  *         VERSION 3.4   76/09/22   V. M. AMEZCUA, C. M. MCDONALD         FEAT184 FEAT184NA      4     A     
 COMPASS  *                                  R. L. DEMER, J. E. GARCIA.            FEAT184 FEAT184NA      5     A     
 COMPASS  *         VERSION 3.5   77/05/24   J. E. GARCIA.                         FEAT184 FEAT184NA      6     A     
 COMPASS  *         VERSION 3.6   78/06/16.  J. E. GARCIA                          F4810B  F4810B         4     A     
 COMPASS  *         VERSION 3.7   86/07/14   A.    MCDEARMON.                              CPSA300        6     A     
 COMPASS  *                                                                        FEAT184 FEAT184NA      7     A     
 COMPASS  *                                                                                CMP30         13     A     
 COMPASS  *                                                                                CMP30         14     A     
 COMPASS  *         CONTROL DATA  PROPRIETARY PRODUCT.                                     CMP30         15     A     
 COMPASS  *         COPYRIGHT CONTROL DATA CORP. 1971.                                     CMP30         16          I
          -CPSCPRT
 COMPASS  *         COPYRIGHT CONTROL DATA CORP. 1971, 1972, 1973, 1974, 1975.             CPSCPRT        8          I
          -CPS*76 
 COMPASS  *         COPYRIGHT CONTROL DATA CORP. 1971, 1972, 1973, 1974, 1975,             CPS*76         5     A     
 COMPASS  *                                      1976.                                     CPS*76         6          I
          -CPS*77 
 COMPASS  *                                      1976, 1977.                               CPS*77         5          I
          -CPS*78 
 COMPASS  *                                      1976, 1977, 1978.                 CPS*78  CPS*78         5          I
          -CPS*79 
 COMPASS  *                                      1976, 1977, 1978, 1979.                   CPS*79         5          I
          -CPS*80 
 COMPASS  *                                      1976, 1977, 1978, 1979, 1980.             CPS*80         5          I
          -CPS*81 
 COMPASS  *                                      1976, 1977, 1978, 1979, 1980,             CPS*81         5     A     
 COMPASS  *                                      1981.                                     CPS*81         6          I
          -CPS*82 
 COMPASS  *                                       1981, 1982.                              CPS*82         5     A     
 COMPASS   ORGZ     SPACE  4,8                                                             CP139CP       96     A     
 COMPASS   ENV      MACRO   ENVI,X                                                         F7540CP        5          I
          -CPSA134
 COMPASS            IRP     ENVI                                                           F7540CP        6          I
          -CPSA134
 COMPASS   X        IFEQ    ENV_ENVI,0                                                     F7540CP        7          I
          -CPSA134
 COMPASS            IRP                                                                    F7540CP        8          I
          -CPSA134
 COMPASS            ENDM                                                                   F7540CP        9          I
          -CPSA134
 COMPASS                                                                                   F7540CP       10          I
          -CPSA134
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ECHO   1,P=(1,2,3,4,5,6,7,8,9)                                         F7540CP       11          I
          -CPSA134
 COMPASS   ENV_P    SET    0                                                               F7540CP       12          I
          -CPSA134
 COMPASS                                                                                   F7540CP       13          I
          -CPSA134
 COMPASS            IFC    EQ,*"MODEL"*76*                                                 F7540CP       14          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*1.0 *                                              F7540CP       15          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*KRONOS*                                           F7540CP       16          I
          -CPSA134
 COMPASS   ENV1     SET    1                                                               F7540CP       17          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       18          I
          -CPSA134
 COMPASS            IFC    EQ,*"MODEL"*76*                                                 F7540CP       19          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*2.1 *                                              F7540CP       20          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *                                           F7540CP       21          I
          -CPSA134
 COMPASS   ENV2     SET    1                                                               F7540CP       22          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       23          I
          -CPSA134
 COMPASS            IFC    EQ,*"MODEL"*176*                                                F7540CP       24          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*2.1 *                                              F7540CP       25          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *                                           F7540CP       26          I
          -CPSA134
 COMPASS   ENV3     SET    1                                                               F7540CP       27          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       28          I
          -CPSA134
 COMPASS            IFLT   "MODEL",75                                                      F7540CP       29          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*3.4 *                                              F7540CP       30          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *                                           F7540CP       31          I
          -CPSA134
 COMPASS   ENV4     SET    1                                                               F7540CP       32          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       33          I
          -CPSA134
 COMPASS            IFC    LT,*"MODEL"*176*                                                F7540CP       34          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*3.4 *                                              F7540CP       35          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *                                           F7540CP       36          I
          -CPSA134
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ENV5     SET    1                                                               F7540CP       37          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       38          I
          -CPSA134
 COMPASS            IFC    EQ,*"MODEL"*176*                                                F7540CP       39          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*3.4 *                                              F7540CP       40          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *                                           F7540CP       41          I
          -CPSA134
 COMPASS   ENV6     SET    1                                                               F7540CP       42          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       43          I
          -CPSA134
 COMPASS            IFLT   "MODEL",75                                                      F7540CP       44          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*2.1 *                                              F7540CP       45          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*KRONOS*                                           F7540CP       46          I
          -CPSA134
 COMPASS   ENV7     SET    1                                                               F7540CP       47          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       48          I
          -CPSA134
 COMPASS            IFC    LT,*"MODEL"*176*                                                F7540CP       49          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*2.1 *                                              F7540CP       50          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*KRONOS*                                           F7540CP       51          I
          -CPSA134
 COMPASS   ENV8     SET    1                                                               F7540CP       52          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       53          I
          -CPSA134
 COMPASS            IFC    EQ,*"MODEL"*176*                                                F7540CP       54          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.VER"*2.1 *                                              F7540CP       55          I
          -CPSA134
 COMPASS            IFC    EQ,*"OS.NAME"*KRONOS*                                           F7540CP       56          I
          -CPSA134
 COMPASS   ENV9     SET    1                                                               F7540CP       57          I
          -CPSA134
 COMPASS            ENDIF                                                                  F7540CP       58          I
          -CPSA134
 COMPASS  *         INITIALIZE CONDITIONAL ASSEMBLY SYMBOLS.                               CPSA134        6     A     
 COMPASS                                                                                   CPSA134        7     A     
 COMPASS  *         DETERMINE IF MODEL 76 ASSEMBLY.                                        CPSA134        8     A     
 COMPASS                                                                                   CPSA134        9     A     
 COMPASS            IFC    EQ,*"MODEL"*76*,1                                               CPSA134       10     A     
 COMPASS   MODL76   SET    1           ASSEMBLED IF MODEL 76 ASSEMBLY                      CPSA134       11     A     
 COMPASS                                                                                   CPSA134       12     A     
 COMPASS  *         DETERMINE IF NOS OR KRONOS 1.0 (SCOPE1) ASSEMBLY                       CPSA134       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/28. 19.11.32.      PAGE 189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CPSA134       14     A     
 COMPASS            IFC    EQ,*"OS.NAME"*KRONOS*                                           CPSA134       15     A     
 COMPASS   SCP      IFC    EQ,*"OS.VER"*1.0 *                                              CPSA134       16     A     
 COMPASS   SCOPE1   EQU    1           ASSEMBLED IF KRONOS 1.0 (SCOPE1)                    CPSA134       17     A     
 COMPASS   SCP      ELSE                                                                   CPSA134       18     A     
 COMPASS   NOS      EQU    1           ASSEMBLED IF NOS                                    CPSA134       19     A     
 COMPASS            ENDIF                                                                  CPSA134       20     A     
 COMPASS                                                                                   CPSA134       21     A     
 COMPASS  *         DETERMINE IF SCOPE 2                                                   CPSA134       22          I
          -CPS2660
 COMPASS  *         DETERMINE IF NOS/BE OR SCOPE 2.                                        CPS2660        7     A     
 COMPASS                                                                                   CPSA134       23     A     
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *,2                                         CPSA134       24          I
          -CPS2660
 COMPASS            IFC    EQ,*"OS.NAME"*SCOPE *,4                                         CPS2660        8     A     
 COMPASS            IFC    EQ,*"OS.VER"*2.1 *,1                                            CPSA134       25     A     
 COMPASS   SCOPE2   EQU    1           ASSEMBLED IF SCOPE 2 ASSEMBLY                       CPSA134       26     A     
 COMPASS            IFC    NE,*"OS.VER"*2.1 *,1                                            CPS2660        9     A     
 COMPASS   NOSBE    EQU    1           ASSEMBLED IF NOS/BE ASSEMBLY                        CPS2660       10     A     
 COMPASS                                                                                   CPSA134       27     A     
 COMPASS  *         DETERMINE IF ECS OR LCM MACHINE                                        CPSA134       28     A     
 COMPASS                                                                                   CPSA134       29     A     
 COMPASS            DEFINHF                                                                CPSA134       30     A     
 COMPASS                                                                                   CPSA134       31     A     
 COMPASS            IF     MIC,HF.L,1                                                      CPSA134       32     A     
 COMPASS   LCMTYP   EQU    1           ASSEMBLED IF LCM AVAILABLE                          CPSA134       33     A     
 COMPASS                                                                                   CPSA134       34     A     
 COMPASS            IF     -MIC,HF.E,1                                                     CPSA134       35     A     
 COMPASS   HAFEXIT  EQU    1           ASSEMBLED IF ECS HALF-EXIT AVAILABLE                CPSA134       36     A     
 COMPASS                                                                                   CPSA134       37     A     
 COMPASS  **        ENTRY POINTS AND ORIGIN OF (0,0) OVERLAY.                              CP139CP       97     A     
 COMPASS                                                                                   CP139CP       98     A     
 COMPASS                                                                                   CP139CP       99     A     
 COMPASS            ENTRY  COMPASS     PRIMARY ENTRY POINT                                 CP139CP      100     A     
 COMPASS                                                                                   CP139CP      101     A     
 COMPASS            IFC    EQ,*"OS.NAME"*KRONOS*                                           CP139CP      102          I
          -F7540CP
 COMPASS            ENV    (7,8,9),X                                                       F7540CP       59          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       60          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP       61          I
          -CPSA134
 COMPASS            IF     DEF,NOS                                                         CPSA134       38     A     
 COMPASS            ENTRY  ARG=        SUPPRESS ARGUMENT CHECKING BY SYSTEM                CP139CP      103     A     
 COMPASS            ENTRY  MFL=        DECLARE MINIMUM FIELD LENGTH                        CP139CP      104     A     
 COMPASS   ORGZ     EQU    RA.ORG+1+3  LEAVE ROOM FOR 3 ENTRY POINTS                       CP139CP      105     A     
 COMPASS            ELSE                                                                   CP139CP      106     A     
 COMPASS   ORGZ     EQU    RA.ORG+1+1  LEAVE ROOM FOR 1 ENTRY POINT                        CP139CP      107     A     
 COMPASS            ENDIF                                                                  CP139CP      108     A     
 COMPASS                                                                                   CP139CP      109     A     
 COMPASS            IFC    LT,*"OS.NAME""OS.VER"*SCOPE 2*,1                                CP139CP      110          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F7540CP
 COMPASS            IFC    LT, "MODEL" 75                                                  CP139CP      111          I
          -F7540CP
 COMPASS            ENV    (1),X                                                           F7540CP       62          I
          -CPSA134
 COMPASS   CP.BASE  EQU    RA.ORG+10B+4  LEAVE ROOM FOR 54-TABLE AND ENTRY POINTS          CP139CP      112          I
          -CPSA134
 COMPASS            ELSE                                                                   CP139CP      113          I
          -F7540CP  -CPSA134
 COMPASS            ELSE   1                                                               F7540CP       63          I
          -CPSA134
 COMPASS   CP.BASE  EQU    RA.ORG+4      LEAVE ROOM FOR ENTRY POINTS ONLY                  CP139CP      114          I
          -CPSA134
 COMPASS            IF     DEF,SCOPE1,2                                                    CPSA134       39     A     
 COMPASS   CP.BASE  EQU    RA.ORG+4    LEAVE ROOM FOR ENTRY POINTS ONLY                    CPSA134       40     A     
 COMPASS            ELSE   1                                                               CPSA134       41     A     
 COMPASS   CP.BASE  EQU    RA.ORG+10B+4 LEAVE ROOM FOR 54 TABLE AND ENTRY POINTS           CPSA134       42     A     
 COMPASS                                                                                   CPSA134       43     A     
 COMPASS            ENDIF                                                                  CP139CP      115          I
          -F7540CP
 COMPASS                                                                                   CP139CP      116     A     
 COMPASS            ORG    ORGZ        ALIGN *COMPCOM* ORIGIN                              CP139CP      117     A     
 COMPASS            BSS    CP.BASE-*   WITH CALLING COMPILERS                              CP139CP      118     A     
 COMPASS   CONTROL  EJECT                                                                  CMP30         17     A     
 COMPASS  ***       CONTROL CARD CALL.                                                     COMPASS       22     A     
 COMPASS  *                                                                                COMPASS       23     A     
 COMPASS  *         COMPASS(P1,P2,...,PN)                                                  COMPASS       24     A     
 COMPASS  *                                                                                COMPASS       25     A     
 COMPASS  *           OPTION           MEANING                                             COMPASS       26     A     
 COMPASS  *                                                                                COMPASS       27     A     
 COMPASS  *                                                                                CMP20          1          I
          -CMP26  
 COMPASS  *             A              DO NOT ABORT IF ERRORS.                             CMP20          2          I
          -CMP26  
 COMPASS  *             A              ABORT IF ERRORS.                                    CMP26          1     A     
 COMPASS  *                                                                                CMP26          2     A     
 COMPASS  *             B              BINARY ON FILE *LGO*.                               COMPASS       28     A     
 COMPASS  *             B=0            NO BINARY.                                          COMPASS       29     A     
 COMPASS  *             B=FNAME        BINARY ON FILE *FNAME*.                             COMPASS       30          I
          -CMP30  
 COMPASS  *             B=LFN          BINARY ON FILE *LFN*.                               CMP30         18     A     
 COMPASS  *                                                                                COMPASS       31     A     
 COMPASS  *             D              GENERATE BINARY EVEN IF ASSEMBLY ERRORS.            COMPASS       32     A     
 COMPASS  *                                                                                COMPASS       33     A     
 COMPASS  *             F              *F SET TO *COMPASS*.                                COMPASS       34          I
          -CMP15  
 COMPASS  *             F=NAME         *F SET TO *NAME*.                                   COMPASS       35          I
          -CMP15  
 COMPASS  *             F              *F SET TO 0.                                        CMP15          1     A     
 COMPASS  *             F=NUMBER       *F SET TO NUMBER.                                   CMP15          2     A     
 COMPASS  *             F=NAME         *F SET TO NUMBER CORRESPONDING TO NAME              CMP15          3     A     
 COMPASS  *                                  (0=COMPASS, 1=RUN, 2=FTN)                     CMP15          4          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA240
 COMPASS  *                                   (0=COMPASS, 1=RUN, 2=FTN4, 3=FTN5)           CPSA240        7     A     
 COMPASS  *                                                                                COMPASS       36     A     
 COMPASS  *             G              SYSTEXT FROM FILE *SYSTEXT*                         COMPASS       37     A     
 COMPASS  *             G=0            NO SYSTEXT FROM A FILE.                             CMP8           1     A     
 COMPASS  *             G=FNAME        SYSTEXT FROM FILE *FNAME*.                          COMPASS       38          I
          -CMP30  
 COMPASS  *             G=LFN          SYSTEXT FROM FILE *LFN*.                            CMP30         19     A     
 COMPASS  *             G=LFN/OVL      SYSTEXT FROM OVERLAY *OVL* IN FILE *LFN*.           CMP30         20     A     
 COMPASS  *                                                                                COMPASS       39     A     
 COMPASS  *             I              INPUT FROM FILE *COMPILE*.                          COMPASS       40     A     
 COMPASS  *             I=FNAME        INPUT FROM FILE *FNAME*.                            COMPASS       41          I
          -CMP30  
 COMPASS  *             I=LFN          INPUT FROM FILE *LFN*.                              CMP30         21     A     
 COMPASS  *                                                                                COMPASS       42     A     
 COMPASS  *             L              LONG LIST ON FILE *OUTPUT*.                         COMPASS       43     A     
 COMPASS  *             L=0            NO LONG LIST.                                       COMPASS       44     A     
 COMPASS  *             L=FNAME        LONG LIST ON FILE *FNAME*.                          COMPASS       45          I
          -CMP30  
 COMPASS  *             L=LFN          LONG LIST ON FILE *LFN*.                            CMP30         22     A     
 COMPASS  *                                                                                COMPASS       46     A     
 COMPASS  *             LO             SET LIST OPTIONS C, F, G, AND X.                    COMPASS       47     A     
 COMPASS  *             LO=0           NORMAL LIST OPTIONS.                                COMPASS       48          I
          -CMP19  
 COMPASS  *             LO=0           NORMAL LIST OPTIONS (B, L, N, AND R).               CMP19          1     A     
 COMPASS  *             LO=CCC-CCC     TOGGLE LIST OPTIONS CCC-CCC.                        COMPASS       49     A     
 COMPASS  *                                                                                CMP30         23     A     
 COMPASS  *             ML=STRING      VALUE OF *MODLEVEL* MICRO.                          CMP30         24     A     
 COMPASS  *                                                                                COMPASS       50     A     
 COMPASS  *             N              NO EJECT FLAG.                                      COMPASS       51     A     
 COMPASS  *                                                                                COMPASS       52     A     
 COMPASS  *             O              SHORT LIST ON FILE *OUTPUT*.                        COMPASS       53     A     
 COMPASS  *             O=0            NO SHORT LIST.                                      COMPASS       54     A     
 COMPASS  *             O=FNAME        SHORT LIST ON FILE *FNAME*.                         COMPASS       55          I
          -CMP30  
 COMPASS  *             O=LFN          SHORT LIST ON FILE *LFN*.                           CMP30         25     A     
 COMPASS  *                                                                                COMPASS       56     A     
 COMPASS  *             P              SELECT CONSECUTIVE PAGE NUMBERING.                  COMPASS       57     A     
 COMPASS  *                                                                                CMP30         26     A     
 COMPASS  *             PC=STRING      VALUE OF *PCOMMENT* MICRO.                          CMP30         27     A     
 COMPASS  *                                                                                COMPASS       58     A     
 COMPASS  *                                                                        F4810A  F4810A         5     A     
 COMPASS  *             PD             PRINT DENSITY IN LINES/INCH.                F4810A  F4810A         6     A     
 COMPASS  *             PD             8 LINES/INCH PRINT DENSITY.                 F4810A  F4810A         7     A     
 COMPASS  *             PD=X           X LINES/INCH WHERE X=6D OR X=8D.            F4810A  F4810A         8     A     
 COMPASS  *             PD=Z           IP.PD LINES/INCH WHERE Z.NE.6 AND Z.NE.8.   F4810A  F4810A         9     A     
 COMPASS  *             OMITTED        IP.PD LINES/INCH PRINT DENSITY              F4810A  F4810A        10     A     
 COMPASS  *                                                                        F4810A  F4810A        11     A     
 COMPASS  *             PS             PAGE SIZE IN LINES/PAGE.                    F4810A  F4810A        12     A     
 COMPASS  *             PS=X           X LINES/PAGE WHERE 4.LE.X.LE.99D.           F4810A  F4810A        13     A     
 COMPASS  *             PS=Z           IP.PS LINES/PAGE WHERE Z.LT.4 OR Z.GT.99D.  F4810A  F4810A        14     A     
 COMPASS  *             OMITTED        IP.PS LINES/PAGE IF PD NOT SPECIFIED.       F4810A  F4810A        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/28. 19.11.32.      PAGE 192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *             OMITTED        (PD*IP.PS)/IP.PD LINES/PAGE IF PD SPECIFIED F4810A  F4810A        16     A     
 COMPASS  *                                                                        F4810A  F4810A        17     A     
 COMPASS  *             S              SYSTEM TEXT NAME *SYSTEXT*.                         COMPASS       59          I
          -CMP30  
 COMPASS  *             S=0            NO SYSTEM TEXT.                                     COMPASS       60          I
          -CMP30  
 COMPASS  *             S=SNAME        SYSTEM TEXT NAME *SNAME*.                           COMPASS       61          I
          -CMP30  
 COMPASS  *             S              SYSTEXT FROM LIBRARY OVERLAY *SYSTEXT*.             CMP30         28     A     
 COMPASS  *             S=0            NO SYSTEXT FROM A LIBRARY.                          CMP30         29     A     
 COMPASS  *             S=OVL          SYSTEXT FROM LIBRARY OVERLAY *OVL*.                 CMP30         30     A     
 COMPASS  *             S=LIB/OVL      SYSTEXT FROM OVERLAY *OVL* IN LIBRARY *LIB*         CMP30         31     A     
 COMPASS  *                                                                                CMP30         32     A     
 COMPASS  *             W              USE *SPY* TO WATCH P-REGISTER WITH N=100B.          CMP30         33     A     
 COMPASS  *             W=N            USE *SPY* WITH BIN WIDTH *N* (20,40,100).           CMP30         34     A     
 COMPASS  *                                                                                COMPASS       62     A     
 COMPASS  *             X              XTEXT FILE NAME *OPL*.                              COMPASS       63     A     
 COMPASS  *             X=FNAME        XTEXT FROM FILE *FNAME*.                            COMPASS       64          I
          -CMP30  
 COMPASS  *             X=LFN          XTEXT FROM FILE *LFN*.                              CMP30         35     A     
 COMPASS  *                                                                                CMP30         36     A     
 COMPASS  *                                                                                CMP30         37     A     
 COMPASS  *         IF THE *L* AND *O* PARAMETERS SPECIFY THE SAME FILE, *O=0*             CMP30         38     A     
 COMPASS  *         IS ASSUMED.                                                            CMP30         39     A     
 COMPASS  *                                                                                CMP30         40     A     
 COMPASS  *         MULTIPLE *G* AND *S* PARAMETERS MAY BE USED TO SPECIFY A               CMP30         41     A     
 COMPASS  *         TOTAL OF UP TO SEVEN SYSTEM TEXTS.  THEY ARE LOADED IN THE             CMP30         42     A     
 COMPASS  *         ORDER IN WHICH THEY ARE NAMED ON THE CONTROL CARD, LEFT TO             CMP30         43     A     
 COMPASS  *         RIGHT.  IF A MACRO, MICRO, OR SYMBOL IS DEFINED MORE THAN              CMP30         44     A     
 COMPASS  *         ONCE, THE LAST DEFINITION HOLDS.                                       CMP30         45     A     
 COMPASS  *                                                                                CMP30         46     A     
 COMPASS  *         THE *X* PARAMETER APPLIES ONLY TO *XTEXT* PSEUDO INSTRUCTIONS          CMP30         47     A     
 COMPASS  *         IN WHICH THE LOCATION FIELD (FILE NAME) IS EMPTY.                      CMP30         48     A     
 COMPASS  *                                                                                CMP30         49     A     
 COMPASS  *         AFTER THE SEPARATOR FOLLOWING  *COMPASS*,  BLANKS IN THE               CMP30         50     A     
 COMPASS  *         CONTROL CARD ARE IGNORED.  A PARAMETER VALUE MAY BE ENCLOSED           CMP30         51     A     
 COMPASS  *         IN DOLLAR SIGNS.  WITHIN A $-DELIMITED STRING, ALL SPECIAL             CMP30         52     A     
 COMPASS  *         CHARACTERS ARE TREATED AS LETTERS, BLANKS ARE SIGNIFICANT,             CMP30         53     A     
 COMPASS  *         AND  $$  REPRESENTS A SINGLE DOLLAR SIGN.  THE CONTROL                 CMP30         54     A     
 COMPASS  *         STATEMENT MAY BE CONTINUED ONTO AS MANY CARDS AS NECESSARY,            CMP30         55     A     
 COMPASS  *         WITH COLUMN 80 OF EACH CARD FOLLOWED BY COLUMN 1 OF THE NEXT           CMP30         56     A     
 COMPASS  *         CARD, UNTIL A RIGHT PARENTHESIS OR PERIOD IS ENCOUNTERED.              CMP30         57     A     
 COMPASS   CONTROL  SPACE  4                                                               COMPASS       65     A     
 COMPASS  ***       NORMAL CONTROL CARD OPTIONS.                                           COMPASS       66     A     
 COMPASS  *                                                                                COMPASS       67     A     
 COMPASS  *                                                                                CMP20          3     A     
 COMPASS  *         A      NOT SELECTED.                                                   CMP20          4     A     
 COMPASS  *         B=LGO                                                                  COMPASS       68     A     
 COMPASS  *         D      NOT SELECTED.                                                   COMPASS       69     A     
 COMPASS  *         F=0                                                                    CMP15          5     A     
 COMPASS  *         G      NOT SELECTED.                                                   COMPASS       70          I
          -CMP8   
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         G=0                                                                    CMP8           2     A     
 COMPASS  *         LO=0                                                                   COMPASS       71          I
          -CMP19  
 COMPASS  *         I=INPUT                                                                COMPASS       72     A     
 COMPASS  *         L=OUTPUT                                                               COMPASS       73     A     
 COMPASS  *         LO=0                                                                   CMP19          2     A     
 COMPASS  *         ML     = JULIAN DATE (YYDDD).                                          CMP30         58     A     
 COMPASS  *         N      NOT SELECTED.                                                   COMPASS       74     A     
 COMPASS  *         O=OUTPUT                                                               COMPASS       75     A     
 COMPASS  *         P      NOT SELECTED.                                                   COMPASS       76     A     
 COMPASS  *         PC     = 30 BLANKS.                                                    CMP30         59     A     
 COMPASS  *         S=SYSTEXT                                                              COMPASS       77     A     
 COMPASS  *         W      NOT SELECTED.                                                   CMP30         60     A     
 COMPASS  *         X=OPL                                                                  COMPASS       78          I
          -CMP20  
 COMPASS  *         X=OLDPL                                                                CMP20          5     A     
 COMPASS            SPACE  4                                                               COMPASS       79          I
          -CMP30  
 COMPASS  *         LOW CORE LINKAGE CELLS.                                                COMPASS       80          I
          -CMP30  
 COMPASS                                                                                   COMPASS       81          I
          -CMP30  
 COMPASS                                                                                   COMPASS       82          I
          -CMP30  
 COMPASS   LOVERT   EQU    17B         TEMPORARY STORAGE FOR OVERLAY LOADING               COMPASS       83          I
          -CMP30  
 COMPASS   INPUT    EQU    30B                                                             COMPASS       84          I
          -CMP20    -CMP30  
 COMPASS   INBUF    EQU    41B         INPUT CARD BUFFER                                   COMPASS       85          I
          -CMP30  
 COMPASS   SYSTEXT  EQU    53B         SYSTEMS TEXT FILE NAME                              COMPASS       86          I
          -CMP30  
 COMPASS   ERRFLG   EQU    62B         ERROR FLAG (BIT 59 = DEBUG FLAG)                    COMPASS       87          I
          -CMP30  
 COMPASS   LDRCELL  EQU    67B         LOADER INTERLOCK CELL                               COMPASS       88          I
          -CMP30  
 COMPASS   LISTFG   EQU    70B         LIST FLAG IN LOW-ORDER BIT                          COMPASS       89          I
          -CMP30  
 COMPASS   BINARY   EQU    71B         BINARY FILE NAME                                    COMPASS       90          I
          -CMP30  
 COMPASS   PUNCH    EQU    72B         LGO FILE NAME                                       COMPASS       91          I
          -CMP30  
 COMPASS   BATCH    EQU    77B         BATCH CONTROL CELL                                  COMPASS       92          I
          -CMP30  
 COMPASS   PAGE     EQU    100B        PAGE NUMBER                                         COMPASS       93          I
          -CMP30  
 COMPASS   CONSTANT SPACE  4                                                               COMPASS       94          I
          -CMP30  
 COMPASS  ****      PROGRAM CONSTANTS.                                                     COMPASS       95          I
          -CMP30  
 COMPASS                                                                                   COMPASS       96          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS       97          I
          -CMP30  
 COMPASS   CONCAT   EQU    65B         CONCATENATION CHARACTER                             COMPASS       98          I
          -CMP30  
 COMPASS   MICMARK  EQU    64B         MICRO NAME ESCAPE CHARACTER                         COMPASS       99          I
          -CMP30  
 COMPASS   COMCOL   EQU    30          FIRST COLUMN OF COMMENTS FIELD                      COMPASS      100          I
          -CMP30  
 COMPASS   LIMRECUR MICRO  1,,*400*    LIMIT FOR RECURSION LEVEL                           COMPASS      101          I
          -CMP30  
 COMPASS   ORGOVER  EQU    3000B       OVERLAY ORIGIN                                      COMPASS      102          I
          -CMP30  
 COMPASS   IBUFL    EQU    1001B       INPUT BUFFER LENGTH                                 COMPASS      103          I
          -CMP30  
 COMPASS   EBUFL    EQU    1001B       ERROR LISTING BUFFER LENGTH                         COMPASS      104          I
          -CMP30  
 COMPASS   RBUFL    EQU    1001B       CROSS-REFERENCE BUFFER LENGTH                       COMPASS      105          I
          -CMP30  
 COMPASS   SBUFL    EQU    4000B       INTERMEDIATE BUFFER LENGTH                          COMPASS      106          I
          -CMP25    -CMP30  
 COMPASS   SBUFL    EQU    2001B       INTERMEDIATE BUFFER LENGTH                          CMP25          1          I
          -CMP30  
 COMPASS   DBUFL    EQU    1001B*DEBUG SNAPPER BUFFER LENGTH                               CMP14         10          I
          -CMP30  
 COMPASS   BBUFL    EQU    1001B       BINARY BUFFER LENGTH                                COMPASS      107          I
          -CMP30  
 COMPASS   PAGESIZ  EQU    LINP        NUMBER OF LINES PER PAGE                            COMPASS      108          I
          -CMP30  
 COMPASS   NCARDS   EQU    10          NUMBER OF CARDS PER STATEMENT                       COMPASS      109          I
          -CMP30  
 COMPASS   NLITS    EQU    100         LIT PSEUDO WORD COUNT                               COMPASS      110          I
          -CMP30  
 COMPASS   NSYMT    EQU    256         NOMINAL SYMTAB SIZE, MUST BE POWER 2                COMPASS      111          I
          -CMP30  
 COMPASS   NOPCT    EQU    128         BASE OP-CODE TABLE SIZE (POWER 2)                   COMPASS      112          I
          -CMP30  
 COMPASS   PARAMS   EJECT                                                                  CMP30         61     A     
 COMPASS  ****      INSTALLATION OPTIONS AND OTHER ASSEMBLY PARAMETERS.                    CMP30         62     A     
 COMPASS                                                                                   CP139CP      119     A     
 COMPASS                                                                                   CP139CP      120     A     
 COMPASS                                                                                   CP139CP      121     A     
 COMPASS  **        SUPPRESS CONTROL STATEMENT ARGUMENT CHECKING BY SYSTEM.                CP139CP      122     A     
 COMPASS                                                                                   CP139CP      123     A     
 COMPASS   ARG=     EQU    1                                                               CP139CP      124     A     
 COMPASS                                                                                   CMP30         63     A     
 COMPASS                                                                                   CMP30         64     A     
 COMPASS                                                                                   CMP30         65     A     
 COMPASS  **        MINIMUM I/O BUFFER LENGTH.                                             CMP30         66     A     
 COMPASS                                                                                   CMP30         67     A     
 COMPASS   BUFL     MICRO  1,, 1001B                                                       CMP30         68     A     
 COMPASS                                                                                   CMP30         69     A     
 COMPASS                                                                                   CMP30         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/28. 19.11.32.      PAGE 195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30         71     A     
 COMPASS  **        DEFAULT COMMENT COLUMN NUMBER.                                         CMP30         72     A     
 COMPASS                                                                                   CMP30         73     A     
 COMPASS   COMCOL   EQU    30                                                              CMP30         74     A     
 COMPASS                                                                                   CMP30         75     A     
 COMPASS                                                                                   CMP30         76     A     
 COMPASS                                                                                   CMP30         77     A     
 COMPASS  **        CONCATENATION MARK (DISPLAY CODE).                                     CMP30         78     A     
 COMPASS                                                                                   CMP30         79     A     
 COMPASS   CONCAT   EQU    65B         PRINT 1 RIGHT-ARROW OR PRINT 2 UNDERSCORE           CMP30         80     A     
 COMPASS                                                                                   CMP30         81          I
          -CPS028 
 COMPASS                                                                                   CMP30         82          I
          -CPS028 
 COMPASS                                                                                   CMP30         83          I
          -CPS028 
 COMPASS  **        COMPILER/COMPASS INTERFACE CONTROL.                                    CMP30         84          I
          -CPS028 
 COMPASS  *         CP#IR = 0 TO SELECT THE NEW INTERFACE.                                 CMP30         85          I
          -CPS028 
 COMPASS  *               = 1 TO SELECT THE OLD INTERFACE.                                 CMP30         86          I
          -CPS028 
 COMPASS  *         SELECTS COMMUNICATION AREA TO BE USED WHEN COMPASS                     CMP30         87          I
          -CPS028 
 COMPASS  *         IS CALLED BY A COMPILER.                                               CMP30         88          I
          -CPS028 
 COMPASS                                                                                   CMP30         89          I
          -CPS028 
 COMPASS   CP#IR    EQU    0                                                               CMP30         90          I
          -CPS028 
 COMPASS                                                                                   CMP30         91     A     
 COMPASS                                                                                   CMP30         92     A     
 COMPASS                                                                                   CMP30         93     A     
 COMPASS  **        SELECTION OF RECORD MANAGER / DATA MANAGER  VERSUS *CIO*.              CMP30         94          I
          -CPS028 
 COMPASS  **        SELECTION OF ASSEMBLY-TIME I/O SYSTEM.                        S028 126 CPS028        87     A     
 COMPASS  *         CP#RM = 0 TO ISSUE *CIO* CALLS DIRECTLY.                               CMP30         95     A     
 COMPASS  *               = 1 TO USE RM/DM FOR INPUT/OUTPUT.                               CMP30         96          I
          -CPS028 
 COMPASS  *               = 6 TO USE 6000 RECORD MANGLER.                         S028 128 CPS028        88          I
          -CPSA134
 COMPASS  *               = 7 TO USE 7000 RECORD MANGLER.                         S028 129 CPS028        89     A     
 COMPASS                                                                                   CMP30         97     A     
 COMPASS   CP#RM    EQU    0           USE CIO FOR ALL I/O, UNTIL RM WORKS                 CMP30         98          I
          -CPS028 
 COMPASS            IFC    LT, "MODEL" 75                                         S028 131 CPS028        90          I
          -F7540CP
 COMPASS            ENV    (2,3),X                                                         F7540CP       64          I
          -CPSA134
 COMPASS            IF     -DEF,SCOPE2                                                     CPSA134       44     A     
 COMPASS   CP#RM    EQU    0           USE CIO ON 6000 AND CYBER 70/ MODELS 71-74 S028 132 CPS028        91     A     
 COMPASS            ELSE                                                          S028 133 CPS028        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/28. 19.11.32.      PAGE 196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IFC    LT,*"OS.VER"*2*,2                                      S028 134 CPS028        93          I
          -F7540CP
 COMPASS   CP#RM    EQU    0           USE CIO ON 7600 SCOPE 1                    S028 135 CPS028        94          I
          -F7540CP
 COMPASS            SKIP   1                                                      S028 136 CPS028        95          I
          -F7540CP
 COMPASS   CP#RM    EQU    7           USE 7RM ON 7000 SCOPE 2                    S028 137 CPS028        96     A     
 COMPASS            ENDIF                                                         S028 138 CPS028        97     A     
 COMPASS                                                                                   CMP30         99     A     
 COMPASS                                                                                   CMP30        100     A     
 COMPASS                                                                                   CMP30        101     A     
 COMPASS  **        DEBUGGING FACILITY CONTROL.                                            CMP30        102     A     
 COMPASS  *         DEBUG = 0 TO OMIT DEBUGGING FACILITY.                                  CMP30        103     A     
 COMPASS  *               = 1 TO INCLUDE DEBUGGING FACILITY.                               CMP30        104     A     
 COMPASS                                                                                   CMP30        105     A     
 COMPASS   DEBUG    EQU    0                                                               CMP30        106     A     
 COMPASS                                                                                   CP139CP      125     A     
 COMPASS                                                                                   CP139CP      126     A     
 COMPASS                                                                                   CP139CP      127     A     
 COMPASS  **        FL INCREMENT BY WHICH COMPASS WILL INCREASE FL ON EACH MEMORY  F4810B  F4810B         5     A     
 COMPASS  *         REQUEST.                                                       F4810B  F4810B         6     A     
 COMPASS                                                                           F4810B  F4810B         7     A     
 COMPASS   FLINC    CEQU   2000B       NUMBER OF WORDS PER CENTRAL MEMORY REQUEST  F4810B  F4810B         8          I
          -CPSA125
 COMPASS   FLINC    CEQU   4000B       NUMBER OF WORDS PER CENTRAL MEMORY REQUEST          CPSA125        5     A     
 COMPASS                                                                           F4810B  F4810B         9     A     
 COMPASS                                                                           F4810B  F4810B        10     A     
 COMPASS                                                                           F4810B  F4810B        11     A     
 COMPASS  **        INSTALLATION PARAMETERS FOR PRINT FORMATS.                             CP139CP      128     A     
 COMPASS                                                                                   CP139CP      129     A     
 COMPASS            IF     -DEF,IP.PD,1                                                    CPSA214        6     A     
 COMPASS   IP.PD    CEQU   6           PRINT DENSITY - 3, 4, 6, OR 8 LINES / INCH          CP139CP      130     A     
 COMPASS            IF     -DEF,IP.PS,1                                                    CPSA214        7     A     
 COMPASS   IP.PS    CEQU   IP.PD*10    PAGE SIZE - NUMBER OF LINES PER PAGE                CP139CP      131     A     
 COMPASS            IF     -DEF,IP.PW,1                                                    CPSA214        8     A     
 COMPASS   IP.PW    CEQU   136         PAGE WIDTH - NUMBER OF CHARACTERS PER LINE          CP139CP      132     A     
 COMPASS                                                                                   CMP30        107          I
          -CPS028 
 COMPASS                                                                                   CMP30        108          I
          -CPS028 
 COMPASS                                                                                   CMP30        109          I
          -CPS028 
 COMPASS  **        INTEGER MULTIPLY INSTRUCTION OPTION.                                   CMP30        110          I
          -CPS028 
 COMPASS  *         INTMUL = 0 IF INTEGER MULTIPLY HARDWARE MOD NOT INSTALLED.             CMP30        111          I
          -CPS028 
 COMPASS  *                = 1 IF INTEGER MULTIPLY INSTRUCTION CAN BE USED.                CMP30        112          I
          -CPS028 
 COMPASS                                                                                   CMP30        113          I
          -CPS028 
 COMPASS   INTMUL   EQU    0                                                               CMP30        114          I
          -CPS028 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30        115          I
          -CPS028 
 COMPASS                                                                                   CMP30        116          I
          -CPS028 
 COMPASS                                                                                   CMP30        117          I
          -CPS028 
 COMPASS  **        LIBRARY NAME FOR COMPASS LEVEL (1,0) OVERLAY.                          CMP30        118          I
          -CPS028 
 COMPASS                                                                                   CMP30        119          I
          -CPS028 
 COMPASS   LIBRARY  MICRO              SEARCH GLOBAL LIBRARY SET                           CMP30        120          I
          -CPS028 
 COMPASS                                                                                   CMP30        121     A     
 COMPASS                                                                                   CMP30        122     A     
 COMPASS                                                                                   CMP30        123     A     
 COMPASS  **        MAXIMUM RECURSION DEPTH.                                               CMP30        124     A     
 COMPASS                                                                                   CMP30        125     A     
 COMPASS   LIMRECUR MICRO  1,, 400                                                         CMP30        126     A     
 COMPASS                                                                                   CMP30        127     A     
 COMPASS                                                                                   CMP30        128     A     
 COMPASS                                                                                   CMP30        129     A     
 COMPASS  **        RECORD MANAGER LISTING CONTROL.                                        CMP30        130     A     
 COMPASS  *         LISTRM = * * TO LIST RECORD MANAGER ROUTINES.                          CMP30        131     A     
 COMPASS  *                = *-* TO SUPPRESS LISTING OF RM CODE.                           CMP30        132     A     
 COMPASS                                                                                   CMP30        133     A     
 COMPASS   LISTRM   MICRO  1,, -                                                           CMP30        134     A     
 COMPASS                                                                          S028 142 CPS028        98     A     
 COMPASS                                                                          S028 143 CPS028        99     A     
 COMPASS                                                                          S028 144 CPS028       100     A     
 COMPASS  **        MAXIMUM ECS/LCM FIELD LENGTH FOR COMPASS.                     S028 145 CPS028       101     A     
 COMPASS                                                                          S028 146 CPS028       102     A     
 COMPASS   MFLL     EQU    200000B     = 65536 DECIMAL                            S028 147 CPS028       103     A     
 COMPASS                                                                                   CP139CP      133     A     
 COMPASS                                                                                   CP139CP      134     A     
 COMPASS                                                                                   CP139CP      135     A     
 COMPASS  **        MINIMUM FIELD LENGTH FOR COMPASS.                                      CP139CP      136     A     
 COMPASS                                                                                   CP139CP      137     A     
 COMPASS   MFL=     EQU    250000B                                                         CP139CP      138          I
          -F4810B 
 COMPASS   MFL=     EQU    210000B                                                 F4810B  F4810B        12          I
          -CPSA125
 COMPASS   MFL=     EQU    10000B                                                          CPSA125        6          I
          -CPSA241
 COMPASS  *MFL=     EQU    MIN.FL      DEFINED AT END OF PROGRAM.                          CPSA241        5     A     
 COMPASS                                                                                   CMP30        135     A     
 COMPASS                                                                                   CMP30        136     A     
 COMPASS                                                                                   CMP30        137     A     
 COMPASS  **        MICRO SUBSTITUTION MARK (DISPLAY CODE).                                CMP30        138     A     
 COMPASS                                                                                   CMP30        139     A     
 COMPASS   MICMARK  EQU    64B         PRINT 1 NOT-EQUAL OR PRINT 2 DOUBLE-QUOTE           CMP30        140     A     
 COMPASS                                                                                   CMP30        141          I
          -CPS028 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30        142          I
          -CPS028 
 COMPASS                                                                                   CMP30        143          I
          -CPS028 
 COMPASS  **        CYBER 70/ MODEL ON WHICH COMPASS RUNS.                                 CMP30        144          I
          -CPS028 
 COMPASS  *         MODEL = *72* FOR 6200, 6300, OR CYBER 70/ MODEL 72.                    CMP30        145          I
          -CPS028 
 COMPASS  *               = *73* FOR 6400, 6500, OR CYBER 70/ MODEL 73.                    CMP30        146          I
          -CPS028 
 COMPASS  *               = *74* FOR 6600, 6700, OR CYBER 70/ MODEL 74.                    CMP30        147          I
          -CPS028 
 COMPASS  *               = *76* FOR 7600 OR CYBER 70/ MODEL 76.                           CMP30        148          I
          -CPS028 
 COMPASS  *         RECORD MANAGER INTERFACE IS ASSEMBLED IF "MODEL" < 75.                 CMP30        149          I
          -CPS028 
 COMPASS  *         DATA MANAGER INTERFACE IS ASSEMBLED WHEN "MODEL" \ 75.                 CMP30        150          I
          -CPS028 
 COMPASS                                                                                   CMP30        151          I
          -CPS028 
 COMPASS   MODEL    MICRO  1,, 74                                                          CMP30        152          I
          -CPS028 
 COMPASS                                                                                   CMP30        153     A     
 COMPASS                                                                                   CMP30        154     A     
 COMPASS                                                                                   CMP30        155     A     
 COMPASS  **        FL AT WHICH COMPASS WILL DUMP TABLES TO FILES.                 F4810B  F4810B        13     A     
 COMPASS                                                                           F4810B  F4810B        14     A     
 COMPASS   MIDFL    CEQU   60000B      FL TO DUMP TABLES TO FILES                  F4810B  F4810B        15     A     
 COMPASS                                                                           F4810B  F4810B        16     A     
 COMPASS                                                                           F4810B  F4810B        17     A     
 COMPASS                                                                           F4810B  F4810B        18     A     
 COMPASS  **        MAXIMUM NUMBER OF ENTRIES IN PUSH-DOWN STACKS.                         CMP30        156     A     
 COMPASS  *         APPLIES TO THE BASE, CODE, LIST, QUAL, AND USE STACKS.                 CMP30        157     A     
 COMPASS                                                                                   CMP30        158     A     
 COMPASS   MSTACK   EQU    50                                                              CMP30        159     A     
 COMPASS                                                                                   CMP30        160     A     
 COMPASS                                                                                   CMP30        161     A     
 COMPASS                                                                                   CMP30        162     A     
 COMPASS  **        MAXIMUM NUMBER OF CARDS PER STATEMENT - MUST NOT EXCEED 15.            CMP30        163     A     
 COMPASS                                                                                   CMP30        164     A     
 COMPASS   NCARDS   EQU    10                                                              CMP30        165     A     
 COMPASS                                                                                   CMP30        166     A     
 COMPASS                                                                                   CMP30        167     A     
 COMPASS                                                                                   CMP30        168     A     
 COMPASS  **        MAXIMUM NUMBER OF VALUE WORDS IN A LITERAL.                            CMP30        169     A     
 COMPASS                                                                                   CMP30        170     A     
 COMPASS   NLITS    EQU    100                                                             CMP30        171     A     
 COMPASS                                                                          S028 150 CPS028       104     A     
 COMPASS                                                                          S028 151 CPS028       105     A     
 COMPASS                                                                          S028 152 CPS028       106     A     
 COMPASS  **        NOMINAL FIELD LENGTH FOR *REDUCE* MODE UNDER SCOPE 2.         S028 153 CPS028       107     A     
 COMPASS                                                                          S028 154 CPS028       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/28. 19.11.32.      PAGE 199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   NOM.FL   EQU    60000B                                                 S028 155 CPS028       109     A     
 COMPASS                                                                                   CMP30        172     A     
 COMPASS                                                                                   CMP30        173     A     
 COMPASS                                                                                   CMP30        174     A     
 COMPASS  **        BASE NUMBER OF OPCODE TABLE ENTRIES - MUST BE A POWER OF 2.            CMP30        175     A     
 COMPASS                                                                                   CMP30        176     A     
 COMPASS   NOPCT    EQU    128                                                             CMP30        177     A     
 COMPASS                                                                                   CMP30        178     A     
 COMPASS                                                                                   CMP30        179     A     
 COMPASS                                                                                   CMP30        180     A     
 COMPASS  **        BASE NUMBER OF SYMBOL TABLE ENTRIES - MUST BE A POWER OF 2.            CMP30        181     A     
 COMPASS                                                                                   CMP30        182     A     
 COMPASS   NSYMT    EQU    256                                                             CMP30        183     A     
 COMPASS                                                                                   CMP30        184          I
          -CPS028 
 COMPASS                                                                                   CMP30        185          I
          -CPS028 
 COMPASS                                                                                   CMP30        186          I
          -CPS028 
 COMPASS  **        OPERATING SYSTEM NAME - UP TO 6 CHARACTERS.                            CMP30        187          I
          -CPS028 
 COMPASS  *         PLACED IN WORD 4 OF EACH PRFX TABLE IN BINARY OUTPUT.                  CMP30        188          I
          -CPS028 
 COMPASS                                                                                   CMP30        189          I
          -CPS028 
 COMPASS   OSNAME   MICRO  1,, SCOPE   STANDARD OPERATING SYSTEM                           CMP30        190          I
          -CPS028 
 COMPASS                                                                                   CMP30        191          I
          -CPS028 
 COMPASS                                                                                   CMP30        192          I
          -CPS028 
 COMPASS                                                                                   CMP30        193          I
          -CPS028 
 COMPASS  **        OPERATING SYSTEM VERSION - UP TO 4 CHARACTERS.                         CMP30        194          I
          -CPS028 
 COMPASS  *         PLACED IN WORD 4 OF EACH PRFX TABLE IN BINARY OUTPUT.                  CMP30        195          I
          -CPS028 
 COMPASS                                                                                   CMP30        196          I
          -CPS028 
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30        197          I
          -CPS028 
 COMPASS   OSVER    MICRO  1,, 3.4                                                         CMP30        198          I
          -CPS028 
 COMPASS            ELSE   1                                                               CMP30        199          I
          -CPS028 
 COMPASS   OSVER    MICRO  1,, 2.0                                                         CMP30        200          I
          -CPS028 
 COMPASS                                                                                   CMP30        201     A     
 COMPASS                                                                                   CMP30        202     A     
 COMPASS                                                                                   CMP30        203     A     
 COMPASS  **        OVERLAY CONTROL.                                                       CMP30        204     A     
 COMPASS  *         OVERLAY = 0 FOR ONE (0,0) OVERLAY.                                     CMP30        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/28. 19.11.32.      PAGE 200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                 = 1 FOR TWO OVERLAYS, (0,0) AND (1,0).                         CMP30        206     A     
 COMPASS                                                                                   CMP30        207     A     
 COMPASS   OVERLAY  SET    1                                                               CMP30        208     A     
 COMPASS   OVERLAY  MIN    OVERLAY,1-DEBUG   FORCE OVERLAY = 0 IF DEBUG = 1                CMP30        209     A     
 COMPASS                                                                                   CMP30        210     A     
 COMPASS                                                                                   CMP30        211     A     
 COMPASS                                                                                   CMP30        212     A     
 COMPASS  **        MAXIMUM NUMBER OF LINES PER LISTING PAGE.                              CMP30        213          I
          -F4810A 
 COMPASS                                                                                   CMP30        214          I
          -F4810A 
 COMPASS   PAGESIZ  EQU    60          ALLOW 3 LINES AT TOP AND BOTTOM                     CMP30        215          I
          -F4810A 
 COMPASS                                                                                   CMP30        216          I
          -F4810A 
 COMPASS                                                                                   CMP30        217          I
          -F4810A 
 COMPASS                                                                                   CMP30        218          I
          -F4810A 
 COMPASS  **        PROGRAM LIBRARY FILE NAME FOR RECORD MANAGER.                          CMP30        219     A     
 COMPASS  *         USED IN *XTEXT* CARDS THAT OBTAIN RECORD MANAGER CODE                  CMP30        220     A     
 COMPASS  *         MODULES FROM ITS PROGRAM LIBRARY FILE WHEN COMPASS                     CMP30        221     A     
 COMPASS  *         IS ASSEMBLED WITH CP#RM = 1 AND "MODEL" < 75.                          CMP30        222     A     
 COMPASS                                                                                   CMP30        223     A     
 COMPASS   #PLRM#   MICRO  1,8,*        *                                                  CMP30        224     A     
 COMPASS                                                                                   CMP30        225     A     
 COMPASS                                                                                   CMP30        226     A     
 COMPASS                                                                                   CMP30        227     A     
 COMPASS  **        TIMING ANALYSIS OPTION.                                                CMP30        228     A     
 COMPASS  *         SPY = 0 TO OMIT TIMING ANALYSIS.                                       CMP30        229     A     
 COMPASS  *             = 1 TO CALL *SPY* FOR TIMING ANALYSIS.                             CMP30        230     A     
 COMPASS                                                                                   CMP30        231     A     
 COMPASS   SPY      EQU    0                                                               CMP30        232     A     
 COMPASS                                                                                   CMP30        233          I
          -CPS028 
 COMPASS                                                                                   CMP30        234          I
          -CPS028 
 COMPASS                                                                                   CMP30        235          I
          -CPS028 
 COMPASS  **        CPU TIME DAYFILE MESSAGE OPTION.                                       CMP30        236          I
          -CPS028 
 COMPASS  *         TIMEMSG = 0 FOR NO DAYFILE MESSAGE.                                    CMP30        237          I
          -CPS028 
 COMPASS  *                 = 1 FOR DAYFILE MESSAGE GIVING TOTAL CPU TIME.                 CMP30        238          I
          -CPS028 
 COMPASS                                                                                   CMP30        239          I
          -CPS028 
 COMPASS   TIMEMSG  EQU    1                                                               CMP30        240          I
          -CPS028 
 COMPASS                                                                                   CPS010         3     A     
 COMPASS                                                                                   CPS010         4     A     
 COMPASS                                                                                   CPS010         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/28. 19.11.32.      PAGE 201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        INITIAL SPACE REQUIRED BY COMPASS TO LOAD TEXTS.               F4810B  F4810B        19     A     
 COMPASS                                                                           F4810B  F4810B        20     A     
 COMPASS   TXTFL    CEQU   20000B                                                  F4810B  F4810B        21     A     
 COMPASS                                                                           F4810B  F4810B        22     A     
 COMPASS                                                                           F4810B  F4810B        23     A     
 COMPASS  **        *XREF* DEFAULT VALUE.                                                  CPS010         6     A     
 COMPASS  *         XRDV = -1  FOR PAGE/LINE (P) FORMAT.                                   CPS010         7     A     
 COMPASS  *              =  0  FOR ADDRESS (A) FORMAT.                                     CPS010         8     A     
 COMPASS  *              = +1  FOR BOTH (B) FORMAT.                                        CPS010         9     A     
 COMPASS                                                                                   CPS010        10     A     
 COMPASS   XRDV     EQU    -1                                                              CPS010        11     A     
 COMPASS                                                                                   CMP30        241     A     
 COMPASS                                                                                   CMP30        242     A     
 COMPASS                                                                                   CMP30        243     A     
 COMPASS  **        ASSEMBLER VERSION AND MODIFICATION LEVEL.                              CMP30        244     A     
 COMPASS  *         PLACED IN HEADER LINE OF EACH LISTING PAGE AND IN                      CMP30        245     A     
 COMPASS  *         WORDS 5-6 OF EACH PRFX TABLE IN BINARY OUTPUT.                         CMP30        246     A     
 COMPASS                                                                                   CP096A        27     A     
 COMPASS   VERSION  MICRO  1,3,*3.2*                                                       CP096A        28          I
          -CP147  
 COMPASS   VERSION  MICRO  1,3,*3.3*                                                       CP147          4          I
          -CPSVER34 
 COMPASS   VERSION  MICRO  1,3,*3.4*                                                       CPSVER34       4          I
          -FEAT184N 
 COMPASS   VERSION  MICRO  1,3,*3.5*                                               FEAT184 FEAT184N       6          I
          -F4810B 
 COMPASS   VERSION  MICRO  1,3,*3.6*                                               F4810B  F4810B        24          I
          -PSRLEVEL 
 COMPASS  VERSION   MICRO  1,3,*3.7*                                                       PSRLEVEL       1     A     
 COMPASS   PSRLEVEL MICRO  1,3,*871*                                                       PSRLEVEL       2     A     
 COMPASS                                                                                   CMP30        247     A     
 COMPASS   VERSION  MICRO  1,7,*3."MODLEVEL"     *                                         CMP30        248          I
          -CPS028 
 COMPASS            IFC    EQ,*"MODLEVEL"*"JDATE"*,2                              S028 159 CPS028       110          I
          -CPSA098
 COMPASS            IFC    -EQ,*"MODLEVEL"*"JDATE"*,1                              CPSA098 CPSA098        6     A     
 COMPASS   PSRLEVEL MICRO  1,5,*"MODLEVEL"*                                        CPSA098 CPSA098        7     A     
 COMPASS  PVERSION  MICRO  1,6,*"VERSION""PSRLEVEL"*                                       CPS161         4          I
          -CPSA098
 COMPASS   PVERSION MICRO  1,8,*"VERSION""PSRLEVEL"*                               CPSA098 CPSA098        8     A     
 COMPASS   VERSION  MICRO  1,7,*3."JDATE"*   NO MOD LEVEL, USE JULIAN DATE        S028 160 CPS028       111          I
          -CP096A 
 COMPASS   VERSION  MICRO  1,7,*"VERSION"-"PSRLEVEL"*       NO ML= PARAMETER               CP096A        29          I
          -CPSA098
 COMPASS   VERSION  MICRO  1,9,*"VERSION"-"PSRLEVEL"*                              CPSA098 CPSA098        9     A     
 COMPASS            SKIP   1                                                      S028 161 CPS028       112          I
          -CPSA098
 COMPASS  PVERSION  MICRO  1,6,*"VERSION""MODLEVEL"*                                       CPS161         5          I
          -CPSA098
 COMPASS   VERSION  MICRO  1,7,*3.0-"MODLEVEL"*                                   S028 162 CPS028       113          I
          -CP096A 
 COMPASS   VERSION  MICRO  1,7,*"VERSION"-"MODLEVEL"*                                      CP096A        30          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA098
 COMPASS                                                                                   CMP30        249     A     
 COMPASS                                                                                   CMP30        250     A     
 COMPASS                                                                                   CMP30        251     A     
 COMPASS  **        COMMENT AND TITLE CARDS.                                               CMP30        252     A     
 COMPASS                                                                                   CMP30        253     A     
 COMPASS            COMMENT   CYBER 70/ MODEL "MODEL"                                      CMP30        254     A     
 COMPASS            COMMENT   COMPREHENSIVE ASSEMBLER PROGRAM VERSION "VERSION".           CMP30        255     A     
 COMPASS            TITLE  COMPASS "VERSION" - CYBER 70/ COMPREHENSIVE ASSEMBLER.          CMP30        256     A     
 COMPASS                                                                                   CMP30        257     A     
 COMPASS                                                                                   CMP30        258     A     
 COMPASS                                                                                   CMP30        259     A     
 COMPASS  **        DEFINITIONS USED BY COMPILER/COMPASS COMMON DECK.                      CMP30        260     A     
 COMPASS                                                                                   CMP30        261     A     
 COMPASS   CP.ABORT MICRO  1,, 0       DEFAULT IS NO ABORT ON ASSEMBLY ERRORS              CMP30        262     A     
 COMPASS   CP.BLF   MICRO  1,, 0       DEFAULT VALUE OF *BL* PARAMETER                     CP139CP      139     A     
 COMPASS   CP.F=    MICRO  1,, 0       DEFAULT VALUE OF *F* PARAMETER                      CMP30        263     A     
 COMPASS   CP.LISTF MICRO  1,, 1       DEFAULT IS DO WRITE LONG LISTING                    CMP30        264     A     
 COMPASS   CP.PAGE  MICRO  1,, 1S59    DEFAULT IS NO PAGE NUMBER PROPAGATION               CMP30        265     A     
 COMPASS                                                                                   CMP30        266     A     
 COMPASS                                                                                   CMP30        267     A     
 COMPASS                                                                                   CMP30        268     A     
 COMPASS  ****                                                                             COMPASS      113     A     
 COMPASS   LOG2     SPACE  4                                                               COMPASS      114     A     
 COMPASS  **        LOG2 - LOG TO THE BASE 2 MACRO.                                        COMPASS      115     A     
 COMPASS  * SYM     LOG2   VAL                                                             COMPASS      116     A     
 COMPASS  *         ENTRY  (VAL) = ARGUMENT.                                               COMPASS      117     A     
 COMPASS  *         EXIT   (SYM) = LOG(2) OF ARGUMENT.                                     COMPASS      118     A     
 COMPASS                                                                                   COMPASS      119     A     
 COMPASS                                                                                   COMPASS      120     A     
 COMPASS            MACRO  LOG2,SYM,VAL                                                    COMPASS      121     A     
 COMPASS            IFLE   VAL,1,1                                                         COMPASS      122     A     
 COMPASS   SYM      SET    0                                                               COMPASS      123     A     
 COMPASS            IFGE   VAL,2,2                                                         COMPASS      124     A     
 COMPASS   SYM      LOG2   VAL/2                                                           COMPASS      125     A     
 COMPASS   SYM      SET    SYM+1                                                           COMPASS      126     A     
 COMPASS            ENDM                                                                   COMPASS      127     A     
 COMPASS                                                                                   COMPASS      128     A     
 COMPASS                                                                                   COMPASS      129     A     
 COMPASS   TLUOPSHF LOG2   NOPCT       LOGARITHM OF NOPCT                                  COMPASS      130     A     
 COMPASS   SHIFTQ   LOG2   NSYMT       LOGARITHM OF NSYMT                                  COMPASS      131     A     
 COMPASS   FET      TITLE  MACRO DEFINITIONS.                                              COMPASS      132     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30        269     A     
 COMPASS   FET      SPACE  4                                                               CMP30        270     A     
 COMPASS  **        FET - FILE ENVIRONMENT TABLE MACRO.                                    COMPASS      133     A     
 COMPASS  *FNAME    FET    BUF,BUFL,STATUS,RANDOM                                          COMPASS      134          I
          -CMP30  
 COMPASS  *         FET    FNAME,BUF,BUFL,STATUS,RANDOM                                    CMP30        271     A     
 COMPASS  *         ENTRY  (FNAME) = FILE NAME.                                            COMPASS      135     A     
 COMPASS  *                (BUF) = FIRST WORD ADDRESS OF BUFFER.                           COMPASS      136     A     
 COMPASS  *                (BUFL) = LENGTH OF BUFFER.                                      COMPASS      137     A     
 COMPASS  *                (RANDOM) = RANDOM FILE INDICATION.                              COMPASS      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/28. 19.11.32.      PAGE 203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (STATUS) = BUFFER STATUS.                                       COMPASS      139     A     
 COMPASS                                                                                   COMPASS      140     A     
 COMPASS                                                                                   COMPASS      141     A     
 COMPASS            MACRO  FET,FNAME,BUF,BUFL,STATUS,RANDOM                                COMPASS      142          I
          -CMP30  
 COMPASS   FET      MACRO  FNAME,BUF,BUFL,STATUS,RANDOM                                    CMP30        272     A     
 COMPASS            CON    0L;A+STATUS                                                     COMPASS      143     A     
 COMPASS            VFD    24/RANDOM,18/3,18/BUF                                           COMPASS      144     A     
 COMPASS            CON    BUF                                                             COMPASS      145     A     
 COMPASS            CON    BUF                                                             COMPASS      146     A     
 COMPASS            CON    BUF+BUFL                                                        COMPASS      147     A     
 COMPASS            BSSZ   3                                                               COMPASS      148     A     
 COMPASS            ENDM                                                                   COMPASS      149     A     
 COMPASS                                                                                   CMP30        273     A     
 COMPASS                                                                                   CMP30        274     A     
 COMPASS  **        EQUIVALENCED I/O MACROS.                                               CMP30        275     A     
 COMPASS                                                                                   CMP30        276     A     
 COMPASS                                                                                   CMP30        277     A     
 COMPASS   CHECK    OPSYN  RECALL                                                          CMP30        278     A     
 COMPASS   REWINDM  OPSYN  REWIND                                                          CMP30        279     A     
 COMPASS   WEOR     OPSYN  WRITER                                                          CMP30        280     A     
 COMPASS                                                                                   CMP30        281     A     
 COMPASS                                                                                   CMP30        282     A     
 COMPASS   RM       ENDIF                                                                  CMP30        283     A     
 COMPASS   JOBMSG   SPACE  4                                                               CMP20          6     A     
 COMPASS  **        JOBMSG - SEND MESSAGE TO JOB DAYFILE AND B-DISPLAY.                    CMP20          7     A     
 COMPASS  *         JOBMSG M,L                                                             CMP20          8     A     
 COMPASS  *         ENTRY  (M) = FIRST WORD ADDRESS OF MESSAGE.                            CMP20          9     A     
 COMPASS  *                (L) = NONBLANK FOR AUTORECALL.                                  CMP20         10     A     
 COMPASS                                                                                   CMP20         11     A     
 COMPASS                                                                                   CMP20         12     A     
 COMPASS   JOBMSG   MACRO  M,L                                                             CMP20         13     A     
 COMPASS            SX6    B1                                                              CMP20         14          I
          -CMP029 
 COMPASS            LX6    54                                                              CMP20         15          I
          -CMP029 
 COMPASS            IFC    NE,*L**,2                                                       CMP20         16          I
          -CMP029 
 COMPASS            SX1    200003B                                                         CMP20         17          I
          -CMP029 
 COMPASS            SA1    JMF                                                             CMP029         1          I
          -CMP30  
 COMPASS            IFC    NE,*L**,3                                                       CMP029         2          I
          -CMP30  
 COMPASS            SX6    200000B                                                         CMP029         3          I
          -CMP30  
 COMPASS            BX6    X6+X1                                                           CMP20         18          I
          -CMP30  
 COMPASS            ELSE   1                                                               CMP029         4          I
          -CMP30  
 COMPASS            BX6    X1                                                              CMP029         5          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            R=     X1,M                                                            CMP20         19          I
          -CMP30  
 COMPASS            RJ     =XMSG=                                                          CMP20         20          I
          -CMP30  
 COMPASS            IFC    LT, "MODEL" 75                                                  CMP30        284          I
          -CPS028 
 COMPASS            MESSAGE (M),LOCAL,L                                                    CMP30        285          I
          -CPS028 
 COMPASS            ELSE                                                                   CMP30        286          I
          -CPS028 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30        287          I
          -CPS028 
 COMPASS            MESSAGE (M),3,L                                                        CMP30        288          I
          -CPS028 
 COMPASS   RM       ELSE                                                                   CMP30        289          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,7                                                S028 164 CPS028       114     A     
 COMPASS            MESSAGE (M),,L                                                         CMP30        290     A     
 COMPASS            ELSE                                                          S028 166 CPS028       115     A     
 COMPASS            MESSAGE (M),LOCAL,L                                           S028 167 CPS028       116     A     
 COMPASS            ENDIF                                                                  CMP30        291     A     
 COMPASS            ENDM                                                                   CMP20         21     A     
 COMPASS                                                                          S028 169 CPS028       117     A     
 COMPASS                                                                          S028 170 CPS028       118     A     
 COMPASS   LOCAL    EQU    3           LOCAL DAYFILE FLAG FOR KRONOS AND SCOPE 1  S028 171 CPS028       119     A     
 COMPASS   MANAGE   SPACE  4                                                               COMPASS      150     A     
 COMPASS  **        MANAGE - MANAGE TABLE MACRO.                                           COMPASS      151     A     
 COMPASS  *         MANAGE TABNAM,INCR                                                     COMPASS      152     A     
 COMPASS  *         ENTRY  (TABNAM) = TABLE NAME.                                          COMPASS      153     A     
 COMPASS  *                (INCR) = TABLE LENGTH INCREMENT.                                COMPASS      154     A     
 COMPASS                                                                                   COMPASS      155     A     
 COMPASS                                                                                   COMPASS      156     A     
 COMPASS   MANAGE   MACRO  TABNAM,INCR                                                     COMPASS      157     A     
 COMPASS            R=     X1,INCR                                                         COMPASS      158     A     
 COMPASS            R=     A0,TABNAM                                                       COMPASS      159     A     
 COMPASS            RJ     ALC                                                             COMPASS      160     A     
 COMPASS            ENDM                                                                   COMPASS      161     A     
 COMPASS   TABLE    SPACE  4                                                               COMPASS      162     A     
 COMPASS  **        TABLE - CREATE MANAGED TABLE.                                          COMPASS      163     A     
 COMPASS  *         TABLE  TNAM,EQIV                                                       COMPASS      164     A     
 COMPASS  *         ENTRY  (TNAM) = TABLE NAME.                                            COMPASS      165     A     
 COMPASS  *                (EQIV) = EQUIVALENCED TABLE NAME.                               COMPASS      166     A     
 COMPASS                                                                                   COMPASS      167     A     
 COMPASS                                                                                   COMPASS      168     A     
 COMPASS            MACRO  TABLE,TNAM,EQIV                                                 COMPASS      169     A     
 COMPASS            IFC    EQ,**EQIV*                                                      COMPASS      170          I
          -CP096A 
 COMPASS            IF     -DEF,O.TNAM                                                     CP096A        31     A     
 COMPASS   1        IFC    EQ,**EQIV*                                                      CP096A        32     A     
 COMPASS   TNAM     EQU    *-ORIGINS                                                       COMPASS      171     A     
 COMPASS            CON    TNAM                                                            COMPASS      172          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ORG    *-1                                                             COMPASS      173          I
          -CMP30  
 COMPASS   O.TNAM   CON    BUCKET                                                          COMPASS      174     A     
 COMPASS            RMT                                                                    COMPASS      175     A     
 COMPASS   L.TNAM CON    0                                                                 COMPASS      176     A     
 COMPASS            RMT                                                                    COMPASS      177     A     
 COMPASS            ELSE                                                                   COMPASS      178          I
          -CP096A 
 COMPASS   1        ELSE   5                                                               CP096A        33     A     
 COMPASS   TNAM     EQU    EQIV                                                            COMPASS      179     A     
 COMPASS   O.TNAM   EQU    O.EQIV                                                          COMPASS      180     A     
 COMPASS            RMT                                                                    COMPASS      181     A     
 COMPASS   L.TNAM   EQU    TNAM+SIZES                                                      COMPASS      182     A     
 COMPASS            RMT                                                                    COMPASS      183     A     
 COMPASS            ENDIF                                                                  COMPASS      184          I
          -CP096A 
 COMPASS            IFNE   DEBUG,0                                                S028 173 CPS028       120     A     
 COMPASS   DEBUG    RMT                                                           S028 174 CPS028       121     A     
 COMPASS            CON    0L_TNAM+TNAM                                           S028 175 CPS028       122     A     
 COMPASS            RMT                                                           S028 176 CPS028       123     A     
 COMPASS            ENDIF                                                         S028 177 CPS028       124     A     
 COMPASS            ENDM                                                                   COMPASS      185     A     
 COMPASS   PCARD    SPACE  4                                                               COMPASS      186     A     
 COMPASS  **        PCARD - PACK CARD INTO MANAGED TABLE.                                  COMPASS      187     A     
 COMPASS  *         PCARD  TNAM                                                            COMPASS      188     A     
 COMPASS  *         ENTRY  (TNAM) = MANAGED TABLE NAME.                                    COMPASS      189     A     
 COMPASS                                                                                   COMPASS      190     A     
 COMPASS                                                                                   COMPASS      191     A     
 COMPASS   PCARD    MACRO  TNAM                                                            COMPASS      192     A     
 COMPASS            R=     X1,TNAM                                                         COMPASS      193     A     
 COMPASS            RJ     PCARD                                                           COMPASS      194     A     
 COMPASS            ENDM                                                                   COMPASS      195     A     
 COMPASS   ADDWORD  SPACE  4                                                               COMPASS      196     A     
 COMPASS  **        ADDWORD - ADDWORD TO MANAGED TABLE.                                    COMPASS      197     A     
 COMPASS  *         ADDWORD TABNAM                                                         COMPASS      198     A     
 COMPASS  *         ENTRY  (TABNAM) = MANAGED TABLE NAME.                                  COMPASS      199     A     
 COMPASS                                                                                   COMPASS      200     A     
 COMPASS                                                                                   COMPASS      201     A     
 COMPASS   ADDWORD  MACRO  TABNAM                                                          COMPASS      202     A     
 COMPASS            R=     A0,TABNAM                                                       COMPASS      203     A     
 COMPASS            RJ     ADDWORD                                                         COMPASS      204     A     
 COMPASS            ENDM                                                                   COMPASS      205     A     
 COMPASS   LOVER    TITLE  MAIN PROGRAM.                                                   COMPASS      206          I
          -CMP30  
 COMPASS  **        ENTRY POINTS COMPATIBLE WITH *RUN* AND *FTN*.                          COMPASS      207          I
          -CMP30  
 COMPASS                                                                                   COMPASS      208          I
          -CMP30  
 COMPASS                                                                                   COMPASS      209          I
          -CMP30  
 COMPASS            ORG    101B                                                            COMPASS      210          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LOVER    EQ     OVL         LOAD AND EXECUTE OVERLAY                            COMPASS      211          I
          -CMP30  
 COMPASS   EXIT     EQ     STOP        TERMINATE PROGRAM                                   COMPASS      212          I
          -CMP30  
 COMPASS   IOFET    SPACE  4                                                               COMPASS      213          I
          -CMP30  
 COMPASS  **        *INPUT* AND *OUTPUT* FILE ENVIRONMENT TABLES.                          COMPASS      214          I
          -CMP30  
 COMPASS                                                                                   COMPASS      215          I
          -CMP30  
 COMPASS                                                                                   COMPASS      216          I
          -CMP30  
 COMPASS   I        BSS    0                                                               COMPASS      217          I
          -CMP30  
 COMPASS   INPUT    FET    IBUF,IBUFL,1                                                    COMPASS      218          I
          -CMP30  
 COMPASS            BSS    5                                                               COMPASS      219          I
          -CMP30  
 COMPASS                                                                                   COMPASS      220          I
          -CMP30  
 COMPASS                                                                                   COMPASS      221          I
          -CMP30  
 COMPASS   O        BSS    0           OUTPUT BUFFER                                       COMPASS      222          I
          -CMP30  
 COMPASS   OUTPUT   FET    OBUF,ORGOVER-15-OBUF,5                                          COMPASS      223          I
          -CMP30  
 COMPASS            BSS    5                                                               COMPASS      224          I
          -CMP30  
 COMPASS   ENP      SPACE  4                                                               COMPASS      225          I
          -CMP30  
 COMPASS  **        ENP - END PROGRAM.                                                     COMPASS      226          I
          -CMP30  
 COMPASS  *         ENTRY  (X2) = *END* OR *ABT*.                                          COMPASS      227          I
          -CMP30  
 COMPASS  *                (X7) = ADDRESS OF MESSAGE.                                      COMPASS      228          I
          -CMP30  
 COMPASS                                                                                   COMPASS      229          I
          -CMP30  
 COMPASS                                                                                   COMPASS      230          I
          -CMP30  
 COMPASS   ENP      SX6    3RMSG       OUTPUT MESSAGE                                      COMPASS      231          I
          -CMP30  
 COMPASS            LX6    42                                                              COMPASS      232          I
          -CMP30  
 COMPASS            IX6    X6+X7                                                           COMPASS      233          I
          -CMP30  
 COMPASS            RJ     SYS                                                             COMPASS      234          I
          -CMP30  
 COMPASS            LX2    42          TERMINATE PROGRAM                                   COMPASS      235          I
          -CMP30  
 COMPASS            BX6    X2                                                              COMPASS      236          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     SYS                                                             COMPASS      237          I
          -CMP30  
 COMPASS            PS                                                                     COMPASS      238          I
          -CMP30  
 COMPASS   LOV      SPACE  4                                                               COMPASS      239          I
          -CMP30  
 COMPASS  **        LOV - LOAD OVERLAY.                                                    COMPASS      240          I
          -CMP30  
 COMPASS  *         ENTRY  (X1) = OVERLAY NAME LEFT JUSTIFIED.                             COMPASS      241          I
          -CMP30  
 COMPASS  *         EXIT   (B5) = ENTRY ADDRESS OF OVERLAY.                                COMPASS      242          I
          -CMP30  
 COMPASS  *         EXIT TO ENP IF PROGRAM NOT FOUND.                                      COMPASS      243          I
          -CMP30  
 COMPASS                                                                                   COMPASS      244          I
          -CMP30  
 COMPASS                                                                                   COMPASS      245          I
          -CMP30  
 COMPASS   LOV      PS                 RETURN EXIT                                         COMPASS      246          I
          -CMP30  
 COMPASS            SA2    LOVA        CALL *LDR*                                          COMPASS      247          I
          -CMP26    -CMP30  
 COMPASS            SA2    LOVA        CALL *LDV*                                          CMP26          3          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS      248          I
          -CMP30  
 COMPASS            LX7    X2                                                              COMPASS      249          I
          -CMP30  
 COMPASS            SA6    LOVERT                                                          COMPASS      250          I
          -CMP30  
 COMPASS            SA7    LOVERT+1                                                        COMPASS      251          I
          -CMP30  
 COMPASS            SA6    LOVC+1                                                          COMPASS      252          I
          -CMP30  
 COMPASS            SA2    LOVB                                                            COMPASS      253          I
          -CMP30  
 COMPASS            BX6    X2                                                              COMPASS      254          I
          -CMP30  
 COMPASS            MX7    0                                                               COMPASS      255          I
          -CMP30  
 COMPASS            SA7    LDRCELL                                                         COMPASS      256          I
          -CMP30  
 COMPASS            RJ     SYS                                                             COMPASS      257          I
          -CMP30  
 COMPASS   LOV1     RJ     RCL         WAIT FOR LDR                                        COMPASS      258          I
          -CMP30  
 COMPASS            SA4    LDRCELL                                                         COMPASS      259          I
          -CMP30  
 COMPASS            ZR     X4,LOV1     LOOP                                                COMPASS      260          I
          -CMP30  
 COMPASS            SA4    LOVERT+1                                                        COMPASS      261          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB5    X4                                                              COMPASS      262          I
          -CMP30  
 COMPASS            LX4    59-36                                                           COMPASS      263          I
          -CMP30  
 COMPASS            PL     X4,LOV      IF LOADED                                           COMPASS      264          I
          -CMP30  
 COMPASS            SX7    LOVC                                                            COMPASS      265          I
          -CMP30  
 COMPASS            SX2    3RABT                                                           COMPASS      266          I
          -CMP30  
 COMPASS            EQ     ENP         TERMINATE PROGRAM                                   COMPASS      267          I
          -CMP30  
 COMPASS                                                                                   COMPASS      268          I
          -CMP30  
 COMPASS   LOVA     DATA   01010140BS36                                                    COMPASS      269          I
          -CMP30  
 COMPASS                                                                                   COMPASS      270          I
          -CMP30  
 COMPASS   LOVB     VFD    42/0LLDR,18/LOVERT                                              COMPASS      271          I
          -CMP20    -CMP30  
 COMPASS   LOVB     VFD    42/0LLDV,18/LOVERT                                              CMP20         22          I
          -CMP30  
 COMPASS                                                                                   COMPASS      272          I
          -CMP30  
 COMPASS   LOVC     DATA   H*CANT LOAD*                                                    COMPASS      273          I
          -CMP30  
 COMPASS            BSS    1                                                               COMPASS      274          I
          -CMP30  
 COMPASS   OVL      SPACE  4                                                               COMPASS      275          I
          -CMP30  
 COMPASS  **        OVL - CALL FOR OVERLAY LOAD.                                           COMPASS      276          I
          -CMP30  
 COMPASS  *         ENTRY  (X1) = OVERLAY NAME LEFT JUSTIFIED.                             COMPASS      277          I
          -CMP30  
 COMPASS  *         EXIT TO OVERLAY.                                                       COMPASS      278          I
          -CMP30  
 COMPASS                                                                                   COMPASS      279          I
          -CMP30  
 COMPASS                                                                                   COMPASS      280          I
          -CMP30  
 COMPASS   OVL      RJ     LOV                                                             COMPASS      281          I
          -CMP30  
 COMPASS            JP     B5                                                              COMPASS      282          I
          -CMP30  
 COMPASS   RCL      SPACE  4                                                               COMPASS      283          I
          -CMP30  
 COMPASS  **        RCL - RECALL CPU.                                                      COMPASS      284          I
          -CMP30  
 COMPASS                                                                                   COMPASS      285          I
          -CMP30  
 COMPASS                                                                                   COMPASS      286          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RCL      PS                                                                     COMPASS      287          I
          -CMP30  
 COMPASS            SX6    3RRCL                                                           COMPASS      288          I
          -CMP30  
 COMPASS            LX6    42                                                              COMPASS      289          I
          -CMP30  
 COMPASS            RJ     SYS                                                             COMPASS      290          I
          -CMP30  
 COMPASS   +        SA5    1                                                               COMPASS      291          I
          -CMP30  
 COMPASS            NZ     X5,*                                                            COMPASS      292          I
          -CMP30  
 COMPASS            EQ     RCL                                                             COMPASS      293          I
          -CMP30  
 COMPASS   STOP     SPACE  4                                                               COMPASS      294          I
          -CMP30  
 COMPASS   STACK    SPACE  4                                                               CMP30        292     A     
 COMPASS  **        STACK - DEFINE PUSH-DOWN STACK AREA.                                   CMP30        293     A     
 COMPASS  *NAME     STACK  BPE,MAX,VAL                                                     CMP30        294     A     
 COMPASS  *         ENTRY  (NAME) = NAME OF STACK.                                         CMP30        295     A     
 COMPASS  *                (BPE)  = NUMBER OF BITS PER ENTRY.                              CMP30        296     A     
 COMPASS  *                (MAX)  = MAXIMUM NUMBER OF ENTRIES.                             CMP30        297     A     
 COMPASS  *                (VAL)  = DEFAULT ENTRY VALUE.                                   CMP30        298     A     
 COMPASS                                                                                   CMP30        299     A     
 COMPASS                                                                                   CMP30        300     A     
 COMPASS            MACRO  STACK,NAME,BPE,MAX,VAL                                          CMP30        301     A     
 COMPASS   U.       SET    60/BPE                                                          CMP30        302     A     
 COMPASS   N.       SET    MAX+U.-1                                                        CMP30        303     A     
 COMPASS   N.       SET    N./U.                                                           CMP30        304     A     
 COMPASS   U.       SET    60-U.*BPE                                                       CMP30        305     A     
 COMPASS   NAME     VFD    18/VAL,6/U.,6/BPE,6/0,6/0,18/MAX                                CMP30        306     A     
 COMPASS            BSSZ   N.                                                              CMP30        307     A     
 COMPASS   STACKPTR RMT                                                                    CMP30        308     A     
 COMPASS            VFD    42/MAX,18/NAME                                                  CMP30        309     A     
 COMPASS            RMT                                                                    CMP30        310     A     
 COMPASS            ENDM                                                                   CMP30        311     A     
 COMPASS   INTMUL   SPACE  4                                                               CMP30        312     A     
 COMPASS  **        REDEFINE INTEGER MULTIPLY INSTRUCTION.                                 CMP30        313     A     
 COMPASS                                                                                   CMP30        314     A     
 COMPASS                                                                                   CMP30        315     A     
 COMPASS            IFNE   INTMUL,0,2                                                      CMP30        316          I
          -CPS028 
 COMPASS            IF     DEF,IP.IMUL,3                                          S028 179 CPS028       125     A     
 COMPASS            IFNE   IP.IMUL,0,2                                            S028 180 CPS028       126     A     
 COMPASS            PURGDEF IXX*X                                                          CMP30        317     A     
 COMPASS   IXX*X    CPSYN  DXX*X                                                           CMP30        318     A     
 COMPASS   SCOPE1   SPACE  4                                                               CMP30        319     A     
 COMPASS  **        REDEFINE SYSTEM MACROS FOR KRONOS AND SCOPE 1.                         CMP30        320     A     
 COMPASS                                                                                   CMP30        321     A     
 COMPASS                                                                                   CMP30        322     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30        323          I
          -CPS028 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RM       IFC    GE, MODEL" 75                                                   CMP30        324          I
          -CPS028 
 COMPASS            IFC    NE,*"OS.NAME"*KRONOS*,1                                S028 182 CPS028       127          I
          -CPSA134
 COMPASS   RM       IFC    LT,*"OS.VER"*2*                                        S028 183 CPS028       128          I
          -CPSA134
 COMPASS                                                                                   CMP30        325          I
          -CPSA134
 COMPASS   SCOPE1   IFC    NE,*"OS.NAME"*KRONOS*                                   CPS153  CPS153         4          I
          -CPSA134
 COMPASS   SCOPE1   IF     DEF,SCOPE1                                                      CPSA134       45     A     
 COMPASS            PURGMAC CONTRLC                                                        CMP30        326     A     
 COMPASS   CONTRLC  MACRO  S                                                               CMP30        327     A     
 COMPASS            SYSTEM CPM,1,RA.CCD,700B                                               CMP30        328     A     
 COMPASS            ENDM                                                                   CMP30        329     A     
 COMPASS   SCOPE1   ENDIF                                                          CPS153  CPS153         5     A     
 COMPASS                                                                                   CMP30        330     A     
 COMPASS            IF     -DEF,SCOPE1,1                                                   CPSA134       46     A     
 COMPASS            IF     DEF,NOS                                                         CPSA134       47     A     
 COMPASS            PURGMAC MESSAGE                                                        CMP30        331     A     
 COMPASS   MESSAGE  MACRO  M,X,L                                                           CMP30        332     A     
 COMPASS            R=     X1,M                                                            CMP30        333     A     
 COMPASS            IFC    EQ, L  ,2                                                       CMP30        334     A     
 COMPASS            R=     X6,X                                                            CMP30        335     A     
 COMPASS            SKIP   1                                                               CMP30        336     A     
 COMPASS            R=     X6,1S16+X                                                       CMP30        337     A     
 COMPASS            LX6    6                                                               CMP30        338          I
          -CPS141 
 COMPASS            RJ     =XMSG=                                                          CMP30        339     A     
 COMPASS            ENDM                                                                   CMP30        340     A     
 COMPASS                                                                                   CMP30        341     A     
 COMPASS            PURGMAC RETURN                                                         CMP30        342     A     
 COMPASS   RETURN   MACRO  F,L                                                             CMP30        343     A     
 COMPASS            =3     F,L,70B                                                         CMP30        344          I
          -CPSA096
 COMPASS            R=     X2,F                                                    CPSA096 CPSA096        5     A     
 COMPASS   RT       IFC    EQ,*L**                                                 CPSA096 CPSA096        6     A     
 COMPASS            SX7    70B                                                     CPSA096 CPSA096        7     A     
 COMPASS   RT       ELSE   1                                                       CPSA096 CPSA096        8     A     
 COMPASS            SX7    -70B                                                    CPSA096 CPSA096        9     A     
 COMPASS            RJ     =XCIO=                                                  CPSA096 CPSA096       10     A     
 COMPASS            ENDM                                                                   CMP30        345     A     
 COMPASS                                                                                   CMP30        346     A     
 COMPASS   RM       ENDIF                                                                  CMP30        347          I
          -CPSA134
 COMPASS            ENDIF                                                                  CPSA134       48     A     
 COMPASS   LCM      SPACE  4,8                                                             CP096A        34     A     
 COMPASS  **        REDEFINE LCM INSTRUCTIONS FOR SYSTEMS OTHER THAN SCOPE 2.              CP096A        35     A     
 COMPASS                                                                                   CP096A        36     A     
 COMPASS                                                                                   CP096A        37     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CP096A        38          I
          -F4830CP
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RM       IF     -DEF,HF.L   IF NO LCM AVAILABLE.                                F4830CP        5          I
          -CPSA214
 COMPASS   RM       IFNE   CP#RM,7                                                         CPSA214        9     A     
 COMPASS                                                                                   CP096A        39     A     
 COMPASS            PURGDEF RXX                                                            CP096A        40     A     
 COMPASS   RXX      OPDEF  I,K                                                             CP096A        41     A     
 COMPASS            SA.I   X.K                                                             CP096A        42     A     
 COMPASS            ERRMI  I-1         RX.I  ILLEGAL                                       CP096A        43     A     
 COMPASS            ERRPL  I-6         RX.I  ILLEGAL                                       CP096A        44     A     
 COMPASS            ENDM                                                                   CP096A        45     A     
 COMPASS                                                                                   CP096A        46     A     
 COMPASS            PURGDEF WXX                                                            CP096A        47     A     
 COMPASS   WXX      OPDEF  I,K                                                             CP096A        48     A     
 COMPASS            SA.I   X.K                                                             CP096A        49     A     
 COMPASS            ERRMI  I-6         WX.I  ILLEGAL                                       CP096A        50     A     
 COMPASS            ENDM                                                                   CP096A        51     A     
 COMPASS                                                                                   CP096A        52     A     
 COMPASS   RM       ENDIF                                                                  CP096A        53     A     
 COMPASS                                                                                   CMP30        348     A     
 COMPASS                                                                                   CMP30        349     A     
 COMPASS  *CALL     COMPCOM                                                                CMP30        350     A     
 COMPASS                                                                                   CMP30        351     A     
 COMPASS                                                                                   CMP30        352     A     
 COMPASS   LINKAGE  TITLE  DEFINITIONS DEPENDENT ON COMPCOM.                               CMP30        353     A     
 COMPASS  ****      DEFINITIONS DEPENDENT ON COMPILER/COMPASS COMMON DECK.                 CMP30        354     A     
 COMPASS                                                                                   CMP30        355     A     
 COMPASS                                                                                   CMP30        356     A     
 COMPASS                                                                                   CMP30        357     A     
 COMPASS  **        BUFFER SIZES.                                                          CMP30        358     A     
 COMPASS                                                                                   CMP30        359     A     
 COMPASS   BBUFL    EQU    "BUFL"      BINARY BUFFER LENGTH                                CMP30        360     A     
 COMPASS   DBUFL    EQU    "BUFL"*DEBUG SNAPPER BUFFER LENGTH                              CMP30        361     A     
 COMPASS   EBUFL    EQU    "BUFL"      ERROR LISTING BUFFER LENGTH                         CMP30        362     A     
 COMPASS   GBUFL    EQU    "BUFL"*2    SYSTEM TEXT FILE BUFFER LENGTH                      CPS064         3     A     
 COMPASS   IBUFL    EQU    "BUFL"      SOURCE INPUT BUFFER LENGTH                          CMP30        363     A     
 COMPASS   RBUFL    EQU    "BUFL"      CROSS-REFERENCE BUFFER LENGTH                       CMP30        364     A     
 COMPASS   SBUFL    EQU    "BUFL"*2    INTERMEDIATE BUFFER LENGTH                          CMP30        365     A     
 COMPASS                                                                                   CPS064         4     A     
 COMPASS                                                                                   CPS064         5     A     
 COMPASS                                                                                   CPS064         6     A     
 COMPASS  **        SECONDARY OVERLAY NAMES.                                               CPS064         7     A     
 COMPASS                                                                                   CPS064         8     A     
 COMPASS   OVLA     MICRO  1,, "CP.NAME"A    PASS 1 AND PASS 2 ROUTINES                    CPS064         9     A     
 COMPASS                                                                                   CMP30        366     A     
 COMPASS                                                                                   CMP30        367     A     
 COMPASS                                                                                   CMP30        368     A     
 COMPASS  ****                                                                             CMP30        369     A     
 COMPASS   STOP     TITLE  MAIN PROGRAM.                                                   CMP30        370     A     
 COMPASS  **        STOP - END OF JOB PROCESSING.                                          COMPASS      295     A     
 COMPASS                                                                                   COMPASS      296     A     
 COMPASS                                                                                   COMPASS      297     A     
 COMPASS   STOP     SA2    O+2         CHECK FOR OUTPUT COMPLETE                           COMPASS      298          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS   STOP     SA1    MAXSCM      MAX SCM USED DURING RUN                             CMP042         1          I
          -CMP30  
 COMPASS   STOP     SA1    CP.MAXFL    MAX SCM USED DURING RUN                             CMP30        371     A     
 COMPASS            SX2    100B+10D                                                        CMP042         2     A     
 COMPASS            MX0    -6          ADD THE TEN UNUSED WORDS AND                        CMP042         3     A     
 COMPASS            IX3    X1+X2       INCREASE TO NEXT MULTIPLE OF 100B                   CMP042         4     A     
 COMPASS            BX1    X0*X3                                                           CMP042         5     A     
 COMPASS            MX6    0                                                               CPS0343        8     A     
 COMPASS            SA6    PPTYPE      CLEAR PPTYPE SO OCTAL WILL REALLY BE USED           CPS0343        9     A     
 COMPASS            RJ     CONOCT      CONVERT TO OCTAL                                    CMP042         6     A     
 COMPASS            LX6    18                                                              CMP042         7     A     
 COMPASS                                                                          S028 185 CPS028       129     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                      S028 186 CPS028       130          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP       65          I
          -CPSA134
 COMPASS            SKIP   3                                                               F7540CP       66          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP       67          I
          -CPSA134
 COMPASS            SX1    3RB                                                    S028 187 CPS028       131          I
          -CPSA134
 COMPASS            ELSE   1                                                      S028 188 CPS028       132          I
          -CPSA134
 COMPASS            SX1    3RB S                                                           CMP042         8          I
          -CPSA134
 COMPASS            IF     DEF,MODL76                                                      CPSA134       49     A     
 COMPASS            SX1    3RB S       ASSEMBLED IF MODEL 76 ASSEMBLY (SCM)                CPSA134       50     A     
 COMPASS            ELSE   1                                                               CPSA134       51     A     
 COMPASS            SX1    3RB         ASSEMBLED IF NOT MODEL 76 ASSEMBLY (CM)             CPSA134       52     A     
 COMPASS                                                                          S028 190 CPS028       133     A     
 COMPASS            MX0    -18                                                             CMP042         9     A     
 COMPASS            BX6    X0*X6                                                           CMP042        10     A     
 COMPASS            BX6    X6+X1                                                           CMP042        11     A     
 COMPASS            SA6    STPA+2      STORE IN MESSAGES                                   CMP042        12     A     
 COMPASS            SA6    STPB+2                                                          CMP042        13     A     
 COMPASS            SA2    O+2         CHECK FOR OUTPUT COMPLETE                           CMP042        14          I
          -CMP30  
 COMPASS            SA3    A2+1                                                            COMPASS      299          I
          -CMP30  
 COMPASS            BX6    X2-X3                                                           COMPASS      300          I
          -CMP30  
 COMPASS            ZR     X6,STP1     IF NO OUTPUT FILE                                   COMPASS      301          I
          -CMP30  
 COMPASS            WRITER O                                                               COMPASS      302          I
          -CMP30  
 COMPASS   STP1     SA2    E+2                                                             COMPASS      303          I
          -CMP30  
 COMPASS            SA3    A2+B1                                                           COMPASS      304          I
          -CMP30  
 COMPASS            BX6    X2-X3                                                           COMPASS      305          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            ZR     X6,STP2     IF NO ERROR FILE                                    COMPASS      306          I
          -CMP30  
 COMPASS            WRITER E                                                               COMPASS      307          I
          -CMP30  
 COMPASS   STP2     SX2    3REND       MESSAGE = *END OF ASSEMBLY.*                        COMPASS      308          I
          -CMP26    -CMP30  
 COMPASS            SX7    STPA                                                            COMPASS      309          I
          -CMP26    -CMP30  
 COMPASS   STP2     SX2    3REND                                                           CMP26          4          I
          -CMP30  
 COMPASS            SX7    STPA        MESSAGE = *ASSEMBLY COMPLETE.*                      CMP26          5          I
          -CMP30  
 COMPASS            SA1    ERRFLG                                                          COMPASS      310          I
          -CMP30  
 COMPASS            ZR     X1,ENP      IF NO ERRORS                                        COMPASS      311          I
          -CMP30  
 COMPASS            NG     X1,ENP      IF *D* MODE SET                                     COMPASS      312          I
          -CMP30  
 COMPASS            RECALL O                                                               COMPASS      313          I
          -CMP30  
 COMPASS   +        SA1    B                                                               COMPASS      314          I
          -CMP30  
 COMPASS            ZR     X1,*+2                                                          COMPASS      315          I
          -CMP26    -CMP30  
 COMPASS            ZR     X1,STP3     IF NO BINARY FILE                                   CMP26          6          I
          -CMP30  
 COMPASS            RECALL A1                                                              COMPASS      316          I
          -CMP30  
 COMPASS            SX2    3RABT                                                           COMPASS      317          I
          -CMP26    -CMP30  
 COMPASS   STP3     SX2    3RABT                                                           CMP26          7          I
          -CMP30  
 COMPASS            SX7    STPB        MESSAGE = *ASSEMBLY ERRORS.*                        COMPASS      318          I
          -CMP30  
 COMPASS            SA1    AFLG                                                            CMP20         23          I
          -CMP30  
 COMPASS            NZ     X1,ENP      IF ABORT                                            CMP20         24          I
          -CMP30  
 COMPASS            SX2    3REND                                                           CMP20         25          I
          -CMP30  
 COMPASS            EQ     ENP                                                             COMPASS      319          I
          -CMP30  
 COMPASS                                                                                   CMP30        372          I
          -CPS028 
 COMPASS            IFNE   TIMEMSG,0,3                                                     CMP30        373          I
          -CPS028 
 COMPASS            SB7    BTIME       CONVERT BATCH ASSEMBLY TIME                         CMP30        374          I
          -CPS028 
 COMPASS            SA1    BLCM        MAX ECS/LCM USED DURING RUN                S028 192 CPS028       134     A     
 COMPASS            ZR     X1,STP0     IF NONE                                    S028 193 CPS028       135     A     
 COMPASS            SX2    100B+10D                                               S028 194 CPS028       136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX0    -6          ADD THE TEN UNUSED WORDS AND               S028 195 CPS028       137     A     
 COMPASS            IX3    X1+X2       INCREASE TO NEXT MULTIPLE OF 100B          S028 196 CPS028       138     A     
 COMPASS            BX1    X0*X3                                                  S028 197 CPS028       139     A     
 COMPASS            RJ     CONOCT      CONVERT TO OCTAL                           S028 198 CPS028       140     A     
 COMPASS            SA1    STPD+1                                                 S028 199 CPS028       141     A     
 COMPASS            SA2    A1+B1                                                  S028 200 CPS028       142     A     
 COMPASS            SA3    A2+B1                                                  S028 201 CPS028       143     A     
 COMPASS            MX0    -18         STORE IN MESSAGE                           S028 202 CPS028       144     A     
 COMPASS            BX7    X1                                                     S028 203 CPS028       145     A     
 COMPASS            LX6    18                                                     S028 204 CPS028       146     A     
 COMPASS            BX6    X0*X6                                                  S028 205 CPS028       147     A     
 COMPASS            BX2    -X0*X2                                                 S028 206 CPS028       148     A     
 COMPASS            BX6    X6+X2                                                  S028 207 CPS028       149     A     
 COMPASS            SA7    STPC+1                                                 S028 208 CPS028       150     A     
 COMPASS            SA6    A7+B1                                                  S028 209 CPS028       151     A     
 COMPASS            BX7    X3                                                     S028 210 CPS028       152     A     
 COMPASS            SA7    A6+B1                                                  S028 211 CPS028       153     A     
 COMPASS   STP0     SB7    BTIME       CONVERT BATCH ASSEMBLY TIME                S028 212 CPS028       154     A     
 COMPASS            RJ     CPTIME                                                          CMP30        375     A     
 COMPASS            SA6    STPC        STORE IN MESSAGE                                    CMP30        376     A     
 COMPASS                                                                                   CMP30        377     A     
 COMPASS            SA1    CP.ERRCT                                                        CMP30        378     A     
 COMPASS            ZR     X1,STP1     IF NO ERRORS                                        CMP30        379     A     
 COMPASS            MI     X1,STP1     IF *D* MODE SET                                     CMP30        380     A     
 COMPASS            MESSAGE STPB,,R    *ASSEMBLY ERRORS.*                                  CMP30        381     A     
 COMPASS                                                                                   CMP30        382          I
          -CPS028 
 COMPASS            IFNE   TIMEMSG,0,1                                                     CMP30        383          I
          -CPS028 
 COMPASS            MESSAGE STPC,,R    *ASSEMBLY TIME.*                                    CMP30        384     A     
 COMPASS                                                                                   CMP30        385     A     
 COMPASS            SA1    CP.ABORT                                                        CMP30        386     A     
 COMPASS            ZR     X1,STP2     IF ABORT NOT SET                                    CMP30        387          I
          -CP139CP
 COMPASS            LX1    59-29                                                           CP139CP      140     A     
 COMPASS            PL     X1,STP2     IF ABORT NOT SET                                    CP139CP      141     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30        388          I
          -CPS191 
 COMPASS            ABORT  ,NODUMP,S                                                       CPS191         5     A     
 COMPASS                                                                                   CMP30        389     A     
 COMPASS   STP1     MESSAGE STPA,,R    *ASSEMBLY COMPLETE.*                                CMP30        390     A     
 COMPASS                                                                                   CMP30        391          I
          -CPS028 
 COMPASS            IFNE   TIMEMSG,0,1                                                     CMP30        392          I
          -CPS028 
 COMPASS            MESSAGE STPC,,R    *ASSEMBLY TIME.*                                    CMP30        393     A     
 COMPASS                                                                                   CMP30        394     A     
 COMPASS   STP2     BSS    0                                                               CMP30        395     A     
 COMPASS                                                                                   CMP30        396     A     
 COMPASS   SPY      IFNE   SPY,0                                                           CMP30        397     A     
 COMPASS                                                                                   CMP30        398     A     
 COMPASS            SA1    SPYPAR                                                          CMP30        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/28. 19.11.32.      PAGE 215    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X1,STP3     IF SPY NOT CALLED                                   CMP30        400     A     
 COMPASS            MX7    1                                                               CMP30        401     A     
 COMPASS            SA7    A1          SIGNAL SPY TO QUIT                                  CMP30        402     A     
 COMPASS            RECALL A7                                                              CMP30        403     A     
 COMPASS            SA2    A7+B1                                                           CMP30        404     A     
 COMPASS            BX7    X2                                                              CMP30        405     A     
 COMPASS            SA7    RA.PGN      CALL *PRNTSPY*                                      CMP30        406     A     
 COMPASS            SA7    RA.CCD                                                          CMP30        407     A     
 COMPASS            MESSAGE A7,,R                                                          CMP30        408     A     
 COMPASS            LOADREQ                                                                CMP30        409     A     
 COMPASS            EQ     *                                                               CMP30        410     A     
 COMPASS                                                                                   CMP30        411     A     
 COMPASS            DATA   0LCOMPASS   SPY PARAMETERS                                      CMP30        412     A     
 COMPASS   SPYPAR   DATA   0                                                               CMP30        413     A     
 COMPASS            DATA   0LPRNTSPY                                                       CMP30        414     A     
 COMPASS                                                                                   CMP30        415     A     
 COMPASS   SPY      ENDIF                                                                  CMP30        416     A     
 COMPASS                                                                                   CMP30        417     A     
 COMPASS   STP3     ENDRUN                                                                 CMP30        418     A     
 COMPASS                                                                                   COMPASS      320     A     
 COMPASS   STPA     DATA   C* ASSEMBLY COMPLETE.*                                          COMPASS      321          I
          -CMP042 
 COMPASS   STPB     DATA   C* ASSEMBLY ERRORS.*                                            COMPASS      322          I
          -CMP042 
 COMPASS   STPA     DATA   C* ASSEMBLY COMPLETE.      00B SCM USED.*                       CMP042        15     A     
 COMPASS   STPB     DATA   C* ASSEMBLY ERRORS.        00B SCM USED.*                       CMP042        16     A     
 COMPASS   SYS      SPACE  4                                                               COMPASS      323          I
          -CMP30  
 COMPASS  **        SYS - SEND MESSAGE TO SYSTEM.                                          COMPASS      324          I
          -CMP30  
 COMPASS  *         ENTRY  (X6) = SYSTEM CALL.                                             COMPASS      325          I
          -CMP30  
 COMPASS                                                                                   COMPASS      326          I
          -CMP30  
 COMPASS                                                                                   COMPASS      327          I
          -CMP30  
 COMPASS   SYS1.    SA5    A5                                                              COMPASS      328          I
          -CMP30  
 COMPASS            LX5    59-40                                                           COMPASS      329          I
          -CMP30  
 COMPASS            NG     X5,SYS1.    IF AUTO RECALL                                      COMPASS      330          I
          -CMP30  
 COMPASS                                                                                   COMPASS      331          I
          -CMP30  
 COMPASS   SYS      PS                 RETURN EXIT                                         COMPASS      332          I
          -CMP30  
 COMPASS            SA5    1                                                               COMPASS      333          I
          -CMP30  
 COMPASS            NZ     X5,*                                                            COMPASS      334          I
          -CMP30  
 COMPASS            SA6    A5                                                              COMPASS      335          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 216    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     SYS1.                                                           COMPASS      336          I
          -CMP30  
 COMPASS            SPACE  4                                                               COMPASS      337          I
          -CMP30  
 COMPASS            SEG                                                                    CMP1           1          I
          -CMP30  
 COMPASS   IBUF     BSS    IBUFL       INPUT BUFFER                                        COMPASS      338          I
          -CMP30  
 COMPASS   OBUF     BSS    0           OUTPUT BUFFER                                       COMPASS      339          I
          -CMP30  
 COMPASS            ORG    IBUF                                                            COMPASS      340          I
          -CMP30  
 COMPASS                                                                                   CMP30        419     A     
 COMPASS            IFNE   TIMEMSG,0,1                                                     CMP30        420          I
          -CPS028 
 COMPASS   STPC     DATA   C* XXXX.XXX  CPU SECONDS  ASSEMBLY TIME.*                       CMP30        421     A     
 COMPASS                                                                          S028 217 CPS028       155          I
          -CPSA134
 COMPASS            IFC    LT, "MODEL" 75 ,2                                      S028 218 CPS028       156          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP       68          I
          -CPSA134
 COMPASS            SKIP   3                                                               F7540CP       69          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP       70          I
          -CPSA134
 COMPASS                                                                                   CPSA134       53     A     
 COMPASS            IF     -DEF,LCMTYP                                                     CPSA134       54     A     
 COMPASS   STPD     DATA   C* XXXX.XXX  CPU SEC.      00B ECS USED.*              S028 219 CPS028       157     A     
 COMPASS            SKIP   1                                                      S028 220 CPS028       158          I
          -CPSA134
 COMPASS            ELSE   1                                                               CPSA134       55     A     
 COMPASS   STPD     DATA   C* XXXX.XXX  CPU SEC.      00B LCM USED.*              S028 221 CPS028       159     A     
 COMPASS   BUFFERS  SPACE  4                                                               CMP30        422     A     
 COMPASS  **        END OF RESIDENT CODE.                                                  CMP30        423     A     
 COMPASS                                                                                   CMP30        424     A     
 COMPASS                                                                                   CMP30        425     A     
 COMPASS            USE    BUFFERS                                                         CMP30        426     A     
 COMPASS            IDENT              I/O BUFFERS AND INITIALIZATION.                     CMP30        427     A     
 COMPASS   IBUF     EQU    CP.ORG-IBUFL                                                    CMP30        428     A     
 COMPASS   OBUF     BSS    0                                                               CMP30        429     A     
 COMPASS   OBUFL    EQU    IBUF-OBUF                                                       CMP30        430     A     
 COMPASS            ORG    OBUF                                                            CMP30        431     A     
 COMPASS   R        ERRMI  OBUFL-"BUFL"      RESIDENT CODE IS TOO LARGE                    CMP30        432     A     
 COMPASS   CMP      TITLE  CONTROL CARD OPTION PROCESSING.                                 COMPASS      341     A     
 COMPASS  **        COMPASS INITIALIZATION.                                                COMPASS      342     A     
 COMPASS                                                                                   COMPASS      343     A     
 COMPASS                                                                                   COMPASS      344     A     
 COMPASS            LIST   F                                                               COMPASS      345          I
          -CMP20  
 COMPASS   CMP      SA1    CMPA        LOAD CONTROL OVERLAY                                COMPASS      346          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 217    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB1    1                                                               COMPASS      347          I
          -CMP30  
 COMPASS            IFNE   OVERLAY,0,1 - RJ LOV -                                          COMPASS      348          I
          -CMP30  
 COMPASS            RJ     LOV                                                             COMPASS      349          I
          -CMP30  
 COMPASS            RJ     SES         SET EQUAL SIGN IN PARAMETER LIST                    COMPASS      350          I
          -CMP30  
 COMPASS            RJ     SNO         SET NORMAL OPTIONS                                  COMPASS      351          I
          -CMP30  
 COMPASS            RJ     TCC         TRANSLATE CONTROL CARD                              COMPASS      352          I
          -CMP30  
 COMPASS   CMP      SB1    1           SET (B1) = 1                                        CMP30        433          I
          -CP139CP
 COMPASS   COMPASS  SB1    1           SET (B1) = 1                                        CP139CP      142     A     
 COMPASS            SX6    A0                                                              CMP30        434     A     
 COMPASS            BX7    X0                                                              CMP30        435     A     
 COMPASS            SA6    CP.NFLS     SAVE FIELD LENGTHS                                  CMP30        436     A     
 COMPASS            SA7    CP.NFLL                                                         CMP30        437     A     
 COMPASS            SA6    CP.AFLS                                                         CMP30        438     A     
 COMPASS            SA7    CP.AFLL                                                         CMP30        439     A     
 COMPASS            SX6    B0          CLEAR SOURCE CARD IMAGE                             CMP30        440     A     
 COMPASS            SA6    CP.CARD                                                         CMP30        441     A     
 COMPASS            SX6    IP.PD       DEFAULT PRINT DENSITY                       F4810A  F4810A        18          I
          -CPSA265
 COMPASS            SX7    IP.PS       DEFAULT PAGE SIZE                           F4810A  F4810A        19          I
          -CPSA265
 COMPASS            SA6    CP.PD       SET PRINT DENSITY TO DEFAULT                F4810A  F4810A        20          I
          -CPSA265
 COMPASS            SA7    CP.PS       SET PAGE SIZE TO DEFAULT                    F4810A  F4810A        21          I
          -CPSA265
 COMPASS            RJ     TFL         TEST FIELD LENGTH, START LOADING OVERLAY            CMP30        442     A     
 COMPASS            RJ     ARG         GET ARGUMENTS FROM CONTROL STATEMENT                CMP30        443          I
          -F4810A 
 COMPASS                                                                                   CMP30        444     A     
 COMPASS            IFNE   SPY,0,1                                                         CMP30        445     A     
 COMPASS            RJ     SSP         START *SPY*                                         CMP30        446     A     
 COMPASS                                                                                   CMP30        447     A     
 COMPASS            IFNE   OVERLAY,0,1                                                     CMP30        448     A     
 COMPASS            RJ     LOV         LOAD OVERLAY                                        CMP30        449     A     
 COMPASS                                                                                   CMP30        450     A     
 COMPASS            RJ     ARG         GET ARGUMENTS FROM CONTROL STATEMENT        F4810A  F4810A        22     A     
 COMPASS            RJ     DMF         DIAGNOSE MISUSED FILES (B=A,I=A)                    CPS258         5     A     
 COMPASS            RJ     IFP         INITIALIZE FILE PARAMETERS                          COMPASS      353     A     
 COMPASS            RJ     SFV         SET *F VALUE                                        CMP30        451     A     
 COMPASS            RJ     SLF         SET LIST FLAGS                                      COMPASS      354     A     
 COMPASS            EQ     COMPASS     GO TO CONTROL OVERLAY                               COMPASS      355          I
          -CP139CP
 COMPASS            EQ     CMP         GO TO CONTROL OVERLAY                               CP139CP      143     A     
 COMPASS                                                                                   COMPASS      356          I
          -CMP30  
 COMPASS   CMPA     DATA   0L"OVL"                                                         COMPASS      357          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 218    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS   ARG      SPACE  4                                                               CMP30        452     A     
 COMPASS  **        ARG - PROCESS ARGUMENTS FROM CONTROL STATEMENT.                        CMP30        453     A     
 COMPASS  *         ENTRY  FIRST CARD OF CONTROL STATEMENT IN RA.CCD ET SEQ.               CMP30        454     A     
 COMPASS  *         EXIT   ARGUMENTS PROCESSED.                                            CMP30        455     A     
 COMPASS  *         USES   ALL.                                                            CMP30        456     A     
 COMPASS  *         CALLS  GAC, GAV.                                                       CMP30        457     A     
 COMPASS                                                                                   CMP30        458     A     
 COMPASS                                                                                   CMP30        459     A     
 COMPASS   ARG      PS                 RETURN EXIT                                         CMP30        460     A     
 COMPASS            JDATE  CP.MODL                                                         CMP30        461     A     
 COMPASS            SA5    CP.MODL                                                         CMP30        462     A     
 COMPASS            SA0    10                                                              CMP30        463     A     
 COMPASS            BX6    X5          SET JULIAN DATE AS DEFAULT                          CMP30        464     A     
 COMPASS            LX6    30          VALUE OF *MODLEVEL* MICRO                           CMP30        465     A     
 COMPASS            SA6    A5                                                              CMP30        466     A     
 COMPASS            SA6    OPTML                                                           CMP30        467     A     
 COMPASS            MX0    -6                                                              CMP30        468     A     
 COMPASS            SB5    B0                                                              CMP30        469     A     
 COMPASS   ARG1     SB3    B0          SKIP LEADING BLANKS                                 CMP30        470          I
          -CPS144 
 COMPASS            RJ     GAC                                                             CMP30        471          I
          -CPS144 
 COMPASS            SB7    X4-1R                                                           CMP30        472          I
          -CPS144 
 COMPASS            ZR     B7,ARG1                                                         CMP30        473          I
          -CPS144 
 COMPASS   ARG2     SB3    B0          SKIP VERB                                           CMP30        474          I
          -CPS061   -CPS144 
 COMPASS            MX6    0                                                               CPS061         1          I
          -CPS144 
 COMPASS   ARG1     SB3    B1          SKIP BLANKS, KCL PREFIXES $ AND /                   CPS144         5     A     
 COMPASS            RJ     GAC         GET NEXT CHARACTER.                                 CPS144         6     A     
 COMPASS            SB7    X4-1R+                                                          CPS144         7     A     
 COMPASS            PL     B7,ARG1     IF CHARACTER IS NOT ALPHANUMERIC SKIP IT.           CPS144         8     A     
 COMPASS            SB7    X4-1R0      ELSE                                                CPS144         9     A     
 COMPASS            LT     B7,ARG1B    IF ALPHA, GO PROCESS VERB.                          CPS144        10     A     
 COMPASS   ARG1A    SB3    B1          ELSE SKIP KCL LABEL.                                CPS144        11     A     
 COMPASS            RJ     GAC         GET NEXT CHARACTER.                                 CPS144        12     A     
 COMPASS            SB7    X4          SET SHIFT COUNT TO OCTAL VALUE OF CHARACTER         CPS144        13     A     
 COMPASS            SA4    =33320200B  MASK FOR SEPARATORS + - " / = , ( $                 CPS144        14     A     
 COMPASS            LX4    B7                                                              CPS144        15     A     
 COMPASS            MI     X4,ARG1     IF SEPARATOR CHECK NEXT FIELD.                      CPS144        16     A     
 COMPASS            EQ     ARG1A       ELSE CONTINUE SKIPPING KCL LABEL.                   CPS144        17     A     
 COMPASS                                                                                   CPS144        18     A     
 COMPASS   ARG1B    MX6    0                                                               CPS144        19     A     
 COMPASS   ARG2     LX6    6           SCAN VERB                                           CPS061         2     A     
 COMPASS            SB3    0                                                               CPS061         3     A     
 COMPASS            BX6    X6+X4                                                           CPS061         4     A     
 COMPASS            ENV    (2,3,4,5,6),X                                                   CPSA112        5          I
          -CPSA134
 COMPASS   ARG2B    BSS    0                                                               CPSA112        6          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 219    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA134
 COMPASS            ENDIF                                                                  CPSA112        7          I
          -CPSA134
 COMPASS                                                                                   CPSA134       56     A     
 COMPASS            IF     -DEF,SCOPE1,1                                                   CPSA134       57     A     
 COMPASS            IF     DEF,NOS,1                                                       CPSA134       58     A     
 COMPASS   ARG2B    BSS    0           ASSEMBLED FOR NOS ASSEMBLY ONLY                     CPSA134       59     A     
 COMPASS                                                                                   CPSA134       60     A     
 COMPASS            RJ     GAC                                                             CMP30        475     A     
 COMPASS            SB7    X4-1R9-1                                                        CMP30        476     A     
 COMPASS            MI     B7,ARG2                                                         CMP30        477     A     
 COMPASS            ENV    (2,3,4,5,6),X                                                   CPSA112        8          I
          -CPSA134
 COMPASS            SB7    X4-1R                                                           CPSA112        9          I
          -CPSA134
 COMPASS            ZR     B7,ARG2B    IF SPACE ENCOUNTERED                                CPSA112       10          I
          -CPSA134
 COMPASS            ENDIF                                                                  CPSA112       11          I
          -CPSA134
 COMPASS                                                                                   CPSA134       61     A     
 COMPASS            IF     -DEF,SCOPE1,1                                                   CPSA134       62     A     
 COMPASS            IF     DEF,NOS,2                                                       CPSA134       63     A     
 COMPASS            SB7    X4-1R       ASSEMBLED ON NOS ASSEMBLY ONLY                      CPSA134       64     A     
 COMPASS            ZR     B7,ARG2B    IF SPACE ENCOUNTERED                                CPSA134       65     A     
 COMPASS                                                                                   CPSA134       66     A     
 COMPASS            SB7    X4-1R.      RETURN IF TERMINATOR                                CMP30        478     A     
 COMPASS            SB6    X4-1R)                                                          CMP30        479     A     
 COMPASS            ZR     B7,ARG                                                          CMP30        480     A     
 COMPASS            ZR     B6,ARG                                                          CMP30        481     A     
 COMPASS            SB3    -B1                                                             CMP30        482     A     
 COMPASS            NE     B6,B1,ARG3  IF NOT $                                            CMP30        483          I
          -CPS061 
 COMPASS            NE     B6,B1,ARG2A IF NOT $                                            CPS061         5     A     
 COMPASS            SB3    B0                                                              CMP30        484     A     
 COMPASS   ARG2A    SA4    ARGQ        CHECK VERB                                          CPS061         6     A     
 COMPASS            BX6    X6-X4                                                           CPS061         7     A     
 COMPASS            NZ     X6,ARG3     IF NOT *EXECUTE*                                    CPS061         8     A     
 COMPASS            RJ     GAV         SKIP FIRST ARGUMENT                                 CPS061         9     A     
 COMPASS                                                                                   CMP30        485     A     
 COMPASS  *         PROCESS NEXT KEYWORD.                                                  CMP30        486     A     
 COMPASS                                                                                   CMP30        487     A     
 COMPASS   ARG3     MI     B4,ARG      RETURN IF TERMINATOR                                CMP30        488     A     
 COMPASS            RJ     GAV         GET ARGUMENT VALUE                                  CMP30        489     A     
 COMPASS            ZR     X6,ARG3     IGNORE EMPTY ARGUMENT                               CMP30        490     A     
 COMPASS            SA2    OPT                                                             CMP30        491     A     
 COMPASS            MX3    12                                                              CMP30        492     A     
 COMPASS            SB7    LOPT                                                            CMP30        493     A     
 COMPASS            SA6    ARGM+3                                                          CMP30        494     A     
 COMPASS   ARG4     BX4    X3*X2       SEARCH KEYWORD LIST                                 CMP30        495     A     
 COMPASS            SB7    B7-1                                                            CMP30        496     A     
 COMPASS            BX7    X4-X6                                                           CMP30        497     A     
 COMPASS            ZR     X7,ARG5     IF FOUND                                            CMP30        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/28. 19.11.32.      PAGE 220    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    A2+1                                                            CMP30        499     A     
 COMPASS            NZ     B7,ARG4     LOOP                                                CMP30        500     A     
 COMPASS            EQ     ARGE                                                            CMP30        501     A     
 COMPASS   ARG5     SB7    X2                                                              CMP30        502     A     
 COMPASS            AX2    30                                                              CMP30        503          I
          -CPS214 
 COMPASS            BX7    X2                                                              CPS214         4     A     
 COMPASS            LX7    59-29                                                           CPS214         5     A     
 COMPASS            MI     X7,ARG5A    IF MULTIPLE OCCURRANCES OK                          CPS214         6     A     
 COMPASS            LX7    29-28                                                           CPS214         7     A     
 COMPASS            MI     X7,ARGE     IF NOT FIRST OCCUR.                                 CPS214         8     A     
 COMPASS            MX4    1                                                               CPS214         9     A     
 COMPASS            BX7    X4+X7                                                           CPS214        10     A     
 COMPASS            LX7    28+1        RESTORE AND SET *OCCURRED*                          CPS214        11     A     
 COMPASS            SA7    A2                                                              CPS214        12     A     
 COMPASS                                                                                   CPS214        13     A     
 COMPASS   ARG5A    AX2    30                                                              CPS214        14     A     
 COMPASS            SB6    X2                                                              CMP30        504     A     
 COMPASS            PL     B6,ARG6     IF = ALLOWED                                        CMP30        505     A     
 COMPASS            SX2    -B6                                                             CMP30        506     A     
 COMPASS   ARG6     SA2    X2          GET DEFAULT VALUE                                   CMP30        507     A     
 COMPASS            BX7    X2                                                              CMP30        508     A     
 COMPASS            MI     B7,ARG7     IF SPECIAL ARGUMENT                                 CMP30        509     A     
 COMPASS   ARG6A    BSS    0                                                               CPSA142       28     A     
 COMPASS            SX2    B4-3                                                            CMP30        510     A     
 COMPASS            SA7    B7          STORE DEFAULT VALUE                                 CMP30        511     A     
 COMPASS            NZ     X2,ARG3     IF NO =                                             CMP30        512     A     
 COMPASS            MI     B6,ARGE     IF = NOT ALLOWED                                    CMP30        513     A     
 COMPASS            SB2    B6          SAVE LOC. OF DEFAULT OF ARG.                        CPS151         6     A     
 COMPASS            RJ     GAV         GET ARGUMENT VALUE                                  CMP30        514     A     
 COMPASS            SA6    B7                                                              CMP30        515     A     
 COMPASS            EQ     ARG3                                                            CMP30        516          I
          -CPS151 
 COMPASS            SB7    OPTI        TEST FOR ILLEGAL ARGUMENT *I=0*.                    CPS151         7     A     
 COMPASS            NE     B2,B7,TXARG IF *ARG"I* TEST FOR *ARG=X*.                        CPS151         8     A     
 COMPASS            ZR     X6,ARGE     ELSE IF *I=0* PRINT ERROR MESSAGE AND ABORT         CPS151         9     A     
 COMPASS   TXARG    SB7    OPTX             ELSE TEST FOR ILLEGAL ARGUMENT *X=0*.          CPS151        10     A     
 COMPASS            NE     B2,B7,ARG3  IF *ARG"X* CONTINUE PROCESSING.                     CPS151        11     A     
 COMPASS            NZ     X6,ARG3     ELSE IF *X"0* CONTINUE PROCESSING.                  CPS151        12     A     
 COMPASS            EQ     ARGE             ELSE PRINT ERROR MESSAGE AND ABORT.            CPS151        13     A     
 COMPASS   ARG7     SB7    -B7         PROCESS SPECIAL ARGUMENT                            CMP30        517     A     
 COMPASS            JP     B7                                                              CMP30        518     A     
 COMPASS                                                                                   CMP30        519     A     
 COMPASS  *         PROCESS *E* AND *O* ARGUMENTS                                          CPSA142       29     A     
 COMPASS                                                                                   CPSA142       30     A     
 COMPASS   ARG7A    SA1    ERFFLG                                                          CPSA142       31     A     
 COMPASS            NZ,X1  ARGE        IF BOTH E AND O ARE SPECIFIED, ERROR                CPSA142       32     A     
 COMPASS            SX6    B1                                                              CPSA142       33     A     
 COMPASS            SA6    A1          SET FLAG TO INDICATE E OR O SPECIFIED               CPSA142       34     A     
 COMPASS            SB7    ELFN        CELL TO STORE DEFAULT IN                            CPSA142       35     A     
 COMPASS            EQ     ARG6A                                                           CPSA142       36     A     
 COMPASS                                                                                   CPSA142       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/28. 19.11.32.      PAGE 221    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         PROCESS *G* ARGUMENT - G, G=0, G=LFN, OR G=LFN/OVL.                    CMP30        520     A     
 COMPASS                                                                                   CMP30        521     A     
 COMPASS   ARG8     SB7    B4-3        LFN = *SYSTEXT*                                     CMP30        522     A     
 COMPASS            MX6    0           OVL = NO NAME                                       CMP30        523     A     
 COMPASS            NZ     B7,ARG9     IF NO =                                             CMP30        524     A     
 COMPASS            RJ     GAV         GET FILE NAME                                       CMP30        525     A     
 COMPASS            SB7    B4-2                                                            CMP30        526     A     
 COMPASS            BX7    X6                                                              CMP30        527     A     
 COMPASS            MX6    0                                                               CMP30        528     A     
 COMPASS            NZ     B7,ARG9     IF NO /                                             CMP30        529     A     
 COMPASS            RJ     GAV         GET OVERLAY NAME                                    CMP30        530     A     
 COMPASS   ARG9     ZR     X7,ARG3     IF *G=0*, IGNORE IT                                 CMP30        531     A     
 COMPASS            SX2    B1                                                              CMP30        532     A     
 COMPASS            BX6    X6+X2       SET *G* FLAG                                        CMP30        533     A     
 COMPASS            EQ     ARG12                                                           CMP30        534     A     
 COMPASS                                                                                   CMP30        535     A     
 COMPASS  *         PROCESS *S* ARGUMENT - S, S=0, S=OVL, OR S=LIB/OVL.                    CMP30        536     A     
 COMPASS                                                                                   CMP30        537     A     
 COMPASS   ARG10    SB7    B4-3                                                            CMP30        538     A     
 COMPASS            BX6    X7          OVL = *SYSTEXT*                                     CMP30        539     A     
 COMPASS            MX7    0           LIB = NO NAME                                       CMP30        540     A     
 COMPASS            NZ     B7,ARG11    IF NO =                                             CMP30        541     A     
 COMPASS            RJ     GAV         GET LIB OR OVL                                      CMP30        542     A     
 COMPASS            SB7    B4-2                                                            CMP30        543     A     
 COMPASS            NZ     B7,ARG11    IF NO /                                             CMP30        544     A     
 COMPASS            BX7    X6          SET LIBRARY NAME                                    CMP30        545     A     
 COMPASS            RJ     GAV         GET OVERLAY NAME                                    CMP30        546     A     
 COMPASS   ARG11    NZ     X6,ARG12    IF NOT *S=0*                                        CMP30        547     A     
 COMPASS            SA6    CP.LIB      SET *S=0* FLAG                                      CMP30        548     A     
 COMPASS            EQ     ARG3                                                            CMP30        549     A     
 COMPASS   ARG12    SA2    CP.STEXT    GET SYSTEM TEXT COUNTER                             CMP30        550     A     
 COMPASS            SB6    X2-7                                                            CMP30        551     A     
 COMPASS            SB7    X2+B1                                                           CMP30        552     A     
 COMPASS            ZR     B6,ARG13    IF HAVE 7 ALREADY                                   CMP30        553     A     
 COMPASS            SA6    A2+B7       STORE OVERLAY NAME                                  CMP30        554     A     
 COMPASS            SA7    CP.LIB+B7   STORE FILE OR LIBRARY NAME                          CMP30        555     A     
 COMPASS            SX6    B7                                                              CMP30        556     A     
 COMPASS            SA6    A2          STORE UPDATED COUNT                                 CMP30        557     A     
 COMPASS            EQ     ARG3                                                            CMP30        558     A     
 COMPASS   ARG13    MESSAGE ARGN,,R    *MORE THAN 7 SYSTEM TEXTS SPECIFIED.*               CMP30        559     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30        560     A     
 COMPASS                                                                                   CMP30        561     A     
 COMPASS  *         PROCESS *ML* ARGUMENT.                                                 CMP30        562     A     
 COMPASS                                                                                   CMP30        563     A     
 COMPASS   ARG14    SB7    CP.MODL                                                         CMP30        564     A     
 COMPASS            EQ     ARG16                                                           CMP30        565     A     
 COMPASS                                                                                   CMP30        566     A     
 COMPASS  *         PROCESS *LO* ARGUMENT.                                                 CMP30        567     A     
 COMPASS                                                                                   CMP30        568     A     
 COMPASS   ARG15    SB7    SLFA                                                            CMP30        569     A     
 COMPASS   ARG16    SB6    B4-3                                                            CMP30        570     A     
 COMPASS            MX6    0                                                               CMP30        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/28. 19.11.32.      PAGE 222    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    B7          STORE DEFAULT VALUE                                 CMP30        572     A     
 COMPASS            NZ     B6,ARG3     IF NO =                                             CMP30        573     A     
 COMPASS            SB6    54                                                              CMP30        574     A     
 COMPASS   ARG17    RJ     GAC         GET ARGUMENT CHARACTER                              CMP30        575     A     
 COMPASS            NZ     B4,ARG18    IF SEPARATOR                                        CMP30        576     A     
 COMPASS            LX4    B6                                                              CMP30        577     A     
 COMPASS            BX6    X6+X4                                                           CMP30        578     A     
 COMPASS            SB6    B6-6                                                            CMP30        579     A     
 COMPASS            PL     B6,ARG17    IF NOT MORE THAN 9 CHARACTERS                       CMP30        580     A     
 COMPASS            EQ     ARGE                                                            CMP30        581     A     
 COMPASS   ARG18    SA6    B7          STORE ARGUMENT                                      CMP30        582     A     
 COMPASS            EQ     ARG3                                                            CMP30        583     A     
 COMPASS                                                                                   CMP30        584     A     
 COMPASS  *         PROCESS *PC* ARGUMENT.                                                 CMP30        585     A     
 COMPASS                                                                                   CMP30        586     A     
 COMPASS   ARG19    SB7    3                                                               CMP30        587     A     
 COMPASS            SB6    54                                                              CMP30        588     A     
 COMPASS            NE     B4,B7,ARG3  IF NO =                                             CMP30        589     A     
 COMPASS            SB7    -B7                                                             CMP30        590     A     
 COMPASS            MX6    0                                                               CMP30        591     A     
 COMPASS   ARG20    RJ     GAC         GET ARGUMENT CHARACTER                              CMP30        592     A     
 COMPASS            NZ     B4,ARG22    IF SEPARATOR                                        CMP30        593     A     
 COMPASS            LX4    B6                                                              CMP30        594     A     
 COMPASS            BX6    X6+X4                                                           CMP30        595     A     
 COMPASS            SB6    B6-6                                                            CMP30        596     A     
 COMPASS            PL     B6,ARG20    IF WORD NOT FULL                                    CMP30        597     A     
 COMPASS            PL     B7,ARG21    IF ALREADY HAVE 30 CHARACTERS                       CMP30        598     A     
 COMPASS            SA6    CP.PCOM+3+B7                                                    CMP30        599     A     
 COMPASS   ARG21    SB7    B7+B1       COUNT WORDS                                         CMP30        600     A     
 COMPASS            SB6    54                                                              CMP30        601     A     
 COMPASS            MX6    0                                                               CMP30        602     A     
 COMPASS            EQ     ARG20                                                           CMP30        603     A     
 COMPASS   ARG22    PL     B7,ARG3     IF 30 CHARACTERS ALREADY STORED                     CMP30        604     A     
 COMPASS            SA2    BLANKS                                                          CMP30        605          I
          -CPS010 
 COMPASS            SA2    ARGL                                                            CPS010        12     A     
 COMPASS            SB6    B6-48                                                           CMP30        606     A     
 COMPASS            SB2    6                                                               CMP30        607     A     
 COMPASS            MX3    0                                                               CMP30        608     A     
 COMPASS            EQ     B6,B2,ARG23 IF WORD IS EMPTY                                    CMP30        609     A     
 COMPASS            MX3    6                                                               CMP30        610     A     
 COMPASS            LX3    B6                                                              CMP30        611     A     
 COMPASS   ARG23    BX7    -X3*X2      BLANK FILL LAST WORD                                CMP30        612     A     
 COMPASS            BX6    X6+X7                                                           CMP30        613     A     
 COMPASS            SA6    CP.PCOM+3+B7                                                    CMP30        614     A     
 COMPASS            EQ     ARG3                                                            CMP30        615     A     
 COMPASS                                                                                   CMP30        616     A     
 COMPASS  *         PROCESS *PD* ARGUMENT.                                         F4810A  F4810A        23     A     
 COMPASS                                                                           F4810A  F4810A        24     A     
 COMPASS   ARG24    SB7    B4-3        CHECK IF =                                  F4810A  F4810A        25     A     
 COMPASS            SX2    8           SECOND DEFAULT                              F4810A  F4810A        26     A     
 COMPASS            NZ     B7,ARG25    IF NO = , GO SET CP.PD TO SECOND DEFAULT    F4810A  F4810A        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/28. 19.11.32.      PAGE 223    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     GAV         GET PRINT DENSITY                           F4810A  F4810A        28     A     
 COMPASS            RJ     CDB         CONVERT DISPLAY CODE TO BINARY EQUIVALENT   F4810A  F4810A        29     A     
 COMPASS            MI     X2,ARG3     IF ERROR, RETURN (CP.PD=DEFAULT)            F4810A  F4810A        30     A     
 COMPASS            SX1    X2-8                                                    F4810A  F4810A        31     A     
 COMPASS            ZR     X1,ARG25    IF 8 LINES/INCH                             F4810A  F4810A        32     A     
 COMPASS            SX1    X2-6                                                    F4810A  F4810A        33     A     
 COMPASS            NZ     X1,ARG3     IF NOT 6 OR 8 LINES/INCH CP.PD=DEFAULT      F4810A  F4810A        34     A     
 COMPASS   ARG25    BX7    X2          ELSE                                        F4810A  F4810A        35     A     
 COMPASS            SA7    CP.PD       SET PRINT DENSITY                           F4810A  F4810A        36     A     
 COMPASS            SA1    PSIZE                                                   F4810A  F4810A        37          I
          -CPSA265
 COMPASS            NZ     X1,ARG3     IF PS ARGUMENT WAS SPECIFIED, RETURN        F4810A  F4810A        38          I
          -CPSA265
 COMPASS            SX1    IP.PD       ELSE CALCULATE PAGE SIZE BY THE FOLLOWING   F4810A  F4810A        39          I
          -CPSA265
 COMPASS            SX2    IP.PS       FORMULA PS=(PD*IP.PS)/IP.PD                 F4810A  F4810A        40          I
          -CPSA265
 COMPASS            SA1    CP.PS       IF PS ARG WAS SPECIFIED, RETURN                     CPSA265        8     A     
 COMPASS            NZ     X1,ARG3                                                         CPSA265        9     A     
 COMPASS            GETPAGE SPFA       ELSE CALC. PAGE SIZE USING                          CPSA265       10     A     
 COMPASS            SA1    CP.PD         DEFAULT VALUES TO RATIO                           CPSA265       11     A     
 COMPASS            BX7    X1                                                              CPSA265       12          I
          -CPSA282
 COMPASS            BX2    X1                                                              CPSA282        7     A     
 COMPASS            SA1    SPFA                                                            CPSA265       13     A     
 COMPASS            MX3    59          CLEAR COMPLETION BIT                                CPSA282        8     A     
 COMPASS            BX7    X3*X1                                                           CPSA282        9     A     
 COMPASS            SA7    A1                                                              CPSA282       10     A     
 COMPASS            MX3    -8          *PS* FIELD SIZE                                     CPSA265       14     A     
 COMPASS            BX7    X2                                                              CPSA282       11     A     
 COMPASS            AX1    20          POSITION FOR *PS*                                   CPSA265       15     A     
 COMPASS            BX2    -X3*X1      EXTRACT DEFAULT *PS*                                CPSA265       16     A     
 COMPASS            AX1    8           POSITION FOR *PD*                                   CPSA265       17     A     
 COMPASS            MX3    -4          *PS* FIELD SIZE                                     CPSA265       18     A     
 COMPASS            BX1    -X3*X1      EXTRACT DEFAULT *PD*                                CPSA265       19     A     
 COMPASS            IX7    X7*X2                                                   F4810A  F4810A        41     A     
 COMPASS            IX7    X7/X1                                                   F4810A  F4810A        42     A     
 COMPASS            SA7    CP.PS       STORE CALCULATED PAGE SIZE                  F4810A  F4810A        43     A     
 COMPASS            EQ     ARG3        RETURN                                      F4810A  F4810A        44     A     
 COMPASS                                                                           F4810A  F4810A        45     A     
 COMPASS  *         PROCESS *PS* ARGUMENT.                                         F4810A  F4810A        46     A     
 COMPASS                                                                           F4810A  F4810A        47     A     
 COMPASS   ARG26    SB7    B4-3        CHECK IF =                                  F4810A  F4810A        48     A     
 COMPASS            SX7    B1                                                      F4810A  F4810A        49          I
          -CPSA265
 COMPASS            SA7    PSIZE       SET TO PREVENT PD PROC. FROM CALC. CP.PS    F4810A  F4810A        50          I
          -CPSA265
 COMPASS            SX7    IP.PS       INSURE DEFAULT SET IF INVALID PS VALUE      F4810A  F4810A        51          I
          -CPSA265
 COMPASS            SA7    CP.PS                                                   F4810A  F4810A        52          I
          -CPSA265
 COMPASS            NZ     B7,ARG3     IF NO = , RETURN (CP.PS=DEFAULT)            F4810A  F4810A        53          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 224    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA265
 COMPASS            RJ     GAV         GET PAGE SIZE                               F4810A  F4810A        54          I
          -CPSA265
 COMPASS            RJ     CDB         CONVERT DISPLAY CODE TO BINARY EQUIVALENT   F4810A  F4810A        55          I
          -CPSA265
 COMPASS            MI     X2,ARG3     IF ERROR, RETURN (CP.PS=DEFAULT)            F4810A  F4810A        56          I
          -CPSA265
 COMPASS            SB7    X2-99D                                                  F4810A  F4810A        57          I
          -CPSA265
 COMPASS            GT     B7,ARG3     IF GREATER THAN MAX, RETURN (CP.PS=DEFAULT) F4810A  F4810A        58          I
          -CPSA265
 COMPASS            SX1    X2-4D                                                   F4810A  F4810A        59          I
          -CPSA265
 COMPASS            MI     X1,ARG3     IF LESS THAN MINIMUM, RETURN(CP.PS=DEFAULT) F4810A  F4810A        60          I
          -CPSA265
 COMPASS            BX7    X2                                                      F4810A  F4810A        61          I
          -CPSA265
 COMPASS            SA7    CP.PS       SET PAGE SIZE                               F4810A  F4810A        62          I
          -CPSA265
 COMPASS            EQ     ARG3        RETURN                                      F4810A  F4810A        63          I
          -CPSA265
 COMPASS            NZ     B7,ARG3     IF NO = , RETURN JOB DEFAULT                        CPSA265       20     A     
 COMPASS            RJ     GAV         GET PAGE SIZE VALUE                                 CPSA265       21     A     
 COMPASS            RJ     CDB         CONVERT DISPLAY CODE TO BINARY EQUIVALENT           CPSA265       22     A     
 COMPASS            MI     X2,ARG3     IF ERROR, USE JOB DEFAULT                           CPSA265       23     A     
 COMPASS            SX7    99D         PRESET MAX =99D                                     CPSA265       24     A     
 COMPASS            IX1    X7-X2                                                           CPSA265       25     A     
 COMPASS            NG     X1,ARG27    IF .GT. MAX, USE JOB MAX = 99D                      CPSA265       26     A     
 COMPASS            SX7    4D          PRESET MIN = 4                                      CPSA265       27     A     
 COMPASS            IX1    X2-X7                                                           CPSA265       28     A     
 COMPASS            NG     X1,ARG27    IF .LT. MIN, USE MIN = 4                            CPSA265       29     A     
 COMPASS            BX7    X2                                                              CPSA265       30     A     
 COMPASS            SA7    CP.PS       SET PAGE SIZE                                       CPSA265       31     A     
 COMPASS            EQ     ARG3        RETURN                                              CPSA265       32     A     
 COMPASS                                                                                   CPSA265       33     A     
 COMPASS   ARG27    SA7    CP.PS       STORE ADJUSTED PAGE SIZE                            CPSA265       34     A     
 COMPASS            MESSAGE ARGA,,R    DIAGNOSE INCORRECT PAGE SIZE                        CPSA265       35     A     
 COMPASS            EQ     ARG3        RETURN                                              CPSA265       36     A     
 COMPASS                                                                           F4810A  F4810A        64     A     
 COMPASS  *         ERROR EXIT.                                                            CMP30        617     A     
 COMPASS                                                                                   CMP30        618     A     
 COMPASS   ARGE     MESSAGE ARGM,,R                                                        CMP30        619     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30        620     A     
 COMPASS                                                                                   CMP30        621          I
          -F4810A 
 COMPASS   ARGL     DATA   10H                                                             CPS010        13          I
          -F4810A 
 COMPASS   ARGM     DIS    ,*  BAD CONTROL CARD ARGUMENT - XXXXXXX*                        CMP30        622          I
          -F4810A 
 COMPASS   ARGN     DIS    ,*  MORE THAN 7 SYSTEM TEXTS SPECIFIED.*                        CMP30        623          I
          -F4810A 
 COMPASS   ARGQ     CON    0REXECUTE                                                       CPS061        10          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 225    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F4810A 
 COMPASS   GAC      SPACE  4                                                               CMP30        624     A     
 COMPASS  **        GAC - GET ARGUMENT CHARACTER.                                          CMP30        625     A     
 COMPASS  *         ENTRY  (X0) = MASK -6.                                                 CMP30        626     A     
 COMPASS  *                (X5) = CURRENT WORD OF CARD IMAGE.                              CMP30        627     A     
 COMPASS  *                (A0) = 10.                                                      CMP30        628     A     
 COMPASS  *                (A5) = ADDRESS OF (X5).                                         CMP30        629     A     
 COMPASS  *                (B3) = $ MODE,  -1 = NORMAL,  0 = STRING MODE.                  CMP30        630     A     
 COMPASS  *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5).                  CMP30        631     A     
 COMPASS  *         EXIT   (X4) = CHARACTER.                                               CMP30        632     A     
 COMPASS  *                (B4) = CHARACTER TYPE,  -1 = TERMINATOR,  0 = ALPHANUM,         CMP30        633     A     
 COMPASS  *                            +1 = SEPARATOR,  +2 = /, +3 = =.                    CMP30        634     A     
 COMPASS  *                (X5, A5, B3, B5)  UPDATED.                                      CMP30        635     A     
 COMPASS  *         USES   X1-X4, A1-A3, A6.                                               CMP30        636     A     
 COMPASS  *         CALLS  CONTRLC, MESSAGE.                                               CMP30        637     A     
 COMPASS                                                                                   CMP30        638     A     
 COMPASS                                                                                   CMP30        639     A     
 COMPASS   GAC      PS                 RETURN EXIT                                         CMP30        640     A     
 COMPASS   GAC1     ZR     B5,GAC5     IF (X5) IS EMPTY                                    CMP30        641     A     
 COMPASS            LX5    6                                                               CMP30        642     A     
 COMPASS            SB5    B5-B1       EXTRACT NEXT CHARACTER                              CMP30        643     A     
 COMPASS            BX4    -X0*X5                                                          CMP30        644     A     
 COMPASS            SB4    X4-1R$                                                          CMP30        645     A     
 COMPASS            ZR     B4,GAC3     IF $                                                CMP30        646     A     
 COMPASS            ZR     B3,GAC4     IF IN STRING MODE                                   CMP30        647     A     
 COMPASS            SB4    B0                                                              CMP30        648     A     
 COMPASS            MI     B3,GAC2     IF NOT LEAVING STRING MODE                          CMP30        649     A     
 COMPASS            SB3    -B1                                                             CMP30        650     A     
 COMPASS   GAC2     SX2    X4-1R9-1    CLASSIFY CHARACTER                                  CMP30        651     A     
 COMPASS            SX3    X4-1R.-1                                                        CMP30        652     A     
 COMPASS            MI     X2,GAC      IF ALPHANUMERIC, RETURN                             CMP30        653     A     
 COMPASS            SB4    B1                                                              CMP30        654     A     
 COMPASS            LX2    2                                                               CMP30        655     A     
 COMPASS            PL     X3,GAC      IF NON-DISPLAY, RETURN                              CMP30        656     A     
 COMPASS            SA3    GACA                                                            CMP30        657     A     
 COMPASS            SB4    X2                                                              CMP30        658     A     
 COMPASS            LX2    X3,B4       GET CHARACTER TYPE CODE                             CMP30        659     A     
 COMPASS            AX2    56                                                              CMP30        660     A     
 COMPASS            SB4    X2                                                              CMP30        661     A     
 COMPASS            NZ     X2,GAC      IF NOT BLANK, RETURN                                CMP30        662     A     
 COMPASS            PL     X2,GAC                                                          CMP30        663     A     
 COMPASS            EQ     GAC1        IGNORE BLANK                                        CMP30        664     A     
 COMPASS   GAC3     SB3    B3+B1                                                           CMP30        665     A     
 COMPASS            LE     B3,B1,GAC1  IF NOT SECOND $ OF A PAIR IN STRING MODE            CMP30        666     A     
 COMPASS            SB3    B0                                                              CMP30        667     A     
 COMPASS   GAC4     SB4    B0          STRING MODE, RETURN WITH CHARACTER TYPE = 0         CMP30        668     A     
 COMPASS            EQ     GAC                                                             CMP30        669     A     
 COMPASS   GAC5     SA1    GACC                                                            CMP30        670     A     
 COMPASS            SB5    A0                                                              CMP30        671     A     
 COMPASS            SA5    A5+B1                                                           CMP30        672     A     
 COMPASS            ZR     X1,GAC7     IF INITIAL ENTRY                                    CMP30        673     A     
 COMPASS            NZ     X5,GAC1     IF NOT END OF CARD                                  CMP30        674     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 226    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     X5,GAC1                                                         CMP30        675     A     
 COMPASS            SA6    GACB        SAVE (X6)                                           CMP30        676     A     
 COMPASS            SA3    RA.PGN      SAVE FILE NAME FROM RA+64                           CPSA291        9     A     
 COMPASS            IF     DEF,NOS,2                                                       CPSA291       10     A     
 COMPASS            CONTRLC GACC,,,CRACK  READ NEXT CONTROL STATEMENT                      CPSA291       11     A     
 COMPASS            ELSE   1                                                               CPSA291       12     A     
 COMPASS            CONTRLC GACC       READ NEXT CARD                                      CMP30        677     A     
 COMPASS            BX6    X3          RESTORE FILE NAME                                   CPSA291       13     A     
 COMPASS            SA6    A3                                                              CPSA291       14     A     
 COMPASS            SA1    RA.CCD                                                          CMP30        678     A     
 COMPASS            NZ     X1,GAC6                                                         CMP30        679     A     
 COMPASS            PL     X1,GAC9     IF END OF CONTROL CARDS                             CMP30        680     A     
 COMPASS   GAC6     MESSAGE RA.CCD,,R                                                      CMP30        681     A     
 COMPASS   GAC7     SX6    10B         SET *READ* REQUEST FOR NEXT CONTROL CARD            CMP30        682     A     
 COMPASS            SB4    55                                                              CMP30        683     A     
 COMPASS            SA6    GACC                                                            CMP30        684     A     
 COMPASS            SA2    BLANKS                                                          CMP30        685          I
          -CPS057 
 COMPASS            SA2    GACF                                                            CPS057         1     A     
 COMPASS            MX6    0           STORE ZERO WORD AFTER CARD IMAGE                    CMP30        686     A     
 COMPASS            SA6    RA.CCD+8                                                        CMP30        687     A     
 COMPASS            BX6    X2                                                              CMP30        688     A     
 COMPASS   GAC8     SA5    A6-B1       BLANK FILL CARD IMAGE                               CMP30        689     A     
 COMPASS            SA6    A5                                                              CMP30        690     A     
 COMPASS            ZR     X5,GAC8                                                         CMP30        691     A     
 COMPASS            MX1    -1                                                              CMP30        692     A     
 COMPASS            IX4    X5+X1                                                           CMP30        693     A     
 COMPASS            SA2    GACD                                                            CMP30        694     A     
 COMPASS            BX1    -X5*X4                                                          CMP30        695     A     
 COMPASS            BX4    X1*X2                                                           CMP30        696     A     
 COMPASS            LX1    X4,B4                                                           CMP30        697     A     
 COMPASS            IX2    X4-X1                                                           CMP30        698     A     
 COMPASS            BX1    X4+X2                                                           CMP30        699     A     
 COMPASS            BX2    X1*X6                                                           CMP30        700     A     
 COMPASS            IX6    X5+X2                                                           CMP30        701     A     
 COMPASS            SA6    A6                                                              CMP30        702     A     
 COMPASS            SA1    GACB                                                            CMP30        703     A     
 COMPASS            BX6    X1          RESTORE (X6)                                        CMP30        704     A     
 COMPASS            SA5    RA.CCD      SCAN NEW CARD                                       CMP30        705     A     
 COMPASS            EQ     GAC1                                                            CMP30        706     A     
 COMPASS                                                                                   CMP30        707     A     
 COMPASS   GAC9     MESSAGE GACE       *NO CONTROL CARD TERMINATOR.*                       CMP30        708     A     
 COMPASS            SA1    GACB                                                            CMP30        709     A     
 COMPASS            SB4    -B1         FORCE TERMINATOR CODE                               CMP30        710     A     
 COMPASS            BX6    X1          RESTORE (X6)                                        CMP30        711     A     
 COMPASS            EQ     GAC         RETURN                                              CMP30        712     A     
 COMPASS                                                                                   CMP30        713          I
          -F4810A 
 COMPASS  *                  +   -   *   /   (    )   $   =   BL   ,    .                  CMP30        714          I
          -F4810A 
 COMPASS   GACA     VFD    4/1,4/1,4/0,4/2,4/1,4/-1,4/0,4/3,4/-0,4/1,4/-1,16/0             CMP30        715          I
          -F4810A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 227    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   GACB     CON    0           STORAGE FOR SAVING (X6)                             CMP30        716          I
          -F4810A 
 COMPASS   GACC     CON    0           STATUS WORD FOR CONTRLC                             CMP30        717          I
          -F4810A 
 COMPASS   GACD     CON    40404040404040404040B                                           CMP30        718          I
          -F4810A 
 COMPASS   GACE     DATA   C* NO CONTROL CARD TERMINATOR.*                                 CMP30        719          I
          -F4810A 
 COMPASS   GACF     DATA   10H                                                             CPS057         2          I
          -F4810A 
 COMPASS   GAV      SPACE  4                                                               CMP30        720     A     
 COMPASS  **        GAV - GET ARGUMENT VALUE.                                              CMP30        721     A     
 COMPASS  *         ENTRY  (X0) = MASK -6.                                                 CMP30        722     A     
 COMPASS  *                (X5) = CURRENT WORD OF CARD IMAGE.                              CMP30        723     A     
 COMPASS  *                (A0) = 10.                                                      CMP30        724     A     
 COMPASS  *                (A5) = ADDRESS OF (X5).                                         CMP30        725     A     
 COMPASS  *                (B3) = $ MODE.                                                  CMP30        726     A     
 COMPASS  *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5).                  CMP30        727     A     
 COMPASS  *         EXIT   (X6) = VALUE SCANNED, LEFT JUSTIFIED WITH 00 FILL.              CMP30        728     A     
 COMPASS  *                (X4) = CHARACTER FOLLOWING ARGUMENT.                            CMP30        729     A     
 COMPASS  *                (B4) = CHARACTER TYPE.                                          CMP30        730     A     
 COMPASS  *                (X5, A5, B3, B5)  UPDATED.                                      CMP30        731     A     
 COMPASS  *                IF VALUE SCANNED IS *0*, (X6) IS CLEARED TO 60 ZEROS.           CMP30        732     A     
 COMPASS  *                IF VALUE SCANNED IS MORE THAN 7 CHARACTERS, ABORT.              CMP30        733     A     
 COMPASS  *         USES   X1-X3, A1-A3, A6, B6.                                           CMP30        734     A     
 COMPASS  *         CALLS  GAC.                                                            CMP30        735     A     
 COMPASS                                                                                   CMP30        736     A     
 COMPASS                                                                                   CMP30        737     A     
 COMPASS   GAV      PS                 RETURN EXIT                                         CMP30        738     A     
 COMPASS            SX6    0                                                               CMP30        739     A     
 COMPASS            SB6    54                                                              CMP30        740     A     
 COMPASS   GAV1     RJ     GAC         GET ARGUMENT CHARACTER                              CMP30        741     A     
 COMPASS            NZ     B4,GAV2                                                         CMP30        742     A     
 COMPASS            LX4    B6                                                              CMP30        743     A     
 COMPASS            BX6    X6+X4                                                           CMP30        744     A     
 COMPASS            SB6    B6-6                                                            CMP30        745     A     
 COMPASS            NZ     B6,GAV1     LOOP                                                CMP30        746     A     
 COMPASS   GAV2     MX2    42                                                              CMP30        747     A     
 COMPASS            BX2    -X2*X6                                                          CMP30        748     A     
 COMPASS            NZ     X2,ARGE     IF MORE THAN 7 CHARACTERS                           CMP30        749     A     
 COMPASS            LX6    18                                                              CMP30        750     A     
 COMPASS            SX2    X6-1L0                                                          CMP30        751     A     
 COMPASS            LX6    -18                                                             CMP30        752     A     
 COMPASS            NZ     X2,GAV      IF NOT *0*                                          CMP30        753     A     
 COMPASS            MX6    0                                                               CMP30        754     A     
 COMPASS            EQ     GAV         RETURN                                              CMP30        755     A     
 COMPASS            LIST   *                                                               COMPASS      358          I
          -CMP20  
 COMPASS   IFP      SPACE  4                                                               COMPASS      359     A     
 COMPASS  **        IFP - INITIALIZE FILE PARAMETERS.                                      COMPASS      360          I
          -F4810A 
 COMPASS   CDB      SPACE  4,10                                                    F4810A  F4810A        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/28. 19.11.32.      PAGE 228    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        CDB - CONVERTS DECIMAL DISPLAY CODE TO BINARY                  F4810A  F4810A        66     A     
 COMPASS  *                                                                        F4810A  F4810A        67     A     
 COMPASS  *         ENTRY  (X6) = PARAMETER LEFT JUSTIFIED ZERO FILL.              F4810A  F4810A        68     A     
 COMPASS  *         EXIT   (X2) = BINARY EQUIVALENT, MINUS IF ERROR.               F4810A  F4810A        69     A     
 COMPASS  *         USES   X - 1,2,3,4,6.                                          F4810A  F4810A        70     A     
 COMPASS  *                B - 2.                                                  F4810A  F4810A        71     A     
 COMPASS  *                A - NONE.                                               F4810A  F4810A        72     A     
 COMPASS  *                                                                        F4810A  F4810A        73     A     
 COMPASS  *         CALLS  NONE.                                                   F4810A  F4810A        74     A     
 COMPASS                                                                           F4810A  F4810A        75     A     
 COMPASS                                                                           F4810A  F4810A        76     A     
 COMPASS   CDB      PS     0           ENTRY/EXIT                                  F4810A  F4810A        77     A     
 COMPASS            MX1    42          MASK FOR UPPER 7 CHARACTERS OF PARAMETER    F4810A  F4810A        78     A     
 COMPASS            SB2    B1+B1       (B2) = 2                                    F4810A  F4810A        79     A     
 COMPASS            BX4    X1*X6       EXTRACT UPPER SEVEN CHARACTERS              F4810A  F4810A        80     A     
 COMPASS            SX2    B0          CLEAR ACCUMULATOR                           F4810A  F4810A        81     A     
 COMPASS   CDB1     MX1    -6          MASK FOR LOWER 6 BITS                       F4810A  F4810A        82     A     
 COMPASS            LX4    6           POSITION NEXT CHARACTER                     F4810A  F4810A        83     A     
 COMPASS            BX6    -X1*X4      GET CHARACTER                               F4810A  F4810A        84     A     
 COMPASS            ZR     X6,CDB      IF NO MORE DIGITS                           F4810A  F4810A        85     A     
 COMPASS            SX3    X6-1R9-1    CHECK IF ALPHANUMERIC                       F4810A  F4810A        86     A     
 COMPASS            PL     X3,CDB2     IF NOT ALPHANUMERIC                         F4810A  F4810A        87     A     
 COMPASS            SX3    X6-1R0      CONVERT NEW DIGIT TO BINARY                 F4810A  F4810A        88     A     
 COMPASS            MI     X3,CDB2     IF NOT A NUMBER                             F4810A  F4810A        89     A     
 COMPASS            LX6    X2,B2       MULTIPLY BY FOUR                            F4810A  F4810A        90     A     
 COMPASS            IX2    X2+X6       ADD IN NUMBER                               F4810A  F4810A        91     A     
 COMPASS            LX2    1           MULTIPLY BY TWO                             F4810A  F4810A        92     A     
 COMPASS            IX2    X2+X3       ADD IN NEW DIGIT                            F4810A  F4810A        93     A     
 COMPASS            EQ     CDB1        LOOP FOR NEXT DIGIT                         F4810A  F4810A        94     A     
 COMPASS                                                                           F4810A  F4810A        95     A     
 COMPASS   CDB2     SX2    -B1                                                     F4810A  F4810A        96     A     
 COMPASS            EQ     CDB         RETURN                                      F4810A  F4810A        97     A     
 COMPASS   IFP      SPACE  4                                                       F4810A  F4810A        98     A     
 COMPASS                                                                                   COMPASS      361     A     
 COMPASS                                                                                   COMPASS      362     A     
 COMPASS   IFP      PS                 RETURN EXIT                                         COMPASS      363     A     
 COMPASS            SA1    ELFN                                                            CMP30        756     A     
 COMPASS            BX6    X1                                                              CMP30        757     A     
 COMPASS            SA6    E           SET ERROR FILE NAME                                 CMP30        758     A     
 COMPASS                                                                                   CMP30        759     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30        760     A     
 COMPASS                                                                                   CMP30        761     A     
 COMPASS            MX0    42          SET INPUT FET                                       COMPASS      364     A     
 COMPASS            SA1    INPUT                                                           COMPASS      365          I
          -CMP30  
 COMPASS            SA1    I                                                               CMP30        762     A     
 COMPASS            SX5    B1                                                              COMPASS      366     A     
 COMPASS            BX2    X0*X1                                                           COMPASS      367     A     
 COMPASS            IX6    X2+X5                                                           COMPASS      368     A     
 COMPASS            SA6    I                                                               COMPASS      369          I
          -CMP30  
 COMPASS            SA1    LISTFG      SET OUTPUT FET                                      COMPASS      370          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 229    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA6    A1                                                              CMP30        763     A     
 COMPASS            SA1    B           SET BINARY FET                                      CMP30        764     A     
 COMPASS            SX7    7                                                               CMP30        765     A     
 COMPASS            BX2    X0*X1                                                           COMPASS      371     A     
 COMPASS            IX6    X2+X7                                                           CMP30        766     A     
 COMPASS            ZR     X2,IFP1     IF *B=0*                                            CMP30        767     A     
 COMPASS            SA6    A1                                                              CMP30        768     A     
 COMPASS   IFP1     SA1    O           SET OUTPUT FET                                      CMP30        769     A     
 COMPASS            SX5    5                                                               CMP30        770     A     
 COMPASS            SB7    B1+B1                                                           CMP30        771     A     
 COMPASS            BX2    X0*X1                                                           CMP30        772     A     
 COMPASS            SX3    A1                                                              CMP30        773     A     
 COMPASS            IX6    X2+X5                                                           COMPASS      372     A     
 COMPASS            AX1    42                                                              COMPASS      373          I
          -CMP30  
 COMPASS            SX7    X1-1L0                                                          COMPASS      374          I
          -CMP30  
 COMPASS            ZR     X2,IFP2     IF *L=0*                                            CMP30        774     A     
 COMPASS            BX7    X2+X3                                                           CMP30        775     A     
 COMPASS            SA6    A1                                                              COMPASS      375     A     
 COMPASS            SA6    O                                                               COMPASS      376          I
          -CMP30  
 COMPASS            NZ     X7,IFP1     IF LIST NAME NOT *0*                                COMPASS      377          I
          -CMP30  
 COMPASS            SA7    A6          CLEAR LIST FET NAME                                 COMPASS      378          I
          -CMP30  
 COMPASS            SA7    A1          CLEAR LIST FLAG                                     COMPASS      379          I
          -CMP30  
 COMPASS            SX7    ORGOVER-120B                                                    COMPASS      380          I
          -CMP30  
 COMPASS            SA7    O+1         SET INPUT TO LARGE BUFFER AND OUTPUT SMALL          COMPASS      381          I
          -CMP30  
 COMPASS            SA7    B7          STORE LIST POINTER                                  CMP30        776     A     
 COMPASS            SB7    B7+B1                                                           CMP30        777     A     
 COMPASS            EQ     IFP3                                                            CMP30        778     A     
 COMPASS   IFP2     MX7    0                                                               CMP30        779     A     
 COMPASS            SA7    CP.LISTF    CLEAR LIST FLAG                                     CMP30        780     A     
 COMPASS            SX7    OBUF+120B                                                       CMP30        781     A     
 COMPASS            SA7    O+4         SET INPUT TO LARGE BUFFER AND OUTPUT SMALL          CMP30        782     A     
 COMPASS            SA7    I+1                                                             CMP30        783     A     
 COMPASS            SA7    A7+B1                                                           COMPASS      382     A     
 COMPASS            SA7    A7+B1                                                           COMPASS      383     A     
 COMPASS            SA7    I+4                                                             COMPASS      384          I
          -CMP30  
 COMPASS   IFP1     BX2    X0*X6       STORE LIST POINTER                                  COMPASS      385          I
          -CMP30  
 COMPASS            SX7    A6                                                              COMPASS      386          I
          -CMP30  
 COMPASS            IX6    X2+X7                                                           COMPASS      387          I
          -CMP30  
 COMPASS            SA6    B1+B1                                                           COMPASS      388          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 230    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA1    BINARY      CHECK BINARY NAME                                   COMPASS      389          I
          -CMP30  
 COMPASS            BX2    X0*X1                                                           COMPASS      390          I
          -CMP30  
 COMPASS            AX1    42                                                              COMPASS      391          I
          -CMP30  
 COMPASS            SX6    X1-1L0                                                          COMPASS      392          I
          -CMP30  
 COMPASS            SX3    3                                                               CMP029         6          I
          -CMP30  
 COMPASS            ZR     X6,IFP2     IF *0*                                              COMPASS      393          I
          -CMP30  
 COMPASS            SX5    3                                                               COMPASS      394          I
          -CMP029   -CMP30  
 COMPASS            IX6    X2+X5                                                           COMPASS      395          I
          -CMP029   -CMP30  
 COMPASS            IX6    X2+X3                                                           CMP029         7          I
          -CMP30  
 COMPASS   IFP2     SA6    A1                                                              COMPASS      396          I
          -CMP30  
 COMPASS            SA1    E           SET ERROR FILE                                      COMPASS      397          I
          -CMP30  
 COMPASS            BX2    X0*X1                                                           COMPASS      398          I
          -CMP30  
 COMPASS            IX6    X2+X5                                                           COMPASS      399          I
          -CMP30  
 COMPASS            AX1    42                                                              COMPASS      400          I
          -CMP30  
 COMPASS            SX7    X1-1L0                                                          COMPASS      401          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS      402          I
          -CMP30  
 COMPASS            SX6    A1                                                              COMPASS      403          I
          -CMP029   -CMP30  
 COMPASS            BX6    X2+X6                                                           COMPASS      404          I
          -CMP029   -CMP30  
 COMPASS            SA6    3                                                               COMPASS      405          I
          -CMP029   -CMP30  
 COMPASS            NZ     X7,IFP3     IF NOT *0*                                          COMPASS      406          I
          -CMP30  
 COMPASS            BX2    X7                                                              COMPASS      407          I
          -CMP30  
 COMPASS            SA7    A1                                                              COMPASS      408          I
          -CMP30  
 COMPASS   IFP3     SX6    A1                                                              COMPASS      409          I
          -CMP30  
 COMPASS            BX6    X2+X6                                                           COMPASS      410          I
          -CMP30  
 COMPASS            SA6    3                                                               COMPASS      411          I
          -CMP029   -CMP30  
 COMPASS            MX7    0                                                               CMP029         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/28. 19.11.32.      PAGE 231    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA6    X3                                                              CMP029         9          I
          -CMP30  
 COMPASS            SA7    X3+B1                                                           CMP029        10          I
          -CMP30  
 COMPASS            SA3    O           CHECK OUTPUT FILE NAMES                             COMPASS      412          I
          -CMP30  
 COMPASS            BX7    X2-X3                                                           COMPASS      413          I
          -CMP30  
 COMPASS            BX7    X0*X7                                                           COMPASS      414          I
          -CMP30  
 COMPASS            NZ     X7,IFP4     IF FILE NAMES NOT THE SAME                          COMPASS      415          I
          -CMP30  
 COMPASS            SA7    A1                                                              COMPASS      416          I
          -CMP30  
 COMPASS            EQ     IFP         RETURN                                              COMPASS      417          I
          -CMP15    -CMP30  
 COMPASS            EQ     IFP5                                                            CMP15          6          I
          -CMP30  
 COMPASS   IFP4     SA1    O                                                               COMPASS      418          I
          -CMP30  
 COMPASS   IFP3     SA1    E           SET ERROR FILE                                      CMP30        784     A     
 COMPASS            BX3    X0*X1                                                           CMP30        785     A     
 COMPASS            SX4    A1                                                              CMP30        786     A     
 COMPASS            ZR     X3,IFP5     IF *O=0*                                            CMP30        787     A     
 COMPASS            BX7    X2-X3                                                           CMP30        788     A     
 COMPASS            IX6    X3+X5                                                           CMP30        789     A     
 COMPASS            NZ     X7,IFP4     IF NOT SAME FILE AS NORMAL LISTING                  CMP30        790     A     
 COMPASS            SA7    A1          CLEAR ERROR FILE                                    CMP30        791     A     
 COMPASS            EQ     IFP5                                                            CMP30        792     A     
 COMPASS   IFP4     BX7    X3+X4                                                           CMP30        793     A     
 COMPASS            SA6    A1                                                              CMP30        794     A     
 COMPASS            SA7    B7          STORE LIST POINTER                                  CMP30        795     A     
 COMPASS            SB7    B7+B1                                                           CMP30        796     A     
 COMPASS            SA1    O                                                               CMP30        797     A     
 COMPASS            NZ     X1,IFP      IF NORMAL OUTPUT FILE                               COMPASS      419          I
          -CMP029 
 COMPASS            NZ     X1,IFP5     IF NORMAL OUTPUT FILE                               CMP029        11     A     
 COMPASS            SA2    A1+B1       USE NORMAL OUTPUT BUFFER FOR ERROR FILE             COMPASS      420     A     
 COMPASS            SA3    A2+B1                                                           COMPASS      421     A     
 COMPASS            BX6    X2                                                              COMPASS      422     A     
 COMPASS            LX7    X3                                                              COMPASS      423     A     
 COMPASS            SA6    E+1                                                             COMPASS      424     A     
 COMPASS            SA7    A6+B1                                                           COMPASS      425     A     
 COMPASS            SA7    A7+B1                                                           COMPASS      426     A     
 COMPASS            SA2    O+4                                                             COMPASS      427     A     
 COMPASS            BX6    X2                                                              COMPASS      428     A     
 COMPASS            SA6    E+4                                                             COMPASS      429     A     
 COMPASS            EQ     IFP         RETURN                                              COMPASS      430          I
          -CMP15  
 COMPASS   IFP5     SA1    FMODE       PROCESS *F* PARAMETER                               CMP15          7          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 232    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   IFP5     MX7    0           TERMINATE LIST POINTER LIST                         CMP30        798     A     
 COMPASS            SA7    B7                                                              CMP30        799     A     
 COMPASS            EQ     IFP         RETURN                                              CMP30        800     A     
 COMPASS                                                                                   CMP30        801     A     
 COMPASS   RM       ELSE                                                                   CMP30        802     A     
 COMPASS                                                                                   CMP30        803     A     
 COMPASS            SA1    O                                                               CMP30        804     A     
 COMPASS            ZR     X1,IFP1     IF *L=0*                                            CMP30        805     A     
 COMPASS            OPENM  O,OUTPUT,N                                                      CMP30        806          I
          -CPS028 
 COMPASS            SA1    E           CHECK OUTPUT FILE NAMES                             CMP30        807     A     
 COMPASS            SA2    O                                                               CMP30        808     A     
 COMPASS            BX7    X1-X2                                                           CMP30        809     A     
 COMPASS            NZ     X7,IFP      IF NOT SAME FILE                                    CMP30        810     A     
 COMPASS            SA7    A1          SUPPRESS ERROR LISTING                              CMP30        811     A     
 COMPASS            EQ     IFP                                                             CMP30        812     A     
 COMPASS   IFP1     MX7    0                                                               CMP30        813     A     
 COMPASS            SA7    CP.LISTF    CLEAR LIST FLAG                                     CMP30        814     A     
 COMPASS                                                                                   CMP30        815          I
          -CPSA134
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30        816          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP       71          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       72          I
          -CPSA134
 COMPASS   DM       ELSE                                                                   F7540CP       73          I
          -CPSA134
 COMPASS            SX2    120B        MAKE OUTPUT BUFFER SMALL                            CMP30        817          I
          -CPSA134
 COMPASS            STORE  O,BFS=X2    AND INPUT BUFFER LARGE                              CMP30        818          I
          -CPSA134
 COMPASS            SX3    CP.ORG-OBUF-120B                                                CMP30        819          I
          -CPSA134
 COMPASS            STORE  I,BFS=X3                                                        CMP30        820          I
          -CPSA134
 COMPASS            SX4    OBUF+120B                                                       CMP30        821          I
          -CPSA134
 COMPASS            STORE  I,FWB=X4                                                        CMP30        822          I
          -CPSA134
 COMPASS            SA1    E                                                               CMP30        823          I
          -CPSA134
 COMPASS            ZR     X1,IFP      IF *O=0* ALSO                                       CMP30        824          I
          -CPSA134
 COMPASS            STORE  E,BFS=X2                                                        CMP30        825          I
          -CPSA134
 COMPASS            SX3    OBUF        GIVE REDUCED OUTPUT BUFFER                          CMP30        826          I
          -CPSA134
 COMPASS            STORE  E,FWB=X3    TO ERROR LISTING FILE                               CMP30        827          I
          -CPSA134
 COMPASS   DM       ENDIF                                                                  CMP30        828          I
          -CPSA134
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 233    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30        829          I
          -CPSA134
 COMPASS            EQ     IFP         RETURN                                              CMP30        830     A     
 COMPASS                                                                                   CMP30        831     A     
 COMPASS   RM       ENDIF                                                                  CMP30        832     A     
 COMPASS   LOV      SPACE  4                                                               CMP30        833     A     
 COMPASS  **        LOV - LOAD OVERLAY.                                                    CMP30        834     A     
 COMPASS                                                                                   CMP30        835     A     
 COMPASS                                                                                   CMP30        836     A     
 COMPASS   LOV      IFNE   OVERLAY,0                                                       CMP30        837     A     
 COMPASS                                                                                   CMP30        838     A     
 COMPASS   LOV      PS                 RETURN EXIT                                         CMP30        839     A     
 COMPASS                                                                                   CMP30        840     A     
 COMPASS            IFC    GE, "MODEL" 75 ,1                                               CMP30        841          I
          -F7540CP
 COMPASS   DM       IFEQ   CP#RM,0                                                         CMP30        842          I
          -F7540CP
 COMPASS            ENV    (2,3),DM                                                        F7540CP       74          I
          -CPSA134
 COMPASS            IF     -DEF,SCOPE2,3                                                   CPSA134       67     A     
 COMPASS   LOV1     RECALL                                                                 CMP30        843     A     
 COMPASS            SA4    RA.LDR      WAIT UNTIL LOADER IS FINISHED                       CMP30        844     A     
 COMPASS            ZR     X4,LOV1                                                         CMP30        845     A     
 COMPASS   DM       ENDIF                                                                  CMP30        846          I
          -CPSA134
 COMPASS                                                                                   CMP30        847     A     
 COMPASS            SA4    LOVA+1                                                          CMP30        848     A     
 COMPASS            LX4    59-36                                                           CMP30        849     A     
 COMPASS            PL     X4,LOV      IF LOADED                                           CMP30        850     A     
 COMPASS            MESSAGE LOVB,,R                                                        CMP30        851     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30        852     A     
 COMPASS                                                                                   CMP30        853     A     
 COMPASS   LIB      IFC    EQ, "LIBRARY"                                                   CMP30        854          I
          -CPS028 
 COMPASS   LIB      IFC    EQ, "CP.OVLIB"                                         S028 224 CPS028       160     A     
 COMPASS   LOVA     DATA   0L"CP.NAME"       LOAD OVERLAY FROM GLOBAL LIBRARY SET          CMP30        855     A     
 COMPASS            VFD    12/0100B,12/0140B,18/MIN.FL,18/CP.ORG                           CMP30        856          I
          -F4810B 
 COMPASS            VFD    12/0100B,12/0140B,18/ENDA+1,18/CP.ORG                   F4810B  F4810B        25     A     
 COMPASS   LIB      ELSE                                                                   CMP30        857     A     
 COMPASS   LOVA     DATA   0L"LIBRARY"       LOAD OVERLAY FROM SPECIFIED LIBRARY           CMP30        858          I
          -CPS028 
 COMPASS   LOVA     DATA   0L"CP.OVLIB"      LOAD OVERLAY FROM SPECIFIED LIBRARY  S028 226 CPS028       161     A     
 COMPASS            VFD    12/0100B,12/2140B,18/MIN.FL,18/CP.ORG                           CMP30        859          I
          -F4810B 
 COMPASS            VFD    12/0100B,12/2140B,18/ENDA+1,18/CP.ORG                   F4810B  F4810B        26     A     
 COMPASS                                                                           F4810B  F4810B        27     A     
 COMPASS   LIB      ENDIF                                                                  CPS064        10     A     
 COMPASS            DATA   0L"CP.NAME"                                                     CMP30        860     A     
 COMPASS   LIB      ENDIF                                                                  CMP30        861          I
          -CPS064 
 COMPASS                                                                                   CMP30        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/28. 19.11.32.      PAGE 234    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LOVB     DATA   C* CANT LOAD "CP.NAME"*                                         CMP30        863     A     
 COMPASS                                                                                   CMP30        864     A     
 COMPASS   LOV      ENDIF                                                                  CMP30        865     A     
 COMPASS   SFV      SPACE  4                                                               CMP30        866     A     
 COMPASS  **        SFV - SET *F VALUE.                                                    CMP30        867     A     
 COMPASS  *         EXIT TO ARGE ON BAD *F* ARGUMENT.                                      CMP30        868     A     
 COMPASS                                                                                   CMP30        869     A     
 COMPASS                                                                                   CMP30        870     A     
 COMPASS   SFV      PS                 RETURN EXIT                                         CMP30        871     A     
 COMPASS                                                                                   CMP30        872          I
          -CPS028 
 COMPASS            IFNE   CP#IR,0,2                                                       CMP30        873          I
          -CPS028 
 COMPASS            MX7    0                                                               CMP30        874          I
          -CPS028 
 COMPASS            SA7    77B         CLEAR BATCH MODE FLAG                               CMP30        875          I
          -CPS028 
 COMPASS                                                                                   CMP30        876          I
          -CPS028 
 COMPASS            SA1    CP.BATCH                                                        CMP30        877          I
          -CP139CP
 COMPASS            SA1    FVAL                                                            CP139CP      144     A     
 COMPASS            ZR     X1,SFV      IF *F=0*                                            CMP30        878     A     
 COMPASS            LX1    6                                                               CMP15          8     A     
 COMPASS            SX6    X1-1R0                                                          CMP15          9     A     
 COMPASS            PL     X6,IFP7     IF *F=NUMBER* SPECIFIED (OR *F=0* ASSUMED)          CMP15         10          I
          -CMP30  
 COMPASS            PL     X6,SFV2     IF *F=NUMBER*                                       CMP30        879     A     
 COMPASS            SX6    NFNAME                                                          CMP15         11     A     
 COMPASS            LX1    -6                                                              CMP15         12     A     
 COMPASS   IFP6     SA2    FNAME-1+X6  SEARCH TABLE OF PERMITTED *F=NAME* OPTIONS          CMP15         13          I
          -CMP30  
 COMPASS   SFV1     SA2    FNAME-1+X6  SEARCH TABLE OF PERMITTED *F=NAME* OPTIONS          CMP30        880     A     
 COMPASS            SX6    X6-1                                                            CMP15         14     A     
 COMPASS            BX2    X1-X2                                                           CMP15         15     A     
 COMPASS            ZR     X2,IFP7     IF FOUND                                            CMP15         16          I
          -CMP30  
 COMPASS            NZ     X6,IFP6     IF NOT END OF TABLE                                 CMP15         17          I
          -CMP30  
 COMPASS            SX2    3RABT                                                           CMP15         18          I
          -CMP30  
 COMPASS            SX7    TCCA        MESSAGE = *ERROR IN COMPASS ARGUMENTS.*             CMP15         19          I
          -CMP30  
 COMPASS            EQ     ENP                                                             CMP15         20          I
          -CMP30  
 COMPASS   IFP7     SA6    BATCH       STORE VALUE OF *F SPECIAL SYMBOL                    CMP15         21          I
          -CMP30  
 COMPASS            EQ     IFP         RETURN                                              CMP15         22          I
          -CMP30  
 COMPASS            ZR     X2,SFV2     IF FOUND                                            CMP30        881     A     
 COMPASS            NZ     X6,SFV1     IF NOT END OF TALBE                                 CMP30        882     A     
 COMPASS            SX6    1RF                                                             CMP30        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/28. 19.11.32.      PAGE 235    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX6    -6                                                              CMP30        884     A     
 COMPASS            SA6    ARGM+3      *BAD CONTROL CARD ARGUMENT - F*                     CMP30        885     A     
 COMPASS            EQ     ARGE                                                            CMP30        886     A     
 COMPASS   SFV2     SA6    A1          STORE VALUE OF *F SPECIAL SYMBOL                    CMP30        887          I
          -CP139CP
 COMPASS   SFV2     SA1    CP.BATCH    STORE VALUE OF *F SPECIAL SYMBOL                    CP139CP      145     A     
 COMPASS            BX6    X1+X6                                                           CP139CP      146     A     
 COMPASS            SA6    A1                                                              CP139CP      147     A     
 COMPASS            EQ     SFV         RETURN                                              CMP30        888     A     
 COMPASS                                                                                   CMP15         23          I
          -F4810A 
 COMPASS   FNAME    DATA   0LCOMPASS   0   TABLE OF NAMES FOR *F* PARAMETER                CMP15         24          I
          -F4810A 
 COMPASS            DATA   0LRUN       1                                                   CMP15         25          I
          -F4810A 
 COMPASS            DATA   0LFTN       2                                                   CMP15         26          I
          -F4810A 
 COMPASS   NFNAME   EQU    *-FNAME                                                         CMP15         27          I
          -F4810A 
 COMPASS   SES      SPACE  4                                                               COMPASS      431          I
          -CMP30  
 COMPASS  **        SES - SET EQUAL SIGNS IN PARAMETER LIST.                               COMPASS      432          I
          -CMP30  
 COMPASS                                                                                   COMPASS      433          I
          -CMP30  
 COMPASS                                                                                   COMPASS      434          I
          -CMP30  
 COMPASS   SES      PS                 RETURN EXIT                                         COMPASS      435          I
          -CMP30  
 COMPASS            SA2    ACTR        ARGUMENT COUNT                                      COMPASS      436          I
          -CMP034   -CMP30  
 COMPASS            SB3    X2                                                              COMPASS      437          I
          -CMP034   -CMP30  
 COMPASS            SA3    B0          ARGUMENT POINTER                                    COMPASS      438          I
          -CMP034   -CMP30  
 COMPASS            SX5    1R=                                                             COMPASS      439          I
          -CMP034   -CMP30  
 COMPASS            SA1    CCDR        STATEMENT BUFFER                                    COMPASS      440          I
          -CMP034   -CMP30  
 COMPASS            SB5    1R=                                                             COMPASS      441          I
          -CMP034   -CMP30  
 COMPASS            SB4    1R9                                                             COMPASS      442          I
          -CMP034   -CMP30  
 COMPASS            SX7    10                                                              COMPASS      443          I
          -CMP034   -CMP30  
 COMPASS            SB7    X7                                                              COMPASS      444          I
          -CMP034   -CMP30  
 COMPASS            MX0    60-6                                                            COMPASS      445          I
          -CMP034   -CMP30  
 COMPASS   SES1     LX1    6           CHECK CHARACTER                                     COMPASS      446          I
          -CMP034   -CMP30  
 COMPASS            BX6    -X0*X1                                                          COMPASS      447          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 236    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP034   -CMP30  
 COMPASS            SB6    X6                                                              COMPASS      448          I
          -CMP034   -CMP30  
 COMPASS            SB7    B7-B1                                                           COMPASS      449          I
          -CMP034   -CMP30  
 COMPASS            NZ     B7,SES2     IF NOT END OF WORD                                  COMPASS      450          I
          -CMP034   -CMP30  
 COMPASS            SA1    A1+B1       READ NEXT WORD                                      COMPASS      451          I
          -CMP034   -CMP30  
 COMPASS            SB7    X7                                                              COMPASS      452          I
          -CMP034   -CMP30  
 COMPASS   SES2     LE     B6,B4,SES1  IF CHARACTER IS ALPHANUMERIC                        COMPASS      453          I
          -CMP034   -CMP30  
 COMPASS            SB3    B3-B1                                                           COMPASS      454          I
          -CMP034   -CMP30  
 COMPASS            SA3    A3+B1                                                           COMPASS      455          I
          -CMP034   -CMP30  
 COMPASS            NE     B6,B5,SES3  IF SEPARATOR NOT *=*                                COMPASS      456          I
          -CMP034   -CMP30  
 COMPASS            BX6    X3+X5                                                           COMPASS      457          I
          -CMP034   -CMP30  
 COMPASS            SA6    A3                                                              COMPASS      458          I
          -CMP034   -CMP30  
 COMPASS   SES3     GT     B3,SES1     LOOP TO END OF ARGUMENTS                            COMPASS      459          I
          -CMP034   -CMP30  
 COMPASS            EQ     SES         RETURN                                              COMPASS      460          I
          -CMP034   -CMP30  
 COMPASS            SA1    CCDR        STATEMENT BUFFER                                    CMP034         1          I
          -CMP30  
 COMPASS            SA2    ACTR        ARGUMENT COUNT                                      CMP034         2          I
          -CMP30  
 COMPASS            SA3    B1          ARGUMENT POINTER                                    CMP034         3          I
          -CMP30  
 COMPASS            SA4    SESA        MASK FOR + - / ( ) = B , . AND 60-77                CMP034         4          I
          -CMP30  
 COMPASS            SB3    X2                                                              CMP034         5          I
          -CMP30  
 COMPASS            ZR     B3,SES      IF NO ARGUMENTS                                     CMP034         6          I
          -CMP30  
 COMPASS            SB4    -1R9                                                            CMP034         7          I
          -CMP30  
 COMPASS            SB5    1R=-1R9                                                         CMP034         8          I
          -CMP30  
 COMPASS            SX7    10                                                              CMP034         9          I
          -CMP30  
 COMPASS            SX2    B1                                                              CMP034        10          I
          -CMP30  
 COMPASS            MX0    -6                                                              CMP034        11          I
          -CMP30  
 COMPASS            SB7    X7                                                              CMP034        12          I
          -CMP30  
 COMPASS            LX2    59-1R +1R9  MASK FOR BLANK                                      CMP034        13          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 237    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS                                                                                   CMP034        14          I
          -CMP30  
 COMPASS   SES1     LX1    6           FIND FIRST NON-BLANK                                CMP034        15          I
          -CMP30  
 COMPASS            SB7    B7-B1                                                           CMP034        16          I
          -CMP30  
 COMPASS            BX6    -X0*X1      EXTRACT CHARACTER                                   CMP034        17          I
          -CMP30  
 COMPASS            SB6    X6+B4                                                           CMP034        18          I
          -CMP30  
 COMPASS            NZ     B7,SES2     IF NOT END OF WORD                                  CMP034        19          I
          -CMP30  
 COMPASS            SB7    X7                                                              CMP034        20          I
          -CMP30  
 COMPASS            SA1    A1+B1       READ NEXT WORD                                      CMP034        21          I
          -CMP30  
 COMPASS   SES2     LX6    X2,B6                                                           CMP034        22          I
          -CMP30  
 COMPASS            MI     X6,SES1     IF BLANK                                            CMP034        23          I
          -CMP30  
 COMPASS                                                                                   CMP034        24          I
          -CMP30  
 COMPASS   SES3     LX1    6           SCAN VERB                                           CMP034        25          I
          -CMP30  
 COMPASS            SB7    B7-B1                                                           CMP034        26          I
          -CMP30  
 COMPASS            BX6    -X0*X1      EXTRACT CHARACTER                                   CMP034        27          I
          -CMP30  
 COMPASS            SB6    X6+B4                                                           CMP034        28          I
          -CMP30  
 COMPASS            NZ     B7,SES4     IF NOT END OF WORD                                  CMP034        29          I
          -CMP30  
 COMPASS            SB7    X7                                                              CMP034        30          I
          -CMP30  
 COMPASS            SA1    A1+B1       READ NEXT WORD                                      CMP034        31          I
          -CMP30  
 COMPASS   SES4     LX6    X4,B6                                                           CMP034        32          I
          -CMP30  
 COMPASS            PL     X6,SES3     IF NOT A DELIMITER                                  CMP034        33          I
          -CMP30  
 COMPASS                                                                                   CMP034        34          I
          -CMP30  
 COMPASS            BX4    X4-X2       MASK FOR + - / ( ) = , . AND 60-77                  CMP034        35          I
          -CMP30  
 COMPASS   SES5     LX1    6           SCAN PARAMETER                                      CMP034        36          I
          -CMP30  
 COMPASS            SB7    B7-B1                                                           CMP034        37          I
          -CMP30  
 COMPASS            BX6    -X0*X1      EXTRACT CHARACTER                                   CMP034        38          I
          -CMP30  
 COMPASS            SB6    X6+B4                                                           CMP034        39          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 238    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            NZ     B7,SES6     IF NOT END OF WORD                                  CMP034        40          I
          -CMP30  
 COMPASS            SB7    X7                                                              CMP034        41          I
          -CMP30  
 COMPASS            SA1    A1+B1       READ NEXT WORD                                      CMP034        42          I
          -CMP30  
 COMPASS   SES6     LX2    X4,B6                                                           CMP034        43          I
          -CMP30  
 COMPASS            PL     X2,SES5     IF NOT A DELIMITER                                  CMP034        44          I
          -CMP30  
 COMPASS            SA3    A3+B1                                                           CMP034        45          I
          -CMP30  
 COMPASS            SB3    B3-B1                                                           CMP034        46          I
          -CMP30  
 COMPASS            BX3    X0*X3       INSERT DELIMITER INTO ARGUMENT WORD                 CMP034        47          I
          -CMP30  
 COMPASS            BX6    X3+X6                                                           CMP034        48          I
          -CMP30  
 COMPASS            SA6    A3                                                              CMP034        49          I
          -CMP30  
 COMPASS            GE     B3,B1,SES5  LOOP TO END OF ARGUMENTS                            CMP034        50          I
          -CMP30  
 COMPASS            EQ     SES         RETURN                                              CMP034        51          I
          -CMP30  
 COMPASS                                                                                   CMP034        52          I
          -CMP30  
 COMPASS   SESA     DATA   33577777740000000000B                                           CMP034        53          I
          -CMP30  
 COMPASS   SLF      SPACE  4                                                               COMPASS      461          I
          -CPSA142
 COMPASS  **        SLF - SET LIST FLAGS.                                                  COMPASS      462          I
          -CPSA142
 COMPASS  *         EXIT TO ENP ON ERROR.                                                  COMPASS      463          I
          -CMP30    -CPSA142
 COMPASS  *         EXIT TO ARGE ON BAD *LO* ARGUMENT.                                     CMP30        889          I
          -CPSA142
 COMPASS                                                                                   COMPASS      464          I
          -CPSA142
 COMPASS                                                                                   COMPASS      465          I
          -CPSA142
 COMPASS   SLF      PS                 RETURN EXIT                                         COMPASS      466          I
          -CPSA142
 COMPASS            SA2    NEJF                                                            CPS010        14          I
          -F4810A   -CPSA142
 COMPASS            SA1    XLIST                                                           COMPASS      467          I
          -CMP30    -CPSA142
 COMPASS            SA1    SLFA                                                            CMP30        890          I
          -CPSA142
 COMPASS            SA3    ABTF                                                            CP139CP      148          I
          -CPSA142
 COMPASS            SA4    CP.ABORT                                                        CP139CP      149          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 239    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA142
 COMPASS            LX7    X2                                                              CPS010        15          I
          -F4810A   -CPSA142
 COMPASS            BX6    X1                                                              COMPASS      468          I
          -CPSA142
 COMPASS            SA6    SLFA                                                            COMPASS      469          I
          -CMP30    -CPSA142
 COMPASS   SLF1     SA1    SLFA                                                            COMPASS      470          I
          -CMP30    -CPSA142
 COMPASS            ZR     X1,SLF      IF NO LIST FLAGS                                    COMPASS      471          I
          -CMP30    -CPSA142
 COMPASS            MX0    54                                                              COMPASS      472          I
          -CMP30    -CPSA142
 COMPASS            LX1    18                                                              CMP30        891          I
          -CPSA142
 COMPASS            SA7    PSIZE                                                           CPS010        16          I
          -F4810A   -CPSA142
 COMPASS            SA6    XLIST                                                           CMP30        892          I
          -CPSA142
 COMPASS            BX7    X3+X4                                                           CP139CP      150          I
          -CPSA142
 COMPASS            SA7    A4                                                              CP139CP      151          I
          -CPSA142
 COMPASS            SX7    B1                                                              CMP30        893          I
          -CPSA142
 COMPASS            MX0    -6                                                              CMP30        894          I
          -CPSA142
 COMPASS            SX6    X1-1L0                                                          CMP30        895          I
          -CPSA142
 COMPASS            SB2    B1+B1                                                           CMP30        896          I
          -CPSA142
 COMPASS            LX1    -18                                                             CMP30        897          I
          -CPSA142
 COMPASS            NZ    X6,SLF1      IF NOT *LO=0*                                       CMP30        898          I
          -CPSA142
 COMPASS            MX1    0                                                               CMP30        899          I
          -CPSA142
 COMPASS            SA6    A6                                                              CMP30        900          I
          -CPSA142
 COMPASS   SLF1     ZR     X1,SLF      IF NO LIST FLAGS                                    CMP30        901          I
          -CPSA142
 COMPASS            LX1    6                                                               COMPASS      473          I
          -CPSA142
 COMPASS            BX6    X0*X1                                                           COMPASS      474          I
          -CMP30    -CPSA142
 COMPASS            SA6    A1                                                              COMPASS      475          I
          -CMP30    -CPSA142
 COMPASS            BX2    -X0*X1                                                          COMPASS      476          I
          -CPSA142
 COMPASS            SB7    X2                                                              COMPASS      477          I
          -CPSA142
 COMPASS            IX1    X1-X2                                                           CMP30        902          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 240    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA142
 COMPASS            SB6    B7-1R$                                                          CMP30        903          I
          -CPSA142
 COMPASS            SA3    LISTOPS     CHECK LIST OPTION TABLE                             COMPASS      478          I
          -CPSA142
 COMPASS            SB5    LLISTOPS                                                        COMPASS      479          I
          -CPSA142
 COMPASS            SX7    B1                                                              COMPASS      480          I
          -CMP30    -CPSA142
 COMPASS            SB2    B1+B1                                                           COMPASS      481          I
          -CMP30    -CPSA142
 COMPASS            ZR     B6,SLF4     IF $                                                CMP30        904          I
          -CPSA142
 COMPASS   SLF2     UX6    B6,X3                                                           COMPASS      482          I
          -CPSA142
 COMPASS            SB5    B5-B2                                                           COMPASS      483          I
          -CPSA142
 COMPASS            EQ     B6,B7,SLF3  IF OPTION FOUND                                     COMPASS      484          I
          -CPSA142
 COMPASS            SA3    A3+B2                                                           COMPASS      485          I
          -CPSA142
 COMPASS            NZ     B5,SLF2     LOOP                                                COMPASS      486          I
          -CPSA142
 COMPASS            SX2    3RABT       MESSAGE = *ERROR IN COMPASS ARGUMENTS.*             COMPASS      487          I
          -CMP30    -CPSA142
 COMPASS            SX7    TCCA                                                            COMPASS      488          I
          -CMP30    -CPSA142
 COMPASS            EQ     ENP                                                             COMPASS      489          I
          -CMP30    -CPSA142
 COMPASS            SX6    2RLO                                                            CMP30        905          I
          -CPSA142
 COMPASS            LX6    -12                                                             CMP30        906          I
          -CPSA142
 COMPASS            SA6    ARGM+3      *BAD CONTROL CARD ARGUMENT - LO*                    CMP30        907          I
          -CPSA142
 COMPASS            EQ     ARGE                                                            CMP30        908          I
          -CPSA142
 COMPASS   SLF3     BX6    X3-X7       TOGGLE LIST FLAG                                    COMPASS      490          I
          -CPSA142
 COMPASS            SA6    A3                                                              COMPASS      491          I
          -CPSA142
 COMPASS            EQ     SLF1        LOOP TO END OF FLAGS                                COMPASS      492          I
          -CPSA142
 COMPASS                                                                                   CMP30        909          I
          -CPSA142
 COMPASS   SLF4     BX6    X3+X7       $ FOUND, TURN ON ALL LIST FLAGS                     CMP30        910          I
          -CPSA142
 COMPASS            SA6    A3                                                              CMP30        911          I
          -CPSA142
 COMPASS            SB5    B5-B2                                                           CMP30        912          I
          -CPSA142
 COMPASS            SA3    A3+B2                                                           CMP30        913          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 241    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA142
 COMPASS            NZ     B5,SLF4     LOOP                                                CMP30        914          I
          -CPSA142
 COMPASS            EQ     SLF1                                                            CMP30        915          I
          -CPSA142
 COMPASS                                                                                   COMPASS      493          I
          -F4810A   -CPSA142
 COMPASS   SLFA     DATA   0           LIST FLAG TEMPORARY                                 COMPASS      494          I
          -F4810A   -CPSA142
 COMPASS   SNO      SPACE  4                                                               COMPASS      495          I
          -CMP30    -CPSA142
 COMPASS  **        SNO - SET NORMAL OPTIONS.                                              COMPASS      496          I
          -CMP30    -CPSA142
 COMPASS                                                                                   COMPASS      497          I
          -CMP30    -CPSA142
 COMPASS                                                                                   COMPASS      498          I
          -CMP30    -CPSA142
 COMPASS   SNO      PS                 RETURN EXIT                                         COMPASS      499          I
          -CMP30    -CPSA142
 COMPASS            MX0    42                                                              COMPASS      500          I
          -CMP30    -CPSA142
 COMPASS            SX7    B0                                                              COMPASS      501          I
          -CMP30    -CPSA142
 COMPASS            SA7    BATCH       CLEAR BATCH MODE                                    COMPASS      502          I
          -CMP30    -CPSA142
 COMPASS            SA7    PUNCH       CLEAR PUNCH MODE                                    COMPASS      503          I
          -CMP30    -CPSA142
 COMPASS            SA7    ERRFLG      CLEAR ERROR FLAG                                    COMPASS      504          I
          -CMP30    -CPSA142
 COMPASS            SA7    INBUF       CLEAR INPUT BUFFER                                  COMPASS      505          I
          -CMP30    -CPSA142
 COMPASS            SA7    INBUF+9                                                         COMPASS      506          I
          -CMP30    -CPSA142
 COMPASS            SA1    SNOA-1                                                          COMPASS      507          I
          -CMP30    -CPSA142
 COMPASS   SNO1     SA1    A1+B1       SET NORMAL OPTIONS                                  COMPASS      508          I
          -CMP30    -CPSA142
 COMPASS            BX6    X0*X1                                                           COMPASS      509          I
          -CMP30    -CPSA142
 COMPASS            ZR     X1,SNO      IF END OF LIST                                      COMPASS      510          I
          -CMP30    -CPSA142
 COMPASS            SA6    X1                                                              COMPASS      511          I
          -CMP30    -CPSA142
 COMPASS            EQ     SNO1        LOOP                                                COMPASS      512          I
          -CMP30    -CPSA142
 COMPASS                                                                                   COMPASS      513          I
          -CMP30    -CPSA142
 COMPASS   SNOA     VFD    42/0LLGO,18/BINARY                                              COMPASS      514          I
          -CMP30    -CPSA142
 COMPASS            VFD    42/0LINPUT,18/INPUT                                             COMPASS      515          I
          -CMP20    -CMP30    -CPSA142
 COMPASS            VFD    42/0LOUTPUT,18/LISTFG                                           COMPASS      516          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 242    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30    -CPSA142
 COMPASS            VFD    42/0LSYSTEXT,18/SYSTEXT                                         COMPASS      517          I
          -CMP30    -CPSA142
 COMPASS            VFD    42/0LOUTPUT,18/E                                                COMPASS      518          I
          -CMP30    -CPSA142
 COMPASS            VFD    60/0                                                            COMPASS      519          I
          -CMP30    -CPSA142
 COMPASS   TCC      SPACE  4                                                               COMPASS      520          I
          -CMP30    -CPSA142
 COMPASS  **        TCC - TRANSLATE CONTROL CARD.                                          COMPASS      521          I
          -CMP30    -CPSA142
 COMPASS  *         EXIT TO ENP ON ERROR.                                                  COMPASS      522          I
          -CMP30    -CPSA142
 COMPASS                                                                                   COMPASS      523          I
          -CMP30    -CPSA142
 COMPASS                                                                                   COMPASS      524          I
          -CMP30    -CPSA142
 COMPASS   TCC      PS                 RETURN EXIT                                         COMPASS      525          I
          -CMP30    -CPSA142
 COMPASS            SA1    ACTR                                                            COMPASS      526          I
          -CMP30    -CPSA142
 COMPASS            SB7    X1                                                              COMPASS      527          I
          -CMP30    -CPSA142
 COMPASS            SB6    B0                                                              COMPASS      528          I
          -CMP30    -CPSA142
 COMPASS   TCC1     EQ     B6,B7,TCC   IF END OF ARGUMENTS                                 COMPASS      529          I
          -CMP30    -CPSA142
 COMPASS            SA1    2+B6        READ NEXT ARGUMENT                                  COMPASS      530          I
          -CMP30    -CPSA142
 COMPASS            SB2    LOPT                                                            COMPASS      531          I
          -CMP30    -CPSA142
 COMPASS            MX5    12                                                              COMPASS      532          I
          -CMP30    -CPSA142
 COMPASS   TCC2     SA2    OPT-1+B2    READ NEXT OPTION                                    COMPASS      533          I
          -CMP30    -CPSA142
 COMPASS            BX6    X2-X1                                                           COMPASS      534          I
          -CMP30    -CPSA142
 COMPASS            BX7    X5*X6                                                           COMPASS      535          I
          -CMP30    -CPSA142
 COMPASS            SB4    X2                                                              COMPASS      536          I
          -CMP30    -CPSA142
 COMPASS            ZR     X7,TCC4     IF MATCHING ARGUMENT AND OPTION                     COMPASS      537          I
          -CMP30    -CPSA142
 COMPASS            SB2    B2-B1                                                           COMPASS      538          I
          -CMP30    -CPSA142
 COMPASS            NZ     B2,TCC2     LOOP                                                COMPASS      539          I
          -CMP30    -CPSA142
 COMPASS   TCC3     SX2    3RABT                                                           COMPASS      540          I
          -CMP30    -CPSA142
 COMPASS            SX7    TCCA        MESSAGE = *ERROR IN COMPASS ARGUMENTS.*             COMPASS      541          I
          -CMP30    -CPSA142
 COMPASS            EQ     ENP                                                             COMPASS      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/28. 19.11.32.      PAGE 243    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30    -CPSA142
 COMPASS   TCC4     LX2    30          CHECK IF EQUIVALENCED                               COMPASS      543          I
          -CMP30    -CPSA142
 COMPASS            SB2    X2                                                              COMPASS      544          I
          -CMP30    -CPSA142
 COMPASS            NG     B2,TCC5     IF SINGLE PARAMETER                                 COMPASS      545          I
          -CMP30    -CPSA142
 COMPASS            SB3    X1-1R=                                                          COMPASS      546          I
          -CMP30    -CPSA142
 COMPASS            SB2    -B2                                                             COMPASS      547          I
          -CMP30    -CPSA142
 COMPASS            MX4    42                                                              CMP034        54          I
          -CMP30    -CPSA142
 COMPASS            NZ     B3,TCC5     IF NOT EQUIVALENCED                                 COMPASS      548          I
          -CMP30    -CPSA142
 COMPASS            SB6    B6+B1                                                           COMPASS      549          I
          -CMP30    -CPSA142
 COMPASS            SB2    A1+B1                                                           COMPASS      550          I
          -CMP30    -CPSA142
 COMPASS            SB2    -B2                                                             COMPASS      551          I
          -CMP30    -CPSA142
 COMPASS            EQ     B6,B7,TCC3  IF END OF ARGUMENTS                                 COMPASS      552          I
          -CMP30    -CPSA142
 COMPASS   TCC5     SA3    -B2                                                             COMPASS      553          I
          -CMP30    -CPSA142
 COMPASS            BX6    X3          STORE OPTION                                        COMPASS      554          I
          -CMP034   -CMP30    -CPSA142
 COMPASS            BX6    X4*X3       STORE OPTION                                        CMP034        55          I
          -CMP30    -CPSA142
 COMPASS            SA6    B4                                                              COMPASS      555          I
          -CMP30    -CPSA142
 COMPASS            SB6    B6+B1                                                           COMPASS      556          I
          -CMP30    -CPSA142
 COMPASS            EQ     TCC1        LOOP                                                COMPASS      557          I
          -CMP30    -CPSA142
 COMPASS                                                                                   COMPASS      558          I
          -CMP30    -CPSA142
 COMPASS   TCCA     DATA   C* ERROR IN COMPASS ARGUMENTS.*                                 COMPASS      559          I
          -CMP30    -CPSA142
 COMPASS   SSP      SPACE  4                                                               CMP30        916          I
          -CPSA142
 COMPASS  **        SSP - START *SPY*.                                                     CMP30        917     A     
 COMPASS  *         EXIT TO ARGE ON BAD *W* ARGUMENT.                                      CMP30        918     A     
 COMPASS                                                                                   CMP30        919     A     
 COMPASS                                                                                   CMP30        920     A     
 COMPASS   SPY      IFNE   SPY,0                                                           CMP30        921     A     
 COMPASS                                                                                   CMP30        922     A     
 COMPASS   SSP      PS                 RETURN EXIT                                         CMP30        923     A     
 COMPASS            SA1    SPYPAR                                                          CMP30        924     A     
 COMPASS            MX0    -6                                                              CMP30        925     A     
 COMPASS            BX7    X7-X7                                                           CMP30        926     A     
 COMPASS            ZR     X1,SSP      IF NO *W* ARGUMENT                                  CMP30        927     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 244    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    7                                                               CMP30        928     A     
 COMPASS   SSP1     LX1    6           CONVERT OCTAL TO BINARY                             CMP30        929     A     
 COMPASS            BX3    -X0*X1                                                          CMP30        930     A     
 COMPASS            SB6    X3-1R0                                                          CMP30        931     A     
 COMPASS            MI     B6,SSP2     IF CHARACTER LESS THAN *0*                          CMP30        932     A     
 COMPASS            GT     B6,B7,SSP4  IF GREATER THAN *7*                                 CMP30        933     A     
 COMPASS            LX7    3                                                               CMP30        934     A     
 COMPASS            SX2    B6                                                              CMP30        935     A     
 COMPASS            BX1    X1-X3                                                           CMP30        936     A     
 COMPASS            IX7    X7+X2                                                           CMP30        937     A     
 COMPASS            EQ     SSP1        LOOP                                                CMP30        938     A     
 COMPASS   SSP2     NZ     X1,SSP4     IF NOT END OF ARGUMENT                              CMP30        939     A     
 COMPASS            SB6    20B                                                             CMP30        940     A     
 COMPASS            SB7    X7                                                              CMP30        941     A     
 COMPASS            EQ     B7,B6,SSP3  IF *W=20*                                           CMP30        942     A     
 COMPASS            SB6    B6+B6                                                           CMP30        943     A     
 COMPASS            EQ     B7,B6,SSP3  IF *W=40*                                           CMP30        944     A     
 COMPASS            SX7    100B        ASSUME *W=100*                                      CMP30        945     A     
 COMPASS   SSP3     SX6    B1                                                              CMP30        946     A     
 COMPASS            SX1    ENDB+77B    FORM *SPY* PARAMETERS -                             CMP30        947     A     
 COMPASS            LX7    24                                                              CMP30        948     A     
 COMPASS            AX1    6           12/ BINWIDTH,                                       CMP30        949     A     
 COMPASS            BX6    X7+X6       12/ 0,                                              CMP30        950     A     
 COMPASS            LX6    12          12/ FIRST/100B,                                     CMP30        951     A     
 COMPASS            BX7    X6+X1       12/ LIMIT/100B,                                     CMP30        952     A     
 COMPASS            LX7    12          12/ 0                                               CMP30        953     A     
 COMPASS            SA7    A1                                                              CMP30        954     A     
 COMPASS            SYSTEM SPY,RCL,A7                                                      CMP30        955     A     
 COMPASS            EQ     SSP                                                             CMP30        956     A     
 COMPASS                                                                                   CMP30        957     A     
 COMPASS   SSP4     SX6    1RW         ERROR EXIT                                          CMP30        958     A     
 COMPASS            LX6    -6                                                              CMP30        959     A     
 COMPASS            SA6    ARGM+3      *BAD CONTROL CARD ARGUMENT - W*                     CMP30        960     A     
 COMPASS            EQ     ARGE                                                            CMP30        961     A     
 COMPASS                                                                                   CMP30        962     A     
 COMPASS   SPY      ENDIF                                                                  CMP30        963     A     
 COMPASS   TFL      SPACE  4                                                               CMP30        964     A     
 COMPASS  **        TFL - TEST FIELD LENGTH AND START LOADING OVERLAY.                     CMP30        965     A     
 COMPASS                                                                                   CMP30        966     A     
 COMPASS                                                                                   CMP30        967     A     
 COMPASS   TFL2     BSS    0                                                               CMP30        968     A     
 COMPASS                                                                                   CMP30        969     A     
 COMPASS            IFNE   OVERLAY,0,3                                                     CMP30        970          I
          -CPS064 
 COMPASS            MX7    0           CLEAR LOADER REPLY WORD                             CMP30        971          I
          -CPS064 
 COMPASS   OVL      IFNE   OVERLAY,0                                                       CPS064        11     A     
 COMPASS            SA1    RA.LWP                                                          CPS064        12     A     
 COMPASS            LX1    59-18                                                           CPS064        13     A     
 COMPASS            MI     X1,TFL3     IF LOADED FROM A LIBRARY                            CPS064        14     A     
 COMPASS            SA1    RA.PGN                                                          CPS064        15     A     
 COMPASS            MX0    42                                                              CPS064        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/28. 19.11.32.      PAGE 245    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X0*X1                                                           CPS064        17     A     
 COMPASS            SA6    LOVA        STORE FILE NAME IN LOADER CALL                      CPS064        18     A     
 COMPASS            SA1    A6+B1                                                           CPS064        19     A     
 COMPASS            MX0    12                                                              CPS064        20     A     
 COMPASS            SX2    2040B       THREE-WORD CALL, LOAD OVERLAY FROM FILE             CPS064        21     A     
 COMPASS            LX0    47-59                                                           CPS064        22     A     
 COMPASS            LX2    36                                                              CPS064        23     A     
 COMPASS            BX6    -X0*X1                                                          CPS064        24     A     
 COMPASS            BX6    X6+X2                                                           CPS064        25     A     
 COMPASS            SA6    A1                                                              CPS064        26     A     
 COMPASS   TFL3     MX7    0           CLEAR LOADER REPLY WORD                             CPS064        27     A     
 COMPASS            SA7    RA.LDR                                                          CMP30        972     A     
 COMPASS            LOADREQ LOVA       START LOADING OVERLAY                               CMP30        973     A     
 COMPASS   OVL      ENDIF                                                                  CPS064        28     A     
 COMPASS                                                                                   CMP30        974     A     
 COMPASS   DEBUG    IFNE   DEBUG                                                           CMP30        975     A     
 COMPASS                                                                                   CMP30        976     A     
 COMPASS            MEMORY ECS,TFLB,R  FIND OUT WHAT IS ECS/LCM FIELD LENGTH               CMP30        977     A     
 COMPASS            SA1    TFLB                                                            CMP30        978     A     
 COMPASS            AX1    30                                                              CMP30        979     A     
 COMPASS            BX7    X1                                                              CMP30        980     A     
 COMPASS            SA7    CP.AFLL     SET LCM FIELD LENGTH WORDS                          CMP30        981     A     
 COMPASS            SA7    CP.NFLL                                                         CMP30        982     A     
 COMPASS            EQ     TFL         RETURN                                              CMP30        983     A     
 COMPASS                                                                                   CMP30        984     A     
 COMPASS   TFLB     DATA   0                                                               CMP30        985     A     
 COMPASS                                                                                   CMP30        986     A     
 COMPASS   DEBUG    ENDIF                                                                  CMP30        987     A     
 COMPASS                                                                                   CMP30        988     A     
 COMPASS   TFL      PS                 RETURN EXIT                                         CMP30        989     A     
 COMPASS            SA1    CP.NFLS     TEST FIELD LENGTH                                   CMP30        990     A     
 COMPASS            SX6    X1-MIN.FL                                                       CMP30        991     A     
 COMPASS            PL     X1,TFL2     IF ENOUGH TO LOAD OVERLAY                           CMP30        992          I
          -CPS028 
 COMPASS            PL     X6,TFL2     IF ENOUGH TO LOAD OVERLAY                  S028 229 CPS028       162     A     
 COMPASS                                                                          S028 230 CPS028       163          I
          -F4810B 
 COMPASS   RM       IFEQ   CP#RM,7                                                S028 231 CPS028       164          I
          -F4810B 
 COMPASS                                                                          S028 232 CPS028       165          I
          -F4810B 
 COMPASS            MEMORY SCM,TFLA    REQUEST MORE MEMORY                        S028 233 CPS028       166          I
          -F4810B 
 COMPASS            SA1    TFLA                                                   S028 234 CPS028       167          I
          -F4810B 
 COMPASS            AX1    30                                                     S028 235 CPS028       168          I
          -F4810B 
 COMPASS            SX6    X1          SET COMMUNICATION WORDS                    S028 236 CPS028       169          I
          -F4810B 
 COMPASS            SA6    CP.AFLS                                                S028 237 CPS028       170          I
          -F4810B 
 COMPASS            SA6    CP.NFLS                                                S028 238 CPS028       171          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 246    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F4810B 
 COMPASS            EQ     TFL2        GO START LOADING OVERLAY                   S028 239 CPS028       172          I
          -F4810B 
 COMPASS                                                                          S028 240 CPS028       173          I
          -F4810B 
 COMPASS   TFLA     VFD    30/NOM.FL,30/0                                         S028 241 CPS028       174          I
          -F4810B 
 COMPASS                                                                          S028 242 CPS028       175          I
          -F4810B 
 COMPASS   RM       ELSE                                                          S028 243 CPS028       176          I
          -F4810B 
 COMPASS                                                                          S028 244 CPS028       177          I
          -F4810B 
 COMPASS            SA1    TFLA+2                                                          CMP30        993          I
          -CPSA234
 COMPASS            SX2    MIN.FL+77B  MINIMUM FIELD LENGTH                                CMP30        994          I
          -F4810B 
 COMPASS            BX7    X1          SAVE WORD OF MESSAGE WHICH WILL CONTAIN FL  F4810B  F4810B        28          I
          -CPSA234
 COMPASS            MEMORY CM,TFLB,RECALL,,NABORT  REQUEST MIN.FL                  F4810B  F4810B        29          I
          -CPSA132
 COMPASS            MEMORY CM,TFLBB,RECALL,,NABORT   REQUEST MIN.FL                        CPSA132        5     A     
 COMPASS            SA2    TFLB        GET RETURNED FL FROM REQUEST/REPLY WORD     F4810B  F4810B        30          I
          -CPSA132
 COMPASS            SA2    TFLBB       GET RETURNED FL FROM REQUEST/REPLY WORD             CPSA132        6     A     
 COMPASS            AX2    30-0                                                    F4810B  F4810B        31     A     
 COMPASS            SX3    X2-MIN.FL                                               F4810B  F4810B        32     A     
 COMPASS            BX6    X2                                                      F4810B  F4810B        33     A     
 COMPASS            SA6    CP.NFLS     RESET FIELD LENGTHS                         F4810B  F4810B        34     A     
 COMPASS            SA6    CP.AFLS                                                 F4810B  F4810B        35     A     
 COMPASS            PL     X3,TFL2     IF ENOUGH FL NOW, GO START LOADING OVL      F4810B  F4810B        36     A     
 COMPASS            SX2    MIN.FL+77B  ELSE, SEND ERROR MESSAGE AND ABORT          F4810B  F4810B        37     A     
 COMPASS            SA1    TFLA+2                                                          CPSA234        8     A     
 COMPASS            BX6    X1          WORD OF MESSAGE WHICH WILL CONTAIN FL               CPSA234        9     A     
 COMPASS            MX0    -6                                                              CMP30        995     A     
 COMPASS            BX3    X0*X2       ROUND UP TO A MULTIPLE OF 100B                      CMP30        996     A     
 COMPASS            SB7    B0                                                              CMP30        997     A     
 COMPASS            MX0    -3                                                              CMP30        998     A     
 COMPASS            BX6    X1                                                              CMP30        999          I
          -F4810B 
 COMPASS   TFL1     BX4    -X0*X3      CONVERT TO OCTAL                                    CMP30       1000     A     
 COMPASS            LX5    X4,B7                                                           CMP30       1001     A     
 COMPASS            SB7    B7+6                                                            CMP30       1002     A     
 COMPASS            AX3    3                                                               CMP30       1003     A     
 COMPASS            IX6    X6+X5                                                           CMP30       1004          I
          -F4810B 
 COMPASS            IX6    X7+X5       OR IN DIGIT                                 F4810B  F4810B        38          I
          -CPSA234
 COMPASS            IX6    X6+X5       OR IN DIGIT                                         CPSA234       10     A     
 COMPASS            NZ     X3,TFL1                                                         CMP30       1005     A     
 COMPASS            SA6    A1          STORE IN MESSAGE                                    CMP30       1006          I
          -F4810B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 247    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    TFLA+2      STORE IN MESSAGE                            F4810B  F4810B        39     A     
 COMPASS            MESSAGE TFLA,,R                                                        CMP30       1007     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30       1008     A     
 COMPASS                                                                                   CMP30       1009     A     
 COMPASS   TFLA     DIS    ,*  COMPASS NEEDS AT LEAST 00000B SCM.*                         CMP30       1010     A     
 COMPASS   TFLB     VFD    30/MIN.FL,30/0   MEMORY REQUEST/REPLY WORD              F4810B  F4810B        40          I
          -CPSA132
 COMPASS   TFLBB    VFD    30/MIN.FL,30/0    MEMORY REQUEST/REPLY WORD                     CPSA132        7     A     
 COMPASS                                                                          S028 246 CPS028       178     A     
 COMPASS   RM       ENDIF                                                         S028 247 CPS028       179     A     
 COMPASS   OPT      SPACE  4                                                               COMPASS      560          I
          -F4810A 
 COMPASS  **        OPTS - TABLE OF CONTROL CARD OPTIONS.                                  COMPASS      561          I
          -F4810A 
 COMPASS                                                                                   COMPASS      562          I
          -F4810A 
 COMPASS                                                                                   COMPASS      563          I
          -F4810A 
 COMPASS   OPT      BSS    0                                                               COMPASS      564          I
          -F4810A 
 COMPASS            VFD    12/0LA,18/-OPTA,30/AFLG                                         CMP20         26          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LB,18/OPTB,30/BINARY                                        COMPASS      565          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LD,18/-OPTD,30/ERRFLG                                       COMPASS      566          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LF,18/OPTF,30/ACTR                                          COMPASS      567          I
          -CMP15    -CMP30    -F4810A 
 COMPASS            VFD    12/0LF,18/OPTF,30/FMODE                                         CMP15         28          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LG,18/OPTG,30/GFLG                                          COMPASS      568          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LI,18/OPTI,30/INPUT                                         COMPASS      569          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LL,18/OPTL,30/LISTFG                                        COMPASS      570          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LLO,18/OPTM,30/XLIST                                        COMPASS      571          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LA,18/-OPTA,30/CP.ABORT                                     CMP30       1011          I
          -CP139CP  -F4810A 
 COMPASS            VFD    12/0LA,18/-OPTA,30/ABTF                                         CP139CP      152          I
          -F4810A 
 COMPASS            VFD    12/0LB,18/OPTB,30/B                                             CMP30       1012          I
          -F4810A 
 COMPASS            VFD    12/0LD,18/-OPTD,30/CP.ERRCT                                     CMP30       1013          I
          -F4810A 
 COMPASS            VFD    12/0LF,18/OPTF,30/CP.BATCH                                      CMP30       1014          I
          -CP139CP  -F4810A 
 COMPASS            VFD    12/0LF,18/OPTF,30/FVAL                                          CP139CP      153          I
          -F4810A 
 COMPASS            VFD    12/0LG,18/OPTG,30/-ARG8                                         CMP30       1015          I
          -F4810A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 248    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            VFD    12/0LI,18/OPTI,30/I                                             CMP30       1016          I
          -F4810A 
 COMPASS            VFD    12/0LL,18/OPTL,30/O                                             CMP30       1017          I
          -F4810A 
 COMPASS            VFD    12/0LLO,18/OPTLO,30/-ARG15                                      CMP30       1018          I
          -F4810A 
 COMPASS            VFD    12/0LML,18/OPTML,30/-ARG14                                      CMP30       1019          I
          -F4810A 
 COMPASS            VFD    12/0LN,18/-OPTN,30/PSIZE                                        COMPASS      572          I
          -CPS010   -F4810A 
 COMPASS            VFD    12/0LN,18/-OPTN,30/NEJF                                         CPS010        17          I
          -F4810A 
 COMPASS            VFD    12/0LO,18/OPTO,30/E                                             COMPASS      573          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LP,18/-OPTP,30/PAGE                                         COMPASS      574          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LS,18/OPTS,30/SYSTEXT                                       COMPASS      575          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LX,18/OPTX,30/XNAME                                         COMPASS      576          I
          -CMP30    -F4810A 
 COMPASS            VFD    12/0LO,18/OPTO,30/ELFN                                          CMP30       1020          I
          -F4810A 
 COMPASS            VFD    12/0LP,18/-OPTP,30/CP.PAGE                                      CMP30       1021          I
          -F4810A 
 COMPASS            VFD    12/0LPC,18/BLANKS,30/-ARG19                                     CMP30       1022          I
          -F4810A 
 COMPASS            VFD    12/0LS,18/OPTS,30/-ARG10                                        CMP30       1023          I
          -F4810A 
 COMPASS            IFNE   SPY,0,1                                                         CMP30       1024          I
          -F4810A 
 COMPASS            VFD    12/0LW,18/OPTW,30/SPYPAR                                        CMP30       1025          I
          -F4810A 
 COMPASS            VFD    12/0LX,18/OPTX,30/CP.XNAME                                      CMP30       1026          I
          -F4810A 
 COMPASS   LOPT     EQU    *-OPT                                                           COMPASS      577          I
          -F4810A 
 COMPASS                                                                                   COMPASS      578          I
          -F4810A 
 COMPASS                                                                                   COMPASS      579          I
          -F4810A 
 COMPASS   OPTA     DATA   1                                                               CMP20         27          I
          -CP139CP  -F4810A 
 COMPASS   OPTA     DATA   1S29                                                            CP139CP      154          I
          -F4810A 
 COMPASS   OPTB     DATA   0LLGO                                                           COMPASS      580          I
          -F4810A 
 COMPASS   OPTD     DATA   1BS59                                                           COMPASS      581          I
          -F4810A 
 COMPASS   OPTF     DATA   0LCOMPASS                                                       COMPASS      582          I
          -F4810A 
 COMPASS   OPTG     DATA   0LSYSTEXT                                                       COMPASS      583          I
          -F4810A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 249    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   OPTI     DATA   0LCOMPILE                                                       COMPASS      584          I
          -F4810A 
 COMPASS   OPTL     DATA   0LOUTPUT                                                        COMPASS      585          I
          -F4810A 
 COMPASS   OPTM     DATA   0LCFGX                                                          COMPASS      586          I
          -CMP30    -F4810A 
 COMPASS   OPTLO    DATA   0LCFGX                                                          CMP30       1027          I
          -F4810A 
 COMPASS   OPTML    DATA   0L"JDATE"                                                       CMP30       1028          I
          -F4810A 
 COMPASS   OPTN     DATA   0                                                               COMPASS      587          I
          -F4810A 
 COMPASS   OPTO     DATA   0LOUTPUT                                                        COMPASS      588          I
          -F4810A 
 COMPASS   OPTP     DATA   0                                                               COMPASS      589          I
          -F4810A 
 COMPASS   OPTS     DATA   0LSYS                                                           COMPASS      590          I
          -CMP8     -F4810A 
 COMPASS   OPTS     DATA   0LSYSTEXT                                                       CMP8           3          I
          -F4810A 
 COMPASS   OPTW     DATA   0L100                                                           CMP30       1029          I
          -F4810A 
 COMPASS   OPTX     DATA   0LOPL                                                           COMPASS      591          I
          -F4810A 
 COMPASS                                                                                   CMP20         28          I
          -CMP30    -F4810A 
 COMPASS   INPUT    DATA   0LINPUT                                                         CMP20         29          I
          -CMP30    -F4810A 
 COMPASS                                                                                   CMP30       1030          I
          -F4810A 
 COMPASS                                                                                   CMP30       1031          I
          -F4810A 
 COMPASS   ABTF     DATA   0                                                               CP139CP      155          I
          -F4810A 
 COMPASS   ELFN     DATA   0LOUTPUT                                                        CMP30       1032          I
          -F4810A 
 COMPASS   FVAL     DATA   0                                                               CP139CP      156          I
          -F4810A 
 COMPASS   NEJF     CON    PAGESIZ+5                                                       CPS010        18          I
          -F4810A 
 COMPASS            SPACE  4                                                               CMP30       1033          I
          -F4810A 
 COMPASS  **        END OF (0,0) OVERLAY.                                                  CMP30       1034     A     
 COMPASS                                                                                   CMP30       1035     A     
 COMPASS                                                                                   CMP30       1036     A     
 COMPASS   R        ERRMI  CP.ORG-*    INITIALIZATION CODE IS TOO LARGE                    CMP30       1037     A     
 COMPASS            TITLE  MAIN PROGRAM.                                                   COMPASS      592     A     
 COMPASS            LIST   F                                                               COMPASS      593          I
          -CMP20  
 COMPASS            IFEQ   OVERLAY,0   SEGMENT CONTROL                                     COMPASS      594     A     
 COMPASS            ORG    ORGOVER                                                         COMPASS      595          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 250    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       1038     A     
 COMPASS            ORG    CP.ORG+1                                                        CMP30       1039     A     
 COMPASS            IDENT              MAIN PROGRAM.                                       COMPASS      596     A     
 COMPASS            ELSE   1                                                               COMPASS      597          I
          -CMP30  
 COMPASS            IDENT  "OVL",ORGOVER,COMPASS   MAIN PROGRAM.                           COMPASS      598          I
          -CMP30  
 COMPASS            LIST   *                                                               COMPASS      599          I
          -CMP14    -CMP20    -CMP30  
 COMPASS            ORG    ORGOVER                                                         CMP14         11          I
          -CMP30  
 COMPASS                                                                                   CMP30       1040     A     
 COMPASS            ELSE                                                                   CMP30       1041     A     
 COMPASS                                                                                   CMP30       1042     A     
 COMPASS            IDENT  "CP.NAME",CP.ORG+1,COMPASS       MAIN PROGRAM                   CMP30       1043          I
          -CP139CP
 COMPASS            IDENT  "CP.NAME",CP.ORG+1,CMP           MAIN PROGRAM                   CP139CP      157     A     
 COMPASS            COMMENT   CYBER 70/ MODEL "MODEL"                                      CMP30       1044     A     
 COMPASS            COMMENT   COMPREHENSIVE ASSEMBLER PROGRAM VERSION "VERSION".           CMP30       1045     A     
 COMPASS            ORG    CP.ORG+1                                                        CMP30       1046     A     
 COMPASS                                                                                   CMP30       1047     A     
 COMPASS            ENDIF                                                                  CMP30       1048     A     
 COMPASS                                                                                   CMP30       1049     A     
 COMPASS            IFNE   DEBUG,0,1   PATCH SPACE                                         CMP14         12     A     
 COMPASS            BSSZ   100B                                                            CMP14         13     A     
 COMPASS            TITLE  BATCH CONTROL CELLS.                                            COMPASS      600     A     
 COMPASS  **        FILE ENVIRONMENT TABLES.                                               COMPASS      601          I
          -CMP30  
 COMPASS  **        FET/FIT EQUATES FOR INPUT/OUTPUT/LGO FILES.                            CMP30       1050     A     
 COMPASS                                                                                   COMPASS      602     A     
 COMPASS                                                                                   COMPASS      603     A     
 COMPASS            ORG    ORGOVER                                                         COMPASS      604          I
          -CMP14  
 COMPASS   B        BSS    0           BINARY                                              COMPASS      605          I
          -CMP30  
 COMPASS            FET    ,BBUFL,7                                                        COMPASS      606          I
          -CMP30  
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1051     A     
 COMPASS                                                                                   CMP30       1052     A     
 COMPASS   I        EQU    CP.IFET                                                         CMP30       1053     A     
 COMPASS   O        EQU    CP.OFET                                                         CMP30       1054     A     
 COMPASS   B        EQU    CP.BFET                                                         CMP30       1055     A     
 COMPASS   E        EQU    CP.EFET                                                         CPSA142       38     A     
 COMPASS                                                                                   CMP30       1056     A     
 COMPASS   RM       ELSE                                                                   CMP30       1057     A     
 COMPASS                                                                                   CMP30       1058     A     
 COMPASS   I        EQU    CP.IFIT                                                         CMP30       1059     A     
 COMPASS   O        EQU    CP.OFIT                                                         CMP30       1060     A     
 COMPASS   B        EQU    CP.BFIT                                                         CMP30       1061     A     
 COMPASS   E        EQU    CP.EFIT                                                         CPSA142       39     A     
 COMPASS                                                                                   CMP30       1062     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1063     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 251    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SCRATCH  SPACE  4                                                               CMP30       1064     A     
 COMPASS  **        FET/FIT FOR SCRATCH FILE.                                              CMP30       1065     A     
 COMPASS                                                                                   CMP30       1066     A     
 COMPASS                                                                                   COMPASS      607     A     
 COMPASS   S        BSS    0           SCRATCH                                             COMPASS      608          I
          -CMP30  
 COMPASS   CMPSCR   FET    ,SBUFL,7                                                        COMPASS      609          I
          -CMP30  
 COMPASS   SCR      FET    ZZZZZRL,,SBUFL,7                                                CMP30       1067     A     
 COMPASS                                                                                   CMP30       1068     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1069     A     
 COMPASS   S        EQU    SCR                                                             CMP30       1070     A     
 COMPASS   RM       ELSE                                                                   CMP30       1071     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       1072          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 249 CPS028       180          I
          -CPSA134
 COMPASS   S        FILE   LFN=ZZZZZRL,FO=SQ,BT=C,RT=U,MRL=2550,CM=NO,LT=UL,FET=SC         CMP30       1073          I
          -CPSA134
 COMPASS  ,R,BFS=SBUFL                                                                     CMP30       1074          I
          -CPS028   -CPSA134
 COMPASS            SKIP   1                                                               CMP30       1075          I
          -CPS028   -CPSA134
 COMPASS  ,R,BFS=SBUFL,ERL=1                                                      S028 251 CPS028       181          I
          -CPSA134
 COMPASS            IFEQ   CP#RM,7,1                                              S028 252 CPS028       182          I
          -CPSA134
 COMPASS   S        FILE   LFN=ZZZZZRL,FO=SQ,BT=,RT=U,MRL=2550,CM=NO                       CMP30       1076     A     
 COMPASS            BSSZ   SCR+40B-*                                                       CMP30       1077     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1078     A     
 COMPASS   XTEXT    SPACE  4                                                               CMP30       1079     A     
 COMPASS  **        FET/FIT FOR XTEXT FILES.                                               CMP30       1080     A     
 COMPASS                                                                                   CMP30       1081     A     
 COMPASS                                                                                   COMPASS      610     A     
 COMPASS   X        BSS    0           XTEXT                                               COMPASS      611          I
          -CMP30  
 COMPASS            FET    ,BBUFL,3,4400B                                                  COMPASS      612          I
          -CMP27    -CMP30  
 COMPASS            FET    ,BBUFL,3,4000B                                                  CMP27          1          I
          -CMP30  
 COMPASS   XTF      FET    ,,BBUFL,3,4000B                                                 CMP30       1082     A     
 COMPASS                                                                                   CMP30       1083     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1084     A     
 COMPASS   X        EQU    XTF                                                             CMP30       1085     A     
 COMPASS   RM       ELSE                                                                   CMP30       1086     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       1087          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 254 CPS028       183          I
          -CPSA134
 COMPASS   X        FILE   FO=SQ,BT=C,RT=Z,MRL=100,CM=YES,LT=UL,WSA=VALUES,FET=XTF         CMP30       1088          I
          -CPSA134
 COMPASS  ,,BFS=BBUFL                                                                      CMP30       1089          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 252    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028   -CPSA134
 COMPASS            SKIP   1                                                               CMP30       1090          I
          -CPS028   -CPSA134
 COMPASS  ,,BFS=BBUFL,ERL=1                                                       S028 256 CPS028       184          I
          -CPSA134
 COMPASS            IFEQ   CP#RM,7,1                                              S028 257 CPS028       185          I
          -CPSA134
 COMPASS   X        FILE   FO=SQ,BT=,RT=W,MRL=5120,CM=NO,WSA=VALUES,PD=INPUT               CMP30       1091     A     
 COMPASS            BSSZ   XTF+40B-*                                                       CMP30       1092     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1093     A     
 COMPASS   ERROR    SPACE  4                                                               CMP30       1094          I
          -CPSA142
 COMPASS  **        FET/FIT FOR ERROR LISTING FILE.                                        CMP30       1095          I
          -CPSA142
 COMPASS                                                                                   CMP30       1096          I
          -CPSA142
 COMPASS                                                                                   COMPASS      613          I
          -CPSA142
 COMPASS   E        BSS    0           ERRORS                                              COMPASS      614          I
          -CMP30    -CPSA142
 COMPASS            FET    ,EBUFL                                                          COMPASS      615          I
          -CMP30    -CPSA142
 COMPASS   ERL      FET    OUTPUT,,EBUFL,5                                                 CMP30       1097          I
          -CPSA142
 COMPASS                                                                                   CMP30       1098          I
          -CPSA142
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1099          I
          -CPSA142
 COMPASS   E        EQU    ERL                                                             CMP30       1100          I
          -CPSA142
 COMPASS   RM       ELSE                                                                   CMP30       1101          I
          -CPSA142
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       1102          I
          -CPS028   -CPSA142
 COMPASS            IFEQ   CP#RM,6,1                                              S028 259 CPS028       186          I
          -CPSA142
 COMPASS   E        FILE   LFN=OUTPUT,FO=SQ,BT=C,RT=Z,MRL=137,CM=YES,LT=UL,FET=ERL         CMP30       1103          I
          -CPSA142
 COMPASS  ,,BFS=EBUFL                                                                      CMP30       1104          I
          -CPS028   -CPSA142
 COMPASS            SKIP   1                                                               CMP30       1105          I
          -CPS028   -CPSA142
 COMPASS  ,,BFS=EBUFL,ERL=1                                                       S028 261 CPS028       187          I
          -CPSA142
 COMPASS            IFEQ   CP#RM,7,1                                              S028 262 CPS028       188          I
          -CPSA142
 COMPASS   E        FILE   LFN=OUTPUT,FO=SQ,BT=,RT=W,MRL=137,OF=N,CF=N,PD=OUTPUT           CMP30       1106          I
          -CPSA142
 COMPASS            BSSZ   ERL+40B-*                                                       CMP30       1107          I
          -CPSA142
 COMPASS   RM       ENDIF                                                                  CMP30       1108          I
          -CPSA142
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 253    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   REF      SPACE  4                                                               CMP30       1109     A     
 COMPASS  **        FET/FIT FOR CROSS-REFERENCE SCRATCH FILE.                              CMP30       1110     A     
 COMPASS                                                                                   CMP30       1111     A     
 COMPASS                                                                                   COMPASS      616     A     
 COMPASS   R        BSS    0           CROSS-REFERENCES                                    COMPASS      617          I
          -CMP30  
 COMPASS   SCR1     FET    ,RBUFL,7                                                        COMPASS      618          I
          -CMP30  
 COMPASS   REF      FET    ZZZZZRM,,RBUFL,7                                                CMP30       1112     A     
 COMPASS                                                                                   CMP30       1113     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1114     A     
 COMPASS   R        EQU    REF                                                             CMP30       1115     A     
 COMPASS   RM       ELSE                                                                   CMP30       1116     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       1117          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 264 CPS028       189          I
          -CPSA134
 COMPASS   R        FILE   LFN=ZZZZZRM,FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=REF,BFS=RBU         CMP30       1118          I
          -CPSA134
 COMPASS  ,FL                                                                              CMP30       1119          I
          -CPS028   -CPSA134
 COMPASS            SKIP   1                                                               CMP30       1120          I
          -CPS028   -CPSA134
 COMPASS  ,FL,ERL=1                                                               S028 266 CPS028       190          I
          -CPSA134
 COMPASS            IFEQ   CP#RM,7,1                                              S028 267 CPS028       191          I
          -CPSA134
 COMPASS   R        FILE   LFN=ZZZZZRM,FO=SQ,BT=C,RT=S,CM=NO                               CMP30       1121     A     
 COMPASS            BSSZ   REF+40B-*                                                       CMP30       1122     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1123     A     
 COMPASS                                                                                   COMPASS      619     A     
 COMPASS   T        BSS    0           ALTERNATE CROSS-REFERENCE                           COMPASS      620          I
          -CMP30  
 COMPASS   SCR1     FET    TBUF,RBUFL,7                                                    COMPASS      621          I
          -CMP30  
 COMPASS            IFEQ   CP#RM,0,1                                                       CMP30       1124     A     
 COMPASS   T        FET    ZZZZZRM,TBUF,RBUFL,7                                            CMP30       1125     A     
 COMPASS                                                                                   COMPASS      622     A     
 COMPASS            IFEQ   OVERLAY,0,2                                                     CPS064        29     A     
 COMPASS   C        BSS    0           COMPASS IMAGE                                       COMPASS      623          I
          -CMP30  
 COMPASS   SCR2     FET    CBUF,BUCKET-CBUF,7                                              COMPASS      624          I
          -CMP30  
 COMPASS            IFEQ   CP#RM,0,1                                                       CMP30       1126     A     
 COMPASS   C        FET    ZZZZZRM,CBUF,BUCKET-CBUF,7                                      CMP30       1127     A     
 COMPASS   SNAPPER  SPACE  4                                                               CMP30       1128     A     
 COMPASS  **        FET/FIT FOR DEBUG OUTPUT FILE.                                         CMP30       1129     A     
 COMPASS                                                                                   CMP30       1130     A     
 COMPASS                                                                                   CMP14         14     A     
 COMPASS   DEBUG    IFNE   DEBUG                                                           CMP14         15     A     
 COMPASS                                                                                   CMP14         16     A     
 COMPASS   D        BSS    0           DEBUGGING OUTPUT FILE                               CMP14         17          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 254    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS   SNAPPER  FET    ,DBUFL,5                                                        CMP14         18          I
          -CMP30  
 COMPASS   DBG      FET    SNAPPER,,DBUFL,5                                                CMP30       1131     A     
 COMPASS                                                                                   CMP30       1132     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1133     A     
 COMPASS   D        EQU    DBG                                                             CMP30       1134     A     
 COMPASS   RM       ELSE                                                                   CMP30       1135     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       1136          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 269 CPS028       192          I
          -CPSA134
 COMPASS   D        FILE   LFN=SNAPPER,FO=SQ,BT=C,RT=Z,MRL=137,CM=YES,LT=UL,FET=DB         CMP30       1137          I
          -CPSA134
 COMPASS  ,G,BFS=DBUFL                                                                     CMP30       1138          I
          -CPS028   -CPSA134
 COMPASS            SKIP   1                                                               CMP30       1139          I
          -CPS028   -CPSA134
 COMPASS  ,G,BFS=DBUFL,ERL=1                                                      S028 271 CPS028       193          I
          -CPSA134
 COMPASS            IFEQ   CP#RM,7,1                                              S028 272 CPS028       194          I
          -CPSA134
 COMPASS   D        FILE   LFN=SNAPPER,FO=SQ,BT=,RT=W,MRL=137,OF=N,CF=N,PD=OUTPUT          CMP30       1140     A     
 COMPASS            BSSZ   DBG+40B-*                                                       CMP30       1141     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1142     A     
 COMPASS                                                                                   CMP14         19     A     
 COMPASS   DEBUG    ENDIF                                                                  CMP14         20     A     
 COMPASS   TABLE    SPACE  4                                                               COMPASS      625     A     
 COMPASS  **        ASSEMBLER CONTROL FLAGS.                                               COMPASS      626     A     
 COMPASS                                                                                   COMPASS      627     A     
 COMPASS                                                                                   COMPASS      628     A     
 COMPASS   LSYSMAC  DATA   0           LENGTH OF SYSTEMS MACROS                            COMPASS      629     A     
 COMPASS   LOCORE   VFD    60/BUCKET   FWA AVAILABLE STORAGE                               COMPASS      630     A     
 COMPASS   SIZCORE  DATA   0           SIZE OF AVAILABLE CORE                              COMPASS      631     A     
 COMPASS   MAXCORE  DATA   0           MAXIMUM TABLE STORAGE USED                          COMPASS      632          I
          -CMP042 
 COMPASS   MAXCORE  CON    BUCKET      MAXIMUM SCM USED DURING CURRENT ASSEMBLY            CMP042        17          I
          -CMP30  
 COMPASS   MAXSCM   CON    BUCKET      MAXIMUM SCM USED DURING ENTIRE BATCH                CMP042        18          I
          -CMP30  
 COMPASS   FIELDL   DATA   0           CURRENT FIELD LENGTH                                COMPASS      633          I
          -CMP30  
 COMPASS   MAXCORE  CON    MIN.FL      MAXIMUM SCM USED DURING CURRENT ASSEMBLY            CMP30       1143     A     
 COMPASS   BLCM     DATA   0           BATCH MAXIMUM ECS/LCM USED                 S028 274 CPS028       195     A     
 COMPASS   FLLF     DATA   1           FIXED ECS/LCM FIELD LENGTH FLAG            S028 275 CPS028       196     A     
 COMPASS   LCMMIC   DATA   0           LCM SYSMIC POINTER                                  CMP30       1144     A     
 COMPASS   LCMSYM   DATA   0           LCM SSYMS  POINTER                                  CMP30       1145     A     
 COMPASS   LCMOPC   DATA   0           LCM OPTAB  POINTER                                  CMP30       1146     A     
 COMPASS   LCMMAC   DATA   0           LCM MACDEF POINTER                                  CMP30       1147     A     
 COMPASS   LCMSYS   DATA   200B        LWA+1 OF SYSTEM MACROS IN LCM              S028 277 CPS028       197     A     
 COMPASS   LCMPGM   DATA   200B        LWA+1 OF PROGRAM MACROS IN LCM                      CP096A        54     A     
 COMPASS   LCMEND   DATA   200B        LCM AVAILABLE SPACE POINTER                         CMP30       1148     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 255    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LSTTHOU  DATA   0           =1 USE LAST 1000B WORDS (SET IN RFL,DFL)            CPSA125        7     A     
 COMPASS   MAXFL    VFD    30/-1,30/0  MAXIMUM FL AVAILABLE TO JOB                 F4810B  F4810B        41     A     
 COMPASS   MIDFLN   CON    MIDFL       FL AT WHICH TABLES DUMPED TO FILES          F4810B  F4810B        42     A     
 COMPASS                                                                                   CP096A        55     A     
 COMPASS   RM       IFEQ   CP#RM,7                                                         CP096A        56     A     
 COMPASS   O.SYMTAB DATA   0           LCM SYMBOL TABLE ORIGIN                             CP096A        57     A     
 COMPASS   L.SYMTAB DATA   0           LCM SYMBOL TABLE LENGTH                             CP096A        58     A     
 COMPASS   LCMB     BSSZ   100B        LCM MOVE/CLEAR BUFFER                               CP096A        59     A     
 COMPASS   RM       ELSE                                                                   CP096A        60     A     
 COMPASS   LCMB     BSS    0                                                               CP096A        61     A     
 COMPASS   RM       ENDIF                                                                  CP096A        62     A     
 COMPASS                                                                                   CP096A        63     A     
 COMPASS   EOFINP   DATA   0           FLAG FOR END OF RECORD ON INPUT                     COMPASS      634     A     
 COMPASS   AMODE    DATA   0           AMODE FLAG                                          COMPASS      635          I
          -CMP24  
 COMPASS   AMODE    DATA   0           SOURCE INPUT FORMAT.  POSSIBLE VALUES -             CMP24          1          I
          -CMP30  
 COMPASS                                  +2 = UPDATE COMPRESSED COMPILE FILE (A).         CMP24          2          I
          -CMP30  
 COMPASS                                  +1 = MODIFY COMPRESSED COMPILE FILE (X).         CMP24          3          I
          -CMP30  
 COMPASS                                  +0 = NORMAL SOURCE INPUT FILE.                   CMP24          4          I
          -CMP30  
 COMPASS                                  -1 = UPDATE PROGRAM LIBRARY COMMON DECK.         CMP24          5          I
          -CMP30  
 COMPASS                                  -2 = MODIFY PROGRAM LIBRARY COMMON DECK.         CMP24          6          I
          -CMP30  
 COMPASS   FMODE    DATA   0           FORTRAN MODE (0-COMPASS, 1-RUN, 2-FTN)              COMPASS      636          I
          -CMP15    -CMP30  
 COMPASS   FMODE    DATA   1L0         *F VALUE (COMPASS - 0, RUN - 1, FTN - 2)            CMP15         29          I
          -CMP30  
 COMPASS   AFLG     DATA   0           ABORT FLAG                                          CMP20         30          I
          -CMP30  
 COMPASS   GFLG     DATA   0           NAME OF FILE FOR SYSTEXT LOAD                       COMPASS      637          I
          -CMP8     -CMP30  
 COMPASS   GFLG     DATA   1L0         NAME OF FILE FOR SYSTEXT LOAD                       CMP8           4          I
          -CMP30  
 COMPASS   SYSNAME  DATA   0           SYSTEXT NAME FOR XREF LISTING                       CMP27          2          I
          -CMP30  
 COMPASS   FMODE    DATA   0           *F VALUE (COMPASS = 0, RUN = 1, FTN = 2)            CMP30       1149     A     
 COMPASS   XLIST    DATA   0           EXTERNAL LIST CONTROL                               COMPASS      638     A     
 COMPASS   FTNE     DATA   0           FIRST WORD OF E FET FROM FTN.                       CPSA168        7          I
          -CPSA184
 COMPASS   FTNE     BSSZ   2           FIRST WORD OF EFET AND BUFFER LENGTH FROM F         CPSA184        5     A     
 COMPASS   SHORTEJ  DATA   1L-         SHORT EJECT CARRIAGE CONTROL CHARACTER              CPSA142       40     A     
 COMPASS   LONGEJ   DATA   1L1         LONG EJECT CARRIAGE CONTROL CHARACTER               CPSA142       41     A     
 COMPASS   PSIZE    CON    PAGESIZ+5   PAGE SIZE FOR EJECT                                 COMPASS      639          I
          -F4810A 
 COMPASS   COMPPD   DATA   0           SAVES COMPILER VALUE OF CP.PD               F4810A  F4810A        99     A     
 COMPASS   COMPPS   DATA   0           SAVES COMPILER VALUE OF CP.PS               F4810A  F4810A       100     A     
 COMPASS   COMPPW   DATA   0           SAVES COMPILER VALUE OF CP.PW                       CPSA265       37     A     
 COMPASS   NEJF     CON    5           SET TO ZERO IF *N* ARGUMENT SPECIFIED       F4810A  F4810A       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/28. 19.11.32.      PAGE 256    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PSIZE    DATA   0           EJECT PAGE SIZE CP.PS+5 (0 IF N SPECIFIED)  F4810A  F4810A       102          I
          -CPSA181
 COMPASS   PSIZE    DATA   0           EJECT PAGE SIZE CP.PS+5(0 IF *BL* NOT SPEC)         CPSA181        7     A     
 COMPASS   FRSTLIN  DATA   0           0   PRINT DENSITY NOT TO BE CHANGED         F4810A  F4810A       103     A     
 COMPASS  *                            NZ  CHAR. TO BE PRINTED TO CHANGE PRINT DEN F4810A  F4810A       104     A     
 COMPASS  *                            -0  PRINT DENSITY HAS BEEN CHANGED          F4810A  F4810A       105          I
          -CPS236 
 COMPASS   LASTLIN  DATA   0           STORES CHAR. TO RESET PRINTER TO DEFAULT    F4810A  F4810A       106          I
          -CPS236 
 COMPASS   LASTLIN  DATA   1HS         STORES CHAR. TO RESET PRINTER TO SIX.               CPS236        12     A     
 COMPASS   XNAME    DATA   0LOPL       XTEXT FILE NAME                                     COMPASS      640          I
          -CMP20  
 COMPASS   XNAME    DATA   0LOLDPL     XTEXT FILE NAME                                     CMP20         31          I
          -CMP30  
 COMPASS   TLINE    DATA   H*6400 ASSEMBLY*                                                COMPASS      641          I
          -CMP30  
 COMPASS   JMF      DATA   1S54        JOB DAYFILE FLAG FOR *MSG*                          CMP029        12          I
          -CMP30  
 COMPASS   BTIME    DATA   0           BATCH CPU TIME                                      CMP30       1150     A     
 COMPASS   TLINE    DATA   H*MODEL "MODEL" ASSEMBLY*                                       CMP30       1151          I
          -CPS240 
 COMPASS   TLINE    DATA   H* CDC TYPE CPU ASSEMBLY*                                       CPS240         5     A     
 COMPASS   FLAGS    SPACE  4                                                               COMPASS      642     A     
 COMPASS  **        COMMON CELLS AND FLAGS.                                                COMPASS      643     A     
 COMPASS                                                                                   COMPASS      644     A     
 COMPASS                                                                                   COMPASS      645     A     
 COMPASS   CLP1     BSS    0                                                               COMPASS      646     A     
 COMPASS   LOCSYM   DATA   0           LOCATION SYMBOL                                     COMPASS      647     A     
 COMPASS   IOP      DATA   0           OP CODE SYMBOL (MUST FOLLOW LOCSYM)                 COMPASS      648     A     
 COMPASS   ORGCTR   DATA   0,0         ORIGIN AND RELOCATION                               COMPASS      649     A     
 COMPASS   LOCCTR   DATA   0,0         LOCATION COUNTER AND RELOCATION                     COMPASS      650     A     
 COMPASS   POSCTR   DATA   0           INTERNAL POSITION COUNTER                           COMPASS      651     A     
 COMPASS   CLF      DATA   0           CONDITIONAL LOAD FLAG (BIT 59)                      CMP30       1152     A     
 COMPASS   QVAL     DATA   0,0         SYMBOL QUAL VALUE                                   COMPASS      652     A     
 COMPASS   MACHINE  DATA   0           0 FOR CP, 1 FOR PP                                  COMPASS      653     A     
 COMPASS   MTYPE    DATA   0           OBJECT PROCESSOR TYPE (0=ANY,1=6000,2=7000)         CMP30       1153     A     
 COMPASS   PPTYPE   DATA   0           1 FOR 7600 PP FORMAT                                COMPASS      654          I
          -CPSA281
 COMPASS   PPTYPE   DATA   0           TYPE OF PP ASSEMBLY -                               CPSA281        8     A     
 COMPASS                                -3 IF 180 PPU                                      CPSA281        9     A     
 COMPASS                                -2 IF MCU                                          CPSA281       10     A     
 COMPASS                                -1 IF BCU                                          CPSA281       11     A     
 COMPASS                                 0 IF 6XXX                                         CPSA281       12     A     
 COMPASS                                 1 IF 7600                                         CPSA281       13     A     
 COMPASS   RMODE    DATA   0           REVERSED ADDRESS MODE FOR INTEL 8080                F4820A         4     A     
 COMPASS   IDNAM    DATA   0           NAME FROM IDENT CARD                                COMPASS      655     A     
 COMPASS   SYNAME   DATA   0           SYSTEXT GENERATION NAME                             COMPASS      656     A     
 COMPASS   INVENT   DATA   0R'?000000  8-CHAR INVENTED SYMBOL NAME                         COMPASS      657     A     
 COMPASS   LWORD    DATA   0           WORD LENGTH (60 OR 12)                              COMPASS      658          I
          -CPSA281
 COMPASS   LWORD    DATA   0           WORD LENGTH -                                       CPSA281       14     A     
 COMPASS                                 8 FOR MCU                                         CPSA281       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/28. 19.11.32.      PAGE 257    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                12 FOR PPU (6XXX OR 7600)                          CPSA281       16     A     
 COMPASS                                16 FOR BCU OR 180                                  CPSA281       17     A     
 COMPASS                                60 FOR CPU                                         CPSA281       18     A     
 COMPASS   VWORD    DATA   0           VFD AND CON ASSEMBLY MODE -                         CPSA288       10     A     
 COMPASS                                0 - NORMAL ASSEMBLY                                CPSA288       11     A     
 COMPASS                                4 - FOR 180 PPU ASSEMBLIES ONLY, USE ONLY          CPSA288       12     A     
 COMPASS                                    THE LOWER 12 BITS FOR *CON* AND *VFD*          CPSA288       13     A     
 COMPASS   WWORD    DATA   0           USED BY *CON* AND *VFD*                             CPSA288       14     A     
 COMPASS   PPMEMSZ  DATA   12          MEMORY SIZE FOR PP ASSEMBLIES (FIELD SIZE)          CPSA281       19     A     
 COMPASS   NCHARS   DATA   0           NUMBER OF CHARACTERS PER WORD (2 OR 10)             COMPASS      659     A     
 COMPASS   ABSFG    DATA   0           ABSOLUTE ASSEMBLY FLAG                              COMPASS      660     A     
 COMPASS   SLIST    DATA   24B         LIST FLAG STACK (ONE WORD)                          COMPASS      661          I
          -CMP19  
 COMPASS   SLIST    DATA   10130B      LIST FLAG STACK (ONE WORD)                          CMP19          3          I
          -CMP30  
 COMPASS   PPJUMP   DATA   0           PP JUMP FLAG                                        COMPASS      662     A     
 COMPASS   SQUAL    DATA   0           QUAL STACK (ONE WORD)                               COMPASS      663          I
          -CMP30  
 COMPASS   NOLFG    DATA   0           NO LABEL FLAG                                       COMPASS      664     A     
 COMPASS   NBASE    DATA   10          RADIX FOR UNSPECIFIED CONSTANTS                     COMPASS      665     A     
 COMPASS   MBASE    DATA   10          RADIX FOR SPECIAL CONSTANTS                         COMPASS      666     A     
 COMPASS   ABASE    DATA   1RD         BASE CHARACTER                                      COMPASS      667          I
          -CMP30  
 COMPASS   ABASE    DATA   0           BASE TYPE                                           CMP30       1154     A     
 COMPASS   NFOUP    DATA   0           FORCE NEXT UPPER                                    COMPASS      668     A     
 COMPASS   IFCDGP   DATA   0           FIRST CARD GROUP FLAG                               COMPASS      669     A     
 COMPASS   TITFG    DATA   0           TITLE FLAG                                          COMPASS      670     A     
 COMPASS   CCOL     VFD    60/COMCOL   COMMENT COLUMN                                      COMPASS      671     A     
 COMPASS   COL      BSS    2           COLUMN NUMBERS-1 OFOP, ADDR                         COMPASS      672     A     
 COMPASS   COLUMN   DATA   0           CURRENT COLUMN NUMBER                               COMPASS      673     A     
 COMPASS   CHAR     DATA   0           CURRENT CHARACTER                                   COMPASS      674     A     
 COMPASS   INTERIO  DATA   0           INTERMEDIATE I/O FLAG                               COMPASS      675     A     
 COMPASS   ERCNT    DATA   0           ASSEMBLY ERROR COUNT                                COMPASS      676     A     
 COMPASS   WECNT    DATA   0           WARNING ERROR COUNT                                 COMPASS      677     A     
 COMPASS   USECNT   DATA   2           NUMBER OF BLOCKS IN USE                             COMPASS      678          I
          -RSM4159
 COMPASS   CT       DATA   0           CHARACTER TYPE                                      COMPASS      679          I
          -CMP30  
 COMPASS   UI       DATA   0,0         USETAB INDEX                                        COMPASS      680          I
          -CMP30  
 COMPASS   CT       DATA   0,0         CHARACTER TYPE                                      CMP30       1155     A     
 COMPASS   UI       DATA   0,0,0       USETAB INDEX                                        CMP30       1156     A     
 COMPASS   LI       DATA   0,0         LITAB INDEX                                         COMPASS      681     A     
 COMPASS   EI       DATA   0,0         EPTAB INDEX                                         COMPASS      682     A     
 COMPASS   DI       DATA   0,0         DEFAULT SYMBOL INDEX                                CMP17          1     A     
 COMPASS   SI       DATA   0           SEGTAB INDEX                                        COMPASS      683     A     
 COMPASS   LCM      DATA   0           LCM LENGTH                                          COMPASS      684     A     
 COMPASS   LLB      DATA   0           LOCAL LCM BLOCK RELOCATION (BITS 32-24)             CMP30       1157     A     
 COMPASS   NBLOCKS  DATA   0           COUNT OF COMMON BLOCKS                              COMPASS      685     A     
 COMPASS   STCNT    DATA   0           STATEMENT COUNT                                     COMPASS      686     A     
 COMPASS   SYMCNT   DATA   0           SYMBOL COUNT                                        COMPASS      687     A     
 COMPASS   ALCM     DATA   0           MAX ECS/LCM USED DURING CURRENT ASSEMBLY   S028 279 CPS028       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/28. 19.11.32.      PAGE 258    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ATIME    DATA   0           ASSEMBLY TIME                                       COMPASS      688     A     
 COMPASS   REQC     DATA   0           R= SWITCH                                           COMPASS      689     A     
 COMPASS   SSTCNT   DATA   0           NUMBER OF SYSTEM SYMBOLS DEFINED                    CMP25          2     A     
 COMPASS   XR       DATA   0           REFERENCE TYPE (0-PAGE/LINE, 1-ADDRESS)             COMPASS      690          I
          -CPS010 
 COMPASS   XR       CON    XRDV        XREF TYPE (-1=PAGE/LINE, 0=ADDRESS, 1=BOTH)         CPS010        19     A     
 COMPASS   CRLF     DATA   0           RECURSION LIMIT EXCEEDED FLAG              S004   7 CPS004         1     A     
 COMPASS   IFDF     DATA   0           IF DEF/EXT/REG FLAG - TO AVOID U-ERRORS             CMP146         1     A     
 COMPASS   LCLP1    EQU    *-CLP1                                                          COMPASS      691     A     
 COMPASS                                                                                   COMPASS      692     A     
 COMPASS                                                                                   COMPASS      693     A     
 COMPASS   TITBUF   DATA   1H1         TEXT OF TITLE                                       COMPASS      694     A     
 COMPASS   TITBUFL  EQU    6                                                               COMPASS      695     A     
 COMPASS            BSS    TITBUFL                                                         COMPASS      696     A     
 COMPASS            DIS    2,COMPASS - "VERSION"                                           COMPASS      697          I
          -CMP30  
 COMPASS            DIS    2,COMPASS "VERSION"                                             CMP30       1158          I
          -CPS028 
 COMPASS            DIS    2,COMPASS "VERSION".                                   S028 281 CPS028       199     A     
 COMPASS   DATE     BSS    1                                                               COMPASS      698     A     
 COMPASS   TIME     BSS    1                                                               COMPASS      699     A     
 COMPASS            DATA   4APAGE                                                          COMPASS      700     A     
 COMPASS   PAGENO   BSS    1                                                               COMPASS      701     A     
 COMPASS   PGCNT    DATA   0           PAGE COUNT IN CODED FORM                            COMPASS      702     A     
 COMPASS   EPCNT    DATA   0           ERROR FILE PAGE COUNT                               CPSA142       42     A     
 COMPASS   BLANKS   LIT    1H                                                              CMP30       1159     A     
 COMPASS   ASMJ     DATA   20H ASSEMBLY ABORTED -                                          CMP30       1160     A     
 COMPASS   ASMK     DATA   12CPASS 1 TABLE                                                 CMP30       1161     A     
 COMPASS   ASML     DATA   10H OVERFLOW                                                    CMP30       1162     A     
 COMPASS   ASMM     DATA   20CASSEMBLING XXXXXXX                                           CMP30       1163     A     
 COMPASS   PRFX     BSS    0                                                               CMP30       1164     A     
 COMPASS   DPBA     DATA   77000016BS36 PRELIMINARY BINARY BUFFER                          COMPASS      703     A     
 COMPASS            BSSZ   16B                                                             COMPASS      704          I
          -CMP30  
 COMPASS            DATA   0L*******                                                       CMP30       1165     A     
 COMPASS            DIS    1,"DATE"                                                        CMP30       1166     A     
 COMPASS            DIS    1,"TIME"                                                        CMP30       1167     A     
 COMPASS            VFD    36/0H"OSNAME",24/0H"OSVER"                                      CMP30       1168          I
          -CPS028 
 COMPASS            DIS    1,"OS.NAME""OS.VER"                                    S028 283 CPS028       200          I
          -S3143CP
 COMPASS            DIS    1,"OS.ID"                                                       S3143CP        6     A     
 COMPASS            DIS    2,COMPASS "VERSION"                                             CMP30       1169          I
          -CPS161 
 COMPASS            DIS    2,COMPASS"PVERSION"                                             CPS161         6     A     
 COMPASS            DIS    1,                                                              CMP30       1170     A     
 COMPASS   PRFXC    BSSZ   7           USER COMMENTS                                       CMP30       1171     A     
 COMPASS   LPRFX    EQU    *-DPBA                                                          CMP30       1172     A     
 COMPASS   OVLHDR   DATA   5000BS48    OVERLAY HEADER WORD                                 CMP30       1173     A     
 COMPASS   ASC6T8   EQU    40B         FACTOR TO CONVERT 6-BIT TO 8-BIT ASCII              CPSA281       20     A     
 COMPASS   PCC      DATA   0           PRFX TABLE CHARACTER COUNT                          CMP30       1174     A     
 COMPASS   TARGET   DATA   2R          TARGET OBJECT PROCESSOR                             CMP30       1175     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 259    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   VALID    DATA   0           VALID OBJECT PROCESSOR                              CMP30       1176     A     
 COMPASS   HTYPE    DATA   9R          HARDWARE DEPENDENCIES                               CMP30       1177     A     
 COMPASS   EXVAL    DATA   0           EXPRESSION VALUE          *KINDLY                   COMPASS      705     A     
 COMPASS   EXREL    DATA   0           EXPRESSION RELOCATION     *MAINTAIN                 COMPASS      706     A     
 COMPASS   EXEXT    DATA   0           EXPRESSION EXTERNAL VALUE *THIS                     COMPASS      707     A     
 COMPASS   EXREG    DATA   0           EXPRESSION REGISTER       *ORDER                    COMPASS      708     A     
 COMPASS   PASS     DATA   0           PASS NUMBER (1 OR 2)                                COMPASS      709     A     
 COMPASS   LASTCOL  DATA   0           LAST COLUMN+1 OF STATEMENT                          COMPASS      710     A     
 COMPASS   PPBYT    DATA   4           BYTES PER PP WORD, 4 OR 6                           CPSA281       21     A     
 COMPASS   SQLGN    DATA   0           LENGTH + FLAG OF SQUEEZED IMAGE                     COMPASS      711     A     
 COMPASS   BADLOC   DATA   0           BAD LOCATION FIELD FLAG                             COMPASS      712     A     
 COMPASS   LPGM     DATA   0           PROGRAM LENGTH AS COMPUTED AT END TIME              COMPASS      713     A     
 COMPASS   ENDP     DATA   0           VALUE OF END CARD SYMBOL                            COMPASS      714     A     
 COMPASS   EDITFG   DATA   0           STATEMENT REQUIRES EDITING (IF NEG)                 COMPASS      715     A     
 COMPASS   PSIM     CON    36074176004B   PERIPHERAL STORE INSTRUCTION MASK                CPS026         1     A     
 COMPASS   PSIM2    CON    0              PERIPHERAL STORE MASK FOR + ERROR CHECK          CPSA297       13     A     
 COMPASS            CON    36000176004B                                                    CPSA297       14     A     
 COMPASS            IFNE   CP#RM,0,3                                                       CMP30       1178     A     
 COMPASS   T6RM1    DATA   0           6RM TEMPORARY 1                                     CMP30       1179     A     
 COMPASS   T6RM2    DATA   0           6RM TEMPORARY 2                                     CMP30       1180     A     
 COMPASS   EOD      EQU    #EOI#+#EOP#+#EOS#      END OF DATA MASK                         CMP30       1181     A     
 COMPASS   OPADS    BSS    7           OPERATION CODE DECOMPOSITION TEMPS                  COMPASS      716     A     
 COMPASS   K.TLDS   DATA   0           LDSET CONTROL WORD POINTER                          CPS2608        9     A     
 COMPASS   ERROR    SPACE  4                                                               COMPASS      717     A     
 COMPASS  **        ERROR - CREATE ERROR FLAGS.                                            COMPASS      718     A     
 COMPASS  *LET      ERROR  MSG                                                             COMPASS      719     A     
 COMPASS  *         ENTRY  (LET) = ERROR LETTER.                                           COMPASS      720     A     
 COMPASS  *                (MSG) = ERROR MESSAGE.                                          COMPASS      721     A     
 COMPASS                                                                                   COMPASS      722     A     
 COMPASS                                                                          S028 285 CPS028       201     A     
 COMPASS            PURGMAC ERROR                                                 S028 286 CPS028       202     A     
 COMPASS                                                                                   COMPASS      723     A     
 COMPASS            MACRO  ERROR,A,B                                                       COMPASS      724     A     
 COMPASS            IFC    LT,*A*0*                                                        COMPASS      725     A     
 COMPASS   ;AERR    CON    0                                                               COMPASS      726     A     
 COMPASS            ELSE   1                                                               COMPASS      727          I
          -CPSA297
 COMPASS            ELSE   4                                                               CPSA297       15     A     
 COMPASS            IFC    LT,*A*+*,2                                                      CPSA297       16     A     
 COMPASS   W;AERR   CON    0                                                               COMPASS      728     A     
 COMPASS            SKIP   1                                                               CPSA297       17     A     
 COMPASS            CON    0                                                               CPSA297       18     A     
 COMPASS   ERRLETS  RMT                                                                    COMPASS      729     A     
 COMPASS            CON    1R;A                                                            COMPASS      730     A     
 COMPASS            RMT                                                                    COMPASS      731     A     
 COMPASS   ERDIR    RMT                                                                    COMPASS      732     A     
 COMPASS            DIS    5,;B                                                            COMPASS      733     A     
 COMPASS            RMT                                                                    COMPASS      734     A     
 COMPASS            ENDM                                                                   COMPASS      735     A     
 COMPASS   FLAGS    SPACE  4                                                               COMPASS      736     A     
 COMPASS  **        STATEMENT FLAGS SAVED ON INTERMEDIATE.                                 COMPASS      737     A     
 COMPASS                                                                                   COMPASS      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/28. 19.11.32.      PAGE 260    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS      739     A     
 COMPASS   OPTYPE   DATA   0           OP CODE TABLE ENTRY                                 COMPASS      740     A     
 COMPASS   FLAG     DATA   0           A GENERAL 60-BIT NUMBER                             COMPASS      741     A     
 COMPASS   IND      DATA   0           INDICATOR WORD FOR INTERMEDIATE FILE                COMPASS      742     A     
 COMPASS   CCT      DATA   0           CARD COUNT FOR THIS STATEMENT                       COMPASS      743     A     
 COMPASS   NOAS     DATA   0           NO-ASSEMBLY FLAG                                    COMPASS      744     A     
 COMPASS   TXTFLG   DATA   0           TEXT DEFINITION FLAG                                COMPASS      745     A     
 COMPASS   MICFLG   DATA   0           MICRO/CONCATENATION SUBSTITUTION FLAG               COMPASS      746     A     
 COMPASS   MACHFLG  DATA   0           O ERROR INDICATED *MACHINE* VIOLATION               CPSA140        6     A     
 COMPASS                                                                                   COMPASS      747     A     
 COMPASS  *         MODE INDICATORS.                                                       COMPASS      748     A     
 COMPASS                                                                                   COMPASS      749     A     
 COMPASS   SYSFLG   DATA   0           SYSTEMS MACRO FLAG                                  COMPASS      750     A     
 COMPASS   MACFLG   DATA   0           PROGRAMMER MACRO FLAG                               COMPASS      751     A     
 COMPASS   ECHFLG   DATA   0           DUPLICATION FLAG                                    COMPASS      752     A     
 COMPASS   RMTFLG   DATA   0           REMOTE GENERATED FLAG                               COMPASS      753     A     
 COMPASS   LIBFLG   DATA   0           LIBRARY SOURCE FLAG                                 COMPASS      754     A     
 COMPASS   LFLG     EQU    *-SYSFLG                                                        COMPASS      755     A     
 COMPASS                                                                                   COMPASS      756     A     
 COMPASS  *         ERROR FLAGS.                                                           COMPASS      757     A     
 COMPASS                                                                                   COMPASS      758     A     
 COMPASS   ERFLAGS  BSS    0                                                               COMPASS      759     A     
 COMPASS   L        ERROR  (LOCATION FIELD BAD.)                                           COMPASS      760     A     
 COMPASS   O        ERROR  (OPERATION FIELD BAD.)                                          COMPASS      761     A     
 COMPASS   A        ERROR  (ADDRESS FIELD BAD.)                                            COMPASS      762     A     
 COMPASS   D        ERROR  (DOUBLY DEFINED SYMBOL.  THE FIRST DEFINITION HOLDS.)           COMPASS      763     A     
 COMPASS   E        ERROR  (ECHO, DUP, RMT, OR MACRO ILLEGALLY NESTED.)                    COMPASS      764     A     
 COMPASS   R        ERROR  (DATA ORIGIN OUTSIDE BLOCK OR IN BLANK COMMON.)                 COMPASS      765     A     
 COMPASS   F        ERROR  (NUMBER OF ENTRIES EXCEEDS PERMISSIBLE AMOUNT.)                 COMPASS      766     A     
 COMPASS   U        ERROR  (UNDEFINED SYMBOL.  VALUE ASSUMED 0.)                           COMPASS      767     A     
 COMPASS   V        ERROR  (BIT COUNT ERROR ON VFD (MUST BE 0@COUNT@60).)                  COMPASS      768     A     
 COMPASS   P        ERROR  (CONSULT LISTINGS FOR REASON BEHIND P-ERROR.)                   COMPASS      769     A     
 COMPASS   N        ERROR  (NEGATIVE RELOCATION ON ENTRY POINT.)                           COMPASS      770     A     
 COMPASS   NFERS    EQU    *-ERFLAGS   COUNT OF FATAL ERROR FLAGS                          COMPASS      771     A     
 COMPASS                                                                                   COMPASS      772     A     
 COMPASS  *         NON-FATAL ERROR FLAGS.                                                 COMPASS      773     A     
 COMPASS                                                                                   COMPASS      774     A     
 COMPASS   1        ERROR  (LOCATION SYMBOL BAD.  SYMBOL NOT DEFINED.)                     COMPASS      775     A     
 COMPASS   2        ERROR  (ADDRESS ERROR ON SYMBOL DEFINITION.)                           COMPASS      776     A     
 COMPASS   3        ERROR  (DUPLICATE MACRO DEFINITION.  NEW ONE OVERRIDES.)               COMPASS      777     A     
 COMPASS   4        ERROR  (BAD FORMAL PARAMETER NAME IGNORED.)                            COMPASS      778     A     
 COMPASS   5        ERROR  (CPU OPERATION SYNTAX INCORRECTLY SPECIFIED.)                   COMPASS      779     A     
 COMPASS   6        ERROR  (LOCATION FIELD MEANINGLESS.)                                   COMPASS      780     A     
 COMPASS   7        ERROR  (ADDRESS VALUE EXCEEDS FIELD SIZE, RESULT TRUNCATED.)           COMPASS      781     A     
 COMPASS   8        ERROR  (MISSING OR EXTRA ADDRESS SUBFIELD.)                            COMPASS      782     A     
 COMPASS   9        ERROR  (MICRO SUBSTITUTION ERROR.  NO SUBSTITUTION.)                   COMPASS      783     A     
 COMPASS   WD45ERR  BSS    0                                                               CPSA297       19     A     
 COMPASS   +        ERROR  (STORE AT NEXT INSTR+1 FOR PIPELINED SYSTEM.)                   CPSA297       20     A     
 COMPASS   LEFLG    EQU    *-ERFLAGS   COUNT OF FATAL AND NON-FATAL FLAGS                  COMPASS      784     A     
 COMPASS                                                                                   COMPASS      785     A     
 COMPASS  *         TOTAL ERROR FLAG.                                                      COMPASS      786     A     
 COMPASS                                                                                   COMPASS      787     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 261    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   EFLG     DATA   0           TOTAL ERROR FLAG                                    COMPASS      788     A     
 COMPASS   LERFLAGS EQU    *-ERFLAGS   TOTAL COUNT OF ERROR FLAGS                          COMPASS      789     A     
 COMPASS   LISTOPS  SPACE  4                                                               COMPASS      790     A     
 COMPASS  *         LIST CONTROL FLAGS.                                                    COMPASS      791     A     
 COMPASS                                                                                   COMPASS      792     A     
 COMPASS                                                                                   COMPASS      793     A     
 COMPASS            MACRO  LISTOP,LET,VALUE                                                COMPASS      794     A     
 COMPASS   LET      VFD    12/2R_LET+2000B-1LL,48/VALUE                                    COMPASS      795     A     
 COMPASS            VFD    60/VALUE                                                        COMPASS      796     A     
 COMPASS   LIST.    SET    LIST.*2                                                         CMP30       1182     A     
 COMPASS            IFNE   VALUE,,1                                                        CMP30       1183     A     
 COMPASS   LIST.    SET    LIST.+1                                                         CMP30       1184     A     
 COMPASS            ENDM                                                                   COMPASS      797     A     
 COMPASS                                                                                   COMPASS      798     A     
 COMPASS                                                                                   COMPASS      799     A     
 COMPASS   LIST.    SET    0                                                               CMP30       1185     A     
 COMPASS   LISTOPS  BSS    0                                                               COMPASS      800     A     
 COMPASS   LA       LISTOP 0           SUBSTITUTED MICRO/CONCAT LINES                      COMPASS      801     A     
 COMPASS   LB       LISTOP 1           BINARY CONTROL CARDS                                COMPASS      802     A     
 COMPASS   LC       LISTOP 0           CONTROL CARDS                                       COMPASS      803     A     
 COMPASS   LD       LISTOP 0           DETAIL OF GENERATED CODE                            COMPASS      804     A     
 COMPASS   LE       LISTOP 0           DUPLICATIONS                                        COMPASS      805     A     
 COMPASS   LF       LISTOP 0           IF-SKIPPED LINES                                    COMPASS      806     A     
 COMPASS   LG       LISTOP 0           GENERATED CODE                                      COMPASS      807     A     
 COMPASS   LL       LISTOP 1           MASTER LIST CONTROL                                 COMPASS      808     A     
 COMPASS   LM       LISTOP 0           MACRO EXPANSIONS                                    COMPASS      809     A     
 COMPASS   LN       LISTOP 1           UNREFERENCED NON-SST SYMBOLS                        CMP19          4     A     
 COMPASS   LR       LISTOP 1           ACCUMULATE AND LIST REFERENCES                      COMPASS      810     A     
 COMPASS   LS       LISTOP 0           SYSTEM MACRO EXPANSIONS                             COMPASS      811     A     
 COMPASS   LT       LISTOP 0           UNREFERENCED SST SYMBOLS                            CMP19          5     A     
 COMPASS   LX       LISTOP 0           XTEXT SOURCE CARDS                                  COMPASS      812     A     
 COMPASS   LLISTOPS EQU    *-LISTOPS                                                       COMPASS      813     A     
 COMPASS   NLISTOPS EQU    LLISTOPS/2                                                      CMP30       1186     A     
 COMPASS   TABLES   TITLE  TABLE ALLOCATION.                                               COMPASS      814     A     
 COMPASS  **        MANAGED TABLES ARE USED TO CONTAIN ALL VARIABLE COMPASS DATA.          COMPASS      815     A     
 COMPASS  *         THE TABLES ARE CONTROLED BY 2 POINTERS, O.TNAM AND L.TNAM.             COMPASS      816     A     
 COMPASS  *         (O.TNAM) = ORIGIN OF TABLE *TNAM*.                                     COMPASS      817     A     
 COMPASS  *         (L.TNAM) = LENGTH OF TABLE *TNAM*.                                     COMPASS      818     A     
 COMPASS  *         THE TABLES ARE MANAGED BY ROUTINE *ALC*.                               COMPASS      819     A     
 COMPASS                                                                                   COMPASS      820     A     
 COMPASS                                                                                   COMPASS      821     A     
 COMPASS   ORIGINS  BSS    0           TABLE OF ORIGIN ADDRESSES                           COMPASS      822     A     
 COMPASS   INTER    SPACE  4                                                               COMPASS      823     A     
 COMPASS  **        INTER - INTERMEDIATE FILE.                                             COMPASS      824     A     
 COMPASS  *         INTER IS USED TO CONTAIN THE INTERMEDIATE FILE IF IT                   COMPASS      825     A     
 COMPASS  *         WILL FIT IN CORE.                                                      COMPASS      826     A     
 COMPASS  *                                                                                COMPASS      827     A     
 COMPASS  *         ENTRY = 3 WORDS, SEQUENCE NUMBERS, AND COMPRESSED TEXT.                COMPASS      828     A     
 COMPASS  *                                                                                COMPASS      829     A     
 COMPASS  *         WORD 1.                                                                COMPASS      830     A     
 COMPASS  *                                                                                COMPASS      831     A     
 COMPASS  *         BITS   59-48       A COPY OF BITS 59-48 OF OPTYPE.  THIS               COMPASS      832     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 262    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                            IS THE SAME AS THE OPERATION CODE TABLE             COMPASS      833     A     
 COMPASS  *                            ENTRY.                                              COMPASS      834     A     
 COMPASS  *         BITS   47-46       UNUSED AND ZERO.                                    COMPASS      835          I
          -CMP24  
 COMPASS  *         BIT    45          SEQ FLAG.  IF THIS IS 1, THEN THE                   COMPASS      836          I
          -CMP24  
 COMPASS  *                            SEQUENCE FIELDS OF THIS STATEMENT                   COMPASS      837          I
          -CMP24  
 COMPASS  *                            ARE NOT BLANK, THEY ARE RECORDED ON                 COMPASS      838          I
          -CMP24  
 COMPASS  *                            THE INTERMEDIATE FILE.                              COMPASS      839          I
          -CMP24  
 COMPASS  *         BIT    47          UNUSED AND ZERO.                                    CMP24          7     A     
 COMPASS  *         BITS   46-45       SEQ FLAG.  IF THIS IS 00, THEN THE SEQUENCE         CMP24          8     A     
 COMPASS  *                            FIELDS OF THIS STATEMENT ARE BLANK AND ARE          CMP24          9     A     
 COMPASS  *                            NOT RECORDED ON THE INTERMEDIATE FILE.              CMP24         10     A     
 COMPASS  *                            IF THIS IS 01, THE SEQUENCE FIELDS ARE IN           CMP24         11     A     
 COMPASS  *                            MODIFY FORMAT, ONE WORD PER CARD IMAGE.             CMP24         12     A     
 COMPASS  *                            IF THIS IS 10, THE SEQUENCE FIELD IS TWO            CMP24         13     A     
 COMPASS  *                            WORDS AND IS THE SAME FOR ALL CARDS IN THE          CMP24         14     A     
 COMPASS  *                            STATEMENT (E.G. MACRO GENERATED), SO THE            CMP24         15     A     
 COMPASS  *                            TWO-WORD SEQUENCE FIELD IS RECORDED ONLY            CMP24         16     A     
 COMPASS  *                            ONCE ON THE INTERMEDIATE FILE.                      CMP24         17     A     
 COMPASS  *                            IF THIS IS 11, THE INTERMEDIATE FILE                CMP24         18     A     
 COMPASS  *                            CONTAINS A TWO-WORD SEQUENCE FIELD FOR              CMP24         19     A     
 COMPASS  *                            EACH CARD IN THE STATEMENT.                         CMP24         20     A     
 COMPASS  *         BIT    44          FLAG FLAG.  IF THIS IS 0, THEN THE FLAG             COMPASS      840     A     
 COMPASS  *                            WORD IS ZERO, AND IS NOT INCLUDED ON                COMPASS      841     A     
 COMPASS  *                            THE INTERMEDIATE FILE.  THE FLAG                    COMPASS      842     A     
 COMPASS  *                            WORD IS NON-ZERO ONLY FOR SOME PSEUDO               COMPASS      843     A     
 COMPASS  *                            INSTRUCTIONS.                                       COMPASS      844     A     
 COMPASS  *         BIT    43          IND FLAG.  IF THIS IS 0, THEN THE IND               COMPASS      845     A     
 COMPASS  *                            WORD IS ZERO, AND IS NOT INCLUDED ON                COMPASS      846     A     
 COMPASS  *                            THE INTERMEDIATE FILE.  THE IND WORD                COMPASS      847     A     
 COMPASS  *                            CONTAINS ERROR FLAGS AND OTHER INDICATORS.          COMPASS      848     A     
 COMPASS  *         BIT    42          UNUSED.                                             COMPASS      849     A     
 COMPASS  *         BITS   41-34       LENGTH OF INTERMEDIATE RECORD.                      COMPASS      850     A     
 COMPASS  *         BITS   33-30       CCT - CARD COUNT, I.E., NUMBER OF CARDS             COMPASS      851     A     
 COMPASS  *                            WHICH COMPRISE THIS STATEMENT.                      COMPASS      852     A     
 COMPASS  *         BITS   29-00       COPY OF BITS 29-00 OF OPTYPE.                       COMPASS      853     A     
 COMPASS  *                                                                                COMPASS      854     A     
 COMPASS  *                                                                                COMPASS      855     A     
 COMPASS  *         WORD 2 - PRESENT EXPLICITLY IF THE IND BIT IS 1 IN WORD 1.             COMPASS      856     A     
 COMPASS  *         IF IT IS 0, THEN WORD 2 CAN BE ASSUMED TO HAVE A VALUE ZERO.           COMPASS      857     A     
 COMPASS  *                                                                                COMPASS      858     A     
 COMPASS  *         BITS   59-30       THESE CONTAIN A RECORD OF THE INDICATORS            COMPASS      859     A     
 COMPASS  *                            WHICH WERE SET.  A 1-BIT INDICATES                  COMPASS      860     A     
 COMPASS  *                            THAT THE CORRESPONDING INDICATOR WAS ON.            COMPASS      861     A     
 COMPASS  *         BITS   29-00       THESE CONTAIN A RECORD OF THE ERROR FLAGS           COMPASS      862     A     
 COMPASS  *                            WHICH WERE SET.  A 1-BIT INDICATES THAT             COMPASS      863     A     
 COMPASS  *                            AN ERROR FLAG WAS ON.  THE EXACT ORDER              COMPASS      864     A     
 COMPASS  *                            OF THESE ERROR BITS DEPENDS UPON THE                COMPASS      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/28. 19.11.32.      PAGE 263    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                            ORDER IN WHICH THE ERROR ARE LISTED                 COMPASS      866     A     
 COMPASS  *                            IN THE ERROR LIST.                                  COMPASS      867     A     
 COMPASS  *                                                                                COMPASS      868     A     
 COMPASS  *                                                                                COMPASS      869     A     
 COMPASS  *         WORD 3 - PRESENT EXPLICITLY IF FLAG = 1 IN WORD 1.  IF                 COMPASS      870     A     
 COMPASS  *         IT IS 0, THEN WORD 3 CAN BE ASSUMED TO BE ZERO.                        COMPASS      871     A     
 COMPASS  *                                                                                COMPASS      872     A     
 COMPASS  *         BITS   59-00       CONTENTS OF FLAG.                                   COMPASS      873     A     
 COMPASS  *                                                                                COMPASS      874     A     
 COMPASS  *                                                                                COMPASS      875     A     
 COMPASS  *         WORD 4-N - SEQUENCE NUMBER FIELD IF SEQ IN WORD 1 IS 1.                COMPASS      876          I
          -CMP24  
 COMPASS  *         THIS IS A 2*CCT WORD ENTRY IF NOT IN *A* MODE.  THIS IS                COMPASS      877          I
          -CMP24  
 COMPASS  *         A ONE WORD ENTRY IF IN *A* MODE.                                       COMPASS      878          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      879          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      880          I
          -CMP24  
 COMPASS  *         WORD 4 - IF NOT *A* MODE.                                              COMPASS      881          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      882          I
          -CMP24  
 COMPASS  *         BITS   59-48       ZERO.                                               COMPASS      883          I
          -CMP24  
 COMPASS  *         BITS   47-00       COL. 73-80 FROM INPUT CARD IMAGE.                   COMPASS      884          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      885          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      886          I
          -CMP24  
 COMPASS  *         WORD 5 - IF NOT *A* MODE.                                              COMPASS      887          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      888          I
          -CMP24  
 COMPASS  *         BITS   59-00       COL. 81-90 FROM INPUT CARD IMAGE.                   COMPASS      889          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      890          I
          -CMP24  
 COMPASS  *                                                                                COMPASS      891          I
          -CMP24  
 COMPASS  *         WORD 4 - IF *A* MODE.                                                  COMPASS      892          I
          -CMP24  
 COMPASS  *         WORDS 4-N - SEQUENCE NUMBER FIELD IF SEQ IN WORD 1 IS NOT 00.          CMP24         21     A     
 COMPASS  *         THE LENGTH OF THIS ENTRY DEPENDS ON THE VALUE OF SEQ AS                CMP24         22     A     
 COMPASS  *         FOLLOWS.                                                               CMP24         23     A     
 COMPASS  *                       SEQ = 00    0 WORDS.                                     CMP24         24     A     
 COMPASS  *                       SEQ = 01    (CCT) WORDS.                                 CMP24         25     A     
 COMPASS  *                       SEQ = 10    2 WORDS.                                     CMP24         26     A     
 COMPASS  *                       SEQ = 11    2*(CCT) WORDS.                               CMP24         27     A     
 COMPASS  *                                                                                CMP24         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/28. 19.11.32.      PAGE 264    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         WORD 4 - IF SEQ = 01 (MODIFY *A* MODE).                                CMP24         29     A     
 COMPASS  *                                                                                COMPASS      893     A     
 COMPASS  *         BITS   59-18       IDENTIFIER NAME LEFT JUSTIFIED WITH                 COMPASS      894     A     
 COMPASS  *                            ZERO FILL.                                          COMPASS      895     A     
 COMPASS  *         BITS   17-00       SEQUENCE NUMBER IN BINARY.                          COMPASS      896     A     
 COMPASS  *                                                                                CMP24         30     A     
 COMPASS  *         WORD 4 - IF SEQ = 10 OR 11.                                            CMP24         31     A     
 COMPASS  *                                                                                CMP24         32     A     
 COMPASS  *         BITS   59-48       ZERO.                                               CMP24         33     A     
 COMPASS  *         BITS   47-00       COLUMNS 73-80 OF CARD IMAGE.                        CMP24         34     A     
 COMPASS  *                                                                                CMP24         35     A     
 COMPASS  *         WORD 5 - IF SEQ = 10 OR 11.                                            CMP24         36     A     
 COMPASS  *                                                                                CMP24         37     A     
 COMPASS  *         BITS   59-00       COLUMNS 81-90 OF CARD IMAGE.                        CMP24         38     A     
 COMPASS  *                                                                                COMPASS      897     A     
 COMPASS  *                                                                                COMPASS      898     A     
 COMPASS  *         WORDS N-M - COMPRESSED CARD TEXT TERMINATED WITH 12-BITS               COMPASS      899     A     
 COMPASS  *         OF ZERO.                                                               COMPASS      900     A     
 COMPASS                                                                                   COMPASS      901     A     
 COMPASS                                                                                   COMPASS      902     A     
 COMPASS   INTER    TABLE                                                                  COMPASS      903     A     
 COMPASS   OPTAB    SPACE  4                                                               COMPASS      904     A     
 COMPASS  **        OPTAB - OPERATION CODE TABLE.                                          COMPASS      905     A     
 COMPASS  *         CONTAINS THE NAME AND INFORMATION ABOUT EVERY OPERATION                COMPASS      906     A     
 COMPASS  *         CODE.                                                                  COMPASS      907     A     
 COMPASS  *                                                                                COMPASS      908     A     
 COMPASS  *         ENTRY = 2 WORDS.                                                       COMPASS      909     A     
 COMPASS  *                                                                                COMPASS      910     A     
 COMPASS  *         WORD 1 (PPU, PSEUDO, MACRO, OR MACROE)                                 COMPASS      911     A     
 COMPASS  *                                                                                COMPASS      912     A     
 COMPASS  *         BITS   59-48       LINK FIELD FOR HASHING.                             COMPASS      913     A     
 COMPASS  *         BITS   47-00       OPERATION NAME RIGHT JUSTIFIED.                     COMPASS      914     A     
 COMPASS  *                                                                                COMPASS      915     A     
 COMPASS  *                                                                                COMPASS      916     A     
 COMPASS  *         WORD 1 (CENTRAL PROCESSOR OR OPSYN)                                    COMPASS      917          I
          -CMP10  
 COMPASS  *         WORD 1 (CENTRAL PROCESSOR OR OPDEF)                                    CMP10          1     A     
 COMPASS  *                                                                                COMPASS      918     A     
 COMPASS  *         BITS   59-48       LINK FIELD FOR HASHING.                             COMPASS      919     A     
 COMPASS  *         BITS   47-36       2-CHARACTER MNEMONIC.                               COMPASS      920     A     
 COMPASS  *         BITS   35-28       N1                                                  COMPASS      921     A     
 COMPASS  *         BITS   27-20       N2                                                  COMPASS      922     A     
 COMPASS  *         BITS   21-12       N3                                                  COMPASS      923     A     
 COMPASS  *         BITS   11-00       0055                                                COMPASS      924     A     
 COMPASS  *                                                                                COMPASS      925     A     
 COMPASS  *         WHERE N1, N2, AND N3 ARE -                                             COMPASS      926     A     
 COMPASS  *                                                                                COMPASS      927     A     
 COMPASS  *         BIT    7           LEADING SIGN                                        COMPASS      928     A     
 COMPASS  *                            0 - PLUS                                            COMPASS      929     A     
 COMPASS  *                            1 - MINUS                                           COMPASS      930     A     
 COMPASS  *         BITS   6-5         REGISTER NAME.                                      COMPASS      931     A     
 COMPASS  *                            0 - BLANK                                           COMPASS      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/28. 19.11.32.      PAGE 265    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                            1 - A                                               COMPASS      933     A     
 COMPASS  *                            2 - B                                               COMPASS      934     A     
 COMPASS  *                            3 - X                                               COMPASS      935     A     
 COMPASS  *         BITS   4-3         OPERATOR.                                           COMPASS      936     A     
 COMPASS  *                            0 - BLANK OR PLUS (+)                               COMPASS      937     A     
 COMPASS  *                            1 - MINUS (-)                                       COMPASS      938     A     
 COMPASS  *                            2 - MULITPLY (*)                                    COMPASS      939     A     
 COMPASS  *                            3 - DIVIDE (/)                                      COMPASS      940     A     
 COMPASS  *         BITS   2-1         REGISTER NAME.                                      COMPASS      941     A     
 COMPASS  *                            0 - BLANK                                           COMPASS      942     A     
 COMPASS  *                            1 - A                                               COMPASS      943     A     
 COMPASS  *                            2 - B                                               COMPASS      944     A     
 COMPASS  *                            3 - X                                               COMPASS      945     A     
 COMPASS  *         BIT    0           CONSTANT (Q-FIELD)                                  COMPASS      946     A     
 COMPASS  *                                                                                CMP10          2     A     
 COMPASS  *                                                                                CMP10          3     A     
 COMPASS  *         WORD 2. (CPU)                                                          CMP10          4     A     
 COMPASS  *                                                                                CMP10          5     A     
 COMPASS  *         BITS   59-57       0                                                   CMP10          6     A     
 COMPASS  *         BITS   56-48       VALUE - UPPER 9 BITS OF OPCODE.                     CMP10          7     A     
 COMPASS  *         BITS   47-30       UNUSED.                                             CMP10          8          I
          -CMP30  
 COMPASS  *         BIT    47          PROGRAM DEFINED FLAG.                               CMP30       1187     A     
 COMPASS  *         BITS   46-32       UNUSED.                                             CMP30       1188          I
          -F4830CP
 COMPASS  *         BITS   31-30       MACHINE (0=BOTH, 1=6000-ONLY, 2=7000-ONLY).         CMP30       1189          I
          -F4830CP
 COMPASS  *         BITS   46-33       UNUSED.                                             F4830CP        6     A     
 COMPASS  *         BITS   32-30       MACHINE (0=ALL, 1=6000-ONLY, 2=7000-ONLY,           F4830CP        7     A     
 COMPASS  *                                     3=6000/7000, 4=V-ONLY, 5=6000/V,           F4830CP        8     A     
 COMPASS  *                                     6=7000/V)                                  F4830CP        9     A     
 COMPASS  *         BIT    29          FORCE UPPER AFTER INSTRUCTION.                      CMP10          9     A     
 COMPASS  *         BIT    28          FORCE UPPER BEFORE INSTRUCTION.                     CMP10         10     A     
 COMPASS  *         BIT    27          30-BIT INSTRUCTION.                                 CMP10         11     A     
 COMPASS  *         BITS   26-24       SOURCE OF I-FIELD.                                  CMP10         12     A     
 COMPASS  *         BITS   23-21       SOURCE OF J-FIELD.                                  CMP10         13     A     
 COMPASS  *         BITS   20-18       SOURCE OF K-FIELD.                                  CMP10         14     A     
 COMPASS  *         BITS   17-00       UNUSED.                                             CMP10         15     A     
 COMPASS  *                                                                                CMP10         16     A     
 COMPASS  *         THE SOURCE OF A REGISTER NUMBER FIELD IS SPECIFIED BY ONE              CMP10         17     A     
 COMPASS  *         OF THE FOLLOWING CODES.                                                CMP10         18     A     
 COMPASS  *                                                                                CMP10         19     A     
 COMPASS  *                1    OPCODE FIELD.                                              CMP10         20     A     
 COMPASS  *                2    SECOND OR ONLY ADDRESS FIELD REGISTER.                     CMP10         21     A     
 COMPASS  *                3    FIRST OF TWO ADDRESS FIELD REGISTERS.                      CMP10         22     A     
 COMPASS  *                                                                                COMPASS      947     A     
 COMPASS  *                                                                                COMPASS      948     A     
 COMPASS  *         WORD 2. (PPU)                                                          COMPASS      949     A     
 COMPASS  *                                                                                COMPASS      950     A     
 COMPASS  *         BITS   59-57       1                                                   COMPASS      951     A     
 COMPASS  *         BITS   56-48       UNUSED.                                             COMPASS      952     A     
 COMPASS  *         BIT    47          OPDEF.                                              COMPASS      953          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 266    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS  *         BITS   46-30       UNUSED.                                             COMPASS      954          I
          -CMP30  
 COMPASS  *         BIT    47          PROGRAM DEFINED FLAG.                               CMP30       1190     A     
 COMPASS  *         BITS   46-32       UNUSED.                                             CMP30       1191     A     
 COMPASS  *         BITS   31-30       MACHINE (0=BOTH, 1=6000-ONLY, 2=7000-ONLY).         CMP30       1192     A     
 COMPASS  *         BITS   29-27       CTL.                                                COMPASS      955     A     
 COMPASS  *                            0 - UNUSED.                                         COMPASS      956     A     
 COMPASS  *                            1 - 24-BIT INSTRUCTION WITH 12-BIT                  COMPASS      957     A     
 COMPASS  *                                ADDRESS AND NO INDEXING.                        COMPASS      958     A     
 COMPASS  *                            2 - 12-BIT INSTRUCTION WITH SIGNED                  COMPASS      959     A     
 COMPASS  *                                RELATIVE OR ABSOLUTE ADDRESS.                   COMPASS      960     A     
 COMPASS  *                            3 - 24-BIT INSTRUCTION WITH 18-BIT                  COMPASS      961     A     
 COMPASS  *                                ADDRESS.                                        COMPASS      962     A     
 COMPASS  *                            4 - 12-BIT INSTRUCTION WITH 6-BIT                   COMPASS      963     A     
 COMPASS  *                                ADDRESS.                                        COMPASS      964     A     
 COMPASS  *                            5 - 24-BIT INSTRUCTION WITH 12-BIT                  COMPASS      965     A     
 COMPASS  *                                ADDRESS AND OPTIONAL INDEXING.                  COMPASS      966     A     
 COMPASS  *                            6 - 12-BIT INSTRUCTION WITH SIGNED                  COMPASS      967     A     
 COMPASS  *                                RELATIVE ADDRESS.                               COMPASS      968     A     
 COMPASS  *                            7 - 24-BIT INSTRUCTION WITH 12-BIT                  COMPASS      969     A     
 COMPASS  *                                ADDRESS AND REQUIRED SECOND FIELD.              COMPASS      970     A     
 COMPASS  *         BITS   26-12       UNUSED.                                             COMPASS      971     A     
 COMPASS  *         BITS   11-00       VALUE.                                              COMPASS      972     A     
 COMPASS  *                                                                                F4820          5     A     
 COMPASS  *                                                                                F4820          6     A     
 COMPASS  *         WORD 2. (BCU)                                                          F4820          7     A     
 COMPASS  *                                                                                F4820          8     A     
 COMPASS  *         BITS   59-57       1                                                   F4820          9     A     
 COMPASS  *         BIT    56          1                                                   F4820         10     A     
 COMPASS  *         BITS   55-48       UNUSED.                                             F4820         11     A     
 COMPASS  *         BIT    47          OPDEF.                                              F4820         12     A     
 COMPASS  *         BITS   46-30       UNUSED.                                             F4820         13     A     
 COMPASS  *         BITS   29-27       CTL.                                                F4820         14     A     
 COMPASS  *                            0 - 4-BIT ADDRESS.  (SAB)                           F4820         15     A     
 COMPASS  *                            1 - (16 - 4-BIT) ADDRESS.  (SLC)                    F4820         16     A     
 COMPASS  *                            2 - (15 - 4-BIT) ADDRESS.  (TAB)                    F4820         17     A     
 COMPASS  *                            3 - 8-BIT ADDRESS.  (ADN)                           F4820         18     A     
 COMPASS  *                            4 - 9-BIT RELATIVE ADDRESS.  (UJR)                  F4820         19     A     
 COMPASS  *                            5 - 4-BIT CHANNEL AND NO ADDRESS.  (IAN)            F4820         20     A     
 COMPASS  *                            6 - 8-BIT ADDRESS AND OPTIONAL                      F4820         21     A     
 COMPASS  *                                INDEXING. (LDD)                                 F4820         22     A     
 COMPASS  *                            7 - 4-BIT CHANNEL AND 4-BIT ADDRESS.  (INT)         F4820         23     A     
 COMPASS  *         BITS   26-16       UNUSED.                                             F4820         24     A     
 COMPASS  *         BITS   15-00       VALUE.                                              F4820         25     A     
 COMPASS  *                                                                                F4820         26     A     
 COMPASS  *                                                                                F4820         27     A     
 COMPASS  *         WORD 2. (MCU)                                                          F4820         28     A     
 COMPASS  *                                                                                F4820         29     A     
 COMPASS  *         BITS   59-57       1                                                   F4820         30     A     
 COMPASS  *         BIT    56          1                                                   F4820         31     A     
 COMPASS  *         BITS   55-48       UNUSED.                                             F4820         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/28. 19.11.32.      PAGE 267    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         BIT    47          OPDEF.                                              F4820         33     A     
 COMPASS  *         BITS   46-30       UNUSED.                                             F4820         34     A     
 COMPASS  *         BITS   29-27       CTL.                                                F4820         35     A     
 COMPASS  *                            0 - NO ADDRESS.  (INX)                              F4820         36     A     
 COMPASS  *                            1 - 8-BIT ADDRESS.  (LDAAI)                         F4820         37     A     
 COMPASS  *                            2 - 16-BIT ADDRESS.  (LDAAE)                        F4820         38     A     
 COMPASS  *                            3 - 8-BIT RELATIVE ADDRESS.  (BRA)                  F4820         39     A     
 COMPASS  *         BITS   26-08       UNUSED.                                             F4820         40     A     
 COMPASS  *         BITS   07-00       VALUE.                                              F4820         41     A     
 COMPASS  *                                                                                COMPASS      973     A     
 COMPASS  *                                                                                COMPASS      974     A     
 COMPASS  *         WORD 2. (PSEUDO)                                                       COMPASS      975     A     
 COMPASS  *                                                                                COMPASS      976     A     
 COMPASS  *         BITS   59-57       PSEUDO OPERATION TYPE.                              COMPASS      977     A     
 COMPASS  *                            2 - CAN NOT OCCUR IN FIRST CARD GROUP.              COMPASS      978     A     
 COMPASS  *                            3 - PROCESS WHILE IF SKIPPING.                      COMPASS      979     A     
 COMPASS  *                            4 - CAN OCCUR ANYWHERE.                             COMPASS      980     A     
 COMPASS  *                            5 - FIRST CARD GROUP ONLY.                          COMPASS      981     A     
 COMPASS  *         BITS   56-48       UNUSED.                                             COMPASS      982     A     
 COMPASS  *         BIT    47          OPDEF.                                              COMPASS      983          I
          -CMP30  
 COMPASS  *         BIT    47          PROGRAM DEFINED FLAG.                               CMP30       1193     A     
 COMPASS  *         BITS   46-36       UNUSED.                                             COMPASS      984     A     
 COMPASS  *         BITS   35-18       PASS 1 PSEUDO ADDRESS.                              COMPASS      985     A     
 COMPASS  *         BITS   17-00       PASS 2 PSEUDO ADDRESS.                              COMPASS      986     A     
 COMPASS  *                                                                                COMPASS      987     A     
 COMPASS  *                                                                                COMPASS      988     A     
 COMPASS  *         WORD 2. (MACRO, MACROE, OPDEF)                                         COMPASS      989     A     
 COMPASS  *                                                                                COMPASS      990     A     
 COMPASS  *         BITS   59-57       MACRO OPERATION TYPE.                               COMPASS      991     A     
 COMPASS  *                            6 - SYSTEXT MACRO.                                  COMPASS      992     A     
 COMPASS  *                            7 - PROGRAMMER MACRO.                               COMPASS      993     A     
 COMPASS  *         BITS   56-48       UNUSED.                                             COMPASS      994          I
          -CMP64G 
 COMPASS  *         BIT    47          OPDEF.                                              COMPASS      995          I
          -CMP64G 
 COMPASS  *         BITS   46-32       UNUSED.                                             COMPASS      996          I
          -CMP64G 
 COMPASS  *         BITS   56-39       WORD COUNT OF TEXT IN MACDEF.                       CMP64G         1     A     
 COMPASS  *         BITS   38-32       UNUSED.                                             CMP64G         2          I
          -CMP043 
 COMPASS  *         BIT    38          FLAG SET/USED BY *GSM*.                             CMP043         1     A     
 COMPASS  *         BITS   37-32       UNUSED.                                             CMP043         2          I
          -CPS028 
 COMPASS  *         BIT    37          1 IF MACRO DEF TEXT IS IN ECS/LCM.         S028 288 CPS028       203     A     
 COMPASS  *         BITS   36-32       UNUSED.                                    S028 289 CPS028       204     A     
 COMPASS  *         BIT    31          MACROE FLAG.                                        COMPASS      997     A     
 COMPASS  *         BITS   30-25       COUNT OF PARAMETERS IN MACRO.                       COMPASS      998     A     
 COMPASS  *         BITS   24-19       COUNT OF SUBSTITUTABLE ARGUMENTS.                   COMPASS      999     A     
 COMPASS  *         BIT    18          LOCATION ARGUMENT FLAG.                             COMPASS     1000     A     
 COMPASS  *         BITS   17-00       INDEX IN MACDEF OF START OF MACRO.                  COMPASS     1001     A     
 COMPASS                                                                                   COMPASS     1002     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 268    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     1003     A     
 COMPASS   OPTAB    TABLE                                                                  COMPASS     1004     A     
 COMPASS   MACDEF   SPACE  4                                                               COMPASS     1005     A     
 COMPASS  **        MACDEF - MACRO DEFINITION TABLE.                                       COMPASS     1006     A     
 COMPASS  *         STORES THE DEFINITIONS OF THE MACROS AND OPDEFS FROM                   COMPASS     1007     A     
 COMPASS  *         SYSTEXT AND PROGRAMMER SOURCES.                                        COMPASS     1008     A     
 COMPASS                                                                                   COMPASS     1009     A     
 COMPASS                                                                                   COMPASS     1010     A     
 COMPASS   MACDEF   TABLE                                                                  COMPASS     1011     A     
 COMPASS   SSYMS    SPACE  4                                                               COMPASS     1012     A     
 COMPASS  **        SSYMS - SYSTEM SYMBOLS.                                                COMPASS     1013     A     
 COMPASS  *         STORES THE SYMBOLS DEFINED BY THE *SST* PSEUDO OPERATION.              COMPASS     1014     A     
 COMPASS  *         SYMBOLS COME FROM SYSTEXT.                                             COMPASS     1015     A     
 COMPASS  *                                                                                COMPASS     1016     A     
 COMPASS  *         ENTRY = 2 WORDS.                                                       COMPASS     1017     A     
 COMPASS  *                                                                                COMPASS     1018     A     
 COMPASS  *         WORD 1 - SYMBOL RIGHT ADJUSTED WITH ZERO FILL.                         COMPASS     1019          I
          -CMP30  
 COMPASS  *         WORD 1.                                                                CMP30       1194     A     
 COMPASS  *                                                                                CMP30       1195     A     
 COMPASS  *         BITS   59-48       UNUSED.                                             CMP30       1196     A     
 COMPASS  *         BITS   47-00       SYMBOL RIGHT-JUSTIFIED WITH ZERO FILL.              CMP30       1197     A     
 COMPASS  *                                                                                COMPASS     1020     A     
 COMPASS  *         WORD 2 - VALUE IN BINARY.                                              COMPASS     1021          I
          -CMP30  
 COMPASS  *         WORD 2.                                                                CMP30       1198     A     
 COMPASS  *                                                                                CMP30       1199     A     
 COMPASS  *         BITS   59-39       UNUSED.                                             CMP30       1200     A     
 COMPASS  *         BITS   38-36       SYSTEM TEXT ORDINAL.                                CMP30       1201     A     
 COMPASS  *         BITS   35-21       UNUSED.                                             CMP30       1202     A     
 COMPASS  *         BITS   20-00       SYMBOL VALUE.                                       CMP30       1203     A     
 COMPASS                                                                                   COMPASS     1022     A     
 COMPASS                                                                                   COMPASS     1023     A     
 COMPASS   SSYMS    TABLE                                                                  COMPASS     1024     A     
 COMPASS   SYSMIC   SPACE  4                                                               COMPASS     1025     A     
 COMPASS  **        SYSMIC - SYSTEM MICROS.                                                COMPASS     1026     A     
 COMPASS  *         STORES THE PORTION OF THE MICRO TABLE DEFINED BY SYSTEXT.              COMPASS     1027     A     
 COMPASS  *                                                                                COMPASS     1028     A     
 COMPASS  *         ENTRY = N WORDS.                                                       COMPASS     1029          I
          -CMP18  
 COMPASS  *         ENTRY = N WORDS (N = 1 IF MICRO VALUE IS NULL).                        CMP18          1     A     
 COMPASS  *                                                                                COMPASS     1030     A     
 COMPASS  *         WORD 1 - MICRO NAME RIGHT ADJUSTED WITH ZERO FILL.                     COMPASS     1031          I
          -CMP18  
 COMPASS  *         WORDS 1-(N-1) - VALUE OF MICRO - CHARACTER STRING PACKED               CMP18          2     A     
 COMPASS  *         TEN CHARACTERS PER WORD.  IN LAST WORD (WORD N-1), BITS                CMP18          3     A     
 COMPASS  *         59-6 CONTAIN 0-9 CHARACTERS LEFT ADJUSTED WITH ZERO FILL               CMP18          4     A     
 COMPASS  *         AND BITS 5-0 CONTAIN CHARACTER COUNT FOR THIS WORD.                    CMP18          5     A     
 COMPASS  *                                                                                COMPASS     1032     A     
 COMPASS  *         WORD 2-N - CHARACTER STRING FOR MICRO TERMINATED BY                    COMPASS     1033          I
          -CMP18  
 COMPASS  *         AT LEAST ONE 00-CHARACTER.                                             COMPASS     1034          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 269    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP18  
 COMPASS  *         WORD N.                                                                CMP18          6     A     
 COMPASS  *                                                                                CMP18          7     A     
 COMPASS  *         BITS   59-48       2000B + N                                           CMP18          8     A     
 COMPASS  *         BITS   47-00       MICRO NAME RIGHT ADJUSTED WITH ZERO FILL.           CMP18          9     A     
 COMPASS                                                                                   COMPASS     1035     A     
 COMPASS                                                                                   COMPASS     1036     A     
 COMPASS   SYSMIC   TABLE                                                                  COMPASS     1037     A     
 COMPASS   CMPTAB   SPACE  4,10                                                    F4810B  F4810B        43     A     
 COMPASS  **        CMPTAB - COMPILER TABLE.                                       F4810B  F4810B        44     A     
 COMPASS  *         USED TO HOLD CP.NFLS, CP.AFLS AND THE CONTENTS OF CORE         F4810B  F4810B        45     A     
 COMPASS  *         INCLUDED BETWEEN THE ADDRESSES CONTAINED IN THESE CELLS WHEN   F4810B  F4810B        46     A     
 COMPASS  *         COMPASS IS CALLED BY A COMPILER.                               F4810B  F4810B        47     A     
 COMPASS  *                                                                        F4810B  F4810B        48     A     
 COMPASS  *         ENTRY = N WORDS.                                               F4810B  F4810B        49     A     
 COMPASS  *                                                                        F4810B  F4810B        50     A     
 COMPASS  *         WORD 1.                                                        F4810B  F4810B        51     A     
 COMPASS  *                                                                        F4810B  F4810B        52     A     
 COMPASS  *         BITS   59-30       CP.NFLS   FL AVAILABLE TO COMPASS           F4810B  F4810B        53     A     
 COMPASS  *         BITS   29-00       CP.AFLS   ACTUAL FL                         F4810B  F4810B        54     A     
 COMPASS  *                                                                        F4810B  F4810B        55     A     
 COMPASS  *         WORDS 2-N.         CONTENTS OF CORE INCLUDED BETWEEN ABOVE     F4810B  F4810B        56     A     
 COMPASS                                                                           F4810B  F4810B        57     A     
 COMPASS                                                                           F4810B  F4810B        58     A     
 COMPASS   CMPTAB   TABLE                                                          F4810B  F4810B        59     A     
 COMPASS   TABLE    SPACE  4                                                               COMPASS     1038     A     
 COMPASS  **        TABLES BELOW HERE ARE CLEARED AT THE END OF PASS 2.                    COMPASS     1039     A     
 COMPASS   SYMTAB   SPACE  4                                                               COMPASS     1040     A     
 COMPASS  **        SYMTAB - SYMBOL TABLE.                                                 COMPASS     1041     A     
 COMPASS  *         SYMBOLS DEFINED DURING AN ASSEMBLY.                                    COMPASS     1042     A     
 COMPASS  *                                                                                COMPASS     1043     A     
 COMPASS  *         ENTRY = 2 WORDS.                                                       COMPASS     1044     A     
 COMPASS  *                                                                                COMPASS     1045     A     
 COMPASS  *         WORD 1.                                                                COMPASS     1046     A     
 COMPASS  *                                                                                COMPASS     1047     A     
 COMPASS  *         BITS   59-48       QUALIFIER INDEX.                                    COMPASS     1048     A     
 COMPASS  *         BITS   47-00       SYMBOL NAME, RIGHT JUSTIFIED WITH                   COMPASS     1049     A     
 COMPASS  *                            LEADING ZEROS.                                      COMPASS     1050     A     
 COMPASS  *                                                                                COMPASS     1051     A     
 COMPASS  *         WORD 2.                                                                COMPASS     1052     A     
 COMPASS  *                                                                                COMPASS     1053     A     
 COMPASS  *         BITS   59-42       LINK FIELD FOR HASHING.                             COMPASS     1054     A     
 COMPASS  *         BITS   41-34       UNUSED.                                             COMPASS     1055          I
          -CMP26  
 COMPASS  *         BITS   41-36       UNUSED.                                             CMP26          8          I
          -CMP30  
 COMPASS  *         BITS   41-39       UNUSED.                                             CMP30       1204     A     
 COMPASS  *         BITS   38-36       SYSTEXT ORDINAL.                                    CMP30       1205     A     
 COMPASS  *         BIT    35          NO REFERENCE FLAG.                                  COMPASS     1056     A     
 COMPASS  *         BIT    34          XTEXT FLAG.                                         COMPASS     1057     A     
 COMPASS  *         BIT    33          REDEFINITION FLAG.                                  COMPASS     1058     A     
 COMPASS  *         BIT    32          SST FLAG.                                           COMPASS     1059     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 270    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         BIT    31          EXTERNAL FLAG.                                      COMPASS     1060     A     
 COMPASS  *         BIT    30          DEFINED FLAG.                                       COMPASS     1061     A     
 COMPASS  *         BITS   29-21       RELOCATION OR EXTERNAL NUMBER.                      COMPASS     1062     A     
 COMPASS  *         BITS   20-00       VALUE OF SYMBOL.                                    COMPASS     1063     A     
 COMPASS                                                                                   COMPASS     1064     A     
 COMPASS                                                                                   COMPASS     1065     A     
 COMPASS   SYMTAB   TABLE                                                                  COMPASS     1066     A     
 COMPASS   USETAB   SPACE  4                                                               COMPASS     1067     A     
 COMPASS  **        USETAB - PROGRAM BLOCK TABLE.                                          COMPASS     1068     A     
 COMPASS  *         COUNTERS FOR PROGRAM BLOCKS.                                           COMPASS     1069     A     
 COMPASS  *                                                                                COMPASS     1070     A     
 COMPASS  *         ENTRY = 4 WORDS.                                                       COMPASS     1071          I
          -CMP26  
 COMPASS  *         ENTRY = 6 WORDS.                                                       CMP26          9          I
          -CMP30  
 COMPASS  *         ENTRY = 4 WORDS.                                                       CMP30       1206     A     
 COMPASS  *                                                                                COMPASS     1072     A     
 COMPASS  *         WORD 1.                                                                COMPASS     1073     A     
 COMPASS  *                                                                                COMPASS     1074     A     
 COMPASS  *         BITS   59-00       BLOCK NAME RIGHT JUSTIFIED WITH ZERO FILL.          COMPASS     1075     A     
 COMPASS  *                            SPECIAL BLOCK NAMES -                               COMPASS     1076     A     
 COMPASS  *                            LCM BLOCK - COMPLEMENTED NAME.                      COMPASS     1077     A     
 COMPASS  *                                        PASS 1        PASS 2                    COMPASS     1078     A     
 COMPASS  *                            BLOCK 1 - ABSOLUTE*     PROGRAM*                    COMPASS     1079     A     
 COMPASS  *                                                OR                              COMPASS     1080     A     
 COMPASS  *                            BLOCK 1 - ABSOLUTE*     ABSOLUTE*                   COMPASS     1081     A     
 COMPASS  *                            BLOCK 2 - (ONE BLANK)   PROGRAM*                    COMPASS     1082     A     
 COMPASS  *                            BLOCK 3 - LITERALS*     LITERAL*                    COMPASS     1083     A     
 COMPASS  *                                                                                COMPASS     1084     A     
 COMPASS  *                                                                                COMPASS     1085     A     
 COMPASS  *         WORD 2.                                                                COMPASS     1086     A     
 COMPASS  *                                                                                COMPASS     1087     A     
 COMPASS  *         BITS   59-30       UNUSED.                                             COMPASS     1088          I
          -CMP30  
 COMPASS  *         BIT    59          CONDITIONAL LOAD FLAG (PASS 1 ONLY).                CMP30       1207     A     
 COMPASS  *         BITS   58-42       CURRENT RELTAB HALFWORD INDEX (BINREL).             CMP30       1208     A     
 COMPASS  *         BITS   41-30       UNUSED.                                             CMP30       1209     A     
 COMPASS  *         BITS   29-24       CURRENT VALUE OF POSITION COUNTER.                  COMPASS     1089     A     
 COMPASS  *         BIT    23          VALUE OF NFOUP FLAG.                                COMPASS     1090     A     
 COMPASS  *         BITS   22-21       UNUSED.                                             COMPASS     1091     A     
 COMPASS  *         BITS   20-00       VALUE OF ORIGIN COUNTER.                            COMPASS     1092     A     
 COMPASS  *                                                                                COMPASS     1093     A     
 COMPASS  *                                                                                COMPASS     1094     A     
 COMPASS  *         WORD 3. (PASS 1)                                                       COMPASS     1095     A     
 COMPASS  *                                                                                COMPASS     1096     A     
 COMPASS  *         BITS   59-01       UNUSED.                                             COMPASS     1097     A     
 COMPASS  *         BIT    00          COMMON FLAG.                                        COMPASS     1098     A     
 COMPASS  *                                                                                COMPASS     1099     A     
 COMPASS  *                                                                                COMPASS     1100     A     
 COMPASS  *         WORD 3. (PASS 2)                                                       COMPASS     1101     A     
 COMPASS  *                                                                                COMPASS     1102     A     
 COMPASS  *         BITS   59-33       UNUSED.                                             COMPASS     1103          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 271    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS  *         BITS   59-54       UNUSED.                                             CMP30       1210     A     
 COMPASS  *         BITS   53-33       MAXIMUM ORIGIN OF BLOCK.                            CMP30       1211     A     
 COMPASS  *         BITS   32-24       RELOCATION OF BLOCK.                                COMPASS     1104     A     
 COMPASS  *         BITS   23-21       UNUSED.                                             COMPASS     1105     A     
 COMPASS  *         BITS   20-00       ORIGIN OF BLOCK.                                    COMPASS     1106     A     
 COMPASS  *                                                                                COMPASS     1107     A     
 COMPASS  *                                                                                COMPASS     1108     A     
 COMPASS  *         WORD 4. (PASS 1)                                                       COMPASS     1109     A     
 COMPASS  *                                                                                COMPASS     1110     A     
 COMPASS  *         BITS   59-21       UNUSED.                                             COMPASS     1111     A     
 COMPASS  *         BITS   20-00       MAXIMUM ORIGIN OF BLOCK.                            COMPASS     1112     A     
 COMPASS  *                                                                                COMPASS     1113     A     
 COMPASS  *                                                                                COMPASS     1114     A     
 COMPASS  *         WORD 4. (PASS 2)                                                       COMPASS     1115     A     
 COMPASS  *                                                                                COMPASS     1116     A     
 COMPASS  *         BITS   59-00       PARTIAL BINARY WORD (BINWORD)                       COMPASS     1117     A     
 COMPASS  *                                                                                COMPASS     1118          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1119          I
          -CMP30  
 COMPASS  *         WORD 5. (PASS 2)                                                       COMPASS     1120          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1121          I
          -CMP30  
 COMPASS  *         BITS   59-00       PARTIAL BINARY RELOCATION (BINREL)                  COMPASS     1122          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1123          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1124          I
          -CMP30  
 COMPASS  *         WORD 6. (PASS 2)                                                       COMPASS     1125          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1126          I
          -CMP30  
 COMPASS  *         BITS   59-21       UNUSED.                                             COMPASS     1127          I
          -CMP30  
 COMPASS  *         BITS   20-00       MAXIMUM ORIGIN OF BLOCK.                            COMPASS     1128          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1129     A     
 COMPASS                                                                                   COMPASS     1130     A     
 COMPASS   USETAB   TABLE                                                                  COMPASS     1131     A     
 COMPASS   QVTAB    SPACE  4                                                               COMPASS     1132     A     
 COMPASS  **        QVTAB - QUALIFIER NAME TABLE.                                          COMPASS     1133     A     
 COMPASS  *         NAMES OF QUALIFIERS AS THEY OCCUR.                                     COMPASS     1134     A     
 COMPASS  *                                                                                COMPASS     1135     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1136     A     
 COMPASS  *                                                                                CMP19          6     A     
 COMPASS  *         BIT    59          NO REFERENCE FLAG.                                  CMP19          7     A     
 COMPASS  *         BITS   58-48       UNUSED AND ZERO.                                    CMP19          8     A     
 COMPASS  *         BITS   47-00       QUALIFIER NAME RIGHT ADJUSTED WITH 00 FILL.         CMP19          9     A     
 COMPASS                                                                                   COMPASS     1137     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 272    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     1138     A     
 COMPASS   QVTAB    TABLE                                                                  COMPASS     1139     A     
 COMPASS   SLITS    SPACE  4                                                               COMPASS     1140     A     
 COMPASS  **        SLITS - SYMBOL LITERALS.                                               COMPASS     1141     A     
 COMPASS  *         NAMES OF SYMBOL LITERALS.                                              COMPASS     1142     A     
 COMPASS  *                                                                                COMPASS     1143     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1144     A     
 COMPASS  *                                                                                COMPASS     1145     A     
 COMPASS  *         BIT    59          SET TO 1 IF DEFINED BY COMPASS.                     COMPASS     1146     A     
 COMPASS  *         BITS   58-48       TYPE.                                               COMPASS     1147          I
          -CMP19  
 COMPASS  *         BITS   58-57       TYPE.                                               CMP19         10     A     
 COMPASS  *                            0 - =Y TYPE SYMBOL.                                 CP154          5     A     
 COMPASS  *                            1 - =S TYPE SYMBOL.                                 COMPASS     1148     A     
 COMPASS  *                            2 - =X TYPE SYMBOL.                                 COMPASS     1149     A     
 COMPASS  *                            3 - =S AND =X TYPE SYMBOL.                          COMPASS     1150     A     
 COMPASS  *         BITS   47-00       SYMBOL NAME RIGTH JUSTIFIED WITH LEADING            COMPASS     1151          I
          -CMP19  
 COMPASS  *         BITS   56-48       CURRENT QUALIFIER INDEX.                            CMP19         11     A     
 COMPASS  *         BITS   47-00       SYMBOL NAME RIGHT JUSTIFIED WITH LEADING            CMP19         12     A     
 COMPASS  *                            ZEROS.                                              COMPASS     1152     A     
 COMPASS                                                                                   COMPASS     1153     A     
 COMPASS                                                                                   COMPASS     1154     A     
 COMPASS   SLITS    TABLE                                                                  COMPASS     1155     A     
 COMPASS   USTACK   SPACE  4                                                               COMPASS     1156          I
          -CMP30  
 COMPASS  **        USTACK - USE STACK.                                                    COMPASS     1157          I
          -CMP30  
 COMPASS  *         RECORD OF PREVIOUS USE BLOCKS.                                         COMPASS     1158          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1159          I
          -CMP30  
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1160          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1161          I
          -CMP30  
 COMPASS  *         BITS   59-09       UNUSED.                                             COMPASS     1162          I
          -CMP30  
 COMPASS  *         BITS   08-00       BLOCK NUMBER.                                       COMPASS     1163          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1164          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1165          I
          -CMP30  
 COMPASS   USTACK   TABLE                                                                  COMPASS     1166          I
          -CMP30  
 COMPASS   BSTACK   SPACE  4                                                               COMPASS     1167          I
          -CMP30  
 COMPASS  **        BSTACK - BASE STACK.                                                   COMPASS     1168          I
          -CMP30  
 COMPASS  *         RECORD OF PREVIOUS BASES.                                              COMPASS     1169          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 273    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS     1170          I
          -CMP30  
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1171          I
          -CMP30  
 COMPASS  *                                                                                COMPASS     1172          I
          -CMP30  
 COMPASS  *         BITS   59-42       UNUSED.                                             COMPASS     1173          I
          -CMP30  
 COMPASS  *         BITS   41-36       BASE CHARACTER IN DISPLAY CODE.                     COMPASS     1174          I
          -CMP30  
 COMPASS  *         BITS   35-18       MIXED BASE VALUE (MBASE)                            COMPASS     1175          I
          -CMP30  
 COMPASS  *         BITS   17-00       NORMAL BASE VALUE (NBASE)                           COMPASS     1176          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1177          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1178          I
          -CMP30  
 COMPASS   BSTACK   TABLE                                                                  COMPASS     1179          I
          -CMP30  
 COMPASS   LITAB    SPACE  4                                                               COMPASS     1180     A     
 COMPASS  **        LITAB - LITERAL TABLE.                                                 COMPASS     1181     A     
 COMPASS  *         LITERALS DEFINED DURING PASS 1.                                        COMPASS     1182     A     
 COMPASS                                                                                   COMPASS     1183     A     
 COMPASS                                                                                   COMPASS     1184     A     
 COMPASS   LITAB    TABLE                                                                  COMPASS     1185     A     
 COMPASS   EPTAB    SPACE  4                                                               COMPASS     1186     A     
 COMPASS  **        EPTAB - ENTRY POINT TABLE.                                             COMPASS     1187     A     
 COMPASS  *         NAMES OF SYMBOLS APPEARING ON AN *ENTRY* PSEUDO-OPERATION              COMPASS     1188          I
          -CMP30  
 COMPASS  *         CARD.                                                                  COMPASS     1189          I
          -CMP30  
 COMPASS  *         NAMES OF ENTRY POINTS DECLARED BY *ENTRY* AND *ENTRYC*                 CMP30       1212     A     
 COMPASS  *         PSEUDO INSTRUCTIONS.                                                   CMP30       1213     A     
 COMPASS  *                                                                                COMPASS     1190     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1191     A     
 COMPASS  *                                                                                COMPASS     1192     A     
 COMPASS  *         BITS   59-00       SYMBOL RIGHT JUSTIFED WITH ZERO FILL.               COMPASS     1193          I
          -CMP30  
 COMPASS  *         BIT    59          CONDITIONAL (ENTRYC) FLAG.                          CMP30       1214     A     
 COMPASS  *         BITS   58-00       SYMBOL RIGHT JUSTIFIED WITH 00 FILL.                CMP30       1215     A     
 COMPASS                                                                                   COMPASS     1194     A     
 COMPASS                                                                                   COMPASS     1195     A     
 COMPASS   EPTAB    TABLE                                                                  COMPASS     1196     A     
 COMPASS   RVTAB    SPACE  4,8                                                             CPS2672       11     A     
 COMPASS  **        RVTAB - RELOCATION VECTOR.                                             CPS2672       12     A     
 COMPASS  *         RELOCATION VALUES FOR EACH BLOCK.                                      CPS2672       13     A     
 COMPASS  *         LENGTH IS EQUAL TO THE NUMBER OF BLOCKS DEFINED.                       CPS2672       14     A     
 COMPASS  *                                                                                CPS2672       15     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        CPS2672       16     A     
 COMPASS  *                                                                                CPS2672       17     A     
 COMPASS  *         BITS 59-00         RELOCATION.                                         CPS2672       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/28. 19.11.32.      PAGE 274    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CPS2672       19     A     
 COMPASS                                                                                   CPS2672       20     A     
 COMPASS   RVTAB    TABLE                                                                  CPS2672       21     A     
 COMPASS   EXTAB    SPACE  4                                                               COMPASS     1197     A     
 COMPASS  **        EXTAB - EXTERNAL TABLE.                                                COMPASS     1198     A     
 COMPASS  *         RECORDS EACH EXTERNAL SYMBOL.                                          COMPASS     1199     A     
 COMPASS  *                                                                                COMPASS     1200     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1201     A     
 COMPASS  *                                                                                COMPASS     1202     A     
 COMPASS  *         BITS   59-00       SYMBOL NAME RIGHT JUSTIFIED WITH ZERO FILL.         COMPASS     1203          I
          -CMP30  
 COMPASS  *         BITS   59-00       SYMBOL RIGHT JUSTIFIED, 00 FILL IN PASS 1,          CMP30       1216          I
          -CP154  
 COMPASS  *                            LEFT JUSTIFIED WITH 00 FILL IN PASS 2.              CMP30       1217          I
          -CP154  
 COMPASS  *         (PASS 1)                                                               CP154          6     A     
 COMPASS  *         BIT    59          SET IF WEAK EXTERNAL (=Y TYPE).                     CP154          7     A     
 COMPASS  *         BITS   58-00       SYMBOL NAME RIGHT JUSTIFIED WITH 00 FILL.           CP154          8     A     
 COMPASS  *                                                                                CP154          9     A     
 COMPASS  *         (PASS 2)                                                               CP154         10     A     
 COMPASS  *         BITS   59-01       SYMBOL NAME LEFT JUSTIFIED WITH 00 FILL.            CP154         11     A     
 COMPASS  *         BIT    00          SET IF WEAK EXTERNAL.                               CP154         12     A     
 COMPASS                                                                                   COMPASS     1204     A     
 COMPASS                                                                                   COMPASS     1205     A     
 COMPASS   EXTAB    TABLE                                                                  COMPASS     1206     A     
 COMPASS   SEGTAB   SPACE  4                                                               COMPASS     1207     A     
 COMPASS  **        SEGTAB - SEGMENT TABLE.                                                COMPASS     1208     A     
 COMPASS  *         RECORDS ALL RELEVENT INFORMATION ABOUT EACH SEGMENT OR                 COMPASS     1209     A     
 COMPASS  *         PARTIAL SEGMENT.                                                       COMPASS     1210     A     
 COMPASS  *                                                                                COMPASS     1211     A     
 COMPASS  *         ENTRY = 4 WORDS.                                                       COMPASS     1212     A     
 COMPASS  *                                                                                COMPASS     1213     A     
 COMPASS  *         WORD 1.                                                                COMPASS     1214     A     
 COMPASS  *                                                                                COMPASS     1215     A     
 COMPASS  *         BITS   59-30       UNUSED.                                             COMPASS     1216     A     
 COMPASS  *         BITS   29-21       RELOCATION OF LWA OF SEGMENT.                       COMPASS     1217     A     
 COMPASS  *         BITS   20-00       RELATIVE LWA OF SEGMENT.                            COMPASS     1218     A     
 COMPASS  *                                                                                COMPASS     1219     A     
 COMPASS  *                                                                                COMPASS     1220     A     
 COMPASS  *         WORD 2.                                                                COMPASS     1221     A     
 COMPASS  *                                                                                COMPASS     1222     A     
 COMPASS  *         BITS   59-36       UNUSED.                                             COMPASS     1223     A     
 COMPASS  *         BITS   35-18       USE TABLE INDEX.                                    COMPASS     1224     A     
 COMPASS  *         BITS   17-00       IDTAB INDEX.                                        COMPASS     1225     A     
 COMPASS  *                                                                                COMPASS     1226     A     
 COMPASS  *                                                                                COMPASS     1227     A     
 COMPASS  *         WORD  3. (PASS 1)                                                      COMPASS     1228     A     
 COMPASS  *                                                                                COMPASS     1229     A     
 COMPASS  *         BITS   59-36       UNUSED.                                             COMPASS     1230          I
          -CMP17  
 COMPASS  *         BITS   59-54       UNUSED.                                             CMP17          2     A     
 COMPASS  *         BITS   53-36       SLITS INDEX.                                        CMP17          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/28. 19.11.32.      PAGE 275    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         BITS   35-18       EPTAB INDEX.                                        COMPASS     1231     A     
 COMPASS  *         BITS   17-00       LITAB INDEX.                                        COMPASS     1232     A     
 COMPASS  *                                                                                COMPASS     1233     A     
 COMPASS  *                                                                                COMPASS     1234     A     
 COMPASS  *         WORD 3. (PASS 2)                                                       COMPASS     1235     A     
 COMPASS  *                                                                                COMPASS     1236     A     
 COMPASS  *         BITS   59-36       UNUSED.                                             COMPASS     1237          I
          -CMP17  
 COMPASS  *         BITS   59-54       UNUSED.                                             CMP17          4     A     
 COMPASS  *         BITS   53-36       SLITS FWA INDEX.                                    CMP17          5     A     
 COMPASS  *         BITS   35-18       EPTAB FWA INDEX.                                    COMPASS     1238     A     
 COMPASS  *         BITS   17-00       LITAB FWA INDEX.                                    COMPASS     1239     A     
 COMPASS  *                                                                                COMPASS     1240     A     
 COMPASS  *                                                                                COMPASS     1241     A     
 COMPASS  *         WORD 4. (PASS 2)                                                       COMPASS     1242     A     
 COMPASS  *                                                                                COMPASS     1243     A     
 COMPASS  *         BITS   59-36       UNUSED.                                             COMPASS     1244          I
          -CMP17  
 COMPASS  *         BITS   59-54       UNUSED.                                             CMP17          6     A     
 COMPASS  *         BITS   53-36       SLITS LWA INDEX.                                    CMP17          7     A     
 COMPASS  *         BITS   35-18       EPTAB LWA INDEX.                                    COMPASS     1245     A     
 COMPASS  *         BITS   17-00       LITAB LWA INDEX.                                    COMPASS     1246     A     
 COMPASS                                                                                   COMPASS     1247     A     
 COMPASS                                                                                   COMPASS     1248     A     
 COMPASS   SEGTAB   TABLE                                                                  COMPASS     1249     A     
 COMPASS   IDTAB    SPACE  4                                                               COMPASS     1250     A     
 COMPASS  **        IDTAB - IDENT CARD TABLE.                                              COMPASS     1251     A     
 COMPASS  *         USED TO HOLD THE TEXT OF BINARY CONTROL CARDS FOR LISTING              COMPASS     1252     A     
 COMPASS  *         AT THE START OF PASS 2.                                                COMPASS     1253     A     
 COMPASS  *                                                                                COMPASS     1254     A     
 COMPASS  *         ENTRY = M WORDS.                                                       COMPASS     1255     A     
 COMPASS  *                                                                                COMPASS     1256     A     
 COMPASS  *         WORD 1.                                                                COMPASS     1257     A     
 COMPASS  *                                                                                COMPASS     1258     A     
 COMPASS  *         BITS   59-48       QUALIFIER INDEX.                                    COMPASS     1259     A     
 COMPASS  *         BITS   47-18       UNUSED.                                             COMPASS     1260     A     
 COMPASS  *         BITS   17-00       NUMBER BASE IN EFFECT (NBASE)                       COMPASS     1261     A     
 COMPASS  *                                                                                COMPASS     1262     A     
 COMPASS  *                                                                                COMPASS     1263     A     
 COMPASS  *         WORDS 2-N - COMPRESSED TEXT OF BINARY CONTROL CARD.                    COMPASS     1264     A     
 COMPASS  *         WORDS N-M - TEXT OF COMMENT CARDS.                                     COMPASS     1265     A     
 COMPASS                                                                                   COMPASS     1266     A     
 COMPASS                                                                                   COMPASS     1267     A     
 COMPASS   IDTAB    TABLE                                                                  COMPASS     1268     A     
 COMPASS   TLDS     SPACE  4                                                               CP147          5     A     
 COMPASS  **        TLDS - LDSET TABLE.                                                    CP147          6     A     
 COMPASS  *         HOLDS LOADER OBJECT DIRECTIVES CREATED IN PASS 1 FOR                   CP147          7     A     
 COMPASS  *         DUMPING TO THE BINARY FILE AT THE BEGINNING OF PASS 2.                 CP147          8     A     
 COMPASS  *                                                                                CP147          9     A     
 COMPASS  *         ENTRY = N WORDS. (SEE LOADER REF. MANUAL FOR DETAILS)                  CP147         10     A     
 COMPASS                                                                                   CP147         11     A     
 COMPASS                                                                                   CP147         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/28. 19.11.32.      PAGE 276    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   TLDS     TABLE                                                                  CP147         13     A     
 COMPASS   TABLE    SPACE  4                                                               COMPASS     1269     A     
 COMPASS  **        TABLES BELOW HERE CLEARED AT END OF PASS 1.                            COMPASS     1270     A     
 COMPASS   STACK    SPACE  4                                                               COMPASS     1271     A     
 COMPASS  **        STACK - RECURSION STACK.                                               COMPASS     1272     A     
 COMPASS  *         CONTROL OF ASSEMBLER INPUT SOURCES.                                    COMPASS     1273     A     
 COMPASS  *                                                                                COMPASS     1274     A     
 COMPASS  *         ENTRY = 4 WORDS.                                                       COMPASS     1275     A     
 COMPASS  *                                                                                COMPASS     1276     A     
 COMPASS  *         WORD 1.                                                                COMPASS     1277     A     
 COMPASS  *                                                                                COMPASS     1278     A     
 COMPASS  *         BITS   59-18       UNUSED.                                             COMPASS     1279          I
          -CMP20  
 COMPASS  *         BITS   59-54       PERIOD IN DISPLAY CODE.                             CMP20         32     A     
 COMPASS  *         BITS   53-18       RECURSION LEVEL IN DECIMAL, LEFT                    CMP20         33     A     
 COMPASS  *                            JUSTIFIED WITH BLANK FILL.                          CMP20         34     A     
 COMPASS  *         BITS   17-00       RELATIVE ADDRESS OF NEXT CARD TO                    COMPASS     1280     A     
 COMPASS  *                            BE UNPACKED.                                        COMPASS     1281     A     
 COMPASS  *                                                                                COMPASS     1282     A     
 COMPASS  *                                                                                COMPASS     1283     A     
 COMPASS  *         WORD 2.                                                                COMPASS     1284     A     
 COMPASS  *                                                                                COMPASS     1285     A     
 COMPASS  *         BITS   59-56       TYPE OF STACK ENTRY.                                COMPASS     1286     A     
 COMPASS  *                            1 - MACRO EXPANSION.                                COMPASS     1287     A     
 COMPASS  *                            2 - DUPLICATION EXPANSION.                          COMPASS     1288     A     
 COMPASS  *                            3 - REMOTE EXPANSION.                               COMPASS     1289     A     
 COMPASS  *                            4 - XTEXT EXPANSION.                                COMPASS     1290     A     
 COMPASS  *                            5 - ECHO EXPANSION.                                 COMPASS     1291     A     
 COMPASS  *         BITS   55-36       A RECORD OF INDICATORS SET WHEN                     COMPASS     1292     A     
 COMPASS  *                            STACK WAS PUSHED DOWN.                              COMPASS     1293     A     
 COMPASS  *         BITS   35-18       LENGTH OF MARGS AT START OF EXPANSION.              COMPASS     1294     A     
 COMPASS  *         BITS   17-00       LENGTH OF MARDIS AT START OF EXPANSION.             COMPASS     1295     A     
 COMPASS  *                                                                                COMPASS     1296     A     
 COMPASS  *                                                                                COMPASS     1297     A     
 COMPASS  *         WORD 3.                                                                COMPASS     1298     A     
 COMPASS  *                                                                                COMPASS     1299     A     
 COMPASS  *         BITS   59-36       UNUSED.                                             COMPASS     1300     A     
 COMPASS  *         BITS   35-18       DUP - ITERATION COUNT.                              COMPASS     1301     A     
 COMPASS  *                            XTEXT - LENGTH OF LASTAB.                           COMPASS     1302     A     
 COMPASS  *                            ECHO - LENGTH OF ECHTAB.                            COMPASS     1303     A     
 COMPASS  *         BITS   17-00       DUP - LENGTH OF DUPTAB.                             COMPASS     1304     A     
 COMPASS  *                                                                                COMPASS     1305     A     
 COMPASS  *                                                                                COMPASS     1306     A     
 COMPASS  *         WORD 4.                                                                COMPASS     1307     A     
 COMPASS  *                                                                                COMPASS     1308     A     
 COMPASS  *         BITS   59-48       UNUSED.                                             COMPASS     1309     A     
 COMPASS  *         BITS   47-00       NAME OF MACRO, OR WORDS *DUP*, *RMT*,               COMPASS     1310     A     
 COMPASS  *                            OR *ECHO*, OR FILE NAME FOR XTEXT.                  COMPASS     1311     A     
 COMPASS                                                                                   COMPASS     1312     A     
 COMPASS                                                                                   COMPASS     1313     A     
 COMPASS   STACK    TABLE                                                                  COMPASS     1314     A     
 COMPASS   RMTAB    SPACE  4                                                               COMPASS     1315     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 277    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        RMTAB - REMOTE CODE TABLE.                                             COMPASS     1316     A     
 COMPASS  *         USED TO HOLD REMOTE CODE COMPRESSED TEXT.                              COMPASS     1317     A     
 COMPASS                                                                                   COMPASS     1318     A     
 COMPASS                                                                                   COMPASS     1319     A     
 COMPASS   RMTAB    TABLE                                                                  COMPASS     1320     A     
 COMPASS   LRMTAB   SPACE  4                                                               COMPASS     1321     A     
 COMPASS  **        LRMTAB - LABELED REMOTE TABLE.                                         COMPASS     1322     A     
 COMPASS  *         USED TO HOLD LABELED REMOTE NAMES AND COMPRESSED TEXT.                 COMPASS     1323     A     
 COMPASS  *                                                                                COMPASS     1324     A     
 COMPASS  *         ENTRY = N WORDS.                                                       COMPASS     1325     A     
 COMPASS  *                                                                                COMPASS     1326     A     
 COMPASS  *         WORD 1 - REMOTE NAME, RIGHT JUSTIFIED WITH ZERO FILL.                  COMPASS     1327     A     
 COMPASS  *                                                                                COMPASS     1328     A     
 COMPASS  *         WORDS 2-N - COMPRESSED TEXT.                                           COMPASS     1329     A     
 COMPASS                                                                                   COMPASS     1330     A     
 COMPASS                                                                                   COMPASS     1331     A     
 COMPASS   LRMTAB   TABLE                                                                  COMPASS     1332     A     
 COMPASS   RASTAB   SPACE  4                                                               COMPASS     1333     A     
 COMPASS  **        RASTAB - REMOTE ASSEMBLY TABLE.                                        COMPASS     1334     A     
 COMPASS  *         USED TO HOLD REMOTE COMPRESSED TEXT DURING ASSEMBLY.                   COMPASS     1335     A     
 COMPASS                                                                                   COMPASS     1336     A     
 COMPASS                                                                                   COMPASS     1337     A     
 COMPASS   RASTAB   TABLE                                                                  COMPASS     1338     A     
 COMPASS   LASTAB   SPACE  4                                                               COMPASS     1339     A     
 COMPASS  **        LASTAB - LIBRARY ASSEMBLY TABLE.                                       COMPASS     1340     A     
 COMPASS  *         USED TO HOLD XTEXT COMPRESSED TEXT DURING ASSEMBLY.                    COMPASS     1341     A     
 COMPASS                                                                                   COMPASS     1342     A     
 COMPASS                                                                                   COMPASS     1343     A     
 COMPASS   LASTAB   TABLE                                                                  COMPASS     1344     A     
 COMPASS   DUPTAB   SPACE  4                                                               COMPASS     1345     A     
 COMPASS  **        DUPTAB - DUPLICATION TABLE.                                            COMPASS     1346     A     
 COMPASS  *         USED TO HOLD DUP COMPRESSED TEXT DURING ASSEMBLY.                      COMPASS     1347     A     
 COMPASS                                                                                   COMPASS     1348     A     
 COMPASS                                                                                   COMPASS     1349     A     
 COMPASS   DUPTAB   TABLE                                                                  COMPASS     1350     A     
 COMPASS   TEMTAB   SPACE  4                                                               COMPASS     1351     A     
 COMPASS  **        TEMTAB - TEMPORARY TABLE.                                              COMPASS     1352     A     
 COMPASS  *         TEMPORARY TABLE USED TO HOLD COMPRESSED TEXT DURING                    COMPASS     1353     A     
 COMPASS  *         DEFINITION OPERATIONS.                                                 COMPASS     1354     A     
 COMPASS                                                                                   COMPASS     1355     A     
 COMPASS                                                                                   COMPASS     1356     A     
 COMPASS   TEMTAB   TABLE                                                                  COMPASS     1357     A     
 COMPASS   ECHTAB   SPACE  4                                                               COMPASS     1358     A     
 COMPASS  **        ECHTAB - ECHO TABLE.                                                   COMPASS     1359     A     
 COMPASS  *         USED TO HOLD ECHO COMPRESSED TEXT DURING ASSEMBLY.                     COMPASS     1360     A     
 COMPASS                                                                                   COMPASS     1361     A     
 COMPASS                                                                                   COMPASS     1362     A     
 COMPASS   ECHTAB   TABLE                                                                  COMPASS     1363     A     
 COMPASS   MARDIS   SPACE  4                                                               COMPASS     1364     A     
 COMPASS  **        MARDIS - MACRO ARGUMENT DISCRIPTORS.                                   COMPASS     1365     A     
 COMPASS  *         CONTAINS POINTERS INTO MARGS FOR THE ACTUAL PARAMETERS                 COMPASS     1366     A     
 COMPASS  *         OF A MACRO EXPANSION.                                                  COMPASS     1367     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 278    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS     1368     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1369     A     
 COMPASS  *                                                                                COMPASS     1370     A     
 COMPASS  *         NON-ITERATIVE FORM.                                                    COMPASS     1371     A     
 COMPASS  *                                                                                COMPASS     1372     A     
 COMPASS  *         BITS   59-18       ZERO.                                               COMPASS     1373          I
          -CMP165 
 COMPASS  *         BITS   17-00       INDEX INTO MARGS TABLE.                             COMPASS     1374          I
          -CMP165 
 COMPASS  *         BITS   59-48       2000B + CHARACTER COUNT OF ARGUMENT.                CMP165         1     A     
 COMPASS  *         BITS   47-18       ZERO.                                               CMP165         2     A     
 COMPASS  *         BITS   17-00       FWA OF ARGUMENT IN MARGS TABLE.                     CMP165         3     A     
 COMPASS  *                                                                                COMPASS     1375     A     
 COMPASS  *         ITERATIVE FORM.                                                        COMPASS     1376     A     
 COMPASS  *                                                                                COMPASS     1377     A     
 COMPASS  *         BITS   59-58       10                                                  COMPASS     1378          I
          -CMP165 
 COMPASS  *         BITS   57-48       -(CHARACTER INDEX)                                  COMPASS     1379          I
          -CMP165 
 COMPASS  *         BITS   47-36       UNUSED.                                             COMPASS     1380          I
          -CMP165 
 COMPASS  *         BITS   35-18       INDEX INTO MARGS TABLE OF CURRENT                   COMPASS     1381          I
          -CMP165 
 COMPASS  *                            START OF ARGUMENT.                                  COMPASS     1382          I
          -CMP165 
 COMPASS  *         BITS   17-00       INDEX INTO MARGS TABLE OF START                     COMPASS     1383          I
          -CMP165 
 COMPASS  *                            OF ARGUMENT.                                        COMPASS     1384          I
          -CMP165 
 COMPASS  *         BITS   59-48       1777B - CHARACTER COUNT OF ARGUMENT.                CMP165         4     A     
 COMPASS  *         BITS   47-42       54 - BIT POSITION FOR START OF CURRENT              CMP165         5     A     
 COMPASS  *                            SUBARGUMENT.                                        CMP165         6     A     
 COMPASS  *         BITS   41-30       2000B + COUNT OF CHARACTERS PRECEDING               CMP165         7     A     
 COMPASS  *                            CURRENT SUBARGUMENT.                                CMP165         8     A     
 COMPASS  *         BITS   29-18       2000B + FWA OF CURRENT SUBARGUMENT IN MARGS         CMP165         9     A     
 COMPASS  *                            TABLE, RELATIVE TO FWA OF ARGUMENT.                 CMP165        10     A     
 COMPASS  *         BITS   17-00       FWA OF ARGUMENT IN MARGS TABLE.                     CMP165        11     A     
 COMPASS                                                                                   COMPASS     1385     A     
 COMPASS                                                                                   COMPASS     1386     A     
 COMPASS   MARDIS   TABLE                                                                  COMPASS     1387     A     
 COMPASS   MARGS    SPACE  4                                                               COMPASS     1388     A     
 COMPASS  **        MARGS - MACRO ARGUMENTS.                                               COMPASS     1389     A     
 COMPASS  *         USED TO HOLD THE CHARACTER STRINGS OF MACRO ARGUMENTS.                 COMPASS     1390     A     
 COMPASS  *         EACH CHARACTER STRING STARTS IN A NEW WORD AND TERMINATES              COMPASS     1391          I
          -CMP165 
 COMPASS  *         WITH AT LEAST ONE 00-BYTE.                                             COMPASS     1392          I
          -CMP165 
 COMPASS  *         EACH CHARACTER STRING STARTS IN A NEW WORD.                            CMP165        12     A     
 COMPASS                                                                                   COMPASS     1393     A     
 COMPASS                                                                                   COMPASS     1394     A     
 COMPASS   MARGS    TABLE                                                                  COMPASS     1395     A     
 COMPASS   MICTAB   SPACE  4                                                               COMPASS     1396     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 279    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        MICTAB - MICRO TABLE.                                                  COMPASS     1397     A     
 COMPASS  *         RECORDS THE NAMES AND CURRENT DEFINITION OF MICROS.                    COMPASS     1398     A     
 COMPASS  *         IF TABLE IS NON-EMPTY, FIRST WORD IS USED AS SCRATCH                   CMP18         10     A     
 COMPASS  *         DURING TABLE LOOKUP.                                                   CMP18         11     A     
 COMPASS  *                                                                                COMPASS     1399     A     
 COMPASS  *         ENTRY = N WORDS.                                                       COMPASS     1400          I
          -CMP18  
 COMPASS  *         ENTRY = N WORDS (N = 1 IF MICRO VALUE IS NULL).                        CMP18         12     A     
 COMPASS  *                                                                                COMPASS     1401     A     
 COMPASS  *         WORD 1 - MICRO NAME RIGHT ADJUSTED WITH ZERO FILL.                     COMPASS     1402          I
          -CMP18  
 COMPASS  *         WORDS 1-(N-1) - VALUE OF MICRO - CHARACTER STRING PACKED               CMP18         13     A     
 COMPASS  *         TEN CHARACTERS PER WORD.  IN LAST WORD (WORD N-1), BITS                CMP18         14     A     
 COMPASS  *         59-6 CONTAIN 0-9 CHARACTERS LEFT ADJUSTED WITH ZERO FILL               CMP18         15     A     
 COMPASS  *         AND BITS 5-0 CONTAIN CHARACTER COUNT FOR THIS WORD.                    CMP18         16     A     
 COMPASS  *                                                                                COMPASS     1403     A     
 COMPASS  *         WORD 2-N - CHARACTER STRING FOR MICRO TERMINATED BY                    COMPASS     1404          I
          -CMP18  
 COMPASS  *         AT LEAST ONE 00-CHARACTER.                                             COMPASS     1405          I
          -CMP18  
 COMPASS  *         WORD N.                                                                CMP18         17     A     
 COMPASS  *                                                                                CMP18         18     A     
 COMPASS  *         BITS   59-48       2000B + N                                           CMP18         19     A     
 COMPASS  *         BITS   47-00       MICRO NAME RIGHT ADJUSTED WITH ZERO FILL.           CMP18         20     A     
 COMPASS                                                                                   COMPASS     1406     A     
 COMPASS                                                                                   COMPASS     1407     A     
 COMPASS   MICTAB   TABLE                                                                  COMPASS     1408     A     
 COMPASS   REFTAB   SPACE  4                                                               CMP042        19     A     
 COMPASS  **        REFTAB - SYMBOLIC REFERENCE TABLE.                                     CMP042        20     A     
 COMPASS  *         RECORDS THE INFORMATION REQUIRED FOR GENERATING THE                    CMP042        21     A     
 COMPASS  *         REFERENCE TABLE AT THE END OF ASSEMBLY.                                CMP042        22     A     
 COMPASS  *                                                                                CMP042        23     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        CMP042        24     A     
 COMPASS  *                                                                                CMP042        25     A     
 COMPASS  *         BITS   59-42       INDEX OF THE SYMBOL IN SYMTAB.                      CMP042        26     A     
 COMPASS  *         BITS   41-25       LOCATION COUNTER.                                   CMP042        27     A     
 COMPASS  *         BITS   24-13       PAGE NUMBER.                                        CMP042        28     A     
 COMPASS  *         BITS   12-06       LINE NUMBER.                                        CMP042        29     A     
 COMPASS  *         BITS   05-00       USAGE LETTER.                                       CMP042        30     A     
 COMPASS                                                                                   CMP042        31     A     
 COMPASS                                                                                   CMP042        32     A     
 COMPASS   REFTAB   TABLE              SYMBOLIC REFERENCE TABLE                            CMP042        33     A     
 COMPASS   MEMORY   SPACE  4                                                               COMPASS     1409     A     
 COMPASS  **        MEMORY - MEMORY TABLE.                                                 COMPASS     1410     A     
 COMPASS  *         USED TO HOLD SYSTEXT DURING PASS 0 AND BINARY FOR ABSOLUTE             COMPASS     1411     A     
 COMPASS  *         PROGRAMS DURING PASS 2.                                                COMPASS     1412     A     
 COMPASS                                                                                   COMPASS     1413     A     
 COMPASS                                                                                   COMPASS     1414     A     
 COMPASS   MEMORY   TABLE                                                                  COMPASS     1415     A     
 COMPASS   ENDTAB   SPACE  4                                                               COMPASS     1416     A     
 COMPASS  **        ENDTAB - END TABLE.                                                    COMPASS     1417     A     
 COMPASS  *         DUMMY TABLE USED BY THE TABLE MANAGER.                                 COMPASS     1418     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 280    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     1419     A     
 COMPASS                                                                                   COMPASS     1420     A     
 COMPASS   ENDTAB   TABLE                                                                  COMPASS     1421     A     
 COMPASS   NTABLES  EQU    *-ORIGINS                                                       COMPASS     1422     A     
 COMPASS   TABLE    SPACE  4                                                               COMPASS     1423     A     
 COMPASS  **        SHARED TABLES.                                                         COMPASS     1424     A     
 COMPASS   ERRTAB   SPACE  4                                                               COMPASS     1425     A     
 COMPASS  **        ERRTAB - ERROR DIRCTORY TABLE.                                         COMPASS     1426     A     
 COMPASS  *         USED TO RECORD PAGE OCCURRENCES OF ERRORS.                             COMPASS     1427     A     
 COMPASS  *                                                                                COMPASS     1428     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1429     A     
 COMPASS  *                                                                                COMPASS     1430     A     
 COMPASS  *         BITS   59-30       ERROR TYPE (INDEX INTO ERFLAGS)                     COMPASS     1431     A     
 COMPASS  *         BITS   29-00       PAGE NUMBER.                                        COMPASS     1432     A     
 COMPASS                                                                                   COMPASS     1433     A     
 COMPASS                                                                                   COMPASS     1434     A     
 COMPASS   ERRTAB   TABLE  STACK       ERROR DIRECTORY                                     COMPASS     1435          I
          -CMP042 
 COMPASS   ERRTAB   TABLE  MICTAB      ERROR DIRECTORY                                     CMP042        34     A     
 COMPASS   COMTAB   SPACE  4                                                               COMPASS     1436     A     
 COMPASS  **        COMTAB - COMMON LINKAGE TABLE.                                         COMPASS     1437     A     
 COMPASS  *         USED IN PASS 2 TO RECORD THE COMMON LINKAGES IN THE                    COMPASS     1438     A     
 COMPASS  *         BINARY OUTPUT.                                                         COMPASS     1439     A     
 COMPASS  *                                                                                COMPASS     1440     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1441     A     
 COMPASS  *                                                                                COMPASS     1442     A     
 COMPASS  *         BITS   59-30       COMMON BLOCK NUMBER, STARTING WITH                  COMPASS     1443          I
          -CMP30  
 COMPASS  *         BASIC FORMAT - FILL (4200B) TABLE.                                     CMP30       1218     A     
 COMPASS  *                                                                                CMP30       1219     A     
 COMPASS  *         BITS   59-48       ZEROS.                                              CMP30       1220     A     
 COMPASS  *         BITS   47-39       SAME AS BITS 26-18 IF CONDITIONAL                   CMP30       1221     A     
 COMPASS  *                            LOADING, ZEROS IF UNCONDITIONAL.                    CMP30       1222     A     
 COMPASS  *         BITS   38-30       COMMON BLOCK NUMBER, STARTING WITH                  CMP30       1223     A     
 COMPASS  *                            3 FOR INTERNAL BLOCK NUMBER 2.                      COMPASS     1444     A     
 COMPASS  *         BIT    29          A 1-BIT FOR LATER TABLE CONSTRUCTION.               COMPASS     1445     A     
 COMPASS  *         BITS   28-27       POSITION INFORMATION.                               COMPASS     1446     A     
 COMPASS  *                            2 - UPPER ADDRESS (BITS 47-30)                      COMPASS     1447     A     
 COMPASS  *                            1 - MIDDLE ADDRESS (BITS 32-15)                     COMPASS     1448     A     
 COMPASS  *                            0 - LOWER ADDRESS (BITS 17-00)                      COMPASS     1449     A     
 COMPASS  *         BITS   26-18       RELOCATION OF REFERENCE ADDRESS,                    COMPASS     1450     A     
 COMPASS  *                            IN LOADER RELOCATION.                               COMPASS     1451     A     
 COMPASS  *                            0 - ABSOLUTE.                                       COMPASS     1452     A     
 COMPASS  *                            1 - PLUS PROGRAM.                                   COMPASS     1453     A     
 COMPASS  *                            3 - FIRST COMMON BLOCK.                             COMPASS     1454     A     
 COMPASS  *                            4 - SECOND COMMON BLOCK.                            COMPASS     1455     A     
 COMPASS  *                            ETC.                                                COMPASS     1456     A     
 COMPASS  *         BITS   17-00       REFERENCE ADDRESS.                                  COMPASS     1457     A     
 COMPASS  *                                                                                CMP30       1224     A     
 COMPASS  *         EXTENDED FORMAT - XFILL (4100B) TABLE, UNCONDITIONAL LOADING.          CMP30       1225     A     
 COMPASS  *                                                                                CMP30       1226     A     
 COMPASS  *         BITS   59-57       ZEROS.                                              CMP30       1227     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 281    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         BITS   56-48       COMMON BLOCK NUMBER.                                CMP30       1228     A     
 COMPASS  *         BITS   47-39       RELOCATION OF REFERENCE ADDRESS.                    CMP30       1229     A     
 COMPASS  *         BITS   38-33       ZEROS.                                              CMP30       1230     A     
 COMPASS  *         BITS   32-12       REFERENCE ADDRESS.                                  CMP30       1231     A     
 COMPASS  *         BITS   11-06       LOW-ORDER BIT POSITION OF ADDRESS FIELD.            CMP30       1232     A     
 COMPASS  *         BITS   05-00       LENGTH, IN BITS, OF ADDRESS FIELD.                  CMP30       1233     A     
 COMPASS  *                                                                                CMP30       1234     A     
 COMPASS  *         EXTENDED FORMAT - XFILL (4100B) TABLE, CONDITIONAL LOADING.            CMP30       1235     A     
 COMPASS  *                                                                                CMP30       1236     A     
 COMPASS  *         BITS   59-57       001.                                                CMP30       1237     A     
 COMPASS  *         BITS   56-48       RELOCATION OF REFERENCE ADDRESS.                    CMP30       1238     A     
 COMPASS  *         BITS   47-42       ZEROS.                                              CMP30       1239     A     
 COMPASS  *         BITS   41-21       REFERENCE ADDRESS.                                  CMP30       1240     A     
 COMPASS  *         BITS   20-15       LOW-ORDER BIT POSITION OF ADDRESS FIELD.            CMP30       1241     A     
 COMPASS  *         BITS   14-09       LENGTH, IN BITS, OF ADDRESS FIELD.                  CMP30       1242     A     
 COMPASS  *         BITS   08-00       COMMON BLOCK NUMBER.                                CMP30       1243     A     
 COMPASS  *                                                                                CMP30       1244     A     
 COMPASS  *         THE FIRST WORD OF COMTAB IS USED AS SCRATCH BY DLAST.  ANY             CMP30       1245     A     
 COMPASS  *         OR ALL OF THE ABOVE FORMATS MAY BE INTERMIXED IN COMTAB;               CMP30       1246     A     
 COMPASS  *         DLAST SORTS THEM OUT.                                                  CMP30       1247     A     
 COMPASS                                                                                   COMPASS     1458     A     
 COMPASS                                                                                   COMPASS     1459     A     
 COMPASS   COMTAB   TABLE  RMTAB       COMMON LINKAGE TABLE                                COMPASS     1460     A     
 COMPASS   LNKTAB   SPACE  4                                                               COMPASS     1461     A     
 COMPASS  **        LNKTAB - EXTERNAL LINKAGE TABLE.                                       COMPASS     1462     A     
 COMPASS  *         CONTAINS ALL REFERENCES TO EXTERNAL SYMBOLS IN THE                     COMPASS     1463     A     
 COMPASS  *         BINARY OUTPUT.                                                         COMPASS     1464     A     
 COMPASS  *                                                                                COMPASS     1465     A     
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1466     A     
 COMPASS  *                                                                                COMPASS     1467     A     
 COMPASS  *         BITS   59-30       EXTERNAL SYMBOL NUMBER (1 FOR THE FIRST)            COMPASS     1468          I
          -CMP30  
 COMPASS  *         BASIC FORMAT - LINK (4400B) TABLE.                                     CMP30       1248     A     
 COMPASS  *                                                                                CMP30       1249     A     
 COMPASS  *         BITS   59-48       ZEROS.                                              CMP30       1250     A     
 COMPASS  *         BITS   47-39       SAME AS BITS 26-18 IF CONDITIONAL                   CMP30       1251     A     
 COMPASS  *                            LOADING, ZEROS IF UNCONDITIONAL.                    CMP30       1252     A     
 COMPASS  *         BITS   38-30       EXTERNAL SYMBOL ORDINAL (1 FOR THE FIRST).          CMP30       1253     A     
 COMPASS  *         BIT    29          A 1-BIT FOR LATER TABLE CONSTRUCTION.               COMPASS     1469     A     
 COMPASS  *         BITS   28-27       POSITION OF REFERENCE AS IN COMTAB.                 COMPASS     1470     A     
 COMPASS  *         BITS   26-18       RELOCATION OF REFERENCE ADDRESS                     COMPASS     1471     A     
 COMPASS  *                            AS IN COMTAB.                                       COMPASS     1472     A     
 COMPASS  *         BITS   17-00       REFERENCE ADDRESS.                                  COMPASS     1473     A     
 COMPASS  *                                                                                CMP30       1254     A     
 COMPASS  *         EXTENDED FORMAT - XLINK (4500B) TABLE, UNCONDITIONAL LOADING.          CMP30       1255     A     
 COMPASS  *                                                                                CMP30       1256     A     
 COMPASS  *         BITS   59-57       ZEROS.                                              CMP30       1257     A     
 COMPASS  *         BITS   56-48       EXTERNAL SYMBOL ORDINAL.                            CMP30       1258     A     
 COMPASS  *         BITS   47-39       RELOCATION OF REFERENCE ADDRESS.                    CMP30       1259     A     
 COMPASS  *         BITS   38-33       ZEROS.                                              CMP30       1260     A     
 COMPASS  *         BITS   32-12       REFERENCE ADDRESS.                                  CMP30       1261     A     
 COMPASS  *         BITS   11-06       LOW-ORDER BIT POSITION OF ADDRESS FIELD.            CMP30       1262     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 282    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         BITS   05-00       LENGTH, IN BITS, OF ADDRESS FIELD.                  CMP30       1263     A     
 COMPASS  *                                                                                CMP30       1264     A     
 COMPASS  *         EXTENDED FORMAT - XLINK (4500B) TABLE, CONDITIONAL LOADING.            CMP30       1265     A     
 COMPASS  *                                                                                CMP30       1266     A     
 COMPASS  *         BITS   59-57       001.                                                CMP30       1267     A     
 COMPASS  *         BITS   56-48       RELOCATION OF REFERENCE ADDRESS.                    CMP30       1268     A     
 COMPASS  *         BITS   47-42       ZEROS.                                              CMP30       1269     A     
 COMPASS  *         BITS   41-21       REFERENCE ADDRESS.                                  CMP30       1270     A     
 COMPASS  *         BITS   20-15       LOW-ORDER BIT POSITION OF ADDRESS FIELD.            CMP30       1271     A     
 COMPASS  *         BITS   14-09       LENGTH, IN BITS, OF ADDRESS FIELD.                  CMP30       1272     A     
 COMPASS  *         BITS   08-00       EXTERNAL SYMBOL ORDINAL.                            CMP30       1273     A     
 COMPASS  *                                                                                CMP30       1274     A     
 COMPASS  *         THE FIRST (L.EXTAB)+1 WORDS OF LNKTAB ARE USED AS SCRATCH BY           CMP30       1275     A     
 COMPASS  *         DLAST.  ANY OR ALL OF THE ABOVE FORMATS MAY BE INTERMIXED IN           CMP30       1276     A     
 COMPASS  *         LNKTAB; DLAST SORTS THEM OUT.                                          CMP30       1277     A     
 COMPASS                                                                                   COMPASS     1474     A     
 COMPASS                                                                                   COMPASS     1475     A     
 COMPASS   LNKTAB   TABLE  RASTAB      EXTERNAL LINKAGE TABLE                              COMPASS     1476     A     
 COMPASS   RELTAB   SPACE  4                                                               CMP30       1278     A     
 COMPASS  **        RELTAB - RELOCATION INDICATOR TABLE.                                   CMP30       1279     A     
 COMPASS  *         FOR A RELOCATABLE ASSEMBLY, RELTAB STORES THE RELOCATION               CMP30       1280     A     
 COMPASS  *         INDICATORS FOR THE CURRENT PARTIAL BINARY WORD FOR EACH                CMP30       1281     A     
 COMPASS  *         USE BLOCK.  RELTAB IS NOT USED FOR AN ABSOLUTE ASSEMBLY.               CMP30       1282     A     
 COMPASS  *                                                                                CMP30       1283     A     
 COMPASS  *         ENTRY = 2 WORDS, COMPRISING FOUR 30-BIT FIELDS.                        CMP30       1284     A     
 COMPASS  *                                                                                CMP30       1285     A     
 COMPASS  *         BIT    29          EXTERNAL FLAG.                                      CMP30       1286     A     
 COMPASS  *         BITS   28-12       RELOCATION BASE OR EXTERNAL NUMBER.                 CMP30       1287     A     
 COMPASS  *         BITS   11-06       LOW-ORDER BIT POSITION OF ADDRESS FIELD.            CMP30       1288     A     
 COMPASS  *         BITS   05-00       LENGTH, IN BITS, OF ADDRESS FIELD.                  CMP30       1289     A     
 COMPASS                                                                                   CMP30       1290     A     
 COMPASS                                                                                   CMP30       1291     A     
 COMPASS   RELTAB   TABLE  DUPTAB                                                          CMP30       1292     A     
 COMPASS   REFTAB   SPACE  4                                                               COMPASS     1477          I
          -CMP042 
 COMPASS  **        REFTAB - SYMBOLIC REFERENCE TABLE.                                     COMPASS     1478          I
          -CMP042 
 COMPASS  *         RECORDS THE INFORMATION REQUIRED FOR GENERATING THE                    COMPASS     1479          I
          -CMP042 
 COMPASS  *         REFERENCE TABLE AT THE END OF ASSEMBLY.                                COMPASS     1480          I
          -CMP042 
 COMPASS  *                                                                                COMPASS     1481          I
          -CMP042 
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1482          I
          -CMP042 
 COMPASS  *                                                                                COMPASS     1483          I
          -CMP042 
 COMPASS  *         BITS   59-42       SYMBOL NUMBER.  INDEX OF THE SYMBOL                 COMPASS     1484          I
          -CMP042 
 COMPASS  *                            IN SYMTAB.                                          COMPASS     1485          I
          -CMP042 
 COMPASS  *         BITS   41-30       UNUSED.                                             COMPASS     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/28. 19.11.32.      PAGE 283    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP19    -CMP042 
 COMPASS  *         BITS   29-24       USAGE LETTER.                                       COMPASS     1487          I
          -CMP19    -CMP042 
 COMPASS  *         BITS   23-21       UNUSED.                                             COMPASS     1488          I
          -CMP19    -CMP042 
 COMPASS  *         BITS   20-09       PAGE NUMBER.                                        COMPASS     1489          I
          -CMP19    -CMP042 
 COMPASS  *         BITS   08-00       LINE NUMBER.                                        COMPASS     1490          I
          -CMP19    -CMP042 
 COMPASS  *         BITS   41-25       LOCATION COUNTER.                                   CMP19         13          I
          -CMP042 
 COMPASS  *         BITS   24-13       PAGE NUMBER.                                        CMP19         14          I
          -CMP042 
 COMPASS  *         BITS   12-06       LINE NUMBER.                                        CMP19         15          I
          -CMP042 
 COMPASS  *         BITS   05-00       USAGE LETTER.                                       CMP19         16          I
          -CMP042 
 COMPASS                                                                                   COMPASS     1491          I
          -CMP042 
 COMPASS                                                                                   COMPASS     1492          I
          -CMP042 
 COMPASS   REFTAB   TABLE  MICTAB      SYMBOLIC REFERENCE TABLE                            COMPASS     1493          I
          -CMP042 
 COMPASS   NRTAB    SPACE  4                                                               COMPASS     1494          I
          -CMP19  
 COMPASS  **        NRTAB - NO REFERENCE TABLE.                                            COMPASS     1495          I
          -CMP19  
 COMPASS  *         CONTAINS SYMBOLS TO BE EXCLUDED FROM THE CROSS-REFERENCE               COMPASS     1496          I
          -CMP19  
 COMPASS  *         TABLE.                                                                 COMPASS     1497          I
          -CMP19  
 COMPASS  *                                                                                COMPASS     1498          I
          -CMP19  
 COMPASS  *         ENTRY = 1 WORD.                                                        COMPASS     1499          I
          -CMP19  
 COMPASS  *                                                                                COMPASS     1500          I
          -CMP19  
 COMPASS  *         BITS   59-48       SYMBOL QUALIFIER INDEX.                             COMPASS     1501          I
          -CMP19  
 COMPASS  *         BITS   47-00       SYMBOL RIGHT JUSTIFIED WITH ZERO FILL.              COMPASS     1502          I
          -CMP19  
 COMPASS                                                                                   COMPASS     1503          I
          -CMP19  
 COMPASS                                                                                   COMPASS     1504          I
          -CMP19  
 COMPASS   NRTAB    TABLE  LASTAB      NO REFERENCE TABLE                                  COMPASS     1505          I
          -CMP19  
 COMPASS   TABLE    SPACE  4                                                               COMPASS     1506     A     
 COMPASS  **        TABLE LENGTHS.                                                         COMPASS     1507     A     
 COMPASS                                                                                   COMPASS     1508     A     
 COMPASS                                                                                   COMPASS     1509     A     
 COMPASS            LIST   G                                                               COMPASS     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/28. 19.11.32.      PAGE 284    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SIZES    BSS    0                                                               COMPASS     1511     A     
 COMPASS            HERE                                                                   COMPASS     1512     A     
 COMPASS            LIST   *                                                               COMPASS     1513     A     
 COMPASS   PASS1    SPACE  4                                                               COMPASS     1514          I
          -CMP30  
 COMPASS   STACKS   TITLE  PUSH-DOWN STACKS.                                               CMP30       1293     A     
 COMPASS  **        A STACK AREA BEGINS WITH A CONTROL WORD OF THE FORM                    CMP30       1294     A     
 COMPASS  *                      VFD   18/VAL,6/UBW,6/BPE,6/POS,6/WDN,18/AVL               CMP30       1295     A     
 COMPASS  *                (VAL) = VALUE RETURNED FROM POPPING AN EMPTY STACK,             CMP30       1296     A     
 COMPASS  *                            MUST BE NON-NEGATIVE AND LESS THAN 2**17.           CMP30       1297     A     
 COMPASS  *                (UBW) = NUMBER OF UNUSED BITS AT TOP OF EACH WORD.              CMP30       1298     A     
 COMPASS  *                (BPE) = NUMBER OF BITS PER ENTRY.                               CMP30       1299     A     
 COMPASS  *                (POS) = CURRENT BIT POSITION  )  POINT TO TOP OF STACK,         CMP30       1300     A     
 COMPASS  *                (WDN) = CURRENT WORD NUMBER   )  INITIALLY ZEROS.               CMP30       1301     A     
 COMPASS  *                (AVL) = NUMBER OF AVAILABLE ENTRIES, INITIALLY = (MAX).         CMP30       1302     A     
 COMPASS  *         FOLLOWED BY AS MANY WORDS AS NECESSARY TO HOLD (MAX) ENTRIES.          CMP30       1303     A     
 COMPASS  *         WHEN STACK OVERFLOWS, BOTTOM-MOST ENTRY IS DISCARDED.                  CMP30       1304     A     
 COMPASS   BASESTK  SPACE  4                                                               CMP30       1305     A     
 COMPASS  **        BASESTK - PUSH-DOWN STACK FOR *BASE* PSEUDO INSTRUCTIONS.              CMP30       1306     A     
 COMPASS  *         ENTRY VALUES -  0 = D,  1 = O,  2 = M.                                 CMP30       1307     A     
 COMPASS                                                                                   CMP30       1308     A     
 COMPASS                                                                                   CMP30       1309     A     
 COMPASS   BASESTK  STACK  2,MSTACK,0                                                      CMP30       1310     A     
 COMPASS   CODESTK  SPACE  4                                                               CMP30       1311     A     
 COMPASS  **        CODESTK - PUSH-DOWN STACK FOR *CODE* PSEUDO INSTRUCTIONS.              CMP30       1312     A     
 COMPASS  *         ENTRY VALUES -  0 = D,  1 = E,  2 = I,  3 = A.                         CMP30       1313          I
          -CPS011 
 COMPASS  *         ENTRY VALUES -  0 = D,  1 = E,  2 = I,  3 = A,  4 = O.                 CPS011         1     A     
 COMPASS                                                                                   CMP30       1314     A     
 COMPASS                                                                                   CMP30       1315     A     
 COMPASS   CODESTK  STACK  2,MSTACK,0                                                      CMP30       1316          I
          -CPS011 
 COMPASS   CODESTK  STACK  3,MSTACK,0                                                      CPS011         2     A     
 COMPASS   LISTSTK  SPACE  4                                                               CMP30       1317     A     
 COMPASS  **        LISTSTK - PUSH-DOWN STACK FOR *LIST* PSEUDO INSTRUCTIONS.              CMP30       1318     A     
 COMPASS  *         ENTRY VALUE = A FIELD LONG ENOUGH TO HOLD ONE BIT FOR                  CMP30       1319     A     
 COMPASS  *         EACH LIST OPTION -  0 = OFF,  1 = ON.                                  CMP30       1320     A     
 COMPASS                                                                                   CMP30       1321     A     
 COMPASS                                                                                   CMP30       1322     A     
 COMPASS   LISTSTK  STACK  NLISTOPS,MSTACK,LIST.                                           CMP30       1323     A     
 COMPASS   QUALSTK  SPACE  4                                                               CMP30       1324     A     
 COMPASS  **        QUALSTK - PUSH-DOWN STACK FOR *QUAL* PSEUDO INSTRUCTIONS.              CMP30       1325     A     
 COMPASS  *         ENTRY VALUE = QUALIFIER INDEX.                                         CMP30       1326     A     
 COMPASS                                                                                   CMP30       1327     A     
 COMPASS                                                                                   CMP30       1328     A     
 COMPASS   QUALSTK  STACK  9,MSTACK,0                                                      CMP30       1329     A     
 COMPASS   USESTK   SPACE  4                                                               CMP30       1330     A     
 COMPASS  **        USESTK - PUSH-DOWN STACK FOR *USE* AND *USELCM* PSEUDOS.               CMP30       1331     A     
 COMPASS  *         ENTRY VALUE = BLOCK NUMBER.                                            CMP30       1332     A     
 COMPASS                                                                                   CMP30       1333     A     
 COMPASS                                                                                   CMP30       1334     A     
 COMPASS   USESTK   STACK  8,MSTACK,0                                                      CMP30       1335     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 285    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   STACKPTR SPACE  4                                                               CMP30       1336     A     
 COMPASS  **        STACK POINTERS USED BY *CPS*.                                          CMP30       1337     A     
 COMPASS                                                                                   CMP30       1338     A     
 COMPASS                                                                                   CMP30       1339     A     
 COMPASS   STACKPTR BSS    0                                                               CMP30       1340     A     
 COMPASS   STACKPTR HERE                                                                   CMP30       1341     A     
 COMPASS            DATA   0                                                               CMP30       1342     A     
 COMPASS   PASS1    TITLE  TEMPORARY STORAGE.                                              CMP30       1343     A     
 COMPASS  **        PASS 1 TEMPORARY STORAGE.                                              COMPASS     1515          I
          -CPSA097
 COMPASS                                                                                   COMPASS     1516     A     
 COMPASS                                                                                   COMPASS     1517     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     1518     A     
 COMPASS   IFCNT    DATA   0           IF SKIPPING COUNTER                                 COMPASS     1519     A     
 COMPASS   IFNAME   DATA   0           IF SKIPPINB BRACKET NAME                            COMPASS     1520     A     
 COMPASS   XLEV     DATA   0           XTEXT AND CTEXT/ENDX NESTING LEVEL         P036   8 CMP036         1     A     
 COMPASS                                                                                   COMPASS     1521     A     
 COMPASS  *         THE FOLLOWING P1TEMPX CELLS MUST BE IN ORDER.                          COMPASS     1522     A     
 COMPASS                                                                                   COMPASS     1523     A     
 COMPASS   P1TEMP   DATA   0           GENERAL TEMPORARY                                   COMPASS     1524     A     
 COMPASS   P1TEMPA  DATA   0           GENERAL TEMPORARY                                   COMPASS     1525     A     
 COMPASS   P1TEMPB  DATA   0           GENERAL TEMPORARY                                   COMPASS     1526     A     
 COMPASS   P1TEMPC  DATA   0           GENERAL TEMPORARY                                   COMPASS     1527     A     
 COMPASS   P1TEMPD  DATA   0           GENERAL TEMPORARY                                   COMPASS     1528     A     
 COMPASS   P1TEMPE  DATA   0           GENERAL TEMPORARY                                   COMPASS     1529     A     
 COMPASS   PASS2    SPACE  4                                                               COMPASS     1530     A     
 COMPASS  **        PASS 2 TEMPORARY STORAGE.                                              COMPASS     1531          I
          -CPSA097
 COMPASS                                                                                   COMPASS     1532     A     
 COMPASS                                                                                   COMPASS     1533     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     1534     A     
 COMPASS   CLP2     BSS    0                                                               COMPASS     1535     A     
 COMPASS   CTYPE    DATA   0           CONTROL CARD TYPE FLAG                              COMPASS     1536     A     
 COMPASS   MAXORG   DATA   0           UPPER LIMIT FOR BINARY OUTPUT                       COMPASS     1537     A     
 COMPASS   MINORG   DATA   0           LOWER LIMIT FOR BINARY OUTPUT                       COMPASS     1538     A     
 COMPASS   ORGBASE  DATA   0           ORIGIN OF CURRENT OVERLAY                           COMPASS     1539     A     
 COMPASS   SEGEPT   DATA   0           SEGMENT ENTRY POINT FOR ABS-CP CODE                 COMPASS     1540     A     
 COMPASS   BINWORD  DATA   0           PARTIAL BINARY WORD                                 COMPASS     1541     A     
 COMPASS   BINREL   DATA   0           PARTIAL BINARY RELOCATION                           COMPASS     1542          I
          -CMP30  
 COMPASS   BINREL   BSSZ   3           PARTIAL BINARY RELOCATION                           CMP30       1344     A     
 COMPASS   DKNAM    DATA   0           CURRENT DECK NAME                                   COMPASS     1543     A     
 COMPASS   DKCNT    DATA   0           DECK COUNT FOR ERASING BINARY OUTPUT                COMPASS     1544     A     
 COMPASS   LPCNT    DATA   0           LINE COUNT FOR THIS PAGE                            COMPASS     1545     A     
 COMPASS   LPCX     DATA   0           LINE COUNT -- PRINTED LINES ONLY                    CPSA186        6     A     
 COMPASS   PGCX     DATA   0           PAGE COUNT -- FOR CORRECT CROSS REFERENCING         CPSA186        7     A     
 COMPASS   DETFLG   DATA   0           DETAIL LINE FLAG                                    COMPASS     1546     A     
 COMPASS   LXRF     DATA   0           PERMANENT REFERENCE SUPPRESSION                     CPS010        20     A     
 COMPASS   SUPREF   DATA   0           TEMPORARY REFERENCE SUPPRESSION                     COMPASS     1547     A     
 COMPASS   SUBTIT   DATA   1H          TEXT OF SUBTITLE                                    COMPASS     1548     A     
 COMPASS   SUBTITL  EQU    6                                                               COMPASS     1549     A     
 COMPASS            BSS    SUBTITL                                                         COMPASS     1550     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 286    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SBNAME   DATA   1H          SUBROUTINE NAME LEFT ADJUSTED                       COMPASS     1551     A     
 COMPASS   UNAME    DATA   1H          USE BLOCK NAME                                      COMPASS     1552     A     
 COMPASS   QNAME    DATA   1H          QUALIFIER NAME                                      COMPASS     1553     A     
 COMPASS   SUBL     EQU    *-SUBTIT                                                        COMPASS     1554     A     
 COMPASS   SUBNAME  DATA   0           SUBROUTINE NAME                                     COMPASS     1555     A     
 COMPASS   OCTAL    BSS    40          COLUMNS 1-40 OF PRINT LINE                          COMPASS     1556     A     
 COMPASS   LINE     BSS    9*NCARDS    PRINT LINE                                          COMPASS     1557     A     
 COMPASS   BINREC   BSS    18          BINARY CARD IMAGE                                   COMPASS     1558     A     
 COMPASS   OPVAL    DATA   0           OPERATION CODE VALUE                                COMPASS     1559     A     
 COMPASS   ORGBSSZ  BSSZ   2           ORIGIN OF LAST BSSZ                                 COMPASS     1560     A     
 COMPASS   CNTBSSZ  DATA   0           COUNT OF ABOVE                                      COMPASS     1561     A     
 COMPASS   LOSTREF  DATA   0           COUNT OF LOST REFERENCES                            COMPASS     1562     A     
 COMPASS   REFIO    DATA   0           CROSS REFERENCE OVERFLOW FLAG                       COMPASS     1563     A     
 COMPASS   REFLET   DATA   0           CROSS REFERENCE USAGE LETTER                        COMPASS     1564     A     
 COMPASS   LCCT     DATA   0           LISTING CARD COUNT                                  COMPASS     1565     A     
 COMPASS   FLIST    DATA   0           FORCED LISTING FLAG (C.F. LISTERF)                  COMPASS     1566     A     
 COMPASS   NLFLG    DATA   0           NO LIST FLAG                                        COMPASS     1567     A     
 COMPASS   DLFLG    DATA   0           DEFERRED LIST FLAG                                  COMPASS     1568     A     
 COMPASS   PLFLG    DATA   0           PRINT LINE READY FLAG                               COMPASS     1569     A     
 COMPASS   ELCNT    DATA   0           ERROR LINE COUNT                                    COMPASS     1570     A     
 COMPASS   EPCNT    DATA   0           ERROR PAGE COUNT                                    COMPASS     1571          I
          -CPSA142
 COMPASS   RIFA     DATA   0           INTERMEDIATE HEADER WORD                            COMPASS     1572     A     
 COMPASS   LCLP2    EQU    *-CLP2                                                          COMPASS     1573     A     
 COMPASS   LLINE    VFD    60/LINE+9*NCARDS LAST PRINT LINE USED                           COMPASS     1574     A     
 COMPASS                                                                                   COMPASS     1575     A     
 COMPASS   P2TEMP   DATA   0           PASS 2 GENERAL TEMPORARY                            COMPASS     1576     A     
 COMPASS   P2TEMPA  DATA   0           PASS 2 GENERAL TEMPORARY                            COMPASS     1577     A     
 COMPASS   P2TEMPB  DATA   0           PASS 2 GENERAL TEMPORARY                            COMPASS     1578     A     
 COMPASS   P2TEMPC  DATA   0           PASS 2 GENERAL TEMPORARY                            COMPASS     1579     A     
 COMPASS            SPACE  4                                                               COMPASS     1580     A     
 COMPASS  *         LETTER EQUIVALENTS OF ERROR FLAGS (MUST PARALLEL ERFLAGS)              COMPASS     1581     A     
 COMPASS                                                                                   COMPASS     1582     A     
 COMPASS   ERRLETS  BSS    0                                                               COMPASS     1583     A     
 COMPASS   ERRLETS  HERE                                                                   COMPASS     1584     A     
 COMPASS                                                                                   COMPASS     1585     A     
 COMPASS  *         DIRECTORY FOR ERROR FLAG COMMENTARY                                    COMPASS     1586     A     
 COMPASS                                                                                   COMPASS     1587     A     
 COMPASS   ERDIR    BSS    0                                                               COMPASS     1588     A     
 COMPASS   ERDIR    HERE                                                                   COMPASS     1589     A     
 COMPASS            QUAL                                                                   COMPASS     1590     A     
 COMPASS   COMPASS  TITLE  COMPASS MAIN BATCH CONTROL.                                     COMPASS     1591     A     
 COMPASS  **        COMPASS - MAIN CONTROL.                                                COMPASS     1592          I
          -CMP30  
 COMPASS  *         ENTRY  (A0) = FIELD LENGTH.                                            CMP20         35          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1593          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1594          I
          -CMP30  
 COMPASS   COMPASS  SB1    1           (B1) = CONSTANT 1                                   COMPASS     1595          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 287    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     PASS0       INITIALIZE COMPASS                                  COMPASS     1596          I
          -CMP30  
 COMPASS   COMPASS4 EQ     /PASS1/PASS1 EXECUTE PASS1                                      COMPASS     1597          I
          -CMP30  
 COMPASS   EXITP1   EQ     /PASS2/PASS2 EXECUTE PASS2                                      COMPASS     1598          I
          -CMP30  
 COMPASS   EXITP2   RJ     TFE         TEST FOR END                                        COMPASS     1599          I
          -CMP30  
 COMPASS            EQ     COMPASS4    CONTINUE                                            COMPASS     1600          I
          -CMP30  
 COMPASS   TFE      SPACE  4                                                               COMPASS     1601          I
          -CMP30  
 COMPASS  **        TFE - TEST FOR END.                                                    COMPASS     1602          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1603          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1604          I
          -CMP30  
 COMPASS   TFE      PS                 RETURN EXIT                                         COMPASS     1605          I
          -CMP30  
 COMPASS            RJ     ATS         ACCUMULATE TOTAL STORAGE USED                       CMP042        35          I
          -CMP30  
 COMPASS            SA1    ERCNT       PROPAGATE ERROR COUNT                               COMPASS     1606          I
          -CMP30  
 COMPASS            SA2    ERRFLG                                                          COMPASS     1607          I
          -CMP30  
 COMPASS            IX6    X1+X2                                                           COMPASS     1608          I
          -CMP30  
 COMPASS            SA6    A2                                                              COMPASS     1609          I
          -CMP30  
 COMPASS            SA1    EOFINP      CHECK FOR EOR ON INPUT                              COMPASS     1610          I
          -CMP30  
 COMPASS            SA2    BATCH                                                           COMPASS     1611          I
          -CMP30  
 COMPASS            SA3    INBUF+1                                                         COMPASS     1612          I
          -CMP30  
 COMPASS            SA4    =6LIDENT                                                        COMPASS     1613          I
          -CMP30  
 COMPASS            NZ     X1,TFE2     IF EOR HAS BEEN FOUND                               COMPASS     1614          I
          -CMP30  
 COMPASS            NG     X2,TFE1     IF NOT COMPASS ONLY                                 COMPASS     1615          I
          -CMP30  
 COMPASS            SA2    LISTFG                                                          COMPASS     1616          I
          -CMP30  
 COMPASS            NZ     X2,TFE      IF LIST ON                                          COMPASS     1617          I
          -CMP30  
 COMPASS            SA2    =10H-                                                           COMPASS     1618          I
          -CMP30  
 COMPASS            BX6    X2          SET DOUBLE SPACE                                    COMPASS     1619          I
          -CMP30  
 COMPASS            SA6    TITBUF                                                          COMPASS     1620          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 288    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     TFE         RETURN                                              COMPASS     1621          I
          -CMP30  
 COMPASS   TFE1     MX0    36                                                              COMPASS     1622          I
          -CMP30  
 COMPASS            BX1    X3*X0       CHECK NEXT CARD FOR IDENT                           COMPASS     1623          I
          -CMP30  
 COMPASS            IX2    X1-X4                                                           COMPASS     1624          I
          -CMP30  
 COMPASS            ZR     X2,TFE      IF IT IS IDENT, CONTINUE ASSEMBLY                   COMPASS     1625          I
          -CMP30  
 COMPASS            EQ     TFE3        ELSE EXIT TO CONTINUE COMPILATION                   COMPASS     1626          I
          -CMP30  
 COMPASS   TFE2     MX6    0           SIGNAL EOR ON INPUT                                 COMPASS     1627          I
          -CMP30  
 COMPASS            SA6    INBUF       BY CLEARING FIRST WORD OF INBUF                     COMPASS     1628          I
          -CMP30  
 COMPASS   TFE3     SA1    S+1         CHECK FILE TYPE                                     COMPASS     1629          I
          -CMP30  
 COMPASS            PL     X1,TFE4     IF MASS STORAGE                                     COMPASS     1630          I
          -CMP30  
 COMPASS            REWIND S                                                               COMPASS     1631          I
          -CMP30  
 COMPASS            EQ     TFE5                                                            COMPASS     1632          I
          -CMP30  
 COMPASS   TFE4     EVICT  S           RETURN SCRATCH                                      COMPASS     1633          I
          -CMP30  
 COMPASS   TFE5     RECALL S                                                               COMPASS     1634          I
          -CMP30  
 COMPASS            SA2    SYSNAME                                                         CMP27          3          I
          -CMP30  
 COMPASS            SA1    B                                                               COMPASS     1635          I
          -CMP30  
 COMPASS            BX6    X2          RESTORE SYSTEXT NAME                                CMP27          4          I
          -CMP30  
 COMPASS            SA6    SYSTEXT     TO COMMUNICATION WORD                               CMP27          5          I
          -CMP30  
 COMPASS            ZR     X1,EXIT                                                         COMPASS     1636          I
          -CMP30  
 COMPASS            RECALL B                                                               COMPASS     1637          I
          -CMP30  
 COMPASS            EQ     EXIT                                                            COMPASS     1638          I
          -CMP30  
 COMPASS   SYSTEM   TITLE  SYSTEM COMMUNICATION ROUTINES.                                  CMP20         36     A     
 COMPASS            USE    SYSTEM                                                          CMP30       1345     A     
 COMPASS            SEG    SYSTEM COMMUNICATION SUBROUTINES.                               CMP30       1346     A     
 COMPASS                                                                                   CMP30       1347     A     
 COMPASS                                                                                   CMP30       1348     A     
 COMPASS            LIST   "LISTRM"X                                                       CMP30       1349          I
          -CPS028 
 COMPASS            LIST   "LISTRM"X,-F                                           S028 291 CPS028       205     A     
 COMPASS                                                                                   CMP30       1350     A     
 COMPASS                                                                                   CMP30       1351     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 289    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RM       IFNE   CP#RM,0                                                         CMP30       1352          I
          -CPS028 
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       1353          I
          -CPS028 
 COMPASS                                                                                   CMP30       1354          I
          -CPS028 
 COMPASS                                                                                   CMP30       1355          I
          -CPS028 
 COMPASS  **        RECORD MANAGER ROUTINES FOR WORD ADDRESSABLE I/O.                      CMP30       1356          I
          -CPS028 
 COMPASS                                                                                   CMP30       1357          I
          -CPS028 
 COMPASS                                                                                   CMP30       1358          I
          -CPS028 
 COMPASS   "#PLRM#" XTEXT  C6RMOPEW                                                        CMP30       1359          I
          -CPS028 
 COMPASS   "#PLRM#" XTEXT  C6RMCLSW                                                        CMP30       1360          I
          -CPS028 
 COMPASS   "#PLRM#" XTEXT  C6RMGETW                                                        CMP30       1361          I
          -CPS028 
 COMPASS   "#PLRM#" XTEXT  C6RMPUTW                                                        CMP30       1362          I
          -CPS028 
 COMPASS                                                                                   CMP30       1363          I
          -CPS028 
 COMPASS                                                                                   CMP30       1364          I
          -CPS028 
 COMPASS   RM       ENDIF                                                                  CMP30       1365          I
          -CPS028 
 COMPASS                                                                                   CMP30       1366          I
          -CPS028 
 COMPASS                                                                                   CMP30       1367          I
          -CPS028 
 COMPASS            IFC    GE, "MODEL" 75 ,1                                               CMP30       1368          I
          -CPS028 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1369          I
          -CPS028 
 COMPASS   RM       IFNE   CP#RM,7                                                S028 293 CPS028       206     A     
 COMPASS                                                                                   CMP30       1370     A     
 COMPASS                                                                                   CMP30       1371     A     
 COMPASS  **        COMCCIO - CENTRAL CALLS FOR INPUT/OUTPUT.                              CMP20         37     A     
 COMPASS  *         ENTRY  (X2) = FET ADDRESS.                                             CMP20         38     A     
 COMPASS  *                (B6) = FWA OF DATA AREA.                                        CMP20         39     A     
 COMPASS  *                (B7) = WORD COUNT OF DATA.                                      CMP20         40     A     
 COMPASS  *         EXIT   (X2) = FET ADDRESS.                                             CMP20         41     A     
 COMPASS                                                                                   CMP20         42     A     
 COMPASS                                                                                   CMP20         43     A     
 COMPASS  *CALL COMCCIO                                                                    CMP20         44     A     
 COMPASS  *CALL COMCOPE                                                                    CMP20         45          I
          -F4720  
 COMPASS                                                                                   CMP30       1372     A     
 COMPASS                                                                                   CMP30       1373     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       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/28. 19.11.32.      PAGE 290    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       1375     A     
 COMPASS                                                                                   CMP30       1376     A     
 COMPASS  *CALL COMCRDC                                                                    CMP20         46     A     
 COMPASS  *CALL COMCRDW                                                                    CMP20         47     A     
 COMPASS  *CALL COMCSYS                                                                    CMP20         48          I
          -CMP30  
 COMPASS  *CALL COMCWTH                                                                    CMP20         49     A     
 COMPASS  *CALL COMCWTW                                                                    CMP20         50     A     
 COMPASS  *CALL COMCSTF                                                                    CPSA266        6     A     
 COMPASS                                                                                   CMP30       1377     A     
 COMPASS                                                                                   CMP30       1378     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1379     A     
 COMPASS                                                                                   CMP30       1380     A     
 COMPASS  *CALL     COMCSTF                                                                CPSA265       38          I
          -CPSA266
 COMPASS                                                                                   CMP30       1381     A     
 COMPASS            LIST   *                                                               CMP30       1382     A     
 COMPASS                                                                                   CMP30       1383     A     
 COMPASS                                                                                   CMP30       1384     A     
 COMPASS            USE    UTILITY                                                         CMP30       1385     A     
 COMPASS            SEG    UTILITY SUBROUTINES.                                            CMP30       1386     A     
 COMPASS   DEBUG    TITLE  DEBUGGING FACILITIES.                                           CMP14         21     A     
 COMPASS  **        DEBUGGING FACILITIES.                                                  CMP14         22     A     
 COMPASS  *                                                                                CMP14         23     A     
 COMPASS  *         A PATCH/SNAP DEBUGGING FACILITY IS INCLUDED IN COMPASS                 CMP14         24     A     
 COMPASS  *         BY ASSEMBLING IT WITH DEBUG = 1.  DURING INITIALIZATION,               CMP14         25     A     
 COMPASS  *         THE FILE NAMED *PATCHES* IS REWOUND AND PATCH AND SNAP                 CMP14         26     A     
 COMPASS  *         DIRECTIVE CARDS ARE READ UNTIL END OF LOGICAL RECORD.                  CMP14         27     A     
 COMPASS  *         EACH CARD IS COPIED TO THE FILE NAMED *SNAPPER*.                       CMP14         28     A     
 COMPASS  *                                                                                CMP14         29     A     
 COMPASS  *         PATCH DIRECTIVES PROVIDE FOR CHANGING CODE IN COMPASS                  CMP14         30     A     
 COMPASS  *         WITHOUT REASSEMBLING.  A PATCH AREA IS PROVIDED STARTING               CMP14         31     A     
 COMPASS  *         AT ORGOVER.  PATCH DIRECTIVE FORMAT IS AS FOLLOWS.                     CMP14         32     A     
 COMPASS  *                                                                                CMP14         33     A     
 COMPASS  *                COLUMNS  1-6  - *PATCH                                          CMP14         34     A     
 COMPASS  *                COLUMNS  7-10 - BLANKS                                          CMP14         35     A     
 COMPASS  *                COLUMNS 11-80 - TWO OCTAL NUMBERS SEPARATED BY                  CMP14         36     A     
 COMPASS  *                                A COMMA (BLANKS ARE IGNORED).                   CMP14         37     A     
 COMPASS  *         THE FIRST NUMBER IS AN ADDRESS.  THE SECOND NUMBER IS THE              CMP14         38     A     
 COMPASS  *         VALUE TO BE STORED AT THAT ADDRESS.                                    CMP14         39     A     
 COMPASS  *                                                                                CMP14         40     A     
 COMPASS  *         EXAMPLE...     *PATCH    14106,51100 00173 73617 75001                 CMP14         41     A     
 COMPASS  *                                                                                CMP14         42     A     
 COMPASS  *         SNAP DIRECTIVES PROVIDE FOR DUMPING REGISTERS AND MEMORY               CMP14         43     A     
 COMPASS  *         AREAS DYNAMICALLY.  SNAPSHOTS ARE FORMATTED AND WRITTEN                CMP14         44     A     
 COMPASS  *         TO THE FILE NAMED *SNAPPER* DURING COMPASS EXECUTION.                  CMP14         45     A     
 COMPASS  *         AFTER ASSEMBLY, REWIND SNAPPER AND COPYCF TO A PRINT                   CMP14         46     A     
 COMPASS  *         FILE.  SNAP DIRECTIVE CARD FORMAT IS AS FOLLOWS.                       CMP14         47     A     
 COMPASS  *                                                                                CMP14         48     A     
 COMPASS  *                COLUMNS  1-5  - *SNAP                                           CMP14         49     A     
 COMPASS  *                COLUMNS  6-10 - BLANKS                                          CMP14         50     A     
 COMPASS  *                COLUMNS 11-80 - ONE OR MORE OCTAL NUMBERS SEPARATED             CMP14         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/28. 19.11.32.      PAGE 291    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                BY COMMAS (BLANKS ARE IGNORED).                 CMP14         52     A     
 COMPASS  *         THE FIRST NUMBER IS AN ADDRESS.  THE SNAPSHOT IS TAKEN                 CMP14         53     A     
 COMPASS  *         WHENEVER THE FIRST INSTRUCTION AT THAT ADDRESS IS ABOUT                CMP14         54     A     
 COMPASS  *         TO BE EXECUTED.  THE REMAINING NUMBERS (IF ANY) ARE PAIRS              CMP14         55     A     
 COMPASS  *         OF VALUES, EACH PAIR GIVING THE FIRST WORD ADDRESS AND                 CMP14         56     A     
 COMPASS  *         WORD COUNT OF A MEMORY AREA TO BE DUMPED.  AN ASTERISK                 CMP14         57     A     
 COMPASS  *         AFTER A NUMBER CAUSES INDIRECT ADDRESSING - THE VALUE IS               CMP14         58     A     
 COMPASS  *         TAKEN FROM BITS 17-0 OF THE SPECIFIED WORD AT SNAP TIME.               CMP14         59     A     
 COMPASS  *         A DOLLAR SIGN AFTER A NUMBER SPECIFIES ECS/LCM ADDRESSING.             CP096A        64     A     
 COMPASS  *         A TABLE NAME MAY BE USED IN PLACE OF A PAIR OF NUMBERS.       S028 295 CPS028       207     A     
 COMPASS  *                                                                                CMP14         60     A     
 COMPASS  *         EACH SNAPSHOT IS WRITTEN AS ONE LOGICAL RECORD CONTAINING              CMP14         61     A     
 COMPASS  *         A DUMP OF THE FIRST 72 CHARACTERS OF THE CARD AREA, A DUMP             CMP14         62     A     
 COMPASS  *         OF ALL REGISTERS, AND DUMPS OF THE SPECIFIED MEMORY AREAS.             CMP14         63     A     
 COMPASS  *         IN THE MEMORY DUMPS, ALL-ZERO LINES ARE OMITTED.                       CMP14         64     A     
 COMPASS  *                                                                                CMP14         65     A     
 COMPASS  *         EXAMPLE...     *SNAP     01774,216*,10                                 CMP14         66     A     
 COMPASS  *         WILL DUMP EIGHT WORDS STARTING AT THE ADDRESS IN THE WORD              CMP14         67     A     
 COMPASS  *         AT LOCATION 216B.                                                      CMP14         68     A     
 COMPASS  *                                                                                CMP14         69     A     
 COMPASS  *         SNAPPING SAVES AND RESTORES ALL REGISTERS EXCEPT B1.                   CMP14         70     A     
 COMPASS  *         IF B1 " 1, A JUMP OUT OF BOUNDS OCCURS.  OTHERWISE,                    CMP14         71     A     
 COMPASS  *         A 1 IS REGENERATED.                                                    CMP14         72     A     
 COMPASS   SNAPPER  SPACE  4                                                               CMP14         73          I
          -CMP26  
 COMPASS   DEBUG    SPACE  4,4                                                             CMP26         10     A     
 COMPASS  **        SNAPSHOT ROUTINES.                                                     CMP14         74     A     
 COMPASS  *                                                                                CMP14         75     A     
 COMPASS  *         ENTERED WHEN A SNAPSHOT LOCATION IS EXECUTED.                          CMP14         76     A     
 COMPASS                                                                                   CMP14         77     A     
 COMPASS                                                                                   CMP14         78     A     
 COMPASS   DEBUG    IFNE   DEBUG                                                           CMP14         79     A     
 COMPASS   QUAL$    SET    1                                                               CMP029        13          I
          -CMP30  
 COMPASS            QUAL   DEBUG                                                           CMP14         80     A     
 COMPASS                                                                                   CMP14         81     A     
 COMPASS   SNAPBUF  BSS    100         SNAP DESCRIPTORS                                    CMP14         82     A     
 COMPASS   SNAPPTR  BSS    1           ADDRESS OF CURRENT DESCRIPTOR WORD                  CMP14         83     A     
 COMPASS                                                                                   CMP14         84     A     
 COMPASS   SNTEMP   BSS    1           TEMPORARY STORAGE                                   CMP14         85     A     
 COMPASS                                                                                   CMP14         86     A     
 COMPASS   SNLINE   BSS    14          PRINT LINE IMAGE                                    CMP14         87     A     
 COMPASS                                                                                   CMP14         88     A     
 COMPASS   SNX      BSS    8           X REGISTERS                                         CMP14         89     A     
 COMPASS   SNB      DATA   0           B REGISTERS                                         CMP14         90     A     
 COMPASS            DATA   1                                                               CMP14         91     A     
 COMPASS            BSS    6                                                               CMP14         92     A     
 COMPASS   SNA      BSS    8           A REGISTERS                                         CMP14         93     A     
 COMPASS   SNP      BSS    1           P REGISTER (LOC OF WORD CONTAINING RJ)              CMP14         94     A     
 COMPASS                                                                                   CMP14         95     A     
 COMPASS   SNINST   BSS    1           REPLACED INSTRUCTION WORD                           CMP14         96     A     
 COMPASS                                                                                   CMP14         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/28. 19.11.32.      PAGE 292    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SNAPPER  PS                 RETURN EXIT                                         CMP14         98     A     
 COMPASS            NG     B1,-5       OUT OF BOUNDS IF B1 " 1                             CMP14         99     A     
 COMPASS            SB1    B1-1                                                            CMP14        100     A     
 COMPASS            ZR     B1,SNAPPER1                                                     CMP14        101     A     
 COMPASS            SB1    B1+1                                                            CMP14        102     A     
 COMPASS            EQ     -5                                                              CMP14        103     A     
 COMPASS   SNAPPER1 SB1    A6          SAVE REGISTERS                                      CMP14        104     A     
 COMPASS            SA6    SNX+6                                                           CMP14        105     A     
 COMPASS            SX6    B1                                                              CMP14        106     A     
 COMPASS            SA6    SNA+6                                                           CMP14        107     A     
 COMPASS            SB1    1                                                               CMP14        108     A     
 COMPASS            SX6    A7                                                              CMP14        109     A     
 COMPASS            SA6    A6+B1                                                           CMP14        110     A     
 COMPASS            BX6    X7                                                              CMP14        111     A     
 COMPASS            SA6    SNX+7                                                           CMP14        112     A     
 COMPASS            BX6    X0                                                              CMP14        113     A     
 COMPASS            LX7    X1                                                              CMP14        114     A     
 COMPASS            SA6    SNX                                                             CMP14        115     A     
 COMPASS            SA7    A6+B1                                                           CMP14        116     A     
 COMPASS            BX6    X2                                                              CMP14        117     A     
 COMPASS            LX7    X3                                                              CMP14        118     A     
 COMPASS            SA6    A7+B1                                                           CMP14        119     A     
 COMPASS            SA7    A6+B1                                                           CMP14        120     A     
 COMPASS            BX6    X4                                                              CMP14        121     A     
 COMPASS            LX7    X5                                                              CMP14        122     A     
 COMPASS            SA6    A7+B1                                                           CMP14        123     A     
 COMPASS            SA7    A6+B1                                                           CMP14        124     A     
 COMPASS            SX6    A0-B0                                                           CMP14        125     A     
 COMPASS            SX7    A1                                                              CMP14        126     A     
 COMPASS            SA6    SNA                                                             CMP14        127     A     
 COMPASS            SA7    A6+B1                                                           CMP14        128     A     
 COMPASS            SX6    A2                                                              CMP14        129     A     
 COMPASS            SX7    A3                                                              CMP14        130     A     
 COMPASS            SA6    A7+B1                                                           CMP14        131     A     
 COMPASS            SA7    A6+B1                                                           CMP14        132     A     
 COMPASS            SX6    A4                                                              CMP14        133     A     
 COMPASS            SX7    A5                                                              CMP14        134     A     
 COMPASS            SA6    A7+B1                                                           CMP14        135     A     
 COMPASS            SA7    A6+B1                                                           CMP14        136     A     
 COMPASS            SX7    B2-B0                                                           CMP14        137     A     
 COMPASS            SA7    SNB+2                                                           CMP14        138     A     
 COMPASS            SX6    B3-B0                                                           CMP14        139     A     
 COMPASS            SX7    B4-B0                                                           CMP14        140     A     
 COMPASS            SA6    A7+B1                                                           CMP14        141     A     
 COMPASS            SA7    A6+B1                                                           CMP14        142     A     
 COMPASS            SX6    B5-B0                                                           CMP14        143     A     
 COMPASS            SX7    B6-B0                                                           CMP14        144     A     
 COMPASS            SA6    A7+B1                                                           CMP14        145     A     
 COMPASS            SA7    A6+B1                                                           CMP14        146     A     
 COMPASS            SX6    B7-B0                                                           CMP14        147     A     
 COMPASS            SA6    A7+B1                                                           CMP14        148     A     
 COMPASS            SA1    SNAPPER                                                         CMP14        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/28. 19.11.32.      PAGE 293    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX1    30                                                              CMP14        150     A     
 COMPASS            SX7    X1-1                                                            CMP14        151     A     
 COMPASS            SA7    SNP                                                             CMP14        152     A     
 COMPASS            SB7    B0          PREPARE SNAP LINES                                  CMP14        153     A     
 COMPASS            MX0    0                                                               CMP14        154     A     
 COMPASS            SA0    B0                                                              CMP14        155     A     
 COMPASS            SX5    1R0         DOUBLE SPACE BETWEEN RANGES                         CMP14        156     A     
 COMPASS            RJ     SNSCH                                                           CMP14        157     A     
 COMPASS            RJ     SNWLIN                                                          CMP14        158     A     
 COMPASS            SX5    1R                                                              CMP14        159     A     
 COMPASS            RJ     SNSCH                                                           CMP14        160     A     
 COMPASS            SA5    STYPE       PRINT STYPE                                         CMP14        161     A     
 COMPASS            RJ     SNSCH                                                           CMP14        162     A     
 COMPASS            SA1    =8H CARD =                                                      CMP14        163     A     
 COMPASS            SB5    8                                                               CMP14        164     A     
 COMPASS            RJ     SCHAR                                                           CMP14        165     A     
 COMPASS            SB5    -72                                                             CMP14        166     A     
 COMPASS   SNAP1    SA5    CARD+72+B5  PRINT FIRST 72 CHARACTERS OF CARD                   CMP14        167     A     
 COMPASS            RJ     SNSCH                                                           CMP14        168     A     
 COMPASS            SB5    B5+B1                                                           CMP14        169     A     
 COMPASS            MI     B5,SNAP1                                                        CMP14        170     A     
 COMPASS            RJ     SNWLIN                                                          CMP14        171     A     
 COMPASS            SA1    =5H0P =     PRINT P                                             CMP14        172     A     
 COMPASS            SB5    5                                                               CMP14        173     A     
 COMPASS            RJ     SCHAR                                                           CMP14        174     A     
 COMPASS            SA1    SNP                                                             CMP14        175     A     
 COMPASS            LX1    42                                                              CMP14        176     A     
 COMPASS            SB5    6                                                               CMP14        177     A     
 COMPASS            RJ     SNUMB                                                           CMP14        178     A     
 COMPASS            SB4    -6          PRINT B2 THRU B7                                    CMP14        179     A     
 COMPASS   SNAP2    SA1    =9H    B8 =                                                     CMP14        180     A     
 COMPASS            SX5    B4                                                              CMP14        181     A     
 COMPASS            SB5    9                                                               CMP14        182     A     
 COMPASS            LX5    24                                                              CMP14        183     A     
 COMPASS            IX1    X1+X5                                                           CMP14        184     A     
 COMPASS            RJ     SCHAR                                                           CMP14        185     A     
 COMPASS            SA1    SNB+8+B4                                                        CMP14        186     A     
 COMPASS            SB5    6                                                               CMP14        187     A     
 COMPASS            SB4    B4+B1                                                           CMP14        188     A     
 COMPASS            LX1    42                                                              CMP14        189     A     
 COMPASS            RJ     SNUMB                                                           CMP14        190     A     
 COMPASS            MI     B4,SNAP2                                                        CMP14        191     A     
 COMPASS            RJ     SNWLIN                                                          CMP14        192     A     
 COMPASS            SB4    -8          PRINT X, A, (A)                                     CMP14        193     A     
 COMPASS            SA1    =6H0X0 =                                                        CMP14        194     A     
 COMPASS   SNAP3    SB5    6                                                               CMP14        195     A     
 COMPASS            RJ     SCHAR                                                           CMP14        196     A     
 COMPASS            SA1    SNX+8+B4    PRINT X IN OCTAL                                    CMP14        197     A     
 COMPASS            SB5    20                                                              CMP14        198     A     
 COMPASS            RJ     SNUMB                                                           CMP14        199     A     
 COMPASS            SA1    =3H         PRINT 3 BLANKS                                      CMP14        200     A     
 COMPASS            SB5    3                                                               CMP14        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/28. 19.11.32.      PAGE 294    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     SCHAR                                                           CMP14        202     A     
 COMPASS            SA1    SNX+8+B4    PRINT X IN DISPLAY CODE                             CMP14        203     A     
 COMPASS            SB5    10                                                              CMP14        204     A     
 COMPASS            RJ     SCHAR                                                           CMP14        205     A     
 COMPASS            SA1    =10H      A8 =                                                  CMP14        206     A     
 COMPASS            SX5    B4                                                              CMP14        207     A     
 COMPASS            LX5    12                                                              CMP14        208     A     
 COMPASS            SB5    11                                                              CMP14        209     A     
 COMPASS            IX1    X1+X5                                                           CMP14        210     A     
 COMPASS            RJ     SCHAR                                                           CMP14        211     A     
 COMPASS            SA1    SNA+8+B4    PRINT A IN OCTAL                                    CMP14        212     A     
 COMPASS            SB5    6                                                               CMP14        213     A     
 COMPASS            LX1    42                                                              CMP14        214     A     
 COMPASS            RJ     SNUMB                                                           CMP14        215     A     
 COMPASS            SX2    B4+8                                                            CMP14        216     A     
 COMPASS            ZR     X2,SNAP5    AVOID (A0)                                          CMP14        217     A     
 COMPASS            SA1    =8H     (A0                                                     CMP14        218     A     
 COMPASS            SB5    8                                                               CMP14        219     A     
 COMPASS            LX2    12                                                              CMP14        220     A     
 COMPASS            IX1    X1+X2                                                           CMP14        221     A     
 COMPASS            RJ     SCHAR                                                           CMP14        222     A     
 COMPASS            SA1    =4H) =                                                          CMP14        223     A     
 COMPASS            SB5    4                                                               CMP14        224     A     
 COMPASS            RJ     SCHAR                                                           CMP14        225     A     
 COMPASS            SA1    SNA+8+B4    PRINT (A) IN OCTAL                                  CMP14        226     A     
 COMPASS            SB5    20                                                              CMP14        227     A     
 COMPASS            SA1    X1                                                              CMP14        228     A     
 COMPASS            RJ     SNUMB                                                           CMP14        229     A     
 COMPASS            SA1    =3H         PRINT 3 BLANKS                                      CMP14        230     A     
 COMPASS            SB5    3                                                               CMP14        231     A     
 COMPASS            RJ     SCHAR                                                           CMP14        232     A     
 COMPASS            SA1    SNA+8+B4    PRINT (A) IN DISPLAY CODE                           CMP14        233     A     
 COMPASS            SB5    10                                                              CMP14        234     A     
 COMPASS            SA1    X1                                                              CMP14        235     A     
 COMPASS            RJ     SCHAR                                                           CMP14        236     A     
 COMPASS   SNAP5    SX6    B4+B1                                                           CMP14        237     A     
 COMPASS            SA6    SNTEMP                                                          CMP14        238     A     
 COMPASS            RJ     SNWLIN                                                          CMP14        239     A     
 COMPASS            SA5    SNTEMP                                                          CMP14        240     A     
 COMPASS            SA1    =6H X8 =                                                        CMP14        241     A     
 COMPASS            SB4    X5                                                              CMP14        242     A     
 COMPASS            LX5    42                                                              CMP14        243     A     
 COMPASS            IX1    X1+X5                                                           CMP14        244     A     
 COMPASS            MI     B4,SNAP3                                                        CMP14        245     A     
 COMPASS            SA1    SNP         START PROCESSING SNAP DESCRIPTORS                   CMP14        246     A     
 COMPASS            SA1    X1                                                              CMP14        247     A     
 COMPASS            SA1    SNAPBUF+X1                                                      CMP14        248     A     
 COMPASS            SX7    A1                                                              CMP14        249     A     
 COMPASS            BX6    X1                                                              CMP14        250     A     
 COMPASS            SA6    SNINST      STORE REPLACED INSTRUCTION WORD                     CMP14        251     A     
 COMPASS   SNAP6    SA1    X7+B1       SNAP DESCRIPTION                                    CMP14        252     A     
 COMPASS            SX7    A1                                                              CMP14        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/28. 19.11.32.      PAGE 295    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX1    30                                                              CMP14        254     A     
 COMPASS            SB6    X1          FWA OF SNAP                                         CMP14        255     A     
 COMPASS            PL     B6,SNAP7                                                        CMP14        256     A     
 COMPASS            SA2    B6-400000B                                                      CMP14        257     A     
 COMPASS            SB6    X2                                                              CMP14        258     A     
 COMPASS   SNAP7    LX1    30                                                              CMP14        259     A     
 COMPASS            SB2    X1          WORD COUNT                                          CMP14        260     A     
 COMPASS            PL     B2,SNAP7A                                                       CMP14        261     A     
 COMPASS            SA2    B2-400000B                                                      CMP14        262     A     
 COMPASS            SB2    X2                                                              CMP14        263     A     
 COMPASS   SNAP7A   ZR     B2,SNAP12   IF WORD COUNT IS ZERO                               CMP14        264     A     
 COMPASS            SX5    1R0                                                             CMP14        265     A     
 COMPASS            SB4    4                                                               CMP14        266     A     
 COMPASS            SB3    B0                                                              CMP14        267     A     
 COMPASS            SA7    SNAPPTR                                                         CMP14        268     A     
 COMPASS            LX1    59-48                                                           CP096A        65     A     
 COMPASS            SX7    B0                                                              CP096A        66     A     
 COMPASS            PL     X1,SNAP8    IF NOT ECS/LCM                                      CP096A        67     A     
 COMPASS            MX1    42                                                              CP096A        68     A     
 COMPASS            SX7    B6                                                              CP096A        69     A     
 COMPASS            BX7    X1+X7                                                           CP096A        70     A     
 COMPASS   SNAP8    GE     B2,B4,SNAP8A                                                    CMP14        269     A     
 COMPASS            SB4    B2                                                              CMP14        270     A     
 COMPASS   SNAP8A   EQ     B4,B2,SNAP9 IF LAST LINE                                        CMP14        271          I
          -CP096A 
 COMPASS   SNAP8A   ZR     X7,SNAP8B   IF NOT ECS/LCM                                      CP096A        71     A     
 COMPASS            SX0    X7                                                              CP096A        72     A     
 COMPASS            SA0    SNLCM+1     READ TO CM/SCM WORK AREA                            CP096A        73     A     
 COMPASS            SB6    A0                                                              CP096A        74     A     
 COMPASS   +        RE     B4                                                              CP096A        75     A     
 COMPASS   -        NO                                                                     CP096A        76     A     
 COMPASS   SNAP8B   EQ     B4,B2,SNAP9 IF LAST LINE                                        CP096A        77     A     
 COMPASS            SA3    B6          DROP LINE IF ALL FOUR WORDS ARE ZERO                CMP14        272     A     
 COMPASS            SA4    B6+B1                                                           CMP14        273     A     
 COMPASS            BX3    X3+X4                                                           CMP14        274     A     
 COMPASS            SA4    A4+B1                                                           CMP14        275     A     
 COMPASS            BX3    X3+X4                                                           CMP14        276     A     
 COMPASS            SA4    A4+B1                                                           CMP14        277     A     
 COMPASS            BX3    X3+X4                                                           CMP14        278     A     
 COMPASS            NZ     X3,SNAP9                                                        CMP14        279     A     
 COMPASS            MI     X3,SNAP9                                                        CMP14        280     A     
 COMPASS            SB6    B6+B4                                                           CMP14        281     A     
 COMPASS            SB2    B2+B4                                                           CMP14        282          I
          -CMP029 
 COMPASS            SB2    B2-B4                                                           CMP029        14     A     
 COMPASS            ZR     X7,SNAP8    IF NOT ECS/LCM                                      CP096A        78     A     
 COMPASS            SX7    X7+B4                                                           CP096A        79     A     
 COMPASS            EQ     SNAP8                                                           CMP14        283     A     
 COMPASS   SNAP9    RJ     SNSCH                                                           CMP14        284          I
          -CP096A 
 COMPASS   SNAP9    SA7    SNLCM       SAVE ECS/LCM POINTER                                CP096A        80     A     
 COMPASS            MX0    0                                                               CP096A        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/28. 19.11.32.      PAGE 296    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA0    B0          STORE FORMS CONTROL CHARACTER                       CP096A        82     A     
 COMPASS            RJ     SNSCH                                                           CP096A        83     A     
 COMPASS            SX1    B6          PRINT ADDRESS IN OCTAL                              CMP14        285     A     
 COMPASS            ZR     X7,*+1                                                          CP096A        84     A     
 COMPASS            SX1    X7                                                              CP096A        85     A     
 COMPASS            SB5    6                                                               CMP14        286     A     
 COMPASS            LX1    42                                                              CMP14        287     A     
 COMPASS            RJ     SNUMB                                                           CMP14        288     A     
 COMPASS            SA2    SNLCM                                                           CP096A        86     A     
 COMPASS            SA1    =3H         PRINT 3 BLANKS                                      CMP14        289     A     
 COMPASS            SB5    3                                                               CMP14        290     A     
 COMPASS            RJ     SCHAR                                                           CMP14        291          I
          -CP096A 
 COMPASS            ZR     X2,SNAP9A   IF NOT ECS/LCM                                      CP096A        87     A     
 COMPASS            SX5    1RL                                                             CP096A        88     A     
 COMPASS            SB5    2           PRINT *L* AND 2 BLANKS                              CP096A        89     A     
 COMPASS            RJ     SNSCH                                                           CP096A        90     A     
 COMPASS   SNAP9A   RJ     SCHAR                                                           CP096A        91     A     
 COMPASS   SNAP10   SA1    B6          PRINT UP TO 4 WORDS IN OCTAL                        CMP14        292     A     
 COMPASS            SB5    20                                                              CMP14        293     A     
 COMPASS            RJ     SNUMB                                                           CMP14        294     A     
 COMPASS            SX5    1R          PRINT 1 BLANK AFTER EACH WORD                       CMP14        295     A     
 COMPASS            RJ     SNSCH                                                           CMP14        296     A     
 COMPASS            SB3    B3+B1                                                           CMP14        297     A     
 COMPASS            SB6    B6+B1                                                           CMP14        298     A     
 COMPASS            LT     B3,B4,SNAP10                                                    CMP14        299     A     
 COMPASS            SX1    2R          PRINT 2 ADDITIONAL BLANKS                           CMP14        300     A     
 COMPASS            SB5    B1+B1       AFTER LAST WORD                                     CMP14        301     A     
 COMPASS            LX1    48                                                              CMP14        302     A     
 COMPASS            RJ     SCHAR                                                           CMP14        303     A     
 COMPASS            SB3    -B4                                                             CMP14        304     A     
 COMPASS            SB6    B6-B4                                                           CMP14        305     A     
 COMPASS            SB3    B3+4                                                            CMP14        306     A     
 COMPASS            ZR     B3,SNAP11   IF 4 WORDS PRINTED                                  CMP14        307     A     
 COMPASS            SA1    =10H                                                            CMP14        308     A     
 COMPASS   SNAP10A  SB5    21          PRINT 21 BLANKS FOR EACH WORD                       CMP14        309     A     
 COMPASS            RJ     SCHAR       NOT PRINTED OF THE 4 POSSIBLE                       CMP14        310     A     
 COMPASS            SB3    B3-B1                                                           CMP14        311     A     
 COMPASS            NZ     B3,SNAP10A                                                      CMP14        312     A     
 COMPASS   SNAP11   SA1    B6          PRINT UP TO 4 WORDS IN DISPLAY CODE                 CMP14        313     A     
 COMPASS            SB5    10                                                              CMP14        314     A     
 COMPASS            RJ     SCHAR                                                           CMP14        315     A     
 COMPASS            SB3    B3+B1                                                           CMP14        316     A     
 COMPASS            SB6    B6+B1                                                           CMP14        317     A     
 COMPASS            LT     B3,B4,SNAP11                                                    CMP14        318     A     
 COMPASS            SX6    B6                                                              CMP14        319     A     
 COMPASS            SX7    B2-B4                                                           CMP14        320     A     
 COMPASS            LX6    30                                                              CMP14        321     A     
 COMPASS            BX6    X6+X7                                                           CMP14        322     A     
 COMPASS            SA6    SNTEMP                                                          CMP14        323     A     
 COMPASS            RJ     SNWLIN                                                          CMP14        324     A     
 COMPASS            SA1    SNTEMP                                                          CMP14        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/28. 19.11.32.      PAGE 297    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    SNLCM                                                           CP096A        92     A     
 COMPASS            SB3    B0                                                              CMP14        326     A     
 COMPASS            SB4    4                                                               CMP14        327     A     
 COMPASS            SX5    1R                                                              CMP14        328     A     
 COMPASS            SB2    X1                                                              CMP14        329     A     
 COMPASS            AX1    30                                                              CMP14        330     A     
 COMPASS            SB6    X1                                                              CMP14        331     A     
 COMPASS            NZ     B2,SNAP8                                                        CMP14        332          I
          -CP096A 
 COMPASS            BX7    X2                                                              CP096A        93     A     
 COMPASS            ZR     X2,SNAP11A  IF NOT ECS/LCM                                      CP096A        94     A     
 COMPASS            SX7    X2+B4                                                           CP096A        95     A     
 COMPASS   SNAP11A  NZ     B2,SNAP8    IF WORD COUNT NOT EXHAUSTED                         CP096A        96     A     
 COMPASS            SA1    SNAPPTR                                                         CMP14        333     A     
 COMPASS            SA1    X1                                                              CMP14        334     A     
 COMPASS            SX7    A1                                                              CMP14        335     A     
 COMPASS   SNAP12   PL     X1,SNAP6    IF NOT FINAL DESCRIPTOR                             CMP14        336     A     
 COMPASS            WRITER D,RECALL    FLUSH BUFFER                                        CMP14        337          I
          -CMP30  
 COMPASS            WEOR   D           FLUSH BUFFER                                        CMP30       1387     A     
 COMPASS            CHECK  D                                                               CMP30       1388     A     
 COMPASS            MX0    42          RESTORE REGISTERS                                   CMP14        338     A     
 COMPASS            SB7    -6                                                              CMP14        339     A     
 COMPASS            SB6    B0                                                              CMP14        340     A     
 COMPASS   SNAP13   SX6    610B+B7                                                         CMP14        341     A     
 COMPASS            SX7    X6+B1                                                           CMP14        342     A     
 COMPASS            LX6    30                                                              CMP14        343     A     
 COMPASS            BX6    X7+X6                                                           CMP14        344     A     
 COMPASS            LX6    21                                                              CMP14        345     A     
 COMPASS            SA1    SNB+8+B7                                                        CMP14        346     A     
 COMPASS            SA2    A1+B1                                                           CMP14        347     A     
 COMPASS            BX1    -X0*X1                                                          CMP14        348     A     
 COMPASS            BX2    -X0*X2                                                          CMP14        349     A     
 COMPASS            LX1    30                                                              CMP14        350     A     
 COMPASS            BX1    X1+X2                                                           CMP14        351     A     
 COMPASS            BX6    X6+X1                                                           CMP14        352     A     
 COMPASS            SA6    SNR+B6                                                          CMP14        353     A     
 COMPASS            SB6    B6+B1                                                           CMP14        354     A     
 COMPASS            SB7    B7+2                                                            CMP14        355     A     
 COMPASS            NG     B7,SNAP13                                                       CMP14        356     A     
 COMPASS            SA1    SNA                                                             CMP14        357     A     
 COMPASS            BX2    -X0*X1                                                          CMP14        358     A     
 COMPASS            SA3    SNPROT                                                          CMP14        359     A     
 COMPASS            LX2    30                                                              CMP14        360     A     
 COMPASS            BX6    X3+X2                                                           CMP14        361     A     
 COMPASS            SA6    A6+B1                                                           CMP14        362     A     
 COMPASS            SA1    SNA+6                                                           CMP14        363     A     
 COMPASS            SA2    A1+B1                                                           CMP14        364     A     
 COMPASS            SA1    X1                                                              CMP14        365     A     
 COMPASS            SA2    X2                                                              CMP14        366     A     
 COMPASS            BX6    X1                                                              CMP14        367     A     
 COMPASS            LX7    X2                                                              CMP14        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/28. 19.11.32.      PAGE 298    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A1                                                              CMP14        369     A     
 COMPASS            SA7    A2                                                              CMP14        370     A     
 COMPASS            SA1    SNX+6                                                           CMP14        371     A     
 COMPASS            SA2    A1+B1                                                           CMP14        372     A     
 COMPASS            BX6    X1                                                              CMP14        373     A     
 COMPASS            LX7    X2                                                              CMP14        374     A     
 COMPASS            SA2    A1-B1                                                           CMP14        375     A     
 COMPASS            SA1    SNA+5                                                           CMP14        376     A     
 COMPASS            SA5    X1                                                              CMP14        377     A     
 COMPASS            BX5    X2                                                              CMP14        378     A     
 COMPASS            SA1    A1-B1                                                           CMP14        379     A     
 COMPASS            SA2    A2-B1                                                           CMP14        380     A     
 COMPASS            SA4    X1                                                              CMP14        381     A     
 COMPASS            BX4    X2                                                              CMP14        382     A     
 COMPASS            SA1    A1-B1                                                           CMP14        383     A     
 COMPASS            SA2    A2-B1                                                           CMP14        384     A     
 COMPASS            SA3    X1                                                              CMP14        385     A     
 COMPASS            BX3    X2                                                              CMP14        386     A     
 COMPASS            SA1    SNX                                                             CMP14        387     A     
 COMPASS            BX0    X1                                                              CMP14        388     A     
 COMPASS            SA2    SNA+2                                                           CMP14        389     A     
 COMPASS            SA2    X2                                                              CMP14        390     A     
 COMPASS            SA1    SNX+2                                                           CMP14        391     A     
 COMPASS            BX2    X1                                                              CMP14        392     A     
 COMPASS            MX1    60                                                              CMP14        393     A     
 COMPASS            SA0    X1-0        A0 = 777777B                                        CMP14        394     A     
 COMPASS            SA1    SNX+1                                                           CMP14        395     A     
 COMPASS            UX1,B2 X1                                                              CMP14        396     A     
 COMPASS            LX1    10                                                              CMP14        397     A     
 COMPASS            UX1,B3 X1                                                              CMP14        398     A     
 COMPASS            LX1    10                                                              CMP14        399     A     
 COMPASS            UX1,B4 X1                                                              CMP14        400     A     
 COMPASS            LX1    10                                                              CMP14        401     A     
 COMPASS            UX1,B5 X1                                                              CMP14        402     A     
 COMPASS            LX1    10                                                              CMP14        403     A     
 COMPASS            UX1,B6 X1                                                              CMP14        404     A     
 COMPASS            LX1    10                                                              CMP14        405     A     
 COMPASS            UX1,B7 X1                                                              CMP14        406     A     
 COMPASS            SB1    A0-B0                                                           CMP14        407     A     
 COMPASS            SB1    X1+B1                                                           CMP14        408     A     
 COMPASS            SA1    SNA+1                                                           CMP14        409     A     
 COMPASS            SA1    X1                                                              CMP14        410     A     
 COMPASS            SX1    B1-B0                                                           CMP14        411     A     
 COMPASS            PX1    X1,B7                                                           CMP14        412     A     
 COMPASS            LX1    50                                                              CMP14        413     A     
 COMPASS            PX1    X1,B6                                                           CMP14        414     A     
 COMPASS            LX1    50                                                              CMP14        415     A     
 COMPASS            PX1    X1,B5                                                           CMP14        416     A     
 COMPASS            LX1    50                                                              CMP14        417     A     
 COMPASS            PX1    X1,B4                                                           CMP14        418     A     
 COMPASS            LX1    50                                                              CMP14        419     A     
 COMPASS            PX1    X1,B3                                                           CMP14        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/28. 19.11.32.      PAGE 299    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX1    50                                                              CMP14        421     A     
 COMPASS            PX1    X1,B2                                                           CMP14        422     A     
 COMPASS            SB1    1                                                               CMP14        423     A     
 COMPASS   SNR      SB2    A0+**                                                           CMP14        424     A     
 COMPASS            SB3    A0+**                                                           CMP14        425     A     
 COMPASS            SB4    A0+**                                                           CMP14        426     A     
 COMPASS            SB5    A0+**                                                           CMP14        427     A     
 COMPASS            SB6    A0+**                                                           CMP14        428     A     
 COMPASS            SB7    A0+**                                                           CMP14        429     A     
 COMPASS            SA0    A0+**                                                           CMP14        430     A     
 COMPASS            EQ     SNINST      GO EXECUTE REPLACED INSTRUCTION WORD                CMP14        431     A     
 COMPASS   SNPROT   SA0    A0+0                                                            CMP14        432     A     
 COMPASS            EQ     SNINST                                                          CMP14        433     A     
 COMPASS   SCHAR    SPACE  4                                                               CMP14        434     A     
 COMPASS  **        SCHAR - STORE CHARACTER STRING.                                        CMP14        435     A     
 COMPASS  *         ENTRY  (X1) = CHARACTER STRING LEFT JUSTIFIED.                         CMP14        436     A     
 COMPASS  *                (B5) = NUMBER OF CHARACTERS.                                    CMP14        437     A     
 COMPASS                                                                                   CMP14        438     A     
 COMPASS                                                                                   CMP14        439     A     
 COMPASS   SCHAR1   LX1    6                                                               CMP14        440     A     
 COMPASS            BX5    -X2*X1                                                          CMP14        441     A     
 COMPASS            NZ     X5,SCHAR2                                                       CMP14        442     A     
 COMPASS            SX5    1R                                                              CMP14        443     A     
 COMPASS   SCHAR2   RJ     SNSCH                                                           CMP14        444     A     
 COMPASS            SB5    B5-B1                                                           CMP14        445     A     
 COMPASS            NZ     B5,SCHAR1                                                       CMP14        446     A     
 COMPASS   SCHAR    PS                 RETURN EXIT                                         CMP14        447     A     
 COMPASS            MX2    -6                                                              CMP14        448     A     
 COMPASS            EQ     SCHAR1                                                          CMP14        449     A     
 COMPASS   SNUMB    SPACE  4                                                               CMP14        450     A     
 COMPASS  **        SNUMB - STORE NUMBER.                                                  CMP14        451     A     
 COMPASS  *         ENTRY  (X1) = BINARY NUMBER LEFT JUSTIFIED.                            CMP14        452     A     
 COMPASS  *                (B5) = NUMBER OF OCTAL DIGITS.                                  CMP14        453     A     
 COMPASS                                                                                   CMP14        454     A     
 COMPASS                                                                                   CMP14        455     A     
 COMPASS   SNUMB1   LX1    3                                                               CMP14        456     A     
 COMPASS            BX3    -X2*X1                                                          CMP14        457     A     
 COMPASS            SX5    X3+1R0                                                          CMP14        458     A     
 COMPASS            RJ     SNSCH                                                           CMP14        459     A     
 COMPASS            SB5    B5-B1                                                           CMP14        460     A     
 COMPASS            NZ     B5,SNUMB1                                                       CMP14        461     A     
 COMPASS   SNUMB    PS                 RETURN EXIT                                         CMP14        462     A     
 COMPASS            MX2    -3                                                              CMP14        463     A     
 COMPASS            EQ     SNUMB1                                                          CMP14        464     A     
 COMPASS   SNWLIN   SPACE  4                                                               CMP14        465     A     
 COMPASS  **        SNWLIN - WRITE END OF LINE.                                            CMP14        466     A     
 COMPASS  *         ENTRY  (X0) = CURRENT WORD.                                            CMP14        467     A     
 COMPASS  *                (B7) = NUMBER OF CHARACTERS IN X0.                              CMP14        468     A     
 COMPASS  *                (A0) = NUMBER OF WORDS IN LINE, NOT COUNTING (X0).              CMP14        469     A     
 COMPASS  *         EXIT   X0, B7, A0 = 0.                                                 CMP14        470     A     
 COMPASS                                                                                   CMP14        471     A     
 COMPASS                                                                                   CMP14        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/28. 19.11.32.      PAGE 300    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SNWLIN   PS                 RETURN EXIT                                         CMP14        473     A     
 COMPASS                                                                                   CMP30       1389     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1390     A     
 COMPASS                                                                                   CMP30       1391     A     
 COMPASS            SB5    8                                                               CMP14        474     A     
 COMPASS            EQ     B7,B5,SNWLIN2                                                   CMP14        475     A     
 COMPASS   SNWLIN1  SX5    1R                                                              CMP14        476     A     
 COMPASS            RJ     SNSCH                                                           CMP14        477     A     
 COMPASS            NE     B7,B5,SNWLIN1                                                   CMP14        478     A     
 COMPASS   SNWLIN2  LX0    12                                                              CMP14        479     A     
 COMPASS            SB6    SNLINE                                                          CMP14        480     A     
 COMPASS            BX6    X0                                                              CMP14        481     A     
 COMPASS            SB7    A0+B1                                                           CMP14        482     A     
 COMPASS            SA6    B6+A0                                                           CMP14        483     A     
 COMPASS            WRITEW D,B6,B7     WRITE LINE                                          CMP14        484     A     
 COMPASS                                                                                   CMP30       1392     A     
 COMPASS   RM       ELSE                                                                   CMP30       1393     A     
 COMPASS                                                                                   CMP30       1394     A     
 COMPASS            ZR     B7,SNWLIN2                                                      CMP30       1395          I
          -CP096A 
 COMPASS   SNWLIN1  SX5    1R                                                              CMP30       1396          I
          -CP096A 
 COMPASS            RJ     SNSCH                                                           CMP30       1397          I
          -CP096A 
 COMPASS            NZ     B7,SNWLIN1                                                      CMP30       1398          I
          -CP096A 
 COMPASS   SNWLIN2  SX5    A0                                                              CMP30       1399          I
          -CP096A 
 COMPASS            IX6    X5+X5                                                           CMP30       1400          I
          -CP096A 
 COMPASS            LX5    3                                                               CMP30       1401          I
          -CP096A 
 COMPASS            IX5    X5+X6       CHARACTER LENGTH                                    CMP30       1402          I
          -CP096A 
 COMPASS            SX5    A0                                                              CP096A        97     A     
 COMPASS            ZR     B7,SNWLIN1  IF AT END OF WORD                                   CP096A        98     A     
 COMPASS            SB5    -B7                                                             CP096A        99     A     
 COMPASS            SB5    10+B5       LEFT JUSTIFY CHARACTERS                             CP096A       100     A     
 COMPASS            SX6    B5+B5       AND STORE LAST WORD                                 CP096A       101     A     
 COMPASS            SB5    X6+B5                                                           CP096A       102     A     
 COMPASS            SB5    B5+B5                                                           CP096A       103     A     
 COMPASS            LX6    X0,B5                                                           CP096A       104     A     
 COMPASS            SA6    SNLINE+A0                                                       CP096A       105     A     
 COMPASS   SNWLIN1  IX6    X5+X5       COMPUTE LINE LENGTH IN CHARACTERS                   CP096A       106     A     
 COMPASS            LX5    3                                                               CP096A       107     A     
 COMPASS            IX5    X5+X6                                                           CP096A       108     A     
 COMPASS            SX5    X5+B7                                                           CP096A       109     A     
 COMPASS            PUT    D,SNLINE,X5 WRITE LINE                                          CMP30       1403     A     
 COMPASS                                                                                   CMP30       1404     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1405     A     
 COMPASS                                                                                   CMP30       1406     A     
 COMPASS            SA0    B0                                                              CMP14        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/28. 19.11.32.      PAGE 301    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    B0                                                              CMP14        486     A     
 COMPASS            MX0    0                                                               CMP14        487     A     
 COMPASS            EQ     SNWLIN                                                          CMP14        488     A     
 COMPASS   SNSCH    SPACE  4                                                               CMP14        489     A     
 COMPASS  **        SNSCH - STORE CHARACTER, DUMP BUFFER WHEN FULL.                        CMP14        490          I
          -CMP26  
 COMPASS  **        SNSCH - STORE SINGLE CHARACTER.                                        CMP26         11     A     
 COMPASS  *         ENTRY  (X0) = CURRENT WORD.                                            CMP14        491     A     
 COMPASS  *                (X5) = CHARACTER RIGHT JUSTIFIED WITH 00 FILL.                  CMP14        492     A     
 COMPASS  *                (B7) = NUMBER OF CHARACTERS IN X0.                              CMP14        493     A     
 COMPASS  *                (A0) = NUMBER OF WORDS IN LINE NOT COUNTING (X0).               CMP14        494     A     
 COMPASS  *         EXIT   (X0) = NEW CURRENT WORD.                                        CMP14        495     A     
 COMPASS  *                (B7) = UPDATED CHARACTER COUNT.                                 CMP14        496     A     
 COMPASS  *                (A0) = UPDATED WORD COUNT.                                      CMP14        497     A     
 COMPASS                                                                                   CMP14        498     A     
 COMPASS                                                                                   CMP14        499     A     
 COMPASS   SNSCH1   SB7    B7+10                                                           CMP14        500     A     
 COMPASS   SNSCH    PS                 RETURN EXIT                                         CMP14        501     A     
 COMPASS            LX0    6                                                               CMP14        502     A     
 COMPASS            SB7    B7-9                                                            CMP14        503     A     
 COMPASS            BX0    X5+X0                                                           CMP14        504     A     
 COMPASS            NZ     B7,SNSCH1                                                       CMP14        505     A     
 COMPASS            BX6    X0                                                              CMP14        506     A     
 COMPASS            MX0    0                                                               CMP14        507     A     
 COMPASS            SA6    SNLINE+A0                                                       CMP14        508     A     
 COMPASS            SA0    A0+B1                                                           CMP14        509     A     
 COMPASS            EQ     SNSCH                                                           CMP14        510     A     
 COMPASS                                                                                   CP096A       110     A     
 COMPASS                                                                                   CP096A       111     A     
 COMPASS   SNLCM    BSSZ   5           LCM POINTER AND WORK AREA                           CP096A       112     A     
 COMPASS   COMCCIO  SPACE  4                                                               CMP14        511          I
          -CMP30  
 COMPASS  **        COMMON DECKS USED ONLY BY SNAPSHOT ROUTINES.                           CMP14        512          I
          -CMP30  
 COMPASS                                                                                   CMP14        513          I
          -CMP30  
 COMPASS                                                                                   CMP14        514          I
          -CMP029   -CMP30  
 COMPASS   QUAL$    SET    DEBUG                                                           CMP14        515          I
          -CMP029   -CMP30  
 COMPASS                                                                                   CMP14        516          I
          -CMP029   -CMP30  
 COMPASS                                                                                   CMP14        517          I
          -CMP30  
 COMPASS  *CALL COMCCIO                                                                    CMP14        518          I
          -CMP30  
 COMPASS  *CALL COMCSYS                                                                    CMP14        519          I
          -CMP30  
 COMPASS  *CALL COMCWTW                                                                    CMP14        520          I
          -CMP30  
 COMPASS                                                                                   CMP14        521     A     
 COMPASS                                                                                   CMP14        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/28. 19.11.32.      PAGE 302    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            QUAL   *                                                               CMP14        523     A     
 COMPASS   DEBUG    ENDIF                                                                  CMP14        524     A     
 COMPASS   ACL      TITLE  COMMON AND UTILITY SUBROUTINES.                                 COMPASS     1639     A     
 COMPASS  **        ACL - ADJUST LOW CORE LIMIT OF TABLES.                                 COMPASS     1640     A     
 COMPASS  *         ENTRY  (X1) = NEW LOW LIMIT.                                           COMPASS     1641     A     
 COMPASS                                                                                   COMPASS     1642     A     
 COMPASS                                                                                   COMPASS     1643     A     
 COMPASS   ACL      PS                 RETURN EXIT                                         COMPASS     1644     A     
 COMPASS            SA2    LOCORE                                                          COMPASS     1645     A     
 COMPASS            IX6    X2-X1                                                           COMPASS     1646     A     
 COMPASS            PL     X6,ACL1     IF NEW LOW LIMIT IS LOWER                           COMPASS     1647     A     
 COMPASS            BX1    -X6                                                             COMPASS     1648     A     
 COMPASS            SA6    ACLA                                                            COMPASS     1649     A     
 COMPASS            MANAGE MEMORY,X1   AUGMENT MEMORY BY REQUIRED AMOUNT                   COMPASS     1650     A     
 COMPASS            SA2    ACLA                                                            COMPASS     1651     A     
 COMPASS            IX6    X3+X2       REMOVE EXCESS ALLOCATION                            COMPASS     1652     A     
 COMPASS            SA6    A3                                                              COMPASS     1653     A     
 COMPASS            SA1    LOCORE                                                          COMPASS     1654     A     
 COMPASS            SA4    FIELDL                                                          COMPASS     1655          I
          -CMP30  
 COMPASS            SA4    CP.NFLS                                                         CMP30       1407     A     
 COMPASS            IX6    X1-X2                                                           COMPASS     1656     A     
 COMPASS            SX0    X4-10                                                           COMPASS     1657     A     
 COMPASS            IX7    X0-X6                                                           COMPASS     1658     A     
 COMPASS            SA6    A1                                                              COMPASS     1659     A     
 COMPASS            SA7    SIZCORE                                                         COMPASS     1660     A     
 COMPASS            RJ     MTU         PACK TABLES UP                                      COMPASS     1661     A     
 COMPASS            EQ     ACL         RETURN                                              COMPASS     1662     A     
 COMPASS                                                                                   COMPASS     1663     A     
 COMPASS   ACL1     SA3    SIZCORE     ADJUST CORE DESCRIPTORS                             COMPASS     1664     A     
 COMPASS            IX7    X3+X6       AUGMENT CORE SIZE                                   COMPASS     1665     A     
 COMPASS            BX6    X1          RESET LOW CORE ADDRESS                              COMPASS     1666     A     
 COMPASS            SA7    A3                                                              COMPASS     1667     A     
 COMPASS            SA6    A2                                                              COMPASS     1668     A     
 COMPASS            EQ     ACL         RETURN                                              COMPASS     1669     A     
 COMPASS                                                                                   COMPASS     1670     A     
 COMPASS   ACLA     DATA   0           NEW LOW LIMIT                                       COMPASS     1671     A     
 COMPASS   ADDWORD  SPACE  4                                                               COMPASS     1672     A     
 COMPASS  **        ADDWORD - ADD ONE WORD TO END OF MANAGED TABLE.                        COMPASS     1673     A     
 COMPASS  *         ENTRY  (X1) = DATUM.                                                   COMPASS     1674     A     
 COMPASS  *                (A0) = TABLE INDEX.                                             COMPASS     1675     A     
 COMPASS  *         MACRO FORM    ADDWORD  TABNAM      ALSO AVAILABLE.                     COMPASS     1676     A     
 COMPASS  *         EXIT   (X1) = DATUM.                                                   COMPASS     1677     A     
 COMPASS  *         EXIT   (X6) = DATUM.                                                   COMPASS     1678     A     
 COMPASS                                                                                   COMPASS     1679     A     
 COMPASS                                                                                   COMPASS     1680     A     
 COMPASS   ADDWORD1 SA6    ADDWORDT                                                        COMPASS     1681     A     
 COMPASS            RJ     ALC                                                             COMPASS     1682     A     
 COMPASS            IX3    X2+X3                                                           COMPASS     1683     A     
 COMPASS            SA1    ADDWORDT                                                        COMPASS     1684     A     
 COMPASS            BX6    X1                                                              COMPASS     1685     A     
 COMPASS            SA6    X3-1                                                            COMPASS     1686     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 303    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     1687     A     
 COMPASS   ADDWORD  PS                 RETURN EXIT                                         COMPASS     1688     A     
 COMPASS            BX6    X1                                                              COMPASS     1689     A     
 COMPASS            SX1    B1                                                              COMPASS     1690     A     
 COMPASS            EQ     ADDWORD1                                                        COMPASS     1691     A     
 COMPASS                                                                                   COMPASS     1692     A     
 COMPASS   ADDWORDT DATA   0           TEMPORARY STORAGE                                   COMPASS     1693     A     
 COMPASS   ALC      SPACE  4                                                               COMPASS     1694     A     
 COMPASS  **        ALC - TABLE MANAGER AND ALLOCATOR.                                     COMPASS     1695     A     
 COMPASS  *         ALLOCATOR WILL MOVE TABLES TO ACQUIRE ROOM.  ALSO MAY DUMP             COMPASS     1696     A     
 COMPASS  *         INTERMEDIATE OR CROSS-REFERENCES ONTO SCRATCH FILE.                    COMPASS     1697     A     
 COMPASS  *         ENTRY  (A0) = TABLE INDEX.                                             COMPASS     1698     A     
 COMPASS  *                (X1) = CHANGE (+ OR -) TO TABLE SIZE.                           COMPASS     1699     A     
 COMPASS  *         EXIT   (X2) = ORIGIN OF TABLE.                                         COMPASS     1700     A     
 COMPASS  *                (X3) = NEW LENGTH OF TABLE.                                     COMPASS     1701     A     
 COMPASS                                                                                   COMPASS     1702     A     
 COMPASS                                                                                   COMPASS     1703     A     
 COMPASS   ALCX     SA2    ORIGINS+A0  RECLAIM VALUES FOR EXIT REPLY                       COMPASS     1704     A     
 COMPASS            SA3    SIZES+A0                                                        COMPASS     1705     A     
 COMPASS                                                                                   COMPASS     1706     A     
 COMPASS   ALC      PS                 RETURN EXIT                                         COMPASS     1707     A     
 COMPASS   ALC1     SB2    NTABLES     PRESET INDEX REGISTERS                              COMPASS     1708     A     
 COMPASS            SA2    ORIGINS+A0  CURRENT ORIGIN                                      COMPASS     1709     A     
 COMPASS            SA3    A2+B2       CURRENT LENGTH                                      COMPASS     1710     A     
 COMPASS            SA4    A2+B1       NEXT TABLE ORIGIN                                   COMPASS     1711     A     
 COMPASS            IX6    X1+X3       NEW SIZE                                            COMPASS     1712     A     
 COMPASS            IX0    X4-X2       TEST IF ROOM FOR EXPANSION                          COMPASS     1713     A     
 COMPASS            IX0    X0-X6                                                           COMPASS     1714     A     
 COMPASS            NG     X0,ALC2     JUMP TO RE-ALLOCATE CORE                            COMPASS     1715     A     
 COMPASS            SA6    A3          STORE NEW SIZE                                      COMPASS     1716     A     
 COMPASS            EQ     ALCX        EXIT                                                COMPASS     1717          I
          -CMP30  
 COMPASS            BX3    X6                                                              CMP30       1408     A     
 COMPASS            EQ     ALC         RETURN                                              CMP30       1409     A     
 COMPASS                                                                                   COMPASS     1718     A     
 COMPASS  *         MOVE TABLES.                                                           COMPASS     1719     A     
 COMPASS                                                                                   COMPASS     1720     A     
 COMPASS   ALC2     SA2    SIZCORE     SEE IF ENOUGH ROOM                                  COMPASS     1721     A     
 COMPASS            BX4    X1                                                              COMPASS     1722     A     
 COMPASS            SB7    B2-B1                                                           COMPASS     1723     A     
 COMPASS   ALC3     SB7    B7-B1                                                           COMPASS     1724     A     
 COMPASS            SA5    SIZES+B7                                                        COMPASS     1725     A     
 COMPASS            IX4    X4+X5                                                           COMPASS     1726     A     
 COMPASS            NZ     B7,ALC3     LOOP                                                COMPASS     1727     A     
 COMPASS            SA3    PASS                                                            COMPASS     1728     A     
 COMPASS            SB7    X3                                                              COMPASS     1729     A     
 COMPASS            IX0    X2-X4                                                           COMPASS     1730     A     
 COMPASS            SB4    X4          (B4) = TOTAL LENGTH                                 COMPASS     1731     A     
 COMPASS            SB7    -B7                                                             COMPASS     1732     A     
 COMPASS            NG     X0,ALC10    IF NOT ENOUGH ROOM AT ALL                           COMPASS     1733          I
          -CPSA125
 COMPASS            JP     ALCA+B7                                                         COMPASS     1734          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 304    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA125
 COMPASS                                                                                   COMPASS     1735          I
          -CPSA125
 COMPASS   +        EQ     ALC5        PASS 3                                              COMPASS     1736          I
          -CPSA125
 COMPASS   +        SA3    /PASS2/REFIO PASS2                                              COMPASS     1737          I
          -CPSA125
 COMPASS            ZR     X3,ALC4     IF REFERENCE TABLE IN CORE                          COMPASS     1738          I
          -CPSA125
 COMPASS   +        SA3    INTERIO     PASS 1                                              COMPASS     1739          I
          -CPSA125
 COMPASS            ZR     X3,ALC4     IF INTERMEDIATE IN CORE                             COMPASS     1740          I
          -CPSA125
 COMPASS   ALCA     EQ     ALC5        PASS 0                                              COMPASS     1741          I
          -CPSA125
 COMPASS                                                                                   COMPASS     1742          I
          -CPSA125
 COMPASS            SA2    LSTTHOU                                                         CPSA125        8     A     
 COMPASS            SA4    INTERIO                                                         CPSA251        8     A     
 COMPASS            ZR     X2,ALC4     IF NOT USING UP LAST 1000B WORDS                    CPSA125        9     A     
 COMPASS            IX2    X0-X1       ELSE SPACE AVAILABLE-SPACE REQUESTED                CPSA125       10          I
          -CPS243 
 COMPASS            PL     X2,ALC5     IF ENOUGH SPACE FOR THE ENTRY                       CPSA125       11          I
          -CPS243 
 COMPASS            PL     X0,ALC5     ENOUGH SPACE FOR ENTRY                              CPS243         5     A     
 COMPASS            JP     ALCAA+B7    ELSE B7 = -PASS                                     CPSA125       12     A     
 COMPASS                                                                                   CPSA125       13     A     
 COMPASS   +        EQ     ALC18       PASS 3 - GET RID OF REFERENCES                      CPSA125       14     A     
 COMPASS   +        EQ     ALC13       PASS 2 - TABLE OVERFLOW MESSAGE                     CPSA125       15          I
          -CPSA251
 COMPASS   +        EQ     ALC17       PASS 1 - TABLE OVERFLOW MESSAGE                     CPSA125       16          I
          -CPSA251
 COMPASS  +         ZR     X4,ALC10A                                                       CPSA251        9     A     
 COMPASS            EQ     ALC13       PASS 2 - TABLE OVERFLOW MESSAGE                     CPSA251       10     A     
 COMPASS  +         ZR     X4,ALC10A                                                       CPSA251       11     A     
 COMPASS            EQ     ALC17       PASS 1 - TABLE OVERFLOW MESSAGE                     CPSA251       12     A     
 COMPASS   ALCAA    EQ     LST7A       PASS 0 - INSUFF. FL FOR SYSTEM TEXT MESSAGE         CPSA125       17     A     
 COMPASS                                                                                   CPSA125       18     A     
 COMPASS   ALC4     SX3    X0-1000B                                                        COMPASS     1743     A     
 COMPASS            NG     X3,ALC10    IF < 1000 WORDS LEFT                                COMPASS     1744     A     
 COMPASS   ALC5     SB6    X1          (B6) = REQUESTED LENGTH                             COMPASS     1745     A     
 COMPASS            SB5    X0          (B5) = SPACE AVAILABLE                              COMPASS     1746     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO LOW CORE                        COMPASS     1747     A     
 COMPASS            SB3    ORIGINS     RE-ALLOCATE UPWARDS                                 COMPASS     1748     A     
 COMPASS            SA3    SIZES+A0    INCREMENT SIZE                                      COMPASS     1749     A     
 COMPASS            SX6    X3+B6                                                           COMPASS     1750     A     
 COMPASS            SA6    A3                                                              COMPASS     1751     A     
 COMPASS            SA1    LOCORE                                                          COMPASS     1752     A     
 COMPASS            SA2    SIZCORE                                                         COMPASS     1753     A     
 COMPASS            IX0    X1+X2       X0 = LWA+1 OF CORE                                  COMPASS     1754     A     
 COMPASS            SB6    B2-B1                                                           COMPASS     1755     A     
 COMPASS   ALC6     SB6    B6-B1       DECREMENT TABLE POINTER                             COMPASS     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/28. 19.11.32.      PAGE 305    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    B3+B6       TABLE ORIGIN                                        COMPASS     1757     A     
 COMPASS            SA1    A2+B2       TABLE LENGTH                                        COMPASS     1758     A     
 COMPASS            SX4    B5          SPACE AVAILABLE                                     COMPASS     1759     A     
 COMPASS            SX3    B2-B1       NUMBER OF TABLES                                    COMPASS     1760     A     
 COMPASS            AX5    X4,B1                                                           COMPASS     1761     A     
 COMPASS            IX6    X4/X3                                                           COMPASS     1762     A     
 COMPASS            ZR     B4,ALC7     IF NO LENGTH                                        COMPASS     1763     A     
 COMPASS            SX3    B4          TOTAL LENGTH                                        COMPASS     1764     A     
 COMPASS            IX7    X5*X1                                                           COMPASS     1765          I
          -F4820  
 COMPASS            DX7    X5*X1                                                           F4820         42     A     
 COMPASS            AX6    1                                                               COMPASS     1766     A     
 COMPASS            IX7    X7/X3                                                           COMPASS     1767     A     
 COMPASS            IX6    X6+X7                                                           COMPASS     1768     A     
 COMPASS   ALC7     IX6    X0-X6                                                           COMPASS     1769     A     
 COMPASS            UX1    X1                                                              COMPASS     1770     A     
 COMPASS            IX7    X6-X1                                                           COMPASS     1771     A     
 COMPASS            BX3    X7                                                              COMPASS     1772     A     
 COMPASS            SA7    A2          SET NEW ORIGIN                                      COMPASS     1773     A     
 COMPASS            LX0    X7                                                              COMPASS     1774     A     
 COMPASS            BX4    X2-X3                                                           COMPASS     1775     A     
 COMPASS   +        ZR     X4,*+1      IF NO MOVE REQUESTED                                COMPASS     1776     A     
 COMPASS            RJ     MOVE                                                            COMPASS     1777     A     
 COMPASS            NE     B6,B1,ALC6  LOOP                                                COMPASS     1778     A     
 COMPASS            SA3    LOCORE                                                          COMPASS     1779     A     
 COMPASS            SA2    B3          FETCH FWA                                           COMPASS     1780     A     
 COMPASS            SA1    A2+B2       FETCH SIZE                                          COMPASS     1781     A     
 COMPASS            BX6    X3                                                              COMPASS     1782     A     
 COMPASS            SA6    A2                                                              COMPASS     1783     A     
 COMPASS            BX4    X2-X3                                                           COMPASS     1784     A     
 COMPASS            ZR     X4,ALC8     IF NO MOVE REQUIRED                                 COMPASS     1785     A     
 COMPASS            RJ     MOVE                                                            COMPASS     1786     A     
 COMPASS   ALC8     RJ     ASU         ACCUMULATE STORAGE USED                             COMPASS     1787     A     
 COMPASS            EQ     ALCX        RETURN                                              COMPASS     1788     A     
 COMPASS                                                                                   COMPASS     1789     A     
 COMPASS  *         CORE OVERFLOW.                                                         COMPASS     1790     A     
 COMPASS                                                                                   COMPASS     1791     A     
 COMPASS   ALC10    SX6    A0          SAVE ENTRY CALL VALUES                              COMPASS     1792     A     
 COMPASS            BX7    X1                                                              COMPASS     1793     A     
 COMPASS            SA6    ALCC                                                            COMPASS     1794     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     1795     A     
 COMPASS            SA4    INTERIO                                                         COMPASS     1796          I
          -F4810B 
 COMPASS            SA4    CP.NFLS     CURRENT FL                                  F4810B  F4810B        60     A     
 COMPASS            SA2    MIDFLN      FL AT WHICH TABLES WILL BE DUMPED TO FILES  F4810B  F4810B        61     A     
 COMPASS            IX4    X2-X4                                                   F4810B  F4810B        62     A     
 COMPASS            MI     X4,ALC10A   IF READY TO DUMP TABLES                     F4810B  F4810B        63     A     
 COMPASS            RJ     RFL         ELSE, REQUEST MORE CENTRAL MEMORY           F4810B  F4810B        64     A     
 COMPASS            NZ     X3,ALC15    IF REQUEST COMPLETED, RESTORE AND TRY AGAIN F4810B  F4810B        65     A     
 COMPASS   ALC10A   SA4    INTERIO     ELSE, TRY TO DUMP TABLES TO FILES           F4810B  F4810B        66     A     
 COMPASS            JP     ALCB+B7                                                         COMPASS     1797     A     
 COMPASS                                                                                   COMPASS     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/28. 19.11.32.      PAGE 306    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        EQ     ALC18       PASS 3                                              COMPASS     1799          I
          -CPSA125
 COMPASS   +        EQ     ALC10B      PASS 3 - TRY TO GET MORE FL                         CPSA125       19     A     
 COMPASS   +        ZR     X4,ALC14    PASS 2 - IF INTERMEDIATE IN CORE                    COMPASS     1800     A     
 COMPASS            EQ     ALC11                                                           COMPASS     1801     A     
 COMPASS   +        ZR     X4,ALC14    PASS 1 - IF INTERMEDIATE IN CORE                    COMPASS     1802     A     
 COMPASS            EQ     ALC17                                                           COMPASS     1803          I
          -CPSA125
 COMPASS   ALCB     MESSAGE (=C* INSUFFICIENT STORAGE FOR SYSTEMS TEXT.*)                  COMPASS     1804          I
          -CMP30    -CPSA125
 COMPASS            EQ     ABORT                                                           COMPASS     1805          I
          -CMP30    -CPSA125
 COMPASS   ALCB     EQ     LST7A       PASS 0                                              CMP30       1410          I
          -CPSA125
 COMPASS   ALCB     EQ     ALC10B      PASS 0 - TRY TO GET MORE FL                         CPSA125       20     A     
 COMPASS                                                                                   COMPASS     1806     A     
 COMPASS   ALC10B   SA1    ALCC+1      GET REQUESTED TABLE INCREASE                        CPSA125       21     A     
 COMPASS            RJ     RFL         MAKE LAST ATTEMPT TO GET MORE FL.                   CPSA125       22     A     
 COMPASS            EQ     ALC15       LSTTHOU.NE.0 INDICATES FAILURE OF REQUEST           CPSA125       23     A     
 COMPASS                                                                                   CPSA125       24     A     
 COMPASS  *         PASS 2 OVERFLOW.                                                       COMPASS     1807     A     
 COMPASS                                                                                   COMPASS     1808     A     
 COMPASS   ALC11    SA1    L.COMTAB    CHECK IF TABLES CAN BE SHRUNK                       COMPASS     1809          I
          -CPS005 
 COMPASS            SA2    L.LNKTAB                                                        COMPASS     1810          I
          -CPS005 
 COMPASS            IX1    X2+X1                                                           COMPASS     1811          I
          -CPS005 
 COMPASS            SA4    L.EXTAB                                                         COMPASS     1812          I
          -CPS005 
 COMPASS            IX2    X1-X4                                                           COMPASS     1813          I
          -CPS005 
 COMPASS            ZR     X2,ALC12    IF NO ROOM TO BUY                                   COMPASS     1814          I
          -CPS005 
 COMPASS            ZR     X1,ALC12                                                        CMP30       1411          I
          -CPS005 
 COMPASS            RJ     /PASS2/DLAST STRIP THOSE TABLES                                 COMPASS     1815          I
          -CPS005 
 COMPASS   ALC11    SA2    L.COMTAB    TRY DUMPING COMMON AND EXTERNAL            S005   7 CPS005         1     A     
 COMPASS            SA3    L.LNKTAB    LINKAGE TABLES TO BINARY OUTPUT            S005   8 CPS005         2     A     
 COMPASS            SA4    L.EXTAB                                                S005   9 CPS005         3     A     
 COMPASS            SB2    X2                                                     S005  10 CPS005         4     A     
 COMPASS            GT     B2,B1,ALC11A IF COMMON TABLE NOT EMPTY                 S005  11 CPS005         5     A     
 COMPASS            SB3    X3                                                     S005  12 CPS005         6     A     
 COMPASS            SB4    X4+B1                                                  S005  13 CPS005         7     A     
 COMPASS            LE     B3,B4,ALC12  IF NO EXTERNAL LINKAGES                   S005  14 CPS005         8     A     
 COMPASS   ALC11A   RJ     /PASS2/DLAST STRIP THOSE TABLES                        S005  15 CPS005         9     A     
 COMPASS            EQ     ALC15       AND TRY AGAIN                                       COMPASS     1816     A     
 COMPASS                                                                                   CPSA125       25     A     
 COMPASS   ALC12    SA1    L.REFTAB    TRY TO DUMP REFERENCES TO DISK                      COMPASS     1817     A     
 COMPASS            IX7    X1+X0                                                           COMPASS     1818          I
          -CPSA125
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 307    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X7,ALC13    IF NOT ENOUGH ROOM                                  COMPASS     1819          I
          -CPSA125
 COMPASS            ZR     X1,ALC10B   IF NO REFRENCES TRY TO GET MORE FL.                 CPSA125       26     A     
 COMPASS            SA2    O.REFTAB                                                        COMPASS     1820     A     
 COMPASS                                                                                   CMP30       1412     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1413     A     
 COMPASS            WRITEW R,X2,X1     DUMP REFERENCES                                     COMPASS     1821     A     
 COMPASS   RM       ELSE                                                                   CMP30       1414     A     
 COMPASS            FETCH  R,OC,X3                                                         CMP30       1415     A     
 COMPASS            SX6    X3-#YES#                                                        CMP30       1416     A     
 COMPASS            ZR     X6,ALC12A   IF FILE IS ALREADY OPEN                             CMP30       1417     A     
 COMPASS            OPENM  R,I-O,R                                                         CMP30       1418     A     
 COMPASS            SA1    L.REFTAB                                                        CMP30       1419     A     
 COMPASS            SA2    O.REFTAB                                                        CMP30       1420     A     
 COMPASS   ALC12A   IX3    X1+X1                                                           CMP30       1421     A     
 COMPASS            LX1    3                                                               CMP30       1422     A     
 COMPASS            IX7    X1+X3                                                           CMP30       1423     A     
 COMPASS            PUTP   R,X2,X7     DUMP REFERENCES                                     CMP30       1424     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1425     A     
 COMPASS                                                                                   CMP30       1426     A     
 COMPASS            SX6    B1                                                              COMPASS     1822     A     
 COMPASS            MX7    0                                                               COMPASS     1823     A     
 COMPASS            SA6    /PASS2/REFIO                                                    COMPASS     1824     A     
 COMPASS            SA7    L.REFTAB                                                        COMPASS     1825     A     
 COMPASS            EQ     ALC15                                                           COMPASS     1826     A     
 COMPASS                                                                                   COMPASS     1827     A     
 COMPASS   ALC13    MESSAGE (=C* TABLE OVERFLOW IN PASS 2.*)                               COMPASS     1828          I
          -CMP30  
 COMPASS   ABORT    ABORT                                                                  COMPASS     1829          I
          -CMP30  
 COMPASS   ALC13    SA1    =10HPASS 2 TAB                                                  CMP30       1427     A     
 COMPASS            BX6    X1                                                              CMP30       1428     A     
 COMPASS            SA6    ASMK                                                            CMP30       1429     A     
 COMPASS            EQ     ALC17                                                           CMP30       1430     A     
 COMPASS                                                                                   COMPASS     1830     A     
 COMPASS  *         DUMP INTERMEDIATE TO DISK.                                             COMPASS     1831     A     
 COMPASS                                                                                   COMPASS     1832     A     
 COMPASS   ALC14    SX2    S           PREPARE TO DUMP INTERMEDIATE                        COMPASS     1833          I
          -CMP30  
 COMPASS            SA1    O.INTER     ORIGIN OF INTERMEDIATE TABLE                        COMPASS     1834          I
          -CMP30  
 COMPASS   ALC14    SA1    O.INTER     ORIGIN OF INTERMEDIATE TABLE                        CMP30       1431          I
          -CPS135 
 COMPASS            SA3    L.INTER     ITS LENGTH                                          COMPASS     1835          I
          -CPS135 
 COMPASS   ALC14    BSS    0                                                       CPS135  CPS135         4     A     
 COMPASS                                                                                   CMP30       1432     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1433     A     
 COMPASS                                                                                   CMP30       1434     A     
 COMPASS            SX2    S           ENSURE SCRATCH FILE IS NOT BUSY             CPS135  CPS135         5     A     
 COMPASS            RECALL X2                                                      CPS135  CPS135         6     A     
 COMPASS            SX2    S                                                               CPSA116        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/28. 19.11.32.      PAGE 308    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            REWIND X2,R        INSURE FILE IS POSITIONED AT BOI.                   CPSA116        6     A     
 COMPASS            SA1    O.INTER     ORIGIN OF INTERMEDIATE TABLE                CPS135  CPS135         7     A     
 COMPASS            SA3    L.INTER     ITS LENGTH                                  CPS135  CPS135         8     A     
 COMPASS            MX6    0                                                               COMPASS     1836     A     
 COMPASS            SX7    B1                                                              COMPASS     1837     A     
 COMPASS            SA6    A3          ZERO LENGTH OF INTERMEDIATE                         COMPASS     1838     A     
 COMPASS            SA7    A4          SET INTERMEDIATE FLAG                               COMPASS     1839     A     
 COMPASS            SX0    B7+B1                                                           COMPASS     1840     A     
 COMPASS            SX2    S                                                               CMP30       1435     A     
 COMPASS            WRITEW X2,X1,X3                                                        COMPASS     1841     A     
 COMPASS            NZ     X0,ALC16    IF PASS 2                                           COMPASS     1842          I
          -CMP30  
 COMPASS            ZR     X0,ALC15    IF PASS 1                                           CMP30       1436     A     
 COMPASS            WRITER X2                                                              CMP30       1437     A     
 COMPASS            REWIND X2                                                              CMP30       1438     A     
 COMPASS            READ   X2                                                              CMP30       1439     A     
 COMPASS                                                                                   CMP30       1440     A     
 COMPASS   RM       ELSE                                                                   CMP30       1441     A     
 COMPASS                                                                                   CMP30       1442     A     
 COMPASS            FETCH  S,OC,X2                                                         CMP30       1443     A     
 COMPASS            SX6    X2-#YES#                                                        CMP30       1444     A     
 COMPASS            ZR     X6,ALC14A   IF FILE IS ALREADY OPEN                             CMP30       1445     A     
 COMPASS            OPENM  S,I-O,R                                                         CMP30       1446     A     
 COMPASS            SA1    O.INTER                                                         CMP30       1447          I
          -CPS135 
 COMPASS            SA3    L.INTER                                                         CMP30       1448          I
          -CPS135 
 COMPASS            SA4    INTERIO                                                         CMP30       1449          I
          -CPS135 
 COMPASS   ALC14A   MX6    0                                                               CMP30       1450          I
          -CPS135 
 COMPASS   ALC14A   SA1    O.INTER     ORIGIN OF INTERMIDATE TABLE                 CPS135  CPS135         9     A     
 COMPASS            SA3    L.INTER     ITS LENGTH                                  CPS135  CPS135        10     A     
 COMPASS            SX2    S                                                               CPSA116        7     A     
 COMPASS            REWINDM X2,R       INSURE FILE IS POSITIONED AT BOI.                   CPSA116        8     A     
 COMPASS            MX6    0                                                       CPS135  CPS135        11     A     
 COMPASS            SX7    B1                                                              CMP30       1451     A     
 COMPASS            SA6    A3          ZERO LENGTH OF INTERMEDIATE                         CMP30       1452     A     
 COMPASS            SA7    A4          SET INTERMEDIATE FLAG                               CMP30       1453          I
          -CPS135 
 COMPASS            IX4    X3+X3                                                           CMP30       1454     A     
 COMPASS            LX3    3                                                               CMP30       1455     A     
 COMPASS            SA7    INTERIO     SET INTERMEDIATE FLAG                       CPS135  CPS135        12     A     
 COMPASS            IX3    X3+X4                                                           CMP30       1456     A     
 COMPASS            PUT    S,X1,X3                                                         CMP30       1457     A     
 COMPASS            SA3    PASS                                                            CMP30       1458     A     
 COMPASS            SB7    X3                                                              CMP30       1459     A     
 COMPASS            EQ     B7,B1,ALC15 IF PASS 1                                           CMP30       1460     A     
 COMPASS            PUT    S,BLANKS,10 JUNK WORD FOR RINTER READ AHEAD                     CMP30       1461     A     
 COMPASS            REWINDM S                                                              CMP30       1462     A     
 COMPASS                                                                                   CMP30       1463     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1464     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 309    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       1465     A     
 COMPASS   ALC15    SA2    ALCC        RESTORE ENTRY VALUES                                COMPASS     1843     A     
 COMPASS            SA1    A2+B1                                                           COMPASS     1844     A     
 COMPASS            SA0    X2                                                              COMPASS     1845     A     
 COMPASS            EQ     ALC1        AND TRY AGAIN                                       COMPASS     1846     A     
 COMPASS                                                                                   COMPASS     1847          I
          -CMP30  
 COMPASS  *         PASS 2 INTERMEDIATE OVERFLOW.                                          COMPASS     1848          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1849          I
          -CMP30  
 COMPASS   ALC16    WRITER X2                                                              COMPASS     1850          I
          -CMP30  
 COMPASS            REWIND X2                                                              COMPASS     1851          I
          -CMP30  
 COMPASS            READ   X2                                                              COMPASS     1852          I
          -CMP30  
 COMPASS            EQ     ALC15       EXIT                                                COMPASS     1853          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1854     A     
 COMPASS   ALC17    MESSAGE (=C* TABLE OVERFLOW IN PASS 1.*)                               COMPASS     1855          I
          -CMP30  
 COMPASS            EQ     ABORT                                                           COMPASS     1856          I
          -CMP30  
 COMPASS   ALC17    MESSAGE ASMJ,,R    *ASSEMBLY ABORTED - PASS N TABLE*                   CMP30       1466          I
          -F4810B 
 COMPASS   ALC17    SA1    ALCC+1      GET NUMBER OF WORDS NEEDED                  F4810B  F4810B        67          I
          -CPSA125
 COMPASS            RJ     RFL         MAKE MEMORY REQUEST                         F4810B  F4810B        68          I
          -CPSA125
 COMPASS            NZ     X3,ALC15    IF REQUEST COMPLETED, RESTORE AND TRY AGAIN F4810B  F4810B        69          I
          -CPSA125
 COMPASS   ALC17    BSS    0                                                               CPSA125       27     A     
 COMPASS            MESSAGE ASMJ,,R     *ASSEMBLY ABORTED - PASS N TABLE*          F4810B  F4810B        70     A     
 COMPASS            MESSAGE ASML,,R    *OVERFLOW ASSEMBLING XXXXXXX*                       CMP30       1467     A     
 COMPASS            RJ     RPD         RESTORE DEFAULT PRINT DENSITY IF NECESSARY  F4810A  F4810A       107     A     
 COMPASS            SA2    ALCC                                                            CMP30       1468     A     
 COMPASS            SA3    A2+B1                                                           CMP30       1469     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30       1470     A     
 COMPASS                                                                                   COMPASS     1857     A     
 COMPASS  *         PASS 3 OVERFLOW.                                                       COMPASS     1858     A     
 COMPASS                                                                                   COMPASS     1859     A     
 COMPASS   ALC18    SX6    B0                                                              COMPASS     1860          I
          -CMP042 
 COMPASS            SA6    L.MEMORY                                                        COMPASS     1861          I
          -CMP042 
 COMPASS   ALC18    SA1    /PASS2/LOSTREF  UPDATE LOSTREF AND DISCARD MEMORY               CMP042        36     A     
 COMPASS            SA2    L.MEMORY                                                        CMP042        37     A     
 COMPASS            IX6    X1+X2                                                           CMP042        38     A     
 COMPASS            SX7    B0                                                              CMP042        39     A     
 COMPASS            SA6    A1                                                              CMP042        40     A     
 COMPASS            SA7    A2                                                              CMP042        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/28. 19.11.32.      PAGE 310    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     ALC15       EXIT                                                COMPASS     1862     A     
 COMPASS                                                                                   COMPASS     1863     A     
 COMPASS   ALCC     DATA   0,0         TEMPORARY STORAGE FOR OVERFLOW                      COMPASS     1864     A     
 COMPASS   ASU      SPACE  4                                                               COMPASS     1865     A     
 COMPASS  **        ASU - ACCUMULATE STORAGE USED.                                         COMPASS     1866     A     
 COMPASS  *         (A0) IS PRESERVED.                                                     COMPASS     1867     A     
 COMPASS                                                                                   COMPASS     1868     A     
 COMPASS                                                                                   COMPASS     1869     A     
 COMPASS   ASU      PS                 RETURN EXIT                                         COMPASS     1870     A     
 COMPASS            SB7    NTABLES-4   COUNT STORAGE USED                                  COMPASS     1871     A     
 COMPASS            SA3    LOCORE                                                          COMPASS     1872     A     
 COMPASS            SA2    MAXCORE                                                         COMPASS     1873     A     
 COMPASS            SA1    SIZES+1                                                         COMPASS     1874     A     
 COMPASS   ASU1     SB7    B7-B1       IGNORE INTER AND REFTAB                             COMPASS     1875     A     
 COMPASS            IX3    X3+X1                                                           COMPASS     1876     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     1877     A     
 COMPASS            NZ     B7,ASU1     LOOP                                                COMPASS     1878     A     
 COMPASS            SA1    A1+B1       ADD IN L.MEMORY                                     COMPASS     1879     A     
 COMPASS            IX6    X3+X1                                                           COMPASS     1880     A     
 COMPASS            IX2    X6-X2                                                           COMPASS     1881     A     
 COMPASS            NG     X2,ASU      IF NEW MAX < OLD MAX                                COMPASS     1882     A     
 COMPASS            SA6    A2                                                              COMPASS     1883     A     
 COMPASS            EQ     ASU         RETURN                                              COMPASS     1884     A     
 COMPASS   ATS      SPACE  4                                                               CMP042        42     A     
 COMPASS  **        ATS - ACCUMULATE TOTAL STORAGE USED.                                   CMP042        43     A     
 COMPASS                                                                                   CMP042        44     A     
 COMPASS                                                                                   CMP042        45     A     
 COMPASS   ATS      PS                 RETURN EXIT                                         CMP042        46     A     
 COMPASS            SA1    MAXCORE                                                         CMP042        47     A     
 COMPASS            SA2    MAXSCM                                                          CMP042        48          I
          -CMP30  
 COMPASS            SA2    CP.MAXFL                                                        CMP30       1471     A     
 COMPASS            IX3    X2-X1                                                           CMP042        49     A     
 COMPASS            BX6    X1                                                              CMP042        50     A     
 COMPASS            PL     X3,ATS1     IF OLD MAX \ NEW MAX                       S028 297 CPS028       208     A     
 COMPASS            SA6    A2                                                     S028 298 CPS028       209     A     
 COMPASS   ATS1     SA1    ALCM        ECS/LCM USED                               S028 299 CPS028       210     A     
 COMPASS            SA2    BLCM                                                   S028 300 CPS028       211     A     
 COMPASS            IX3    X2-X1                                                  S028 301 CPS028       212     A     
 COMPASS            BX6    X1                                                     S028 302 CPS028       213     A     
 COMPASS            PL     X3,ATS      IF OLD MAX \ NEW MAX                                CMP042        51     A     
 COMPASS            SA6    A2                                                              CMP042        52     A     
 COMPASS            EQ     ATS         RETURN                                              CMP042        53     A     
 COMPASS   CBC      SPACE  4                                                               CMP30       1472     A     
 COMPASS  **        CBC - CHECK BASE CHARACTER.                                            CMP30       1473     A     
 COMPASS  *         ASSUMED NUMBER RADIX IS CHANGED TO THAT SPECIFIED.                     CMP30       1474     A     
 COMPASS  *         ENTRY  (X1) = CHARACTER OR ASTERISK OR BLANK.                          CMP30       1475     A     
 COMPASS  *         EXIT   (X1) = CHARACTER.                                               CMP30       1476     A     
 COMPASS  *                (X6) < 0 IF ERROR.                                              CMP30       1477     A     
 COMPASS                                                                                   CMP30       1478     A     
 COMPASS                                                                                   CMP30       1479     A     
 COMPASS   CBC      PS                 RETURN EXIT                                         CMP30       1480     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 311    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X1-1R*                                                          CMP30       1481     A     
 COMPASS            SA2    CBCA+2                                                          CMP30       1482     A     
 COMPASS            SB6    X1-1R                                                           CMP30       1483     A     
 COMPASS            ZR     B7,CBC3     IF ASTERISK                                         CMP30       1484     A     
 COMPASS            ZR     B6,CBC4     IF BLANK                                            CMP30       1485     A     
 COMPASS            SB7    3                                                               CMP30       1486     A     
 COMPASS   CBC1     UX6,B6 X2          SEARCH LIST OF VALID BASE LETTERS                   CMP30       1487     A     
 COMPASS            SB5    X1+B6                                                           CMP30       1488     A     
 COMPASS            SB7    B7-B1                                                           CMP30       1489     A     
 COMPASS            SA2    A2-B1                                                           CMP30       1490     A     
 COMPASS            ZR     B5,CBC2     IF FOUND                                            CMP30       1491     A     
 COMPASS            NZ     B7,CBC1                                                         CMP30       1492     A     
 COMPASS            SX7    B1          NOT FOUND, SET *A* ERROR AND RETURN                 CMP30       1493     A     
 COMPASS            MX6    1                                                               CMP30       1494     A     
 COMPASS            SA7    EFLG                                                            CMP30       1495     A     
 COMPASS            SA7    AERR                                                            CMP30       1496     A     
 COMPASS            EQ     CBC                                                             CMP30       1497     A     
 COMPASS   CBC2     SA1    BASESTK                                                         CMP30       1498     A     
 COMPASS            SA2    ABASE                                                           CMP30       1499     A     
 COMPASS            SX7    X6                                                              CMP30       1500     A     
 COMPASS            AX6    18                                                              CMP30       1501     A     
 COMPASS            SA7    NBASE       STORE NEW RADICES                                   CMP30       1502     A     
 COMPASS            SA6    MBASE                                                           CMP30       1503     A     
 COMPASS            SX7    B7                                                              CMP30       1504     A     
 COMPASS            BX6    X2                                                              CMP30       1505     A     
 COMPASS            SA7    A2                                                              CMP30       1506     A     
 COMPASS            RJ     PUSH        PUSH DOWN BASE STACK                                CMP30       1507     A     
 COMPASS            SA1    ABASE                                                           CMP30       1508     A     
 COMPASS            SA2    CBCA+X1                                                         CMP30       1509     A     
 COMPASS            UX6,B6 X2                                                              CMP30       1510     A     
 COMPASS            SX1    -B6         RESTORE (X1)                                        CMP30       1511     A     
 COMPASS            EQ     CBC                                                             CMP30       1512     A     
 COMPASS   CBC3     SA1    BASESTK                                                         CMP30       1513     A     
 COMPASS            RJ     PULL        PUSH UP BASE STACK                                  CMP30       1514     A     
 COMPASS            SA2    CBCA+X6                                                         CMP30       1515     A     
 COMPASS            UX7,B7 X2                                                              CMP30       1516     A     
 COMPASS            SX1    -B7         (X1) = CHARACTER                                    CMP30       1517     A     
 COMPASS            SA6    ABASE                                                           CMP30       1518     A     
 COMPASS            SX6    X7                                                              CMP30       1519     A     
 COMPASS            AX7    18                                                              CMP30       1520     A     
 COMPASS            SA6    NBASE       SET RADICES                                         CMP30       1521     A     
 COMPASS            SA7    MBASE                                                           CMP30       1522     A     
 COMPASS            EQ     CBC         RETURN                                              CMP30       1523     A     
 COMPASS   CBC4     SA1    ABASE                                                           CMP30       1524     A     
 COMPASS            SA2    CBCA+X1                                                         CMP30       1525     A     
 COMPASS            UX6,B7 X2                                                              CMP30       1526     A     
 COMPASS            SX1    -B7         (X1) = CURRENT BASE                                 CMP30       1527     A     
 COMPASS            EQ     CBC         RETURN                                              CMP30       1528     A     
 COMPASS                                                                                   CMP30       1529     A     
 COMPASS   CBCA     VFD    2/0,10/-1RD,30/10,18/10     -CHAR, MBASE, NBASE                 CMP30       1530     A     
 COMPASS            VFD    2/0,10/-1RO,30/8,18/8                                           CMP30       1531     A     
 COMPASS            VFD    2/0,10/-1RM,30/10,18/8                                          CMP30       1532     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 312    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CCC      SPACE  4                                                               COMPASS     1885     A     
 COMPASS  **        CCC - CHECK CODE CHARACTER.                                            COMPASS     1886     A     
 COMPASS  *         CHARACTER CODE TYPE IS CHANGED TO THAT SPECIFIED.                      COMPASS     1887     A     
 COMPASS  *         ENTRY  (X1) = CHARACTER.                                               COMPASS     1888          I
          -CMP30  
 COMPASS  *         EXIT   (X1) UNCHANGED.                                                 COMPASS     1889          I
          -CMP30  
 COMPASS  *         ENTRY  (X1) = CHARACTER OR ASTERISK OR BLANK.                          CMP30       1533     A     
 COMPASS  *         EXIT   (X1) = CHARACTER.                                               CMP30       1534     A     
 COMPASS  *                (X6) < 0 IF ERROR.                                              COMPASS     1890     A     
 COMPASS                                                                                   COMPASS     1891     A     
 COMPASS                                                                                   COMPASS     1892     A     
 COMPASS   CCC      PS                 RETURN EXIT                                         COMPASS     1893     A     
 COMPASS            SX2    1062B       CHECK FOR \IEDA@                                    COMPASS     1894          I
          -CMP30  
 COMPASS            SB7    X1                                                              COMPASS     1895          I
          -CMP30  
 COMPASS            AX6    X2,B7                                                           COMPASS     1896          I
          -CMP30  
 COMPASS            LX6    59                                                              COMPASS     1897          I
          -CMP30  
 COMPASS            SX7    B1                                                              COMPASS     1898          I
          -CMP30  
 COMPASS            NG     X6,CCC1     IF CHARACTER VALID                                  COMPASS     1899          I
          -CMP30  
 COMPASS            SA7    EFLG        SET *A* ERROR                                       COMPASS     1900          I
          -CMP30  
 COMPASS            SA7    AERR                                                            COMPASS     1901          I
          -CMP30  
 COMPASS            MX6    1                                                               COMPASS     1902          I
          -CMP30  
 COMPASS            EQ     CCC         RETURN                                              COMPASS     1903          I
          -CMP30  
 COMPASS   CCC1     CX2    X6          SET CHARACTER TYPE                                  COMPASS     1904          I
          -CMP30  
 COMPASS            SA3    CCCA                                                            COMPASS     1905          I
          -CMP30  
 COMPASS            LX2    3                                                               COMPASS     1906          I
          -CMP30  
 COMPASS            SB7    X2                                                              COMPASS     1907          I
          -CMP30  
 COMPASS            MX0    -8                                                              COMPASS     1908          I
          -CMP30  
 COMPASS            AX6    X3,B7                                                           COMPASS     1909          I
          -CMP30  
 COMPASS            BX6    -X0*X6                                                          COMPASS     1910          I
          -CMP30  
 COMPASS            SA6    CT                                                              COMPASS     1911          I
          -CMP30  
 COMPASS            EQ     CCC         RETURN                                              COMPASS     1912          I
          -CMP30  
 COMPASS                                                                                   COMPASS     1913          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 313    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS   CCCA     VFD    20/,8/18,8/0,8/6,8/12,8/  A D E I                               COMPASS     1914          I
          -CMP30  
 COMPASS            SB7    X1-1R*                                                          CMP30       1535     A     
 COMPASS            SA2    CCCA+3                                                          CMP30       1536          I
          -CPS011 
 COMPASS            SA2    CCCA+4                                                          CPS011         3          I
          -CPSA281
 COMPASS            SA2    CCCA+5                                                          CPSA281       22     A     
 COMPASS            SB6    X1-1R                                                           CMP30       1537     A     
 COMPASS            ZR     B7,CCC3     IF ASTERISK                                         CMP30       1538     A     
 COMPASS            ZR     B6,CCC4     IF BLANK                                            CMP30       1539     A     
 COMPASS            SB7    4                                                               CMP30       1540          I
          -CPS011 
 COMPASS            SB7    5                                                               CPS011         4          I
          -CPSA281
 COMPASS            SB7    6                                                               CPSA281       23     A     
 COMPASS   CCC1     UX6,B6 X2          SEARCH LIST OF VALID CODE LETTERS                   CMP30       1541     A     
 COMPASS            SB5    X1+B6                                                           CMP30       1542     A     
 COMPASS            SB7    B7-B1                                                           CMP30       1543     A     
 COMPASS            SA2    A2-B1                                                           CMP30       1544     A     
 COMPASS            ZR     B5,CCC2     IF FOUND                                            CMP30       1545     A     
 COMPASS            NZ     B7,CCC1                                                         CMP30       1546     A     
 COMPASS   CCC1A    BSS    0                                                               CPSA281       24     A     
 COMPASS            SX7    B1          NOT FOUND, SET *A* ERROR AND RETURN                 CMP30       1547     A     
 COMPASS            MX6    1                                                               CMP30       1548     A     
 COMPASS            SA7    EFLG                                                            CMP30       1549     A     
 COMPASS            SA7    AERR                                                            CMP30       1550     A     
 COMPASS            EQ     CCC                                                             CMP30       1551     A     
 COMPASS   CCC2     SA1    CODESTK                                                         CMP30       1552          I
          -CPSA281
 COMPASS   CCC2     SX1    B7-5                                                            CPSA281       25     A     
 COMPASS            NZ     X1,CCC2A    IF NOT CODE *N*                                     CPSA281       26          I
          -CPSA293
 COMPASS            SA1    PPTYPE                                                          CPSA281       27          I
          -CPSA293
 COMPASS            SX1    X1+3                                                            CPSA281       28          I
          -CPSA293
 COMPASS            NZ     X1,CCC1A    IF NOT 180 PP ASSEMBLY - *N* NOT VALID              CPSA281       29          I
          -CPSA293
 COMPASS   CCC2A    SA1    CODESTK                                                         CPSA281       30          I
          -CPSA293
 COMPASS            SA2    PPTYPE      (X2) = 0 IF 180 PP ASSEMBLY                         CPSA293       14     A     
 COMPASS            SX2    X2+3                                                            CPSA293       15     A     
 COMPASS            NZ     X1,CCC2A    IF NOT CODE *N*                                     CPSA293       16     A     
 COMPASS            NZ     X2,CCC1A    *N* VALID FOR 180 PP ASSEMBLY ONLY                  CPSA293       17     A     
 COMPASS            SA3    /DATA/STCZ  SET FOR CHARACTER STORE OF 8-BIT/ASCII              CPSA293       18     A     
 COMPASS            EQ     CCC2B                                                           CPSA293       19     A     
 COMPASS                                                                                   CPSA293       20     A     
 COMPASS   CCC2A    NZ     X2,CCC2C    IF NOT 180 PP ASSEMBLY                              CPSA293       21     A     
 COMPASS            SA3    /DATA/STCW  SET FOR CHARACTER STORE OF 6-BIT/NON-ASCII          CPSA293       22     A     
 COMPASS   CCC2B    BX7    X3          SET CHARACTER STORE                                 CPSA293       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/28. 19.11.32.      PAGE 314    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       24     A     
 COMPASS   CCC2C    SA1    CODESTK                                                         CPSA293       25     A     
 COMPASS            SA2    CT+1                                                            CMP30       1553     A     
 COMPASS            SX7    B7                                                              CMP30       1554     A     
 COMPASS            SA6    A2-B1       STORE NEW CODE                                      CMP30       1555     A     
 COMPASS            SA7    A2                                                              CMP30       1556     A     
 COMPASS            BX6    X2                                                              CMP30       1557     A     
 COMPASS            RJ     PUSH        PUSH DOWN CODE STACK                                CMP30       1558     A     
 COMPASS            SA1    CT+1                                                            CMP30       1559     A     
 COMPASS            SA2    CCCA+X1                                                         CMP30       1560     A     
 COMPASS            UX6,B6 X2                                                              CMP30       1561     A     
 COMPASS            SX1    -B6         RESTORE (X1)                                        CMP30       1562     A     
 COMPASS            EQ     CCC         RETURN                                              CMP30       1563     A     
 COMPASS   CCC3     SA1    CODESTK                                                         CMP30       1564     A     
 COMPASS            RJ     PULL        PUSH UP CODE STACK                                  CMP30       1565     A     
 COMPASS            SA2    CCCA+X6                                                         CMP30       1566     A     
 COMPASS            UX7,B7 X2                                                              CMP30       1567     A     
 COMPASS            SX1    -B7         (X1) = LETTER                                       CMP30       1568     A     
 COMPASS            SA6    CT+1        SET CODE TYPE                                       CMP30       1569     A     
 COMPASS            SA7    A6-B1                                                           CMP30       1570     A     
 COMPASS            SA2    PPTYPE                                                          CPSA293       26     A     
 COMPASS            SX2    X2+3                                                            CPSA293       27     A     
 COMPASS            NZ     X2,CCC      RETURN IF NOT 180 PP ASSEMBLY                       CPSA293       28     A     
 COMPASS            SA3    /DATA/STCZ  SET FOR CHARACTER STORE OF 8-BIT/ASCII              CPSA293       29     A     
 COMPASS            SX7    X6-5                                                            CPSA293       30     A     
 COMPASS            ZR     X7,CCC3A    IF SETTING BACK TO CODE *N*                         CPSA293       31     A     
 COMPASS            SA3    /DATA/STCW  SET FOR CHARACTER STORE OF 6-BIT/NON-ASCII          CPSA293       32     A     
 COMPASS   CCC3A    BX7    X3          SET CHARACTER STORE                                 CPSA293       33     A     
 COMPASS            SA7    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       34     A     
 COMPASS            EQ     CCC         RETURN                                              CMP30       1571     A     
 COMPASS   CCC4     SA1    CT+1                                                            CMP30       1572     A     
 COMPASS            SA2    CCCA+X1                                                         CMP30       1573     A     
 COMPASS            UX6,B7 X2                                                              CMP30       1574     A     
 COMPASS            SX1    -B7         (X1) = CURRENT CODE                                 CMP30       1575     A     
 COMPASS            EQ     CCC         RETURN                                              CMP30       1576     A     
 COMPASS                                                                                   CMP30       1577     A     
 COMPASS   CCCA     VFD    2/0,10/-1RD,48/0            -CHAR, CT VALUE                     CMP30       1578          I
          -F4820  
 COMPASS            VFD    2/0,10/-1RE,48/6                                                CMP30       1579          I
          -F4820  
 COMPASS            VFD    2/0,10/-1RI,48/12                                               CMP30       1580          I
          -F4820  
 COMPASS            VFD    2/0,10/-1RA,48/18                                               CMP30       1581          I
          -F4820  
 COMPASS            VFD    2/0,10/-1RO,48/24                                               CPS011         5          I
          -F4820  
 COMPASS   CCCA     VFD    2/0,10/-1RD,48/0                                                F4820         43          I
          -CPSA281
 COMPASS            VFD    2/0,10/-1RE,48/12                                               F4820         44          I
          -CPSA281
 COMPASS            VFD    2/0,10/-1RI,48/24                                               F4820         45          I
          -CPSA281
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 315    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            VFD    2/0,10/-1RA,48/36                                               F4820         46          I
          -CPSA281
 COMPASS            VFD    2/0,10/-1RO,48/48                                               F4820         47          I
          -CPSA281
 COMPASS   CCCA     VFD    2/0,10/-1RD,48/0        -CHAR, CT VALUE                         CPSA281       31     A     
 COMPASS            VFD    2/0,10/-1RE,48/9                                                CPSA281       32     A     
 COMPASS            VFD    2/0,10/-1RI,48/18                                               CPSA281       33     A     
 COMPASS            VFD    2/0,10/-1RA,48/27                                               CPSA281       34     A     
 COMPASS            VFD    2/0,10/-1RO,48/36                                               CPSA281       35     A     
 COMPASS            VFD    2/0,10/-1RN,48/45                                               CPSA281       36     A     
 COMPASS   CDEC     SPACE  4                                                               COMPASS     1915     A     
 COMPASS  **        CDEC - CONVERT DECIMAL NUMBER.                                         COMPASS     1916     A     
 COMPASS  *         ENTRY  (X1) = DECIMAL NUMBER.                                          COMPASS     1917     A     
 COMPASS  *         EXIT   (X6) = DISPLAY CODE FOR DECIMAL NUMBER.                         COMPASS     1918     A     
 COMPASS                                                                                   COMPASS     1919     A     
 COMPASS                                                                                   COMPASS     1920     A     
 COMPASS   CDEC     PS                 RETURN EXIT                                         COMPASS     1921     A     
 COMPASS            SA2    =0.1000000001P48                                                COMPASS     1922          I
          -CPS188 
 COMPASS            SA2    =0.10000000001P48                                               CPS188         5     A     
 COMPASS            SA3    =10.0P0                                                         COMPASS     1923     A     
 COMPASS            SA4    =10H0000000000                                                  COMPASS     1924     A     
 COMPASS            SB6    6                                                               COMPASS     1925     A     
 COMPASS            PX1    X1                                                              COMPASS     1926     A     
 COMPASS            SB7    X3                                                              COMPASS     1927     A     
 COMPASS            BX6    X4                                                              COMPASS     1928     A     
 COMPASS   CDC1     DX4    X1*X2                                                           COMPASS     1929     A     
 COMPASS            FX1    X1*X2                                                           COMPASS     1930     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     1931     A     
 COMPASS            FX5    X4*X3       CALCULATE REMAINDER                                 COMPASS     1932     A     
 COMPASS            SX0    X5                                                              COMPASS     1933     A     
 COMPASS            IX6    X6+X0                                                           COMPASS     1934     A     
 COMPASS            LX6    54                                                              COMPASS     1935     A     
 COMPASS            NZ     B7,CDC1     LOOP                                                COMPASS     1936     A     
 COMPASS            EQ     CDEC        RETURN                                              COMPASS     1937     A     
 COMPASS   CIF      SPACE  4                                                               CMP30       1582     A     
 COMPASS  **        CIF - CHECK INPUT FORMAT.                                              CMP30       1583     A     
 COMPASS  *         ENTRY  (X2) = FET/FIT ADDRESS.                                         CMP30       1584     A     
 COMPASS  *                (A0) = FWA OF CARD BUFFER.                                      CMP30       1585     A     
 COMPASS  *         EXIT   (AMODE) = INPUT FILE FORMAT.                                    CMP30       1586     A     
 COMPASS  *                (CARD BUFFER) = FIRST CARD.                                     CMP30       1587     A     
 COMPASS  *                (EOFINP) " 0 IF NO DATA.                                        CMP30       1588     A     
 COMPASS  *         X2 AND A0 ARE PRESERVED.                                               CMP30       1589     A     
 COMPASS                                                                                   CMP30       1590     A     
 COMPASS                                                                                   CMP30       1591     A     
 COMPASS   CIF      PS                 RETURN EXIT                                         CMP30       1592     A     
 COMPASS                                                                                   CMP30       1593     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       1594     A     
 COMPASS                                                                                   CMP30       1595     A     
 COMPASS            MX6    0                                                               CMP30       1596     A     
 COMPASS            SA6    A0+10                                                           CMP30       1597     A     
 COMPASS            RJ     /PASS1/RNC  READ FIRST CARD OR 7700 HEADER WORD                 CMP30       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/28. 19.11.32.      PAGE 316    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A0                                                              CMP30       1599     A     
 COMPASS            LX1    6                                                               CMP30       1600     A     
 COMPASS            SB7    X1-77B                                                          CMP30       1601     A     
 COMPASS            LX1    18                                                              CMP30       1602     A     
 COMPASS            NZ     B7,CIF      IF NOT COMPRESSED SOURCE INPUT                      CMP30       1603     A     
 COMPASS            SB7    X1          (I.E., FIRST CHARACTER NOT 77B)                     CMP30       1604     A     
 COMPASS            AX1    24                                                              CMP30       1605     A     
 COMPASS            SX6    B1+B1       CP.IFORM = +2 (UPDATE)                              CMP30       1606     A     
 COMPASS            ZR     B7,CIF1     IF WORD COUNT IN HEADER WORD IS ZERO                CMP30       1607     A     
 COMPASS            SX6    B1          CP.IFORM = +1 (MODIFY)                              CMP30       1608     A     
 COMPASS            ZR     X1,CIF1     IF REMAINDER OF HEADER WORD IS ZERO                 CP114          8     A     
 COMPASS            SX7    64B                                                             CP114          9     A     
 COMPASS            LX7    24          CHECK FOR 0064B IN BITS 35-24                       CP114         10     A     
 COMPASS            SX6    3           CP.IFORM = +3 (MODIFY 64-CHAR)                      CP114         11     A     
 COMPASS            BX1    X1-X7                                                           CP114         12     A     
 COMPASS   CIF1     NZ     X1,CIF      IF NOT COMPRESSED                                   CMP30       1609     A     
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CMP30       1610     A     
 COMPASS                                                                                   CMP30       1611     A     
 COMPASS   RM       ELSE                                                                   CMP30       1612     A     
 COMPASS                                                                                   CMP30       1613     A     
 COMPASS            MX6    0                                                               CMP30       1614     A     
 COMPASS            SX7    A0                                                              CMP30       1615     A     
 COMPASS            SA6    A0+10                                                           CMP30       1616     A     
 COMPASS            SA7    T6RM1       SAVE FWA OF CARD BUFFER                             CMP30       1617     A     
 COMPASS            SA0    X2                                                              CMP30       1618     A     
 COMPASS            GETP   X2,X7,10    READ FIRST WORD                                     CMP30       1619          I
          -CPS0094
 COMPASS            FETCH  X2,RT,X1    CHECK FOR RECORD TYPE Z                             CPS0094        7     A     
 COMPASS            SB7    X1-3                                                            CPS0094        8     A     
 COMPASS            ZR     B7,CIF4     IF RT=Z, INPUT IS NOT COMPRESSED                    CPS0094        9     A     
 COMPASS            SX2    A0                                                              CPS0094       10     A     
 COMPASS            SA1    T6RM1       FWA OF CARD BUFFER                                  CPS0094       11     A     
 COMPASS            GETP   X2,X1,10    READ FIRST WORD                                     CPS0094       12     A     
 COMPASS            SX2    A0                                                              CMP30       1620     A     
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       1621     A     
 COMPASS            SX0    EOD                                                             CMP30       1622     A     
 COMPASS            BX6    X0*X4                                                           CMP30       1623     A     
 COMPASS            SA6    EOFINP                                                          CMP30       1624     A     
 COMPASS            NZ     X6,CIF5     IF END OF DATA                                      CMP30       1625     A     
 COMPASS   +        ZR     X4,*+1      IF NOT END OF RECORD                                CMP30       1626     A     
 COMPASS            SX4    1                                                               CMP30       1627     A     
 COMPASS            SKIPBL X2,X4       BACKSPACE OVER WORD                                 CMP30       1628     A     
 COMPASS            SA4    T6RM1                                                           CMP30       1629     A     
 COMPASS            SX2    A0                                                              CMP30       1630     A     
 COMPASS            SA1    X4          FETCH WORD                                          CMP30       1631     A     
 COMPASS            BX3    X1                                                              CMP30       1632     A     
 COMPASS            AX1    -6                                                              CMP30       1633     A     
 COMPASS            NZ     X1,CIF4     IF NOT COMPRESSED SOURCE INPUT                      CMP30       1634     A     
 COMPASS            PL     X1,CIF4     (I.E., FIRST CHARACTER NOT 77B)                     CMP30       1635     A     
 COMPASS            MX0    -36                                                             CMP30       1636     A     
 COMPASS            SX6    B1+B1       CP.IFORM = +2 (UPDATE)                              CMP30       1637     A     
 COMPASS            BX4    -X0*X3                                                          CMP30       1638     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 317    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA5    =6R                                                             CMP30       1639     A     
 COMPASS            NZ     X4,CIF1     IF NOT ZEROS IN BITS 35-00                          CMP30       1640     A     
 COMPASS            LX3    24                                                              CMP30       1641     A     
 COMPASS            SX5    X3                                                              CMP30       1642     A     
 COMPASS            EQ     CIF2                                                            CMP30       1643     A     
 COMPASS   CIF1     BX4    X4-X5                                                           CMP30       1644     A     
 COMPASS            AX3    36                                                              CMP30       1645          I
          -CPS028 
 COMPASS            AX3    18                                                     S028 304 CPS028       214     A     
 COMPASS            NZ     X4,CIF4     IF NOT BLANKS IN BITS 35-00                         CMP30       1646     A     
 COMPASS            BX4    -X0*X3                                                          CMP30       1647     A     
 COMPASS            BX5    X5-X4                                                           CMP30       1648     A     
 COMPASS                                                                                   CMP30       1649          I
          -CPSA134
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       1650          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP       75          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       76          I
          -CPSA134
 COMPASS   DM       ELSE                                                                   F7540CP       77          I
          -CPSA134
 COMPASS                                                                                   CMP30       1651          I
          -CPSA134
 COMPASS   CIF2     ZR     X5,*+1      IF ZEROS OR BLANKS IN BITS 53-36                    CMP30       1652          I
          -CPSA134
 COMPASS            SX6    B1          CP.IFORM = +1 (MODIFY)                              CMP30       1653          I
          -CPSA134
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CMP30       1654          I
          -CPSA134
 COMPASS            FETCH  X2,RT,X3                                                        CMP30       1655          I
          -CPSA134
 COMPASS            SX5    X3-#WT#                                                         CMP30       1656          I
          -CPSA134
 COMPASS            ZR     X5,CIF3     IF RECORD TYPE *W*                                  CMP30       1657          I
          -CPSA134
 COMPASS            CLOSEM X2,N                                                            CMP30       1658          I
          -CPSA134
 COMPASS            SX2    A0                                                              CMP30       1659          I
          -CPSA134
 COMPASS            STORE  X2,RT=S     CHANGE FILE ATTRIBUTES                              CMP30       1660          I
          -CPSA134
 COMPASS            SA4    =16777210                                                       CMP30       1661          I
          -CPSA134
 COMPASS            STORE  X2,MRL=X4                                                       CMP30       1662          I
          -CPSA134
 COMPASS            OPENM  X2,INPUT,N                                                      CMP30       1663          I
          -CPSA134
 COMPASS            SX2    A0                                                              CMP30       1664          I
          -CPSA134
 COMPASS                                                                                   CMP30       1665          I
          -CPSA134
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 318    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DM       ELSE                                                                   CMP30       1666          I
          -F7540CP  -CPSA134
 COMPASS   DM       ENDIF                                                                  F7540CP       78          I
          -CPSA134
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP       79          I
          -CPSA134
 COMPASS                                                                                   CMP30       1667          I
          -CPSA134
 COMPASS   CIF2     NZ     X5,CIF4     IF NOT ZEROS NOR BLANKS IN BITS 53-36               CMP30       1668     A     
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CMP30       1669     A     
 COMPASS                                                                                   CMP30       1670          I
          -CPSA134
 COMPASS   DM       ENDIF                                                                  CMP30       1671          I
          -CPSA134
 COMPASS                                                                                   CMP30       1672          I
          -CPSA134
 COMPASS   CIF3     SA4    T6RM1                                                           CMP30       1673          I
          -CPS028 
 COMPASS   CIF3     SA1    CP.IFORM                                               S028 306 CPS028       215     A     
 COMPASS            SA4    T6RM1                                                  S028 307 CPS028       216     A     
 COMPASS            SB7    X1-2                                                   S028 308 CPS028       217     A     
 COMPASS            ZR     B7,CIF3A    IF UPDATE COMPRESSED COMPILE FILE          S028 309 CPS028       218     A     
 COMPASS            GETP   X2,X4,10    SKIP HEADER WORD                                    CMP30       1674     A     
 COMPASS            EQ     CIF5                                                            CMP30       1675     A     
 COMPASS   CIF3A    GETP   X2,X4,30                                               S028 311 CPS028       219     A     
 COMPASS            SA4    T6RM1       MOVE HEADER WORDS FOR FIRST CARD           S028 312 CPS028       220     A     
 COMPASS            SA1    X4+B1       TO END OF CARD BUFFER AREA                 S028 313 CPS028       221     A     
 COMPASS            SA3    A1+B1                                                  S028 314 CPS028       222     A     
 COMPASS            BX6    X1                                                     S028 315 CPS028       223     A     
 COMPASS            LX7    X3                                                     S028 316 CPS028       224     A     
 COMPASS            SA6    X4+14                                                  S028 317 CPS028       225     A     
 COMPASS            SA7    A6+B1                                                  S028 318 CPS028       226     A     
 COMPASS            EQ     CIF5                                                   S028 319 CPS028       227     A     
 COMPASS   CIF4     STORE  X2,MRL=100  NOT COMPRESSED, REDUCE MAX RECORD LENGTH            CMP30       1676          I
          -CPSA199
 COMPASS   CIF4     STORE  X2,MRL=160  NOT COMPRESSED, REDUCE MAX RECORD LENGTH            CPSA199        7     A     
 COMPASS   CIF5     SA4    T6RM1                                                           CMP30       1677     A     
 COMPASS            SX2    A0          RESTORE (X2)                                        CMP30       1678     A     
 COMPASS            SA0    X4          RESTORE (A0)                                        CMP30       1679     A     
 COMPASS                                                                                   CMP30       1680     A     
 COMPASS   RM       ENDIF                                                                  CMP30       1681     A     
 COMPASS                                                                                   CMP30       1682     A     
 COMPASS            RJ     /PASS1/RNC  READ FIRST CARD                                     CMP30       1683     A     
 COMPASS            EQ     CIF         RETURN                                              CMP30       1684     A     
 COMPASS   CLL      SPACE  4,8                                                             CP096A       113     A     
 COMPASS  **        CLL - CLEAR LCM AREA TO ZEROS.                                         CP096A       114     A     
 COMPASS  *         ENTRY  (X2) = FWA OF AREA.                                             CP096A       115     A     
 COMPASS  *                (X3) = LWA+1 OF AREA.                                           CP096A       116     A     
 COMPASS  *         CALLS  RLC, WLC.                                                       CP096A       117     A     
 COMPASS                                                                                   CP096A       118     A     
 COMPASS                                                                                   CP096A       119     A     
 COMPASS   CLL      PS                 RETURN EXIT                                         CP096A       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/28. 19.11.32.      PAGE 319    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX7    X3-X2                                                           CP096A       121     A     
 COMPASS            MI     X7,*+1S17   IF FWA IS GREATER THAN LWA+1                        CP096A       122     A     
 COMPASS            SX1    B0                                                              CP096A       123     A     
 COMPASS            BX4    X2                                                              CP096A       124     A     
 COMPASS            SX2    LCMB        CLEAR BUFFER BY READING FROM RAL+0                  CP096A       125     A     
 COMPASS            SX3    100B                                                            CP096A       126     A     
 COMPASS            RJ     RLC                                                             CP096A       127     A     
 COMPASS   CLL1     SX3    100B        DECREMENT WORD COUNT                                CP096A       128     A     
 COMPASS            IX6    X7-X3                                                           CP096A       129     A     
 COMPASS            BX1    X4                                                              CP096A       130     A     
 COMPASS            PL     X6,CLL2     IF AT LEAST 100B WORDS REMAIN                       CP096A       131     A     
 COMPASS            SX6    B0                                                              CP096A       132     A     
 COMPASS            BX3    X7          SET REDUCED WORD COUNT                              CP096A       133     A     
 COMPASS   CLL2     SX7    X6                                                              CP096A       134     A     
 COMPASS            IX4    X1+X3       WRITE LCM                                           CP096A       135     A     
 COMPASS            RJ     WLC                                                             CP096A       136     A     
 COMPASS            NZ     X7,CLL1     LOOP                                                CP096A       137     A     
 COMPASS            EQ     CLL         RETURN                                              CP096A       138     A     
 COMPASS   CLS      SPACE  4                                                               CMP30       1685     A     
 COMPASS  **        CLS - CLEAR SCM AREA TO ZEROS.                                         CMP30       1686     A     
 COMPASS  *         DISASTER IF FWA IS GREATER THAN LWA.                                   CMP30       1687     A     
 COMPASS  *         ENTRY  (X2) = FWA OF AREA.                                             CMP30       1688     A     
 COMPASS  *                (X3) = LWA+1 OF AREA.                                           CMP30       1689     A     
 COMPASS  *         EXIT   (X6) = (X7) = 0.                                                CMP30       1690     A     
 COMPASS  *         USES   X0-X3, A0, A6, A7, B5, B6, B7.                                  CMP30       1691     A     
 COMPASS  *         CALLS  PRESET OR RLC.                                                  CMP30       1692     A     
 COMPASS                                                                                   CMP30       1693     A     
 COMPASS                                                                                   CMP30       1694     A     
 COMPASS   CLS1     MX1    0           NO LCM, USE PRESET                                  CMP30       1695     A     
 COMPASS            BX7    X7-X7                                                           CMP30       1696     A     
 COMPASS            RJ     PRESET                                                          CMP30       1697     A     
 COMPASS                                                                                   CMP30       1698     A     
 COMPASS   CLS      PS                 RETURN EXIT                                         CMP30       1699     A     
 COMPASS            IX7    X3-X2                                                           CMP30       1700     A     
 COMPASS            SA1    CP.NFLL                                                         CMP30       1701          I
          -CPS028 
 COMPASS            SA1    CP.AFLL                                                S028 321 CPS028       228     A     
 COMPASS            MI     X7,*+1S17   IF FWA IS GREATER THAN LWA+1                        CMP30       1702     A     
 COMPASS            ZR     X1,CLS1     IF NO LCM                                           CMP30       1703     A     
 COMPASS   CLS2     SX6    X7-100B                                                         CMP30       1704     A     
 COMPASS            SX3    100B                                                            CMP30       1705     A     
 COMPASS            PL     X6,CLS3     IF AT LEAST 100B WORDS REMAIN                       CMP30       1706     A     
 COMPASS            SX6    B0                                                              CMP30       1707     A     
 COMPASS            SX3    X7          SET REDUCED WORD COUNT                              CMP30       1708     A     
 COMPASS   CLS3     SX7    X6                                                              CMP30       1709     A     
 COMPASS            SX1    B0          READ LCM STARTING AT RAL+0                          CMP30       1710     A     
 COMPASS            RJ     RLC                                                             CMP30       1711     A     
 COMPASS            SX2    X2+100B     INCREMENT SCM ADDRESS                               CMP30       1712     A     
 COMPASS            NZ     X7,CLS2     LOOP                                                CMP30       1713     A     
 COMPASS            EQ     CLS         RETURN                                              CMP30       1714     A     
 COMPASS   COCT     SPACE  4                                                               COMPASS     1938     A     
 COMPASS  **        COCT - CONVERT OCTAL NUMBER.                                           COMPASS     1939     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 320    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         ENTRY  (X1) = OCTAL NUMBER.                                            COMPASS     1940     A     
 COMPASS  *         EXIT   (X6) = DISPLAY CODE FOR OCTAL NUMBER.                           COMPASS     1941     A     
 COMPASS                                                                                   COMPASS     1942     A     
 COMPASS                                                                                   COMPASS     1943     A     
 COMPASS   COCT     PS                 RETURN EXIT                                         COMPASS     1944     A     
 COMPASS            SB7    10                                                              COMPASS     1945     A     
 COMPASS            MX0    60-3                                                            COMPASS     1946     A     
 COMPASS            SX6    B0                                                              COMPASS     1947     A     
 COMPASS   COCT1    SB7    B7-B1                                                           COMPASS     1948     A     
 COMPASS            BX3    -X0*X1                                                          COMPASS     1949     A     
 COMPASS            AX1    3                                                               COMPASS     1950     A     
 COMPASS            SX3    X3+1R0                                                          COMPASS     1951     A     
 COMPASS            IX6    X6+X3                                                           COMPASS     1952     A     
 COMPASS            LX6    54                                                              COMPASS     1953     A     
 COMPASS            NZ     B7,COCT1                                                        COMPASS     1954     A     
 COMPASS            EQ     COCT                                                            COMPASS     1955     A     
 COMPASS   COMCCIO  SPACE  4                                                               COMPASS     1956          I
          -CMP20  
 COMPASS  **        COMCCIO - CENTRAL CALLS FOR INPUT/OUTPUT.                              COMPASS     1957          I
          -CMP20  
 COMPASS  *         ENTRY  (X2) = FET ADDRESS.                                             COMPASS     1958          I
          -CMP20  
 COMPASS  *                (B6) = FWA OF DATA AREA.                                        COMPASS     1959          I
          -CMP20  
 COMPASS  *                (B7) = WORD COUNT OF DATA.                                      COMPASS     1960          I
          -CMP20  
 COMPASS  *         EXIT   (X2) = FET ADDRESS.                                             COMPASS     1961          I
          -CMP20  
 COMPASS                                                                                   COMPASS     1962          I
          -CMP20  
 COMPASS                                                                                   COMPASS     1963          I
          -CMP20  
 COMPASS  *CALL     COMCCIO                                                                COMPASS     1964          I
          -CMP20  
 COMPASS  *CALL     COMCRDC                                                                COMPASS     1965          I
          -CMP20  
 COMPASS  *CALL     COMCRDW                                                                COMPASS     1966          I
          -CMP20  
 COMPASS  *CALL     COMCSYS                                                                COMPASS     1967          I
          -CMP20  
 COMPASS  *CALL     COMCWTW                                                                COMPASS     1968          I
          -CMP20  
 COMPASS  *CALL     COMCWTH                                                                COMPASS     1969          I
          -CMP20  
 COMPASS  *CALL     COMCLFM                                                                COMPASS     1970          I
          -CMP20  
 COMPASS   CONDEC   SPACE  4                                                               COMPASS     1971     A     
 COMPASS  **        CONDEC - CONVERT INTEGER TO DECIMAL DISPLAY CODE.                      COMPASS     1972     A     
 COMPASS  *         ENTRY  (X1) = INTEGER IN LOW ORDER (LESS THAN 2**18).                  COMPASS     1973     A     
 COMPASS  *         EXIT   (X6) = DECIMAL FORM WITH LEADING BLANKS.                        COMPASS     1974     A     
 COMPASS  *                (B2) = 6*COUNT OF DIGITS IN X6.                                 COMPASS     1975     A     
 COMPASS  *                (B6) = 6.                                                       COMPASS     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/28. 19.11.32.      PAGE 321    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         SAVES  A0, A5, A6, X5.                                                 COMPASS     1977     A     
 COMPASS                                                                                   COMPASS     1978     A     
 COMPASS                                                                                   COMPASS     1979     A     
 COMPASS   CONDEC1  DX4    X1*X2                                                           COMPASS     1980     A     
 COMPASS            FX1    X1*X2                                                           COMPASS     1981     A     
 COMPASS            SB7    X1                                                              COMPASS     1982     A     
 COMPASS            LX6    54                                                              COMPASS     1983     A     
 COMPASS            SB2    B2+B6                                                           COMPASS     1984     A     
 COMPASS            FX7    X4*X3       CALCULATE REMAINDER DIGIT                           COMPASS     1985     A     
 COMPASS            SX0    X7+B5                                                           COMPASS     1986     A     
 COMPASS            IX6    X0+X6                                                           COMPASS     1987     A     
 COMPASS            NZ     B7,CONDEC1                                                      COMPASS     1988     A     
 COMPASS            LX6    54                                                              COMPASS     1989     A     
 COMPASS            LX6    X6,B2       POSITION IN LOW ORDER                               COMPASS     1990     A     
 COMPASS                                                                                   COMPASS     1991     A     
 COMPASS   CONDEC   PS                 RETURN EXIT                                         COMPASS     1992     A     
 COMPASS            SA2    =0.1000000001P48                                                COMPASS     1993     A     
 COMPASS            SA3    =10.0P0                                                         COMPASS     1994     A     
 COMPASS            SA4    =1H                                                             COMPASS     1995     A     
 COMPASS            SB6    6                                                               COMPASS     1996     A     
 COMPASS            SB5    -22B                                                            COMPASS     1997          I
          -CMP20  
 COMPASS            SB5    1R0-1R                                                          CMP20         51     A     
 COMPASS            SB2    B0                                                              COMPASS     1998     A     
 COMPASS            PX1    X1                                                              COMPASS     1999     A     
 COMPASS            BX6    X4                                                              COMPASS     2000     A     
 COMPASS            EQ     CONDEC1                                                         COMPASS     2001     A     
 COMPASS   CONOCT   SPACE  4                                                               CMP042        54     A     
 COMPASS  **        CONOCT - CONVERT INTEGER TO OCTAL DISPLAY CODE.                        CMP042        55          I
          -F4820  
 COMPASS  **        CONOCT - CONVERT TO OCTAL/HEX.                                         F4820         48     A     
 COMPASS  *         ENTRY  (X1) = INTEGER IN LOW ORDER (LESS THAN 2**30).                  CMP042        56     A     
 COMPASS  *         EXIT   (X6) = OCTAL FORM WITH LEADING BLANKS.                          CMP042        57     A     
 COMPASS                                                                                   CMP042        58     A     
 COMPASS                                                                                   CMP042        59     A     
 COMPASS   CONOCT1  BX3    -X0*X1      EXTRACT DIGIT                                       CMP042        60     A     
 COMPASS            AX1    3                                                               CMP042        61          I
          -F4820  
 COMPASS            AX1    X1,B6                                                           F4820         49     A     
 COMPASS            SB5    X3-10                                                           F4820         50     A     
 COMPASS   +        NG     B5,*+1      IF NOT UPPER HEX DIGIT                              F4820         51     A     
 COMPASS            SX3    B5+1RA-1R0                                                      F4820         52     A     
 COMPASS            SX7    X3+1R0-1R                                                       CMP042        62     A     
 COMPASS            LX6    X7,B7       POSITION DIGIT                                      CMP042        63          I
          -CPS010 
 COMPASS            LX3    X7,B7       POSITION DIGIT                                      CPS010        21     A     
 COMPASS            SB7    B7+6                                                            CMP042        64     A     
 COMPASS            IX2    X2+X6                                                           CMP042        65          I
          -CPS010 
 COMPASS            IX2    X2+X3                                                           CPS010        22     A     
 COMPASS            NZ     X1,CONOCT1  LOOP                                                CMP042        66     A     
 COMPASS            BX6    X2                                                              CMP042        67          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 322    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS010 
 COMPASS            LX3    X6,B7                                                           CPS010        23     A     
 COMPASS            IX6    X2+X3       ADD SIGN IF MINUS                                   CPS010        24     A     
 COMPASS                                                                                   CMP042        68     A     
 COMPASS   CONOCT   PS                 RETURN EXIT                                         CMP042        69     A     
 COMPASS            SA4    PPTYPE      CHECK IF HEX CONVERSION                             F4820         53     A     
 COMPASS            SB6    3                                                               F4820         54     A     
 COMPASS            MX0    -3                                                              CMP042        70     A     
 COMPASS            SB7    B0                                                              CMP042        71     A     
 COMPASS            SA2    =1H                                                             CMP042        72     A     
 COMPASS            MX6    0                                                               CPS010        25     A     
 COMPASS            PL     X1,CONOCT1  IF NOT NEGATIVE                                     CPS010        26          I
          -F4820  
 COMPASS            PL     X1,CONOCT2  IF NOT NEGITIVE                                     F4820         55     A     
 COMPASS            BX1     -X1         COMPLEMENT VALUE                                   F4820         56     A     
 COMPASS            SX6    1R--1R                                                          F4820         57     A     
 COMPASS   CONOCT2  PL     X4,CONOCT1  IF NOT HEX ASSEMBLY                                 F4820         58     A     
 COMPASS            SX4    X4+2                                                            CPSA197        4     A     
 COMPASS            MI     X4,CONOCT1  IF NOT BCU/MCU.                                     CPSA197        5     A     
 COMPASS            MX0    -4                                                              F4820         59     A     
 COMPASS            SB6    B6+B1                                                           F4820         60     A     
 COMPASS            BX1    -X1         COMPLEMENT VALUE                                    CPS010        27          I
          -F4820  
 COMPASS            SX6    1R--1R                                                          CPS010        28          I
          -F4820  
 COMPASS            EQ    CONOCT1                                                          CMP042        73     A     
 COMPASS   CPS      SPACE  4                                                               CMP30       1715     A     
 COMPASS  **        CPS - CLEAR PUSH-DOWN STACKS.                                          CMP30       1716     A     
 COMPASS                                                                                   CMP30       1717     A     
 COMPASS                                                                                   CMP30       1718     A     
 COMPASS   CPS      PS                 RETURN EXIT                                         CMP30       1719     A     
 COMPASS            SA1    STACKPTR                                                        CMP30       1720     A     
 COMPASS            MX0    30                                                              CMP30       1721     A     
 COMPASS   CPS1     SA2    X1          GET STACK CONTROL WORD                              CMP30       1722     A     
 COMPASS            AX1    18          MAX ENTRY COUNT                                     CMP30       1723     A     
 COMPASS            BX3    X0*X2                                                           CMP30       1724     A     
 COMPASS            IX6    X3+X1                                                           CMP30       1725     A     
 COMPASS            SA1    A1+B1                                                           CMP30       1726     A     
 COMPASS            SA6    A2                                                              CMP30       1727     A     
 COMPASS            NZ     X1,CPS1     IF NOT END OF LIST                                  CMP30       1728     A     
 COMPASS            EQ     CPS         RETURN                                              CMP30       1729     A     
 COMPASS   CPTIME   SPACE  4                                                               CMP30       1730     A     
 COMPASS  **        CPTIME - CONVERT CPU TIME.                                             CMP30       1731     A     
 COMPASS  *         ENTRY  (B7) = ADDRESS OF STARTING TIME.                                CMP30       1732     A     
 COMPASS  *         EXIT   (X6) = *SSSSS.MMM *  ELAPSED CPU TIME.                          CMP30       1733     A     
 COMPASS                                                                                   CMP30       1734     A     
 COMPASS                                                                                   CMP30       1735     A     
 COMPASS   CPTIME   PS                 RETURN EXIT                                         CMP30       1736     A     
 COMPASS            TIME   CPTIMEA     GET CURRENT TIME                                    CMP30       1737     A     
 COMPASS            SA5    B7                                                              CMP30       1738     A     
 COMPASS            SA1    CPTIMEA                                                         CMP30       1739     A     
 COMPASS            IX2    X1-X5       TIME DIFFERENCE                                     CMP30       1740     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 323    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX5    X2                                                              CMP30       1741     A     
 COMPASS            LX2    -12                                                             CMP30       1742     A     
 COMPASS            SX3    1000-1S12                                                       CMP30       1743     A     
 COMPASS   +        MX0    -12                                                             CMP30       1744     A     
 COMPASS            PL     X2,*+1      IF NO BORROW                                        CMP30       1745     A     
 COMPASS            IX5    X5+X3                                                           CMP30       1746     A     
 COMPASS            BX1    -X0*X5      MILLISECONDS                                        CMP30       1747     A     
 COMPASS            SX1    X1+1000     FORCE LEADING ZEROS                                 CMP30       1748     A     
 COMPASS            RJ     CONDEC      CONVERT TO DECIMAL                                  CMP30       1749     A     
 COMPASS            AX5    12                                                              CMP30       1750     A     
 COMPASS            SX1    X5          SECONDS                                             CMP30       1751     A     
 COMPASS            SA2    CPTIMEB                                                         CMP30       1752     A     
 COMPASS            LX6    6                                                               CMP30       1753     A     
 COMPASS            BX5    X6-X2       CHANGE *1* TO *.*                                   CMP30       1754     A     
 COMPASS            RJ     CONDEC      CONVERT SECONDS TO DECIMAL                          CMP30       1755     A     
 COMPASS            LX6    30                                                              CMP30       1756     A     
 COMPASS            BX6    X6-X5                                                           CMP30       1757     A     
 COMPASS            EQ     CPTIME      RETURN                                              CMP30       1758     A     
 COMPASS                                                                                   CMP30       1759     A     
 COMPASS   CPTIMEA  DATA   0           STORAGE FOR CURRENT TIME                            CMP30       1760     A     
 COMPASS   CPTIMEB  VFD    36/6R      &1R1&1R.,24/4R                                       CMP30       1761     A     
 COMPASS   DFL      SPACE  4                                                       F4810B  F4810B        71     A     
 COMPASS  **        DFL - DECREASE FIELD LENGTH.                                   F4810B  F4810B        72     A     
 COMPASS  *         SETS FIELD LENGTH TO MIN(LWA TABLES+FLINC,MAXFL)               F4810B  F4810B        73          I
          -CPSA226
 COMPASS  *         WILL NOT REDUCE FL. BELOW THE LARGER OF MIDFL AND THE VALUE            CPSA125       28          I
          -CPSA226
 COMPASS  *         OF THE RUNNING FL. ON ENTRY INTO COMPASS (CP.AFLS).  MIDFLN            CPSA125       29          I
          -CPSA226
 COMPASS  *         CONTAINS THE LARGER OF THESE TWO VALUES.                               CPSA125       30          I
          -CPSA226
 COMPASS  *         TURNS OFF LSTTHOU (USE LAST 1000 WORDS FLAG)                           CPSA125       31          I
          -CPSA226
 COMPASS  *         REQUESTS FL OF (LWA+1 TABLES + 1000B MGMT SPACE + 10 SLOP)             CPSA226        6     A     
 COMPASS  *         OR OF *MIDFLN* (LARGER OF *MIDFL* AND *CP.AFLS*), WHICHEVER IS         CPSA226        7     A     
 COMPASS  *         GREATER, UNLESS CURRENT FL IS .LE. CALCULATED REQUEST.                 CPSA226        8     A     
 COMPASS  *         CLEARS *LSTTHOU* IF REQUEST IS MADE.                                   CPSA226        9     A     
 COMPASS                                                                           F4810B  F4810B        74     A     
 COMPASS                                                                           F4810B  F4810B        75     A     
 COMPASS   DFL      PS                 RETURN EXIT                                 F4810B  F4810B        76     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN                            F4810B  F4810B        77     A     
 COMPASS            SA1    O.MEMORY    ORGIN OF LAST TABLE                         F4810B  F4810B        78     A     
 COMPASS            SA2    L.MEMORY    LENGTH OF LAST TABLE                        F4810B  F4810B        79     A     
 COMPASS            IX1    X1+X2       LWA OF TABLES                               F4810B  F4810B        80     A     
 COMPASS            SX2    FLINC       FL INCREMENT                                F4810B  F4810B        81          I
          -CPS247 
 COMPASS            SX2     77B                                                            CPS247         5          I
          -CPSA226
 COMPASS            SX2    1000B+10    LSTTHOU + SLOP                                      CPSA226       10     A     
 COMPASS            IX1    X2+X1       LWA TABLES+FLINC                            F4810B  F4810B        82     A     
 COMPASS            SA4    CP.NFLS     CURRENT FL                                          CPSA251       13     A     
 COMPASS            IX2    X4-X1       COMPARE CURRENT TO CALC. FL                         CPSA251       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/28. 19.11.32.      PAGE 324    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    0                                                               CPSA251       15     A     
 COMPASS            MI     X2,DFL      IF CURRENT .LE. CALC FL, EXIT                       CPSA251       16     A     
 COMPASS            SA6    LSTTHOU     CLEAR LAST 1000B FLAG                               CPSA251       17     A     
 COMPASS            SA3    MIDFLN      GET MINIMUM FL. TO BE REDUCED TO                    CPSA125       32     A     
 COMPASS            BX6    X3                                                              CPSA125       33          I
          -CPSA226
 COMPASS            MX3    -6                                                              CPSA125       34          I
          -CPSA226
 COMPASS            IX6    X6-X3       MIDFLN+77B                                          CPSA125       35          I
          -CPSA226
 COMPASS            BX6    X6*X3                                                           CPSA125       36          I
          -CPSA226
 COMPASS            IX3    X1-X6                                                           CPSA125       37          I
          -CPSA226
 COMPASS            PL     X3,DFL1     IF REQUEST.GE.ROUNDED MIDFLN                        CPSA125       38          I
          -CPSA226
 COMPASS            BX1    X6          ELSE REQUEST ROUNDED MIDFLN                         CPSA125       39          I
          -CPSA226
 COMPASS   DFL1     BSS    0                                                               CPSA125       40          I
          -CPSA226
 COMPASS            IX2    X1-X3       COMPARE TABLE SPACE TO MIDFLN                       CPSA226       11     A     
 COMPASS            PL     X2,DFL1     USE THE GREATER OF THE TWO                          CPSA226       12     A     
 COMPASS            BX1    X3          MIDFLN                                              CPSA226       13     A     
 COMPASS            IX4    X3-X4       MIDFLN - CURRENT FL                                 CPSA251       18     A     
 COMPASS            PL     X4,DFL      IF CURRENT .LE. MIDFLN, EXIT                        CPSA251       19     A     
 COMPASS   DFL1     MX2    -6          FOR ROUNDING UP                                     CPSA226       14     A     
 COMPASS            IX1    X1-X2       FL + 77B                                            CPSA226       15     A     
 COMPASS            SA4     CP.NFLS     CHECK CURRENT FL                                   CPS247         6          I
          -CPSA251
 COMPASS            BX1    X1*X2       ROUND                                               CPSA226       16     A     
 COMPASS            IX4     X1-X4                                                          CPS247         7          I
          -CPSA251
 COMPASS            PL      X4,DFL2                                                        CPS247         8          I
          -CPSA226  -CPSA251
 COMPASS            SX6    0                                                               CPSA226       17          I
          -CPSA251
 COMPASS            PL     X4,DFL      IF ALREADY LE THAT FL, EXIT                         CPSA226       18          I
          -CPSA251
 COMPASS            SA6    LSTTHOU     CLEAR LAST 1000B FLAG                               CPSA226       19          I
          -CPSA251
 COMPASS            BX1    -X1         SET UP TO MAKE SPECIFIC FL REQUEST          F4810B  F4810B        83     A     
 COMPASS            RJ     RFL         REQUEST (LWA TABLES+FLINC) WORDS CM         F4810B  F4810B        84     A     
 COMPASS   DFL2    BSS      0                                                              CPS247         9          I
          -CPSA226
 COMPASS            SX6    B0                                                              CPSA125       41          I
          -CPSA226
 COMPASS            SA6    LSTTHOU     TURN OFF THE  *USE LAST 1000 WORDS* FLAG            CPSA125       42          I
          -CPSA226
 COMPASS            EQ     DFL         RETURN                                      F4810B  F4810B        85     A     
 COMPASS   DIM      SPACE  4                                                               COMPASS     2002     A     
 COMPASS  **        DIM - DISPLAY IDENT MESSAGE.                                           COMPASS     2003     A     
 COMPASS  *         ENTRY  (X1) = PROGRAM NAME LEFT JUSTIFIED ZERO FILL.                   COMPASS     2004     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 325    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     2005     A     
 COMPASS                                                                                   COMPASS     2006     A     
 COMPASS   DIM      PS                 RETURN EXIT                                         COMPASS     2007     A     
 COMPASS            LX1    -6                                                              COMPASS     2008     A     
 COMPASS            RJ     LJUST                                                           COMPASS     2009     A     
 COMPASS            MX0    -6                                                              COMPASS     2010     A     
 COMPASS            SB7    10                                                              COMPASS     2011     A     
 COMPASS            SX2    1R                                                              COMPASS     2012     A     
 COMPASS            SB6    -60B                                                            COMPASS     2013     A     
 COMPASS   DIM1     LX7    6                                                               COMPASS     2014     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     2015     A     
 COMPASS            BX6    -X0*X7                                                          COMPASS     2016     A     
 COMPASS            SX1    X6+B6                                                           COMPASS     2017     A     
 COMPASS            NG     X1,DIM2     IF CHARACTER LEGAL                                  COMPASS     2018     A     
 COMPASS            BX1    X0*X7                                                           COMPASS     2019          I
          -CMP11  
 COMPASS            BX7    X0*X7                                                           CMP11          1     A     
 COMPASS            IX7    X7+X2                                                           COMPASS     2020     A     
 COMPASS   DIM2     NZ     B7,DIM1     LOOP                                                COMPASS     2021     A     
 COMPASS            BX6    X7+X2                                                           COMPASS     2022     A     
 COMPASS            LX6    -6                                                              COMPASS     2023     A     
 COMPASS            MX0    48                                                              COMPASS     2024     A     
 COMPASS            BX6    X0*X6                                                           COMPASS     2025     A     
 COMPASS            SA6    ASMM+1                                                          COMPASS     2026     A     
 COMPASS            MESSAGE A6-B1,1,R                                                      COMPASS     2027          I
          -CMP30  
 COMPASS            MESSAGE ASMM,1,R   *ASSEMBLING XXXXXXX*                                CMP30       1762     A     
 COMPASS            EQ     DIM         RETURN                                              COMPASS     2028     A     
 COMPASS                                                                                   COMPASS     2029          I
          -CMP30  
 COMPASS   ASMM     DATA   20CASSEMBLING                                                   COMPASS     2030          I
          -CMP30  
 COMPASS   ENTOP    SPACE  4                                                               COMPASS     2031     A     
 COMPASS  **        ENTOP - ENTER OPERATION CODE ENTRY INTO OPTAB.                         COMPASS     2032     A     
 COMPASS  *         DISASTER IF OVERFLOW.                                                  COMPASS     2033     A     
 COMPASS  *         ENTRY  (X1) = OPCODE NAME (RESTRICT PLEASE TO 48 BITS).                COMPASS     2034     A     
 COMPASS  *                (X2) = EQUIVALENT.                                              COMPASS     2035     A     
 COMPASS                                                                                   COMPASS     2036     A     
 COMPASS                                                                                   COMPASS     2037     A     
 COMPASS   ENTOP1   SA6    ENTOPT      SAVE ENTRY                                          COMPASS     2038     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2039     A     
 COMPASS            SX6    X4+2                                                            COMPASS     2040     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     2041     A     
 COMPASS            MANAGE OPTAB,2     GET TWO WORDS IN OVERFLOW AREA                      COMPASS     2042     A     
 COMPASS            SA1    ENTOPT                                                          COMPASS     2043     A     
 COMPASS            SA4    A1+B1                                                           COMPASS     2044     A     
 COMPASS            SA5    A4+B1                                                           COMPASS     2045     A     
 COMPASS            SB7    X2-2                                                            COMPASS     2046     A     
 COMPASS            SA2    X5+B7       RECLAIM OLD ENTRY IN BASE SECTION                   COMPASS     2047     A     
 COMPASS            BX0    X1                                                              COMPASS     2048     A     
 COMPASS            SA1    A2+B1       AND ITS EQUIVALENT                                  COMPASS     2049     A     
 COMPASS            LX6    X2                                                              COMPASS     2050     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 326    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX7    X1                                                              COMPASS     2051     A     
 COMPASS            SA6    X3+B7       STORE OLD ENTRY IN NEW POSITION                     COMPASS     2052     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2053     A     
 COMPASS            SX3    X3-2*NOPCT                                                      COMPASS     2054     A     
 COMPASS            LX3    47                                                              COMPASS     2055     A     
 COMPASS            BX6    X0+X3                                                           COMPASS     2056     A     
 COMPASS            LX7    X4                                                              COMPASS     2057     A     
 COMPASS            SA6    X5+B7                                                           COMPASS     2058     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2059     A     
 COMPASS                                                                                   COMPASS     2060     A     
 COMPASS   ENTOP    PS                 RETURN EXIT                                         COMPASS     2061     A     
 COMPASS            PX0    X1                                                              COMPASS     2062     A     
 COMPASS            SA4    HASH                                                            COMPASS     2063     A     
 COMPASS            DX3    X0*X4                                                           COMPASS     2064     A     
 COMPASS            SA5    O.OPTAB                                                         COMPASS     2065     A     
 COMPASS            SX0    2*NOPCT-2                                                       COMPASS     2066     A     
 COMPASS            AX3    47-TLUOPSHF                                                     COMPASS     2067     A     
 COMPASS            BX4    X0*X3                                                           COMPASS     2068     A     
 COMPASS            MX0    12                                                              COMPASS     2069     A     
 COMPASS            SB7    X5                                                              COMPASS     2070     A     
 COMPASS            SA5    X4+B7       CHECK BASE TABLE ENTRY                              COMPASS     2071     A     
 COMPASS            BX6    X1                                                              COMPASS     2072     A     
 COMPASS            LX7    X2                                                              COMPASS     2073     A     
 COMPASS            NZ     X5,ENTOP1   IF ALREADY OCCUPIED                                 COMPASS     2074     A     
 COMPASS            SA6    A5          OCCUPY BASE ENTRY                                   COMPASS     2075     A     
 COMPASS            SA7    A5+B1                                                           COMPASS     2076     A     
 COMPASS            EQ     ENTOP                                                           COMPASS     2077     A     
 COMPASS                                                                                   COMPASS     2078     A     
 COMPASS   ENTOPT   BSS    3           TEMPORARY STORAGE                                   COMPASS     2079     A     
 COMPASS   ENTSYMT  SPACE  4                                                               COMPASS     2080     A     
 COMPASS  **        ENTSYMT - ENTER SYMBOL INTO SYMBOL TABLE.                              COMPASS     2081     A     
 COMPASS  *         ENTRY  (X1) = SYMBOL.                                                  COMPASS     2082     A     
 COMPASS  *                (X2) = EQUIVALENT.                                              COMPASS     2083     A     
 COMPASS  *         EXIT   (X1) = SYMBOL UNTOUCHED.                                        COMPASS     2084     A     
 COMPASS                                                                                   COMPASS     2085     A     
 COMPASS                                                                                   COMPASS     2086     A     
 COMPASS   ENTSYMTX SA5    SYMCNT      UP SYMBOL COUNT                                     CMP19         17     A     
 COMPASS            SX7    X5+B1                                                           CMP19         18     A     
 COMPASS            SA7    A5                                                              CMP19         19     A     
 COMPASS                                                                                   CMP19         20     A     
 COMPASS   ENTSYMT  PS                 RETURN EXIT                                         COMPASS     2087     A     
 COMPASS            BX6    X1                                                              COMPASS     2088          I
          -CMP19  
 COMPASS            LX7    X2                                                              COMPASS     2089          I
          -CMP19  
 COMPASS            SA3    HASH        HASHING CONSTANT                                    COMPASS     2090          I
          -CMP19  
 COMPASS            PX0    X1                                                              COMPASS     2091          I
          -CMP19  
 COMPASS            DX4    X0*X3                                                           COMPASS     2092          I
          -CMP19  
 COMPASS            SX0    NSYMT*2-2   MASK FOR BASE INDEX                                 COMPASS     2093          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 327    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP19  
 COMPASS            AX4    47-SHIFTQ                                                       COMPASS     2094          I
          -CMP19  
 COMPASS            BX3    X4*X0                                                           COMPASS     2095          I
          -CMP19  
 COMPASS            SA4    O.SYMTAB                                                        COMPASS     2096          I
          -CMP19  
 COMPASS            SB7    X4                                                              COMPASS     2097          I
          -CMP19  
 COMPASS            SA4    X3+B7       BASE TABLE ENTRY                                    COMPASS     2098          I
          -CMP19  
 COMPASS            SA5    QVAL                                                            COMPASS     2099          I
          -CMP19  
 COMPASS            BX6    X6+X5                                                           COMPASS     2100          I
          -CMP19  
 COMPASS            SA3    HASH        HASHING CONSTANT                                    CMP19         21     A     
 COMPASS            SA5    QVAL        QUALIFIER VALUE                                     CMP19         22     A     
 COMPASS            BX6    X1                                                              CMP19         23     A     
 COMPASS            PX0    X1                                                              CMP19         24     A     
 COMPASS            SX7    B0                                                              CMP19         25     A     
 COMPASS            AX6    36                                                              CMP19         26     A     
 COMPASS            DX4    X3*X0       MULTIPLY SYMBOL BY HASHING CONSTANT                 CMP19         27     A     
 COMPASS            SB7    X6-2R'?                                                         CMP19         28     A     
 COMPASS            BX6    X1+X5       ADD QUALIFIER VALUE TO SYMBOL                       CMP19         29     A     
 COMPASS            LX5    12                                                              CMP19         30     A     
 COMPASS            SX0    NSYMT*2-2   MASK FOR BASE INDEX                                 CMP19         31     A     
 COMPASS            SB6    X5                                                              CMP19         32     A     
 COMPASS            AX4    47-SHIFTQ                                                       CMP19         33     A     
 COMPASS            SA5    O.QVTAB                                                         CMP19         34     A     
 COMPASS            SB6    B6-B1                                                           CMP19         35     A     
 COMPASS            BX3    X0*X4       BASE INDEX                                          CMP19         36     A     
 COMPASS            SA4    O.SYMTAB                                                        CMP19         37     A     
 COMPASS            SB5    X3                                                              CMP19         38     A     
 COMPASS            ZR     B7,ENS1     IF INVENTED SYMBOL                                  CMP19         39     A     
 COMPASS            NG     B6,ENS2     IF BLANK QUALIFIER                                  CMP19         40     A     
 COMPASS            SA5    X5+B6                                                           CMP19         41     A     
 COMPASS            NO                                                                     CMP19         42     A     
 COMPASS            PL     X5,ENS2     IF NOREF FLAG NOT SET FOR QUALIFIER                 CMP19         43     A     
 COMPASS   ENS1     SX7    B1                                                              CMP19         44     A     
 COMPASS            SB0    0           SET NOREF FLAG IN SYMTAB ENTRY                      CMP19         45     A     
 COMPASS            LX7    35                                                              CMP19         46     A     
 COMPASS   ENS2     SA4    X4+B5       BASE TABLE ENTRY                                    CMP19         47          I
          -CP096A 
 COMPASS   ENS2     SX0    X4+B5       BASE TABLE ENTRY                                    CP096A       139     A     
 COMPASS            RX4    X0                                                              CP096A       140     A     
 COMPASS            BX7    X2+X7                                                           CMP19         48     A     
 COMPASS            NZ     X4,ENTSYMT1 IF BASE ENTRY OCCUPIED                              COMPASS     2101     A     
 COMPASS            SA6    A4          OCCUPY BASE ENTRY                                   COMPASS     2102          I
          -CP096A 
 COMPASS            SA7    A4+B1                                                           COMPASS     2103          I
          -CP096A 
 COMPASS            WX6    X0          OCCUPY BASE ENTRY                                   CP096A       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/28. 19.11.32.      PAGE 328    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX0    X0+B1                                                           CP096A       142     A     
 COMPASS            WX7    X0                                                              CP096A       143     A     
 COMPASS            EQ     ENTSYMTX                                                        COMPASS     2104     A     
 COMPASS   ENTSYMT1 SA6    ENTSYMTT    SAVE SYMBOL, EQUIV AND HASHED KEY                   COMPASS     2105     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2106     A     
 COMPASS            BX6    X3                                                              COMPASS     2107     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     2108     A     
 COMPASS                                                                                   CP096A       144     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CP096A       145     A     
 COMPASS            MANAGE SYMTAB,2                                                        COMPASS     2109     A     
 COMPASS            SX4    X3-2        INDEX OF NEW ENTRY                                  CP096A       146     A     
 COMPASS   RM       ELSE                                                                   CP096A       147     A     
 COMPASS            SX1    B1+B1                                                           CP096A       148     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CP096A       149     A     
 COMPASS            SA4    L.SYMTAB                                                        CP096A       150     A     
 COMPASS            SA2    O.SYMTAB                                                        CP096A       151     A     
 COMPASS            MI     X6,ILC      IF INSUFFICIENT LCM AVAILABLE                       CP096A       152     A     
 COMPASS            IX7    X4+X1                                                           CP096A       153     A     
 COMPASS            SA7    A4          UPDATE L.SYMTAB                                     CP096A       154     A     
 COMPASS   RM       ENDIF                                                                  CP096A       155     A     
 COMPASS                                                                                   CP096A       156     A     
 COMPASS            SB7    X2+B1       STORE NEW ENTRY                                     COMPASS     2110     A     
 COMPASS            SX4    X3-2        INDEX OF NEW ENTRY                                  COMPASS     2111          I
          -CP096A 
 COMPASS            SA3    ENTSYMTT+2                                                      COMPASS     2112     A     
 COMPASS            SB6    42                                                              COMPASS     2113     A     
 COMPASS   ENTSYMT2 SA5    B7+X3       SEARCH SYMBOL TABLE                                 COMPASS     2114          I
          -CP096A 
 COMPASS   ENTSYMT2 SX0    B7+X3       SEARCH SYMBOL TABLE                                 CP096A       157     A     
 COMPASS            RX5    X0                                                              CP096A       158     A     
 COMPASS            AX3    X5,B6                                                           COMPASS     2115     A     
 COMPASS            NZ     X3,ENTSYMT2 LOOP TO END OF CHAIN                                COMPASS     2116     A     
 COMPASS            LX6    X4,B6                                                           COMPASS     2117     A     
 COMPASS            BX6    X5+X6       OR IN NEW CHAIN NUMBER                              COMPASS     2118     A     
 COMPASS            SA6    A5                                                              COMPASS     2119          I
          -CP096A 
 COMPASS            WX6    X0                                                              CP096A       159     A     
 COMPASS            SA2    A3-B1                                                           COMPASS     2120     A     
 COMPASS            SA1    A2-B1                                                           COMPASS     2121     A     
 COMPASS            SX0    B7+X4       STORE NEW ENTRY                                     CP096A       160     A     
 COMPASS            LX7    X2                                                              COMPASS     2122     A     
 COMPASS            BX6    X1                                                              COMPASS     2123     A     
 COMPASS            SA7    B7+X4                                                           COMPASS     2124          I
          -CP096A 
 COMPASS            SA6    A7-B1                                                           COMPASS     2125          I
          -CP096A 
 COMPASS            SX3    X0-1                                                            CP096A       161     A     
 COMPASS            WX7    X0                                                              CP096A       162     A     
 COMPASS            WX6    X3                                                              CP096A       163     A     
 COMPASS   ENTSYMTX SA5    SYMCNT      UP SYMBOL COUNT                                     COMPASS     2126          I
          -CMP19  
 COMPASS            SX7    X5+B1                                                           COMPASS     2127          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 329    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP19  
 COMPASS            SA7    A5                                                              COMPASS     2128          I
          -CMP19  
 COMPASS            EQ     ENTSYMT                                                         COMPASS     2129          I
          -CMP19  
 COMPASS            EQ     ENTSYMTX                                                        CMP19         49     A     
 COMPASS                                                                                   COMPASS     2130     A     
 COMPASS   ENTSYMTT BSS    3           TEMPORARY STORAGE                                   COMPASS     2131     A     
 COMPASS                                                                                   COMPASS     2132     A     
 COMPASS   HASH     DATA   2525001001001001.BP0                                            COMPASS     2133     A     
 COMPASS   GETCH    SPACE  4                                                               COMPASS     2134     A     
 COMPASS  **        GETCH - GET NEXT CHARACTER FROM CARD IMAGE.                            COMPASS     2135     A     
 COMPASS  *         UPDATES COLUMN, AND CHECKS AGAINST LASTCOL.                            COMPASS     2136     A     
 COMPASS  *         EXIT   (X1) = (X6) = NEXT CHARACTER.                                   COMPASS     2137     A     
 COMPASS  *                (X2) = NEGATIVE IF END OF STATEMENT.                            COMPASS     2138     A     
 COMPASS                                                                                   COMPASS     2139     A     
 COMPASS                                                                                   COMPASS     2140     A     
 COMPASS   GNC1     SA6    A1          STORE NEW COLUMN NUMBER                             COMPASS     2141     A     
 COMPASS            NO                                                                     COMPASS     2142     A     
 COMPASS            SA1    X6+CARD-1   FETCH NEW CHARACTER                                 COMPASS     2143     A     
 COMPASS   GNC2     BX6    X1                                                              COMPASS     2144     A     
 COMPASS            NO                                                                     COMPASS     2145     A     
 COMPASS            SA6    CHAR                                                            COMPASS     2146     A     
 COMPASS                                                                                   COMPASS     2147     A     
 COMPASS   GETCH    PS                 RETURN EXIT                                         COMPASS     2148     A     
 COMPASS            SA1    COLUMN      SEE WHERE WE ARE                                    COMPASS     2149     A     
 COMPASS            SA2    LASTCOL     COMPARED TO END OF STATEMENT                        COMPASS     2150     A     
 COMPASS            SX6    X1+B1       INCREMENT COLUMN NUMBER                             COMPASS     2151     A     
 COMPASS            IX2    X2-X1                                                           COMPASS     2152     A     
 COMPASS            SX1    1R                                                              COMPASS     2153     A     
 COMPASS            PL     X2,GNC1                                                         COMPASS     2154     A     
 COMPASS            EQ     GNC2                                                            COMPASS     2155     A     
 COMPASS   ILC      SPACE  4,8                                                             CP096A       164     A     
 COMPASS  **        ILC - INSUFFICIENT LCM AVALILABLE.                                     CP096A       165     A     
 COMPASS  *         ENTRY  (X7) = FIELD LENGTH NEEDED (SET BY *ILF*).                      CP096A       166     A     
 COMPASS                                                                                   CP096A       167     A     
 COMPASS                                                                                   CP096A       168     A     
 COMPASS   RM       IFEQ   CP#RM,7                                                         CP096A       169     A     
 COMPASS                                                                                   CP096A       170     A     
 COMPASS   ILC      BX1    X7          CONVERT TO OCTAL                                    CP096A       171     A     
 COMPASS            RJ     CONOCT                                                          CP096A       172     A     
 COMPASS            SA1    ILCA        INSERT IN MESSAGE                                   CP096A       173     A     
 COMPASS            MX0    -24                                                             CP096A       174     A     
 COMPASS            LX6    24                                                              CP096A       175     A     
 COMPASS            BX6    X0*X6                                                           CP096A       176     A     
 COMPASS            BX1    -X0*X1                                                          CP096A       177     A     
 COMPASS            BX6    X1+X6                                                           CP096A       178     A     
 COMPASS            SA6    A1                                                              CP096A       179     A     
 COMPASS            MESSAGE ILCA,,R                                                        CP096A       180     A     
 COMPASS            SA1    PASS                                                            CP096A       181     A     
 COMPASS            SB7    X1-2                                                            CP096A       182     A     
 COMPASS            ZR     B7,ALC13    IF PASS 2                                           CP096A       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/28. 19.11.32.      PAGE 330    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            JP     ALC17       GO ISSUE TABLE OVERFLOW MESSAGE                     CP096A       184     A     
 COMPASS                                                                                   CP096A       185     A     
 COMPASS   ILCA     DATA   C* 00000B LCM NEEDED TO CONTINUE. *                             CP096A       186     A     
 COMPASS                                                                                   CP096A       187     A     
 COMPASS   RM       ENDIF                                                                  CP096A       188     A     
 COMPASS   ILF      SPACE  4,8                                                    S028 323 CPS028       229     A     
 COMPASS  **        ILF - INCREASE LCM FIELD LENGTH.                              S028 324 CPS028       230     A     
 COMPASS  *         ENTRY  (X1) = WORD COUNT OF INCREASE.                         S028 325 CPS028       231     A     
 COMPASS  *         EXIT   (X1) = UNCHANGED.                                      S028 326 CPS028       232     A     
 COMPASS  *                (X6) = (LCMEND) = UPDATED IF POSSIBLE.                 S028 327 CPS028       233     A     
 COMPASS  *                (X6) < 0 IF INCREASE IS NOT POSSIBLE.                  S028 328 CPS028       234     A     
 COMPASS                                                                          S028 329 CPS028       235     A     
 COMPASS                                                                          S028 330 CPS028       236     A     
 COMPASS   ILF      PS                 RETURN EXIT                                S028 331 CPS028       237     A     
 COMPASS            SA3    LCMEND                                                 S028 332 CPS028       238     A     
 COMPASS            SA2    CP.AFLL                                                S028 333 CPS028       239     A     
 COMPASS            IX6    X3+X1                                                  S028 334 CPS028       240     A     
 COMPASS            IX2    X6-X2                                                  S028 335 CPS028       241     A     
 COMPASS            PL     X2,ILF1     IF FIELD LENGTH INCREASE NEEDED            S028 336 CPS028       242     A     
 COMPASS            SA6    A3          UPDATE (LCMEND)                            S028 337 CPS028       243     A     
 COMPASS            EQ     ILF2                                                   S028 338 CPS028       244     A     
 COMPASS   ILF1     SA2    FLLF                                                   S028 339 CPS028       245     A     
 COMPASS            SX7    9+1S12      ADD 10 FOR SLOP AND ROUND UP               S028 340 CPS028       246     A     
 COMPASS            IX7    X6+X7       TO A MULTIPLE OF 10000B                    S028 341 CPS028       247     A     
 COMPASS            BX3    X6                                                     S028 342 CPS028       248     A     
 COMPASS            SX4    MFLL                                                   S028 343 CPS028       249     A     
 COMPASS            AX7    12                                                     S028 344 CPS028       250     A     
 COMPASS            SX6    -B1         (X6) < 0                                   S028 345 CPS028       251     A     
 COMPASS            LX7    12                                                     S028 346 CPS028       252     A     
 COMPASS            IX4    X4-X7                                                  S028 347 CPS028       253     A     
 COMPASS            NZ     X2,ILF      RETURN IF FIXED FLL MODE                   S028 348 CPS028       254     A     
 COMPASS            MI     X4,ILF      RETURN IF GREATER THAN MAX FLL ALLOWED     S028 349 CPS028       255     A     
 COMPASS            BX6    X3                                                     S028 350 CPS028       256     A     
 COMPASS            LX7    30                                                     S028 351 CPS028       257     A     
 COMPASS            SA6    A3          UPDATE (LCMEND)                            S028 352 CPS028       258     A     
 COMPASS            BX4    X1                                                     S028 353 CPS028       259     A     
 COMPASS            SA7    CP.AFLL                                                S028 354 CPS028       260     A     
 COMPASS            MEMORY ECS,CP.AFLL,R     REQUEST FIELD LENGTH                 S028 355 CPS028       261     A     
 COMPASS            SA2    A7                                                     S028 356 CPS028       262     A     
 COMPASS            BX6    X3          (X6) = (LCMEND)                            S028 357 CPS028       263     A     
 COMPASS            LX1    X4                                                     S028 358 CPS028       264     A     
 COMPASS            BX7    X2                                                     S028 359 CPS028       265     A     
 COMPASS            AX7    30          UPDATE (CP.AFLL)                           S028 360 CPS028       266     A     
 COMPASS            SA7    A2                                                     S028 361 CPS028       267     A     
 COMPASS   ILF2     SA3    ALCM                                                   S028 362 CPS028       268     A     
 COMPASS            IX4    X3-X6                                                  S028 363 CPS028       269     A     
 COMPASS            PL     X4,ILF      IF OLD MAX \ NEW (LCMEND)                  S028 364 CPS028       270     A     
 COMPASS            SA6    A3                                                     S028 365 CPS028       271     A     
 COMPASS            EQ     ILF         RETURN                                     S028 366 CPS028       272     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS2608       10     A     
 COMPASS   LDHDR    SPACE  4                                                               CPS2608       11     A     
 COMPASS  **        LDHDR - LDSET HEADER.                                                  CPS2608       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/28. 19.11.32.      PAGE 331    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         CONTROL WORD FOR 7000 (LDSET) TABLE GENERATOR.                         CPS2608       13     A     
 COMPASS  *         ENTRY  K.TLDR = POSITION OF LAST CONTROL WORD                          CPS2608       14     A     
 COMPASS  *         EXIT   K.TLDR = POSITION OF CURRENT 70 TABLE (L.TLDR-1)                CPS2608       15     A     
 COMPASS  *                NEW CONTROL WORD ADDED TO TLDR.                                 CPS2608       16     A     
 COMPASS  *                WC INSERTED IN LAST CONTROL WORD FOR TABLE JUST                 CPS2608       17     A     
 COMPASS  *                FILLED.                                                         CPS2608       18     A     
 COMPASS  *         USES   A - 2,3,4,7                                                     CPS2608       19     A     
 COMPASS  *                B - 2,4                                                         CPS2608       20     A     
 COMPASS  *                X - 1,2,3,4,7                                                   CPS2608       21     A     
 COMPASS                                                                                   CPS2608       22     A     
 COMPASS   LDHDR    PS                 RETURN EXIT                                         CPS2608       23     A     
 COMPASS            SA2    L.TLDS      LENGTH OF TABLE                                     CPS2608       24     A     
 COMPASS            SA3    K.TLDS      POSITION OF LAST CONTROL WORD                       CPS2608       25     A     
 COMPASS            MX1    3           7000 TABLE                                          CPS2608       26     A     
 COMPASS            ZR     X2,LDHDR1   IF FIRST 7000 TABLE                                 CPS2608       27     A     
 COMPASS            IX4    X2-X3       WORD COUNT OF TLDS SINCE LAST CONTROL WORD          CPS2608       28     A     
 COMPASS            SB2    36          SHIFT FOR WORD COUNT                                CPS2608       29     A     
 COMPASS            SX4    X4-1        WORD COUNT OF PREVIOUS TABLE                        CPS2608       30     A     
 COMPASS            LX4    X4,B2       POSITION WC                                         CPS2608       31     A     
 COMPASS            BX7    X1+X4       INSERT WC IN CONTROL WORD                           CPS2608       32     A     
 COMPASS            SA4    O.TLDS      ORIGIN ADDRESS                                      CPS2608       33     A     
 COMPASS            IX4    X4+X3                                                           CPS2608       34     A     
 COMPASS            SA7    X4          REPLACE CONTROL WORD OF PREVIOUS TABLE              CPS2608       35     A     
 COMPASS   LDHDR1   BX7    X2          POSITION OF NEW CONTROL WORD                        CPS2608       36     A     
 COMPASS            SA7    A3          K.TLDS                                              CPS2608       37     A     
 COMPASS            ADDWORD TLDS       NEW CONTROL WORD GETS CORRECT WC LATER              CPS2608       38     A     
 COMPASS            EQ     LDHDR       RETURN                                              CPS2608       39     A     
 COMPASS   RM       ENDIF                                                                  CPS2608       40     A     
 COMPASS   MOVE     SPACE  4                                                               COMPASS     2156     A     
 COMPASS  **        MOVE - MOVE BLOCK OF DATA.                                             COMPASS     2157     A     
 COMPASS  *         MOVE MOVES EITHER UPWARDS OR DOWNWARDS TO AVOID OVER-STORES.           COMPASS     2158     A     
 COMPASS  *         ENTRY  (X1) = WORD COUNT.                                              COMPASS     2159     A     
 COMPASS  *                (X2) = SOURCE ADDRESS.                                          COMPASS     2160     A     
 COMPASS  *                (X3) = DESTINATION ADDRESS.                                     COMPASS     2161     A     
 COMPASS                                                                                   COMPASS     2162     A     
 COMPASS                                                                                   COMPASS     2163     A     
 COMPASS   MOVEI    SB7    -2          UPWARD MOVE                                         COMPASS     2164     A     
 COMPASS            SX2    X2+B7                                                           COMPASS     2165     A     
 COMPASS            SX3    X3+B7                                                           COMPASS     2166     A     
 COMPASS            SB7    B1+B1                                                           COMPASS     2167     A     
 COMPASS            ZR     X6,MOVER    IF EVEN NUMBER OF WORDS                             COMPASS     2168     A     
 COMPASS            SA5    X2+B7       MOVE THE ONE ODD WORD                               COMPASS     2169     A     
 COMPASS            IX2    X2+X6                                                           COMPASS     2170     A     
 COMPASS            BX7    X5                                                              COMPASS     2171     A     
 COMPASS            SA7    X3+B7                                                           COMPASS     2172     A     
 COMPASS            IX3    X3+X6                                                           COMPASS     2173     A     
 COMPASS   MOVER    ZR     X1,MOVE     IF MOVE IS NOW COMPLETE                             COMPASS     2174     A     
 COMPASS            SX5    B1+B1       MOVE FIRST TWO WORDS                                COMPASS     2175     A     
 COMPASS            IX1    X1-X5                                                           COMPASS     2176     A     
 COMPASS            SA2    X2+B7       FETCH FIRST DATA PAIR                               COMPASS     2177     A     
 COMPASS            SA4    A2+B1                                                           COMPASS     2178     A     
 COMPASS            BX6    X2                                                              COMPASS     2179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 332    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX7    X4                                                              COMPASS     2180     A     
 COMPASS            SA6    X3+B7                                                           COMPASS     2181     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2182     A     
 COMPASS            ZR     X1,MOVE     QUIT IF ONLY TWO WORDS MOVED                        COMPASS     2183     A     
 COMPASS            SA2    A2+B7       FETCH NEW DATA FOR NEXT MOVE                        COMPASS     2184     A     
 COMPASS            SA4    A4+B7                                                           COMPASS     2185     A     
 COMPASS   MOVEL    BX6    X2          GENERAL MOVE LOOP                                   COMPASS     2186     A     
 COMPASS            SA2    A2+B7                                                           COMPASS     2187     A     
 COMPASS            LX7    X4                                                              COMPASS     2188     A     
 COMPASS            SA4    A4+B7                                                           COMPASS     2189     A     
 COMPASS            IX1    X1-X5                                                           COMPASS     2190     A     
 COMPASS            NO                                                                     COMPASS     2191     A     
 COMPASS            SA6    A6+B7                                                           COMPASS     2192     A     
 COMPASS            SA7    A7+B7                                                           COMPASS     2193     A     
 COMPASS            NZ     X1,MOVEL                                                        COMPASS     2194     A     
 COMPASS                                                                                   COMPASS     2195     A     
 COMPASS   MOVE     PS                 RETURN EXIT                                         COMPASS     2196     A     
 COMPASS            IX4    X2-X3       TEST DIRECTION OF MOVE                              COMPASS     2197     A     
 COMPASS            MX5    59                                                              COMPASS     2198     A     
 COMPASS            BX6    -X5*X1                                                          COMPASS     2199     A     
 COMPASS            IX1    X1-X6       REDUCE COUNT DOWN TO EVEN NUMBER                    COMPASS     2200     A     
 COMPASS            PL     X4,MOVEI    JUMP IF UPWARD MOVE                                 COMPASS     2201     A     
 COMPASS            ZR     X6,MOVED1   IF EVEN NUMBER                                      COMPASS     2202     A     
 COMPASS            SB7    X1                                                              COMPASS     2203     A     
 COMPASS            SA4    X2+B7       MOVE INITIAL WORD                                   COMPASS     2204     A     
 COMPASS            BX6    X4                                                              COMPASS     2205     A     
 COMPASS            SA6    X3+B7                                                           COMPASS     2206     A     
 COMPASS   MOVED1   IX2    X2+X1                                                           COMPASS     2207     A     
 COMPASS            IX3    X3+X1                                                           COMPASS     2208     A     
 COMPASS            SB7    -2                                                              COMPASS     2209     A     
 COMPASS            EQ     MOVER                                                           COMPASS     2210     A     
 COMPASS   MTD      SPACE  4                                                               COMPASS     2211     A     
 COMPASS  **        MTD - MOVE ALL TABLES TO LOW CORE.                                     COMPASS     2212     A     
 COMPASS                                                                                   COMPASS     2213     A     
 COMPASS                                                                                   COMPASS     2214     A     
 COMPASS   MTD      PS                 RETURN EXIT                                         COMPASS     2215     A     
 COMPASS            SB2    NTABLES                                                         COMPASS     2216     A     
 COMPASS            SA1    LOCORE                                                          COMPASS     2217     A     
 COMPASS            LX0    X1                                                              COMPASS     2218     A     
 COMPASS            SB3    B1                                                              COMPASS     2219     A     
 COMPASS   MTD1     SA2    ORIGINS-1+B3                                                    COMPASS     2220     A     
 COMPASS            SA1    SIZES-1+B3                                                      COMPASS     2221     A     
 COMPASS            LX3    X0                                                              COMPASS     2222     A     
 COMPASS            IX0    X0+X1                                                           COMPASS     2223     A     
 COMPASS            LX7    X3                                                              COMPASS     2224     A     
 COMPASS            BX4    X2-X3                                                           COMPASS     2225     A     
 COMPASS            SA7    A2                                                              COMPASS     2226     A     
 COMPASS            SB3    B3+B1                                                           COMPASS     2227     A     
 COMPASS            ZR     X4,MTD2     AVOID NULL MOVE                                     COMPASS     2228     A     
 COMPASS            RJ     MOVE                                                            COMPASS     2229     A     
 COMPASS   MTD2     NE     B3,B2,MTD1  LOOP                                                COMPASS     2230     A     
 COMPASS            EQ     MTD         EXIT                                                COMPASS     2231     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 333    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   MTU      SPACE  4                                                               COMPASS     2232     A     
 COMPASS  **        MTU - MOVE ALL TABLES TO HIGH CORE.                                    COMPASS     2233     A     
 COMPASS                                                                                   COMPASS     2234     A     
 COMPASS                                                                                   COMPASS     2235     A     
 COMPASS   MTU      PS                 RETURN EXIT                                         COMPASS     2236     A     
 COMPASS            SB2    NTABLES                                                         COMPASS     2237     A     
 COMPASS            SA1    LOCORE                                                          COMPASS     2238     A     
 COMPASS            SA2    SIZCORE                                                         COMPASS     2239     A     
 COMPASS            IX0    X1+X2       LWA+1 OF TABLE SPACE AVAILABLE                      COMPASS     2240     A     
 COMPASS            SB3    B2-B1                                                           COMPASS     2241     A     
 COMPASS   MTU1     SB3    B3-B1                                                           COMPASS     2242     A     
 COMPASS            SA2    ORIGINS+B3                                                      COMPASS     2243     A     
 COMPASS            SA1    SIZES+B3                                                        COMPASS     2244     A     
 COMPASS            IX7    X0-X1                                                           COMPASS     2245     A     
 COMPASS            LX0    X7                                                              COMPASS     2246     A     
 COMPASS            SA7    A2                                                              COMPASS     2247     A     
 COMPASS            BX3    X0                                                              COMPASS     2248     A     
 COMPASS            RJ     MOVE                                                            COMPASS     2249     A     
 COMPASS            NZ     B3,MTU1     LOOP                                                COMPASS     2250     A     
 COMPASS            EQ     MTU         EXIT                                                COMPASS     2251     A     
 COMPASS   MVL      SPACE  4,8                                                             CP096A       189     A     
 COMPASS  **        MVL - MOVE BLOCK OF LCM DATA (SCOPE 2 ONLY).                           CP096A       190     A     
 COMPASS  *                                                                                CP096A       191     A     
 COMPASS  *         ENTRY  (X1) = WORD COUNT.                                              CP096A       192     A     
 COMPASS  *                (X2) = SOURCE FWA.                                              CP096A       193     A     
 COMPASS  *                (X3) = DESTINATION FWA.                                         CP096A       194     A     
 COMPASS  *                                                                                CP096A       195     A     
 COMPASS  *         EXIT   (X1) = WORD COUNT.                                              CP096A       196     A     
 COMPASS  *                                                                                CP096A       197     A     
 COMPASS  *         USES   X - 0, 2, 3, 6.                                                 CP096A       198     A     
 COMPASS  *                B - 5, 6, 7.                                                    CP096A       199     A     
 COMPASS  *                A - 0.                                                          CP096A       200     A     
 COMPASS  *                                                                                CP096A       201     A     
 COMPASS  *         CALLS  NONE.                                                           CP096A       202     A     
 COMPASS                                                                                   CP096A       203     A     
 COMPASS                                                                                   CP096A       204     A     
 COMPASS   MVL      PS                 RETURN EXIT                                         CP096A       205     A     
 COMPASS                                                                                   CP096A       206     A     
 COMPASS   RM       IFEQ   CP#RM,7                                                         CP096A       207     A     
 COMPASS                                                                                   CP096A       208     A     
 COMPASS            SB7    X1                                                              CP096A       209     A     
 COMPASS            IX6    X3-X2                                                           CP096A       210     A     
 COMPASS            SB6    100B        MOVE 100B WORDS AT A TIME                           CP096A       211     A     
 COMPASS            SB5    B6                                                              CP096A       212     A     
 COMPASS            MI     X6,MVL1     IF MOVE DOWN                                        CP096A       213     A     
 COMPASS            SB5    B7-B6                                                           CP096A       214     A     
 COMPASS            SX2    X2+B5       PREPARE FOR UPWARD MOVE                             CP096A       215     A     
 COMPASS            SX3    X3+B5                                                           CP096A       216     A     
 COMPASS            SB5    -B6                                                             CP096A       217     A     
 COMPASS   MVL1     SA0    LCMB                                                            CP096A       218     A     
 COMPASS            LE     B7,B6,MVL3  IF ONLY ONE MOVE NEEDED                             CP096A       219     A     
 COMPASS   MVL2     SX0    X2          READ BLOCK                                          CP096A       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/28. 19.11.32.      PAGE 334    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RL     B6                                                              CP096A       221     A     
 COMPASS            SX2    X2+B5                                                           CP096A       222     A     
 COMPASS            SX0    X3          WRITE BLOCK                                         CP096A       223     A     
 COMPASS            WL     B6                                                              CP096A       224     A     
 COMPASS            SB7    B7-B6       COUNT WORDS                                         CP096A       225     A     
 COMPASS            SX3    X3+B5                                                           CP096A       226     A     
 COMPASS            GT     B7,B6,MVL2  LOOP                                                CP096A       227     A     
 COMPASS   MVL3     LE     B7,B0,MVL   RETURN IF FINISHED                                  CP096A       228     A     
 COMPASS            SB5    B6-B7       SETUP FOR LAST MOVE                                 CP096A       229     A     
 COMPASS            SB6    B7                                                              CP096A       230     A     
 COMPASS            MI     X6,MVL2     IF DOWNWARD MOVE                                    CP096A       231     A     
 COMPASS            SX2    X2+B5                                                           CP096A       232     A     
 COMPASS            SX3    X3+B5                                                           CP096A       233     A     
 COMPASS            EQ     MVL2                                                            CP096A       234     A     
 COMPASS                                                                                   CP096A       235     A     
 COMPASS   RM       ELSE                                                                   CP096A       236     A     
 COMPASS                                                                                   CP096A       237     A     
 COMPASS            EQ     *+1S17      ERROR IF NOT SCOPE 2                                CP096A       238     A     
 COMPASS                                                                                   CP096A       239     A     
 COMPASS   RM       ENDIF                                                                  CP096A       240     A     
 COMPASS   OVL      SPACE  4,8                                                             CPS064        30     A     
 COMPASS  **        OVL - LOAD OVERLAY.                                                    CPS064        31     A     
 COMPASS  *         ENTRY  (X1) = OVERLAY NAME.                                            CPS064        32     A     
 COMPASS  *                (X2) = 12/ LEVEL, 12/ 0, 18/ LWA+1, 18/ ORIGIN.                 CPS064        33     A     
 COMPASS                                                                                   CPS064        34     A     
 COMPASS                                                                                   CPS064        35     A     
 COMPASS   OVL      IFNE   OVERLAY,0                                                       CPS064        36     A     
 COMPASS                                                                                   CPS064        37     A     
 COMPASS   OVL      PS                 RETURN EXIT                                         CPS064        38     A     
 COMPASS            SA3    OVLY+1                                                          CPS064        39     A     
 COMPASS            LX6    X1                                                              CPS064        40     A     
 COMPASS            BX7    X2+X3       SETUP SECOND WORD OF LADER CALL                     CPS064        41     A     
 COMPASS            SA7    OVLZ+1                                                          CPS064        42     A     
 COMPASS            SA6    A7+B1       STORE OVERLAY NAME                                  CPS064        43     A     
 COMPASS            LX3    59-46                                                           CPS064        44     A     
 COMPASS            PL     X3,OVL1     IF TWO-WORD CALL                                    CPS064        45     A     
 COMPASS            SA3    A3-B1                                                           CPS064        46     A     
 COMPASS            BX6    X3          SET LIBRARY OR FILE NAME                            CPS064        47     A     
 COMPASS   OVL1     SA6    A7-B1                                                           CPS064        48     A     
 COMPASS            MX7    0           CLEAR LOADER REPLY WORD                             CPS064        49     A     
 COMPASS            SA7    RA.LDR                                                          CPS064        50     A     
 COMPASS            LOADREQ OVLZ       REQUEST OVERLAY LOAD                                CPS064        51     A     
 COMPASS                                                                                   CPS064        52     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CPS064        53     A     
 COMPASS   OVL2     RECALL             WAIT FOR LOADER                                     CPS064        54     A     
 COMPASS            SA4    RA.LDR                                                          CPS064        55     A     
 COMPASS            ZR     X4,OVL2                                                         CPS064        56     A     
 COMPASS   RM       ENDIF                                                                  CPS064        57     A     
 COMPASS                                                                                   CPS064        58     A     
 COMPASS            SA1    OVLZ+1      GET STATUS RESPONSE                                 CPS064        59     A     
 COMPASS            LX1    59-36                                                           CPS064        60     A     
 COMPASS            PL     X1,OVL      IF NO FATAL ERROR                                   CPS064        61     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 335    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    OVLZ+2                                                          CPS064        62     A     
 COMPASS            SX6    1R                                                              CPS064        63     A     
 COMPASS            BX6    X1+X6       PUT OVERLAY NAME IN MESSAGE                         CPS064        64     A     
 COMPASS            LX6    -6                                                              CPS064        65     A     
 COMPASS            SA6    OVLM+1                                                          CPS064        66     A     
 COMPASS            MESSAGE OVLM       *CANT LOAD -------*                                 CPS064        67     A     
 COMPASS            RJ     RPD         RESTORE DEFAULT PRINT DENSITY IF NECESSARY  F4810A  F4810A       108     A     
 COMPASS            ABORT  ,NODUMP                                                         CPS064        68     A     
 COMPASS                                                                                   CPS064        69     A     
 COMPASS   OVLA     CON    0L"OVLA"                                                        CPS064        70     A     
 COMPASS            VFD    12/0101B,12/,18/ENDA+1,18/ORGA                                  CPS064        71     A     
 COMPASS                                                                                   CPS064        72     A     
 COMPASS   OVLM     DIS    ,* CANT LOAD -------*                                           CPS064        73     A     
 COMPASS                                                                                   CPS064        74     A     
 COMPASS   OVLY     BSS    0           LOADER PARAMETERS, SET BY *SFL* IN PASS 0           CPS064        75     A     
 COMPASS   LIB      IFC    EQ, "CP.OVLIB"                                                  CPS064        76     A     
 COMPASS            CON    0L"OVLA"    USE GLOBAL LIBRARY SET                              CPS064        77     A     
 COMPASS            VFD    12/,12/0140B,18/,18/                                            CPS064        78     A     
 COMPASS   LIB      ELSE                                                                   CPS064        79     A     
 COMPASS            CON    0L"CP.OVLIB"  USE SPECIFIED LIBRARY                             CPS064        80     A     
 COMPASS            VFD    12/,12/2140B,18/,18/                                            CPS064        81     A     
 COMPASS   LIB      ENDIF                                                                  CPS064        82     A     
 COMPASS                                                                                   CPS064        83     A     
 COMPASS   OVLZ     BSS    3           SPACE FOR LOADER PARAMETER LIST                     CPS064        84     A     
 COMPASS                                                                                   CPS064        85     A     
 COMPASS   OVL      ENDIF                                                                  CPS064        86     A     
 COMPASS   PRESET   SPACE  4                                                               COMPASS     2252     A     
 COMPASS  **        PRESET - PRESET AREA OF STORAGE.                                       COMPASS     2253     A     
 COMPASS  *         DISASTER IF FWA IS GREATER THAN LWA.                                   COMPASS     2254     A     
 COMPASS  *         ENTRY  (X1) = DATA.                                                    COMPASS     2255     A     
 COMPASS  *                (X2) = FWA.                                                     COMPASS     2256     A     
 COMPASS  *                (X3) = LWA+1.                                                   COMPASS     2257     A     
 COMPASS                                                                                   COMPASS     2258     A     
 COMPASS                                                                                   COMPASS     2259     A     
 COMPASS   PRESET   PS                 RETURN EXIT                                         COMPASS     2260     A     
 COMPASS            BX6    X1                                                              COMPASS     2261     A     
 COMPASS            IX0    X3-X2                                                           COMPASS     2262     A     
 COMPASS            SX3    B1                                                              COMPASS     2263     A     
 COMPASS            SA6    X2                                                              COMPASS     2264     A     
 COMPASS            BX2    X0*X3                                                           COMPASS     2265     A     
 COMPASS            AX0    1                                                               COMPASS     2266     A     
 COMPASS            ZR     X0,PRESET                                                       COMPASS     2267     A     
 COMPASS   +        BX7    X1                                                              COMPASS     2268     A     
 COMPASS            ZR     X2,*+1                                                          COMPASS     2269     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     2270     A     
 COMPASS            IX0    X0-X3                                                           COMPASS     2271     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     2272     A     
 COMPASS            ZR     X0,PRESET                                                       COMPASS     2273     A     
 COMPASS   +        IX0    X0-X3                                                           COMPASS     2274     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2275     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     2276          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 336    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A7+1                                                            CMP30       1763     A     
 COMPASS            NZ     X0,*-1                                                          COMPASS     2277     A     
 COMPASS            EQ     PRESET                                                          COMPASS     2278     A     
 COMPASS   SBA      SPACE  4                                                               COMPASS     2279          I
          -CMP30  
 COMPASS  **        SBA - SET BUFFER ADDRESS.                                              COMPASS     2280          I
          -CMP30  
 COMPASS  *         ENTRY  (X0) = BUFFER FIRST WORD ADDRESS.                               COMPASS     2281          I
          -CMP30  
 COMPASS  *                (X1) = FET ADDRESS.                                             COMPASS     2282          I
          -CMP30  
 COMPASS  *         EXIT   (X0) = BUFFER LAST WORD ADDRESS.                                COMPASS     2283          I
          -CMP30  
 COMPASS                                                                                   COMPASS     2284          I
          -CMP30  
 COMPASS                                                                                   COMPASS     2285          I
          -CMP30  
 COMPASS   SBA      PS                 RETURN EXIT                                         COMPASS     2286          I
          -CMP30  
 COMPASS            SA4    X1+B1       READ FIRST                                          COMPASS     2287          I
          -CMP30  
 COMPASS            BX6    X4+X0                                                           COMPASS     2288          I
          -CMP30  
 COMPASS            LX7    X0                                                              COMPASS     2289          I
          -CMP30  
 COMPASS            SA6    X1+B1       SET FIRST                                           COMPASS     2290          I
          -CMP30  
 COMPASS            SA7    A6+B1       SET IN                                              COMPASS     2291          I
          -CMP30  
 COMPASS            SA7    A7+B1       SET OUT                                             COMPASS     2292          I
          -CMP30  
 COMPASS            SA2    A7+B1       SET LIMIT                                           COMPASS     2293          I
          -CMP30  
 COMPASS            IX6    X7+X2                                                           COMPASS     2294          I
          -CMP30  
 COMPASS            SA6    A7+B1                                                           COMPASS     2295          I
          -CMP30  
 COMPASS            IX0    X0+X2                                                           COMPASS     2296          I
          -CMP30  
 COMPASS            EQ     SBA         RETURN                                              COMPASS     2297          I
          -CMP30  
 COMPASS   PULL     SPACE  4                                                               CMP30       1764     A     
 COMPASS  **        PULL - REMOVE TOP ENTRY FROM A PUSH-DOWN STACK.                        CMP30       1765     A     
 COMPASS  *         ENTRY  (X1) = STACK CONTROL WORD.                                      CMP30       1766     A     
 COMPASS  *                (A1) = ADDRESS OF SAME.                                         CMP30       1767     A     
 COMPASS  *         EXIT   (X1) = (X6) = TOP ENTRY IN STACK.                               CMP30       1768     A     
 COMPASS  *                THE ENTRY IS DELETED FROM THE STACK.                            CMP30       1769     A     
 COMPASS                                                                                   CMP30       1770     A     
 COMPASS                                                                                   CMP30       1771     A     
 COMPASS   PULL1    AX1    24          RETURN DEFAULT VALUE                                CMP30       1772     A     
 COMPASS            BX6    X1                                                              CMP30       1773     A     
 COMPASS                                                                                   CMP30       1774     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 337    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PULL     PS                 RETURN EXIT                                         CMP30       1775     A     
 COMPASS            MX0    -6                                                              CMP30       1776     A     
 COMPASS            SB7    X1          AVAILABLE ENTRY COUNT                               CMP30       1777     A     
 COMPASS            AX1    18                                                              CMP30       1778     A     
 COMPASS            BX7    -X0*X1                                                          CMP30       1779     A     
 COMPASS            ZR     X7,PULL1    IF STACK IS EMPTY                                   CMP30       1780     A     
 COMPASS            AX1    6                                                               CMP30       1781     A     
 COMPASS            SB6    X7          CURRENT WORD NUMBER                                 CMP30       1782     A     
 COMPASS            BX7    -X0*X1                                                          CMP30       1783     A     
 COMPASS            SA2    A1+B6       CURRENT WORD                                        CMP30       1784     A     
 COMPASS            AX1    6                                                               CMP30       1785     A     
 COMPASS            SB5    X7          CURRENT BIT POSITION                                CMP30       1786     A     
 COMPASS            BX3    -X0*X1                                                          CMP30       1787     A     
 COMPASS            MX0    1                                                               CMP30       1788     A     
 COMPASS            SB4    X3          BITS PER ENTRY                                      CMP30       1789     A     
 COMPASS            SX3    X3+B5       NEW BIT POSITION                                    CMP30       1790     A     
 COMPASS            SB4    B4-59                                                           CMP30       1791     A     
 COMPASS            LX0    X0,B4       MX0  -BPE                                           CMP30       1792     A     
 COMPASS            SB4    B4-B1                                                           CMP30       1793     A     
 COMPASS            LX0    X0,B5       POSITION MASK                                       CMP30       1794     A     
 COMPASS            SB4    X3+B4                                                           CMP30       1795     A     
 COMPASS            BX7    X0*X2       ERASE ENTRY                                         CMP30       1796     A     
 COMPASS            SX4    B6                                                              CMP30       1797     A     
 COMPASS            LE     B4,B0,PULL2 IF NOT END OF WORD                                  CMP30       1798     A     
 COMPASS            MX3    0                                                               CMP30       1799     A     
 COMPASS            SX4    B6-B1                                                           CMP30       1800     A     
 COMPASS   PULL2    BX6    -X0*X2      RETURN VALUE                                        CMP30       1801     A     
 COMPASS            LX1    6                                                               CMP30       1802     A     
 COMPASS            SA7    A2          RESTORE STACK WORD                                  CMP30       1803     A     
 COMPASS            BX2    X1+X3                                                           CMP30       1804     A     
 COMPASS            AX6    X6,B5       RIGHT JUSTIFY VALUE                                 CMP30       1805          I
          -CPS232 
 COMPASS            SB6    60                                                              CPS232         6     A     
 COMPASS            SB5    B6-B5                                                           CPS232         7     A     
 COMPASS            LX6    B5                                                              CPS232         8     A     
 COMPASS            SX3    B7+B1       BUMP AVAILABLE ENTRY COUNT                          CMP30       1806     A     
 COMPASS            LX4    18                                                              CMP30       1807     A     
 COMPASS            BX1    X4+X3                                                           CMP30       1808     A     
 COMPASS            LX2    24                                                              CMP30       1809     A     
 COMPASS            BX7    X2+X1       RESTORE CONTROL WORD                                CMP30       1810     A     
 COMPASS            LX1    X6                                                              CMP30       1811     A     
 COMPASS            SA7    A1                                                              CMP30       1812     A     
 COMPASS            EQ     PULL        RETURN                                              CMP30       1813     A     
 COMPASS   PUSH     SPACE  4                                                               CMP30       1814     A     
 COMPASS  **        PUSH - ADD NEW ENTRY AT TOP OF A PUSH-DOWN STACK.                      CMP30       1815     A     
 COMPASS  *         ENTRY  (X1) = STACK CONTROL WORD.                                      CMP30       1816     A     
 COMPASS  *                (A1) = ADDRESS OF SAME.                                         CMP30       1817     A     
 COMPASS  *                (X6) = VALUE TO BE ADDED TO STACK.                              CMP30       1818     A     
 COMPASS  *         EXIT   IF STACK OVERFLOWS, BOTTOM-MOST ENTRY IS LOST.                  CMP30       1819     A     
 COMPASS                                                                                   CMP30       1820     A     
 COMPASS                                                                                   CMP30       1821     A     
 COMPASS   PUSH1    SX3    B5                                                              CMP30       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/28. 19.11.32.      PAGE 338    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX7    18                                                              CMP30       1823     A     
 COMPASS            BX2    X1+X3                                                           CMP30       1824     A     
 COMPASS            SX1    B7-B1       DECREMENT AVAILABLE ENTRY COUNT                     CMP30       1825     A     
 COMPASS            BX6    X7+X1                                                           CMP30       1826     A     
 COMPASS            LX2    24                                                              CMP30       1827     A     
 COMPASS            BX6    X2+X6       RESTORE CONTROL WORD                                CMP30       1828     A     
 COMPASS            SA6    A1                                                              CMP30       1829     A     
 COMPASS                                                                                   CMP30       1830     A     
 COMPASS   PUSH     PS                 RETURN EXIT                                         CMP30       1831     A     
 COMPASS            MX0    -6                                                              CMP30       1832     A     
 COMPASS            SB7    X1          AVAILABLE ENTRY COUNT                               CMP30       1833     A     
 COMPASS            AX1    18                                                              CMP30       1834     A     
 COMPASS            BX7    -X0*X1                                                          CMP30       1835     A     
 COMPASS            ZR     B7,PUSH3    IF STACK IS FULL                                    CMP30       1836     A     
 COMPASS            AX1    6                                                               CMP30       1837     A     
 COMPASS            SB6    X7          CURRENT WORD NUMBER                                 CMP30       1838     A     
 COMPASS            BX3    -X0*X1      CURRENT BIT POSITION                                CMP30       1839     A     
 COMPASS            AX1    6                                                               CMP30       1840     A     
 COMPASS            BX2    -X0*X1                                                          CMP30       1841     A     
 COMPASS            SB5    X2          BITS PER ENTRY                                      CMP30       1842     A     
 COMPASS            ZR     X3,PUSH2    IF WORD IS FULL                                     CMP30       1843     A     
 COMPASS            SA2    A1+B6                                                           CMP30       1844     A     
 COMPASS            SB6    -B5                                                             CMP30       1845     A     
 COMPASS            SB5    X3+B6       NEW BIT POSITION                                    CMP30       1846     A     
 COMPASS            LX3    X6,B5       POSITION NEW ENTRY VALUE                            CMP30       1847     A     
 COMPASS            BX6    X2+X3       APPEND TO CURRENT WORD                              CMP30       1848     A     
 COMPASS            SA6    A2          STORE IT BACK                                       CMP30       1849     A     
 COMPASS            LX1    6                                                               CMP30       1850     A     
 COMPASS            EQ     PUSH1       GO RESTORE CONTROL WORD                             CMP30       1851     A     
 COMPASS   PUSH2    LX1    -6                                                              CMP30       1852     A     
 COMPASS            SB6    B6+B1       BUMP WORD NUMBER                                    CMP30       1853     A     
 COMPASS            BX2    -X0*X1      UNUSED BITS AT TOP OF WORD                          CMP30       1854     A     
 COMPASS            SB5    X2+B5                                                           CMP30       1855     A     
 COMPASS            SB4    60                                                              CMP30       1856     A     
 COMPASS            LX1    12                                                              CMP30       1857     A     
 COMPASS            SB5    B4-B5       NEW BIT POSITION                                    CMP30       1858     A     
 COMPASS            LX6    X6,B5       POSITION NEW ENTRY VALUE                            CMP30       1859     A     
 COMPASS            SX7    B6                                                              CMP30       1860     A     
 COMPASS            NO                                                                     CMP30       1861     A     
 COMPASS            SA6    A1+B6       STORE NEW WORD                                      CMP30       1862     A     
 COMPASS            EQ     PUSH1       GO RESTORE CONTROL WORD                             CMP30       1863     A     
 COMPASS   PUSH3    AX1    6                                                               CMP30       1864     A     
 COMPASS            SB7    X7          CURRENT WORD NUMBER                                 CMP30       1865     A     
 COMPASS            BX7    -X0*X1                                                          CMP30       1866     A     
 COMPASS            AX1    6                                                               CMP30       1867     A     
 COMPASS            SB6    X7          CURRENT BIT POSITION                                CMP30       1868     A     
 COMPASS            BX7    -X0*X1                                                          CMP30       1869     A     
 COMPASS            AX1    6                                                               CMP30       1870     A     
 COMPASS            SB5    X7          BITS PER ENTRY                                      CMP30       1871     A     
 COMPASS            BX7    -X0*X1                                                          CMP30       1872     A     
 COMPASS            MX0    1                                                               CMP30       1873     A     
 COMPASS            SB4    B5-59                                                           CMP30       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/28. 19.11.32.      PAGE 339    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX0    X0,B4       MX0  -BPE                                           CMP30       1875     A     
 COMPASS            SA3    A1+B1                                                           CMP30       1876     A     
 COMPASS            SA2    A3+B1                                                           CMP30       1877     A     
 COMPASS            LX1    X3,B5                                                           CMP30       1878     A     
 COMPASS            EQ     B7,B1,PUSH5 IF ONE-WORD STACK                                   CMP30       1879     A     
 COMPASS            SB4    X7+B5                                                           CMP30       1880     A     
 COMPASS            BX1    X0*X1                                                           CMP30       1881     A     
 COMPASS            LX3    X2,B4                                                           CMP30       1882     A     
 COMPASS            SB3    X7          UNUSED BITS AT TOP OF WORD                          CMP30       1883     A     
 COMPASS   PUSH4    BX2    -X0*X3                                                          CMP30       1884     A     
 COMPASS            BX7    X1+X2                                                           CMP30       1885     A     
 COMPASS            AX1    X3,B3                                                           CMP30       1886     A     
 COMPASS            SA7    A2-B1       OFFSET MOVE LOOP TO SLIDE STACK DOWN                CMP30       1887     A     
 COMPASS            SB7    B7-B1                                                           CMP30       1888     A     
 COMPASS            SA2    A2+B1                                                           CMP30       1889     A     
 COMPASS            BX1    X0*X1                                                           CMP30       1890     A     
 COMPASS            LX3    X2,B4                                                           CMP30       1891     A     
 COMPASS            NE     B7,B1,PUSH4 LOOP                                                CMP30       1892     A     
 COMPASS   PUSH5    SB4    B5+B6                                                           CMP30       1893     A     
 COMPASS            MX0    1                                                               CMP30       1894     A     
 COMPASS            SB5    B4-59                                                           CMP30       1895     A     
 COMPASS            LX0    X0,B5                                                           CMP30       1896     A     
 COMPASS            BX2    X0*X1       MASK SIGNIFICANT BITS IN LAST WORD OF STACK         CMP30       1897     A     
 COMPASS            LX1    X6,B6       POSITION NEW ENTRY VALUE                            CMP30       1898     A     
 COMPASS            BX7    X2+X1       APPEND TO WORD                                      CMP30       1899     A     
 COMPASS            SA7    A2-B1       STORE IT BACK                                       CMP30       1900     A     
 COMPASS            EQ     PUSH        RETURN                                              CMP30       1901     A     
 COMPASS   RCS      SPACE  4,10                                                    F4810B  F4810B        86     A     
 COMPASS  **        RCS - RESTORE COMPILER SPACE.                                  F4810B  F4810B        87     A     
 COMPASS  *         RESTORES THE CELLS CP.NFLS AND CP.AFLS AND THE SPACE INCLUDED  F4810B  F4810B        88     A     
 COMPASS  *         BETWEEN  THE ADDRESSES CONTAINED IN THESE CELLS TO THEIR       F4810B  F4810B        89     A     
 COMPASS  *         ORIGINAL STATE (ON ENTERING COMPASS FROM A COMPILER CALL)      F4810B  F4810B        90     A     
 COMPASS  *         BEFORE RETURNING CONTROL TO THE COMPILER.                      F4810B  F4810B        91     A     
 COMPASS                                                                           F4810B  F4810B        92     A     
 COMPASS                                                                           F4810B  F4810B        93     A     
 COMPASS   RCS      PS                 RETURN EXIT                                 F4810B  F4810B        94     A     
 COMPASS            SA1    L.CMPTAB                                                F4810B  F4810B        95          I
          -CPSA126
 COMPASS            ZR     X1,RCS      IF NONE SAVED, RETURN                       F4810B  F4810B        96          I
          -CPSA126
 COMPASS            SA2    O.CMPTAB    GET ORGIN OF COMPILER TABLE                 F4810B  F4810B        97          I
          -CPSA126
 COMPASS            MX3    30                                                      F4810B  F4810B        98          I
          -CPSA126
 COMPASS            SA2    X2          ORIGINAL CONTENTS OF CP.NFLS AND CP.AFLS    F4810B  F4810B        99          I
          -CPSA126
 COMPASS            BX6    -X3*X2                                                  F4810B  F4810B       100          I
          -CPSA126
 COMPASS            SA6    CP.AFLS     RESTORE ORIGINAL ACTUAL FIELD LENGTH        F4810B  F4810B       101          I
          -CPSA126
 COMPASS            BX1    -X6         SAVE FOR MEMORY REQUEST                     F4810B  F4810B       102          I
          -CPSA126
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 340    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     RFL         REQUEST FL OF CP.AFLS                       F4810B  F4810B       103          I
          -CPSA126
 COMPASS            SA2    O.CMPTAB    RESTORE SAVED COMPILER SPACE                F4810B  F4810B       104          I
          -CPSA126
 COMPASS            SA1    CP.AFLS                                                 F4810B  F4810B       105          I
          -CPSA126
 COMPASS            SB3    X1                                                      F4810B  F4810B       106          I
          -CPSA126
 COMPASS            SA1    CP.NFLS                                                 F4810B  F4810B       107          I
          -CPSA126
 COMPASS            SA3    X2          RETRIEVE ORIGINAL CP.NFLS FROM TABLE        F4810B  F4810B       108          I
          -CPSA126
 COMPASS            AX3    30-0                                                    F4810B  F4810B       109          I
          -CPSA126
 COMPASS            BX6    X3                                                      F4810B  F4810B       110          I
          -CPSA126
 COMPASS            SA6    A1          RESTORE ORIGINAL CP.NFLS                    F4810B  F4810B       111          I
          -CPSA126
 COMPASS            SB4    X1          DESTINATION ADDRESS OF FIRST WORD IN TABLE  F4810B  F4810B       112          I
          -CPSA126
 COMPASS   RCS1     GE     B4,B3,RCS   IF THROUGH, RETURN                          F4810B  F4810B       113          I
          -CPSA126
 COMPASS            SX2    X2+B1       INCREMENT SOURCE ADDRESS                    F4810B  F4810B       114          I
          -CPSA126
 COMPASS            SA3    X2                                                      F4810B  F4810B       115          I
          -CPSA126
 COMPASS            BX6    X3                                                      F4810B  F4810B       116          I
          -CPSA126
 COMPASS            SA6    B4                                                      F4810B  F4810B       117          I
          -CPSA126
 COMPASS            SB4    B4+B1       INCREMENT DESTINATION ADDRESS               F4810B  F4810B       118          I
          -CPSA126
 COMPASS            EQ     RCS1        CONTINUE                                    F4810B  F4810B       119          I
          -CPSA126
 COMPASS            SA1    L.CMPTAB                                                        CPSA126        6     A     
 COMPASS            ZR     X1,RCS      IF NOT CALLED BY A COMPILER                         CPSA126        7     A     
 COMPASS            SA1    FTNE                                                            CPSA168        8          I
          -CPSA184
 COMPASS            SA1    FTNE+1                                                          CPSA184        6     A     
 COMPASS            ZR     X1,RCS05    IF WE DIDNT SET UP E FILE BUFFER ADDRESSES.         CPSA184        7     A     
 COMPASS            BX6    X1                                                              CPSA184        8     A     
 COMPASS            SA6    E+4         RESTORE BUFFER LENGTH                               CPSA184        9     A     
 COMPASS            SA1    E+1                                                             CPSA184       10     A     
 COMPASS            MX6    -18                                                             CPSA184       11     A     
 COMPASS            BX1    X6+X1       CLEAR FIRST ADDRESS IN FET                          CPSA184       12          I
          -CPSA236
 COMPASS            BX6    X6*X1       CLEAR FIRST ADDRESS IN FET                          CPSA236        6     A     
 COMPASS            SA6    A1                                                              CPSA184       13     A     
 COMPASS            MX6    0                                                               CPSA184       14     A     
 COMPASS            SA6    A6+B1       CLEAR IN ADDRESS IN FET                             CPSA184       15     A     
 COMPASS            SA6    A6+B1       CLEAR OUT ADDRESS IN FET.                           CPSA184       16     A     
 COMPASS   RCS05    SA1    FTNE                                                            CPSA184       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/28. 19.11.32.      PAGE 341    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X1                                                              CPSA168        9     A     
 COMPASS            SA6    E           RESTORE E FET FOR FTN.                              CPSA168       10     A     
 COMPASS            SA1    O.CMPTAB    ELSE GET ORIGINAL CP.AFLS AND CP.NFLS               CPSA126        8     A     
 COMPASS            SA3    X1                                                              CPSA126        9     A     
 COMPASS            BX6    X3                                                              CPSA126       10     A     
 COMPASS            SA6    CP.AFLS     SAVE TO LATER RESTORE CP.NFLS AND CP.AFLS           CPSA126       11     A     
 COMPASS            SX1    X3                                                              CPSA126       12     A     
 COMPASS            AX3    30                                                              CPSA126       13     A     
 COMPASS            IX3    X1-X3       ORIGINAL CP.AFLS-ORIGINAL CP.NFLS                   CPSA126       14     A     
 COMPASS            ZR     X3,RCS2     IF NO SPACE SAVED, GO RESTORE FL.                   CPSA126       15     A     
 COMPASS            SB3    5           ELSE EMPTY ALL TABLES EXCEPT CMPTAB                 CPSA126       16     A     
 COMPASS            MX6    0                                                               CPSA126       17     A     
 COMPASS            SA6    L.INTER     FIRST TABLE TO BE EMPTIED                           CPSA126       18     A     
 COMPASS   RCS1     SB3    B3-B1                                                           CPSA126       19     A     
 COMPASS            SA6    A6+B1       SET NEXT TABLE LENGTH TO ZERO                       CPSA126       20     A     
 COMPASS            GT     B3,B1,RCS1  IF NOT THROUGH                                      CPSA126       21     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN                                    CPSA126       22     A     
 COMPASS            SA2    O.CMPTAB    GET ORGIN OF COMPILER TABLE                         CPSA126       23     A     
 COMPASS            SA1    X2          GET ORIGINAL CONTENTS OF CP.AFLS, CP.NFLS           CPSA126       24     A     
 COMPASS            SX1    X1          GET RID OF TOP PART OF WORD                         CPSA126       25     A     
 COMPASS   RCS2     BX1    -X1                                                             CPSA126       26     A     
 COMPASS            RJ     RFL         RESTORE ORIGINAL FL TO ORIGINAL CP.AFLS             CPSA126       27     A     
 COMPASS            SA2    O.CMPTAB                                                        CPSA126       28     A     
 COMPASS            SA1    L.CMPTAB                                                        CPSA126       29     A     
 COMPASS            SX1    X1-1        WORD COUNT FOR MOVE (IGNORE FIRST WORD)             CPSA126       30     A     
 COMPASS            ZR     X1,RCS3     IF NONE SAVED, GO RESTORE CP.NFLS, CP.AFLS          CPSA126       31     A     
 COMPASS            SA3    X2          FWA OF CMPTAB                                       CPSA126       32     A     
 COMPASS            SX2    X2+B1       SKIP CELL STORING CP.AFLS AND CP.NFLS               CPSA126       33     A     
 COMPASS            AX3    30-0        DESTINATION ADDRESS (CP.NFLS)                       CPSA126       34     A     
 COMPASS            RJ     MOVE        RESTORE COMPILER SPACE                              CPSA126       35     A     
 COMPASS   RCS3     SA3    CP.AFLS     GET ORIGINAL CP.NFLS, CP.AFLS                       CPSA126       36     A     
 COMPASS            SX7    X3                                                              CPSA126       37     A     
 COMPASS            AX3    30                                                              CPSA126       38     A     
 COMPASS            BX6    X3                                                              CPSA126       39     A     
 COMPASS            SA6    CP.NFLS     RESTORE ORIGINAL CP.NFLS                            CPSA126       40     A     
 COMPASS            SA7    CP.AFLS     RESTORE ORIGINAL CP.AFLS                            CPSA126       41     A     
 COMPASS            EQ     RCS         RETURN                                              CPSA126       42     A     
 COMPASS   RFL      SPACE  4,10                                                    F4810B  F4810B       120     A     
 COMPASS  **        RFL - REQUEST FIELD LENGTH                                     F4810B  F4810B       121     A     
 COMPASS  *         ENTRY  (X1) = +    REQUESTS MIN(X1+FLINC+CP.NFLS,MAXFL)        F4810B  F4810B       122     A     
 COMPASS  *                            WHERE X1 IS NUMBER OF ADDITIONAL WORDS REQ. F4810B  F4810B       123     A     
 COMPASS  *                       -    REQUESTS MIN(-X1,MAXFL)                     F4810B  F4810B       124     A     
 COMPASS  *                            WHERE -X1 IS A SPECIFIC FL REQUIRED         F4810B  F4810B       125     A     
 COMPASS  *         EXIT   (X3) = NZ   FIELD LENGTH REQUEST COMPLETED              F4810B  F4810B       126     A     
 COMPASS  *                       0    INDICATES FIELD LENGTH ALREADY = MAXFL      F4810B  F4810B       127     A     
 COMPASS  *                                                                        F4810B  F4810B       128     A     
 COMPASS  *         USES   A           2,3,4,6                                     F4810B  F4810B       129     A     
 COMPASS  *                B           NONE                                        F4810B  F4810B       130     A     
 COMPASS  *                X           1,2,3,4,6                                   F4810B  F4810B       131     A     
 COMPASS                                                                           F4810B  F4810B       132     A     
 COMPASS                                                                           F4810B  F4810B       133     A     
 COMPASS   RFL      PS                 RETURN EXIT                                 F4810B  F4810B       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/28. 19.11.32.      PAGE 342    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    MAXFL       MAXIMUM FL                                  F4810B  F4810B       135     A     
 COMPASS            BX6    -X1                                                     F4810B  F4810B       136     A     
 COMPASS            SA4    CP.NFLS     CURRENT FL                                  F4810B  F4810B       137     A     
 COMPASS            MI     X1,RFL1     IF REQUESTING SPECIFIC FIELD LENGTH         F4810B  F4810B       138     A     
 COMPASS            IX3    X2-X4       ELSE REQUESTING X ADDITIONAL WORDS FL       F4810B  F4810B       139     A     
 COMPASS            ZR     X3,RFL      IF ALREADY AT MAX., RETURN                  F4810B  F4810B       140          I
          -CPSA125
 COMPASS            NZ     X3,RFL0     IF NOT ALREADY AT MAX. FL.                          CPSA125       43     A     
 COMPASS            SX6    B1          ELSE SET FLAG TO USE LAST 1000 WORDS                CPSA125       44     A     
 COMPASS            SA6    LSTTHOU                                                         CPSA125       45     A     
 COMPASS            EQ     RFL         RETURN                                              CPSA125       46     A     
 COMPASS                                                                                   CPSA125       47     A     
 COMPASS   RFL0     BSS    0                                                               CPSA125       48     A     
 COMPASS            IX6    X4+X1       WORDS REQUESTED + CURRENT FL                F4810B  F4810B       141     A     
 COMPASS            SX3    FLINC       FL INCREMENT                                F4810B  F4810B       142     A     
 COMPASS            IX6    X6+X3       WORDS REQUESTED + CURRENT FL + FLINC        F4810B  F4810B       143     A     
 COMPASS            MX3    -6          ROUND UP REQUEST                            F4810B  F4810B       144          I
          -CPSA125
 COMPASS            SX6    X6+77B                                                  F4810B  F4810B       145          I
          -CPSA125
 COMPASS   RFL1     MX3    -6          ROUND UP REQUEST                                    CPSA125       49     A     
 COMPASS            IX6    X6-X3                                                           CPSA125       50     A     
 COMPASS            BX6    X3*X6                                                   F4810B  F4810B       146     A     
 COMPASS   RFL1     IX3    X2-X6                                                   F4810B  F4810B       147          I
          -CPSA125
 COMPASS            IX3    X2-X6                                                           CPSA125       51     A     
 COMPASS            PL     X3,RFL2     IF REQUEST NOT GREATER THAN MAXIMUM JOB FL  F4810B  F4810B       148     A     
 COMPASS            BX6    X2          ELSE REQUEST MAXIMUM JOB FL                 F4810B  F4810B       149     A     
 COMPASS   RFL2     LX6    30-0                                                    F4810B  F4810B       150          I
          -SIE7969
 COMPASS   RFL2     IX2    X4-X6       COMPARE REQUESTED FL TO CURRENT                     SIE7969        5     A     
 COMPASS            ZR     X2,RFL      IF REQUEST = CURRENT, RETURN                        SIE7969        6     A     
 COMPASS            LX6    30-0                                                            SIE7969        7     A     
 COMPASS            SA6    A4          PREPARE REQUEST/REPLY WORD                  F4810B  F4810B       151     A     
 COMPASS            MEMORY CM,CP.NFLS,RECALL MAKE MEMORY REQUEST                   F4810B  F4810B       152     A     
 COMPASS            SA2    CP.NFLS     GET REPLY WORD                              F4810B  F4810B       153     A     
 COMPASS            AX2    30-0        SHIFT RETURNED FL INTO LOWER 30 BITS        F4810B  F4810B       154     A     
 COMPASS            BX6    X2                                                      F4810B  F4810B       155     A     
 COMPASS            SA6    CP.NFLS     SET UP NEW CURRENT FL                       F4810B  F4810B       156     A     
 COMPASS            SA3    LOCORE      UNUSABLE SPACE                              F4810B  F4810B       157     A     
 COMPASS            SX6    X6-10       ALLOW TEN WORDS FOR SLOP                    F4810B  F4810B       158     A     
 COMPASS            SA6    O.ENDTAB    RESET END OF TABLES POINTER                 F4810B  F4810B       159     A     
 COMPASS            IX6    X6-X3       NEW FL - UNUSABLE SPACE - 10 WORDS SLOP     F4810B  F4810B       160     A     
 COMPASS            SA6    SIZCORE     SET TABLE SPACE                             F4810B  F4810B       161     A     
 COMPASS            EQ     RFL         RETURN                                      F4810B  F4810B       162     A     
 COMPASS   RLC      SPACE  4                                                               CMP30       1902     A     
 COMPASS  **        RLC - READ LARGE CORE MEMORY.                                          CMP30       1903     A     
 COMPASS  *         ENTRY  (X1) = LCM FWA.                                                 CMP30       1904     A     
 COMPASS  *                (X2) = SCM FWA.                                                 CMP30       1905     A     
 COMPASS  *                (X3) = WORD COUNT.                                              CMP30       1906     A     
 COMPASS  *         USES   X0, X1, A0, B5, B6, B7.                                         CMP30       1907          I
          -CP096A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 343    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         USES   X - 0, 1, 3.                                                    CP096A       241     A     
 COMPASS  *                B - 5, 6, 7.                                                    CP096A       242     A     
 COMPASS  *                A - 0.                                                          CP096A       243     A     
 COMPASS                                                                                   CMP30       1908     A     
 COMPASS                                                                                   CMP30       1909     A     
 COMPASS   RLC1     SB7    X3-1000B                                                        CMP30       1910     A     
 COMPASS            SB6    1000B                                                           CMP30       1911     A     
 COMPASS            PL     B7,RLC2     IF AT LEAST 1000B WORDS REMAIN                      CMP30       1912     A     
 COMPASS            SB7    B0                                                              CMP30       1913     A     
 COMPASS            SB6    X3          SET REDUCED WORD COUNT                              CMP30       1914     A     
 COMPASS   RLC2     BSS    0                                                               CMP30       1915     A     
 COMPASS                                                                                   CMP30       1916     A     
 COMPASS            IFC    LT, "MODEL" 75 ,3                                               CMP30       1917          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP       80          I
          -CPS167 
 COMPASS            ENV    (4,5,6,7,8,9),X                                                 CPS167         4          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       81          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP       82          I
          -CPSA134
 COMPASS            IF     DEF,HAFEXIT                                                     CPSA134       68     A     
 COMPASS   +        RE     B6                                                              CMP30       1918     A     
 COMPASS   -        RJ     RLC3        IF ERROR                                            CMP30       1919     A     
 COMPASS            ELSE   1                                                               CMP30       1920          I
          -F7540CP
 COMPASS            ELSE                                                                   F7540CP       83          I
          -CPSA134
 COMPASS            ELSE   1                                                               CPSA134       69     A     
 COMPASS            RL     B6                                                              CMP30       1921     A     
 COMPASS   X        ENDIF                                                                  F7540CP       84          I
          -CPSA134
 COMPASS                                                                                   CMP30       1922     A     
 COMPASS            IX0    X0+X1       INCREMENT ADDRESSES                                 CMP30       1923     A     
 COMPASS            SA0    A0+B6                                                           CMP30       1924     A     
 COMPASS            SX3    B7                                                              CMP30       1925     A     
 COMPASS            GT     B7,B0,RLC1  LOOP                                                CMP30       1926     A     
 COMPASS                                                                                   CMP30       1927     A     
 COMPASS   RLC      PS                 RETURN EXIT                                         CMP30       1928     A     
 COMPASS            BX0    X1                                                              CMP30       1929     A     
 COMPASS            SA0    X2                                                              CMP30       1930     A     
 COMPASS            SB5    3           RETRY COUNTER                                       CMP30       1931     A     
 COMPASS            SX1    1000B                                                           CMP30       1932     A     
 COMPASS            MI     X3,RLC                                                          CMP30       1933     A     
 COMPASS            NZ     X3,RLC1     IF WORD COUNT GREATER THAN ZERO                     CMP30       1934     A     
 COMPASS            EQ     RLC         RETURN                                              CMP30       1935     A     
 COMPASS                                                                                   CMP30       1936     A     
 COMPASS   ECS      IFC    LT, "MODEL" 75                                                  CMP30       1937          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),ECS                                                   F7540CP       85          I
          -CPS167 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 344    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ENV    (4,5,6,7,8,9),ECS                                               CPS167         5          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       86          I
          -CPSA134
 COMPASS   ECS      ELSE                                                                   F7540CP       87          I
          -CPSA134
 COMPASS   ECS      IF     DEF,HAFEXIT                                                     CPSA134       70     A     
 COMPASS                                                                                   CMP30       1938     A     
 COMPASS   RLC3     PS                 RETURN EXIT                                         CMP30       1939     A     
 COMPASS            SB5    B5-B1                                                           CMP30       1940     A     
 COMPASS            MI     B5,RLC4     IF FAILURE AFTER 4 ATTEMPTS                         CMP30       1941     A     
 COMPASS   +        RE     B6                                                              CMP30       1942     A     
 COMPASS   -        EQ     RLC3+1      IF ERROR                                            CMP30       1943     A     
 COMPASS            SB5    3           RESET RETRY COUNT                                   CMP30       1944     A     
 COMPASS            EQ     RLC3        RETURN                                              CMP30       1945     A     
 COMPASS   RLC4     MESSAGE RLCM,,R                                                        CMP30       1946     A     
 COMPASS            RJ     RPD         RESTORE DEFAULT PRINT DENSITY IF NECESSARY  F4810A  F4810A       109     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30       1947     A     
 COMPASS                                                                                   CMP30       1948     A     
 COMPASS   RLCM     DATA   C* ASSEMBLY ABORTED - ECS READ ERROR.*                          CMP30       1949     A     
 COMPASS                                                                                   CMP30       1950     A     
 COMPASS   ECS      ENDIF                                                                  CMP30       1951     A     
 COMPASS   RPD      SPACE  4,10                                                    F4810A  F4810A       110     A     
 COMPASS  **        RPD - RESTORE PRINT DENSITY.                                   F4810A  F4810A       111     A     
 COMPASS  *         RESTORE PRINTER DENSITY TO DEFAULT IF IT HAS BEEN CHANGED.     F4810A  F4810A       112     A     
 COMPASS                                                                           F4810A  F4810A       113     A     
 COMPASS                                                                           F4810A  F4810A       114     A     
 COMPASS   RPD      PS                 RETURN EXIT                                 F4810A  F4810A       115     A     
 COMPASS            SA2    LASTLIN     CHECK IF PRINT DENSITY HAS BEEN CHANGED     F4810A  F4810A       116          I
          -CPS236 
 COMPASS            ZR     X2,RPD      IF PRINT DENSITY (CP.PD)=DEFAULT (IP.PD)    F4810A  F4810A       117          I
          -CPS236 
 COMPASS            SA2    FRSTLIN     CHECK IF PRINT DENSITY IS EIGHT                     CPS236        13     A     
 COMPASS            ZR     X2,RPD      IF PRINT DENSITY IS SIX, LEAVE IT.                  CPS236        14     A     
 COMPASS                                                                           F4810A  F4810A       118     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                 F4810A  F4810A       119     A     
 COMPASS            SA2    CP.LISTF                                                F4810A  F4810A       120     A     
 COMPASS            ZR     X2,RPD1     IF NO LONG LIST                             F4810A  F4810A       121     A     
 COMPASS            WRITEH O,LASTLIN,1 RESTORE PRINTER TO DEFAULT PRINT DENSITY    F4810A  F4810A       122          I
          -CPS236 
 COMPASS            WRITEH O,LASTLIN,1 RESTORE PRINTER TO SIX LPI DENSITY                  CPS236        15          I
          -CPSA265
 COMPASS            SA1    LASTLIN                                                         CPSA265       39     A     
 COMPASS            ZR     X1,RDP0     IF PRINT DENSITY AT DEFAULT                         CPSA265       40     A     
 COMPASS            WRITEH O,A1,1                                                          CPSA265       41     A     
 COMPASS   RDP0     BSS    0                                                               CPSA265       42     A     
 COMPASS            WRITER O,RECALL                                                F4810A  F4810A       123     A     
 COMPASS   RPD1     SA1    E           CHECK IF ERROR FILE WRITTEN                 F4810A  F4810A       124          I
          -CPS236 
 COMPASS            SA2    E+2                                                     F4810A  F4810A       125          I
          -CPS236 
 COMPASS            SA3    A2+B1                                                   F4810A  F4810A       126          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 345    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS236 
 COMPASS            LX1    59-3                                                    F4810A  F4810A       127          I
          -CPS236 
 COMPASS            IX4    X2-X3       CHECK IF BUFFER EMPTY                       F4810A  F4810A       128          I
          -CPS236 
 COMPASS            MI     X1,RPD2     IF ANYTHING WAS WRITTEN                     F4810A  F4810A       129          I
          -CPS236 
 COMPASS            ZR     X4,RPD      IF BUFFER EMPTY AND NOTHING WRITTEN ON FILE F4810A  F4810A       130          I
          -CPS236 
 COMPASS   RPD2     WRITEH E,LASTLIN,1 RESTORE PRINTER TO DEFAULT PRINT DENSITY    F4810A  F4810A       131          I
          -CPS236 
 COMPASS   RPD1     SA1    CP.EPAG     TEST *WRITTEN TO* FLAG (58)                         CPS236        16     A     
 COMPASS            LX1    B1                                                              CPS236        17     A     
 COMPASS            PL     X1,RPD      IF NOTHING WAS WRITTEN TO ERROR FILE.               CPS236        18     A     
 COMPASS   RPD2     WRITEH E,LASTLIN,1 RESTORE PRINTER TO SIX LPI DENSITY                  CPS236        19          I
          -CPSA265
 COMPASS            SA1    LASTLIN                                                         CPSA265       43     A     
 COMPASS            ZR     X1,RDP2     IF PRINT DENSITY AT DEFAULT                         CPSA265       44     A     
 COMPASS            WRITEH E,A1,1                                                          CPSA265       45     A     
 COMPASS   RDP2     BSS    0                                                               CPSA265       46     A     
 COMPASS            WRITER E,RECALL                                                F4810A  F4810A       132     A     
 COMPASS            EQ     RPD         RETURN                                      F4810A  F4810A       133     A     
 COMPASS                                                                           F4810A  F4810A       134     A     
 COMPASS   RM       ELSE                                                           F4810A  F4810A       135     A     
 COMPASS            SA1    LASTLIN                                                         CPSA265       47     A     
 COMPASS            ZR     X1,RDP      IF PRINT DENSITY AT DEFAULT                         CPSA265       48          I
          -CPSA266
 COMPASS            ZR     X1,RPD      IF PRINT DENSITY AT DEFAULT                         CPSA266        7     A     
 COMPASS            SA2    CP.LISTF                                                F4810A  F4810A       136     A     
 COMPASS            ZR     X2,RPD1     IF NO LONG LIST                             F4810A  F4810A       137     A     
 COMPASS            PUT    O,LASTLIN,10 RESTORE PRINTER TO DEFAULT PRINT DENSITY   F4810A  F4810A       138          I
          -CPS236 
 COMPASS            PUT    O,LASTLIN,10  RESTORE PRINTER TO SIX LPI DENSITY                CPS236        20     A     
 COMPASS            CLOSEM O,N                                                     F4810A  F4810A       139          I
          -CPS236 
 COMPASS            CHECK  O                                                       F4810A  F4810A       140          I
          -CPS236 
 COMPASS   RPD1     SA1    E                                                       F4810A  F4810A       141          I
          -CPS236 
 COMPASS            ZR     X1,RPD      IF NO ERROR LIST (SHORT LIST)               F4810A  F4810A       142          I
          -CPS236 
 COMPASS            PUT    E,LASTLIN,10  RESTORE PRINTER TO DEFAULT PRINT DENSITY  F4810A  F4810A       143          I
          -CPS236 
 COMPASS            CLOSEM E,N                                                     F4810A  F4810A       144          I
          -CPS236 
 COMPASS            CHECK  E                                                       F4810A  F4810A       145          I
          -CPS236 
 COMPASS   RPD1     SA1    CP.EPAG     TEST *WRITTEN TO* FLAG (58).                        CPS236        21     A     
 COMPASS            LX1    B1                                                              CPS236        22     A     
 COMPASS            PL     X1,RPD      IF NOTHING WAS WRITTEN TO ERROR FILE.               CPS236        23     A     
 COMPASS            PUT    E,LASTLIN,10  RESTORE PRINTER TO SIX LPI DENSITY                CPS236        24     A     
 COMPASS            EQ     RPD         RETURN                                      F4810A  F4810A       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/28. 19.11.32.      PAGE 346    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                           F4810A  F4810A       147     A     
 COMPASS   RM       ENDIF                                                          F4810A  F4810A       148     A     
 COMPASS   SCE      SPACE  4                                                               CP147         14     A     
 COMPASS  **        SCE - SCAN ELEMENT.                                                    CP147         15     A     
 COMPASS  *         ENTRY  (B2) = MASK CODE FOR DELIMITERS TO BE RECOGNIZED AS             CPS173         5     A     
 COMPASS  *                       SEPARATORS. ALL OTHERS ARE TREATED AS CHARACTERS         CPS173         6     A     
 COMPASS  *                            0     , = / - SPACE                                 CPS173         7     A     
 COMPASS  *                            1     , / - SPACE                                   CPS173         8     A     
 COMPASS  *                            2     , / SPACE                                     CPS173         9     A     
 COMPASS  *                                                                                CPS173        10     A     
 COMPASS  *         EXIT   (X1) = (X6) = ELEMENT, LEFT JUSTIFIED, ZERO FILLED,             CP147         16     A     
 COMPASS  *                TRUNCATED TO 7 CHARACTERS.                                      CP147         17     A     
 COMPASS  *                (B2) = SEPARATOR CODE.                                          CP147         18     A     
 COMPASS  *                            0     SPACE OR COMMA                                CP147         19     A     
 COMPASS  *                            1     =                                             CP147         20     A     
 COMPASS  *                            2     /                                             CP147         21     A     
 COMPASS  *                            3     -                                             CP147         22     A     
 COMPASS  *                            -1    OTHER                                         CP147         23     A     
 COMPASS                                                                                   CP147         24     A     
 COMPASS                                                                                   CP147         25     A     
 COMPASS   SCE      PS                 RETURN EXIT                                         CP147         26     A     
 COMPASS            SA1    COLUMN      FETCH POINTER TO 1ST CHAR OF ELEM                   CP147         27     A     
 COMPASS            SA2    =1216BS12   MASK FOR -/=SPACE,                                  CP147         28     A     
 COMPASS            SA1    X1+CARD-1   FETCH 1ST CHAR OF ELEM                              CP147         29          I
          -CPS173 
 COMPASS            ZR     B2,SCEA     IF PROPER MASK.                                     CPS173        11     A     
 COMPASS            SA2    =1206BS12   ELSE MASK FOR - / SPACE ,                           CPS173        12     A     
 COMPASS            EQ     B2,B1,SCEA  IF PROPER MASK.                                     CPS173        13     A     
 COMPASS            SA2    =206BS12    ELSE MASK FOR / SPACE ,                             CPS173        14     A     
 COMPASS   SCEA     SA1    X1+CARD-1   FETCH 1ST CHAR OF ELEM                              CPS173        15     A     
 COMPASS            BX6    X6-X6                                                           CP147         30     A     
 COMPASS            SB5    60          SET LEFT JUSTIFY SHIFT COUNT                        CP147         31     A     
 COMPASS            SB4    18                                                              CP147         32     A     
 COMPASS            SB6    6                                                               CP147         33     A     
 COMPASS   SCE1     SB7    X1                                                              CP147         34     A     
 COMPASS            LX3    X2,B7                                                           CP147         35     A     
 COMPASS            SB5    B5-B6                                                           CP147         36     A     
 COMPASS            LX4    X1,B5       LEFT JUSTIFY CHARACTER                              CP147         37     A     
 COMPASS            MI     X3,SCE2     IF SEPARATOR                                        CP147         38     A     
 COMPASS            BX6    X6+X4       INSERT CHARACTER                                    CP147         39     A     
 COMPASS            SA1    A1+B1       FETCH NEXT CHARACTER                                CP147         40     A     
 COMPASS            GE     B5,B4,SCE1  LOOP                                                CP147         41     A     
 COMPASS            SA1    A1-B1       POINT TO EIGHTH CHARACTER                           CP147         42     A     
 COMPASS            BX6    X6-X4       REMOVE EIGHTH CHARACTER                             CP147         43     A     
 COMPASS            SX7    B1                                                              CP147         44     A     
 COMPASS            SB2    -B1                                                             CP147         45     A     
 COMPASS            SA7    AERR        NOTE ERROR                                          CP147         46     A     
 COMPASS            SA7    EFLG                                                            CP147         47     A     
 COMPASS            EQ     SCE3                                                            CP147         48     A     
 COMPASS                                                                                   CP147         49     A     
 COMPASS   SCE2     SA3    =440700002463BS24  CODES FOR -/=SPACE,                          CP147         50     A     
 COMPASS            MX4    -3                                                              CP147         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/28. 19.11.32.      PAGE 347    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    B7                                                              CP147         52     A     
 COMPASS            SA7    CHAR        UPDATE CURRENT CHARACTER CELL                       CP147         53     A     
 COMPASS            LX7    2           SHIFT COUNT = 4*(CHAR)-4*1R+-1                      CP147         54     A     
 COMPASS            SB3    X7-1R+*4-1                                                      CP147         55     A     
 COMPASS            LX3    B3                                                              CP147         56     A     
 COMPASS            BX5    -X4*X3                                                          CP147         57     A     
 COMPASS            SB2    X5-1        SEPARATOR CODE                                      CP147         58     A     
 COMPASS   SCE3     SX7    A1-CARD+1   UPDATE POINTER TO CARD IMAGE                        CP147         59     A     
 COMPASS            SA7    COLUMN                                                          CP147         60     A     
 COMPASS            BX1    X6                                                              CP147         61     A     
 COMPASS            EQ     SCE         EXIT                                                CP147         62     A     
 COMPASS   SCITEM   SPACE  4                                                               COMPASS     2298     A     
 COMPASS  **        SCITEM - SCAN ITEM IN ADDRESS FIELD.                                   COMPASS     2299     A     
 COMPASS  *         AERR NOTED IF GREATER THAN 8 CHARS, AND SYMBOL TRUNCATED.              COMPASS     2300     A     
 COMPASS  *         SEPARATORS ARE + - *  BLANK COMMA &                                    COMPASS     2301     A     
 COMPASS  *         * AND / APPLY ONLY IF NOT FIRST CHARACTER.                             COMPASS     2302     A     
 COMPASS  *         EXIT   (X6) = SCANNED ITEM.                                            COMPASS     2303     A     
 COMPASS  *                (X1) = TERMINATOR CHARACTER.                                    COMPASS     2304     A     
 COMPASS                                                                                   COMPASS     2305     A     
 COMPASS                                                                                   COMPASS     2306     A     
 COMPASS   SCITEM1  LX6    6                                                               COMPASS     2307     A     
 COMPASS            BX6    X1+X6       APPEND CHARACTER                                    COMPASS     2308     A     
 COMPASS            SA1    A1+B1       FETCH NEW CHARACTER                                 COMPASS     2309     A     
 COMPASS            LX2    X3                                                              COMPASS     2310     A     
 COMPASS   SCITEM2  SB7    X1                                                              COMPASS     2311     A     
 COMPASS            AX2    X2,B7                                                           COMPASS     2312     A     
 COMPASS            LX2    59                                                              COMPASS     2313     A     
 COMPASS            PL     X2,SCITEM1                                                      COMPASS     2314     A     
 COMPASS            SX7    A1-CARD+1                                                       COMPASS     2315     A     
 COMPASS            SA7    COLUMN                                                          COMPASS     2316     A     
 COMPASS            BX7    X1                                                              COMPASS     2317     A     
 COMPASS            MX2    12                                                              COMPASS     2318     A     
 COMPASS            SA7    CHAR                                                            COMPASS     2319     A     
 COMPASS            BX3    X2*X6       CHECK FOR MORE THAN 8 CHARACTERS                    COMPASS     2320     A     
 COMPASS            SX7    B1                                                              COMPASS     2321     A     
 COMPASS            ZR     X3,SCITEM                                                       COMPASS     2322     A     
 COMPASS            BX6    -X2*X6      TRUNCATE TO 8 CHARACTERS                            COMPASS     2323     A     
 COMPASS            SA7    AERR        NOTE ERROR                                          COMPASS     2324     A     
 COMPASS            SA7    EFLG                                                            COMPASS     2325     A     
 COMPASS                                                                                   COMPASS     2326     A     
 COMPASS   SCITEM   PS                 RETURN EXIT                                         COMPASS     2327     A     
 COMPASS            SA1    COLUMN                                                          COMPASS     2328     A     
 COMPASS            SA2    =2003006BS36 MASK FOR +-,B&                                     COMPASS     2329     A     
 COMPASS            SA1    X1+CARD-1   FETCH CURRENT CHARACTER                             COMPASS     2330     A     
 COMPASS            SA3    =2003036BS36 MASK FOR +-*/,B&                                   COMPASS     2331     A     
 COMPASS            BX6    X6-X6                                                           COMPASS     2332     A     
 COMPASS            EQ     SCITEM2                                                         COMPASS     2333     A     
 COMPASS   SCLIST   SPACE  4                                                               COMPASS     2334     A     
 COMPASS  **        SCLIST - SCAN ITEMS SEPARATED BY COMMA AND TERMINATED BY               COMPASS     2335     A     
 COMPASS  *         A BLANK.                                                               COMPASS     2336     A     
 COMPASS  *         AERR NOTED IF GREATER THAN 8 CHARACTERS.                               COMPASS     2337     A     
 COMPASS  *         COMMA THROWN AWAY.                                                     COMPASS     2338     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 348    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         EXIT   (X6) = SCANNED ITEM.                                            COMPASS     2339     A     
 COMPASS                                                                                   COMPASS     2340     A     
 COMPASS                                                                                   COMPASS     2341     A     
 COMPASS   SCL2     RJ     GETCH       THROW COMMA AWAY                                    COMPASS     2342     A     
 COMPASS   SCL3     MX1    12          CHECK FOR LESS THAN 9 CHARACTERS                    COMPASS     2343     A     
 COMPASS            BX6    -X1*X0                                                          COMPASS     2344     A     
 COMPASS            IX2    X6-X0                                                           COMPASS     2345     A     
 COMPASS            ZR     X2,SCLIST   IF LESS THAN 8 CHARACTERS                           COMPASS     2346     A     
 COMPASS            SX7    B1                                                              COMPASS     2347     A     
 COMPASS            SA6    EFLG                                                            COMPASS     2348          I
          -CMP162 
 COMPASS            SA7    EFLG                                                            CMP162         1     A     
 COMPASS            SA7    AERR        NOTE A ERROR                                        COMPASS     2349     A     
 COMPASS            SX6    B0          AND FORCE ITEM TO BE ZERO                           COMPASS     2350     A     
 COMPASS                                                                                   COMPASS     2351     A     
 COMPASS   SCLIST   PS                                                                     COMPASS     2352     A     
 COMPASS            SX0    B0          CLEAR OUT ACCUMULATION CELL                         COMPASS     2353     A     
 COMPASS            SA1    CHAR                                                            COMPASS     2354     A     
 COMPASS   SCL1     SB7    X1-1R       TEST BLANK                                          COMPASS     2355     A     
 COMPASS            ZR     B7,SCL3     IF BLANK                                            COMPASS     2356     A     
 COMPASS            EQ     B7,B1,SCL2  IF COMMA                                            COMPASS     2357     A     
 COMPASS            LX0    6                                                               COMPASS     2358     A     
 COMPASS            BX0    X1+X0                                                           COMPASS     2359     A     
 COMPASS            RJ     GETCH       GO TO NEXT CHARACTER                                COMPASS     2360     A     
 COMPASS            EQ     SCL1        LOOP                                                COMPASS     2361     A     
 COMPASS   SETUP    SPACE  4                                                               COMPASS     2362     A     
 COMPASS  **        SETUP - PREPARE LINE FOR ASSEMBLY.                                     COMPASS     2363     A     
 COMPASS  *         THIS ROUTINE SCANS THE CARD AND ESTABLISHES THE CELLS...               COMPASS     2364     A     
 COMPASS  *                LOCSYM            LOCATION SYMBOL.                              COMPASS     2365     A     
 COMPASS  *                BADLOC            FLAGGED IF LOCATION EXCEEDS 8 CHARS.          COMPASS     2366     A     
 COMPASS  *                IOP               OPERATION FIELD SYMBOL.                       COMPASS     2367     A     
 COMPASS  *                COL               COLUMN NUMBER BEFORE OP CODE.                 COMPASS     2368     A     
 COMPASS  *                COL+1             COLUMN NUMBER BEFORE ADDRESS.                 COMPASS     2369     A     
 COMPASS  *                STYPE             TYPE OF CARD - BLANK OR ASTERISK.             COMPASS     2370     A     
 COMPASS  *                COLUMN            COLUMN NUMBER OF FIRST ADDR. CHAR.            COMPASS     2371     A     
 COMPASS  *                CHAR              FIRST CHARACTER OF ADDRESS FIELD.             COMPASS     2372     A     
 COMPASS                                                                                   COMPASS     2373     A     
 COMPASS                                                                                   COMPASS     2374     A     
 COMPASS   SETUP0   SB4    -1R                                                             COMPASS     2375     A     
 COMPASS            MX6    0                                                               COMPASS     2376     A     
 COMPASS            SB7    X1+B4       TEST COLUMN 1 FOR BLANK                             COMPASS     2377     A     
 COMPASS            SA1    A1+B1       FETCH COLUMN 2                                      COMPASS     2378     A     
 COMPASS            NZ     B7,SETUP1   IF COLUMN 1 NON-BLANK                               COMPASS     2379     A     
 COMPASS            SB7    B4          FORCE FIRST CHARACTER TO BE BLANK                   COMPASS     2380     A     
 COMPASS   SETUP1   SB5    CARD+X5-1                                                       COMPASS     2381     A     
 COMPASS            SA0    COL+1                                                           COMPASS     2382     A     
 COMPASS            SB2    A1-B5       PRESET B2 = -COMCOL+2                               COMPASS     2383     A     
 COMPASS            SB3    -2                                                              COMPASS     2384     A     
 COMPASS   SETUP3   LX6    6                                                               COMPASS     2385     A     
 COMPASS            SX2    B7-B4       RESTORE CHARACTER VALUE                             COMPASS     2386     A     
 COMPASS            SB7    X1+B4       PREPARE NEW CHARACTER TEST                          COMPASS     2387     A     
 COMPASS            BX6    X6+X2       APPEND CHARACTER VALUE                              COMPASS     2388     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 349    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A1+B1       FETCH NEXT CHARACTER                                COMPASS     2389     A     
 COMPASS            NZ     B7,SETUP3   KEEP ACCUMULATING IF OLD NON-BLANK                  COMPASS     2390     A     
 COMPASS            SB3    B3+B1       INCREMENT FIELD COUNTER                             COMPASS     2391     A     
 COMPASS            SA6    B3+1+LOCSYM STORE LOCATION OR OP-CODE SYMBOL                    COMPASS     2392     A     
 COMPASS            SB6    A1-B5       NUMBER OF COLUMNS LEFT                              COMPASS     2393     A     
 COMPASS            MX6    0                                                               COMPASS     2394     A     
 COMPASS   SETUP4   SB7    X1+B4       PREPARE CHARACTER TEST                              COMPASS     2395     A     
 COMPASS            PL     B6,SETUPX   QUIT IF AT END OF CARD                              COMPASS     2396          I
          -CPS085 
 COMPASS            PL     B6,SETUP5   IF (CCOL) IS REACHED                                CPS085         5     A     
 COMPASS            SA1    A1+B1       FETCH NEXT CHARACTER                                COMPASS     2397     A     
 COMPASS            SB6    B6+B1       UPDATE REMAINING COLUMN COUNT                       COMPASS     2398     A     
 COMPASS            ZR     B7,SETUP4                                                       COMPASS     2399     A     
 COMPASS            SX7    B6-B2       ADD TO GET FINAL COLUMN NUMBER                      COMPASS     2400     A     
 COMPASS            SA7    B3+A0       STORE IN COL                                        COMPASS     2401     A     
 COMPASS            NZ     B3,SETUP3   KEEP GOING IF MORE TO SCALE                         COMPASS     2402          I
          -CPS085 
 COMPASS   SETUPX   SX4    B6-B2       CALCULATE FINAL COLUMN NO.                          COMPASS     2403          I
          -CPS085 
 COMPASS            SX6    X4+B1                                                           COMPASS     2404          I
          -CPS085 
 COMPASS            MI     B3,SETUP3   IF MORE TO SCAN                                     CPS085         6     A     
 COMPASS            EQ     SETUP6                                                          CPS085         7     A     
 COMPASS   SETUP5   ZR     B6,SETUP6   IF (CCOL)-1 IS BLANK                                CPS085         8     A     
 COMPASS            SB6    B6+X4       MOVE (CCOL) BEYOND (LASTCOL)                        CPS085         9     A     
 COMPASS            SB2    B2+X4                                                           CPS085        10     A     
 COMPASS            SX7    B6-B2       COLUMN PREVIOUSLY SCANNED                           CPS085        11     A     
 COMPASS            SA7    B3+A0                                                           CPS085        12     A     
 COMPASS            EQ     SETUP4                                                          CPS085        13     A     
 COMPASS   SETUP6   SX7    B6-B2       COLUMN PREVIOUSLY SCANNED                           CPS085        14     A     
 COMPASS            SX6    X7+B1       CURRENT COLUMN                                      CPS085        15     A     
 COMPASS            SA1    LOCSYM      RECLAIM LOCATION SYMBOL TO TEST VALIDITY            COMPASS     2405     A     
 COMPASS            MX0    12                                                              COMPASS     2406     A     
 COMPASS            BX7    X0*X1                                                           COMPASS     2407     A     
 COMPASS            SA6    COLUMN                                                          COMPASS     2408     A     
 COMPASS            SA7    BADLOC                                                          COMPASS     2409     A     
 COMPASS            SX7    -B4                                                             CPS085        16     A     
 COMPASS            SA7    CARD+1+X3   RESTORE (LASTCOL)+2 TO BLANK                        CPS085        17     A     
 COMPASS            SA1    X6+CARD-1                                                       COMPASS     2410     A     
 COMPASS            BX6    X1                                                              COMPASS     2411     A     
 COMPASS            SA6    CHAR                                                            COMPASS     2412     A     
 COMPASS                                                                                   COMPASS     2413     A     
 COMPASS   SETUP    PS                 RETURN EXIT                                         COMPASS     2414     A     
 COMPASS            SA5    CCOL                                                            COMPASS     2415     A     
 COMPASS            SA3    LASTCOL                                                         CPS085        18     A     
 COMPASS            SX6    B1                                                              CPS085        19     A     
 COMPASS            SA6    CARD+1+X3   SET LASTCOL+2 TO NON-BLANK                          CPS085        20     A     
 COMPASS            IX4    X5-X3       (CCOL)-(LASTCOL)                                    CPS085        21     A     
 COMPASS            SX6    X5-2                                                            COMPASS     2416     A     
 COMPASS            SX7    2R                                                              COMPASS     2417     A     
 COMPASS            SB2    -1R*                                                            COMPASS     2418     A     
 COMPASS            SA1    CARD        FETCH COLUMN 1                                      COMPASS     2419     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 350    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    COL+1                                                           COMPASS     2420     A     
 COMPASS            SA7    IOP                                                             COMPASS     2421     A     
 COMPASS            SB7    X1+B2                                                           COMPASS     2422     A     
 COMPASS            SB6    X1-1R,                                                          COMPASS     2423     A     
 COMPASS            ZR     B7,SETUPC   TEST FOR A COMMENTS CARD                            COMPASS     2424     A     
 COMPASS            NZ     B6,SETUP0   IF NOT COMMA                                        COMPASS     2425     A     
 COMPASS   SETUPC   SX6    -B2         IF COL 1 IS * OR , AND STYPE IS BLANK               COMPASS     2426     A     
 COMPASS            SA1    STYPE       BLANK (FROM INPUT1), SET STYPE = *                  COMPASS     2427     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     2428     A     
 COMPASS            NZ     B7,SETUP                                                        COMPASS     2429     A     
 COMPASS            SA6    A1                                                              COMPASS     2430     A     
 COMPASS            EQ     SETUP                                                           COMPASS     2431     A     
 COMPASS   SVF      SPACE  4                                                               COMPASS     2432          I
          -CMP30  
 COMPASS  **        SVF - SAVE LIST FLAGS.                                                 COMPASS     2433          I
          -CMP30  
 COMPASS                                                                                   COMPASS     2434          I
          -CMP30  
 COMPASS                                                                                   COMPASS     2435          I
          -CMP30  
 COMPASS   SVF      PS                 RETURN EXIT                                         COMPASS     2436          I
          -CMP30  
 COMPASS            SB7    LLISTOPS-2                                                      COMPASS     2437          I
          -CMP30  
 COMPASS            SA1    LISTOPS+1                                                       COMPASS     2438          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS     2439          I
          -CMP30  
 COMPASS            SB2    B1+B1                                                           COMPASS     2440          I
          -CMP30  
 COMPASS   SVF1     SA1    A1+B2                                                           COMPASS     2441          I
          -CMP30  
 COMPASS            LX6    1                                                               COMPASS     2442          I
          -CMP30  
 COMPASS            BX6    X6+X1                                                           COMPASS     2443          I
          -CMP30  
 COMPASS            SB7    B7-B2                                                           COMPASS     2444          I
          -CMP30  
 COMPASS            NZ     B7,SVF1     LOOP                                                COMPASS     2445          I
          -CMP30  
 COMPASS            SA6    SLIST                                                           COMPASS     2446          I
          -CMP30  
 COMPASS            EQ     SVF         RETURN                                              COMPASS     2447          I
          -CMP30  
 COMPASS   SLO      SPACE  4                                                               COMPASS     2448     A     
 COMPASS  **        SLO - SET LIST OPTIONS.                                                COMPASS     2449     A     
 COMPASS                                                                                   COMPASS     2450     A     
 COMPASS                                                                                   COMPASS     2451     A     
 COMPASS   SLO      PS                 RETURN EXIT                                         COMPASS     2452     A     
 COMPASS            SA1    XLIST                                                           COMPASS     2453     A     
 COMPASS            NZ     X1,SLO      IF EXTERNAL LIST IN CONTROL                         COMPASS     2454     A     
 COMPASS            SA1    CHAR                                                            COMPASS     2455     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 351    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X1-1R*                                                          COMPASS     2456     A     
 COMPASS            ZR     B7,SLO5     IF LIST *                                           COMPASS     2457     A     
 COMPASS            RJ     SVF         SAVE LIST FLAGS                                     COMPASS     2458          I
          -CMP30  
 COMPASS            SA1    LISTOPS+1                                                       CMP30       1952     A     
 COMPASS            SB7    LLISTOPS-2                                                      CMP30       1953     A     
 COMPASS            SB2    B1+B1                                                           CMP30       1954     A     
 COMPASS            BX6    X1                                                              CMP30       1955     A     
 COMPASS   +        SA1    A1+B2       COLLECT LIST FLAGS                                  CMP30       1956     A     
 COMPASS            LX6    1                                                               CMP30       1957     A     
 COMPASS            SB7    B7-B2                                                           CMP30       1958     A     
 COMPASS            BX6    X6+X1                                                           CMP30       1959     A     
 COMPASS            NZ     B7,*-1      LOOP                                                CMP30       1960     A     
 COMPASS            SA1    LISTSTK                                                         CMP30       1961     A     
 COMPASS            RJ     PUSH        PUSH DOWN LIST STACK                                CMP30       1962     A     
 COMPASS            SA2    COLUMN                                                          COMPASS     2459     A     
 COMPASS            SA1    X2+CARD-1                                                       COMPASS     2460     A     
 COMPASS            SA0    LLISTOPS/2                                                      COMPASS     2461     A     
 COMPASS            SB4    -1R-                                                            COMPASS     2462     A     
 COMPASS   SLO1     SX7    B1          CHECK LIST OPTION                                   COMPASS     2463     A     
 COMPASS            SB3    A0                                                              COMPASS     2464     A     
 COMPASS            SB2    B1+B1                                                           COMPASS     2465     A     
 COMPASS            SB7    X1+B4                                                           COMPASS     2466     A     
 COMPASS            NZ     B7,SLO2     IF NOT - OPTION                                     COMPASS     2467     A     
 COMPASS            SX7    B0                                                              COMPASS     2468     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     2469     A     
 COMPASS   SLO2     SA2    LISTOPS                                                         COMPASS     2470     A     
 COMPASS            SB6    X1                                                              COMPASS     2471     A     
 COMPASS   SLO3     UX6    X2,B7       SEARCH FOR OPTION                                   COMPASS     2472     A     
 COMPASS            SB3    B3-B1                                                           COMPASS     2473     A     
 COMPASS            SA2    A2+B2                                                           COMPASS     2474     A     
 COMPASS            NG     B3,SLO7     IF NOT FOUND                                        COMPASS     2475     A     
 COMPASS            NE     B6,B7,SLO3  IF NOT LIST OPTION                                  COMPASS     2476     A     
 COMPASS            SA7    A2-B1       SET OPTION                                          COMPASS     2477     A     
 COMPASS            SB7    -1R                                                             COMPASS     2478     A     
 COMPASS   SLO4     SB6    X1+B7       SCAN OFF EXTRA CHARACTERS                           COMPASS     2479     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     2480     A     
 COMPASS            EQ     B6,B1,SLO1  IF *,*                                              COMPASS     2481     A     
 COMPASS            NZ     B6,SLO4     IF NOT * *                                          COMPASS     2482     A     
 COMPASS            EQ     SLO         RETURN                                              COMPASS     2483     A     
 COMPASS   SLO5     SA1    SLIST       SET PREVIOUS LIST OPTIONS                           COMPASS     2484          I
          -CMP30  
 COMPASS   SLO5     SA1    LISTSTK                                                         CMP30       1963     A     
 COMPASS            RJ     PULL        PUSH UP LIST STACK                                  CMP30       1964     A     
 COMPASS            SX7    B1                                                              COMPASS     2485     A     
 COMPASS            BX6    X7*X1                                                           COMPASS     2486     A     
 COMPASS            SA6    LISTOPS+LLISTOPS-1                                              COMPASS     2487     A     
 COMPASS            SB7    LLISTOPS/2-1                                                    COMPASS     2488          I
          -CMP30  
 COMPASS            SB7    NLISTOPS-1                                                      CMP30       1965     A     
 COMPASS            SB2    B1+B1       RESET LIST FLAGS                                    CMP30       1966     A     
 COMPASS   SLO6     AX1    1                                                               COMPASS     2489     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 352    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X7*X1                                                           COMPASS     2490     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     2491     A     
 COMPASS            SA6    A6-2                                                            COMPASS     2492          I
          -CMP30  
 COMPASS            SA6    A6-B2                                                           CMP30       1967     A     
 COMPASS            NZ     B7,SLO6     LOOP                                                COMPASS     2493     A     
 COMPASS            EQ     SLO         RETURN                                              COMPASS     2494     A     
 COMPASS   SLO7     SX6    B1          SET *8* ERROR                                       COMPASS     2495          I
          -CMP30  
 COMPASS   SLO7     SB7    B6-1R$                                                          CMP30       1968     A     
 COMPASS            SB3    A0-B1                                                           CMP30       1969     A     
 COMPASS            NZ     B7,SLO8     IF NOT $                                            CMP30       1970     A     
 COMPASS            SA7    LISTOPS+1                                                       CMP30       1971     A     
 COMPASS   +        SB3    B3-B1       SET ALL OPTIONS                                     CMP30       1972     A     
 COMPASS            SA7    A7+B2                                                           CMP30       1973     A     
 COMPASS            NZ     B3,*                                                            CMP30       1974     A     
 COMPASS            SB7    -1R                                                             CMP30       1975     A     
 COMPASS            EQ     SLO4        LOOP                                                CMP30       1976     A     
 COMPASS   SLO8     SX6    B1          SET *8* ERROR                                       CMP30       1977     A     
 COMPASS            SA6    W8ERR                                                           COMPASS     2496     A     
 COMPASS            SA6    EFLG                                                            COMPASS     2497     A     
 COMPASS            SB7    -1R                                                             COMPASS     2498     A     
 COMPASS            EQ     SLO4        LOOP                                                COMPASS     2499     A     
 COMPASS   SNT      SPACE  4                                                               COMPASS     2500     A     
 COMPASS  **        SNT - SET NEW TITLE.                                                   COMPASS     2501     A     
 COMPASS  *         ENTRY  (A1) = TITLE BUFFER ADDRESS.                                    COMPASS     2502     A     
 COMPASS  *                (X1) = FIRST WORD OF TITLE.                                     COMPASS     2503     A     
 COMPASS  *         EXIT   (X6) = 1 IF IN XTEXT AND LIST X IS OFF.                P036  10 CMP036         2     A     
 COMPASS  *                     = 0 OTHERWISE.                                    P036  11 CMP036         3     A     
 COMPASS                                                                                   COMPASS     2504     A     
 COMPASS                                                                                   COMPASS     2505     A     
 COMPASS   SNT      PS                 RETURN EXIT                                         COMPASS     2506     A     
 COMPASS            SA3    LIBFLG                                                 P036  13 CMP036         4     A     
 COMPASS            SA4    LX+1                                                   P036  14 CMP036         5     A     
 COMPASS            BX6    -X4*X3                                                 P036  15 CMP036         6     A     
 COMPASS            NZ     X6,SNT      IF TITLE SHOULD NOT BE CHANGED             P036  16 CMP036         7     A     
 COMPASS            SA2    COL+1                                                           COMPASS     2507     A     
 COMPASS            SB6    3                                                               COMPASS     2508     A     
 COMPASS            SB7    TITBUFL+1   TITLE WORD COUNT                                    COMPASS     2509     A     
 COMPASS            MX0    18                                                              COMPASS     2510     A     
 COMPASS            LX1    -18                                                             COMPASS     2511     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     2512     A     
 COMPASS            SB5    A1                                                              COMPASS     2513     A     
 COMPASS            SA1    X2+CARD-1                                                       COMPASS     2514     A     
 COMPASS   SNT1     LX6    6           ASSEMBLE TITLE                                      COMPASS     2515     A     
 COMPASS            SB6    B6-B1                                                           COMPASS     2516     A     
 COMPASS            BX6    X6+X1                                                           COMPASS     2517     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     2518     A     
 COMPASS            NZ     B6,SNT1     LOOP                                                COMPASS     2519     A     
 COMPASS            SA6    B5                                                              COMPASS     2520     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     2521     A     
 COMPASS            SB6    10                                                              COMPASS     2522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 353    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB5    B5+B1                                                           COMPASS     2523     A     
 COMPASS            MX6    0                                                               COMPASS     2524     A     
 COMPASS            NZ     B7,SNT1     LOOP                                                COMPASS     2525     A     
 COMPASS            EQ     SNT         RETURN                                              COMPASS     2526     A     
 COMPASS   SQV      SPACE  4                                                               COMPASS     2527     A     
 COMPASS  **        SQV - SET QUAL VALUE.                                                  COMPASS     2528     A     
 COMPASS  *         ENTRY  (X1) = NEW QUAL SYMBOL.                                         COMPASS     2529     A     
 COMPASS  *         EXIT   (QVAL) = INDEX OF SYMBOL.                                       COMPASS     2530     A     
 COMPASS  *                (QVAL+1) = INDEX OF PREVIOUS QVALUE.                            COMPASS     2531     A     
 COMPASS                                                                                   COMPASS     2532     A     
 COMPASS                                                                                   COMPASS     2533     A     
 COMPASS   SQV      PS                 RETURN EXIT                                         COMPASS     2534     A     
 COMPASS            SA2    O.QVTAB                                                         COMPASS     2535     A     
 COMPASS            SA3    L.QVTAB                                                         COMPASS     2536     A     
 COMPASS            SB7    X3                                                              COMPASS     2537          I
          -CMP19  
 COMPASS            SB6    X2                                                              COMPASS     2538          I
          -CMP19  
 COMPASS            BX6    X1                                                              COMPASS     2539          I
          -CMP19  
 COMPASS            ZR     X1,SQV2     IF 0 BLOCK                                          COMPASS     2540          I
          -CMP19  
 COMPASS   SQV1     ZR     B7,SQV3     IF END OF TABLE                                     COMPASS     2541          I
          -CMP19  
 COMPASS            SB7    B7-B1                                                           COMPASS     2542          I
          -CMP19  
 COMPASS            SA2    B6+B7                                                           COMPASS     2543          I
          -CMP19  
 COMPASS            BX6    X2-X1                                                           COMPASS     2544          I
          -CMP19  
 COMPASS            NZ     X6,SQV1     IF QUAL SYMBOL NOT FOUND                            COMPASS     2545          I
          -CMP19  
 COMPASS            SX6    B7+B1                                                           COMPASS     2546          I
          -CMP19  
 COMPASS   SQV2     SA2    QVAL                                                            COMPASS     2547          I
          -CMP19  
 COMPASS            LX7    X2                                                              COMPASS     2548          I
          -CMP19  
 COMPASS            SB7    B0                                                              CMP19         50     A     
 COMPASS            ZR     X1,SQV2     IF BLANK QUALIFIER                                  CMP19         51     A     
 COMPASS            SA2    X2                                                              CMP19         52     A     
 COMPASS            SB6    X3                                                              CMP19         53     A     
 COMPASS            MX3    -48                                                             CMP19         54     A     
 COMPASS   SQV1     BX2    -X3*X2                                                          CMP19         55     A     
 COMPASS            EQ     B7,B6,SQV3  IF END OF TABLE                                     CMP19         56     A     
 COMPASS            BX6    X2-X1                                                           CMP19         57     A     
 COMPASS            SB7    B7+B1                                                           CMP19         58     A     
 COMPASS            SA2    A2+B1                                                           CMP19         59     A     
 COMPASS            NZ     X6,SQV1     IF QUALIFIER NOT FOUND YET                          CMP19         60     A     
 COMPASS   SQV2     SX6    B7                                                              CMP19         61     A     
 COMPASS            SA2    QVAL                                                            CMP19         62     A     
 COMPASS            LX6    48                                                              COMPASS     2549     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 354    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX7    X2                                                              CMP19         63     A     
 COMPASS            SA6    A2                                                              COMPASS     2550     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     2551     A     
 COMPASS            EQ     SQV         RETURN                                              COMPASS     2552     A     
 COMPASS   SQV3     ADDWORD QVTAB                                                          COMPASS     2553     A     
 COMPASS            SA3    L.QVTAB                                                         COMPASS     2554     A     
 COMPASS            SX6    X3                                                              COMPASS     2555          I
          -CMP19  
 COMPASS            SB7    X3                                                              CMP19         64     A     
 COMPASS            EQ     SQV2                                                            COMPASS     2556     A     
 COMPASS   TLUSYMT  SPACE  4                                                               COMPASS     2557          I
          -CP096A 
 COMPASS  **        TLUSYMT - LOOK UP SYMBOL IN SYMBOL TABLE.                              COMPASS     2558          I
          -CP096A 
 COMPASS   TLUOP    SPACE  4                                                               CPS064        87     A     
 COMPASS  **        TLUOP - LOOK UP ENTRY IN OPTAB.                                        CPS064        88     A     
 COMPASS  *         ENTRY  (X1) = OPCODE NAME.                                             CPS064        89     A     
 COMPASS  *         EXIT   (X6) = EQUIVALENT (NON ZERO IF FOUND).                          CPS064        90     A     
 COMPASS  *                (X6) = 0 IF NOT IN TABLE.                                       CPS064        91     A     
 COMPASS  *                (OPTYPE) EQUALS X6.                                             CPS064        92     A     
 COMPASS  *                (A2) = LOCATION OF EQUIVALENT IF FOUND.                         CPS064        93     A     
 COMPASS                                                                                   CPS064        94     A     
 COMPASS                                                                                   CPS064        95     A     
 COMPASS   TLUOP2   SA2    A5+B1       FETCH EQUIVALENT                                    CPS064        96     A     
 COMPASS            BX6    X2                                                              CPS064        97     A     
 COMPASS            SA6    OPTYPE                                                          CPS064        98     A     
 COMPASS                                                                                   CPS064        99     A     
 COMPASS   TLUOP    PS                 RETURN EXIT                                         CPS064       100     A     
 COMPASS            PX0    X1                                                              CPS064       101     A     
 COMPASS            SA2    HASH                                                            CPS064       102     A     
 COMPASS            DX3    X0*X2                                                           CPS064       103     A     
 COMPASS            SA5    O.OPTAB                                                         CPS064       104     A     
 COMPASS            SX0    2*NOPCT-2                                                       CPS064       105     A     
 COMPASS            SX6    B0          CLEAR OUT OPERATION CODE ERROR                      CPS064       106     A     
 COMPASS            AX3    47-TLUOPSHF                                                     CPS064       107     A     
 COMPASS            BX4    X0*X3                                                           CPS064       108     A     
 COMPASS            SB7    X5                                                              CPS064       109     A     
 COMPASS            MX2    12                                                              CPS064       110     A     
 COMPASS            SA6    OERR                                                            CPS064       111     A     
 COMPASS   TLUOP1   SA5    X4+B7       FETCH NEXT ENTRY IN CHAIN                           CPS064       112     A     
 COMPASS            BX6    X2*X5       EXTRACT LINK                                        CPS064       113     A     
 COMPASS            IX3    X5-X6       ISOLATE ACTUAL SYMBOL                               CPS064       114     A     
 COMPASS            BX7    X1-X3                                                           CPS064       115     A     
 COMPASS            LX6    13          POSITION LINK FOR LATER TESTING                     CPS064       116     A     
 COMPASS            ZR     X7,TLUOP2   IF MATCH FOUND                                      CPS064       117     A     
 COMPASS            IX4    X6+X0       CALCULATE ADDRESS OF CHAIN ENTRY                    CPS064       118     A     
 COMPASS            NZ     X6,TLUOP1                                                       CPS064       119     A     
 COMPASS            SA6    OPTYPE                                                          CPS064       120     A     
 COMPASS            EQ     TLUOP                                                           CPS064       121     A     
 COMPASS   TLUSYMT  SPACE  4,8                                                             CP096A       244     A     
 COMPASS  **        TLUSYMT - LOOK UP SYMBOL IN SYMBOL TABLE.                              CP096A       245     A     
 COMPASS  *         ENTRY  (X1) = SYMBOL RIGHT JUSTIFIED.                                  COMPASS     2559     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 355    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         EXIT   (X1) = SYMBOL.                                                  COMPASS     2560     A     
 COMPASS  *                (X2) = TABLE ENTRY (0 IF NOT FOUND).                            COMPASS     2561          I
          -CMP19  
 COMPASS  *                (X3) = LOCATION OF EQUIVALENT.                                  COMPASS     2562          I
          -CMP19  
 COMPASS  *                (X2) = TABLE ENTRY.                                             CMP19         65     A     
 COMPASS  *                (X3) = LOCATION OF EQUIVALENT (0 IF NOT FOUND).                 CMP19         66     A     
 COMPASS  *                (X4) = INDEX OF EQUIVALENT IN SYMTAB.                           COMPASS     2563     A     
 COMPASS  *                (X5) = SYMBOL WITH QUALIFIER.                                   CMP1           2     A     
 COMPASS                                                                                   COMPASS     2564     A     
 COMPASS                                                                                   COMPASS     2565     A     
 COMPASS   SLU3     SX3    A2                                                              COMPASS     2566          I
          -CP096A 
 COMPASS            SX4    A2-B7                                                           COMPASS     2567          I
          -CP096A 
 COMPASS   SLU3     SX4    B7                                                              CP096A       246     A     
 COMPASS            SX3    X0+                                                             CP096A       247     A     
 COMPASS            IX4    X0-X4                                                           CP096A       248     A     
 COMPASS                                                                                   COMPASS     2568     A     
 COMPASS   TLUSYMT  PS                 RETURN EXIT                                         COMPASS     2569     A     
 COMPASS            PX0    X1          FORM HASH INDEX                                     COMPASS     2570          I
          -CMP19  
 COMPASS            SA2    HASH                                                            COMPASS     2571          I
          -CMP19  
 COMPASS            DX3    X0*X2                                                           COMPASS     2572          I
          -CMP19  
 COMPASS            SA5    QVAL                                                            COMPASS     2573          I
          -CMP19  
 COMPASS            SX0    NSYMT*2-2                                                       COMPASS     2574          I
          -CMP19  
 COMPASS            AX3    47-SHIFTQ                                                       COMPASS     2575          I
          -CMP19  
 COMPASS            BX4    X0*X3       STARTING INDEX                                      COMPASS     2576          I
          -CMP19  
 COMPASS            BX5    X5+X1                                                           COMPASS     2577          I
          -CMP19  
 COMPASS            SA2    O.SYMTAB    (B7) = TABLE ORIGIN                                 COMPASS     2578          I
          -CMP19  
 COMPASS            SB6    42                                                              COMPASS     2579          I
          -CMP19  
 COMPASS            SB7    X2                                                              COMPASS     2580          I
          -CMP19  
 COMPASS            SB5    -B1                                                             COMPASS     2581          I
          -CMP19  
 COMPASS            SA2    HASH        HASHING CONSTANT                                    CMP19         67     A     
 COMPASS            SA5    QVAL        QUALIFIER VALUE                                     CMP19         68     A     
 COMPASS            PX0    X1          FORM HASH INDEX                                     CMP19         69     A     
 COMPASS            SB5    -B1                                                             CMP19         70     A     
 COMPASS            DX3    X0*X2                                                           CMP19         71     A     
 COMPASS            SA2    O.SYMTAB    (B7) = TABLE ORIGIN                                 CMP19         72     A     
 COMPASS            SX0    NSYMT*2-2                                                       CMP19         73     A     
 COMPASS            BX5    X5+X1       ADD QUALIFIER VALUE TO SYMBOL                       CMP19         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/28. 19.11.32.      PAGE 356    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB6    42                                                              CMP19         75     A     
 COMPASS            AX3    47-SHIFTQ                                                       CMP19         76     A     
 COMPASS            SB7    X2          TABLE ORIGIN                                        CMP19         77     A     
 COMPASS            BX4    X0*X3       BASE INDEX                                          CMP19         78     A     
 COMPASS   SLU1     SA3    B7+X4       FETCH ENTRY                                         COMPASS     2582          I
          -CP096A 
 COMPASS            SA2    A3+B1                                                           COMPASS     2583          I
          -CP096A 
 COMPASS   SLU1     SX0    B7+X4                                                           CP096A       249     A     
 COMPASS            RX3    X0                                                              CP096A       250     A     
 COMPASS            SX0    X0+B1                                                           CP096A       251     A     
 COMPASS            RX2    X0                                                              CP096A       252     A     
 COMPASS            BX6    X3-X5                                                           COMPASS     2584     A     
 COMPASS            AX4    X2,B6                                                           COMPASS     2585     A     
 COMPASS            ZR     X6,SLU3     IF MATCH FOUND                                      COMPASS     2586     A     
 COMPASS            BX6    X3-X1                                                           COMPASS     2587     A     
 COMPASS            NZ     X6,SLU2     IF NOT WITH QUAL OF ZERO                            COMPASS     2588     A     
 COMPASS            SB5    A2                                                              COMPASS     2589          I
          -CP096A 
 COMPASS            SB5    X0                                                              CP096A       253     A     
 COMPASS   SLU2     NZ     X4,SLU1     IF LINK " 0                                         COMPASS     2590     A     
 COMPASS            MX2    0           END OF SYMBOL TABLE                                 COMPASS     2591     A     
 COMPASS            SX3    B0                                                              COMPASS     2592     A     
 COMPASS            NG     B5,TLUSYMT  IF NOT FOUND                                        COMPASS     2593     A     
 COMPASS            SA2    B5                                                              COMPASS     2594          I
          -CP096A 
 COMPASS            SX0    B5                                                              CP096A       254     A     
 COMPASS            RX2    X0                                                              CP096A       255     A     
 COMPASS            EQ     SLU3                                                            COMPASS     2595     A     
 COMPASS   UPPOS    SPACE  4                                                               COMPASS     2596     A     
 COMPASS  **        UPPOS - INCREMENT POSITION COUNTER.                                    COMPASS     2597     A     
 COMPASS  *         ENTRY  (X1) = INCREMENT.                                               COMPASS     2598     A     
 COMPASS                                                                                   COMPASS     2599     A     
 COMPASS                                                                                   COMPASS     2600     A     
 COMPASS   UPPOS    PS                 RETURN EXIT                                         COMPASS     2601     A     
 COMPASS            SA2    POSCTR                                                          COMPASS     2602     A     
 COMPASS            IX6    X2-X1       DECREMENT POSITION COUNTER                          COMPASS     2603     A     
 COMPASS            SA6    A2                                                              COMPASS     2604     A     
 COMPASS            SA3    LWORD       WORD LENGTH - 12 OR 60                              COMPASS     2605          I
          -CPSA288
 COMPASS            SA3    LWORD       WORD LENGTH - 12, 16, OR 60                         CPSA288       15     A     
 COMPASS   UPPOS1   PL     X6,UPPOS    EXIT IF STILL IN THIS WORD                          COMPASS     2606     A     
 COMPASS            SA4    ORGCTR      ADJUST ORIGIN AND LOCATION COUNTERS                 COMPASS     2607     A     
 COMPASS            SA5    LOCCTR                                                          COMPASS     2608     A     
 COMPASS            IX6    X6+X3                                                           COMPASS     2609     A     
 COMPASS            MX0    59                                                              COMPASS     2610     A     
 COMPASS            IX7    X4-X0                                                           COMPASS     2611     A     
 COMPASS            SA7    A4                                                              COMPASS     2612     A     
 COMPASS            IX7    X5-X0                                                           COMPASS     2613     A     
 COMPASS            SA7    A5                                                              COMPASS     2614     A     
 COMPASS            SA6    A6                                                              COMPASS     2615     A     
 COMPASS            EQ     UPPOS1                                                          COMPASS     2616     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 357    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   VFYLINK  SPACE  4                                                               COMPASS     2617     A     
 COMPASS  **        VFYLINK - VERIFY LINKAGE SYMBOL.                                       COMPASS     2618     A     
 COMPASS  *         VALID LINKAGE SYMBOLS MUST BE...                                       COMPASS     2619     A     
 COMPASS  *                1)  7 OR FEWER CHARACTERS (3 OR FEWER IF PP).                   COMPASS     2620     A     
 COMPASS  *                2)  BEGIN WITH A-Z IF CP.                                       COMPASS     2621     A     
 COMPASS  *         ENTRY  (X6) = SYMBOL TO BE CHECKED.                                    COMPASS     2622     A     
 COMPASS  *         EXIT   (X6) = UNTOUCHED SYMBOL.                                        COMPASS     2623          I
          -CPS002 
 COMPASS  *         EXIT   (X1) = (X6) = SYMBOL, TRUNCATED IF NECESSARY.          S002   6 CPS002         1     A     
 COMPASS  *                (X7) = 0 IF OK,  "0 IF BAD.                                     COMPASS     2624     A     
 COMPASS                                                                                   COMPASS     2625     A     
 COMPASS                                                                                   COMPASS     2626     A     
 COMPASS   VFL1     MX7    42          CHECK 3-CHARACTER PP NAME                           COMPASS     2627          I
          -CPS002 
 COMPASS            BX7    X7*X6                                                           COMPASS     2628          I
          -CPS002 
 COMPASS                                                                                   COMPASS     2629          I
          -CPS002 
 COMPASS   VFYLINK  PS                 RETURN EXIT                                         COMPASS     2630     A     
 COMPASS            MX5    18                                                              COMPASS     2631          I
          -CPS002 
 COMPASS            BX7    X5*X6       CHECK FOR 7 CHARACTER NAME                          COMPASS     2632          I
          -CPS002 
 COMPASS            NZ     X7,VFYLINK  IF SYMBOL BAD                                       COMPASS     2633          I
          -CPS002 
 COMPASS            SA5    PPTYPE                                                          COMPASS     2634          I
          -CPS002 
 COMPASS            NZ     X5,VFYLINK  IF 7600 PP                                          COMPASS     2635          I
          -CPS002 
 COMPASS            SA5    MACHINE                                                         COMPASS     2636          I
          -CPS002 
 COMPASS            NZ     X5,VFL1     IF PP                                               COMPASS     2637          I
          -CPS002 
 COMPASS            BX4    X6                                                              COMPASS     2638          I
          -CPS002 
 COMPASS            MX7    6                                                               COMPASS     2639          I
          -CPS002 
 COMPASS            ZR     X6,VFYLINK  CHECK FOR EMPTY NAME                                COMPASS     2640          I
          -CPS002 
 COMPASS   +        BX5    X7*X4                                                           COMPASS     2641          I
          -CPS002 
 COMPASS            LX4    6           LEFT JUSTIFY NAME                                   COMPASS     2642          I
          -CPS002 
 COMPASS            ZR     X5,*                                                            COMPASS     2643          I
          -CPS002 
 COMPASS            SX5    X4-1R0                                                          COMPASS     2644          I
          -CPS002 
 COMPASS            PL     X5,VFYLINK  ERROR IF FIRST CHAR NOT LETTER                      COMPASS     2645          I
          -CPS002 
 COMPASS            MX7    0                                                               COMPASS     2646          I
          -CPS002 
 COMPASS            EQ     VFYLINK     EXIT WITH GOOD REPLY                                COMPASS     2647          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 358    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS002 
 COMPASS            SA4    MACHINE                                                S002   9 CPS002         2     A     
 COMPASS            SA5    PPTYPE                                                 S002  10 CPS002         3     A     
 COMPASS            MX3    6                                                      S002  11 CPS002         4     A     
 COMPASS            BX1    -X5*X4                                                 S002  12 CPS002         5     A     
 COMPASS            MX0    -7*6        SET FOR 7-CHARACTER NAME                   S002  13 CPS002         6     A     
 COMPASS            BX5    X6                                                     S002  14 CPS002         7          I
          -F4820  
 COMPASS            NG     X5,VFL1     IF BCU OR MCU                                       F4820         61          I
          -CPSA281
 COMPASS            MI     X5,VFL1     IF BCU, MCU, OR 180 PPU                             CPSA281       37     A     
 COMPASS            ZR     X1,VFL1     IF CPU OR 7000 PPU ASSEMBLY                S002  15 CPS002         8     A     
 COMPASS            MX0    -3*6        6000 PERIPH, SET FOR 3-CHARACTER NAME      S002  16 CPS002         9     A     
 COMPASS   VFL1     BX7    X0*X6                                                  S002  17 CPS002        10     A     
 COMPASS            BX5    X6                                                              F4820         62     A     
 COMPASS            LX1    X6                                                     S002  18 CPS002        11     A     
 COMPASS            ZR     X7,VFL3     IF NAME NOT TOO LONG                       S002  19 CPS002        12     A     
 COMPASS   VFL2     AX6    6                                                      S002  20 CPS002        13     A     
 COMPASS            BX6    -X3*X6      TRUNCATE EXCESS CHARACTERS FROM RIGHT      S002  21 CPS002        14     A     
 COMPASS            BX5    X0*X6                                                  S002  22 CPS002        15     A     
 COMPASS            NZ     X5,VFL2     LOOP                                       S002  23 CPS002        16     A     
 COMPASS            BX1    X6                                                     S002  24 CPS002        17     A     
 COMPASS            LX5    X6                                                     S002  25 CPS002        18     A     
 COMPASS   VFL3     NZ     X4,VFYLINK  IF PPU ASSEMBLY                            S002  26 CPS002        19     A     
 COMPASS            ZR     X6,VFYLINK  IF EMPTY NAME                              S002  27 CPS002        20     A     
 COMPASS   VFL4     BX4    X3*X5                                                  S002  28 CPS002        21     A     
 COMPASS            LX5    6           LEFT JUSTIFY NAME                          S002  29 CPS002        22     A     
 COMPASS            ZR     X4,VFL4                                                S002  30 CPS002        23     A     
 COMPASS            SX5    X5-1R0                                                 S002  31 CPS002        24     A     
 COMPASS            MI     X5,VFYLINK  IF FIRST CHARACTER IS A-Z                  S002  32 CPS002        25     A     
 COMPASS            MX7    6                                                      S002  33 CPS002        26     A     
 COMPASS            JP     VFYLINK     RETURN WITH ERROR                          S002  34 CPS002        27     A     
 COMPASS   WLC      SPACE  4                                                               CMP30       1978     A     
 COMPASS  **        WLC - WRITE LARGE CORE MEMORY.                                         CMP30       1979     A     
 COMPASS  *         ENTRY  (X1) = LCM FWA.                                                 CMP30       1980     A     
 COMPASS  *                (X2) = SCM FWA.                                                 CMP30       1981     A     
 COMPASS  *                (X3) = WORD COUNT.                                              CMP30       1982     A     
 COMPASS  *         USES   X0, X1, A0, B6, B7.                                             CMP30       1983          I
          -CP096A 
 COMPASS  *         USES   X - 0, 1, 3.                                                    CP096A       256     A     
 COMPASS  *                B - 6, 7.                                                       CP096A       257     A     
 COMPASS  *                A - 0.                                                          CP096A       258     A     
 COMPASS                                                                                   CMP30       1984     A     
 COMPASS                                                                                   CMP30       1985     A     
 COMPASS   WLC1     SB7    X3-1000B                                                        CMP30       1986     A     
 COMPASS            SB6    1000B                                                           CMP30       1987     A     
 COMPASS            PL     B7,WLC2     IF AT LEAST 1000B WORDS REMAIN                      CMP30       1988     A     
 COMPASS            SB7    B0                                                              CMP30       1989     A     
 COMPASS            SB6    X3          SET REDUCED WORD COUNT                              CMP30       1990     A     
 COMPASS   WLC2     BSS    0                                                               CMP30       1991     A     
 COMPASS                                                                                   CMP30       1992     A     
 COMPASS            IFC    LT, "MODEL" 75 ,3                                               CMP30       1993          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 359    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F7540CP
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP       88          I
          -CPS167 
 COMPASS            ENV    (4,5,6,7,8,9),X                                                 CPS167         6          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       89          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP       90          I
          -CPSA134
 COMPASS            IF     DEF,HAFEXIT                                                     CPSA134       71     A     
 COMPASS   +        WE     B6                                                              CMP30       1994     A     
 COMPASS   -        EQ     WLC3        IF ERROR                                            CMP30       1995     A     
 COMPASS            ELSE   1                                                               CMP30       1996     A     
 COMPASS            WL     B6                                                              CMP30       1997     A     
 COMPASS                                                                                   CMP30       1998     A     
 COMPASS            IX0    X0+X1       INCREMENT ADDRESSES                                 CMP30       1999     A     
 COMPASS            SA0    A0+B6                                                           CMP30       2000     A     
 COMPASS            SX3    B7                                                              CMP30       2001     A     
 COMPASS            GT     B7,B0,WLC1  LOOP                                                CMP30       2002     A     
 COMPASS                                                                                   CMP30       2003     A     
 COMPASS   WLC      PS                 RETURN EXIT                                         CMP30       2004     A     
 COMPASS            BX0    X1                                                              CMP30       2005     A     
 COMPASS            SA0    X2                                                              CMP30       2006     A     
 COMPASS            SX1    1000B                                                           CMP30       2007     A     
 COMPASS            NZ     X3,WLC1     IF WORD COUNT NON-ZERO                              CMP30       2008     A     
 COMPASS            EQ     WLC         RETURN                                              CMP30       2009     A     
 COMPASS                                                                                   CMP30       2010     A     
 COMPASS   ECS      IFC    LT, "MODEL" 75                                                  CMP30       2011          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),ECS                                                   F7540CP       91          I
          -CPS167 
 COMPASS            ENV    (4,5,6,7,8,9),ECS                                               CPS167         7          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       92          I
          -CPSA134
 COMPASS   ECS      ELSE                                                                   F7540CP       93          I
          -CPSA134
 COMPASS                                                                                   CMP30       2012          I
          -CPSA134
 COMPASS   ECS      IF     DEF,HAFEXIT                                                     CPSA134       72     A     
 COMPASS   WLC3     MESSAGE WLCM,,R                                                        CMP30       2013     A     
 COMPASS            RJ     RPD         RESTORE DEFAULT PRINT DENSITY IF NECESSARY  F4810A  F4810A       149     A     
 COMPASS            ABORT  ,NODUMP                                                         CMP30       2014     A     
 COMPASS                                                                                   CMP30       2015     A     
 COMPASS   WLCM     DATA   C* ASSEMBLY ABORTED - ECS WRITE ERROR.*                         CMP30       2016     A     
 COMPASS                                                                                   CMP30       2017     A     
 COMPASS   ECS      ENDIF                                                                  CMP30       2018     A     
 COMPASS   LJUST    TITLE  COMMON SECTION - ADDRESS SCANNING ROUTINES.                     COMPASS     2648     A     
 COMPASS  **        LJUST - LEFT JUSTIFY SYMBOL.                                           COMPASS     2649     A     
 COMPASS  *         ENTRY  (X1) = NAME.                                                    COMPASS     2650     A     
 COMPASS  *         EXIT   (X1) = NAME UNCHANGED.                                          COMPASS     2651     A     
 COMPASS  *                (X6) = BLANK FILL NAME LEFT JUSTIFIED.                          COMPASS     2652     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 360    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (X7) = ZERO FILL NAME LEFT JUSTIFIED.                           COMPASS     2653     A     
 COMPASS                                                                                   COMPASS     2654     A     
 COMPASS                                                                                   COMPASS     2655     A     
 COMPASS   LJUST    PS                 RETURN EXIT                                         COMPASS     2656     A     
 COMPASS            MX0    6                                                               COMPASS     2657     A     
 COMPASS            SX2    1R                                                              COMPASS     2658     A     
 COMPASS            BX6    X1                                                              COMPASS     2659     A     
 COMPASS            LX7    X1                                                              COMPASS     2660     A     
 COMPASS   +        LX6    6                                                               COMPASS     2661     A     
 COMPASS            LX7    6                                                               COMPASS     2662     A     
 COMPASS            BX3    X0*X6                                                           COMPASS     2663     A     
 COMPASS            BX6    X2+X6                                                           COMPASS     2664     A     
 COMPASS            ZR     X3,*-1                                                          COMPASS     2665     A     
 COMPASS            EQ     LJUST                                                           COMPASS     2666     A     
 COMPASS   SCAD     SPACE  4                                                               COMPASS     2667     A     
 COMPASS  **        SCAD - SCAN ADDRESS FIELD.                                             COMPASS     2668     A     
 COMPASS  *         ENTRY  (X1) = FIELD WIDTH OF INSTRUCTION.                              COMPASS     2669     A     
 COMPASS  *         EXIT VALUES IN EXVAL, EXREL, EXREG, EXEXT, EXERR.                      COMPASS     2670     A     
 COMPASS                                                                                   COMPASS     2671     A     
 COMPASS                                                                                   COMPASS     2672     A     
 COMPASS            USE    SCAN                                                            CMP30       2019     A     
 COMPASS            SEG    ADDRESS SCANNING ROUTINES.                                      CMP30       2020     A     
 COMPASS   TEOP     DATA   0           TERM OPERATOR                                       COMPASS     2673     A     
 COMPASS   TEVAL    DATA   0           TERM VALUE                                          COMPASS     2674     A     
 COMPASS   TEREL    DATA   0           TERM RELOCATION                                     COMPASS     2675     A     
 COMPASS   TECOE    DATA   0           TERM CO-EFFICIENT                                   COMPASS     2676     A     
 COMPASS   TEEXT    DATA   0           TERM EXTERNAL                                       COMPASS     2677     A     
 COMPASS                                                                                   COMPASS     2678     A     
 COMPASS   ELOP     DATA   0           ELEMENT OPERATOR                                    COMPASS     2679     A     
 COMPASS   ELVAL    DATA   0           ELEMENT VALUE                                       COMPASS     2680     A     
 COMPASS   ELREL    DATA   0           ELEMENT RELOCATION                                  COMPASS     2681     A     
 COMPASS   ELEXT    DATA   0           ELEMENT EXTERNAL                                    COMPASS     2682     A     
 COMPASS   ELREG    DATA   0           ELEMENT REGISTER                                    COMPASS     2683     A     
 COMPASS                                                                                   COMPASS     2684     A     
 COMPASS   KADFLAG  DATA   0           ADDRESS TERM FLAG                                   COMPASS     2685     A     
 COMPASS   EXERR    DATA   0           ADDRESS FIELD ERROR                                 COMPASS     2686     A     
 COMPASS   EXLGN    DATA   0           EXPRESSION FIELD LENGTH                             COMPASS     2687     A     
 COMPASS   EXSTOP   DATA   0           STOP CHARACTER. 0=BLANK, 1=COMMA                    COMPASS     2688     A     
 COMPASS                                                                                   COMPASS     2689     A     
 COMPASS                                                                                   COMPASS     2690     A     
 COMPASS   SCAD     PS                 RETURN EXIT                                         COMPASS     2691     A     
 COMPASS            BX7    X1          SAVE EXPRESSION LENGTH                              COMPASS     2692     A     
 COMPASS            SA7    EXLGN                                                           COMPASS     2693     A     
 COMPASS            SX6    B0          INITIALIZE FLAGS                                    COMPASS     2694     A     
 COMPASS            LX7    X6                                                              COMPASS     2695     A     
 COMPASS            SA7    A7-B1       EXERR                                               COMPASS     2696     A     
 COMPASS            SA6    KADFLAG                                                         COMPASS     2697     A     
 COMPASS            SA7    EXREL                                                           COMPASS     2698     A     
 COMPASS            SA6    A7+B1       EXEXT                                               COMPASS     2699     A     
 COMPASS            SA7    A6+B1       EXREG                                               COMPASS     2700     A     
 COMPASS            BX6    -X6                                                    029A   6 CMP029A        1     A     
 COMPASS            SA6    EXVAL       EXVAL = -0                                 029A   7 CMP029A        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/28. 19.11.32.      PAGE 361    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    USECNT      CLEAR RELEVANT PORTION OF RELVEC                    COMPASS     2701          I
          -CMP30  
 COMPASS            SX2    RELVEC                                                          COMPASS     2702          I
          -CMP30  
 COMPASS            IX3    X2+X3                                                           COMPASS     2703          I
          -CMP30  
 COMPASS            MX1    0                                                               COMPASS     2704          I
          -CMP30  
 COMPASS            RJ     PRESET                                                          COMPASS     2705          I
          -CMP30  
 COMPASS            SA2    UI+1        CLEAR RELEVANT PORTION OF RELVEC                    CMP30       2021          I
          -CPS2672
 COMPASS            SA2    UI+1        CLEAR RELEVANT PORTION OF *RVTAB*                   CPS2672       22     A     
 COMPASS            SA3    UI+2                                                            CMP30       2022     A     
 COMPASS            SB6    X2                                                              CMP30       2023     A     
 COMPASS            SB7    X3                                                              CMP30       2024     A     
 COMPASS            SA7    RELVEC-1+X2                                                     CMP30       2025          I
          -CPS2672
 COMPASS            SA1    O.RVTAB                                                         CPS2672       23     A     
 COMPASS            IX1    X1+X2                                                           CPS2672       24     A     
 COMPASS            SA7    X1-1        ENTRY FOR FIRST BLOCK                               CPS2672       25     A     
 COMPASS   +        SB6    B6+B1                                                           CMP30       2026     A     
 COMPASS            SA7    A7+B1                                                           CMP30       2027     A     
 COMPASS            LT     B6,B7,*                                                         CMP30       2028     A     
 COMPASS            SA1    CHAR                                                            COMPASS     2706     A     
 COMPASS            SB3    X1-55B                                                          COMPASS     2707          I
          -CMP20  
 COMPASS            SB3    X1-1R                                                           CMP20         52          I
          -CMP029 
 COMPASS            MX7    60          CHECK FOR EMPTY FIELD                               COMPASS     2708          I
          -CMP029 
 COMPASS            NG     B3,SCADA                                                        COMPASS     2709          I
          -CMP20    -CMP029 
 COMPASS            GE     B3,B1,SCADA                                                     COMPASS     2710          I
          -CMP20    -CMP029 
 COMPASS            NZ     B3,SCADA                                                        CMP20         53          I
          -CMP029 
 COMPASS            SX7    B0                                                              COMPASS     2711          I
          -CMP029 
 COMPASS   SCADA    SA7    EXVAL                                                           COMPASS     2712          I
          -CMP029 
 COMPASS            SA7    EXVAL       PRESET EXVAL = -0                                   CMP029        15          I
          -CMP029A
 COMPASS                                                                                   COMPASS     2713     A     
 COMPASS  *         ENTRY ON NEW TERM.                                                     COMPASS     2714     A     
 COMPASS                                                                                   COMPASS     2715     A     
 COMPASS   SCAD1    SB7    X1-1R       TEST FOR BLANK OR COMMA                             COMPASS     2716     A     
 COMPASS            ZR     B7,SCADX    IF BLANK                                            COMPASS     2717     A     
 COMPASS            EQ     B7,B1,SCADX1 IF COMMA                                           COMPASS     2718     A     
 COMPASS            SX6    B0                                                              COMPASS     2719     A     
 COMPASS            BX7    X6                                                              COMPASS     2720     A     
 COMPASS            SA6    TEVAL       CLEAR TEVAL                                         COMPASS     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/28. 19.11.32.      PAGE 362    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A6+B1       TREL                                                COMPASS     2722     A     
 COMPASS            SA6    A7+B1       TECOE                                               COMPASS     2723     A     
 COMPASS            SX7    B1                                                              COMPASS     2724     A     
 COMPASS            SA7    TEOP        SET TEOP TO 1                                       COMPASS     2725     A     
 COMPASS                                                                                   COMPASS     2726     A     
 COMPASS  *         ENTRY ON NEW ELEMENT.                                                  COMPASS     2727     A     
 COMPASS                                                                                   COMPASS     2728     A     
 COMPASS   SCAD2    SB7    X1-1R+                                                          COMPASS     2729     A     
 COMPASS            ZR     B7,SCAD900  JUMP IF +                                           COMPASS     2730     A     
 COMPASS            EQ     B1,B7,SCAD900 JUMP IF -                                         COMPASS     2731     A     
 COMPASS            SB7    X1-1R&                                                          COMPASS     2732     A     
 COMPASS            ZR     B7,SCAD901  JUMP IF &                                           COMPASS     2733     A     
 COMPASS            SX6    B1          SET ELEMENT OPERATOR                                COMPASS     2734     A     
 COMPASS            SA6    ELOP                                                            COMPASS     2735     A     
 COMPASS   SCAD3    SX6    B0                                                              COMPASS     2736     A     
 COMPASS            MX7    60                                                              COMPASS     2737     A     
 COMPASS            SA6    ELREL                                                           COMPASS     2738     A     
 COMPASS            SA7    A6-B1       SET ELVAL = -0                                      COMPASS     2739     A     
 COMPASS            SA6    A6+B1       AND ELEXT = 0                                       COMPASS     2740     A     
 COMPASS            SA2    =30060020B  CHECK FOR BLANK, COMMA, PLUS, MINUS, &              COMPASS     2741     A     
 COMPASS            SB7    X1                                                              COMPASS     2742     A     
 COMPASS            LX0    X2,B7                                                           COMPASS     2743     A     
 COMPASS            NG     X0,SCAD4                                                        COMPASS     2744     A     
 COMPASS   SCANEV   BSSZ   1           RJ YEVITEM OR ZEVITEM TO EVAL. ITEM                 COMPASS     2745     A     
 COMPASS            SA1    CHAR        RESTORE CHARACTER                                   COMPASS     2746     A     
 COMPASS            SA2    ELREG       TEST FOR A REGISTER                                 COMPASS     2747     A     
 COMPASS            ZR     X2,SCAD40   JUMP IF NOT A REGISTER                              COMPASS     2748     A     
 COMPASS            SA3    EXREG                                                           COMPASS     2749     A     
 COMPASS            LX3    9                                                               COMPASS     2750     A     
 COMPASS            BX6    X3+X2       OR ELREG INTO EXREG                                 COMPASS     2751     A     
 COMPASS            SA6    A3                                                              COMPASS     2752     A     
 COMPASS            EQ     SCAD4                                                           COMPASS     2753     A     
 COMPASS   SCAD40   MX6    60          SET ADDRESS FLAG                                    COMPASS     2754     A     
 COMPASS            SA6    KADFLAG                                                         COMPASS     2755     A     
 COMPASS   SCAD4    SA2    ELOP        JUMP ON ELEMENT OPERATOR                            COMPASS     2756     A     
 COMPASS            SB7    X2                                                              COMPASS     2757     A     
 COMPASS            JP     B7+*                                                            COMPASS     2758     A     
 COMPASS                                                                                   COMPASS     2759     A     
 COMPASS   +        EQ     SCAD21      INITIAL OPERATION                                   COMPASS     2760     A     
 COMPASS   +        EQ     SCAD22      MULTIPLICATION                                      COMPASS     2761     A     
 COMPASS   +        SA2    ELEXT       DIVISION                                            COMPASS     2762     A     
 COMPASS            SA4    TEEXT                                                           COMPASS     2763     A     
 COMPASS                                                                                   COMPASS     2764     A     
 COMPASS            SA5    TEREL                                                           COMPASS     2765     A     
 COMPASS            SA3    A2-B1       ELREL                                               COMPASS     2766     A     
 COMPASS            BX2    X2+X3                                                           COMPASS     2767     A     
 COMPASS            IX4    X4+X5                                                           COMPASS     2768     A     
 COMPASS            BX2    X4+X2                                                           COMPASS     2769     A     
 COMPASS            NZ     X2,SCAD225  JUMP IF ILLEGAL DIVISION                            COMPASS     2770     A     
 COMPASS            SA3    ELVAL       PERFORM DIVISION IF DENOMINATOR                     COMPASS     2771     A     
 COMPASS            SA4    TECOE       IS NON-ZERO                                         COMPASS     2772     A     
 COMPASS            ZR     X3,SCAD220                                                      COMPASS     2773     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 363    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X4          PERFORM TECOE = TECOE/ELVAL                         COMPASS     2774     A     
 COMPASS            AX4    48          HIGH 12 BITS OF NUMERATOR                           COMPASS     2775     A     
 COMPASS            ZR     X6,SCAD23A  IF NUMERATOR IS ZERO                                COMPASS     2776     A     
 COMPASS            BX7    X3                                                              COMPASS     2777     A     
 COMPASS            AX3    48          HIGH 12 BITS OF DENOMINATOR                         COMPASS     2778     A     
 COMPASS            PX5    X7          FLOAT LOW DENOMINATOR = DD                          COMPASS     2779     A     
 COMPASS            SB7    48                                                              COMPASS     2780     A     
 COMPASS            PX3    B7,X3       FLOAT D                                             COMPASS     2781     A     
 COMPASS            NX3    X3,B6       NORMALIZE D                                         COMPASS     2782     A     
 COMPASS            NX7    X5,B5                                                           COMPASS     2783     A     
 COMPASS            DX5    X3+X7       JUSTIFY EXPONENTS OF D AND DD                       COMPASS     2784     A     
 COMPASS            PX4    X4,B7       FLOAT, NORMALIZE AND JUSTIFY N                      COMPASS     2785     A     
 COMPASS            FX2    X3+X7                                                           COMPASS     2786     A     
 COMPASS            NX7    X4,B7                                                           COMPASS     2787     A     
 COMPASS            PX3    X6                                                              COMPASS     2788     A     
 COMPASS            NX3    X3,B6                                                           COMPASS     2789     A     
 COMPASS            FX4    X3+X7                                                           COMPASS     2790     A     
 COMPASS            DX3    X3+X7                                                           COMPASS     2791     A     
 COMPASS            FX6    X4/X2       N/D                                                 COMPASS     2792     A     
 COMPASS            FX7    X6*X2       N/D*D                                               COMPASS     2793     A     
 COMPASS            FX0    X4-X7       REMAINDER OF N/D IN BOTH PRECISIONS                 COMPASS     2794     A     
 COMPASS            DX7    X7-X7                                                           COMPASS     2795          I
          -CPS010 
 COMPASS            DX7    X4-X7                                                           CPS010        29     A     
 COMPASS            NX0    X0,B6       NORMALIZE AND JUSTIFY REMAINDER                     COMPASS     2796     A     
 COMPASS            FX0    X7+X0                                                           COMPASS     2797     A     
 COMPASS            DX7    X6*X2       N/D*D IN LOW PRECISION                              COMPASS     2798     A     
 COMPASS            FX4    X6*X5                                                           COMPASS     2799     A     
 COMPASS            FX5    X3-X7                                                           COMPASS     2800     A     
 COMPASS            FX5    X0+X5                                                           COMPASS     2801     A     
 COMPASS            FX5    X5-X4                                                           COMPASS     2802     A     
 COMPASS            FX5    X5/X2                                                           COMPASS     2803          I
          -CPS010 
 COMPASS            FX3    X5/X2                                                           CPS010        30     A     
 COMPASS            DX7    X6+X3                                                           COMPASS     2804     A     
 COMPASS            FX6    X6+X3                                                           COMPASS     2805     A     
 COMPASS            UX6    X6,B7                                                           COMPASS     2806     A     
 COMPASS            LX6    X6,B7                                                           COMPASS     2807     A     
 COMPASS            PL     B7,SCAD23B  JUMP IF NO LOW-ORDER PART                           COMPASS     2808     A     
 COMPASS   SCAD23A  MX0    0                                                               COMPASS     2809     A     
 COMPASS            IX6    X0+X6                                                           COMPASS     2810     A     
 COMPASS            EQ     SCAD23C                                                         COMPASS     2811     A     
 COMPASS   SCAD23B  UX7    X7,B7                                                           COMPASS     2812     A     
 COMPASS            LX7    B7,X7                                                           COMPASS     2813     A     
 COMPASS            IX6    X6+X7                                                           COMPASS     2814     A     
 COMPASS   SCAD23C  SA6    TECOE       STORE RESULT                                        COMPASS     2815     A     
 COMPASS            EQ     SCAD24                                                          COMPASS     2816     A     
 COMPASS   SCAD21   SA2    ELREL       ENTRY ON FIRST ELEMENT OF TERM                      COMPASS     2817     A     
 COMPASS            SA3    ELEXT                                                           COMPASS     2818     A     
 COMPASS            NZ     X2,SCAD210  JUMP IF ELEMENT RELOCATABLE                         COMPASS     2819     A     
 COMPASS            SA4    ELVAL       STORE ABSOLUTE VALUE OF ELEMENT                     COMPASS     2820     A     
 COMPASS            BX6    X4                                                              COMPASS     2821     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 364    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX7    X3                                                              COMPASS     2822     A     
 COMPASS   +        SA6    TECOE                                                           COMPASS     2823     A     
 COMPASS            SA7    TEEXT                                                           COMPASS     2824     A     
 COMPASS            EQ     SCAD24                                                          COMPASS     2825     A     
 COMPASS   SCAD210  SX6    B1          NON-ABSOLUTE VALUES                                 COMPASS     2826     A     
 COMPASS            SA6    TECOE       SET TERM COEFFICIENT TO 1                           COMPASS     2827     A     
 COMPASS   SCAD215  SA2    ELVAL       MOVE ELEMENT TO TERM                                COMPASS     2828     A     
 COMPASS            SA3    ELREL                                                           COMPASS     2829     A     
 COMPASS            SA4    ELEXT                                                           COMPASS     2830     A     
 COMPASS            BX6    X2                                                              COMPASS     2831     A     
 COMPASS            LX7    X3                                                              COMPASS     2832     A     
 COMPASS            SA6    TEVAL                                                           COMPASS     2833     A     
 COMPASS            SA7    A6+B1       TEREL                                               COMPASS     2834     A     
 COMPASS            BX6    X4                                                              COMPASS     2835     A     
 COMPASS   +        SA6    TEEXT                                                           COMPASS     2836     A     
 COMPASS            EQ     SCAD24                                                          COMPASS     2837     A     
 COMPASS   SCAD22   SA2    ELREL       ENTRY ON MULTIPLICATION                             COMPASS     2838     A     
 COMPASS            SA3    ELEXT                                                           COMPASS     2839     A     
 COMPASS            IX2    X3+X2                                                           COMPASS     2840     A     
 COMPASS            ZR     X2,SCAD220  CHECK ABSOLUTE MULTIPLY                             COMPASS     2841     A     
 COMPASS            SA2    TEREL                                                           COMPASS     2842     A     
 COMPASS            SA3    TEEXT                                                           COMPASS     2843     A     
 COMPASS            IX2    X2+X3                                                           COMPASS     2844     A     
 COMPASS            ZR     X2,SCAD215  CHECK FOR REL TIMES EXT                             COMPASS     2845     A     
 COMPASS   SCAD225  SX6    B1          COMPLAIN IF ERROR                                   COMPASS     2846     A     
 COMPASS            SA6    EXERR                                                           COMPASS     2847     A     
 COMPASS            SA6    EFLG                                                            COMPASS     2848     A     
 COMPASS            SA6    AERR                                                            COMPASS     2849     A     
 COMPASS   SCAD24   SB7    X1-1R*      ENTRY AFTER ELEMENT                                 COMPASS     2850     A     
 COMPASS            ZR     B7,SCAD800  CHECK FOR * OR / OPERATORS                          COMPASS     2851     A     
 COMPASS            EQ     B1,B7,SCAD800                                                   COMPASS     2852     A     
 COMPASS            SA2    TEOP        END OF TERM                                         COMPASS     2853     A     
 COMPASS            SA3    TECOE                                                           COMPASS     2854     A     
 COMPASS            SX4    X2-1                                                            COMPASS     2855     A     
 COMPASS            SA2    TEEXT                                                           COMPASS     2856     A     
 COMPASS            LX4    59-1                                                            COMPASS     2857     A     
 COMPASS            AX4    60                                                              COMPASS     2858     A     
 COMPASS            BX3    X3-X4                                                           COMPASS     2859     A     
 COMPASS            SA4    A3-B1       TEREL                                               COMPASS     2860     A     
 COMPASS            NZ     X2,SCAD110  JUMP IF TERM EXTERNAL                               COMPASS     2861     A     
 COMPASS            NZ     X4,SCAD112  JUMP IF TERM RELOCATABLE                            COMPASS     2862     A     
 COMPASS            SA4    TEOP                                                            COMPASS     2863     A     
 COMPASS            SX4    X4-5                                                            COMPASS     2864     A     
 COMPASS            SA5    EXVAL                                                           COMPASS     2865     A     
 COMPASS            ZR     X4,SCAD24A  IF & OPERATOR                                       COMPASS     2866     A     
 COMPASS            IX6    X3+X5       ADD TERM VALUE INTO EXPRESSION                      COMPASS     2867     A     
 COMPASS            SA6    A5          EXVAL                                               COMPASS     2868     A     
 COMPASS            EQ     SCAD1                                                           COMPASS     2869     A     
 COMPASS   SCAD24A  BX6    X3-X5       ADD TERM INTO EXPRESSION                            COMPASS     2870     A     
 COMPASS            SA6    A5 EXVAL                                                        COMPASS     2871     A     
 COMPASS            EQ     SCAD1                                                           COMPASS     2872     A     
 COMPASS   SCAD110  SX6    B1          TERM IS EXTERNAL                                    COMPASS     2873     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 365    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX7    X3                                                              COMPASS     2874     A     
 COMPASS            SA4    TEOP                                                            COMPASS     2875     A     
 COMPASS            SX4    X4-3                                                            COMPASS     2876     A     
 COMPASS            ZR     X4,SCAD110E IF - RELOC                                          COMPASS     2877     A     
 COMPASS            SA4    EXEXT                                                           COMPASS     2878     A     
 COMPASS            ZR     X4,SCAD111  COMPLAIN IF NOT FIRST EXTERNAL                      COMPASS     2879     A     
 COMPASS   SCAD110E SA6    AERR        ERROR                                               COMPASS     2880     A     
 COMPASS            SA6    EXERR                                                           COMPASS     2881     A     
 COMPASS            SA6    EFLG                                                            COMPASS     2882     A     
 COMPASS   SCAD111  SA5    EXVAL                                                           COMPASS     2883     A     
 COMPASS            IX7    X5+X7                                                           COMPASS     2884     A     
 COMPASS            BX6    X2                                                              COMPASS     2885     A     
 COMPASS            SA7    A5          EXVAL          STORE NEW EXPRESSION VALUE           COMPASS     2886     A     
 COMPASS            SA6    A4          AND EXT NO                                          COMPASS     2887     A     
 COMPASS            EQ     SCAD1                                                           COMPASS     2888     A     
 COMPASS   SCAD112  SX0    256                                                             COMPASS     2889     A     
 COMPASS            IX5    X4-X0       CHECK FOR NEGATIVE RELOCATION                       COMPASS     2890     A     
 COMPASS            NG     X5,SCAD113                                                      COMPASS     2891     A     
 COMPASS            BX3    -X3                                                             COMPASS     2892     A     
 COMPASS            LX4    X5                                                              COMPASS     2893     A     
 COMPASS   SCAD113  SA2    RELVEC-1+X4 RECORD RELOCATION                                   COMPASS     2894          I
          -CPS2672
 COMPASS   SCAD113  SA2    O.RVTAB     RECORD RELOCATION IN RELEVANT RVTAB ENTRY           CPS2672       26     A     
 COMPASS            SB6    X2-1                                                            CPS2672       27     A     
 COMPASS            SA2    B6+X4                                                           CPS2672       28     A     
 COMPASS            IX6    X2+X3                                                           COMPASS     2895     A     
 COMPASS            SA6    A2                                                              COMPASS     2896     A     
 COMPASS            SA2    TEVAL       MULTIPLY COEFFICIENT BY VALUE                       COMPASS     2897     A     
 COMPASS            RJ     SCADMU      PERFORM X7 = X2*X3                                  COMPASS     2898     A     
 COMPASS            SA3    EXVAL                                                           COMPASS     2899     A     
 COMPASS            IX6    X7+X3                                                           COMPASS     2900     A     
 COMPASS   +        SA6    A3                                                              COMPASS     2901     A     
 COMPASS            EQ     SCAD1                                                           COMPASS     2902     A     
 COMPASS   SCAD220  SA2    TECOE                                                           COMPASS     2903     A     
 COMPASS            SA3    ELVAL                                                           COMPASS     2904     A     
 COMPASS            RJ     SCADMU      PERFORM X7 = X2*X3                                  COMPASS     2905     A     
 COMPASS   +        SA7    A2                                                              COMPASS     2906     A     
 COMPASS            EQ     SCAD24                                                          COMPASS     2907     A     
 COMPASS   SCADCON  SPACE  4                                                               COMPASS     2908     A     
 COMPASS  **        SCADCON - CALL SCAD AND RESTRICT RESULTS.                              COMPASS     2909     A     
 COMPASS  *         ENTRY  (X6) = 1 TO OUTLAW REGISTER.                                    COMPASS     2910     A     
 COMPASS  *                (X6) = 2 TO OUTLAW REGISTER + EXTERNAL.                         COMPASS     2911     A     
 COMPASS  *                (X6) = 3 TO OUTLAW REGISTER + EXTERNAL + RELOCATABLE.           COMPASS     2912     A     
 COMPASS  *                (X1) = FIELD WIDTH.                                             COMPASS     2913     A     
 COMPASS  *         EXIT   (X1) = 0 IF NO ERRORS.                                          COMPASS     2914     A     
 COMPASS                                                                                   COMPASS     2915     A     
 COMPASS                                                                                   COMPASS     2916     A     
 COMPASS   SCADCON  PS                 RETURN EXIT                                         COMPASS     2917     A     
 COMPASS            BX6    -X6                                                             COMPASS     2918     A     
 COMPASS            SA6    SCADCONT    SAVE ENTRY PARAMETER                                COMPASS     2919     A     
 COMPASS            RJ     SCAD                                                            COMPASS     2920     A     
 COMPASS            SA1    EXERR       CHECK FOR ERROR IN EXPRESSION                       COMPASS     2921     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 366    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    SCADCONT                                                        COMPASS     2922     A     
 COMPASS            SB7    X2                                                              COMPASS     2923     A     
 COMPASS            SX6    B1                                                              COMPASS     2924     A     
 COMPASS            MX7    0                                                               COMPASS     2925     A     
 COMPASS   SCADCON1 SB7    B7+B1                                                           COMPASS     2926     A     
 COMPASS            SA2    EXREG+B7                                                        COMPASS     2927     A     
 COMPASS            BX1    X2+X1                                                           COMPASS     2928     A     
 COMPASS            NZ     B7,SCADCON1                                                     COMPASS     2929     A     
 COMPASS            ZR     X1,SCADCON  IF NO ERRORS                                        COMPASS     2930     A     
 COMPASS            SA6    AERR        SET AERR                                            COMPASS     2931     A     
 COMPASS            SA6    EFLG                                                            COMPASS     2932     A     
 COMPASS            SA7    EXVAL       CLEAR OUT REPLY                                     COMPASS     2933     A     
 COMPASS            SA7    A7+B1       EXREL                                               COMPASS     2934     A     
 COMPASS            SA7    A7+B1       EXEXT                                               COMPASS     2935     A     
 COMPASS            SA7    A7+B1       EXREG                                               COMPASS     2936     A     
 COMPASS            EQ     SCADCON     RETURN                                              COMPASS     2937     A     
 COMPASS                                                                                   COMPASS     2938     A     
 COMPASS   SCADCONT DATA   0           TEMPORARY STORAGE                                   COMPASS     2939     A     
 COMPASS   SCADMU   SPACE  4                                                               COMPASS     2940     A     
 COMPASS  **        SCADMU - 60-BIT INTEGER MULTIPLY FOR ADDRESS SCAN.                     COMPASS     2941     A     
 COMPASS  *         ENTRY  (X2) = MULTIPLIER.                                              COMPASS     2942     A     
 COMPASS  *                (X3) = MULTIPLICAND.                                            COMPASS     2943     A     
 COMPASS  *         EXIT   (X7) = PRODUCT.                                                 COMPASS     2944     A     
 COMPASS                                                                                   COMPASS     2945     A     
 COMPASS                                                                                   COMPASS     2946     A     
 COMPASS   SCADMU   PS                 RETURN EXIT                                         COMPASS     2947     A     
 COMPASS            SB7    30                                                              COMPASS     2948     A     
 COMPASS            SB6    B7+B7       PRESET B6 = 60                                      COMPASS     2949     A     
 COMPASS            AX7    B6,X2       GET HIGH ORDER SIGN BIT                             COMPASS     2950     A     
 COMPASS            BX2    X7-X2       ABSOLUTE VALUE OF X2                                COMPASS     2951     A     
 COMPASS            AX6    X3,B6                                                           COMPASS     2952     A     
 COMPASS            BX3    X6-X3       ABSOLUTE VALUE OF X3                                COMPASS     2953     A     
 COMPASS            MX0    30                                                              COMPASS     2954     A     
 COMPASS            BX7    X6-X7       SIGN OF RESULT                                      COMPASS     2955     A     
 COMPASS            BX5    -X0*X3                                                          COMPASS     2956     A     
 COMPASS            AX3    30                                                              COMPASS     2957     A     
 COMPASS            BX6    -X0*X2                                                          COMPASS     2958     A     
 COMPASS            AX2    30                                                              COMPASS     2959     A     
 COMPASS            PX2    B7,X2       PACK AU WITH EXPONENT 30                            COMPASS     2960     A     
 COMPASS            PX5    X5          PACK BL WITH EXPONENT 00                            COMPASS     2961     A     
 COMPASS            DX2    X2*X5       1.  AU*BL,D   EXP = 30                              COMPASS     2962     A     
 COMPASS            PX4    X6          FORM AL                                             COMPASS     2963     A     
 COMPASS            DX6    X4*X5       2.  AL*BL,D   EXP = 0                               COMPASS     2964     A     
 COMPASS            PX3    X3,B7       FORM BU                                             COMPASS     2965     A     
 COMPASS            DX3    X3*X4       3.  AL*BU,D  EXP = 30                               COMPASS     2966     A     
 COMPASS            IX2    X2+X3       4.   1+ 3,I EXP = 30                                COMPASS     2967     A     
 COMPASS            FX4    X4*X5       5.  AL*BL,S  EXP = 48                               COMPASS     2968     A     
 COMPASS            BX5    -X0*X4      TRUNCATE AL*BL,S                                    COMPASS     2969     A     
 COMPASS            UX6    X6,B7       UNPACK 00 TERM                                      COMPASS     2970     A     
 COMPASS            LX2    30                                                              COMPASS     2971     A     
 COMPASS            LX5    48          ALIGN DECIMAL POINTS                                COMPASS     2972     A     
 COMPASS            IX2    X2+X5                                                           COMPASS     2973     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 367    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX3    X0*X2       DISCARD EXTRA BITS                                  COMPASS     2974     A     
 COMPASS            IX6    X3+X6       ADD HIGH AND LOW PARTS                              COMPASS     2975     A     
 COMPASS            BX5    X6-X7       SIGN RESULT                                         COMPASS     2976     A     
 COMPASS            IX7    X5-X7       CORRECT -0 TO +0                                    COMPASS     2977     A     
 COMPASS            EQ     SCADMU                                                          COMPASS     2978     A     
 COMPASS   SCADX    SPACE  4                                                               COMPASS     2979     A     
 COMPASS  **        SCADX - END OF EXPRESSION.                                             COMPASS     2980     A     
 COMPASS                                                                                   COMPASS     2981     A     
 COMPASS                                                                                   COMPASS     2982     A     
 COMPASS   SCADX1   RJ     GETCH       THROW AWAY COMMA                                    COMPASS     2983     A     
 COMPASS   SCADX    SA4    USECNT                                                          COMPASS     2984          I
          -CMP30  
 COMPASS   SCADX    SA3    UI+1                                                            CMP30       2029     A     
 COMPASS            SA4    UI+2                                                            CMP30       2030     A     
 COMPASS            SA5    EXERR                                                           CMP30       2031     A     
 COMPASS            SX6    B7          RECORD STOP CHARACTER                               COMPASS     2985     A     
 COMPASS            SB7    X4-1                                                            COMPASS     2986          I
          -CMP30  
 COMPASS            SB6    X3                                                              CMP30       2032     A     
 COMPASS            SB7    X4                                                              CMP30       2033     A     
 COMPASS            SA6    EXSTOP                                                          COMPASS     2987     A     
 COMPASS            SA5    EXERR       CHECK FOR EXPRESSION ERROR                          COMPASS     2988          I
          -CMP30  
 COMPASS            NZ     X5,SCAD56                                                       COMPASS     2989          I
          -CMP30  
 COMPASS   SCADX2   SA5    RELVEC+B7                                                       COMPASS     2990          I
          -CMP30  
 COMPASS            SB6    X5-1                                                            COMPASS     2991          I
          -CMP30  
 COMPASS            ZR     X5,SCAD60   IF NO COEFFICIENT FOR THIS RELOCATION               COMPASS     2992          I
          -CMP30  
 COMPASS            ZR     B6,SCAD53                                                       COMPASS     2993          I
          -CMP30  
 COMPASS            SB6    X5+B1                                                           COMPASS     2994          I
          -CMP30  
 COMPASS            NZ     B6,SCAD55                                                       COMPASS     2995          I
          -CMP30  
 COMPASS   SCAD53   SA2    EXEXT       VERIFY FIRST RELOCATABLE VALUE                      COMPASS     2996          I
          -CMP30  
 COMPASS            SA3    EXREL       AND NO EXTERNALS                                    COMPASS     2997          I
          -CMP30  
 COMPASS            IX2    X3+X2                                                           COMPASS     2998          I
          -CMP30  
 COMPASS            NZ     X2,SCAD55                                                       COMPASS     2999          I
          -CMP30  
 COMPASS            SX6    X5-1                                                            COMPASS     3000          I
          -CMP30  
 COMPASS            LX6    7           CALCULATE RELOCATION                                COMPASS     3001          I
          -CMP30  
 COMPASS            SX7    B7+B1                                                           COMPASS     3002          I
          -CMP30  
 COMPASS            IX6    X7-X6                                                           COMPASS     3003          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 368    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            NZ     X5,SCAD56   IF EXPRESSION ERROR                                 CMP30       2034     A     
 COMPASS            SA3    O.RVTAB     (X3) = FWA-1 RVTAB                                  CPS2672       29     A     
 COMPASS            SX3    X3-1                                                            CPS2672       30     A     
 COMPASS            SA2    EXEXT                                                           CMP30       2035     A     
 COMPASS   SCADX2   SA5    RELVEC-1+B6                                                     CMP30       2036          I
          -CPS2672
 COMPASS   SCADX2   SA5    X3+B6       NEXT RVTAB ENTRY                                    CPS2672       31     A     
 COMPASS            GT     B6,B7,SCAD53  IF END OF BLOCKS                                  CMP30       2037     A     
 COMPASS            SB6    B6+B1                                                           CMP30       2038     A     
 COMPASS            SB5    X5                                                              CMP30       2039     A     
 COMPASS            ZR     X5,SCADX2   IF NO COEFFICIENT FOR THIS RELOCATION               CMP30       2040     A     
 COMPASS            AX5    1                                                               CMP30       2041     A     
 COMPASS            SX6    B5-B1                                                           CMP30       2042     A     
 COMPASS            SX7    B6-B1                                                           CMP30       2043     A     
 COMPASS            LX6    7                                                               CMP30       2044     A     
 COMPASS            NZ     X5,SCAD55   IF NOT +1 OR -1, ERROR                              CMP30       2045     A     
 COMPASS            NZ     X2,SCAD55   IF ANY OTHER RELOCATION OR EXTERNAL, ERROR          CMP30       2046     A     
 COMPASS            IX6    X7-X6       CALCULATE RELOCATION                                CMP30       2047     A     
 COMPASS            BX2    X2+X6                                                           CMP30       2048     A     
 COMPASS            SA6    EXREL                                                           COMPASS     3004     A     
 COMPASS   SCAD60   SB7    B7-B1                                                           COMPASS     3005          I
          -CMP30  
 COMPASS            PL     B7,SCADX2                                                       COMPASS     3006          I
          -CMP30  
 COMPASS            SA5    EXVAL       PROPOGATE THE MINUS ZERO                            COMPASS     3007          I
          -CMP30  
 COMPASS            LE     B6,B7,SCADX2  LOOP                                              CMP30       2049     A     
 COMPASS   SCAD53   SA5    EXVAL       PROPAGATE MINUS ZERO                                CMP30       2050     A     
 COMPASS            SA2    KADFLAG                                                         COMPASS     3008     A     
 COMPASS            IX6    X5+X2                                                           COMPASS     3009     A     
 COMPASS            SA6    A5                                                              COMPASS     3010     A     
 COMPASS            SA2    PPTYPE                                                          F4820         63     A     
 COMPASS            PL     X2,SCAD61   IF ONES COMPLEMENT                                  F4820         64     A     
 COMPASS            SX2    X2+3                                                            CPSA197        6     A     
 COMPASS            ZR     X2,SCAD61   PPTYPE NOT -1 NOR -2                                CPSA197        7     A     
 COMPASS            PL     X6,SCAD61   IF RESULT POSITIVE                                  F4820         65     A     
 COMPASS            MX7    1                                                               F4820         66     A     
 COMPASS            SX2    B1                                                              F4820         67     A     
 COMPASS            BX6    -X7*X6                                                          F4820         68     A     
 COMPASS            IX6    X6+X2                                                           F4820         69     A     
 COMPASS            BX6    X6+X7                                                           F4820         70     A     
 COMPASS            SA6    A6                                                              F4820         71     A     
 COMPASS   SCAD61   BSS    0                                                               F4820         72     A     
 COMPASS            SA2    EXLGN       CHECK FOR FIELD OVERFLOW                            COMPASS     3011     A     
 COMPASS            SB7    X2                                                              COMPASS     3012     A     
 COMPASS            AX7    X6,B7                                                           COMPASS     3013     A     
 COMPASS            ZR     X7,SCAD                                                         COMPASS     3014     A     
 COMPASS            SX7    B1          *** ADDRESS FIELD OVERFLOW                          COMPASS     3015     A     
 COMPASS            SA7    EFLG                                                            COMPASS     3016     A     
 COMPASS            SA7    W7ERR                                                           COMPASS     3017     A     
 COMPASS            EQ     SCAD                                                            COMPASS     3018     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 369    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SCAD55   SX6    B1                                                              COMPASS     3019     A     
 COMPASS            SA6    AERR                                                            COMPASS     3020     A     
 COMPASS            SA6    EFLG                                                            COMPASS     3021     A     
 COMPASS            SA6    EXERR                                                           COMPASS     3022     A     
 COMPASS   SCAD56   SX7    B0                                                              COMPASS     3023     A     
 COMPASS            SX6    B0                                                              COMPASS     3024     A     
 COMPASS            SA7    EXVAL                                                           COMPASS     3025     A     
 COMPASS            SA6    A7+B1       EXREL                                               COMPASS     3026     A     
 COMPASS            EQ     SCAD                                                            COMPASS     3027     A     
 COMPASS   SCAD800  SX6    X1-45B                                                          COMPASS     3028     A     
 COMPASS            SA6    ELOP                                                            COMPASS     3029     A     
 COMPASS            RJ     GETCH                                                           COMPASS     3030     A     
 COMPASS            EQ     SCAD3                                                           COMPASS     3031     A     
 COMPASS   SCAD900  SX6    X1-43B                                                          COMPASS     3032     A     
 COMPASS            SA6    TEOP                                                            COMPASS     3033     A     
 COMPASS            RJ     GETCH                                                           COMPASS     3034     A     
 COMPASS            BX1    X6                                                              COMPASS     3035     A     
 COMPASS            EQ     SCAD2                                                           COMPASS     3036     A     
 COMPASS   SCAD901  SX6    5                                                               COMPASS     3037     A     
 COMPASS            SA6    TEOP                                                            COMPASS     3038     A     
 COMPASS            RJ     GETCH                                                           COMPASS     3039     A     
 COMPASS            SX1    X6                                                              COMPASS     3040     A     
 COMPASS            EQ     SCAD2                                                           COMPASS     3041     A     
 COMPASS   SMC      SPACE  4                                                               COMPASS     3042     A     
 COMPASS  **        SMC - SCAN MIXED BASE CONSTANT.                                        COMPASS     3043     A     
 COMPASS  *         ENTRY  (X6) = 1 TO OUTLAW REGISTER.                                    COMPASS     3044     A     
 COMPASS  *                (X6) = 2 TO OUTLAW REGISTER + EXTERNAL.                         COMPASS     3045     A     
 COMPASS  *                (X6) = 3 TO OUTLAW REGISTER + EXTERNAL + RELOCATABLE.           COMPASS     3046     A     
 COMPASS  *                (X1) = FIELD WIDTH.                                             COMPASS     3047     A     
 COMPASS  *         EXIT   (X1) = 0 IF NO ERRORS.                                          COMPASS     3048     A     
 COMPASS                                                                                   COMPASS     3049     A     
 COMPASS                                                                                   COMPASS     3050     A     
 COMPASS   SMC      PS                 RETURN EXIT                                         COMPASS     3051     A     
 COMPASS            SA2    NBASE       SAVE NUMBER BASE                                    COMPASS     3052     A     
 COMPASS            SA3    MBASE       SET NUMBER BASE                                     COMPASS     3053     A     
 COMPASS            BX7    X2                                                              COMPASS     3054     A     
 COMPASS            SA7    SMCA                                                            COMPASS     3055     A     
 COMPASS            BX7    X3                                                              COMPASS     3056     A     
 COMPASS            SA7    A2                                                              COMPASS     3057     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     3058     A     
 COMPASS            SA2    SMCA        RESTORE NUMBER BASE                                 COMPASS     3059     A     
 COMPASS            BX6    X2                                                              COMPASS     3060     A     
 COMPASS            SA6    NBASE                                                           COMPASS     3061     A     
 COMPASS            EQ     SMC         RETURN                                              COMPASS     3062     A     
 COMPASS                                                                                   COMPASS     3063     A     
 COMPASS   SMCA     DATA   0           NUMBER BASE                                         COMPASS     3064     A     
 COMPASS   SCD      TITLE  SCAN DATA ITEM.                                                 COMPASS     3065     A     
 COMPASS  **        SCD - SCAN DATA ITEM.                                                  COMPASS     3066     A     
 COMPASS  *         SETS AERR AND EXERR IF BAD DATA OCCURS.                                COMPASS     3067     A     
 COMPASS  *         ENTRY  (X2) = ORIGIN OF DATA.                                          COMPASS     3068     A     
 COMPASS  *                (X3) = LIMITING WORD COUNT FOR DATA.                            COMPASS     3069     A     
 COMPASS  *                (X4) = ADDRESS FIELD FLAG. (1 ADDRESS, 0 DATA, -1 LIT)          COMPASS     3070     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 370    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (X5) = FIELD WIDTH FOR CHARACTER DATA IN ADDRESS FIELD.         COMPASS     3071     A     
 COMPASS  *         EXIT   (X3) = WORD COUNT OF DATA STORED.                               COMPASS     3072     A     
 COMPASS                                                                                   COMPASS     3073     A     
 COMPASS                                                                                   COMPASS     3074     A     
 COMPASS            QUAL   DATA                                                            COMPASS     3075     A     
 COMPASS                                                                                   COMPASS     3076     A     
 COMPASS   SCDA     BSS    0                                                               COMPASS     3077     A     
 COMPASS                                                                                   COMPASS     3078     A     
 COMPASS   RD       DATA   0           RADIX OF VALUE                                      COMPASS     3079     A     
 COMPASS   SI       DATA   0           SIGN OF VALUE                                       COMPASS     3080     A     
 COMPASS   DV       DATA   0,0         DECIMAL VALUE                                       COMPASS     3081     A     
 COMPASS   OV       DATA   0,0         OCTAL VALUE                                         COMPASS     3082     A     
 COMPASS   RN       DATA   0           REAL NUMBER FLAG                                    COMPASS     3083     A     
 COMPASS   FC       DATA   0           COUNT OF FRACTIONAL DIGITS                          COMPASS     3084     A     
 COMPASS                                                                                   COMPASS     3085     A     
 COMPASS   EF       DATA   0           -E- SCALE FLAG (1 = SINGLE, 2 = DOUBLE)             COMPASS     3086     A     
 COMPASS   ES       DATA   0           SIGN OF -E- SCALE FACTOR                            COMPASS     3087     A     
 COMPASS   EV       DATA   0           VALUE OF -E- SCALE FACTOR                           COMPASS     3088     A     
 COMPASS                                                                                   COMPASS     3089     A     
 COMPASS   SF       DATA   0           -S- SCALE FLAG                                      COMPASS     3090     A     
 COMPASS   SS       DATA   0           SIGN OF -S- SCALE FACTOR                            COMPASS     3091     A     
 COMPASS   SV       DATA   0           VALUE OF -S- SCALE FACTOR                           COMPASS     3092     A     
 COMPASS                                                                                   COMPASS     3093     A     
 COMPASS   PF       DATA   0           -P- SCALE FLAG                                      COMPASS     3094     A     
 COMPASS   PS       DATA   0           SIGN OF -P- SCALE FACTOR                            COMPASS     3095     A     
 COMPASS   PV       DATA   0           VALUE OF -P- SCALE FACTOR                           COMPASS     3096     A     
 COMPASS                                                                                   COMPASS     3097     A     
 COMPASS   OC       DATA   0           OCTAL FLAG FOR 8 OR 9 DETECTED                      COMPASS     3098     A     
 COMPASS                                                                                   COMPASS     3099     A     
 COMPASS   SCDAL    EQU    *-SCDA-1                                                        COMPASS     3100     A     
 COMPASS                                                                                   COMPASS     3101     A     
 COMPASS   DO       DATA   0           DATA ORIGIN ADDRESS                                 COMPASS     3102     A     
 COMPASS   DL       DATA   0           WORD COUNT OF DATA FIELD                            COMPASS     3103     A     
 COMPASS   AF       DATA   0           ADDRESS FIELD FLAG (-1 LIT, 0 DATA, 1 ADD)          COMPASS     3104     A     
 COMPASS   FW       DATA   0           FIELD WIDTH FOR CHARACTER DATA IN ADDRESS           COMPASS     3105     A     
 COMPASS                                                                                   COMPASS     3106     A     
 COMPASS                                                                                   COMPASS     3107     A     
 COMPASS   SCD      PS     0           ENTRY/EXIT                                          COMPASS     3108     A     
 COMPASS            BX6    X2          STORE CALLING SEQUENCE PARAMETERS                   COMPASS     3109     A     
 COMPASS            LX7    X3                                                              COMPASS     3110     A     
 COMPASS            SA6    DO                                                              COMPASS     3111     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     3112     A     
 COMPASS            BX6    X4                                                              COMPASS     3113     A     
 COMPASS            LX7    X5                                                              COMPASS     3114     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     3115     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     3116     A     
 COMPASS            SB4    SCDAL       CLEAR LOCAL VARIABLES                               COMPASS     3117     A     
 COMPASS            MX6    0                                                               COMPASS     3118     A     
 COMPASS            SX5    B1                                                              COMPASS     3119     A     
 COMPASS            SA6    SCDA                                                            COMPASS     3120     A     
 COMPASS            SA1    CHAR        FIRST CHARACTER                                     COMPASS     3121     A     
 COMPASS   SCD1     SB4    B4-B1                                                           COMPASS     3122     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 371    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A6+B1                                                           COMPASS     3123     A     
 COMPASS            NZ     B4,SCD1                                                         COMPASS     3124     A     
 COMPASS                                                                                   COMPASS     3125     A     
 COMPASS  **        CHECK FIRST CHARACTER FOR SIGN OF DATA.                                COMPASS     3126     A     
 COMPASS                                                                                   COMPASS     3127     A     
 COMPASS            SB7    X1-1R+      CHECK CHARACTER                                     COMPASS     3128     A     
 COMPASS            ZR     B7,SCD2     IF *+*                                              COMPASS     3129     A     
 COMPASS            NE     B7,B1,SCD3  IF NOT *-*                                          COMPASS     3130     A     
 COMPASS            MX6    60          SET SIGN NEGATIVE                                   COMPASS     3131     A     
 COMPASS            SA6    SI                                                              COMPASS     3132     A     
 COMPASS   SCD2     RJ     GETCH       SKIP SIGN                                           COMPASS     3133     A     
 COMPASS                                                                                   COMPASS     3134     A     
 COMPASS  **        CHECK FIRST CHARACTER TO DETERMINE DATA TYPE.                          COMPASS     3135     A     
 COMPASS                                                                                   COMPASS     3136     A     
 COMPASS   SCD3     SA2    =401110436B MASK FOR \ABCDHLORZ@                                COMPASS     3137          I
          -CMP136 
 COMPASS   SCD3     SA2    =10000000401110436B     MASK FOR  #ZROLHDCBA                    CMP136         1     A     
 COMPASS            SB7    X1                                                              COMPASS     3138     A     
 COMPASS            AX2    X2,B7                                                           COMPASS     3139     A     
 COMPASS            LX2    59                                                              COMPASS     3140     A     
 COMPASS            CX0    X2                                                              COMPASS     3141     A     
 COMPASS            PL     X2,NDS      IF NOT ONE OF THE ABOVE CHARACTERS                  COMPASS     3142     A     
 COMPASS            SB7    X0                                                              COMPASS     3143     A     
 COMPASS            JP     B7+SCDB-1   JUMP TO LETTER PROCESSOR                            COMPASS     3144     A     
 COMPASS   ERR      SPACE  4                                                               COMPASS     3145     A     
 COMPASS  **        ERR - PROCESS DATA ERROR AND EXIT.                                     COMPASS     3146     A     
 COMPASS                                                                                   COMPASS     3147     A     
 COMPASS                                                                                   COMPASS     3148     A     
 COMPASS   ERR      SX6    B1          NOTE ERROR IN DATA                                  COMPASS     3149     A     
 COMPASS            SA6    EXERR                                                           COMPASS     3150     A     
 COMPASS            SX3    B1          LENGTH = 1                                          COMPASS     3151     A     
 COMPASS            SA6    EFLG                                                            COMPASS     3152     A     
 COMPASS            SA6    AERR                                                            COMPASS     3153     A     
 COMPASS            SA2    DO                                                              COMPASS     3154     A     
 COMPASS            SX6    B0          VALUE = 0                                           COMPASS     3155     A     
 COMPASS            SA6    X2                                                              COMPASS     3156     A     
 COMPASS   SCDX     SPACE  4                                                               COMPASS     3157     A     
 COMPASS  **        SCDX - PROCESS TERMINATOR AND EXIT.                                    COMPASS     3158     A     
 COMPASS                                                                                   COMPASS     3159     A     
 COMPASS                                                                                   COMPASS     3160     A     
 COMPASS   SCDX     SA4    =36060020B  MASK FOR \+-*/ ,&@                                  COMPASS     3161     A     
 COMPASS            SA2    AF                                                              COMPASS     3162     A     
 COMPASS            NZ     X2,SCDX1    IF ADDRESS FIELD                                    COMPASS     3163     A     
 COMPASS            SA4    =6BS12      MASK FOR \ ,@                                       COMPASS     3164     A     
 COMPASS   SCDX1    SB7    X1                                                              COMPASS     3165     A     
 COMPASS            LX6    X4,B7                                                           COMPASS     3166     A     
 COMPASS            NG     X6,SCD      RETURN IF ONE OF THE ABOVE                          COMPASS     3167     A     
 COMPASS            RJ     GETCH       SKIP CHARACTER                                      COMPASS     3168     A     
 COMPASS            EQ     ERR         PROCESS ERROR                                       COMPASS     3169     A     
 COMPASS   SCDB     SPACE  4                                                               COMPASS     3170     A     
 COMPASS  **        SCDB - JUMP TABLE FOR LEADING CHARACTER PROCESSORS.                    COMPASS     3171     A     
 COMPASS  *         INDEXED BY BIT COUNT OF CHARACTER MASK.                                COMPASS     3172     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 372    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     3173     A     
 COMPASS                                                                                   COMPASS     3174     A     
 COMPASS                                                                                   COMPASS     3175     A     
 COMPASS   SCDB     BSS    0                                                               COMPASS     3176     A     
 COMPASS                                                                                   CMP136         2     A     
 COMPASS   +        EQ     HDS         # - HEXADECIMAL DATA                                CMP136         3     A     
 COMPASS                                                                                   COMPASS     3177     A     
 COMPASS   +        SB6    CSZ         Z - DELIMITED CHARACTER DATA                        COMPASS     3178     A     
 COMPASS            EQ     DCS                                                             COMPASS     3179     A     
 COMPASS                                                                                   COMPASS     3180     A     
 COMPASS   +        SB6    CSR         R - DELIMITED CHARACTER DATA                        COMPASS     3181     A     
 COMPASS            EQ     DCS                                                             COMPASS     3182     A     
 COMPASS                                                                                   COMPASS     3183     A     
 COMPASS   +        SX6    8           O - LEADING OCTAL RADIX                             COMPASS     3184     A     
 COMPASS            EQ     LRS                                                             COMPASS     3185     A     
 COMPASS                                                                                   COMPASS     3186     A     
 COMPASS   +        SB6    CSL         L - DELIMITED CHARACTER DATA                        COMPASS     3187     A     
 COMPASS            EQ     DCS                                                             COMPASS     3188     A     
 COMPASS                                                                                   COMPASS     3189     A     
 COMPASS   +        SB6    CSH         H - DELIMITED CHARACTER DATA                        COMPASS     3190     A     
 COMPASS            EQ     DCS                                                             COMPASS     3191     A     
 COMPASS                                                                                   COMPASS     3192     A     
 COMPASS   +        SX6    10          D - LEADING DECIMAL RADIX                           COMPASS     3193     A     
 COMPASS            EQ     LRS                                                             COMPASS     3194     A     
 COMPASS                                                                                   COMPASS     3195     A     
 COMPASS   +        SB6    CSC         C - DELIMITED CHARACTER DATA                        COMPASS     3196     A     
 COMPASS            EQ     DCS                                                             COMPASS     3197     A     
 COMPASS                                                                                   COMPASS     3198     A     
 COMPASS   +        SX6    8           B - LEADING OCTAL RADIX                             COMPASS     3199     A     
 COMPASS            EQ     LRS                                                             COMPASS     3200     A     
 COMPASS                                                                                   COMPASS     3201     A     
 COMPASS   +        SB6    CSA         A - DELIMITED CHARACTER DATA                        COMPASS     3202     A     
 COMPASS            EQ     DCS                                                             COMPASS     3203     A     
 COMPASS   NUMERIC  EJECT                                                                  COMPASS     3204     A     
 COMPASS  ***       NUMERIC DATA.                                                          COMPASS     3205     A     
 COMPASS  *                                                                                COMPASS     3206     A     
 COMPASS  *                                                                                COMPASS     3207     A     
 COMPASS  *         SRN.NR(MN)                                                             COMPASS     3208     A     
 COMPASS  *         *S* = SIGN (ASSUMED +)                                                 COMPASS     3209     A     
 COMPASS  *         *R* = RADIX (ASSUMED ACCORDING TO *BASE* PSEUDO)                       COMPASS     3210     A     
 COMPASS  *         *N.N* = NUMERIC DATA                                                   COMPASS     3211     A     
 COMPASS  *         *MN* = MODIFIER                                                        COMPASS     3212     A     
 COMPASS  *                                                                                COMPASS     3213     A     
 COMPASS  *         ONE RADIX IS ALLOWED FOR EACH DATA ITEM.                               COMPASS     3214     A     
 COMPASS  *         D = DECIMAL.                                                           COMPASS     3215     A     
 COMPASS  *         O = OCTAL.                                                             COMPASS     3216     A     
 COMPASS  *         B = OCTAL.                                                             COMPASS     3217     A     
 COMPASS  *                                                                                COMPASS     3218     A     
 COMPASS  *         IF *.N* IS OMITTED, THE VALUE IS INTEGER. (ONLY INTEGER                COMPASS     3219     A     
 COMPASS  *         VALUES ARE ALLOWED IN PERIPHERAL ASSEMBLIES)                           COMPASS     3220     A     
 COMPASS  *         THE MAXIMUM VALUE IS 32 SIGNIFICANT OCTAL DIGITS OR                    COMPASS     3221     A     
 COMPASS  *         7.9*(10**28).                                                          COMPASS     3222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 373    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         *8* OR *9* ARE ILLEGAL IF OCTAL RADIX IS SPECIFIED.                    COMPASS     3223     A     
 COMPASS  *                                                                                COMPASS     3224     A     
 COMPASS  *         MODIFIERS MAY APPEAR IN ANY ORDER.                                     COMPASS     3225     A     
 COMPASS  *                                                                                COMPASS     3226     A     
 COMPASS  *         ESN                                                                    COMPASS     3227     A     
 COMPASS  *         *S* = SIGN.                                                            COMPASS     3228     A     
 COMPASS  *         *N* = SCALE VALUE.                                                     COMPASS     3229     A     
 COMPASS  *         SINGLE PRECISION DECIMAL SCALE, MAXIMUM VALUE = 32767.                 COMPASS     3230     A     
 COMPASS  *                                                                                COMPASS     3231     A     
 COMPASS  *         EESN                                                                   COMPASS     3232     A     
 COMPASS  *         *S* = SIGN.                                                            COMPASS     3233     A     
 COMPASS  *         *N* = SCALE VALUE.                                                     COMPASS     3234     A     
 COMPASS  *         DOUBLE PRECISION DECIMAL SCALE, MAXIMUM VALUE = 32767.                 COMPASS     3235     A     
 COMPASS  *                                                                                COMPASS     3236     A     
 COMPASS  *         PSN                                                                    COMPASS     3237     A     
 COMPASS  *         *S* = SIGN.                                                            COMPASS     3238     A     
 COMPASS  *         *N* = SCALE VALUE.                                                     COMPASS     3239     A     
 COMPASS  *         BINARY POINT POSITION FOR FLOATING POINT NUMBERS.                      COMPASS     3240     A     
 COMPASS  *         THE BINARY POINT WILL BE PLACED TO THE RIGHT OF *N*TH BIT,             COMPASS     3241     A     
 COMPASS  *         AND THE EXPONENT WILL BE ADJUSTED TO A VALUE OF (EXP-*P*).             COMPASS     3242     A     
 COMPASS  *                                                                                COMPASS     3243     A     
 COMPASS  *         SSN                                                                    COMPASS     3244     A     
 COMPASS  *         *S* = SIGN.                                                            COMPASS     3245     A     
 COMPASS  *         *N* = SCALE VALUE.                                                     COMPASS     3246     A     
 COMPASS  *         BINARY SCALE, MAXIMUM VALUE = 32767.                                   COMPASS     3247     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3248     A     
 COMPASS  **        TRS - TRAILING RADIX SPECIFICATION.                                    COMPASS     3249     A     
 COMPASS  *         ENTRY  (X6) = RADIX.                                                   COMPASS     3250     A     
 COMPASS  *         EXIT   TO *NDS4*.                                                      COMPASS     3251     A     
 COMPASS                                                                                   COMPASS     3252     A     
 COMPASS                                                                                   COMPASS     3253     A     
 COMPASS   TRS      SA2    RD          CHECK RADIX SPECIFICATION                           COMPASS     3254     A     
 COMPASS            NO                                                                     COMPASS     3255     A     
 COMPASS            SA6    A2                                                              COMPASS     3256     A     
 COMPASS            ZR     X2,NDS4     IF NO PREVIOUS RADIX                                COMPASS     3257     A     
 COMPASS            EQ     ERR                                                             COMPASS     3258     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3259     A     
 COMPASS  **        LRS - PROCESS LEADING RADIX SPECIFICATION.                             COMPASS     3260     A     
 COMPASS  *         ENTRY  (X6) = RADIX.                                                   COMPASS     3261     A     
 COMPASS  *         EXIT   TO *NDS*.                                                       COMPASS     3262     A     
 COMPASS                                                                                   COMPASS     3263     A     
 COMPASS                                                                                   COMPASS     3264     A     
 COMPASS   LRS      SA6    RD                                                              COMPASS     3265     A     
 COMPASS            RJ     GETCH       SKIP CHARACTER                                      COMPASS     3266     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3267     A     
 COMPASS  **        NDS - NUMERIC DATA SCAN.                                               COMPASS     3268     A     
 COMPASS  *         CONVERT UP TO 32 DIGITS, DECIMAL AND OCTAL.                            COMPASS     3269     A     
 COMPASS  *         SET REAL NUMBER FLAG IF *.* ENCOUNTERED.                               COMPASS     3270     A     
 COMPASS  *         SET OCTAL FLAG IF *8* OR *9* ENCOUNTERED.                              COMPASS     3271     A     
 COMPASS  *         SET FRACTION DIGIT COUNT.                                              COMPASS     3272     A     
 COMPASS                                                                                   COMPASS     3273     A     
 COMPASS                                                                                   COMPASS     3274     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 374    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   NDS      MX0    -55         MASK FOR DIGIT OVERFLOW                             COMPASS     3275     A     
 COMPASS            SX7    B0          H10 = 0                                             COMPASS     3276     A     
 COMPASS            SA2    COLUMN      INITIALIZE CARD POINTERS                            COMPASS     3277     A     
 COMPASS            SA1    X2+CARD-2                                                       COMPASS     3278     A     
 COMPASS            SA0    7                                                               COMPASS     3279     A     
 COMPASS            SA2    =7774BS21   MASK FOR \0123456789@                               COMPASS     3280     A     
 COMPASS            MX3    0           L10 = 0                                             COMPASS     3281     A     
 COMPASS            BX4    X7          H8 = 0                                              COMPASS     3282     A     
 COMPASS            IX5    X7+X7       L8 = 0                                              COMPASS     3283     A     
 COMPASS            SB2    B0                                                              COMPASS     3284     A     
 COMPASS            SB3    B0                                                              COMPASS     3285     A     
 COMPASS            SB4    B0                                                              COMPASS     3286     A     
 COMPASS            SB5    B1+B1                                                           COMPASS     3287     A     
 COMPASS            SB6    55                                                              COMPASS     3288     A     
 COMPASS            EQ     NDS2        ENTER LOOP                                          COMPASS     3289     A     
 COMPASS                                                                                   COMPASS     3290     A     
 COMPASS  *         (X7) = H10, (X3) = L10.                                                COMPASS     3291     A     
 COMPASS  *         (X4) = H8, (X5) = L8.                                                  COMPASS     3292     A     
 COMPASS  *         (B4) = *8* OR *9* ENCOUNTERED.                                         COMPASS     3293     A     
 COMPASS  *         (B3) = FRACTION DIGIT COUNT.                                           COMPASS     3294     A     
 COMPASS  *         (B2) = *.* ENCOUNTERED.                                                COMPASS     3295     A     
 COMPASS                                                                                   COMPASS     3296     A     
 COMPASS   NDS1     LX6    B5,X7       3.  8*H10                                           COMPASS     3297     A     
 COMPASS            IX7    X6+X7       H10 = (2)+(3)                                       COMPASS     3298     A     
 COMPASS            SB3    B2+B3       COUNT FRACTIONAL DIGITS                             COMPASS     3299     A     
 COMPASS            BX2    -X2*X1      EXTRACT 8/9 BIT                                     COMPASS     3300     A     
 COMPASS            LX6    X3,B5       4.  8*L10                                           COMPASS     3301     A     
 COMPASS            SB4    X2+B4       8/9 PRESENCE                                        COMPASS     3302     A     
 COMPASS            IX3    X1+X3       5.  (1)+DIGIT                                       COMPASS     3303     A     
 COMPASS            SA2    A2          REFETCH DIGITS MASK                                 COMPASS     3304     A     
 COMPASS            LX5    3           6.  8*L8                                            COMPASS     3305     A     
 COMPASS            IX3    X6+X3       L10 = (4)+(5)                                       COMPASS     3306     A     
 COMPASS            LX4    3           H8 = 8*H8                                           COMPASS     3307     A     
 COMPASS            IX5    X1+X5       L8 = (6)+DIGIT                                      COMPASS     3308     A     
 COMPASS                                                                                   COMPASS     3309     A     
 COMPASS   NDS2     SA1    A1+B1       NEXT CHARACTER                                      COMPASS     3310     A     
 COMPASS            AX6    X3,B6       OVERFLOW FROM L10                                   COMPASS     3311     A     
 COMPASS            SB7    X1                                                              COMPASS     3312     A     
 COMPASS            IX7    X6+X7       H10 = H10+CARRY                                     COMPASS     3313     A     
 COMPASS            BX3    -X0*X3      CLEAR OVERFLOW FROM L10                             COMPASS     3314     A     
 COMPASS            AX6    X5,B6       OVERFLOW FROM L8                                    COMPASS     3315     A     
 COMPASS            IX4    X6+X4       H8 = H8+CARRY                                       COMPASS     3316     A     
 COMPASS            BX5    -X0*X5      CLEAR OVERFLOW FROM L8                              COMPASS     3317     A     
 COMPASS            LX6    X2,B7       CHECK CHARACTER                                     COMPASS     3318     A     
 COMPASS            SX1    X1-1R0      CONVERT CHARACTER TO DIGIT                          COMPASS     3319     A     
 COMPASS            IX3    X3+X3       1.  2*L10                                           COMPASS     3320     A     
 COMPASS            SX2    A0          RESET 7 IN X2                                       COMPASS     3321     A     
 COMPASS            LX7    1           2.  2*H10                                           COMPASS     3322     A     
 COMPASS            NG     X6,NDS1     LOOP IF CHARACTER = DIGIT                           COMPASS     3323     A     
 COMPASS                                                                                   COMPASS     3324     A     
 COMPASS            SB7    B7-1R.      CHECK CHARACTER                                     COMPASS     3325     A     
 COMPASS            NZ     B7,NDS3     IF NOT *.*                                          COMPASS     3326     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 375    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A1+B1       NEXT CHARACTER                                      COMPASS     3327     A     
 COMPASS            SA2    A2          SET UP FOR LOOP RE-ENTRY                            COMPASS     3328     A     
 COMPASS            NZ     B2,ERR      IF NOT FIRST *.*                                    CPS056         1          I
          -CPS2658
 COMPASS            SB2    B1          SET REAL NUMBER FLAG                                CPS056         2          I
          -CPS2658
 COMPASS            ZR     B2,NDS2A    IF FIRST *.*                                        CPS2658        7     A     
 COMPASS            SX6    A1-CARD+1   ERROR, BUT FIRST SET CARD POINTERS                  CPS2658        8     A     
 COMPASS            SA6    COLUMN                                                          CPS2658        9     A     
 COMPASS            BX7    X1                                                              CPS2658       10     A     
 COMPASS            SA7    CHAR                                                            CPS2658       11     A     
 COMPASS            EQ     ERR                                                             CPS2658       12     A     
 COMPASS                                                                                   CPS2658       13     A     
 COMPASS   NDS2A    SB2    B1          SET REAL NUMBER FLAG                                CPS2658       14     A     
 COMPASS            SB7    X1                                                              COMPASS     3329     A     
 COMPASS            LX6    X2,B7                                                           COMPASS     3330     A     
 COMPASS            SX2    A0                                                              COMPASS     3331     A     
 COMPASS            SX1    X1-1R0                                                          COMPASS     3332     A     
 COMPASS            SB2    B2+B1       SET REAL NUMBER                                     COMPASS     3333          I
          -CPS056 
 COMPASS            NG     X6,NDS1     IF DIGIT                                            COMPASS     3334     A     
 COMPASS                                                                                   COMPASS     3335     A     
 COMPASS   NDS3     SX1    X1+1R0      RESET NEXT CHARACTER                                COMPASS     3336     A     
 COMPASS            AX7    1           H10 = (2)/2                                         COMPASS     3337     A     
 COMPASS            AX6    X3,B1       L10 = (1)/2                                         COMPASS     3338     A     
 COMPASS            SA7    DV          SET DECIMAL VALUE                                   COMPASS     3339     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     3340     A     
 COMPASS            BX7    X4          SET OCTAL VALUE                                     COMPASS     3341     A     
 COMPASS            LX6    X5                                                              COMPASS     3342     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     3343     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     3344     A     
 COMPASS            SX7    B2          SET REAL NUMBER FLAG                                COMPASS     3345     A     
 COMPASS            SX6    B3          SET FRACTIONAL DIGIT COUNT                          COMPASS     3346     A     
 COMPASS            SA7    RN                                                              COMPASS     3347     A     
 COMPASS            SA6    FC                                                              COMPASS     3348     A     
 COMPASS            SX7    B4          SET OCTAL FLAG                                      COMPASS     3349     A     
 COMPASS            SX6    A1-CARD+1   CORRECT CARD POINTERS                               COMPASS     3350     A     
 COMPASS            SA7    OC                                                              COMPASS     3351     A     
 COMPASS            SA6    COLUMN                                                          COMPASS     3352     A     
 COMPASS            BX7    X1          SET NEXT CHARACTER                                  COMPASS     3353     A     
 COMPASS            SA7    CHAR                                                            COMPASS     3354     A     
 COMPASS            NZ     B2,NDS5     IF REAL NUMBER                                      COMPASS     3355     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3356     A     
 COMPASS  **        CHECK CHARACTER FOLLOWING NUMERIC DATA TO DETERMINE                    COMPASS     3357     A     
 COMPASS  *         IF DATA IS NUMERIC COUNT CHARACTER STRING.                             COMPASS     3358     A     
 COMPASS                                                                                   COMPASS     3359     A     
 COMPASS                                                                                   COMPASS     3360     A     
 COMPASS            SA2    =401010412B MASK FOR \ZRLHCA@                                   COMPASS     3361          I
          -CMP136 
 COMPASS            SA2    =10000000401010412B     MASK FOR  #ZRLHCA                       CMP136         4     A     
 COMPASS            SB7    X1                                                              COMPASS     3362     A     
 COMPASS            AX2    X2,B7                                                           COMPASS     3363     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 376    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CX0    X2                                                              COMPASS     3364     A     
 COMPASS            LX2    59                                                              COMPASS     3365     A     
 COMPASS            PL     X2,NDS5     IF NOT ONE OF THE ABOVE CHARACTERS                  COMPASS     3366     A     
 COMPASS            SB7    X0          JUMP TO CHARACTER CONSTANT PROCESSOR                COMPASS     3367     A     
 COMPASS            JP     B7+NDSA-1                                                       COMPASS     3368     A     
 COMPASS                                                                                   COMPASS     3369     A     
 COMPASS   NDSA     BSS    0                                                               COMPASS     3370     A     
 COMPASS                                                                                   CMP136         5     A     
 COMPASS   +        EQ     HCD         # - HEXADECIMAL CHARACTER DATA                      CMP136         6     A     
 COMPASS                                                                                   COMPASS     3371     A     
 COMPASS   +        SB6    CSZ         Z - NUMERIC CHARACTER DATA                          COMPASS     3372     A     
 COMPASS            EQ     NCS                                                             COMPASS     3373     A     
 COMPASS                                                                                   COMPASS     3374     A     
 COMPASS   +        SB6    CSR         R - NUMERIC CHARACTER DATA                          COMPASS     3375     A     
 COMPASS            EQ     NCS                                                             COMPASS     3376     A     
 COMPASS                                                                                   COMPASS     3377     A     
 COMPASS   +        SB6    CSL         L - NUMERIC CHARACTER DATA                          COMPASS     3378     A     
 COMPASS            EQ     NCS                                                             COMPASS     3379     A     
 COMPASS                                                                                   COMPASS     3380     A     
 COMPASS   +        SB6    CSH         H - NUMERIC CHARACTER DATA                          COMPASS     3381     A     
 COMPASS            EQ     NCS                                                             COMPASS     3382     A     
 COMPASS                                                                                   COMPASS     3383     A     
 COMPASS   +        SB6    CSC         C - NUMERIC CHARACTER DATA                          COMPASS     3384     A     
 COMPASS            EQ     NCS                                                             COMPASS     3385     A     
 COMPASS                                                                                   COMPASS     3386     A     
 COMPASS   +        SB6    CSA         A - NUMERIC CHARACTER DATA                          COMPASS     3387     A     
 COMPASS            EQ     NCS                                                             COMPASS     3388     A     
 COMPASS   HCD      SPACE  4,8                                                             CMP136         7     A     
 COMPASS  **        HCD - HEXADECIMAL CHARACTER DATA.                                      CMP136         8     A     
 COMPASS                                                                                   CMP136         9     A     
 COMPASS                                                                                   CMP136        10     A     
 COMPASS   HCD      SA3    DV          CHECK VALUE OF COUNT                                CMP136        11     A     
 COMPASS            SA2    A3+B1                                                           CMP136        12     A     
 COMPASS            SA1    RD                                                              CMP136        13     A     
 COMPASS            BX2    X2+X3                                                           CMP136        14     A     
 COMPASS            BX2    X2+X1                                                           CMP136        15     A     
 COMPASS            NZ     X2,ERR      ERROR IF VALUE NOT ZERO OR RADIX DEFINED            CMP136        16     A     
 COMPASS            MI     X2,ERR                                                          CMP136        17     A     
 COMPASS  *         EQ     HDS                                                             CMP136        18     A     
 COMPASS   HDS      SPACE  4,8                                                             CMP136        19     A     
 COMPASS  **        HDS - HEXADECIMAL DATA SCAN.                                           CMP136        20     A     
 COMPASS  *         CONVERT UP TO 26 HEX DIGITS.                                           CMP136        21     A     
 COMPASS                                                                                   CMP136        22     A     
 COMPASS                                                                                   CMP136        23     A     
 COMPASS   HDS      SA2    COLUMN      INITIALIZE CARD POINTERS                            CMP136        24     A     
 COMPASS            MX0    -55         MASK FOR DIGIT OVERFLOW                             CMP136        25     A     
 COMPASS            SX7    B0          H16 = 0                                             CMP136        26     A     
 COMPASS            SA1    X2+CARD-1                                                       CMP136        27     A     
 COMPASS            MX3    0           L16 = 0                                             CMP136        28     A     
 COMPASS            SB6    55                                                              CMP136        29     A     
 COMPASS            MX4    4                                                               CMP136        30     A     
 COMPASS            SX2    B0                                                              CMP136        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/28. 19.11.32.      PAGE 377    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP136        32     A     
 COMPASS   HDS1     LX3    4                                                               CMP136        33     A     
 COMPASS            LX7    4                                                               CMP136        34     A     
 COMPASS            IX3    X3+X2       ADD IN NEW DIGIT                                    CMP136        35     A     
 COMPASS            SA1    A1+B1       NEXT CHARACTER                                      CMP136        36     A     
 COMPASS            AX6    X3,B6       OVERFLOW FROM L16                                   CMP136        37     A     
 COMPASS            BX3    -X0*X3      CLEAR OVERFLOW FROM L16                             CMP136        38     A     
 COMPASS            IX7    X7+X6       H16 = H16 + CARRY                                   CMP136        39     A     
 COMPASS            ZR     X1,HDS2     IF COLON                                            CMP136        40     A     
 COMPASS            SB7    X1-1RF-1                                                        CMP136        41     A     
 COMPASS            SX2    X1-1RA+10                                                       CMP136        42     A     
 COMPASS            MI     B7,HDS1     IF *A* - *F*                                        CMP136        43     A     
 COMPASS            SB7    X1-1R9-1                                                        CMP136        44     A     
 COMPASS            SX2    X1-1R0                                                          CMP136        45     A     
 COMPASS            PL     B7,HDS2     IF NOT *0* - *9*                                    CMP136        46     A     
 COMPASS            PL     X2,HDS1     LOOP TO NON-HEX CHARACTER                           CMP136        47     A     
 COMPASS                                                                                   CMP136        48     A     
 COMPASS   HDS2     SX6    A1-CARD+1   CORRECT CARD POINTERS                               CMP136        49     A     
 COMPASS            SA7    DV          SET DECIMAL VALUE                                   CMP136        50     A     
 COMPASS            SA6    COLUMN                                                          CMP136        51     A     
 COMPASS            BX6    X3                                                              CMP136        52     A     
 COMPASS            SX7    10          SET RADIX DEFINED                                   CMP136        53     A     
 COMPASS            SA6    A7+B1                                                           CMP136        54     A     
 COMPASS            SA7    RD                                                              CMP136        55     A     
 COMPASS            BX6    X1          SET NEXT CHARACTER                                  CMP136        56     A     
 COMPASS            SA6    CHAR                                                            CMP136        57     A     
 COMPASS            EQ     NDS5                                                            CMP136        58     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3389     A     
 COMPASS  **        CHECK FOR TERMINATOR OR MODIFIER CHARACTERS.                           COMPASS     3390     A     
 COMPASS                                                                                   COMPASS     3391     A     
 COMPASS                                                                                   COMPASS     3392     A     
 COMPASS   NDS4     RJ     GETCH                                                           COMPASS     3393     A     
 COMPASS   NDS5     SA2    =2003036000002300064B MASK FOR \&, /*-+SPOEDB@                  COMPASS     3394     A     
 COMPASS            SB7    X1                                                              COMPASS     3395     A     
 COMPASS            AX2    B7,X2                                                           COMPASS     3396     A     
 COMPASS            LX2    59                                                              COMPASS     3397     A     
 COMPASS            CX0    X2                                                              COMPASS     3398     A     
 COMPASS            PL     X2,ERR      ERROR IF NOT ONE OF THE ABOVE CHARACTERS            COMPASS     3399     A     
 COMPASS            SB7    X0          JUMP TO PROCESSOR                                   COMPASS     3400     A     
 COMPASS            SA3    AF          (B4) = ADDRESS FIELD FLAG                           COMPASS     3401     A     
 COMPASS            SB4    X3                                                              COMPASS     3402     A     
 COMPASS            JP     B7+NDSB-1                                                       COMPASS     3403     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3404     A     
 COMPASS  **        NDSB - TRAILING CHARACTER JUMP TABLE.                                  COMPASS     3405     A     
 COMPASS  *         INDEXED BY BIT COUNT OF CHARACTER MASK.                                COMPASS     3406     A     
 COMPASS                                                                                   COMPASS     3407     A     
 COMPASS                                                                                   COMPASS     3408     A     
 COMPASS   NDSB     BSS    0                                                               COMPASS     3409     A     
 COMPASS                                                                                   COMPASS     3410     A     
 COMPASS   +        NZ     B4,NDS6     & - END IF ADDRESS FIELD                            COMPASS     3411     A     
 COMPASS            EQ     ERR                                                             COMPASS     3412     A     
 COMPASS                                                                                   COMPASS     3413     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 378    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        EQ     NDS6        COMMA                                               COMPASS     3414     A     
 COMPASS                                                                                   COMPASS     3415     A     
 COMPASS   +        EQ     NDS6        BLANK                                               COMPASS     3416     A     
 COMPASS                                                                                   COMPASS     3417     A     
 COMPASS   +        NZ     B4,NDS6     / - END IF ADDRESS FIELDS                           COMPASS     3418     A     
 COMPASS            EQ     ERR                                                             COMPASS     3419     A     
 COMPASS                                                                                   COMPASS     3420     A     
 COMPASS   +        NZ     B4,NDS6     * - END IF ADDRESS FIELDS                           COMPASS     3421     A     
 COMPASS            EQ     ERR                                                             COMPASS     3422     A     
 COMPASS                                                                                   COMPASS     3423     A     
 COMPASS   +        NZ     B4,NDS6     - - END IF ADDRESS FIELDS                           COMPASS     3424     A     
 COMPASS            EQ     ERR                                                             COMPASS     3425     A     
 COMPASS                                                                                   COMPASS     3426     A     
 COMPASS   +        NZ     B4,NDS6     + - END IF ADDRESS FIELDS                           COMPASS     3427     A     
 COMPASS            EQ     ERR                                                             COMPASS     3428     A     
 COMPASS                                                                                   COMPASS     3429     A     
 COMPASS   +        SB6    SF+1        S - -S- SCALE                                       COMPASS     3430     A     
 COMPASS            EQ     SSC                                                             COMPASS     3431     A     
 COMPASS                                                                                   COMPASS     3432     A     
 COMPASS   +        SB6    PF+1        P - -P- SCALE                                       COMPASS     3433     A     
 COMPASS            EQ     PSC                                                             COMPASS     3434     A     
 COMPASS                                                                                   COMPASS     3435     A     
 COMPASS   +        SX6    8           O - TRAILING OCTAL RADIX                            COMPASS     3436     A     
 COMPASS            EQ     TRS                                                             COMPASS     3437     A     
 COMPASS                                                                                   COMPASS     3438     A     
 COMPASS   +        SB6    EF+1        E - -E- SCALE                                       COMPASS     3439     A     
 COMPASS            EQ     ESC                                                             COMPASS     3440     A     
 COMPASS                                                                                   COMPASS     3441     A     
 COMPASS   +        SX6    10          D - TRAILING DECIMAL RADIX                          COMPASS     3442     A     
 COMPASS            EQ     TRS                                                             COMPASS     3443     A     
 COMPASS                                                                                   COMPASS     3444     A     
 COMPASS   +        SX6    8           B - TRAILING OCTAL RADIX                            COMPASS     3445     A     
 COMPASS            EQ     TRS                                                             COMPASS     3446     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3447     A     
 COMPASS  **        END OF NUMERIC DATA.                                                   COMPASS     3448     A     
 COMPASS                                                                                   COMPASS     3449     A     
 COMPASS                                                                                   COMPASS     3450     A     
 COMPASS   NDS6     SA2    RD          CALCULATE RADIX                                     COMPASS     3451     A     
 COMPASS            SA3    NBASE                                                           COMPASS     3452     A     
 COMPASS            NZ     X2,NDS7     IF NO RADIX SPECIFIED                               COMPASS     3453     A     
 COMPASS            BX2    X3          RADIX = NBASE                                       COMPASS     3454     A     
 COMPASS   NDS7     SB6    X2-10       (B6) = RADIX-10                                     COMPASS     3455     A     
 COMPASS            SA2    DV          PRESET DECIMAL VALUE                                COMPASS     3456     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     3457     A     
 COMPASS            SA4    EV          (X0) = SIGNED -E- SCALE VALUE                       COMPASS     3458     A     
 COMPASS            SA5    A4-B1                                                           COMPASS     3459     A     
 COMPASS            BX0    X4-X5                                                           COMPASS     3460     A     
 COMPASS            SA4    SV          (X6) = SIGNED -S- SCALE VALUE                       COMPASS     3461     A     
 COMPASS            SA5    A4-B1                                                           COMPASS     3462     A     
 COMPASS            BX6    X4-X5                                                           COMPASS     3463     A     
 COMPASS            SA4    FC                                                              COMPASS     3464     A     
 COMPASS            ZR     B6,NDS8     IF DECIMAL NUMBER                                   COMPASS     3465     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 379    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     3466     A     
 COMPASS  **        CHECK OCTAL FIELD FOR CHARACTERS 8 OR 9.                               COMPASS     3467     A     
 COMPASS                                                                                   COMPASS     3468     A     
 COMPASS            SA2    OV          USE OCTAL VALUE                                     COMPASS     3469     A     
 COMPASS            IX6    X6-X4       ADJUST -S- SCALE FOR FRACTIONAL DIGITS              COMPASS     3470     A     
 COMPASS            LX4    1                                                               COMPASS     3471     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     3472     A     
 COMPASS            IX6    X6-X4                                                           COMPASS     3473     A     
 COMPASS            SA4    OC          CHECK OCTAL FLAG                                    COMPASS     3474     A     
 COMPASS            NZ     X4,ERR      ERROR IF *8* OR *9* ENCOUNTERED IN SCAN             COMPASS     3475     A     
 COMPASS                                                                                   COMPASS     3476     A     
 COMPASS   NDS8     IX7    X0-X4       ADJUST -E- SCALE FOR FRACTIONAL DIGITS              COMPASS     3477     A     
 COMPASS            SA6    SV                                                              COMPASS     3478     A     
 COMPASS            SA7    EV                                                              COMPASS     3479     A     
 COMPASS                                                                                   COMPASS     3480     A     
 COMPASS  **        FORM TRIPLE PRECISION FLOATING VALUE FROM 105 BIT VALUE.               COMPASS     3481     A     
 COMPASS  *         (X5) = HIGH.                                                           COMPASS     3482     A     
 COMPASS  *         (X6) = MIDDLE.                                                         COMPASS     3483     A     
 COMPASS  *         (X7) = LOW.                                                            COMPASS     3484     A     
 COMPASS                                                                                   COMPASS     3485     A     
 COMPASS            MX0    -41                                                             COMPASS     3486     A     
 COMPASS            PX7    X3          LOW = BITS 0 - 47 OF LOW VALUE                      COMPASS     3487     A     
 COMPASS            AX3    48          1.  BITS 48 - 59 OF LOW VALUE                       COMPASS     3488     A     
 COMPASS            BX4    -X0*X2      2.  BITS 0 - 40 OF HIGH VALUE                       COMPASS     3489     A     
 COMPASS            LX4    7                                                               COMPASS     3490     A     
 COMPASS            BX6    X4+X3       MIDDLE = (2)+(1)                                    COMPASS     3491     A     
 COMPASS            SB7    48          MIDDLE EXPONENT = 48                                COMPASS     3492     A     
 COMPASS            AX2    41          HIGH = BITS 41 - 59 OF HIGH VALUE                   COMPASS     3493     A     
 COMPASS            SB6    B7+B7       HIGH EXPONENT = 96                                  COMPASS     3494     A     
 COMPASS            PX6    X6,B7                                                           COMPASS     3495     A     
 COMPASS            PX5    X2,B6                                                           COMPASS     3496     A     
 COMPASS                                                                                   COMPASS     3497     A     
 COMPASS  **        NORMALIZE FLOATING VALUE.                                              COMPASS     3498     A     
 COMPASS                                                                                   COMPASS     3499     A     
 COMPASS            NX0    B7,X7                                                           COMPASS     3500     A     
 COMPASS            NX5    B7,X5                                                           COMPASS     3501     A     
 COMPASS            NX6    B7,X6                                                           COMPASS     3502     A     
 COMPASS            FX2    X0+X6                                                           COMPASS     3503     A     
 COMPASS            DX3    X0+X6                                                           COMPASS     3504     A     
 COMPASS            FX7    X5+X2                                                           COMPASS     3505     A     
 COMPASS            DX4    X5+X2                                                           COMPASS     3506     A     
 COMPASS            FX6    X4+X3                                                           COMPASS     3507     A     
 COMPASS            DX5    X4+X3                                                           COMPASS     3508     A     
 COMPASS                                                                                   COMPASS     3509     A     
 COMPASS  **        BEGIN SCALING.                                                         COMPASS     3510     A     
 COMPASS  *         (B7) = ACCUMULATED EXPONENT.                                           COMPASS     3511     A     
 COMPASS                                                                                   COMPASS     3512     A     
 COMPASS            SB7    B0                                                              COMPASS     3513     A     
 COMPASS            SA2    EV                                                              COMPASS     3514     A     
 COMPASS            ZR     X5,NDS9     IF VALUE = 0                                        COMPASS     3515     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3516     A     
 COMPASS  **        PROCESS -E- SCALING.                                                   COMPASS     3517     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 380    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     3518     A     
 COMPASS                                                                                   COMPASS     3519     A     
 COMPASS            SA7    SCVC        SAVE NORMALIZED VALUE                               COMPASS     3520     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     3521     A     
 COMPASS            BX0    X2                                                              COMPASS     3522     A     
 COMPASS            LX7    X5                                                              COMPASS     3523     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     3524     A     
 COMPASS            SA5    DV          PRESET (A5) TO HIGH ORDER OF VALUE                  COMPASS     3525     A     
 COMPASS            PL     X2,SCV1     IF POSITIVE DECIMAL SCALING                         COMPASS     3526     A     
 COMPASS            SX6    15                                                              COMPASS     3527     A     
 COMPASS            IX7    X6-X0       15-(E SCALE VALUE)                                  COMPASS     3528     A     
 COMPASS            BX0    X7-X6                                                           COMPASS     3529     A     
 COMPASS            SA2    SCVA        10**(-16)                                           COMPASS     3530     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     3531     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     3532     A     
 COMPASS            EQ     SCV2                                                            COMPASS     3533     A     
 COMPASS                                                                                   COMPASS     3534     A     
 COMPASS   SCV1     MX4    0           CLEAR LOW PART OF 10**16                            COMPASS     3535     A     
 COMPASS            SX3    B0                                                              COMPASS     3536     A     
 COMPASS            SA2    =1.0E16                                                         COMPASS     3537     A     
 COMPASS                                                                                   COMPASS     3538     A     
 COMPASS   SCV2     MX1    -4                                                              COMPASS     3539     A     
 COMPASS            BX5    -X1*X0      EXTRACT SMALL POWER OF 10                           COMPASS     3540     A     
 COMPASS            AX0    4           POSITION 10**16 BIT                                 COMPASS     3541     A     
 COMPASS            SB6    B0          CLEAR 10 EXPONENT CUMULANT                          COMPASS     3542     A     
 COMPASS            SA0    X5+SCVB     PRESET FOR POWERS OF TEN                            COMPASS     3543     A     
 COMPASS            UX2    B5,X2       EXTRACT EXPONENT                                    COMPASS     3544     A     
 COMPASS            SX1    B5                                                              COMPASS     3545     A     
 COMPASS            SB5    -48                                                             COMPASS     3546     A     
 COMPASS            PX6    X3,B5       REPACK WITH ZERO EXPONENTS                          COMPASS     3547     A     
 COMPASS            SB5    B5+B5                                                           COMPASS     3548     A     
 COMPASS            PX5    X2                                                              COMPASS     3549     A     
 COMPASS            PX7    X4,B5                                                           COMPASS     3550     A     
 COMPASS            EQ     SCV4        ENTER SCALE LOOP                                    COMPASS     3551     A     
 COMPASS                                                                                   COMPASS     3552     A     
 COMPASS   SCV3     SA5    DV                                                              COMPASS     3553     A     
 COMPASS            SA3    A5+B1                                                           COMPASS     3554     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     3555     A     
 COMPASS            BX2    X5                                                              COMPASS     3556     A     
 COMPASS            RJ     TPM         SQUARE POWER OF 10                                  COMPASS     3557     A     
 COMPASS                                                                                   COMPASS     3558     A     
 COMPASS   SCV4     SX1    X1+B6       DOUBLE BINARY EXPONENT                              COMPASS     3559     A     
 COMPASS            SB6    X1+B6       AND CUMULATE                                        COMPASS     3560     A     
 COMPASS            SX1    B1                                                              COMPASS     3561     A     
 COMPASS            BX2    X0*X1       EXTRACT NEXT POWER BIT                              COMPASS     3562     A     
 COMPASS            AX0    1                                                               COMPASS     3563     A     
 COMPASS            SA6    A5+B1       STORE SCALED POWER OF 10                            COMPASS     3564     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     3565     A     
 COMPASS            BX6    X5                                                              COMPASS     3566     A     
 COMPASS            SA6    A5                                                              COMPASS     3567     A     
 COMPASS            ZR     X2,SCV5     IF THIS POWER DOES NOT APPLY                        COMPASS     3568     A     
 COMPASS            SA2    SCVC        FETCH SCALED CUMULANT                               COMPASS     3569     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 381    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    A2+B1                                                           COMPASS     3570     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     3571     A     
 COMPASS            SB7    B7+B6       ADD EXP OF POWER TO EXP OF CUMULANT                 COMPASS     3572     A     
 COMPASS            RJ     TPM         MULTIPLY BY POWER OF 10                             COMPASS     3573     A     
 COMPASS            SB7    X1+B7       LAST BIT TO EXPONENT SCALING                        COMPASS     3574     A     
 COMPASS            SA6    SCVC+1                                                          COMPASS     3575     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     3576     A     
 COMPASS            BX6    X5                                                              COMPASS     3577     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     3578     A     
 COMPASS   SCV5     NZ     X0,SCV3     IF MORE SCALING NECESSARY                           COMPASS     3579     A     
 COMPASS                                                                                   COMPASS     3580     A     
 COMPASS            SA1    A0          LOAD POWER BETWEEN 1 AND 10**15                     COMPASS     3581     A     
 COMPASS            SA2    SCVC+2      REFETCH SCALED VALUE                                COMPASS     3582     A     
 COMPASS            SA3    A2-B1                                                           COMPASS     3583     A     
 COMPASS            SA4    A3-B1                                                           COMPASS     3584     A     
 COMPASS            FX7    X1*X2       1.  T*AL       S L                                  COMPASS     3585     A     
 COMPASS            DX6    X1*X3       2.  T*AM       D L                                  COMPASS     3586     A     
 COMPASS            FX7    X7+X6       3.  (1)+(2)    S L                                  COMPASS     3587     A     
 COMPASS            FX2    X1*X3       4.  T*AM       S M                                  COMPASS     3588     A     
 COMPASS            DX3    X1*X4       5.  T*AU       D M                                  COMPASS     3589     A     
 COMPASS            FX5    X2+X3       6.  (4)+(5)    S M                                  COMPASS     3590     A     
 COMPASS            FX6    X1*X4       7.  T*AU       S U                                  COMPASS     3591     A     
 COMPASS            DX1    X2+X3       8.  (4)+(5)    D L                                  COMPASS     3592     A     
 COMPASS            FX7    X7+X1       9.  (3)+(8)    S L                                  COMPASS     3593     A     
 COMPASS            SA2    EF                                                              COMPASS     3594     A     
 COMPASS            SA3    RN                                                              COMPASS     3595     A     
 COMPASS            AX2    1                                                               COMPASS     3596     A     
 COMPASS            ZR     X3,SCV6     IF INTEGER NUMBER                                   COMPASS     3597     A     
 COMPASS                                                                                   COMPASS     3598     A     
 COMPASS  **        ROUND VALUE.                                                           COMPASS     3599     A     
 COMPASS                                                                                   COMPASS     3600     A     
 COMPASS            NZ     X2,SCV6     IF DOUBLE PRECISION                                 COMPASS     3601     A     
 COMPASS            RX6    X6+X5       ROUND DOUBLE TO SINGLE                              COMPASS     3602     A     
 COMPASS            MX5    0           MIDDLE = 0                                          COMPASS     3603     A     
 COMPASS            BX7    X1-X1       LOW = 0                                             COMPASS     3604     A     
 COMPASS                                                                                   COMPASS     3605     A     
 COMPASS   SCV6     DX4    X5+X6       ROUND TRIPLE TO DOUBLE                              COMPASS     3606     A     
 COMPASS            FX5    X5+X6                                                           COMPASS     3607     A     
 COMPASS            RX6    X4+X7                                                           COMPASS     3608     A     
 COMPASS            DX7    X5+X6       (X7) = LOW                                          COMPASS     3609     A     
 COMPASS            FX6    X5+X6       (X6) = HIGH                                         COMPASS     3610     A     
 COMPASS            UX1    B5,X6       (B7) = EXPONENT OF HIGH                             COMPASS     3611     A     
 COMPASS            SB7    B7+B5                                                           COMPASS     3612     A     
 COMPASS                                                                                   COMPASS     3613     A     
 COMPASS  **        PERFORM -S- SCALING.                                                   COMPASS     3614     A     
 COMPASS                                                                                   COMPASS     3615     A     
 COMPASS            SA1    SV                                                              COMPASS     3616     A     
 COMPASS            SB7    B7+X1                                                           COMPASS     3617     A     
 COMPASS            PX6    X6,B7                                                           COMPASS     3618     A     
 COMPASS            SB5    B7-2000B    CHECK EXPONENT                                      COMPASS     3619     A     
 COMPASS            SA1    CHAR        NEXT CHARACTER                                      COMPASS     3620     A     
 COMPASS            PL     B5,ERR      EXPONENT EXCEEDS MAXIMUM ALLOWABLE                  COMPASS     3621     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 382    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB5    -1777B                                                          COMPASS     3622     A     
 COMPASS            SB6    B7-48                                                           COMPASS     3623     A     
 COMPASS            ZR     X7,SCV7     IF LOW = 0                                          COMPASS     3624     A     
 COMPASS            PX7    X7,B6                                                           COMPASS     3625     A     
 COMPASS   SCV7     LT     B5,B6,SCV8  IF MIDDLE IS RELEVANT                               COMPASS     3626     A     
 COMPASS            MX7    0           MIDDLE = 0                                          COMPASS     3627     A     
 COMPASS            LT     B5,B7,SCV8                                                      COMPASS     3628     A     
 COMPASS            MX6    0           CLEAR UNDER FLOW QUANTITY                           COMPASS     3629     A     
 COMPASS   SCV8     SA3    RN                                                              COMPASS     3630     A     
 COMPASS            ZR     X3,INT      IF INTEGER NUMBER                                   COMPASS     3631     A     
 COMPASS            SA4    MACHINE     CHECK CODE TYPE                                     COMPASS     3632     A     
 COMPASS            NZ     X4,ERR      ERROR IF PP CODE                                    COMPASS     3633     A     
 COMPASS                                                                                   COMPASS     3634     A     
 COMPASS  **        PERFORM -P- SCALING.                                                   COMPASS     3635     A     
 COMPASS                                                                                   COMPASS     3636     A     
 COMPASS            SA5    PF                                                              COMPASS     3637     A     
 COMPASS            ZR     X5,NDS9     COMPLETE VALUE IF NO -P- SCALE                      COMPASS     3638     A     
 COMPASS            SA3    PV          SET SIGNED -P- VALUE                                COMPASS     3639     A     
 COMPASS            SA4    PS                                                              COMPASS     3640     A     
 COMPASS            BX0    X3-X4                                                           COMPASS     3641     A     
 COMPASS            UX6    B7,X6                                                           COMPASS     3642     A     
 COMPASS            SX4    -B7                                                             COMPASS     3643     A     
 COMPASS            IX0    X4-X0                                                           COMPASS     3644     A     
 COMPASS            UX7    B6,X7                                                           COMPASS     3645     A     
 COMPASS            NG     X0,ERR      IF -P- SCALE TOO BIG                                COMPASS     3646     A     
 COMPASS            SB5    -48         PREPARE SINGLE PRECISION                            COMPASS     3647     A     
 COMPASS            ZR     X2,SCV9     IF SINGLE PRECISION                                 COMPASS     3648     A     
 COMPASS            SB5    -96         PREPARE DOUBLE PRECISION                            COMPASS     3649     A     
 COMPASS   SCV9     SB5    X0+B5                                                           COMPASS     3650     A     
 COMPASS            PL     B5,ERR      IF -P- SCALE WILL LOOSE ALL BITS                    COMPASS     3651     A     
 COMPASS            SB5    X0                                                              COMPASS     3652     A     
 COMPASS            AX7    X7,B5                                                           COMPASS     3653     A     
 COMPASS            SX3    B1                                                              COMPASS     3654     A     
 COMPASS            LX4    X3,B5                                                           COMPASS     3655     A     
 COMPASS            IX3    X4-X3                                                           COMPASS     3656     A     
 COMPASS            BX4    X6*X3                                                           COMPASS     3657     A     
 COMPASS            AX6    X6,B5                                                           COMPASS     3658     A     
 COMPASS            SB6    B5-48                                                           COMPASS     3659     A     
 COMPASS            AX0    X4,B6                                                           COMPASS     3660     A     
 COMPASS            BX7    X0+X7                                                           COMPASS     3661     A     
 COMPASS            SB7    B7+B5                                                           COMPASS     3662     A     
 COMPASS            PX6    X6,B7       APPEND FINAL EXPONENT                               COMPASS     3663     A     
 COMPASS            SB7    B7-48                                                           COMPASS     3664     A     
 COMPASS            PX7    X7,B7                                                           COMPASS     3665     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3666     A     
 COMPASS  **        STORE FINAL VALUE.                                                     COMPASS     3667     A     
 COMPASS                                                                                   COMPASS     3668     A     
 COMPASS                                                                                   COMPASS     3669     A     
 COMPASS   NDS9     SA2    EF          CHECK PRECISION                                     COMPASS     3670     A     
 COMPASS            AX2    1                                                               COMPASS     3671     A     
 COMPASS            SA3    DO          DATA DESTINATION ADDRESS                            COMPASS     3672     A     
 COMPASS            SA4    DL          WORD COUNT OF DATA FIELD                            COMPASS     3673     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 383    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA5    SI                                                              COMPASS     3674     A     
 COMPASS            BX6    X6-X5       CORRECT FOR SIGN                                    COMPASS     3675     A     
 COMPASS            BX7    X7-X5                                                           COMPASS     3676     A     
 COMPASS            SA6    X3          STORE UPPER                                         COMPASS     3677     A     
 COMPASS            AX4    1           CHECK DATA FIELD                                    COMPASS     3678     A     
 COMPASS            SX3    B1          WORD COUNT OF DATA = 1                              COMPASS     3679     A     
 COMPASS            ZR     X2,SCDX     EXIT IF SINGLE PRECISION                            COMPASS     3680     A     
 COMPASS            ZR     X4,ERR      ERROR IF NO ROOM IN DATA FIELD FOR LOWER            COMPASS     3681     A     
 COMPASS            SA7    A6+B1       STORE LOWER                                         COMPASS     3682     A     
 COMPASS            SX3    B1+B1       WORD COUNT OF DATA = 2                              COMPASS     3683     A     
 COMPASS            EQ     SCDX        EXIT                                                COMPASS     3684     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3685     A     
 COMPASS  **        INT - CONVERT TO INTEGER VALUE.                                        COMPASS     3686     A     
 COMPASS                                                                                   COMPASS     3687     A     
 COMPASS                                                                                   COMPASS     3688     A     
 COMPASS   INT      UX6    B7,X6       UNPACK HIGH                                         COMPASS     3689     A     
 COMPASS            UX0    B6,X7       UNPACK LOW                                          COMPASS     3690     A     
 COMPASS            SB5    B7-13                                                           COMPASS     3691     A     
 COMPASS            LX6    X6,B7                                                           COMPASS     3692     A     
 COMPASS            SX7    B1          SET SINGLE PRECISION                                COMPASS     3693     A     
 COMPASS            LX0    X0,B6                                                           COMPASS     3694     A     
 COMPASS            BX6    X6+X0       COMBINE HIGH AND LOW VALUE                          COMPASS     3695     A     
 COMPASS            SA7    EF                                                              COMPASS     3696     A     
 COMPASS            NG     B5,NDS9     IF INTEGER WITHIN RANGE                             COMPASS     3697     A     
 COMPASS            EQ     ERR         ERROR                                               COMPASS     3698     A     
 COMPASS   NUMERIC  EJECT                                                                  COMPASS     3699          I
          -CPSA097
 COMPASS   NUMERIC  EJECT  4                                                       CPSA097 CPSA097        5     A     
 COMPASS  **        ESC - SET -E- SCALE.                                                   COMPASS     3700     A     
 COMPASS                                                                                   COMPASS     3701     A     
 COMPASS                                                                                   COMPASS     3702     A     
 COMPASS   ESC      SX7    B1          PRESET SINGLE PRECISION                             COMPASS     3703     A     
 COMPASS            RJ     GETCH       NEXT CHARACTER                                      COMPASS     3704     A     
 COMPASS            SB2    X1-1RE                                                          COMPASS     3705     A     
 COMPASS            NZ     B2,SSV      IF NOT *E*                                          COMPASS     3706     A     
 COMPASS            SX7    B1+B1       SET DOUBLE PRECISION                                COMPASS     3707     A     
 COMPASS            RJ     GETCH       NEXT CHARACTER                                      COMPASS     3708     A     
 COMPASS            EQ     SSV                                                             COMPASS     3709     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3710     A     
 COMPASS  **        PSC - SET -P- SCALE.                                                   COMPASS     3711     A     
 COMPASS                                                                                   COMPASS     3712     A     
 COMPASS                                                                                   COMPASS     3713     A     
 COMPASS   PSC      SA2    RN                                                              COMPASS     3714     A     
 COMPASS            ZR     X2,ERR      IF NOT REAL NUMBER                                  COMPASS     3715     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3716     A     
 COMPASS  **        SSC - SET -S- SCALE.                                                   COMPASS     3717     A     
 COMPASS                                                                                   COMPASS     3718     A     
 COMPASS                                                                                   COMPASS     3719     A     
 COMPASS   SSC      SX7    B1                                                              COMPASS     3720     A     
 COMPASS            RJ     GETCH       NEXT CHARACTER                                      COMPASS     3721     A     
 COMPASS   NUMERIC  SPACE  4                                                               COMPASS     3722     A     
 COMPASS  **        SSV - SET SCALE VALUE.                                                 COMPASS     3723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 384    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         ENTRY  (X7) = SCALE FLAG.                                              COMPASS     3724     A     
 COMPASS  *                (B6) = ADDRESS OF SCALE TYPE SIGN.                              COMPASS     3725     A     
 COMPASS                                                                                   COMPASS     3726     A     
 COMPASS                                                                                   COMPASS     3727     A     
 COMPASS   SSV      SA5    B6-B1       CHECK SCALE FLAG                                    COMPASS     3728     A     
 COMPASS            SA7    B6-B1       STORE SCALE FLAG                                    COMPASS     3729     A     
 COMPASS            NZ     X5,ERR      ERROR IF DUPLICATED SPECIFICATION                   COMPASS     3730     A     
 COMPASS            MX7    0                                                               COMPASS     3731     A     
 COMPASS            SB7    X1-1R+      CHECK CHARACTER                                     COMPASS     3732     A     
 COMPASS            ZR     B7,SSV1     IF +                                                COMPASS     3733     A     
 COMPASS            NE     B7,B1,SSV2  IF NOT -                                            COMPASS     3734     A     
 COMPASS            MX6    60          SET SIGN NEGATIVE                                   COMPASS     3735     A     
 COMPASS            SA6    B6                                                              COMPASS     3736     A     
 COMPASS                                                                                   COMPASS     3737     A     
 COMPASS   SSV1     RJ     GETCH       NEXT CHARACTER                                      COMPASS     3738     A     
 COMPASS   SSV2     SB7    X1-1R0      CHECK CHARACTER                                     COMPASS     3739     A     
 COMPASS            SB5    X1-1R9                                                          COMPASS     3740     A     
 COMPASS            NG     B7,SSV3     IF ALPHA                                            COMPASS     3741     A     
 COMPASS            GE     B5,B1,SSV3  IF NOT DIGIT                                        COMPASS     3742     A     
 COMPASS            BX5    X7          ACCUMULATION * 10                                   COMPASS     3743     A     
 COMPASS            LX7    2                                                               COMPASS     3744     A     
 COMPASS            IX5    X7+X5                                                           COMPASS     3745     A     
 COMPASS            LX5    1                                                               COMPASS     3746     A     
 COMPASS            SX3    B7                                                              COMPASS     3747     A     
 COMPASS            IX7    X5+X3                                                           COMPASS     3748     A     
 COMPASS            EQ     SSV1        LOOP                                                COMPASS     3749     A     
 COMPASS                                                                                   COMPASS     3750     A     
 COMPASS   SSV3     SA7    B6+B1       STORE VALUE                                         COMPASS     3751     A     
 COMPASS            EQ     NDS5        RETURN TO PROCESS NEXT CHARACTER                    COMPASS     3752     A     
 COMPASS   TPM      SPACE  4                                                               COMPASS     3753     A     
 COMPASS  **        TPM - TRIPLE PRECISION MULTIPLY.                                       COMPASS     3754     A     
 COMPASS  *         ENTRY  (X2,X3,X4) = 1ST FACTOR.                                        COMPASS     3755     A     
 COMPASS  *                (X5,X6,X7) = 2ND FACTOR.                                        COMPASS     3756     A     
 COMPASS  *         EXIT   (X5,X6,X7) = PRODUCT.                                           COMPASS     3757     A     
 COMPASS                                                                                   COMPASS     3758     A     
 COMPASS                                                                                   COMPASS     3759     A     
 COMPASS   TPM      PS     0           ENTRY/EXIT                                          COMPASS     3760     A     
 COMPASS            FX6    X5*X4       1.  BU*AL      S L                                  COMPASS     3761     A     
 COMPASS            DX7    X5*X3       2.  BU*AM      D L                                  COMPASS     3762     A     
 COMPASS            FX4    X6+X7       3.  (1)+(2)    S L                                  COMPASS     3763     A     
 COMPASS            FX6    X5*X3       4.  BU*AM      S M                                  COMPASS     3764     A     
 COMPASS            DX7    X5*X2       5.  BU*AU      D M                                  COMPASS     3765     A     
 COMPASS            FX1    X6+X7       6.  (4)+(5)    S M                                  COMPASS     3766     A     
 COMPASS            SA5    A5+B1       BM                                                  COMPASS     3767     A     
 COMPASS            DX6    X6+X7       7.  (4)+(5)    D L                                  COMPASS     3768     A     
 COMPASS            FX7    X5*X3       8.  BM*AM      S L                                  COMPASS     3769     A     
 COMPASS            FX4    X4+X6       9.  (3)+(7)    S L                                  COMPASS     3770     A     
 COMPASS            DX6    X5*X2       10.  BM*AU     D L                                  COMPASS     3771     A     
 COMPASS            FX4    X7+X4       11.  (8)+(9)   S L                                  COMPASS     3772     A     
 COMPASS            FX3    X6+X4       12.  (10)+(11) S L                                  COMPASS     3773     A     
 COMPASS            FX7    X5*X2       13.  BM*AU     S M                                  COMPASS     3774     A     
 COMPASS            FX6    X1+X7       14.  (6)+(13)  S M                                  COMPASS     3775     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 385    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA4    A5+B1       BL                                                  COMPASS     3776     A     
 COMPASS            SA5    A5-B1       BU                                                  COMPASS     3777     A     
 COMPASS            DX7    X1+X7       15.  (6)+(13)  D L                                  COMPASS     3778     A     
 COMPASS            FX7    X3+X7       16.  (12)+(15) S L                                  COMPASS     3779     A     
 COMPASS            FX3    X4*X2       17.  BL*AU     S L                                  COMPASS     3780     A     
 COMPASS            FX5    X5*X2       18.  BU*AU     S U                                  COMPASS     3781     A     
 COMPASS            FX7    X7+X3       19.  (16)+(17) S L                                  COMPASS     3782     A     
 COMPASS            FX3    X6+X7       POST NORMALIZE RESULT                               COMPASS     3783     A     
 COMPASS            DX4    X6+X7                                                           COMPASS     3784     A     
 COMPASS            FX2    X3+X5                                                           COMPASS     3785     A     
 COMPASS            DX5    X3+X5                                                           COMPASS     3786     A     
 COMPASS            FX3    X4+X5                                                           COMPASS     3787     A     
 COMPASS            DX4    X4+X5                                                           COMPASS     3788     A     
 COMPASS            UX2    B5,X2                                                           COMPASS     3789     A     
 COMPASS            SX1    B5                                                              COMPASS     3790     A     
 COMPASS            SB5    -48                                                             COMPASS     3791     A     
 COMPASS            PX6    X3,B5       REPACK WITH ZERO EXPONENTS                          COMPASS     3792     A     
 COMPASS            SB5    B5+B5                                                           COMPASS     3793     A     
 COMPASS            PX5    X2                                                              COMPASS     3794     A     
 COMPASS            PX7    X4,B5                                                           COMPASS     3795     A     
 COMPASS            EQ     TPM         RETURN                                              COMPASS     3796     A     
 COMPASS   SCVA     SPACE  4                                                               COMPASS     3797     A     
 COMPASS  **        SCVA - 10**(-16) IN TRIPLE PRECISION.                                  COMPASS     3798     A     
 COMPASS                                                                                   COMPASS     3799     A     
 COMPASS                                                                                   COMPASS     3800     A     
 COMPASS   SCVA     BSS    0                                                               COMPASS     3801     A     
 COMPASS            CON    16327151262457542115B                                           COMPASS     3802     A     
 COMPASS            CON    15527025551413537150B                                           COMPASS     3803     A     
 COMPASS            CON    14723630465154737561B                                           COMPASS     3804     A     
 COMPASS   SCVB     SPACE  4                                                               COMPASS     3805     A     
 COMPASS  **        SCVB - TABLE OF POWERS OF 10.                                          COMPASS     3806     A     
 COMPASS                                                                                   COMPASS     3807     A     
 COMPASS                                                                                   COMPASS     3808     A     
 COMPASS   SCVB     BSS    0                                                               COMPASS     3809     A     
 COMPASS            CON    1.                                                              COMPASS     3810     A     
 COMPASS            CON    10.                                                             COMPASS     3811     A     
 COMPASS            CON    100.                                                            COMPASS     3812     A     
 COMPASS            CON    1.E3                                                            COMPASS     3813     A     
 COMPASS            CON    1.E4                                                            COMPASS     3814     A     
 COMPASS            CON    1.E5                                                            COMPASS     3815     A     
 COMPASS            CON    1.E6                                                            COMPASS     3816     A     
 COMPASS            CON    1.E7                                                            COMPASS     3817     A     
 COMPASS            CON    1.E8                                                            COMPASS     3818     A     
 COMPASS            CON    1.E9                                                            COMPASS     3819     A     
 COMPASS            CON    1.E10                                                           COMPASS     3820     A     
 COMPASS            CON    1.E11                                                           COMPASS     3821     A     
 COMPASS            CON    1.E12                                                           COMPASS     3822     A     
 COMPASS            CON    1.E13                                                           COMPASS     3823     A     
 COMPASS            CON    1.E14                                                           COMPASS     3824     A     
 COMPASS            CON    1.E15                                                           COMPASS     3825     A     
 COMPASS                                                                                   COMPASS     3826     A     
 COMPASS   SCVC     DATA   0,0,0       TEMPORARY STORAGE FOR SCALING                       COMPASS     3827     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 386    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CHAR     EJECT                                                                  COMPASS     3828     A     
 COMPASS  ***       CHARACTER DATA.                                                        COMPASS     3829     A     
 COMPASS  *                                                                                COMPASS     3830     A     
 COMPASS  *                                                                                COMPASS     3831     A     
 COMPASS  *         NFCCC-CCC                                                              COMPASS     3832     A     
 COMPASS  *         GENERATE *N* CHARACTERS OF DATA FROM THE STRING *CCC-CCC* IN           COMPASS     3833     A     
 COMPASS  *         FORMAT *F*.                                                            COMPASS     3834     A     
 COMPASS  *         *N* MUST NOT BE BLANK FOR ADDRESS FIELDS.                              COMPASS     3835     A     
 COMPASS  *         IF *N* IS PRECEDED BY A *-*, THE CHARACTER STRING WILL BE              COMPASS     3836     A     
 COMPASS  *         COMPLEMENTED.                                                          COMPASS     3837     A     
 COMPASS  *         IF *N* = *0*, STRING IS TERMINATED BY \+-*/, @ FOR ADDRESS             COMPASS     3838     A     
 COMPASS  *         FIELDS, BY \, @ FOR *DATA*, *LIT*, OR LITERAL FIELDS.                  COMPASS     3839     A     
 COMPASS  *                                                                                COMPASS     3840     A     
 COMPASS  *         F/CCC-CCC/                                                             COMPASS     3841     A     
 COMPASS  *         GENERATE DATA FROM CHARACTER STRING *CCC-CCC* IN FORMAT *F*.           COMPASS     3842     A     
 COMPASS  *         */* IS ANY DELIMITER CHARACTER.                                        COMPASS     3843     A     
 COMPASS  *                                                                                COMPASS     3844     A     
 COMPASS  *         F      JUSTIFY     FILL                                                COMPASS     3845     A     
 COMPASS  *                                                                                COMPASS     3846     A     
 COMPASS  *         H      LEFT        TRAILING BLANK                                      COMPASS     3847     A     
 COMPASS  *         A      RIGHT       LEADING BLANK                                       COMPASS     3848     A     
 COMPASS  *         C      LEFT        TRAILING ZERO, TWO ZEROS GUARANTEED                 COMPASS     3849     A     
 COMPASS  *         Z      LEFT        TRAILING ZERO, ONE ZERO GUARANTEED                  COMPASS     3850     A     
 COMPASS  *         L      LEFT        TRAILING ZERO                                       COMPASS     3851     A     
 COMPASS  *         R      RIGHT       LEADING ZERO                                        COMPASS     3852     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3853     A     
 COMPASS  **        DCS - DELIMITED CHARACTER STRING.                                      COMPASS     3854     A     
 COMPASS  *         ENTRY  (B6) = ADDRESS OF CHARACTER STRING PROCESSOR.                   COMPASS     3855     A     
 COMPASS                                                                                   COMPASS     3856     A     
 COMPASS                                                                                   COMPASS     3857     A     
 COMPASS   DCS      SB2    -B1         CLEAR CHARACTER COUNT                               COMPASS     3858     A     
 COMPASS            SA0    B0          SET FLAG TO THROW AWAY TERMINATOR                   COMPASS     3859     A     
 COMPASS            RJ     GETCH       GET DELIMITING LETTER                               COMPASS     3860     A     
 COMPASS            SA2    LASTCOL     STORE IN LAST COLUMN                                COMPASS     3861     A     
 COMPASS            SA3    X2+CARD+1                                                       COMPASS     3862          I
          -CMP12  
 COMPASS            SA3    X2+CARD                                                         CMP12          1     A     
 COMPASS            SA6    A3          STORE DELIMITER AT END OF CARD                      COMPASS     3863     A     
 COMPASS            BX0    X1          SAVE DELIMITER                                      COMPASS     3864     A     
 COMPASS            BX6    X3                                                              COMPASS     3865     A     
 COMPASS                                                                                   COMPASS     3866     A     
 COMPASS   DCS1     SB2    B2+B1       COUNT CHARACTER                                     COMPASS     3867     A     
 COMPASS            SA1    A1+B1       FETCH NEXT CHARACTER                                COMPASS     3868     A     
 COMPASS            SB3    A1                                                              COMPASS     3869     A     
 COMPASS            BX4    X1-X0                                                           COMPASS     3870     A     
 COMPASS            NZ     X4,DCS1     IF NOT DELIMITER                                    COMPASS     3871     A     
 COMPASS            SA6    A6          RESET LAST COLUMN TO * *                            COMPASS     3872     A     
 COMPASS            SB7    X0-1R                                                           COMPASS     3873     A     
 COMPASS            SX6    A6-B3                                                           COMPASS     3874     A     
 COMPASS   +        ZR     B7,*+1      IF DELIMITER IS * *                                 COMPASS     3875     A     
 COMPASS            ZR     X6,ERR      IF MISSING DELIMITER                                COMPASS     3876     A     
 COMPASS            SA1    AF          (X1) = ADDRESS FIELD FLAG                           COMPASS     3877     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 387    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    X1-1                                                            COMPASS     3878     A     
 COMPASS            JP     B6          PROCESS CHARACTER STRING                            COMPASS     3879     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3880     A     
 COMPASS  **        NCS - NUMERIC COUNT CHARACTER STRING.                                  COMPASS     3881     A     
 COMPASS  *         ENTRY  (B6) = ADDRESS OF CHARACTER STRING PROCESSOR.                   COMPASS     3882     A     
 COMPASS                                                                                   COMPASS     3883     A     
 COMPASS                                                                                   COMPASS     3884     A     
 COMPASS   NCS      SA3    DV          CHECK VALUE OF COUNT                                COMPASS     3885     A     
 COMPASS            SA2    A3+B1                                                           COMPASS     3886     A     
 COMPASS            SA0    B1          SET FLAG TO SAVE TERMINATOR                         COMPASS     3887     A     
 COMPASS            NZ     X3,ERR      ERROR IF UPPER PART OF VALUE " 0                    COMPASS     3888     A     
 COMPASS            SB2    X2                                                              COMPASS     3889     A     
 COMPASS            SA2    RD                                                              COMPASS     3890     A     
 COMPASS            NZ     X2,ERR      ERROR IF RADIX SPECIFIED                            COMPASS     3891     A     
 COMPASS            SA4    COLUMN                                                          COMPASS     3892     A     
 COMPASS            SX5    CARD+71*NCARDS                                                  COMPASS     3893     A     
 COMPASS            SX7    X4+B2       CHECK THAT THIS DOES NOT EXCEED END                 COMPASS     3894     A     
 COMPASS            IX6    X5-X7                                                           COMPASS     3895     A     
 COMPASS            NG     X6,ERR                                                          COMPASS     3896     A     
 COMPASS            NZ     B2,NCS3     IF NON-ZERO VALUE                                   COMPASS     3897     A     
 COMPASS            SX3    3000B       MASK FOR \ ,@                                       COMPASS     3898     A     
 COMPASS            SA2    AF                                                              COMPASS     3899     A     
 COMPASS            LX3    36                                                              COMPASS     3900     A     
 COMPASS            SB2    X2                                                              COMPASS     3901     A     
 COMPASS            NE     B2,B1,NCS1  IF NOT ADDRESS FIELD                                COMPASS     3902     A     
 COMPASS            SA3    =2003036BS36 MASK FOR \& ,/*-+@                                 COMPASS     3903     A     
 COMPASS   NCS1     SB2    -B1                                                             COMPASS     3904     A     
 COMPASS            SA1    X4+CARD-1   SET FOR DELIMITER SCAN                              COMPASS     3905     A     
 COMPASS   NCS2     SA1    A1+B1                                                           COMPASS     3906     A     
 COMPASS            SB7    X1                                                              COMPASS     3907     A     
 COMPASS            AX2    X3,B7                                                           COMPASS     3908     A     
 COMPASS            SB2    B2+B1                                                           COMPASS     3909     A     
 COMPASS            LX2    59                                                              COMPASS     3910     A     
 COMPASS            PL     X2,NCS2                                                         COMPASS     3911     A     
 COMPASS   NCS3     SA1    AF          (X1) = ADDRESS FIELD FLAG                           COMPASS     3912     A     
 COMPASS            SX1    X1-1                                                            COMPASS     3913     A     
 COMPASS            JP     B6          PROCESS CHARACTER STRING                            COMPASS     3914     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3915     A     
 COMPASS  **        CSH - PROCESS -H- FORMAT.                                              COMPASS     3916     A     
 COMPASS                                                                                   COMPASS     3917     A     
 COMPASS                                                                                   COMPASS     3918     A     
 COMPASS   CSH      SX6    -B1                                                             COMPASS     3919     A     
 COMPASS            SB3    B0          NO LEADING CHARACTERS                               COMPASS     3920     A     
 COMPASS            RJ     CCS         COMPUTE CHARACTER STRING                            COMPASS     3921     A     
 COMPASS            SB4    X6          SET TRAILING CHARACTER COUNT                        COMPASS     3922     A     
 COMPASS            SX7    B1                                                              COMPASS     3923     A     
 COMPASS            SX0    1R          SPACE FILL                                          COMPASS     3924     A     
 COMPASS            SA7    SF                                                              COMPASS     3925     A     
 COMPASS            NG     X1,GCS      IF NOT ADDRESS FIELD                                COMPASS     3926     A     
 COMPASS            SA7    SV          SET JUSTIFICATION FLAG                              COMPASS     3927     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3928     A     
 COMPASS  **        CSA - PROCESS -A- FORMAT.                                              COMPASS     3929     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 388    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     3930     A     
 COMPASS                                                                                   COMPASS     3931     A     
 COMPASS   CSA      SX6    -B1                                                             COMPASS     3932     A     
 COMPASS            SB4    B0          NO TRAILING CHRACTERS                               COMPASS     3933     A     
 COMPASS            RJ     CCS         COMPUTE CHARACTER STRING                            COMPASS     3934     A     
 COMPASS            SB3    X6          SET LEADING CHARACTER COUNT                         COMPASS     3935     A     
 COMPASS            SX0    1R          SPACE FILL                                          COMPASS     3936     A     
 COMPASS            SX7    B1                                                              COMPASS     3937     A     
 COMPASS            SA7    SF                                                              COMPASS     3938     A     
 COMPASS            EQ     GCS                                                             COMPASS     3939     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3940     A     
 COMPASS  **        CSC - PROCESS -C- FORMAT.                                              COMPASS     3941     A     
 COMPASS                                                                                   COMPASS     3942     A     
 COMPASS                                                                                   COMPASS     3943     A     
 COMPASS   CSC      SX6    B1                                                              COMPASS     3944     A     
 COMPASS            SB3    B0          NO LEADING CHARACTERS                               COMPASS     3945     A     
 COMPASS            RJ     CCS         COMPUTE CHARACTER STRING                            COMPASS     3946     A     
 COMPASS            SB4    X6          SET TRAILING CHARACTER COUNT                        COMPASS     3947     A     
 COMPASS            MX0    0           ZERO FILL                                           COMPASS     3948          I
          -CMP069 
 COMPASS            MX0    1           ZERO FILL, NO CONVERSION                   P069  13 CMP069         1     A     
 COMPASS            NG     X1,GCS      IF NOT ADDRESS FIELD                                COMPASS     3949     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3950     A     
 COMPASS  **        CSZ - PROCESS -Z- FORMAT.                                              COMPASS     3951     A     
 COMPASS                                                                                   COMPASS     3952     A     
 COMPASS                                                                                   COMPASS     3953     A     
 COMPASS   CSZ      SX6    B0                                                              COMPASS     3954     A     
 COMPASS            SB3    B0          NO LEADING CHARACTERS                               COMPASS     3955     A     
 COMPASS            RJ     CCS         COMPUTE CHARACTER STRING                            COMPASS     3956     A     
 COMPASS            SB4    X6          SET TRAILING CHARACTER COUNT                        COMPASS     3957     A     
 COMPASS            MX0    0           ZERO FILL                                           COMPASS     3958          I
          -CMP069 
 COMPASS            MX0    1           ZERO FILL, NO CONVERSION                   P069  15 CMP069         2     A     
 COMPASS            NG     X1,GCS      IF NOT ADDRESS FIELD                                COMPASS     3959     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3960     A     
 COMPASS  **        CSL - PROCESS -L- FORMAT.                                              COMPASS     3961     A     
 COMPASS                                                                                   COMPASS     3962     A     
 COMPASS                                                                                   COMPASS     3963     A     
 COMPASS   CSL      SX6    -B1                                                             COMPASS     3964     A     
 COMPASS            SB3    B0          NO LEADING CHARACTERS                               COMPASS     3965     A     
 COMPASS            RJ     CCS         COMPUTE CHARACTER STRING                            COMPASS     3966     A     
 COMPASS            SB4    X6          SET TRAILING CHARACTER COUNT                        COMPASS     3967     A     
 COMPASS            MX0    0           ZERO FILL                                           COMPASS     3968          I
          -CMP069 
 COMPASS            MX0    1           ZERO FILL, NO CONVERSION                   P069  17 CMP069         3     A     
 COMPASS            NG     X1,GCS      IF NOT ADDRESS FIELD                                COMPASS     3969     A     
 COMPASS            SX7    B1          SET JUSTIFICATION FLAG                              COMPASS     3970     A     
 COMPASS            SA7    SV                                                              COMPASS     3971     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3972     A     
 COMPASS  **        CSR - PROCESS -R- FORMAT.                                              COMPASS     3973     A     
 COMPASS                                                                                   COMPASS     3974     A     
 COMPASS                                                                                   COMPASS     3975     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 389    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CSR      SX6    -B1                                                             COMPASS     3976     A     
 COMPASS            SB4    B0          NO TRAILING CHRACTERS                               COMPASS     3977     A     
 COMPASS            RJ     CCS         COMPUTE CHARACTER STRING                            COMPASS     3978     A     
 COMPASS            SB3    X6          SET LEADING CHARACTER COUNT                         COMPASS     3979     A     
 COMPASS            MX0    0           ZERO FILL                                           COMPASS     3980          I
          -CMP069 
 COMPASS            MX0    1           ZERO FILL, NO CONVERSION                   P069  19 CMP069         4     A     
 COMPASS            EQ     GCS                                                             COMPASS     3981     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     3982     A     
 COMPASS  **        GCS - GENERATE CHARACTER STRING.                                       COMPASS     3983     A     
 COMPASS  *         ENTRY  (X0) = FILL CHARACTER.                                          COMPASS     3984     A     
 COMPASS  *                (X3) = EFFECTIVE CHARACTER COUNT.                               COMPASS     3985     A     
 COMPASS  *                (B2) = DATA CHARACTER COUNT.                                    COMPASS     3986     A     
 COMPASS  *                (B3) = LEADING FILL CHARACTER COUNT.                            COMPASS     3987     A     
 COMPASS  *                (B4) = TRAILING FILL CHARACTER COUNT.                           COMPASS     3988     A     
 COMPASS  *                (A0) = FLAG TO SAVE TERMINATOR CHARACTER.                       COMPASS     3989     A     
 COMPASS                                                                                   COMPASS     3990     A     
 COMPASS                                                                                   COMPASS     3991     A     
 COMPASS   GCS      SA5    DO          PRESET BYTE COUNTERS AND WORD VALUE                 COMPASS     3992     A     
 COMPASS            SA4    DL                                                              COMPASS     3993     A     
 COMPASS            SB7    X3                                                              COMPASS     3994     A     
 COMPASS            SB6    X3                                                              COMPASS     3995     A     
 COMPASS            MX7    0                                                               COMPASS     3996     A     
 COMPASS            MI     X0,GCS1A    IF NO FILL CHARACTER                                CPSA281       38     A     
 COMPASS            SA1    CT                                                              CPSA281       39     A     
 COMPASS            SX1    X1-45                                                           CPSA281       40     A     
 COMPASS            NZ     X1,GCS1A    IF NOT 8-BIT ASCII                                  CPSA281       41     A     
 COMPASS            SX7    1002B       INITIALIZE TRAILING FILL TO SPACE                   CPSA281       42     A     
 COMPASS   GCS1A    BSS    0                                                               CPSA281       43     A     
 COMPASS            SB5    X4          (B5) = LIMITING WORD COUNT                          COMPASS     3997     A     
 COMPASS            SA1    CT                                                              COMPASS     3998     A     
 COMPASS            MX3    -6                                                              CPSA213        5     A     
 COMPASS            SA2    PPTYPE                                                          CPSA213        6     A     
 COMPASS            PL     X2,GCS1B    IF NOT 8-BIT                                        CPSA213        7     A     
 COMPASS            SX2    X2+2                                                            CPSA213        8     A     
 COMPASS            MI     X2,GCS1B    IF NOT 8-BIT                                        CPSA213        9     A     
 COMPASS            MX3    -6                                                              COMPASS     3999          I
          -F4820  
 COMPASS            MX3    -8                                                              F4820         73     A     
 COMPASS   GCS1B    BSS    0                                                               CPSA213       10     A     
 COMPASS            SX4    -B4                                                             COMPASS     4000     A     
          -CMP64G   +CMP069 
 COMPASS            BX6    X1+X0                                                           CMP64G         3          I
          -CMP069 
 COMPASS   +        NZ     X6,*+1      IF NOT DISPLAY CODE WITH 00 FILL                    CMP64G         4          I
          -CMP069 
 COMPASS            MX0    1           SET NO-CONVERSION FLAG                              CMP64G         5          I
          -CMP069 
 COMPASS   +        SX4    -B4                                                             CMP64G         6          I
          -CMP069 
 COMPASS            SB4    X1          (B4) = CHARACTER TYPE SHIFT                         COMPASS     4001     A     
 COMPASS            ZR     B3,GCS2     IF NO LEADING FILL                                  COMPASS     4002     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 390    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     4003     A     
 COMPASS   GCS1     BX6    X0          PACK LEADING FILL CHARACTERS                        COMPASS     4004     A     
 COMPASS            SB3    B3-B1                                                           COMPASS     4005     A     
 COMPASS            RJ     STC                                                             COMPASS     4006     A     
 COMPASS            NZ     B3,GCS1                                                         COMPASS     4007     A     
 COMPASS                                                                                   COMPASS     4008     A     
 COMPASS   GCS2     SB3    B2+B2                                                           COMPASS     4009     A     
 COMPASS            ZR     B2,GCS4                                                         COMPASS     4010     A     
 COMPASS   GCS3     SB2    B2-B1       PACK CHARACTERS                                     COMPASS     4011     A     
 COMPASS            RJ     GETCH                                                           COMPASS     4012     A     
 COMPASS            RJ     STC                                                             COMPASS     4013     A     
 COMPASS            NZ     B2,GCS3                                                         COMPASS     4014     A     
 COMPASS   GCS4     SB2    A0                                                              COMPASS     4015     A     
 COMPASS            ZR     X4,GCS6     IF NO TRAILING FILL                                 COMPASS     4016     A     
 COMPASS                                                                                   COMPASS     4017     A     
 COMPASS   GCS5     SX4    X4+B1                                                           COMPASS     4018     A     
 COMPASS            BX6    X0          PACK TRAILING FILL CHARACTRRS                       COMPASS     4019     A     
 COMPASS            RJ     STC                                                             COMPASS     4020     A     
 COMPASS            NZ     X4,GCS5                                                         COMPASS     4021     A     
 COMPASS                                                                                   COMPASS     4022     A     
 COMPASS   GCS6     NZ     B2,GCS7     THROW AWAY TERMINATOR IN BRACKET CASE               COMPASS     4023     A     
 COMPASS            RJ     GETCH                                                           COMPASS     4024     A     
 COMPASS   GCS7     RJ     GETCH       THROW AWAY LAST CHARACTER                           COMPASS     4025     A     
 COMPASS            SA4    A5                                                              COMPASS     4026     A     
 COMPASS            IX3    X5-X4       CALCULATE WORD COUNT                                COMPASS     4027     A     
 COMPASS            SA2    SV                                                              COMPASS     4028     A     
 COMPASS            ZR     X2,GCS8     IF NO JUSTIFICATION                                 COMPASS     4029          I
          -F4820  
 COMPASS            ZR     X2,GCS9     IF NO JUSTIFICATION                                 F4820         74     A     
 COMPASS            SA2    FW                                                              COMPASS     4030     A     
 COMPASS            SX6    B3+B3                                                           COMPASS     4031          I
          -F4820  
 COMPASS            SA3    PPTYPE                                                          F4820         75     A     
 COMPASS            SX6    B3+B3       DATA CHARACTER COUNT * 4                            F4820         76     A     
 COMPASS            SX0    X6+B3                                                           COMPASS     4032     A     
 COMPASS            SA5    CT          CHARACTER TYPE SHIFT COUNT                          CPSA281       44     A     
 COMPASS            SX5    X5-45                                                           CPSA281       45     A     
 COMPASS            NZ     X5,GCS7A    IF NOT 8-BIT ASCII                                  CPSA281       46     A     
 COMPASS            LX0    X6,B1                                                           CPSA281       47     A     
 COMPASS   GCS7A    BSS    0                                                               CPSA281       48     A     
 COMPASS            IX0    X2-X0                                                           COMPASS     4033     A     
 COMPASS            SB7    X0                                                              COMPASS     4034     A     
 COMPASS            SA5    X4                                                              COMPASS     4035     A     
 COMPASS            LX6    B7,X5                                                           COMPASS     4036          I
          -F4820  
 COMPASS            SA6    A5                                                              COMPASS     4037          I
          -F4820  
 COMPASS            PL     B7,GCS8     IF NO TRUNCATION                                    COMPASS     4038          I
          -F4820  
 COMPASS            LX7    B7,X5                                                           F4820         77     A     
 COMPASS            SA7    A5                                                              F4820         78     A     
 COMPASS            PL     X3,GCS8     IF NOT HEX CHARACTERS                               F4820         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/28. 19.11.32.      PAGE 391    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX3    X3+2                                                            CPSA197        8     A     
 COMPASS            MI     X3,GCS8     IF NOT BCU/MCU                                      CPSA197        9     A     
 COMPASS            LX0    X6,B1                                                           F4820         80     A     
 COMPASS            IX0    X2-X0       SHIFT = FW - 8 * DATA CHARACTER COUNT               F4820         81     A     
 COMPASS            SB7    X0                                                              F4820         82     A     
 COMPASS            SB2    B7-48                                                           F4820         83     A     
 COMPASS            LX6    X5,B7                                                           F4820         84     A     
 COMPASS            MX7    12                                                              F4820         85     A     
 COMPASS            LX5    X5,B2                                                           F4820         86     A     
 COMPASS            LX7    X7,B2                                                           F4820         87     A     
 COMPASS            BX6    X7*X6                                                           F4820         88     A     
 COMPASS            BX7    -X7*X5                                                          F4820         89     A     
 COMPASS            BX6    X6+X7                                                           F4820         90     A     
 COMPASS            SA6    A5                                                              F4820         91     A     
 COMPASS   GCS8     PL     B7,GCS9     IF NO TRUNCATION                                    F4820         92     A     
 COMPASS            SX6    B1                                                              COMPASS     4039     A     
 COMPASS            SA6    W7ERR                                                           COMPASS     4040     A     
 COMPASS            SA6    EFLG                                                            COMPASS     4041     A     
 COMPASS   GCS8     SA2    SF                                                              COMPASS     4042          I
          -F4820  
 COMPASS   GCS9     SA2    SF                                                              F4820         93     A     
 COMPASS            ZR     X2,SCDX     EXIT IF NO JUSTIFICATION NECESSARY                  COMPASS     4043     A     
 COMPASS            SA2    FW                                                              COMPASS     4044     A     
 COMPASS            SB7    X2-60                                                           COMPASS     4045     A     
 COMPASS            ZR     B7,SCDX                                                         COMPASS     4046     A     
 COMPASS            MX6    1                                                               COMPASS     4047     A     
 COMPASS            SB7    B7+B1                                                           COMPASS     4048     A     
 COMPASS            LX6    X6,B7                                                           COMPASS     4049     A     
 COMPASS            SA5    X4                                                              COMPASS     4050     A     
 COMPASS            BX6    -X6*X5                                                          COMPASS     4051     A     
 COMPASS            SA6    X4                                                              COMPASS     4052     A     
 COMPASS            EQ     SCDX        EXIT                                                COMPASS     4053     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     4054     A     
 COMPASS  **        CCS - CALCULATE CHARACTER STRING.                                      COMPASS     4055     A     
 COMPASS  *         ENTRY  (B2) = CHARACTER COUNT.                                         COMPASS     4056     A     
 COMPASS  *                (X1) = ADDRESS FIELD FLAG - 1.                                  COMPASS     4057     A     
 COMPASS  *                (X6) = EXTRA CHARACTER FLAG.                                    F4820         94     A     
 COMPASS  *         EXIT   (X6) = (B2+NCHARS+X6)/NCHARS*NCHARS-B2.                         COMPASS     4058     A     
 COMPASS  *                (X3) = EFFECTIVE VALUE OF NCHARS.                               COMPASS     4059     A     
 COMPASS  *         SAVES  X1, B2, B3, B4, A0.                                             F4820         95     A     
 COMPASS                                                                                   COMPASS     4060     A     
 COMPASS                                                                                   COMPASS     4061     A     
 COMPASS   CCS2     PX6    X6          NCHARS = 10                                         COMPASS     4062          I
          -F4820  
 COMPASS            SA4    =0.10000001P48                                                  COMPASS     4063          I
          -F4820  
 COMPASS            FX7    X6*X4                                                           COMPASS     4064          I
          -F4820  
 COMPASS            UX5    B6,X7                                                           COMPASS     4065          I
          -F4820  
 COMPASS            IX4    X5+X5       MULTIPLY BY 10                                      COMPASS     4066          I
          -F4820  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 392    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX5    3                                                               COMPASS     4067          I
          -F4820  
 COMPASS            IX7    X5+X4                                                           COMPASS     4068          I
          -F4820  
 COMPASS            SX6    X7+B7                                                           COMPASS     4069          I
          -F4820  
 COMPASS            SX3    10                                                              COMPASS     4070          I
          -F4820  
 COMPASS   CCS2     BX4    X3                                                              F4820         96     A     
 COMPASS            IX7    X6/X4                                                           F4820         97     A     
 COMPASS            SB7    -B2                                                             F4820         98     A     
 COMPASS            DX6    X7*X3                                                           F4820         99     A     
 COMPASS            SX6    X6+B7                                                           F4820        100     A     
 COMPASS            SA5    CT                                                              CPSA281       49     A     
 COMPASS            SX5    X5-45                                                           CPSA281       50     A     
 COMPASS            NZ     X5,CCS      IF NOT 8-BIT ASCII                                  CPSA281       51     A     
 COMPASS            SX3    6           6 CHARACTERS PER WORD                               CPSA281       52     A     
 COMPASS            SX6    X6-4                                                            CPSA281       53     A     
 COMPASS                                                                                   COMPASS     4071     A     
 COMPASS   CCS      PS     0           ENTRY/EXIT                                          COMPASS     4072     A     
 COMPASS            MX7    0           CLEAR JUSTIFICATION                                 COMPASS     4073     A     
 COMPASS            SA7    SF                                                              COMPASS     4074     A     
 COMPASS            SA3    NCHARS                                                          COMPASS     4075     A     
 COMPASS            NG     X1,CCS1     IF NOT ADDRESS FIELD                                COMPASS     4076     A     
 COMPASS            SX3    10                                                              COMPASS     4077     A     
 COMPASS            SA4    PPTYPE                                                          F4820        101     A     
 COMPASS            PL     X4,CCS1                                                         F4820        102     A     
 COMPASS            SX4    X4+2                                                            CPSA197       10     A     
 COMPASS            MI     X4,CCS1     IF NOT BCU/MCU.                                     CPSA197       11     A     
 COMPASS            SX3    6                                                               F4820        103     A     
 COMPASS   CCS1     SX7    X6+B2                                                           COMPASS     4078     A     
 COMPASS            IX6    X7+X3                                                           COMPASS     4079     A     
 COMPASS            AX3    2           TRUNCATE TO MULTIPLE OF NCHARS                      COMPASS     4080          I
          -F4820  
 COMPASS            SB7    -B2                                                             COMPASS     4081          I
          -F4820  
 COMPASS            NZ     X3,CCS2     IF ADDRESS OR CENTRAL DATA                          COMPASS     4082          I
          -F4820  
 COMPASS            AX6    1                                                               COMPASS     4083          I
          -F4820  
 COMPASS            IX7    X6+X6                                                           COMPASS     4084          I
          -F4820  
 COMPASS            SX6    X7+B7                                                           COMPASS     4085          I
          -F4820  
 COMPASS            SX3    B1+B1                                                           COMPASS     4086          I
          -F4820  
 COMPASS            EQ     CCS         RETURN                                              COMPASS     4087          I
          -F4820  
 COMPASS            AX7    X3,B1       TRUNCATE TO MULTIPLE OF NCHARS                      F4820        104     A     
 COMPASS            SB7    -B2                                                             F4820        105     A     
 COMPASS            ZR     X7,CCS1.1   IF MCU DATA                                         F4820        106     A     
 COMPASS            AX7    1                                                               F4820        107     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 393    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X7,CCS2     IF ADDRESS OR CENTRAL DATA                          F4820        108     A     
 COMPASS            AX6    1                                                               F4820        109     A     
 COMPASS            IX6    X6+X6                                                           F4820        110     A     
 COMPASS   CCS1.1   SX6    X6+B7                                                           F4820        111     A     
 COMPASS            EQ     CCS         RETURN                                              F4820        112     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     4088     A     
 COMPASS  **        STC - STORE CHARACTER.                                                 COMPASS     4089     A     
 COMPASS  *         ENTRY  (X5) = STORE ADDRESS.                                           F4820        113          I
          -CPSA293
 COMPASS  *                                                                                CPSA293       35     A     
 COMPASS  *         ENTRY  (X3) = CHARACTER MASK FOR 6 OR 8 BIT CHARACTER.                 CPSA293       36     A     
 COMPASS  *                (X5) = STORE ADDRESS.                                           CPSA293       37     A     
 COMPASS  *                (X6) = CHARACTER TO BE STORED.                                  CPSA293       38     A     
 COMPASS  *                (X7) = ACCUMULATION WORD.                                       CPSA293       39     A     
 COMPASS  *                (B2) = DATA CHARACTER COUNT.                                    F4820        114     A     
 COMPASS  *                (B3) = LEADING FILL CHARACTER COUNT.                            F4820        115     A     
 COMPASS  *                (B4) = CHARACTER TYPE SHIFT.                                    F4820        116     A     
 COMPASS  *                (B5) = LIMITING WORD COUNT.                                     F4820        117     A     
 COMPASS  *                (B6) = EFFECTIVE CHARACTER COUNT.                               F4820        118     A     
 COMPASS  *                (B7) = CHARACTER COUNT.                                         F4820        119     A     
 COMPASS                                                                                   COMPASS     4090     A     
 COMPASS                                                                                   COMPASS     4091     A     
 COMPASS                                                                                   COMPASS     4092     A     
 COMPASS   STC1     SA7    X5          STORE COMPLETED WORD                                COMPASS     4093     A     
 COMPASS            SX5    X5+B1       INCREMENT STORE ADDRESS                             COMPASS     4094     A     
 COMPASS            MX7    0           CLEAR CUMULATING WORD                               COMPASS     4095     A     
 COMPASS                                                                                   COMPASS     4096     A     
 COMPASS   STC      PS     0           ENTRY/EXIT                                          COMPASS     4097          I
          -CPSA293
 COMPASS            LX7    6                                                               COMPASS     4098          I
          -CPSA293
 COMPASS            SB7    B7-B1       DECREMENT CHARACTER COUNT                           COMPASS     4099          I
          -CPSA293
 COMPASS            SA2    PPTYPE                                                          F4820        120          I
          -CPSA281
 COMPASS            MI     X6,STC2     IF 00 FILL - NO CONVERSION                          CMP64G         7          I
          -CPSA281
 COMPASS            SA1    X6+STCA     CONVERT TYPE                                        COMPASS     4100          I
          -CPSA281
 COMPASS   +        PL     X2,*+1      IF NOT 8-BIT DATA                                   F4820        121          I
          -CPSA197  -CPSA281
 COMPASS            PL     X2,STC3                                                         CPSA197       12          I
          -CPSA281
 COMPASS            SX2    X2+2                                                            CPSA197       13          I
          -CPSA281
 COMPASS            MI     X2,STC3     IF NOT BCU/MCU.                                     CPSA197       14          I
          -CPSA281
 COMPASS            LX7    2                                                               F4820        122          I
          -CPSA281
 COMPASS            NO                                                                     F4820        123          I
          -CPSA197  -CPSA281
 COMPASS   STC3     BSS    0                                                               CPSA197       15          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 394    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA281
 COMPASS            AX2    X1,B4                                                           COMPASS     4101          I
          -CPSA281
 COMPASS            BX6    -X3*X2                                                          COMPASS     4102          I
          -CPSA281
 COMPASS            MX2    0                                                               CPSA281       54          I
          -CPSA293
 COMPASS            SX1    B4-45                                                           CPSA281       55          I
          -CPSA293
 COMPASS            NZ     X1,STC3     IF NOT ASCII CONVERSION                             CPSA281       56          I
          -CPSA293
 COMPASS            LX7    2                                                               CPSA281       57          I
          -CPSA293
 COMPASS            SX2    ASC6T8                                                          CPSA281       58          I
          -CPSA293
 COMPASS   STC3     MI     X6,STC2                                                         CPSA281       59          I
          -CPSA293
 COMPASS   STC      EQ     *+1S17      ENTRY/EXIT                                          CPSA293       40     A     
 COMPASS                                                                                   CPSA293       41     A     
 COMPASS  *         THE FOLLOWING WORD *STC0* IS MODIFIED FROM VARIOUS PLACES TO           CPSA293       42     A     
 COMPASS  *         MAKE *STC* STORE EITHER 6 OR 8-BIT CHARACTERS, AND TO                  CPSA293       43     A     
 COMPASS  *         SELECTIVELY HANDLE ASCII CONVERSION.                                   CPSA293       44     A     
 COMPASS                                                                                   CPSA293       45     A     
 COMPASS   STC0     SX2    0           SET FOR NO ASCII CONVERSION                         CPSA293       46     A     
 COMPASS            LX7    6           SHIFT ASSEMBLY FOR 6-BIT CHARS                      CPSA293       47     A     
 COMPASS            SB7    B7-B1       DECREMENT CHARACTER COUNT                           CPSA293       48     A     
 COMPASS                                                                                   CPSA293       49     A     
 COMPASS            MI     X6,STC2                                                         CPSA293       50     A     
 COMPASS            SA1    X6+STCA                                                         CPSA281       60     A     
 COMPASS            AX1    X1,B4                                                           CPSA281       61     A     
 COMPASS            BX6    -X3*X1                                                          CPSA281       62     A     
 COMPASS            IX6    X6+X2                                                           CPSA281       63     A     
 COMPASS            BX7    X7+X6       OR IN CHARACTER                                     COMPASS     4103     A     
 COMPASS            NZ     B7,STC      RETURN IF NOT END OF WORD                           COMPASS     4104          I
          -CMP64G 
 COMPASS   STC2     NZ     B7,STC      RETURN IF NOT END OF WORD                           CMP64G         8     A     
 COMPASS            SA3    SI          COMPLEMENT ON SIGN                                  COMPASS     4105          I
          -CPSA293
 COMPASS            BX7    X7-X3                                                           COMPASS     4106          I
          -CPSA293
 COMPASS            SA1    SI          COMPLEMENT ON SIGN                                  CPSA293       51     A     
 COMPASS            BX7    X7-X1                                                           CPSA293       52     A     
 COMPASS            SB5    B5-B1                                                           COMPASS     4107     A     
 COMPASS            SB7    B6          RESET CHARACTER COUNTER                             COMPASS     4108     A     
 COMPASS            MX3    -6                                                              CPSA213       11          I
          -CPSA293
 COMPASS            SA2    PPTYPE                                                          CPSA213       12          I
          -CPSA293
 COMPASS            PL     X2,STC4                                                         CPSA213       13          I
          -CPSA293
 COMPASS            SX2    X2+2                                                            CPSA213       14          I
          -CPSA293
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 395    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     X2,STC4                                                         CPSA213       15          I
          -CPSA293
 COMPASS            MX3    -6                                                              COMPASS     4109          I
          -F4820  
 COMPASS            MX3    -8                                                              F4820        124          I
          -CPSA293
 COMPASS   STC4     BSS    0                                                               CPSA213       16          I
          -CPSA293
 COMPASS            PL     B5,STC1     IF STILL IN RANGE                                   COMPASS     4110     A     
 COMPASS            SX7    B1          SET A-ERROR                                         COMPASS     4111     A     
 COMPASS            SA7    EXERR                                                           COMPASS     4112     A     
 COMPASS            SA7    AERR                                                            COMPASS     4113     A     
 COMPASS            SA7    EFLG                                                            COMPASS     4114     A     
 COMPASS            MX7    0                                                               COMPASS     4115     A     
 COMPASS            EQ     STC         RETURN                                              COMPASS     4116     A     
 COMPASS                                                                                   CPSA293       53     A     
 COMPASS  *         CODE-MODIFICATION WORDS FOR *STC0*.                                    CPSA293       54     A     
 COMPASS                                                                                   CPSA293       55     A     
 COMPASS   STCW     SX2    0           SET FOR NO ASCII CONVERSION                         CPSA293       56     A     
 COMPASS            LX7    6           SHIFT ASSEMBLY FOR 6-BIT CHARS                      CPSA293       57     A     
 COMPASS            SB7    B7-B1       DECREMENT CHARACTER COUNT                           CPSA293       58     A     
 COMPASS                                                                                   CPSA293       59     A     
 COMPASS   STCX     SX2    0           SET FOR NO ASCII CONVERSION                         CPSA293       60     A     
 COMPASS            LX7    8           SHIFT ASSEMBLY FOR 8-BIT CHARS                      CPSA293       61     A     
 COMPASS            SB7    B7-B1       DECREMENT CHARACTER COUNT                           CPSA293       62     A     
 COMPASS                                                                                   CPSA293       63     A     
 COMPASS   STCZ     SX2    ASC6T8      SET FOR ASCII CONVERSION                            CPSA293       64     A     
 COMPASS            LX7    8           SHIFT ASSEMBLY FOR 8-BIT CHARS                      CPSA293       65     A     
 COMPASS            SB7    B7-B1       DECREMENT CHARACTER COUNT                           CPSA293       66     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     4117     A     
 COMPASS  **        CHAR - CHARACTER SET CODES.                                            COMPASS     4118     A     
 COMPASS  *         CHAR   A,B,C,D                                                         COMPASS     4119     A     
 COMPASS  *         ENTRY  (A) = DISPLAY CODE.                                             COMPASS     4120     A     
 COMPASS  *                (B) = EXTERNAL BCD.                                             COMPASS     4121     A     
 COMPASS  *                (C) = INTERNAL BCD.                                             COMPASS     4122     A     
 COMPASS  *                (D) = USASCII.                                                  COMPASS     4123     A     
 COMPASS                                                                                   COMPASS     4124     A     
 COMPASS                                                                                   COMPASS     4125     A     
 COMPASS            PURGMAC CHAR                                                           CPS011         6     A     
 COMPASS                                                                                   CPS011         7     A     
 COMPASS   CHAR     MACRO  A,B,C,D                                                         COMPASS     4126     A     
 COMPASS            CON    ;D;C;B;A                                                        COMPASS     4127          I
          -CPS011 
 COMPASS            CON    ;A;D;C;B;A                                                      CPS011         8          I
          -F4820  
 COMPASS            CON    ;A00;D00;C00;B00;A                                              F4820        125          I
          -CPSA281
 COMPASS            CON    ;D0;A0;D0;C0;B0;A                                               CPSA281       64     A     
 COMPASS            ENDM                                                                   COMPASS     4128     A     
 COMPASS                                                                                   CMP64G         9     A     
 COMPASS   CHAR*    MACRO  A,B,C,D     CHARACTERS OF SPECIAL INTEREST TO *SQUEEZE*         CMP64G        10     A     
 COMPASS            VFD    1/1,59D/;D;C;B;A                                                CMP64G        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/28. 19.11.32.      PAGE 396    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS011 
 COMPASS            CON    1S59+;A;D;C;B;A                                                 CPS011         9          I
          -F4820  
 COMPASS            CON    1S59+;A00;D00;C00;B00;A                                         F4820        126          I
          -CPSA281
 COMPASS            CON    1S59+;D0;A0;D0;C0;B0;A                                          CPSA281       65     A     
 COMPASS            ENDM                                                                   CMP64G        12     A     
 COMPASS   CHAR     SPACE  4                                                               COMPASS     4129     A     
 COMPASS            BASE   O                                                               COMPASS     4130     A     
 COMPASS   STCA     BSS    0                                                               COMPASS     4131     A     
 COMPASS            LOC    0                                                               COMPASS     4132     A     
 COMPASS                                                                                   COMPASS     4133     A     
 COMPASS            IFEQ   IP.CSET,IP.C63,2                                                CPS0328        7     A     
 COMPASS            CHAR*  00,20,60,00   UNDEFINED FOR 63 CSET --> SPACE                   CPS0328        8     A     
 COMPASS            SKIP   1                                                               CPS0328        9     A     
 COMPASS            CHAR   00,00,00,00 ZERO FILL                                           COMPASS     4134          I
          -CMP64G 
 COMPASS            CHAR*  00,00,12,32   COLON                                             CMP64G        13     A     
 COMPASS            CHAR   01,61,21,41 A                                                   COMPASS     4135     A     
 COMPASS            CHAR   02,62,22,42 B                                                   COMPASS     4136     A     
 COMPASS            CHAR   03,63,23,43 C                                                   COMPASS     4137     A     
 COMPASS            CHAR   04,64,24,44 D                                                   COMPASS     4138     A     
 COMPASS            CHAR   05,65,25,45 E                                                   COMPASS     4139     A     
 COMPASS            CHAR   06,66,26,46 F                                                   COMPASS     4140     A     
 COMPASS            CHAR   07,67,27,47 G                                                   COMPASS     4141     A     
 COMPASS            CHAR   10,70,30,50 H                                                   COMPASS     4142     A     
 COMPASS            CHAR   11,71,31,51 I                                                   COMPASS     4143     A     
 COMPASS            CHAR   12,41,41,52 J                                                   COMPASS     4144     A     
 COMPASS            CHAR   13,42,42,53 K                                                   COMPASS     4145     A     
 COMPASS            CHAR   14,43,43,54 L                                                   COMPASS     4146     A     
 COMPASS            CHAR   15,44,44,55 M                                                   COMPASS     4147     A     
 COMPASS            CHAR   16,45,45,56 N                                                   COMPASS     4148     A     
 COMPASS            CHAR   17,46,46,57 O                                                   COMPASS     4149     A     
 COMPASS            CHAR   20,47,47,60 P                                                   COMPASS     4150     A     
 COMPASS            CHAR   21,50,50,61 Q                                                   COMPASS     4151     A     
 COMPASS            CHAR   22,51,51,62 R                                                   COMPASS     4152     A     
 COMPASS            CHAR   23,22,62,63 S                                                   COMPASS     4153     A     
 COMPASS            CHAR   24,23,63,64 T                                                   COMPASS     4154     A     
 COMPASS            CHAR   25,24,64,65 U                                                   COMPASS     4155     A     
 COMPASS            CHAR   26,25,65,66 V                                                   COMPASS     4156     A     
 COMPASS            CHAR   27,26,66,67 W                                                   COMPASS     4157     A     
 COMPASS            CHAR   30,27,67,70 X                                                   COMPASS     4158     A     
 COMPASS            CHAR   31,30,70,71 Y                                                   COMPASS     4159     A     
 COMPASS            CHAR   32,31,71,72 Z                                                   COMPASS     4160     A     
 COMPASS            CHAR   33,12,00,20 0                                                   COMPASS     4161     A     
 COMPASS            CHAR   34,01,01,21 1                                                   COMPASS     4162     A     
 COMPASS            CHAR   35,02,02,22 2                                                   COMPASS     4163     A     
 COMPASS            CHAR   36,03,03,23 3                                                   COMPASS     4164     A     
 COMPASS            CHAR   37,04,04,24 4                                                   COMPASS     4165     A     
 COMPASS            CHAR   40,05,05,25 5                                                   COMPASS     4166     A     
 COMPASS            CHAR   41,06,06,26 6                                                   COMPASS     4167     A     
 COMPASS            CHAR   42,07,07,27 7                                                   COMPASS     4168     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 397    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CHAR   43,10,10,30 8                                                   COMPASS     4169     A     
 COMPASS            CHAR   44,11,11,31 9                                                   COMPASS     4170     A     
 COMPASS            CHAR   45,60,20,13 +                                                   COMPASS     4171     A     
 COMPASS            CHAR   46,40,40,15 -                                                   COMPASS     4172     A     
 COMPASS            CHAR   47,54,54,12 *                                                   COMPASS     4173     A     
 COMPASS            CHAR   50,21,61,17 /                                                   COMPASS     4174     A     
 COMPASS            CHAR   51,34,74,10 (                                                   COMPASS     4175     A     
 COMPASS            CHAR   52,74,34,11 )                                                   COMPASS     4176     A     
 COMPASS            CHAR   53,53,53,04 $                                                   COMPASS     4177     A     
 COMPASS            CHAR   54,13,13,35 =                                                   COMPASS     4178     A     
 COMPASS            CHAR   55,20,60,00                                                     COMPASS     4179          I
          -CMP64G 
 COMPASS            CHAR*  55,20,60,00   BLANK                                             CMP64G        14     A     
 COMPASS            CHAR   56,33,73,14 ,                                                   COMPASS     4180     A     
 COMPASS            CHAR   57,73,33,16 .                                                   COMPASS     4181     A     
 COMPASS            CHAR   60,36,76,03 # NUMBER                                            COMPASS     4182     A     
 COMPASS            CHAR   61,17,17,07 [ APOSTROPHE                                        COMPASS     4183          I
          -CMP069 
 COMPASS            CHAR   62,32,72,01 ] EXCLAMATION                                       COMPASS     4184          I
          -CMP069 
 COMPASS            CHAR   61,17,17,73 [ LEFT BRACKET                             P069  28 CMP069         5     A     
 COMPASS            CHAR   62,32,72,75 ] RIGHT BRACKET                            P069  29 CMP069         6     A     
 COMPASS            IFEQ   IP.CSET,IP.C63,2                                                CPS2628        7     A     
 COMPASS            CHAR*  63,00,12,32 : COLON                                             CPS2628        8     A     
 COMPASS            SKIP   1                                                               CPS2628        9     A     
 COMPASS            CHAR   63,16,16,05 : PERCENT                                           COMPASS     4185     A     
 COMPASS            CHAR   64,14,14,02 " QUOTE                                             COMPASS     4186     A     
 COMPASS            CHAR   65,35,75,77 _ UNDERLINE                                         COMPASS     4187     A     
 COMPASS            CHAR   66,52,52,75 ! RIGHT BRACE                                       COMPASS     4188          I
          -CMP069 
 COMPASS            CHAR   66,52,52,01 ! EXCLAMATION                              P069  31 CMP069         7     A     
 COMPASS            CHAR   67,37,77,06 & AMPERSAND                                         COMPASS     4189     A     
 COMPASS            CHAR   70,55,55,40 ' AMOUNT                                            COMPASS     4190          I
          -CMP069 
 COMPASS            CHAR   70,55,55,07 ' APOSTROPHE                               P069  33 CMP069         8     A     
 COMPASS            CHAR   71,56,56,37 ? QUESTION                                          COMPASS     4191     A     
 COMPASS            CHAR   72,72,32,73 < LEFT BRACE                                        COMPASS     4192          I
          -CMP069 
 COMPASS            CHAR   73,57,57,36 >                                                   COMPASS     4193          I
          -CMP069 
 COMPASS            CHAR   74,15,15,34 @ <                                                 COMPASS     4194          I
          -CMP069 
 COMPASS            CHAR   72,72,32,34 < LESS THAN                                P069  35 CMP069         9     A     
 COMPASS            CHAR   73,57,57,36 > GREATER THAN                             P069  36 CMP069        10     A     
 COMPASS            CHAR   74,15,15,40 @ AMOUNT                                   P069  37 CMP069        11     A     
 COMPASS            CHAR   75,75,35,74 \ REVERSE /                                         COMPASS     4195     A     
 COMPASS            CHAR   76,76,36,76 ^ HAT                                               COMPASS     4196     A     
 COMPASS            CHAR   77,77,37,33 ;                                                   COMPASS     4197          I
          -CMP64G 
 COMPASS            CHAR*  77,77,37,33 ; SEMICOLON OR FORMAL PARAMETER MARK                CMP64G        15     A     
 COMPASS                                                                                   COMPASS     4198     A     
 COMPASS            LOC    *O                                                              COMPASS     4199     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 398    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BASE   *                                                               COMPASS     4200     A     
 COMPASS            SPACE  4                                                               COMPASS     4201     A     
 COMPASS            QUAL                                                                   COMPASS     4202     A     
 COMPASS   SCD      EQU    /DATA/SCD                                                       COMPASS     4203     A     
 COMPASS   STCA     EQU    /DATA/STCA                                                      COMPASS     4204     A     
 COMPASS   CONADD   TITLE  LISTING SUBROUTINES.                                            COMPASS     4205     A     
 COMPASS  **        CONADD - CONVERT CROSS REFERENCE ADDRESS.                              COMPASS     4206     A     
 COMPASS  *         ENTRY (X1) = (18/X,17/ADDR,25/Y)                                       COMPASS     4207     A     
 COMPASS  *         EXIT  (X1) = (18/3R   ,36/ADDRESS,6/SEPERATOR)                         COMPASS     4208     A     
 COMPASS                                                                                   COMPASS     4209     A     
 COMPASS                                                                                   COMPASS     4210     A     
 COMPASS            USE    LIST                                                            CMP30       2051     A     
 COMPASS            SEG    LISTING SUBROUTINES.                                            COMPASS     4211     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     4212     A     
 COMPASS   CONADD   PS     0           RETURN EXIT                                         COMPASS     4213     A     
 COMPASS            AX1    25                                                              COMPASS     4214     A     
 COMPASS            MX0    60-17                                                           COMPASS     4215     A     
 COMPASS            BX1    -X0*X1                                                          COMPASS     4216     A     
 COMPASS            RJ     CONOCT      CONVERT ADDRESS                                     COMPASS     4217     A     
 COMPASS            BX1    X6                                                              COMPASS     4218     A     
 COMPASS            SA5    P2TEMP                                                          COMPASS     4219     A     
 COMPASS            LX6    6                                                               CMP042        74     A     
 COMPASS            ZR     X5,CONADD   IF END OF STRING                                    COMPASS     4220     A     
 COMPASS            SX5    B1                                                              COMPASS     4221     A     
 COMPASS            IX1    X6+X5       ADD SEPERATOR                                       COMPASS     4222     A     
 COMPASS            EQ     CONADD      RETURN                                              COMPASS     4223     A     
 COMPASS   CONOCT   SPACE  4                                                               COMPASS     4224          I
          -CMP042 
 COMPASS  **        CONOCT - CONVERT TO OCTAL.                                             COMPASS     4225          I
          -CMP042 
 COMPASS  *         ENTRY  (X1) = OCTAL NUMBER ( 18 BITS AT MOST).                         COMPASS     4226          I
          -CMP042 
 COMPASS  *         EXIT   (X6) = DPC FORM WITH 3 LEADING AND 1 TRAILING BLANK.            COMPASS     4227          I
          -CMP042 
 COMPASS                                                                                   COMPASS     4228          I
          -CMP042 
 COMPASS                                                                                   COMPASS     4229          I
          -CMP042 
 COMPASS   CONOCT1  BX3    -X0*X1                                                          COMPASS     4230          I
          -CMP042 
 COMPASS            AX1    3                                                               COMPASS     4231          I
          -CMP042 
 COMPASS            SX3    X3+1R0-1R                                                       COMPASS     4232          I
          -CMP042 
 COMPASS            LX3    X3,B7                                                           COMPASS     4233          I
          -CMP042 
 COMPASS            SB7    B7+6                                                            COMPASS     4234          I
          -CMP042 
 COMPASS            IX6    X6+X3                                                           COMPASS     4235          I
          -CMP042 
 COMPASS            NZ     X1,CONOCT1  LOOP                                                COMPASS     4236          I
          -CMP042 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 399    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     4237          I
          -CMP042 
 COMPASS   CONOCT   PS                 RETURN EXIT                                         COMPASS     4238          I
          -CMP042 
 COMPASS            MX0    -3                                                              COMPASS     4239          I
          -CMP042 
 COMPASS            SA2    =1H                                                             COMPASS     4240          I
          -CMP042 
 COMPASS            BX6    X2                                                              COMPASS     4241          I
          -CMP042 
 COMPASS            SB7    6                                                               COMPASS     4242          I
          -CMP042 
 COMPASS            EQ     CONOCT1                                                         COMPASS     4243          I
          -CMP042 
 COMPASS   CONREF   SPACE  4                                                               COMPASS     4244     A     
 COMPASS  **        CONREF - CONVERT PAGE AND LINE NUMBER.                                 COMPASS     4245     A     
 COMPASS  *         ENTRY  (X1) = (18/TABADD,17/LOCCTR,12/PAGE,7/LINE,6/LET)               COMPASS     4246     A     
 COMPASS  *         EXIT   (X1) = DPC FORM (30/PAGE,6/1H/,12/LINE,6/1L,6/LET)              COMPASS     4247     A     
 COMPASS                                                                                   COMPASS     4248     A     
 COMPASS                                                                                   COMPASS     4249     A     
 COMPASS   CONREF   PS     0           RETURN EXIT                                         COMPASS     4250     A     
 COMPASS            BX5    X1                                                              COMPASS     4251     A     
 COMPASS            LX1    -13                                                             COMPASS     4252     A     
 COMPASS            MX0    60-12                                                           COMPASS     4253     A     
 COMPASS            BX6    X0*X1                                                           COMPASS     4254     A     
 COMPASS            AX6    -7                                                              COMPASS     4255     A     
 COMPASS            BX1    -X0*X1      CONVERT PAGE                                        COMPASS     4256     A     
 COMPASS            MX0    -7                                                              COMPASS     4257     A     
 COMPASS            BX6    -X0*X6                                                          COMPASS     4258     A     
 COMPASS            SB7    X6-PAGESIZ+1                                                    COMPASS     4259          I
          -F4810A 
 COMPASS            SA2    CP.PS       PAGE SIZE                                   F4810A  F4810A       150     A     
 COMPASS            IX2    X6-X2       CHECK IF AT START OF PAGE                   F4810A  F4810A       151     A     
 COMPASS            SB7    X2+B1                                                   F4810A  F4810A       152     A     
 COMPASS            NG     B7,CONREF1  IF NOT START OF PAGE                                COMPASS     4260     A     
 COMPASS            SX1    X1+B1                                                           COMPASS     4261     A     
 COMPASS            SX6    B1+B1                                                           COMPASS     4262     A     
 COMPASS   CONREF1  SA6    CONREFA                                                         COMPASS     4263     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     4264     A     
 COMPASS            SA1    A6          CONVERT LINE                                        COMPASS     4265     A     
 COMPASS            LX6    30                                                              COMPASS     4266     A     
 COMPASS            MX0    42                                                              COMPASS     4267     A     
 COMPASS            LX0    12                                                              COMPASS     4268     A     
 COMPASS            BX6    X0*X6                                                           COMPASS     4269     A     
 COMPASS            SA6    A6                                                              COMPASS     4270     A     
 COMPASS            SX1    X1-1                                                            COMPASS     4271     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     4272     A     
 COMPASS            NE     B2,B6,CONREF2   JUMP IF NOT 1-DIGIT LINE NUMBER                 COMPASS     4273     A     
 COMPASS            SX6    X6-2200B        ADD LEADING ZERO                                COMPASS     4274     A     
 COMPASS   CONREF2  SA1    CONREFA                                                         COMPASS     4275     A     
 COMPASS            SX6    X6-050000B                                                      COMPASS     4276     A     
 COMPASS            MX0    42                                                              COMPASS     4277     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 400    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    -X0*X6                                                          COMPASS     4278     A     
 COMPASS            LX6    12                                                              COMPASS     4279     A     
 COMPASS            IX6    X6+X1                                                           COMPASS     4280     A     
 COMPASS            MX0    54                                                              COMPASS     4281     A     
 COMPASS            BX6    X0*X6                                                           COMPASS     4282     A     
 COMPASS            BX1    -X0*X5                                                          COMPASS     4283     A     
 COMPASS            IX1    X6+X1                                                           COMPASS     4284     A     
 COMPASS            EQ     CONREF      RETURN                                              COMPASS     4285     A     
 COMPASS                                                                                   COMPASS     4286     A     
 COMPASS   CONREFA  DATA   0                                                               COMPASS     4287     A     
 COMPASS   CPL      SPACE  4                                                               COMPASS     4288     A     
 COMPASS  **        CPL - CREATE PRINT LINE.                                               COMPASS     4289     A     
 COMPASS                                                                                   COMPASS     4290     A     
 COMPASS                                                                                   COMPASS     4291     A     
 COMPASS   CPL      PS                 RETURN EXIT                                         COMPASS     4292     A     
 COMPASS            SA2    PLFLG                                                           COMPASS     4293     A     
 COMPASS            NZ     X2,CPL      IF PRINT LINE READY                                 COMPASS     4294     A     
 COMPASS            SX6    B1                                                              COMPASS     4295     A     
 COMPASS            SA6    A2                                                              COMPASS     4296     A     
 COMPASS            SA3    CCT         SET LISTING CARD COUNT                              COMPASS     4297     A     
 COMPASS            SA1    LINE-1      CREATE PRINT LINE                                   COMPASS     4298     A     
 COMPASS            BX7    X3                                                              COMPASS     4299     A     
 COMPASS            LX6    X1                                                              COMPASS     4300     A     
 COMPASS            SA7    LCCT                                                            COMPASS     4301     A     
 COMPASS            SB2    6                                                               COMPASS     4302     A     
 COMPASS            SA5    =20600000000000000056B                                          COMPASS     4303     A     
 COMPASS            SA4    =20660000000000000000B                                          COMPASS     4304     A     
 COMPASS            SA2    SEQ-1                                                           COMPASS     4305     A     
 COMPASS            SA6    A1                                                              COMPASS     4306     A     
 COMPASS            SB5    X3                                                              COMPASS     4307     A     
 COMPASS            UX6    B7,X4                                                           COMPASS     4308     A     
 COMPASS            SB6    B2                                                              COMPASS     4309     A     
 COMPASS            SA1    CARD                                                            COMPASS     4310     A     
 COMPASS   CPL1     LX3    X1,B7       ASSEMBLE CHARACTERS                                 COMPASS     4311     A     
 COMPASS            SB7    B7-B2                                                           COMPASS     4312     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4313     A     
 COMPASS            BX6    X6+X3                                                           COMPASS     4314     A     
 COMPASS            PL     B7,CPL1     LOOP FOR 10 CHARACTERS                              COMPASS     4315     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     4316     A     
 COMPASS            SB6    B6-B1                                                           COMPASS     4317     A     
 COMPASS            UX6    B7,X4                                                           COMPASS     4318     A     
 COMPASS            PL     B6,CPL1     LOOP FOR 70 CHARACTERS                              COMPASS     4319     A     
 COMPASS            LX3    X1,B2                                                           COMPASS     4320     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4321     A     
 COMPASS            BX6    X3+X1                                                           COMPASS     4322     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     4323     A     
 COMPASS            LX6    48                                                              COMPASS     4324     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4325     A     
 COMPASS            IX7    X6+X2                                                           COMPASS     4326     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     4327     A     
 COMPASS            BX6    X2                                                              COMPASS     4328     A     
 COMPASS            SB5    B5-B1                                                           COMPASS     4329     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 401    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A6+B1                                                           COMPASS     4330     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     4331     A     
 COMPASS            SB6    B2                                                              COMPASS     4332     A     
 COMPASS            UX6    B7,X5                                                           COMPASS     4333     A     
 COMPASS            LX6    54                                                              COMPASS     4334     A     
 COMPASS            NZ     B5,CPL1     LOOP FOR CONTINUATION CARDS                         COMPASS     4335     A     
 COMPASS            SX6    A6+B1                                                           COMPASS     4336     A     
 COMPASS            SA6    LLINE                                                           COMPASS     4337     A     
 COMPASS            SA5    AMODE                                                           COMPASS     4338          I
          -CMP24  
 COMPASS            ZR     X5,CPL      IF NOT MODIFY                                       COMPASS     4339          I
          -CMP24  
 COMPASS            SA1    SEQ+1       CONVERT SEQUENCE NUMBER                             COMPASS     4340          I
          -CMP24  
 COMPASS            SA2    =40404040404040404040B                                          COMPASS     4341          I
          -CMP24  
 COMPASS            SA5    SEQ                                                             CMP24         39     A     
 COMPASS            SA1    CCT                                                             CMP24         40     A     
 COMPASS            NZ     X5,CPL      IF NOT MODIFY-STYLE SEQUENCE FIELD                  CMP24         41     A     
 COMPASS            SA5    A5+B1                                                           CMP24         42     A     
 COMPASS            SB3    LINE+7                                                          CMP24         43     A     
 COMPASS            SB4    X1                                                              CMP24         44     A     
 COMPASS   CPL2     SA2    =40404040404040404040B                                          CMP24         45     A     
 COMPASS            MX0    42          BLANK FILL NAME                                     COMPASS     4342     A     
 COMPASS            BX5    X0*X1                                                           COMPASS     4343          I
          -CMP24  
 COMPASS            BX1    -X0*X1                                                          COMPASS     4344          I
          -CMP24  
 COMPASS            BX1    -X0*X5                                                          CMP24         46     A     
 COMPASS            BX5    X0*X5                                                           CMP24         47     A     
 COMPASS            MX0    48                                                              COMPASS     4345     A     
 COMPASS            IX7    X0+X5                                                           COMPASS     4346     A     
 COMPASS            BX7    -X7+X5                                                          COMPASS     4347          I
          -CMP041 
 COMPASS            BX7    -X5*X7                                                          CMP041         1     A     
 COMPASS            BX7    X2*X7                                                           COMPASS     4348     A     
 COMPASS            LX6    X7                                                              COMPASS     4349     A     
 COMPASS            SA2    =8L                                                             CMP24         48     A     
 COMPASS            LX7    60-5                                                            COMPASS     4350     A     
 COMPASS            SA2    =8L                                                             COMPASS     4351          I
          -CMP24  
 COMPASS            SA3    B3                                                              CMP24         49     A     
 COMPASS            IX7    X6-X7                                                           COMPASS     4352     A     
 COMPASS            BX7    X6+X7                                                           COMPASS     4353     A     
 COMPASS            BX6    -X7*X2                                                          COMPASS     4354          I
          -CMP041 
 COMPASS            BX6    X7*X2                                                           CMP041         2     A     
 COMPASS            BX6    X6+X5                                                           CMP041         3     A     
 COMPASS            LX6    -12                                                             CMP041         4     A     
 COMPASS            BX6    X6+X5                                                           COMPASS     4355          I
          -CMP17  
 COMPASS            LX6    60-12                                                           COMPASS     4356          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 402    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            SA6    A1                                                              COMPASS     4357          I
          -CMP17  
 COMPASS            BX5    X6+X5                                                           CMP17          8          I
          -CMP24  
 COMPASS            LX5    -12                                                             CMP17          9          I
          -CMP24  
 COMPASS            RJ     CONDEC                                                          COMPASS     4358          I
          -CMP24  
 COMPASS            SA1    SEQ+1                                                           COMPASS     4359          I
          -CMP24    -CMP17  
 COMPASS            LX6    24                                                              COMPASS     4360          I
          -CMP24  
 COMPASS            SA2    CCT                                                             COMPASS     4361          I
          -CMP24  
 COMPASS            SA3    LINE+7      STORE SEQUENCE AND NAME                             COMPASS     4362          I
          -CMP24  
 COMPASS   CPL3     BX7    X3+X1                                                           COMPASS     4363          I
          -CMP24    -CMP17  
 COMPASS   CPL3     BX7    X3+X5                                                           CMP17         10          I
          -CMP24  
 COMPASS            SA7    A3                                                              COMPASS     4364          I
          -CMP24  
 COMPASS            SA6    A3+B1                                                           COMPASS     4365          I
          -CMP24  
 COMPASS            SA3    A3+9                                                            COMPASS     4366          I
          -CMP24  
 COMPASS            SX2    X2-1                                                            COMPASS     4367          I
          -CMP24  
 COMPASS            ZR     X2,CPL      IF END OF SEQUENCE FIELDS                           COMPASS     4368          I
          -CMP24  
 COMPASS            EQ     CPL3        LOOP                                                COMPASS     4369          I
          -CMP24  
 COMPASS            BX6    X3+X6                                                           CMP24         50     A     
 COMPASS            SA6    A3          STORE NAME IN COLUMNS 73-79, BLANK IN 80            CMP24         51     A     
 COMPASS            RJ     CONDEC      CONVERT NUMBER                                      CMP24         52     A     
 COMPASS            LX6    24                                                              CMP24         53     A     
 COMPASS            SA5    A5+2                                                            CMP24         54     A     
 COMPASS            SA6    B3+B1       STORE NUMBER IN COLUMNS 81-86,                      CMP24         55     A     
 COMPASS            SB4    B4-B1       BLANKS IN COLUMNS 87-90                             CMP24         56     A     
 COMPASS            SB3    B3+9                                                            CMP24         57     A     
 COMPASS            NZ     B4,CPL2     LOOP IF CONTINUATION CARDS                          CMP24         58     A     
 COMPASS            EQ     CPL                                                             CMP24         59     A     
 COMPASS   CUL      SPACE  4                                                               COMPASS     4370     A     
 COMPASS  **        CUL - CLEAN UP LISTING AREA.                                           COMPASS     4371     A     
 COMPASS                                                                                   COMPASS     4372     A     
 COMPASS                                                                                   COMPASS     4373     A     
 COMPASS   CUL      PS                 RETURN EXIT                                         COMPASS     4374     A     
 COMPASS            SA1    DLFLG                                                           COMPASS     4375     A     
 COMPASS            NZ     X1,CUL1     IF DEFERRED LIST IN EFFECT                          COMPASS     4376     A     
 COMPASS            SX6    B1                                                              COMPASS     4377     A     
 COMPASS            SA6    LCCT                                                            COMPASS     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/28. 19.11.32.      PAGE 403    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    DETFLG                                                          COMPASS     4379     A     
 COMPASS            SA6    PLFLG                                                           F4820        127     A     
 COMPASS            SA1    =1H         CLEAR LINE                                          COMPASS     4380     A     
 COMPASS            SX2    LINE                                                            COMPASS     4381     A     
 COMPASS            SA3    LLINE                                                           COMPASS     4382     A     
 COMPASS            RJ     PRESET                                                          COMPASS     4383     A     
 COMPASS   CUL1     SX6    1R          CLEAR OCTAL AREA TO BLANKS                          COMPASS     4384     A     
 COMPASS            SA6    OCTAL                                                           COMPASS     4385     A     
 COMPASS            BX7    X6                                                              COMPASS     4386     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     4387     A     
 COMPASS            SB7    40/2-1                                                          COMPASS     4388     A     
 COMPASS   CUL2     SB7    B7-B1                                                           COMPASS     4389     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     4390     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     4391     A     
 COMPASS            NZ     B7,CUL2     LOOP                                                COMPASS     4392     A     
 COMPASS            EQ     CUL         RETURN                                              COMPASS     4393     A     
 COMPASS   LBL      SPACE  4                                                               COMPASS     4394     A     
 COMPASS  **        LBL - LIST BLANK LINE.                                                 COMPASS     4395     A     
 COMPASS  *         ENTRY  (X0) = NUMBER OF LINES TO LIST.                                 COMPASS     4396     A     
 COMPASS                                                                                   COMPASS     4397     A     
 COMPASS                                                                                   COMPASS     4398     A     
 COMPASS   LBL      PS                 RETURN EXIT                                         COMPASS     4399     A     
 COMPASS            SA2    O                                                               COMPASS     4400          I
          -CMP30  
 COMPASS            SA2    CP.LISTF                                                        CMP30       2052     A     
 COMPASS            SA1    LPCNT                                                           COMPASS     4401     A     
 COMPASS            ZR     X2,LBL      IF NO LONG OUTPUT                                   COMPASS     4402     A     
 COMPASS            SX0    X0                                                              COMPASS     4403     A     
 COMPASS            IX6    X1+X0                                                           COMPASS     4404     A     
 COMPASS            NG     X0,LBL      IF < 0 LINES                                        COMPASS     4405     A     
 COMPASS            SX2    A2                                                              COMPASS     4406          I
          -CMP30  
 COMPASS            SB7    X6-PAGESIZ                                                      COMPASS     4407          I
          -F4810A 
 COMPASS            SA2    CP.PS       PAGE SIZE                                   F4810A  F4810A       153     A     
 COMPASS            IX2    X6-X2       CHECK IF EJECT                              F4810A  F4810A       154     A     
 COMPASS            SA6    A1                                                              COMPASS     4408     A     
 COMPASS            PL     B7,LBL      IF EJECT                                            COMPASS     4409          I
          -F4810A 
 COMPASS            PL     X2,LBL      IF EJECT                                    F4810A  F4810A       155     A     
 COMPASS                                                                                   CMP30       2053     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2054     A     
 COMPASS                                                                                   CMP30       2055     A     
 COMPASS   LBL1     ZR     X0,LBL      IF END OF BLANK LINES                               COMPASS     4410     A     
 COMPASS            WRITEW X2,(=2L  ),1                                                    COMPASS     4411          I
          -CMP30  
 COMPASS            WRITEW O,(=2L  ),1                                                     CMP30       2056     A     
 COMPASS            SX0    X0-1                                                            COMPASS     4412     A     
 COMPASS                                                                                   CMP30       2057     A     
 COMPASS   RM       ELSE                                                                   CMP30       2058     A     
 COMPASS                                                                                   CMP30       2059     A     
 COMPASS            SX6    X0                                                              CMP30       2060     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 404    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LBL1     ZR     X6,LBL      IF END OF BLANK LINES                               CMP30       2061     A     
 COMPASS            SA6    T6RM1                                                           CMP30       2062     A     
 COMPASS            PUT    O,BLANKS,10                                                     CMP30       2063     A     
 COMPASS            SA2    T6RM1                                                           CMP30       2064     A     
 COMPASS            SX6    X2-1                                                            CMP30       2065     A     
 COMPASS                                                                                   CMP30       2066     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2067     A     
 COMPASS                                                                                   CMP30       2068     A     
 COMPASS            EQ     LBL1        LOOP                                                COMPASS     4413     A     
 COMPASS   LDL      SPACE  4                                                               COMPASS     4414     A     
 COMPASS  **        LDL - LIST DEFERRED LINE.                                              COMPASS     4415     A     
 COMPASS                                                                                   COMPASS     4416     A     
 COMPASS                                                                                   COMPASS     4417     A     
 COMPASS   LDL      PS                 RETURN EXIT                                         COMPASS     4418     A     
 COMPASS            SA1    DLFLG                                                           COMPASS     4419     A     
 COMPASS            ZR     X1,LDL      IF NO DEFERRED LIST                                 COMPASS     4420     A     
 COMPASS            SA2    EFLG                                                            COMPASS     4421     A     
 COMPASS            ZR     X2,LDL1     IF NO ERROR FLAG                                    COMPASS     4422     A     
 COMPASS            SX7    B1                                                              COMPASS     4423     A     
 COMPASS            SA7    FLIST                                                           COMPASS     4424     A     
 COMPASS            RJ     LISTER                                                          COMPASS     4425     A     
 COMPASS   LDL1     SX6    B0                                                              COMPASS     4426     A     
 COMPASS            SA6    DLFLG                                                           COMPASS     4427     A     
 COMPASS            SX7    B1                                                              COMPASS     4428     A     
 COMPASS            SA7    FLIST                                                           COMPASS     4429     A     
 COMPASS            RJ     LISTER                                                          COMPASS     4430     A     
 COMPASS            MX6    0           CLEAR DETAIL FLAG                                   COMPASS     4431     A     
 COMPASS            SA6    DETFLG                                                          COMPASS     4432     A     
 COMPASS            EQ     LDL         RETURN                                              COMPASS     4433     A     
 COMPASS   LEL      SPACE  4                                                               COMPASS     4434     A     
 COMPASS  **        LEL - LIST ERROR LINE.                                                 COMPASS     4435     A     
 COMPASS                                                                                   COMPASS     4436     A     
 COMPASS                                                                                   COMPASS     4437     A     
 COMPASS   LEL2     RJ     LTX         LIST TEXT                                           CMP30       2069     A     
 COMPASS                                                                                   CMP30       2070     A     
 COMPASS   LEL      PS                 RETURN EXIT                                         COMPASS     4438     A     
 COMPASS            SA1    CP.LISTF                                                        CMP30       2071     A     
 COMPASS            ZR     X1,LEL1     IF NO FULL LIST                                     CMP30       2072     A     
 COMPASS            SA3    O                                                               COMPASS     4439     A     
 COMPASS            SA1    LPCNT                                                           COMPASS     4440     A     
 COMPASS            SX7    PGCNT                                                           COMPASS     4441     A     
 COMPASS            RJ     LHD                                                             COMPASS     4442     A     
 COMPASS   LEL1     SA3    E                                                               CMP30       2073     A     
 COMPASS            SX0    B0                                                              COMPASS     4443     A     
 COMPASS            SA3    E                                                               COMPASS     4444          I
          -CMP30  
 COMPASS            ZR     X3,LEL1     IF NO ERROR FILE                                    COMPASS     4445          I
          -CMP30  
 COMPASS            ZR     X3,LEL2     IF NO ERROR FILE                                    CMP30       2074     A     
 COMPASS            SA1    ELCNT       LIST HEADER                                         COMPASS     4446     A     
 COMPASS            SX7    EPCNT                                                           COMPASS     4447     A     
 COMPASS            RJ     LHD                                                             COMPASS     4448     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 405    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX0    E                                                               COMPASS     4449     A     
 COMPASS   LEL1     RJ     LTX         LIST TEXT                                           COMPASS     4450          I
          -CMP30  
 COMPASS            EQ     LEL         RETURN                                              COMPASS     4451          I
          -CMP30  
 COMPASS            EQ     LEL2                                                            CMP30       2075     A     
 COMPASS   LHD      SPACE  4                                                               COMPASS     4452     A     
 COMPASS  **        LHD - LIST HEADER LINE.                                                COMPASS     4453     A     
 COMPASS  *         ENTRY  (A1) = LINE COUNT ADDRESS.                                      COMPASS     4454     A     
 COMPASS  *                (X1) = LINE COUNT.                                              COMPASS     4455     A     
 COMPASS  *                (A3) = FET ADDRESS.                                             COMPASS     4456     A     
 COMPASS  *                (X3) = 0 IF NO LIST.                                            COMPASS     4457          I
          -CMP30  
 COMPASS  *                (X7) = PAGE NUMBER ADDRESS.                                     COMPASS     4458     A     
 COMPASS                                                                                   COMPASS     4459     A     
 COMPASS                                                                                   COMPASS     4460     A     
 COMPASS   LHD      PS                 RETURN EXIT                                         COMPASS     4461     A     
 COMPASS            MX2    6                                                               CPSA142       43     A     
 COMPASS            SA5    TITBUF      FIRST WORD OF HEADER                                CPSA142       44     A     
 COMPASS            BX6    -X2*X5                                                          CPSA142       45     A     
 COMPASS            SX2    A3-E                                                            CPSA142       46     A     
 COMPASS            SA4    LONGEJ      LONG EJECT CARRIAGE CONTROL CHARACTER               CPSA142       47     A     
 COMPASS            NZ     X2,LHD0     IF LONG LIST HEADER BEING PRINTED                   CPSA142       48     A     
 COMPASS            SA2    CP.EPAG                                                         CPSA142       49     A     
 COMPASS            SX2    X2          LOWER 18 BITS                                       CPSA142       50          I
          -CPS236 
 COMPASS            ZR     X2,LHD0     IF ERROR FILE NOT WRITTEN ON YET                    CPSA142       51          I
          -CPS236 
 COMPASS            LX2    B1                                                              CPS236        25     A     
 COMPASS            PL     X2,LHD0     TEST *WRITTEN TO* FLAG (BIT 58)                     CPS236        26     A     
 COMPASS            SA4    SHORTEJ     SHORT EJECT CARRIAGE CONTROL CHARACTER              CPSA142       52     A     
 COMPASS   LHD0     BX6    X4+X6       OR IN CARRIAGE CONTROL CHARACTER                    CPSA142       53     A     
 COMPASS            SA6    A5                                                              CPSA142       54     A     
 COMPASS            ZR     X3,LHD      IF NO LIST                                          COMPASS     4462          I
          -CMP30  
 COMPASS            SA2    LCCT        INCREMENT LINE NUMBER                               COMPASS     4463     A     
 COMPASS            IX6    X2+X1                                                           COMPASS     4464     A     
 COMPASS            SA6    A1                                                              COMPASS     4465     A     
 COMPASS            SB7    X6-PAGESIZ  CHECK FOR END OF PAGE                               COMPASS     4466          I
          -F4810A 
 COMPASS            NG     B7,LHD      IF NOT END OF PAGE                                  COMPASS     4467          I
          -F4810A 
 COMPASS            SA4    CP.PS       PAGE SIZE                                   F4810A  F4810A       156     A     
 COMPASS            IX4    X6-X4                                                   F4810A  F4810A       157     A     
 COMPASS            NG     X4,LHD      IF NOT AT END OF PAGE                       F4810A  F4810A       158     A     
 COMPASS            SX6    X2+2        RESET LINE NUMBER                                   COMPASS     4468     A     
 COMPASS            SA6    A1                                                              COMPASS     4469     A     
 COMPASS            SX6    A3          SAVE FET ADDRESS                                    COMPASS     4470     A     
 COMPASS            SA6    LHDA                                                            COMPASS     4471     A     
 COMPASS            SA7    A6+B1       SAVE PAGE NUMBER ADDRESS                            COMPASS     4472     A     
 COMPASS            SX6    X6-E                                                            COMPASS     4473     A     
 COMPASS            ZR     X6,LHD1     IF ERROR FILE                                       COMPASS     4474     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 406    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     PET         PROCESS ERROR TABLE                                 COMPASS     4475     A     
 COMPASS   LHD1     SA2    LHDA+1      INCREMENT PAGE NUMBER                               COMPASS     4476     A     
 COMPASS            SA1    X2                                                              COMPASS     4477     A     
 COMPASS            SX6    X1+B1                                                           COMPASS     4478     A     
 COMPASS            SA6    X2                                                              COMPASS     4479     A     
 COMPASS            SX1    X1+B1       CONVERT PAGE NUMBER                                 COMPASS     4480     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     4481     A     
 COMPASS            SX1    X6-3H  1                                                        COMPASS     4482          I
          -CMP27  
 COMPASS            LX6    24                                                              COMPASS     4483     A     
 COMPASS            SA6    PAGENO                                                          COMPASS     4484     A     
 COMPASS            ZR     X1,LHD2     IF PAGE 1                                           COMPASS     4485          I
          -CMP27  
 COMPASS            CLOCK  TIME                                                            COMPASS     4486          I
          -CMP27  
 COMPASS   LHD2     SA2    LHDA                                                            COMPASS     4487          I
          -CMP27  
 COMPASS            SA2    LHDA                                                            CMP27          6     A     
 COMPASS                                                                                   CMP30       2076     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       2077          I
          -F4810A 
 COMPASS   RM       IFEQ   CP#RM,0                                                 F4810A  F4810A       159          I
          -CPSA266
 COMPASS   RM       IFNE   CP#RM,7                                                         CPSA266        8     A     
 COMPASS                                                                           F4810A  F4810A       160     A     
 COMPASS            SX6    X2-E        DECIDE WHICH FILE WE ARE WRITING TO.                CPS236        27     A     
 COMPASS            SA5    CP.EPAG                                                         CPS236        28     A     
 COMPASS            ZR     X6,LHD1X                                                        CPS236        29     A     
 COMPASS            SA5    CP.PAGE                                                         CPS236        30     A     
 COMPASS   LHD1X    LX6    X5,B1       TEST *WRITTEN TO* FLAG (BIT 58).                    CPS236        31     A     
 COMPASS            MI     X6,LDH1A    IF WRITTEN TO, DO NOT PRINT PD CONTROL.             CPS236        32     A     
 COMPASS            MX0    1                                                               CPS236        33     A     
 COMPASS            LX0    -1                                                              CPS236        34     A     
 COMPASS            BX6    X0+X5                                                           CPS236        35     A     
 COMPASS            SA6    A5          SET *WRITTEN TO* FLAG (BIT 58)                      CPS236        36     A     
 COMPASS            RJ     STF         SET TERMINAL FILE                                   CPSA265       49     A     
 COMPASS            ZR     X6,LDH1A    IF TERMINAL FILE                                    CPSA265       50     A     
 COMPASS            SA1    FRSTLIN                                                 F4810A  F4810A       161     A     
 COMPASS            ZR     X1,LDH1A    IF NO NEED TO RESET PRINTER DENSITY         F4810A  F4810A       162     A     
 COMPASS            WRITEH X2,FRSTLIN,1 ELSE RESET PRINTER DENSITY                 F4810A  F4810A       163     A     
 COMPASS            MX6    60                                                      F4810A  F4810A       164          I
          -CPS236 
 COMPASS            SA6    FRSTLIN     -0 INDICATES THAT PRINTER HAS BEEN RESET    F4810A  F4810A       165          I
          -CPS236 
 COMPASS   LDH1A    BSS    0                                                       F4810A  F4810A       166     A     
 COMPASS            WRITEH X2,TITBUF,PAGENO+1-TITBUF                                       COMPASS     4488     A     
 COMPASS            ELSE   2                                                               CMP30       2078          I
          -F4810A 
 COMPASS                                                                           F4810A  F4810A       167     A     
 COMPASS   RM       ELSE                                                           F4810A  F4810A       168     A     
 COMPASS                                                                           F4810A  F4810A       169     A     
 COMPASS            SX6    X2-E        DECIDE WHICH FILE WE ARE WRITING TO.                CPS236        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/28. 19.11.32.      PAGE 407    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA5    CP.EPAG                                                         CPS236        38     A     
 COMPASS            ZR     X6,LHD1X                                                        CPS236        39     A     
 COMPASS            SA5    CP.PAGE                                                         CPS236        40     A     
 COMPASS   LHD1X    LX6    X5,B1       TEST *WRITTEN TO* FLAG (BIT 58).                    CPS236        41     A     
 COMPASS            MI     X6,LDH1A    IF WRITTEN TO, DO NOT PRINT PD CONTROL.             CPS236        42     A     
 COMPASS            MX0    1                                                               CPS236        43     A     
 COMPASS            LX0    -1                                                              CPS236        44     A     
 COMPASS            BX6    X0+X5                                                           CPS236        45     A     
 COMPASS            SA6    A5          SET *WRITTEN TO* FLAG (BIT 58)                      CPS236        46     A     
 COMPASS            RJ     STF                                                             CPSA265       51          I
          -CPSA266
 COMPASS            ZR     X6,LDH1A    IF TERMINAL FILE                                    CPSA265       52          I
          -CPSA266
 COMPASS            SA1    FRSTLIN     CHECK IF NEED TO RESET PRINTER DENSITY      F4810A  F4810A       170     A     
 COMPASS            ZR     X1,LDH1A    IF NOT                                      F4810A  F4810A       171     A     
 COMPASS            PUT    X2,FRSTLIN,10 RESET PRINTER DENSITY                     F4810A  F4810A       172     A     
 COMPASS            MX6    60                                                      F4810A  F4810A       173          I
          -CPS236 
 COMPASS            SA6    FRSTLIN     -0 INDICATES THAT PRINTER HAS BEEN RESET    F4810A  F4810A       174          I
          -CPS236 
 COMPASS   LDH1A    BSS    0                                                       F4810A  F4810A       175     A     
 COMPASS   L.       SET    PAGENO+1-TITBUF                                                 CMP30       2079     A     
 COMPASS            PUT    X2,TITBUF,L.*10                                                 CMP30       2080     A     
 COMPASS                                                                           F4810A  F4810A       176     A     
 COMPASS   RM       ENDIF                                                          F4810A  F4810A       177     A     
 COMPASS                                                                           F4810A  F4810A       178     A     
 COMPASS            RJ     LHDS        DO SUBTITLE LINE                                    CPSA208        5     A     
 COMPASS            EQ     LHD         RETURN                                              CPSA208        6     A     
 COMPASS                                                                                   CPSA208        7     A     
 COMPASS                                                                                   CMP30       2081     A     
 COMPASS   LHDS     SPACE  4                                                               CPSA208        8     A     
 COMPASS  **        LHDS - LIST HEADER SUBTITLE                                            CPSA208        9     A     
 COMPASS  *                                                                                CPSA208       10     A     
 COMPASS   LHDS     PS                 RETURN EXIT                                         CPSA208       11     A     
 COMPASS            SA1    SUBNAME                                                         COMPASS     4489     A     
 COMPASS            MX0    6                                                               CMP039         1     A     
 COMPASS            BX2    X0*X1                                                           CMP039         2     A     
 COMPASS            LX6    X1                                                              CMP039         3     A     
 COMPASS            NZ     X2,LHD2                                                         CMP039         4     A     
 COMPASS            RJ     LJUST                                                           COMPASS     4490     A     
 COMPASS            SA6    SBNAME                                                          COMPASS     4491          I
          -CMP039 
 COMPASS   LHD2     SA6    SBNAME                                                          CMP039         5     A     
 COMPASS            SA2    LHDA                                                            COMPASS     4492     A     
 COMPASS                                                                                   CMP30       2082     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2083     A     
 COMPASS            WRITEH X2,SUBTIT,SUBL                                                  COMPASS     4493     A     
 COMPASS            WRITEW X2,(=2L  ),1 LIST BLANK LINE UNDER TITLES                       COMPASS     4494     A     
 COMPASS   RM       ELSE                                                                   CMP30       2084     A     
 COMPASS            PUT    X2,SUBTIT,SUBL*10                                               CMP30       2085     A     
 COMPASS            SA2    LHDA                                                            CMP30       2086     A     
 COMPASS            PUT    X2,BLANKS,10                                                    CMP30       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/28. 19.11.32.      PAGE 408    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RM       ENDIF                                                                  CMP30       2088     A     
 COMPASS                                                                                   CMP30       2089     A     
 COMPASS            EQ     LHD                                                             COMPASS     4495          I
          -CPSA208
 COMPASS            EQ     LHDS        RETURN                                              CPSA208       12     A     
 COMPASS                                                                                   COMPASS     4496     A     
 COMPASS   LHDA     DATA   0           FET ADDRESS                                         COMPASS     4497     A     
 COMPASS            DATA   0           PAGE NUMBER ADDRESS                                 COMPASS     4498     A     
 COMPASS   LISTER   SPACE  4                                                               COMPASS     4499     A     
 COMPASS  **        LISTER - LIST LINE.                                                    COMPASS     4500     A     
 COMPASS  *         LISTER WILL LIST:                                                      COMPASS     4501     A     
 COMPASS  *                1. ERROR LINES.                                                 COMPASS     4502     A     
 COMPASS  *                2. IF FLIST " 0.                                                COMPASS     4503     A     
 COMPASS  *                3. IF NONE OF THE FOLLOWING CARD TYPES = 1 AND LIST             COMPASS     4504     A     
 COMPASS  *                CONTROL = 0.                                                    COMPASS     4505     A     
 COMPASS  *                   CARD TYPE   LIST CONTROL                                     COMPASS     4506     A     
 COMPASS  *                     1         L - MASTER LIST.                                 COMPASS     4507     A     
 COMPASS  *                     1             CONTROL CARD.                                COMPASS     4508     A     
 COMPASS  *                     SYSFLG    S - SYSTEM MACROS.                               COMPASS     4509     A     
 COMPASS  *                     LIBFLG    X - XTEXT.                                       COMPASS     4510     A     
 COMPASS  *                     MACFLG    M - MACRO GENERATED LINES.                       COMPASS     4511     A     
 COMPASS  *                     ECHFLG    E - DUP GENERATED LINES.                         COMPASS     4512     A     
 COMPASS  *                     DETFLG    D - DETAIL (GENERATED).                          COMPASS     4513     A     
 COMPASS  *                     RMTFLG    D - REMOTE.                                      COMPASS     4514     A     
 COMPASS  *                     CTYPE     C - LIST CONTROL.                                COMPASS     4515     A     
 COMPASS  *                     NOAS      F - IF SKIPPED LINES.                            COMPASS     4516     A     
 COMPASS  *         ENTRY  (LCCT) = NUMBER OF LINES TO LIST.                               COMPASS     4517     A     
 COMPASS  *         EXIT   (LCCT) = 1.                                                     COMPASS     4518     A     
 COMPASS  *                (DETFLG) = 1.                                                   COMPASS     4519     A     
 COMPASS  *                (NLFLG) = 0.                                                    COMPASS     4520     A     
 COMPASS                                                                                   COMPASS     4521     A     
 COMPASS                                                                                   COMPASS     4522     A     
 COMPASS   LISTER   PS                 RETURN EXIT                                         COMPASS     4523     A     
 COMPASS            SA3    EFLG                                                            COMPASS     4524     A     
 COMPASS            ZR     X3,LSL7     IF NO ERRORS                                        COMPASS     4525     A     
 COMPASS            SA2    DLFLG                                                           COMPASS     4526     A     
 COMPASS            ZR     X2,LSL1     IF NOT DELAYED LIST WITH ERROR                      COMPASS     4527     A     
 COMPASS            RJ     LEL                                                             COMPASS     4528     A     
 COMPASS            SX2    LINE        CLEAR DELAYED LIST LINE                             COMPASS     4529     A     
 COMPASS            SX6    1R                                                              COMPASS     4530     A     
 COMPASS            SA6    X2-1                                                            COMPASS     4531     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4532     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4533     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4534     A     
 COMPASS            SA1    =1H                                                             COMPASS     4535     A     
 COMPASS            SA3    LLINE                                                           COMPASS     4536     A     
 COMPASS            RJ     PRESET                                                          COMPASS     4537     A     
 COMPASS            EQ     LISTER      RETURN                                              COMPASS     4538     A     
 COMPASS                                                                                   COMPASS     4539     A     
 COMPASS  *         RECHECK FOR ERRORS.                                                    COMPASS     4540     A     
 COMPASS                                                                                   COMPASS     4541     A     
 COMPASS   LSL1     SX6    1R          CHECK FOR ERRORS                                    COMPASS     4542     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 409    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    OCTAL                                                           COMPASS     4543     A     
 COMPASS            SA1    ERFLAGS                                                         COMPASS     4544     A     
 COMPASS            SA2    ERRLETS                                                         COMPASS     4545     A     
 COMPASS            BX7    X6                                                              COMPASS     4546     A     
 COMPASS            SB7    LEFLG-1                                                         COMPASS     4547     A     
 COMPASS   LSL2     ZR     X1,LSL3     IF NO ERROR                                         COMPASS     4548     A     
 COMPASS            BX6    X2                                                              COMPASS     4549     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     4550     A     
 COMPASS   LSL3     SB7    B7-B1                                                           COMPASS     4551     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4552     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     4553     A     
 COMPASS            PL     B7,LSL2     LOOP                                                COMPASS     4554     A     
 COMPASS            SX6    A6-OCTAL    ERROR COUNT                                         COMPASS     4555     A     
 COMPASS            SA6    EFLG                                                            COMPASS     4556     A     
 COMPASS            ZR     X6,LSL7     IF NO ERRORS                                        COMPASS     4557     A     
 COMPASS                                                                                   COMPASS     4558     A     
 COMPASS  *         LIST ERROR LINE ON BOTH OUTPUT FILES AND RECORD PAGE NUMBERS           COMPASS     4559     A     
 COMPASS  *         OF THE LINES IN ERROR.                                                 COMPASS     4560     A     
 COMPASS                                                                                   COMPASS     4561     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   COMPASS     4562     A     
 COMPASS            RJ     LEL         LIST ERROR LINE                                     COMPASS     4563     A     
 COMPASS            SA1    ERFLAGS                                                         COMPASS     4564     A     
 COMPASS            SB7    NFERS-1                                                         COMPASS     4565     A     
 COMPASS            SA2    LSLB                                                            COMPASS     4566     A     
 COMPASS            SB6    LEFLG-NFERS-1                                                   COMPASS     4567     A     
 COMPASS            SA3    ERCNT                                                           COMPASS     4568     A     
 COMPASS            SA4    WECNT                                                           COMPASS     4569     A     
 COMPASS   LSL4     BX6    X1+X2       RECORD PAGE OCCURRENCE OF ERRORS                    COMPASS     4570     A     
 COMPASS            IX3    X3+X1                                                           COMPASS     4571     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4572     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     4573     A     
 COMPASS            SA6    A2                                                              COMPASS     4574     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     4575     A     
 COMPASS            PL     B7,LSL4     LOOP                                                COMPASS     4576     A     
 COMPASS   LSL5     BX6    X1+X2                                                           COMPASS     4577     A     
 COMPASS            IX4    X4+X1                                                           COMPASS     4578     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4579     A     
 COMPASS            SB6    B6-B1                                                           COMPASS     4580     A     
 COMPASS            SA6    A2                                                              COMPASS     4581     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     4582     A     
 COMPASS            PL     B6,LSL5     LOOP                                                COMPASS     4583     A     
 COMPASS            BX6    X3                                                              COMPASS     4584     A     
 COMPASS            LX7    X4                                                              COMPASS     4585     A     
 COMPASS            SA6    A3                                                              COMPASS     4586     A     
 COMPASS            SB7    LERFLAGS-2  CLEAR ERROR FLAGS                                   COMPASS     4587     A     
 COMPASS            SA7    A4                                                              COMPASS     4588     A     
 COMPASS            SX6    B0                                                              COMPASS     4589     A     
 COMPASS            SA6    EXERR                                                           COMPASS     4590     A     
 COMPASS            SA6    ERFLAGS                                                         COMPASS     4591     A     
 COMPASS   LSL6     SB7    B7-B1                                                           COMPASS     4592     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     4593     A     
 COMPASS            PL     B7,LSL6     LOOP                                                COMPASS     4594     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 410    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     LSL10                                                           COMPASS     4595     A     
 COMPASS                                                                                   COMPASS     4596     A     
 COMPASS  *         NO ERRORS. CHECK FORCE LIST AND LIST OPTIONS.                          COMPASS     4597     A     
 COMPASS                                                                                   COMPASS     4598     A     
 COMPASS   LSL7     SA4    FLIST                                                           COMPASS     4599     A     
 COMPASS            NZ     X4,LSL9     IF FORCE LIST                                       COMPASS     4600     A     
 COMPASS            SB7    30                                                              COMPASS     4601     A     
 COMPASS            SA1    LSLA        PROCESS LIST OPTION TABLE                           COMPASS     4602     A     
 COMPASS   LSL8     AX2    X1,B7                                                           COMPASS     4603     A     
 COMPASS            SA3    X1                                                              COMPASS     4604     A     
 COMPASS            SA4    X2                                                              COMPASS     4605     A     
 COMPASS            BX6    -X3*X4                                                          COMPASS     4606     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     4607     A     
 COMPASS            ZR     X6,LSL8     IF LINE WILL LIST                                   COMPASS     4608     A     
 COMPASS            SX6    A1-LSLA-LSLAL                                                   COMPASS     4609     A     
 COMPASS            NZ     X6,LSL10    IF NO LIST                                          COMPASS     4610     A     
 COMPASS   LSL9     RJ     LOL         LIST OUTPUT LINE                                    COMPASS     4611          I
          -CMP30  
 COMPASS   LSL9     SA1    LPCNT                                                           CMP30       2090     A     
 COMPASS            SX7    PGCNT       CHECK FOR END OF PAGE                               CMP30       2091     A     
 COMPASS            SA3    O                                                               CMP30       2092     A     
 COMPASS            RJ     LHD         LIST HEADER                                         CMP30       2093     A     
 COMPASS            SX0    0                                                               CMP30       2094     A     
 COMPASS            RJ     LTX         LIST TEXT                                           CMP30       2095     A     
 COMPASS                                                                                   COMPASS     4612     A     
 COMPASS  *         CLEAN UP LINE FOR NEXT LISTING ENTRY.                                  COMPASS     4613     A     
 COMPASS                                                                                   COMPASS     4614     A     
 COMPASS   LSL10    RJ     CUL         CLEAN UP LIST                                       COMPASS     4615     A     
 COMPASS            MX6    0                                                               COMPASS     4616     A     
 COMPASS            SA6    FLIST                                                           COMPASS     4617     A     
 COMPASS            EQ     LISTER                                                          COMPASS     4618     A     
 COMPASS                                                                                   COMPASS     4619     A     
 COMPASS   LSLA     VFD    30/NLFLG,30/=0    CONDITIONS DETECTED BY RINTER                 COMPASS     4620     A     
 COMPASS            VFD    30/DETFLG,30/LD+1 DETAIL                                        COMPASS     4621     A     
 COMPASS            VFD    30/CTYPE,30/LC+1  LIST CONTROL                                  COMPASS     4622     A     
 COMPASS            VFD    30/=1,30/LL+1     MASTER LIST                                   COMPASS     4623     A     
 COMPASS            VFD    30/=1,30/=0       END OF TABLE                                  COMPASS     4624     A     
 COMPASS   LSLAL    EQU    *-LSLA                                                          COMPASS     4625     A     
 COMPASS                                                                                   COMPASS     4626     A     
 COMPASS   LSLB     BSSZ   LEFLG       PAGE OCCURANCES OF ERRORS                           COMPASS     4627     A     
 COMPASS   LISTERF  SPACE  4                                                               COMPASS     4628     A     
 COMPASS  **        LISTERF - FORCE LISTING.                                               COMPASS     4629     A     
 COMPASS                                                                                   COMPASS     4630     A     
 COMPASS                                                                                   COMPASS     4631     A     
 COMPASS   LISTERF  PS                 RETURN EXIT                                         COMPASS     4632     A     
 COMPASS            RJ     LEL         LIST ERROR LINE                                     COMPASS     4633     A     
 COMPASS            RJ     CUL         CLEAN UP LINE                                       COMPASS     4634     A     
 COMPASS            EQ     LISTERF     RETURN                                              COMPASS     4635     A     
 COMPASS   LISTERG  SPACE  4                                                               COMPASS     4636     A     
 COMPASS  **        LISTERG - LIST GENERATIVE LINES.                                       COMPASS     4637     A     
 COMPASS                                                                                   COMPASS     4638     A     
 COMPASS                                                                                   COMPASS     4639     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 411    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LISTERG  PS                 RETURN EXIT                                         COMPASS     4640     A     
 COMPASS            SA2    DLFLG                                                           COMPASS     4641     A     
 COMPASS            ZR     X2,LSG1     IF NO DERERRED LIST                                 COMPASS     4642     A     
 COMPASS            RJ     LDL         LIST DEFERRED LINE                                  COMPASS     4643     A     
 COMPASS            EQ     LISTERG                                                         COMPASS     4644     A     
 COMPASS   LSG1     SA3    LL+1        SET FLIST IF BOTH G AND L LIST                      COMPASS     4645     A     
 COMPASS            SA4    LG+1                                                            COMPASS     4646     A     
 COMPASS            BX6    X3*X4       L*G                                                 COMPASS     4647     A     
 COMPASS            SA6    FLIST                                                           COMPASS     4648     A     
 COMPASS            ZR     X6,LSG2     IF NO FORCE LIST                                    COMPASS     4649     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   COMPASS     4650     A     
 COMPASS   LSG2     RJ     LISTER                                                          COMPASS     4651     A     
 COMPASS            EQ     LISTERG     RETURN                                              COMPASS     4652     A     
 COMPASS   LISTL    SPACE  4                                                               COMPASS     4653     A     
 COMPASS  **        LISTL - LIST LINE IF EXTERNAL LIST OPTION SELECTED.                    COMPASS     4654     A     
 COMPASS                                                                                   COMPASS     4655     A     
 COMPASS                                                                                   COMPASS     4656     A     
 COMPASS   LISTL1   SA6    FLIST       FORCE LISTING                                       COMPASS     4657     A     
 COMPASS            RJ     LISTER                                                          COMPASS     4658     A     
 COMPASS                                                                                   COMPASS     4659     A     
 COMPASS   LISTL    PS                 RETURN EXIT                                         COMPASS     4660     A     
 COMPASS            RJ     LDL         LIST DEFERRED LINE                                  COMPASS     4661     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   COMPASS     4662     A     
 COMPASS            SA1    LISTFG                                                          COMPASS     4663          I
          -CMP30  
 COMPASS            SA1    CP.LISTF                                                        CMP30       2096     A     
 COMPASS            SX6    X1                                                              COMPASS     4664     A     
 COMPASS            EQ     LISTL1                                                          COMPASS     4665     A     
 COMPASS   LIST2L   SPACE  4                                                               COMPASS     4666     A     
 COMPASS  **        LIST2L - LIST 2 LINES IF EXTERNAL LIST SELECTED.                       COMPASS     4667     A     
 COMPASS                                                                                   COMPASS     4668     A     
 COMPASS                                                                                   COMPASS     4669     A     
 COMPASS   LIST2L   PS                 RETURN EXIT                                         COMPASS     4670     A     
 COMPASS            RJ     LISTL                                                           COMPASS     4671     A     
 COMPASS            SA1    LISTFG                                                          COMPASS     4672          I
          -CMP30  
 COMPASS            SA1    CP.LISTF                                                        CMP30       2097     A     
 COMPASS            ZR     X1,LIST2L   IF EXTERNAL LIST IS OFF                             COMPASS     4673     A     
 COMPASS            SX0    B1                                                              COMPASS     4674     A     
 COMPASS            RJ     LBL                                                             COMPASS     4675     A     
 COMPASS            EQ     LIST2L      RETURN                                              COMPASS     4676     A     
 COMPASS   LOL      SPACE  4                                                               COMPASS     4677          I
          -CMP30  
 COMPASS  **        LOL - LIST ONE LINE.                                                   COMPASS     4678          I
          -CMP30  
 COMPASS                                                                                   COMPASS     4679          I
          -CMP30  
 COMPASS                                                                                   COMPASS     4680          I
          -CMP30  
 COMPASS   LOL      PS                 RETURN EXIT                                         COMPASS     4681          I
          -CMP30  
 COMPASS            SA3    O                                                               COMPASS     4682          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 412    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            ZR     X3,LOL      IF NO LONG OUTPUT                                   COMPASS     4683          I
          -CMP30  
 COMPASS            SA1    LPCNT       CHECK IF AT TOP OF FORM                             COMPASS     4684          I
          -CMP30  
 COMPASS            SX7    PGCNT       LIST HEADER                                         COMPASS     4685          I
          -CMP30  
 COMPASS            RJ     LHD                                                             COMPASS     4686          I
          -CMP30  
 COMPASS            SX0    0           LIST TEXT                                           COMPASS     4687          I
          -CMP30  
 COMPASS            RJ     LTX                                                             COMPASS     4688          I
          -CMP30  
 COMPASS            EQ     LOL         RETURN                                              COMPASS     4689          I
          -CMP30  
 COMPASS   LTX      SPACE  4                                                               COMPASS     4690     A     
 COMPASS  **        LTX - LIST TEXT.                                                       COMPASS     4691     A     
 COMPASS  *         ENTRY  (X0) = 0 IF NO ERROR LIST.                                      COMPASS     4692     A     
 COMPASS  *                (X0) = ADDRESS OF ERROR FILE FET IF ERROR LIST.                 COMPASS     4693     A     
 COMPASS  *                (LCCT) = NUMBER OF LINES TO LIST.                               COMPASS     4694     A     
 COMPASS                                                                                   COMPASS     4695     A     
 COMPASS                                                                                   COMPASS     4696     A     
 COMPASS   LTX      PS                 RETURN EXIT                                         COMPASS     4697     A     
 COMPASS            SA2    DLFLG                                                           COMPASS     4698     A     
 COMPASS            ZR     X2,LTX1     IF NOT DEFERRED LIST                                COMPASS     4699     A     
 COMPASS            SA1    =1H         CLEAR OCTAL AREA                                    COMPASS     4700     A     
 COMPASS            BX6    X1                                                              COMPASS     4701     A     
 COMPASS            SA6    LINE-1                                                          COMPASS     4702     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4703     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4704     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4705     A     
 COMPASS            EQ     LTX3                                                            COMPASS     4706     A     
 COMPASS   LTX1     SA1    LINE        COMPRESS OCTAL LINE INTO 4 WORDS                    COMPASS     4707     A     
 COMPASS            BX6    X1                                                              COMPASS     4708     A     
 COMPASS            SA6    A1                                                              COMPASS     4709     A     
 COMPASS            SA3    =20120000000000000000B                                          COMPASS     4710     A     
 COMPASS            SB6    4                                                               COMPASS     4711     A     
 COMPASS            UX6    B7,X3                                                           COMPASS     4712     A     
 COMPASS   LTX2     SA1    A1-B1                                                           COMPASS     4713     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     4714     A     
 COMPASS            BX6    X6+X1                                                           COMPASS     4715     A     
 COMPASS            LX6    54                                                              COMPASS     4716     A     
 COMPASS            NZ     B7,LTX2     LOOP FOR 10 CHARACTERS                              COMPASS     4717     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     4718     A     
 COMPASS            SB6    B6-B1                                                           COMPASS     4719     A     
 COMPASS            UX6    B7,X3                                                           COMPASS     4720     A     
 COMPASS            NZ     B6,LTX2     LOOP FOR 40 CHARACTERS                              COMPASS     4721     A     
 COMPASS                                                                                   CMP30       2098     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2099     A     
 COMPASS                                                                                   CMP30       2100     A     
 COMPASS   LTX3     SA0    A6                                                              COMPASS     4722     A     
 COMPASS            SA5    O                                                               COMPASS     4723          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 413    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            ZR     X5,LTX4     IF NO FULL LIST                                     COMPASS     4724          I
          -CMP30  
 COMPASS            WRITEH A5,A0,13                                                        COMPASS     4725          I
          -CMP30  
 COMPASS   LTX4     ZR     X0,LTX5     IF NO ERROR LIST                                    COMPASS     4726          I
          -CMP30  
 COMPASS            SA5    CP.LISTF                                                        CMP30       2101     A     
 COMPASS   LTX4     ZR     X5,LTX5     IF NO FULL LIST                                     CMP30       2102     A     
 COMPASS            WRITEH O,A0,13                                                         CMP30       2103     A     
 COMPASS   LTX5     ZR     X0,LTX6     IF NO ERROR LIST                                    CMP30       2104     A     
 COMPASS            WRITEH X0,A0,13                                                        COMPASS     4727     A     
 COMPASS   LTX5     SA1    LCCT        UP LINE COUNT                                       COMPASS     4728          I
          -CMP30  
 COMPASS   LTX6     SA1    LCCT        COUNT LINES                                         CMP30       2105     A     
 COMPASS            SX7    X1-1                                                            COMPASS     4729     A     
 COMPASS            ZR     X7,LTX      IF END OF LINE                                      COMPASS     4730     A     
 COMPASS            SA7    A1          LIST CONTINUATION LINES                             COMPASS     4731     A     
 COMPASS            SA0    A0+9                                                            COMPASS     4732     A     
 COMPASS            SA3    =1H                                                             COMPASS     4733     A     
 COMPASS            LX6    X3                                                              COMPASS     4734     A     
 COMPASS            BX7    X3                                                              COMPASS     4735     A     
 COMPASS            SA6    A0                                                              COMPASS     4736     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     4737     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     4738     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     4739     A     
 COMPASS            ZR     X5,LTX6     IF NO FULL LIST                                     COMPASS     4740          I
          -CMP30  
 COMPASS            WRITEH A5,A0,13                                                        COMPASS     4741          I
          -CMP30  
 COMPASS   LTX6     ZR     X0,LTX5     IF NO ERROR LIST                                    COMPASS     4742          I
          -CMP30  
 COMPASS            WRITEH X0,A0,13                                                        COMPASS     4743          I
          -CMP30  
 COMPASS            EQ     LTX5                                                            COMPASS     4744          I
          -CMP30  
 COMPASS            EQ     LTX4                                                            CMP30       2106     A     
 COMPASS                                                                                   CMP30       2107     A     
 COMPASS   RM       ELSE                                                                   CMP30       2108     A     
 COMPASS                                                                                   CMP30       2109     A     
 COMPASS   LTX3     SX6    A6                                                              CMP30       2110     A     
 COMPASS            BX7    X0                                                              CMP30       2111     A     
 COMPASS            SA6    T6RM1       SAVE LIST ADDRESS                                   CMP30       2112     A     
 COMPASS            SA7    A6+B1                                                           CMP30       2113     A     
 COMPASS            SA5    CP.LISTF                                                        CMP30       2114     A     
 COMPASS   LTX4     ZR     X5,LTX5     IF NO FULL LIST                                     CMP30       2115     A     
 COMPASS            PUT    O,X6,130                                                        CMP30       2116     A     
 COMPASS   LTX5     SA2    T6RM2                                                           CMP30       2117     A     
 COMPASS            SA3    A2-B1                                                           CMP30       2118     A     
 COMPASS            ZR     X2,LTX6     IF NO ERROR LIST                                    CMP30       2119     A     
 COMPASS            PUT    E,X3,130                                                        CMP30       2120     A     
 COMPASS   LTX6     SA1    LCCT        COUNT LINES                                         CMP30       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/28. 19.11.32.      PAGE 414    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    X1-1                                                            CMP30       2122     A     
 COMPASS            ZR     X7,LTX      IF END OF LINE                                      CMP30       2123     A     
 COMPASS            SA7    A1          LIST CONTINUATION LINES                             CMP30       2124     A     
 COMPASS            SA2    T6RM1                                                           CMP30       2125     A     
 COMPASS            SA3    =1H                                                             CMP30       2126     A     
 COMPASS            SA5    CP.LISTF                                                        CMP30       2127     A     
 COMPASS            LX6    X3                                                              CMP30       2128     A     
 COMPASS            BX7    X3                                                              CMP30       2129     A     
 COMPASS            SA6    X2+9                                                            CMP30       2130     A     
 COMPASS            SA7    A6+B1                                                           CMP30       2131     A     
 COMPASS            SA6    A7+B1                                                           CMP30       2132     A     
 COMPASS            SA7    A6+B1                                                           CMP30       2133     A     
 COMPASS            SX6    X2+9                                                            CMP30       2134     A     
 COMPASS            SA6    A2                                                              CMP30       2135     A     
 COMPASS            EQ     LTX4                                                            CMP30       2136     A     
 COMPASS                                                                                   CMP30       2137     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2138     A     
 COMPASS   PACKO    SPACE  4                                                               F4820        128     A     
 COMPASS  **        PACKO - PACK OCTAL/HEX DIGITS INTO LINE.                               F4820        129     A     
 COMPASS  *         ENTRY  (X1) = VALUE.                                                   F4820        130     A     
 COMPASS  *                (X2) = LOW ORDER COLUMN NUMBER.                                 F4820        131     A     
 COMPASS  *                (X3) = COLUMN COUNT.                                            F4820        132     A     
 COMPASS  *                (X3) = 0 IF LEADING ZERO SUPPRESSION.                           F4820        133     A     
 COMPASS  *         SAVES  A - 0, 1.                                                       F4820        134     A     
 COMPASS                                                                                   F4820        135     A     
 COMPASS                                                                                   F4820        136     A     
 COMPASS   PKO2     MX0    -4          CONVERT HEX DIGITS                                  F4820        137          I
          -CPSA198
 COMPASS            SX4    1R0                                                             F4820        138          I
          -CPSA198
 COMPASS            SB7    X3-1                                                            F4820        139          I
          -CPSA198
 COMPASS            BX5    -X0*X1                                                          F4820        140          I
          -CPSA198
 COMPASS            IX6    X5+X4                                                           F4820        141          I
          -CPSA198
 COMPASS            SB6    -B1                                                             F4820        142          I
          -CPSA198
 COMPASS            SB5    OCTAL-1                                                         F4820        143          I
          -CPSA198
 COMPASS   PKO3     SB4    X5-10                                                           F4820        144          I
          -CPSA198
 COMPASS            NG     B4,PKO4     IF NOT NUMERIC                                      F4820        145          I
          -CPSA198
 COMPASS            SX6    B4+B1                                                           F4820        146          I
          -CPSA198
 COMPASS   PKO4     AX1    4                                                               F4820        147          I
          -CPSA198
 COMPASS            SA6    X2+B5                                                           F4820        148          I
          -CPSA198
 COMPASS            SB7    B7-B1                                                           F4820        149          I
          -CPSA198
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 415    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX5    -X0*X1                                                          F4820        150          I
          -CPSA198
 COMPASS            SX2    X2+B6                                                           F4820        151          I
          -CPSA198
 COMPASS            IX6    X4+X5                                                           F4820        152          I
          -CPSA198
 COMPASS            PL     B7,PKO3     LOOP                                                F4820        153          I
          -CPSA198
 COMPASS            NZ     X3,PACKO    IF NOT LEADING ZERO SUPPRESSION                     F4820        154          I
          -CPSA198
 COMPASS            NZ     X1,PKO3     IF NOT END OF NUMBER                                F4820        155          I
          -CPSA198
 COMPASS                                                                                   F4820        156          I
          -CPSA198
 COMPASS   PACKO    PS                 RETURN EXIT                                         F4820        157          I
          -CPSA198
 COMPASS            SA4    PPTYPE                                                          F4820        158          I
          -CPSA198
 COMPASS            NG     X4,PKO2     IF HEX ASSEMBLY                                     F4820        159          I
          -CPSA198  -CPSA197
 COMPASS            SX4    X4+B1                                                           CPSA197       16          I
          -CPSA198
 COMPASS            ZR     X4,PKO2     IF HEX (BCU) ASSEMBLY                               CPSA197       17          I
          -CPSA198
 COMPASS            SX4    X4+B1                                                           CPSA197       18          I
          -CPSA198
 COMPASS            ZR     X4,PKO2     IF HEX (MCU) ASSEMBLY                               CPSA197       19          I
          -CPSA198
 COMPASS            MX0    57                                                              F4820        160          I
          -CPSA198
 COMPASS            SX4    1R0                                                             F4820        161          I
          -CPSA198
 COMPASS            SB7    X3-1                                                            F4820        162          I
          -CPSA198
 COMPASS            BX5    -X0*X1                                                          F4820        163          I
          -CPSA198
 COMPASS            IX6    X5+X4                                                           F4820        164          I
          -CPSA198
 COMPASS            SB6    -B1                                                             F4820        165          I
          -CPSA198
 COMPASS            SB5    OCTAL-1                                                         F4820        166          I
          -CPSA198
 COMPASS   PACKO1   AX1    3                                                               F4820        167          I
          -CPSA198
 COMPASS            SA6    X2+B5                                                           F4820        168          I
          -CPSA198
 COMPASS            SB7    B7-B1                                                           F4820        169          I
          -CPSA198
 COMPASS            BX5    -X0*X1                                                          F4820        170          I
          -CPSA198
 COMPASS            SX2    X2+B6                                                           F4820        171          I
          -CPSA198
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 416    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX6    X4+X5                                                           F4820        172          I
          -CPSA198
 COMPASS            PL     B7,PACKO1                                                       F4820        173          I
          -CPSA198
 COMPASS            NZ     X3,PACKO    IF NOT LEADING ZERO SUPPRESSION                     F4820        174          I
          -CPSA198
 COMPASS            NZ     X1,PACKO1   IF NOT END OF NUMBER                                F4820        175          I
          -CPSA198
 COMPASS            EQ     PACKO       RETURN                                              F4820        176          I
          -CPSA198
 COMPASS   PACKO    PS                 RETURN EXIT                                         CPSA198        5     A     
 COMPASS            MX0    60-4        HEX DIGITS                                          CPSA198        6     A     
 COMPASS            SB3    4           SIZE OF SHIFT                                       CPSA198        7     A     
 COMPASS            SX4    1R0         CONVERSION FACTOR                                   CPSA198        8     A     
 COMPASS            SB7    X3-1        COLUMN COUNTER                                      CPSA198        9     A     
 COMPASS            SX7    1R          BLANK                                               CPSA198       10     A     
 COMPASS            SB6    -B1                                                             CPSA198       11     A     
 COMPASS            SB5    OCTAL-1                                                         CPSA198       12     A     
 COMPASS            PL     X1,PACKO1   IF POSITIVE NUMBER                                  CPSA198       13     A     
 COMPASS            NZ     X3,PACKO1   IF NO LEADING ZERO SUPPRESSION                      CPSA198       14     A     
 COMPASS            BX1    -X1         REVERSE NEGATIVE NUMBER                             CPSA198       15     A     
 COMPASS            SX7    1R-         SAVE A MINUS SIGN                                   CPSA198       16     A     
 COMPASS   PACKO1   SA5    PPTYPE                                                          CPSA198       17     A     
 COMPASS            SX5    X5+B1                                                           CPSA198       18     A     
 COMPASS            ZR     X5,PACKO2   HEX (BCU PPTYPE = -1)                               CPSA198       19     A     
 COMPASS            SX5    X5+B1                                                           CPSA198       20     A     
 COMPASS            ZR     X5,PACKO2   HEX (MCU PPTYPE = -2)                               CPSA198       21     A     
 COMPASS            MX0    60-3        OCTAL DIGITS                                        CPSA198       22     A     
 COMPASS            SB3    3           SIZE OF SHIFT                                       CPSA198       23     A     
 COMPASS   PACKO2   BX5    -X0*X1      MASK OFF LOWER NUMBER                               CPSA198       24     A     
 COMPASS            IX6    X4+X5       ADD CONVERSION FACTOR                               CPSA198       25     A     
 COMPASS            SB4    X5-10       HEX NUMBERS GET LARGER THAN 10.                     CPSA198       26     A     
 COMPASS            NG     B4,PACKO3   IF NOT NUMERIC                                      CPSA198       27     A     
 COMPASS            SX6    B4+B1       10=A,11=B,ETC.                                      CPSA198       28     A     
 COMPASS   PACKO3   AX1    B3          SHIFT                                               CPSA198       29     A     
 COMPASS            SA6    X2+B5       STORE DISPLAY VALUE                                 CPSA198       30     A     
 COMPASS            SB7    B7-B1       DECREMENT COLUMN NUMBER                             CPSA198       31     A     
 COMPASS            SX2    X2+B6       DECREMENT COLUMN COUNTER                            CPSA198       32     A     
 COMPASS            PL     B7,PACKO2   LOOP.                                               CPSA198       33     A     
 COMPASS            NZ     X3,PACKO    NO LEADING ZERO SUPPRESSION.                        CPSA198       34     A     
 COMPASS            NZ     X1,PACKO2   NOT END OF NUMBER.                                  CPSA198       35     A     
 COMPASS            SA7    A6-B1       STORE MINUS SIGN IF NECESSARY.                      CPSA198       36     A     
 COMPASS            EQ     PACKO       RETURN.                                             CPSA198       37     A     
 COMPASS   PET      SPACE  4                                                               COMPASS     4745     A     
 COMPASS  **        PET - PROCESS ERROR TABLE.                                             COMPASS     4746     A     
 COMPASS  *         RECORDS ERRORS IN ERRTAB.  CLEARS LSLB.                                COMPASS     4747     A     
 COMPASS                                                                                   COMPASS     4748     A     
 COMPASS   PET      PS                 RETURN EXIT                                         COMPASS     4749     A     
 COMPASS            MX6    0                                                               COMPASS     4750     A     
 COMPASS            SA6    PETA                                                            COMPASS     4751     A     
 COMPASS   PET1     SA2    PETA                                                            COMPASS     4752     A     
 COMPASS            SA1    LSLB+X2                                                         COMPASS     4753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 417    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X1,PET2     IF NO ERROR                                         COMPASS     4754     A     
 COMPASS            SX6    B0                                                              COMPASS     4755     A     
 COMPASS            SA6    A1                                                              COMPASS     4756     A     
 COMPASS            LX2    30                                                              COMPASS     4757     A     
 COMPASS            SA3    PGCNT                                                           COMPASS     4758     A     
 COMPASS            BX1    X3+X2                                                           COMPASS     4759     A     
 COMPASS            ADDWORD ERRTAB                                                         COMPASS     4760     A     
 COMPASS            SA2    PETA                                                            COMPASS     4761     A     
 COMPASS   PET2     SX6    X2+B1                                                           COMPASS     4762     A     
 COMPASS            SB7    X6-LEFLG                                                        COMPASS     4763     A     
 COMPASS            SA6    A2                                                              COMPASS     4764     A     
 COMPASS            NZ     B7,PET1     LOOP                                                COMPASS     4765     A     
 COMPASS            EQ     PET         RETURN                                              COMPASS     4766     A     
 COMPASS                                                                                   COMPASS     4767     A     
 COMPASS   PETA     DATA   0           ERROR INDEX                                         COMPASS     4768     A     
 COMPASS   PRT      TITLE  CROSS REFERENCE TABLE PROCESSING.                               COMPASS     4769     A     
 COMPASS  **        PRT - PROCESS CROSS-REFERENCE TABLE.                                   COMPASS     4770          I
          -CPSA097
 COMPASS  *         PRT - PROCESS CROSS-REFERENCE TABLE.                           CPSA097 CPSA097        6     A     
 COMPASS                                                                                   COMPASS     4771     A     
 COMPASS                                                                                   COMPASS     4772     A     
 COMPASS            USE    LIST                                                            COMPASS     4773          I
          -CMP30  
 COMPASS            QUAL   PASS2                                                           COMPASS     4774          I
          -CMP30  
 COMPASS   PRTX     SX6    B0          CLEAR REFTAB                                        COMPASS     4775     A     
 COMPASS            SA6    L.REFTAB                                                        COMPASS     4776     A     
 COMPASS            SA1    PRTA        CHECK OVERFLOW                                      COMPASS     4777     A     
 COMPASS            ZR     X1,PRT      IF NO OVERFLOW                                      COMPASS     4778     A     
 COMPASS            REWIND C           RESTORE COMPASS                                     COMPASS     4779          I
          -CMP30  
 COMPASS                                                                                   CMP30       2139     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2140     A     
 COMPASS                                                                                   CMP30       2141     A     
 COMPASS            SA1    B+4                                                             COMPASS     4780     A     
 COMPASS            SX1    X1                                                              COMPASS     4781     A     
 COMPASS            RJ     ACL         ADJUST CORE LIMITS                                  COMPASS     4782     A     
 COMPASS            READ   C                                                               COMPASS     4783          I
          -CPS064 
 COMPASS            IFEQ   OVERLAY,0,1                                                     CPS064       122     A     
 COMPASS            READ   C,R                                                             CPS064       123     A     
 COMPASS            EVICT  C                                                               COMPASS     4784          I
          -CMP30  
 COMPASS            REWIND X2                                                              CMP30       2142          I
          -CPS064 
 COMPASS            REWIND R                                                               CPS064       124     A     
 COMPASS                                                                                   CMP30       2143     A     
 COMPASS   RM       ELSE                                                                   CMP30       2144     A     
 COMPASS                                                                                   CMP30       2145     A     
 COMPASS            IFC    LT, "MODEL" 75 ,3                                               CMP30       2146          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP       94          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 418    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA134
 COMPASS   X        ELSE   2                                                               F7540CP       95          I
          -CPSA134
 COMPASS            FETCH  B,FWB,X2                                                        CMP30       2147          I
          -CPSA134
 COMPASS            SX1    X2+BBUFL                                                        CMP30       2148          I
          -CPSA134
 COMPASS            SKIP   1                                                               CMP30       2149          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP       96          I
          -CPSA134
 COMPASS            SX1    BUFFERS                                                         CMP30       2150     A     
 COMPASS   X        ENDIF                                                                  F7540CP       97          I
          -CPSA134
 COMPASS                                                                                   CMP30       2151          I
          -CPSA134
 COMPASS            RJ     ACL         ADJUST CORE LIMITS                                  CMP30       2152     A     
 COMPASS                                                                                   CMP30       2153          I
          -CPSA134
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       2154          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP       98          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP       99          I
          -CPSA134
 COMPASS   DM       ELSE                                                                   F7540CP      100          I
          -CPSA134
 COMPASS            CLOSEM R,N                                                             CMP30       2155          I
          -CPS064   -CPSA134
 COMPASS            SA2    E                                                               CPS064       125          I
          -CPSA134
 COMPASS            ZR     X2,PRTXA    IF NO ERROR LISTING FILE                            CPS064       126          I
          -CPSA134
 COMPASS            OPENM  E,OUTPUT,N                                                      CPS064       127          I
          -CPSA134
 COMPASS   PRTXA    CLOSEM R,N                                                             CPS064       128          I
          -CPSA134
 COMPASS            SA2    PRTA                                                            CMP30       2156          I
          -CPSA134
 COMPASS            STORE  R,FWB=X2                                                        CMP30       2157          I
          -CPSA134
 COMPASS            OPENM  R,I-O,N                                                         CMP30       2158          I
          -CPSA134
 COMPASS   DM       ENDIF                                                                  CMP30       2159          I
          -CPSA134
 COMPASS                                                                                   CMP30       2160     A     
 COMPASS            IFEQ   OVERLAY,0,1                                                     CPS064       129     A     
 COMPASS            GET    R,CBUF                                                          CMP30       2161     A     
 COMPASS            REWINDM R                                                              CMP30       2162     A     
 COMPASS                                                                                   CMP30       2163     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2164     A     
 COMPASS                                                                                   CMP30       2165     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 419    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   OVL      IFNE   OVERLAY,0                                                       CPS064       130     A     
 COMPASS            SA1    OVLA        RELOAD SECONDARY OVERLAY                            CPS064       131     A     
 COMPASS            SA2    A1+B1                                                           CPS064       132     A     
 COMPASS            RJ     OVL                                                             CPS064       133     A     
 COMPASS   OVL      ENDIF                                                                  CPS064       134     A     
 COMPASS                                                                                   CPS064       135     A     
 COMPASS                                                                                   COMPASS     4785     A     
 COMPASS   PRT      PS                 RETURN EXIT                                         COMPASS     4786     A     
 COMPASS            SA3    LR+1        CHECK IF REFERENCE TABLE REQUIRED                   COMPASS     4787          I
          -CPS010 
 COMPASS            SA3    LXRF        CHECK IF REFERENCE TABLE REQUIRED                   CPS010        31     A     
 COMPASS            ZR     X3,PRT                                                          COMPASS     4788     A     
 COMPASS            SX6    3           SET PASS TO 3                                       COMPASS     4789     A     
 COMPASS            SA6    PASS                                                            COMPASS     4790     A     
 COMPASS            MX6    0           CLEAR QUAL VALUE                                    COMPASS     4791     A     
 COMPASS            SA6    QVAL                                                            COMPASS     4792     A     
 COMPASS            SA6    SUBNAME     AND SUB-SUBTITLE                                    CMP041         5     A     
 COMPASS            SA6    PRTA                                                            COMPASS     4793     A     
 COMPASS            SX7    O           SET FOR *LHDS* TO ALWAYS USE LISTING FILE           CPS2667        9     A     
 COMPASS            SA7    LHDA         AND NOT ERROR FILE                                 CPS2667       10     A     
 COMPASS   PRT1     SA2    L.NRTAB     CLEAR NOREF SYMBOLS                                 COMPASS     4794          I
          -CMP19  
 COMPASS            SA1    O.NRTAB                                                         COMPASS     4795          I
          -CMP19  
 COMPASS            ZR     X2,PRT2     IF END OF NO REFERENCE TABLE                        COMPASS     4796          I
          -CMP19  
 COMPASS            SX6    X2-1                                                            COMPASS     4797          I
          -CMP19  
 COMPASS            SB7    X1                                                              COMPASS     4798          I
          -CMP19  
 COMPASS            SA6    A2                                                              COMPASS     4799          I
          -CMP19  
 COMPASS            SA1    B7+X6                                                           COMPASS     4800          I
          -CMP19  
 COMPASS            RJ     TLUSYMT                                                         COMPASS     4801          I
          -CMP19  
 COMPASS            ZR     X2,PRT1     IF NOT FOUND                                        COMPASS     4802          I
          -CMP19  
 COMPASS            SX6    B0          CLEAR OUT SYMBOL TABLE ENTRY                        COMPASS     4803          I
          -CMP19  
 COMPASS            SA6    X3-1                                                            COMPASS     4804          I
          -CMP19  
 COMPASS            EQ     PRT1        LOOP                                                COMPASS     4805          I
          -CMP19  
 COMPASS   PRT2     SA1    REFIO                                                           COMPASS     4806          I
          -CMP19  
 COMPASS            SA1    REFIO                                                           CMP19         79     A     
 COMPASS            ZR     X1,PRT7     IF NOT ON DISK                                      COMPASS     4807          I
          -CMP042 
 COMPASS            MX6    0           CLEAR ASSEMBLY TABLES                               COMPASS     4808          I
          -CMP25    -CMP042 
 COMPASS            SB7    REFTAB-QVTAB-2                                                  COMPASS     4809          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 420    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP25    -CMP042 
 COMPASS            SA6    L.QVTAB+1                                                       COMPASS     4810          I
          -CMP25    -CMP042 
 COMPASS   +        SB7    B7-B1                                                           COMPASS     4811          I
          -CMP25    -CMP042 
 COMPASS            SA6    A6+B1                                                           COMPASS     4812          I
          -CMP25    -CMP042 
 COMPASS            NZ     B7,*                                                            COMPASS     4813          I
          -CMP25    -CMP042 
 COMPASS            SA6    L.MEMORY                                                        COMPASS     4814          I
          -CMP25    -CMP042 
 COMPASS            WRITER R                                                               COMPASS     4815          I
          -CMP042 
 COMPASS            NZ     X1,PRT1     IF REFTAB OVERFLOWED                                CMP042        75     A     
 COMPASS            SA6    LOSTREF                                                         CMP042        76     A     
 COMPASS            EQ     PRT7                                                            CMP042        77     A     
 COMPASS                                                                                   CMP30       2166     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2167     A     
 COMPASS                                                                                   CMP30       2168     A     
 COMPASS   PRT1     WRITER R                                                               CMP042        78     A     
 COMPASS            WRITER E                                                               CPS064       136          I
          -CPS2659
 COMPASS            SA1    E           GET STATUS OF ERROR FILE                            CPS2659        9     A     
 COMPASS            SA2    E+2         *IN* POINTER                                        CPS2659       10     A     
 COMPASS            SA3    A2+B1       *OUT* POINTER                                       CPS2659       11     A     
 COMPASS            LX1    59-3                                                            CPS2659       12     A     
 COMPASS            IX4    X2-X3                                                           CPS2659       13     A     
 COMPASS            MI     X1,PRT1.1   IF ANYTHING WAS WRITTEN                             CPS2659       14     A     
 COMPASS            ZR     X4,PRT1.2   IF BUFFER EMPTY                                     CPS2659       15     A     
 COMPASS   PRT1.1   WRITER E                                                               CPS2659       16     A     
 COMPASS   PRT1.2   BSS    0                                                               CPS2659       17     A     
 COMPASS                                                                                   CPS2659       18     A     
 COMPASS            REWIND R,R                                                             COMPASS     4816          I
          -CMP30  
 COMPASS            EVICT  C,R                                                             COMPASS     4817          I
          -CMP30  
 COMPASS            RECALL S                                                               COMPASS     4818     A     
 COMPASS            SA2    B                                                               COMPASS     4819          I
          -CMP30  
 COMPASS            SA2    E                                                               CMP30       2169          I
          -CPS064 
 COMPASS            ZR     X2,PRT1A                                                        CMP30       2170          I
          -CPS064 
 COMPASS            RECALL A2                                                              CMP30       2171          I
          -CPS064 
 COMPASS   PRT1A    SA2    B                                                               CMP30       2172          I
          -CPS064 
 COMPASS            ZR     X2,PRT3                                                         COMPASS     4820          I
          -CPS064 
 COMPASS            RECALL A2                                                              COMPASS     4821          I
          -CPS064 
 COMPASS            RECALL B                                                               CPS064       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/28. 19.11.32.      PAGE 421    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RECALL E                                                               CPS064       138     A     
 COMPASS   PRT3     SX6    CBUF        WRITE COMPASS TO DISK                               COMPASS     4822          I
          -CPS020 
 COMPASS   PRT3     RECALL R                                                      S020   6 CPS020         1          I
          -CPS064 
 COMPASS            SX6    CBUF        WRITE COMPASS TO DISK                      S020   7 CPS020         2          I
          -CPS064 
 COMPASS            RECALL R                                                               CPS064       139     A     
 COMPASS            SX6    CBUF                                                            CPS064       140     A     
 COMPASS            SA6    PRTA                                                            CPS064       141     A     
 COMPASS                                                                                   CPS064       142     A     
 COMPASS   OVL      IFEQ   OVERLAY,0                                                       CPS064       143     A     
 COMPASS            SA1    R+1                                                             COMPASS     4823     A     
 COMPASS            SX7    X1                                                              COMPASS     4824     A     
 COMPASS            SX2    C                                                               COMPASS     4825          I
          -CPS064 
 COMPASS            SA6    C+3                                                             COMPASS     4826     A     
 COMPASS            SA7    A6-B1                                                           COMPASS     4827     A     
 COMPASS            SA6    PRTA                                                            COMPASS     4828          I
          -CPS064 
 COMPASS            WRITER X2,R                                                            COMPASS     4829          I
          -CPS064 
 COMPASS   OVL      ENDIF                                                                  CPS064       144     A     
 COMPASS                                                                                   CPS064       145     A     
 COMPASS            REWIND X2                                                              CMP30       2173          I
          -CPS064 
 COMPASS            REWIND T                                                               CPS064       146     A     
 COMPASS                                                                                   CMP30       2174     A     
 COMPASS   RM       ELSE                                                                   CMP30       2175     A     
 COMPASS                                                                                   CMP30       2176     A     
 COMPASS   PRT1     WEOR   R                                                               CMP30       2177     A     
 COMPASS                                                                                   CMP30       2178          I
          -CPSA134
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       2179          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP      101          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      102          I
          -CPSA134
 COMPASS   DM       ELSE                                                                   F7540CP      103          I
          -CPSA134
 COMPASS            SA2    E                                                               CMP30       2180          I
          -CPSA134
 COMPASS            ZR     X2,PRT1A                                                        CMP30       2181          I
          -CPSA134
 COMPASS            CHECK  E                                                               CMP30       2182          I
          -CPS064   -CPSA134
 COMPASS            CLOSEM E,N         FLUSH ERROR LISTING FILE BUFFER                     CPS064       147          I
          -CPSA134
 COMPASS   PRT1A    FETCH  B,OC,X2                                                         CMP30       2183          I
          -CPSA134
 COMPASS            SX3    X2-#YES#                                                        CMP30       2184          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 422    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA134
 COMPASS            NZ     X3,PRT3     IF BINARY FILE NOT OPEN                             CMP30       2185          I
          -CPSA134
 COMPASS            CLOSEM B,N         FLUSH BBUF                                          CMP30       2186          I
          -CPSA134
 COMPASS   PRT3     CHECK  S                                                               CMP30       2187          I
          -CPSA134
 COMPASS            CLOSEM R,N         FLUSH RBUF                                          CMP30       2188          I
          -CPS064   -CPSA134
 COMPASS            FETCH  R,FWB,X6                                                        CMP30       2189          I
          -CPSA134
 COMPASS   DM       ELSE   1                                                               CMP30       2190          I
          -F7540CP  -CPSA134
 COMPASS   DM       ENDIF                                                                  F7540CP      104          I
          -CPSA134
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP      105          I
          -CPSA134
 COMPASS            SX6    BUFFERS     LWA OF COMPASS                                      CMP30       2191     A     
 COMPASS   DM       ENDIF                                                                  F7540CP      106          I
          -CPSA134
 COMPASS                                                                                   CMP30       2192          I
          -CPSA134
 COMPASS            SA6    PRTA                                                            CPS064       148     A     
 COMPASS                                                                                   CPS064       149     A     
 COMPASS   OVL      IFEQ   OVERLAY,0                                                       CPS064       150     A     
 COMPASS            SX3    X6-CBUF                                                         CMP30       2193     A     
 COMPASS            SA6    PRTA                                                            CMP30       2194          I
          -CPS064 
 COMPASS            IX4    X3+X3                                                           CMP30       2195     A     
 COMPASS            LX3    3                                                               CMP30       2196     A     
 COMPASS            IX5    X3+X4       LENGTH TO BE DUMPED                                 CMP30       2197     A     
 COMPASS            PUT    R,CBUF,X5                                              S028 368 CPS028       273     A     
 COMPASS   OVL      ENDIF                                                                  CPS064       151     A     
 COMPASS                                                                                   CMP30       2198     A     
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       2199          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP      107          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      108          I
          -CPSA134
 COMPASS   DM       ELSE                                                                   F7540CP      109          I
          -CPSA134
 COMPASS            CLOSEM R,R                                                             CMP30       2200          I
          -CPSA134
 COMPASS            STORE  R,FWB=TBUF  SET NEW BUFFER                                      CMP30       2201          I
          -CPSA134
 COMPASS            OPENM  R,I-O,N                                                         CMP30       2202          I
          -CPSA134
 COMPASS   DM       ELSE   1                                                               CMP30       2203          I
          -F7540CP  -CPSA134
 COMPASS   DM       ENDIF                                                                  F7540CP      110          I
          -CPSA134
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 423    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ENV    (4,5,7,8),DM                                                    F7540CP      111          I
          -CPSA134
 COMPASS            REWINDM R                                                              CMP30       2204     A     
 COMPASS   DM       ENDIF                                                                  F7540CP      112          I
          -CPSA134
 COMPASS                                                                                   CMP30       2205     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2206     A     
 COMPASS                                                                                   CMP30       2207     A     
 COMPASS            SX1    PRTB        ADJUST CORE LIMITS                                  COMPASS     4830     A     
 COMPASS            RJ     ACL                                                             COMPASS     4831     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN                                    COMPASS     4832     A     
 COMPASS   PRT1A    BSS    0                                                               CPSA129        4     A     
 COMPASS            SA1    O.REFTAB                                                        COMPASS     4833     A     
 COMPASS            SA2    O.ENDTAB                                                        COMPASS     4834     A     
 COMPASS            IX7    X2-X1                                                           COMPASS     4835          I
          -CMP042 
 COMPASS            BX6    X2                                                              COMPASS     4836          I
          -CMP042 
 COMPASS            SX7    X7-100B                                                         COMPASS     4837          I
          -CMP042 
 COMPASS            SA7    L.REFTAB                                                        COMPASS     4838          I
          -CMP042 
 COMPASS            SA3    LOSTREF                                                         CMP042        79     A     
 COMPASS            IX4    X2-X1                                                           CMP042        80     A     
 COMPASS            SX7    X4-100B                                                         CMP042        81     A     
 COMPASS            IX6    X3-X7                                                           CMP042        82     A     
 COMPASS            PL     X6,PRT2     IF NOT ENOUGH ROOM                                  CMP042        83          I
          -CPSA129
 COMPASS            NG     X6,PRT1B    IF ENOUGH ROOM                                      CPSA129        5     A     
 COMPASS            SA4    LSTTHOU                                                         CPSA129        6     A     
 COMPASS            NZ     X4,PRT2     IF ALREADY AT MAX. FL. WE HAVE LOST REFS.           CPSA129        7     A     
 COMPASS            BX1    X6                                                              CPSA129        8     A     
 COMPASS            RJ     RFL         GET MORE FL.                                        CPSA129        9     A     
 COMPASS            EQ     PRT1A       TRY AGAIN                                           CPSA129       10     A     
 COMPASS                                                                                   CPSA129       11     A     
 COMPASS   PRT1B    BSS    0                                                               CPSA129       12     A     
 COMPASS            BX7    X3                                                              CMP042        84     A     
 COMPASS            MX6    0                                                               CMP042        85     A     
 COMPASS   PRT2     SA7    L.REFTAB                                                        CMP042        86     A     
 COMPASS            SA6    A3          RESET LOSTREF                                       CMP042        87     A     
 COMPASS            BX6    X2                                                              CMP042        88     A     
 COMPASS            SA6    O.MEMORY                                                        COMPASS     4839     A     
 COMPASS                                                                                   CMP30       2208     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2209     A     
 COMPASS                                                                                   CMP30       2210     A     
 COMPASS            SB6    X1          READ REFERENCE TABLE                                COMPASS     4840     A     
 COMPASS            SB7    X7                                                              COMPASS     4841     A     
 COMPASS            RECALL C                                                               CMP30A         1          I
          -CPS064 
 COMPASS            READ   T                                                               COMPASS     4842     A     
 COMPASS            READW  T,B6,B7                                                         COMPASS     4843     A     
 COMPASS            NZ     X1,PRT5     IF ROOM FOR REFERENCE TABLE                         COMPASS     4844     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 424    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX0    B0                                                              COMPASS     4845          I
          -CMP042 
 COMPASS   PRT4     SX0    X0+B1       COUNT LOST REFERENCES                               COMPASS     4846          I
          -CMP19    -CMP042 
 COMPASS            READW  T,PRTA,1                                                        COMPASS     4847          I
          -CMP19    -CMP042 
 COMPASS            ZR     X1,PRT4                                                         COMPASS     4848          I
          -CMP19    -CMP042 
 COMPASS            SX6    X0                                                              COMPASS     4849          I
          -CMP19    -CMP042 
 COMPASS            SX5    B1                                                              CMP19         80          I
          -CMP042 
 COMPASS   PRT4     READW  X2,PRTA,1   COUNT LOST REFERENCES                               CMP19         81     A     
 COMPASS            IX0    X0+X5                                                           CMP19         82          I
          -CMP042 
 COMPASS            ZR     X1,PRT4     LOOP                                                CMP19         83     A     
 COMPASS            BX6    X0                                                              CMP19         84          I
          -CMP042 
 COMPASS            SA6    LOSTREF                                                         COMPASS     4850          I
          -CMP042 
 COMPASS            EQ     PRT6                                                            COMPASS     4851          I
          -CMP30  
 COMPASS   PRT5     SA2    O.REFTAB                                                        COMPASS     4852          I
          -CMP30  
 COMPASS            IX6    X1-X2                                                           COMPASS     4853          I
          -CMP30  
 COMPASS            SA6    L.REFTAB                                                        COMPASS     4854          I
          -CMP30  
 COMPASS   PRT6     EVICT  R                                                               COMPASS     4855          I
          -CMP30  
 COMPASS   PRT5     SX1    TBUF                                                            CMP30       2211     A     
 COMPASS            RJ     ACL         ADJUST CORE LIMITS                                  CMP30       2212     A     
 COMPASS                                                                                   CMP30       2213     A     
 COMPASS   RM       ELSE                                                                   CMP30       2214     A     
 COMPASS                                                                                   CMP30       2215     A     
 COMPASS            IX5    X7+X7                                                           CMP30       2216     A     
 COMPASS            LX7    3                                                               CMP30       2217     A     
 COMPASS            IX4    X5+X7                                                           CMP30       2218     A     
 COMPASS            GET    R,X1,X4     READ REFERENCE TABLE                                CMP30       2219          I
          -CPS028 
 COMPASS            GETP   R,X1,X4     READ REFERENCE TABLE                       S028 370 CPS028       274     A     
 COMPASS            FETCH  R,FP,X3                                                         CMP30       2220     A     
 COMPASS            NZ     X3,PRT7     IF ROOM FOR REFERENCE TABLE                         CMP30       2221     A     
 COMPASS   PRT4     GETP   R,T6RM1,10                                                      CMP30       2222     A     
 COMPASS            FETCH  R,FP,X3                                                         CMP30       2223     A     
 COMPASS            SX0    #EOI#+#EOP#+#EOS#+#EOR#                                         CMP30       2224     A     
 COMPASS            BX4    X0*X3                                                           CMP30       2225     A     
 COMPASS            ZR     X4,PRT4     IF MORE REFERENCES                                  CMP30       2226     A     
 COMPASS                                                                                   CMP30       2227     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2228     A     
 COMPASS                                                                                   CMP30       2229     A     
 COMPASS   PRT7     SA1    O.SYMTAB    PREPARE SYMBOL TABLE BY CLEARING OUT                COMPASS     4856     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 425    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    L.SYMTAB    BITS 42-59                                          COMPASS     4857     A     
 COMPASS            MX0    18                                                              COMPASS     4858     A     
 COMPASS            SB2    B1+B1                                                           COMPASS     4859     A     
 COMPASS            SB7    X2-2                                                            COMPASS     4860     A     
 COMPASS            SA5    X1+B1                                                           COMPASS     4861          I
          -CP096A 
 COMPASS            SB3    X1                                                              CP096A       259     A     
 COMPASS            SX1    X1+B1                                                           CP096A       260     A     
 COMPASS            RX5    X1                                                              CP096A       261     A     
 COMPASS            BX6    -X0*X5                                                          COMPASS     4862     A     
 COMPASS            SB6    42                                                              COMPASS     4863     A     
 COMPASS   PRT8     SA6    A5                                                              COMPASS     4864          I
          -CP096A 
 COMPASS   PRT8     WX6    X1                                                              CP096A       262     A     
 COMPASS            SX1    X1+B2                                                           CP096A       263     A     
 COMPASS            SB7    B7-B2                                                           COMPASS     4865     A     
 COMPASS            SA5    A5+B2                                                           COMPASS     4866          I
          -CP096A 
 COMPASS            RX5    X1                                                              CP096A       264     A     
 COMPASS            BX6    -X0*X5                                                          COMPASS     4867     A     
 COMPASS            PL     B7,PRT8                                                         COMPASS     4868     A     
 COMPASS            SA5    L.REFTAB    CONSTRUCT REFERENCE LINK                            COMPASS     4869     A     
 COMPASS            ZR     X5,PRT10    IF REFERENCE TABLE EMPTY                            COMPASS     4870     A     
 COMPASS            SA2    O.REFTAB                                                        COMPASS     4871     A     
 COMPASS            SB7    X5-1                                                            COMPASS     4872     A     
 COMPASS            SB3    X1                                                              COMPASS     4873          I
          -CP096A 
 COMPASS            SA2    X2+B7                                                           COMPASS     4874     A     
 COMPASS            AX3    X2,B6                                                           COMPASS     4875     A     
 COMPASS            BX5    -X0*X2                                                          COMPASS     4876     A     
 COMPASS   PRT9     SA1    X3+B3       FETCH SYMBOL TABLE ENTRY                            COMPASS     4877          I
          -CP096A 
 COMPASS   PRT9     SX3    X3+B3       FETCH SYMBOL TABLE ENTRY                            CP096A       265     A     
 COMPASS            RX1    X3                                                              CP096A       266     A     
 COMPASS            SA2    A2-B1       REFERENCE ENTRY FOR NEXT ITERATION                  COMPASS     4878     A     
 COMPASS            BX4    X0*X1       ISOLATE LINK FROM SYMBOL TABLE                      COMPASS     4879     A     
 COMPASS            IX6    X4+X5       ADD SYMBOL T. LINK TO REF ENTRY                     COMPASS     4880     A     
 COMPASS            SX5    B7+B1       REFTAB ORDINAL                                      COMPASS     4881     A     
 COMPASS            LX3    X5,B6                                                           COMPASS     4882          I
          -CP096A 
 COMPASS            LX7    X5,B6                                                           CP096A       267     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     4883     A     
 COMPASS            BX1    -X0*X1                                                          COMPASS     4884     A     
 COMPASS            IX7    X1+X3       ADD REFTAB ORDINAL TO SYMTAB ENTRY                  COMPASS     4885          I
          -CP096A 
 COMPASS            AX3    X2,B6       ISOLATE SYMBOL INDEX FOR NEXT PASS                  COMPASS     4886          I
          -CP096A 
 COMPASS            IX7    X7+X1       ADD REFTAB ORDINAL TO SYMTAB ENTRY                  CP096A       268     A     
 COMPASS            SA6    A2+B1                                                           COMPASS     4887     A     
 COMPASS            SA7    A1                                                              COMPASS     4888          I
          -CP096A 
 COMPASS            WX7    X3                                                              CP096A       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/28. 19.11.32.      PAGE 426    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX3    X2,B6       ISOLATE SYMBOL INDEX FOR NEXT PASS                  CP096A       270     A     
 COMPASS            BX5    -X0*X2                                                          COMPASS     4889     A     
 COMPASS            PL     B7,PRT9                                                         COMPASS     4890     A     
 COMPASS   PRT10    SA2    L.SYMTAB    CLEAR UNREFERENCED SST ENTRIES                      COMPASS     4891     A     
 COMPASS            SA1    O.SYMTAB                                                        COMPASS     4892     A     
 COMPASS            SB2    B1+B1                                                           COMPASS     4893     A     
 COMPASS            SB7    X2                                                              COMPASS     4894     A     
 COMPASS            SA1    X1-2                                                            COMPASS     4895          I
          -CMP19  
 COMPASS            SA2    A1+B1                                                           COMPASS     4896          I
          -CMP19  
 COMPASS            SB6    59-34                                                           COMPASS     4897          I
          -CMP19  
 COMPASS            MX7    0                                                               COMPASS     4898          I
          -CMP19  
 COMPASS                                                                                   COMPASS     4899          I
          -CMP19  
 COMPASS   PRT11    SA1    A1+B2                                                           COMPASS     4900          I
          -CMP19  
 COMPASS            SA2    A2+B2                                                           COMPASS     4901          I
          -CMP19  
 COMPASS            ZR     B7,PRT13    IF END OF SYMBOL TABLE                              COMPASS     4902          I
          -CMP19  
 COMPASS            SB7    B7-B2                                                           COMPASS     4903          I
          -CMP19  
 COMPASS            LX5    X2,B6                                                           COMPASS     4904          I
          -CMP19  
 COMPASS            BX3    X0*X2                                                           COMPASS     4905          I
          -CMP19  
 COMPASS            LX4    X5,B2                                                           COMPASS     4906          I
          -CMP19  
 COMPASS            ZR     X1,PRT11    IF VACANT ENTRY                                     COMPASS     4907          I
          -CMP19  
 COMPASS            NZ     X3,PRT11    IF REFERENCED ENTRY                                 COMPASS     4908          I
          -CMP19  
 COMPASS            NG     X5,PRT12    IF XTEXT                                            COMPASS     4909          I
          -CMP19  
 COMPASS            PL     X4,PRT11    IF NOT SST                                          COMPASS     4910          I
          -CMP19  
 COMPASS   PRT12    SA7    A1                                                              COMPASS     4911          I
          -CMP19  
 COMPASS            SA7    A2                                                              COMPASS     4912          I
          -CMP19  
 COMPASS            SA1    X1-1                                                            CMP19         85          I
          -CP096A 
 COMPASS            SX4    X1+1                                                            CP096A       271     A     
 COMPASS            SA2    LT+1                                                            CMP19         86     A     
 COMPASS            SA5    LN+1                                                            CMP19         87     A     
 COMPASS            SX6    5                                                               CMP19         88          I
          -CMP26  
 COMPASS            BX2    X6-X2                                                           CMP19         89          I
          -CMP26  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 427    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX2    32                                                              CMP19         90          I
          -CMP26  
 COMPASS            SB6    59-35                                                           CMP19         91     A     
 COMPASS            SX7    0                                                               CMP19         92     A     
 COMPASS            BX2    -X2                                                             CMP26         12     A     
 COMPASS            SX6    X2+B1                                                           CMP26         13     A     
 COMPASS            BX2    X6                                                              CMP26         14     A     
 COMPASS            LX2    34-32                                                           CMP26         15     A     
 COMPASS            BX2    X2+X6       X2 = 5 * (1 - (LT))                                 CMP26         16     A     
 COMPASS            LX2    32                                                              CMP26         17     A     
 COMPASS   PRT11    SA1    A1+B2                                                           CMP19         93          I
          -CP096A 
 COMPASS   PRT11    RX1    X4          FETCH SYMTAB ENTRY                                  CP096A       272     A     
 COMPASS            SX4    X4+B2                                                           CP096A       273     A     
 COMPASS            ZR     B7,PRT13    IF END OF SYMBOL TABLE                              CMP19         94     A     
 COMPASS            SB7    B7-B2                                                           CMP19         95     A     
 COMPASS            LX6    X1,B6                                                           CMP19         96     A     
 COMPASS            BX3    X0*X1                                                           CMP19         97     A     
 COMPASS            NG     X6,PRT12    IF NOREF ENTRY                                      CMP19         98     A     
 COMPASS            BX4    X2*X1                                                           CMP19         99          I
          -CP096A 
 COMPASS            BX6    X2*X1                                                           CP096A       274     A     
 COMPASS            NZ     X3,PRT11    IF REFERENCED ENTRY                                 CMP19        100     A     
 COMPASS            NZ     X4,PRT12    IF SST OR XTEXT                                     CMP19        101          I
          -CMP26  
 COMPASS            NZ     X4,PRT12    IF SST OR XTEXT, BUT NO LIST T                      CMP26         18          I
          -CP096A 
 COMPASS            NZ     X6,PRT12    IF SST OR XTEXT, BUT NO LIST T                      CP096A       275     A     
 COMPASS            NZ     X5,PRT11    IF LIST N                                           CMP19        102     A     
 COMPASS   PRT12    SA7    A1                                                              CMP19        103          I
          -CP096A 
 COMPASS            SA7    A1-B1                                                           CMP19        104          I
          -CP096A 
 COMPASS   PRT12    SX6    X4-3                                                            CP096A       276     A     
 COMPASS            WX7    X6          CLEAR SYMTAB ENTRY                                  CP096A       277     A     
 COMPASS            SX6    X6+B1                                                           CP096A       278     A     
 COMPASS            WX7    X6                                                              CP096A       279     A     
 COMPASS            EQ     PRT11       LOOP                                                COMPASS     4913     A     
 COMPASS                                                                                   COMPASS     4914     A     
 COMPASS   PRT13    SA2    L.SYMTAB    LEFT JUSTIFY SYMBOLS                                COMPASS     4915     A     
 COMPASS            SA3    O.SYMTAB                                                        COMPASS     4916     A     
 COMPASS            SB2    B1+B1                                                           COMPASS     4917     A     
 COMPASS            MX0    12                                                              COMPASS     4918     A     
 COMPASS            SB7    X2                                                              COMPASS     4919     A     
 COMPASS            SA1    X3-2                                                            COMPASS     4920          I
          -CP096A 
 COMPASS            MX3    18                                                              COMPASS     4921          I
          -CP096A 
 COMPASS            BX6    X1                                                              COMPASS     4922          I
          -CP096A 
 COMPASS            SA6    A1                                                              COMPASS     4923          I
          -CP096A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 428    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX5    0                                                               COMPASS     4924          I
          -CP096A 
 COMPASS            RX1    X3                                                              CP096A       280     A     
 COMPASS            SX4    X3                                                              CP096A       281     A     
 COMPASS            MX5    18                                                              CP096A       282     A     
 COMPASS            SB3    36                                                              COMPASS     4925          I
          -CMP19  
 COMPASS            SB4    -2R'?                                                           COMPASS     4926          I
          -CMP19  
 COMPASS                                                                                   COMPASS     4927     A     
 COMPASS   PRT14    SA1    A1+B2       LEFT JUSTIFY SYMBOLS AND ELIMINATE                  COMPASS     4928          I
          -CP096A 
 COMPASS            BX6    -X0*X1      ZERO ENTRIES                                        COMPASS     4929          I
          -CP096A 
 COMPASS            ZR     X6,PRT16                                                        COMPASS     4930          I
          -CP096A 
 COMPASS   PRT14    BX6    -X0*X1      LEFT JUSTIFY SYMBOLS AND                            CP096A       283     A     
 COMPASS            ZR     X6,PRT16    ELIMINATE ZERO ENTRIES                              CP096A       284     A     
 COMPASS            SX2    X3+B1                                                           CP096A       285     A     
 COMPASS            AX2    X6,B3       ELIMINATE INVENTED SYMBOLS                          COMPASS     4931          I
          -CMP19  
 COMPASS            SB5    X2+B4                                                           COMPASS     4932          I
          -CMP19  
 COMPASS            ZR     B5,PRT16                                                        COMPASS     4933          I
          -CMP19  
 COMPASS   PRT15    BX4    X3*X6                                                           COMPASS     4934          I
          -CP096A 
 COMPASS   PRT15    BX7    X5*X6                                                           CP096A       286     A     
 COMPASS            LX6    6                                                               COMPASS     4935     A     
 COMPASS            ZR     X4,PRT15                                                        COMPASS     4936          I
          -CP096A 
 COMPASS            ZR     X7,PRT15                                                        CP096A       287     A     
 COMPASS            RX2    X2                                                              CP096A       288     A     
 COMPASS            AX6    6                                                               COMPASS     4937     A     
 COMPASS            BX1    X0*X1                                                           COMPASS     4938     A     
 COMPASS            IX6    X6+X1                                                           COMPASS     4939     A     
 COMPASS            SA4    A1+B1       MOVE EQUIVALENT                                     COMPASS     4940          I
          -CP096A 
 COMPASS            SA6    A6+B2                                                           COMPASS     4941          I
          -CP096A 
 COMPASS            BX7    X4                                                              COMPASS     4942          I
          -CP096A 
 COMPASS            SX5    X5+B2                                                           COMPASS     4943          I
          -CP096A 
 COMPASS            SA7    A6+B1                                                           COMPASS     4944          I
          -CP096A 
 COMPASS   PRT16    SB7    B7-B2                                                           COMPASS     4945          I
          -CP096A 
 COMPASS            BX7    X2          MOVE SYMTAB ENTRY                                   CP096A       289     A     
 COMPASS            WX6    X4                                                              CP096A       290     A     
 COMPASS            SX4    X4+B1                                                           CP096A       291     A     
 COMPASS            WX7    X4                                                              CP096A       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/28. 19.11.32.      PAGE 429    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX4    X4+B1                                                           CP096A       293     A     
 COMPASS   PRT16    SX3    X3+B2                                                           CP096A       294     A     
 COMPASS            SB7    B7-B2                                                           CP096A       295     A     
 COMPASS            RX1    X3                                                              CP096A       296     A     
 COMPASS            NZ     B7,PRT14                                                        COMPASS     4946     A     
 COMPASS                                                                                   COMPASS     4947     A     
 COMPASS            ZR     X5,PRTX     IF NO SYMBOLS                                       COMPASS     4948          I
          -CP096A 
 COMPASS            BX7    X5                                                              COMPASS     4949          I
          -CP096A 
 COMPASS            SA7    A2          RESTORE SYMBOL TABLE SIZE                           COMPASS     4950          I
          -CP096A 
 COMPASS            SA3    O.SYMTAB    UPDATE SYMBOL TABLE SIZE                            CP096A       297     A     
 COMPASS            IX7    X4-X3                                                           CP096A       298     A     
 COMPASS            SA7    L.SYMTAB                                                        CP096A       299     A     
 COMPASS            ZR     X7,PRTX     IF NO SYMBOLS                                       CP096A       300     A     
 COMPASS            SA1    =1H         PREPARE SUBTITLE                                    COMPASS     4951     A     
 COMPASS            SX2    SUBTIT                                                          COMPASS     4952     A     
 COMPASS            SX3    SUBTIT+SUBL                                                     COMPASS     4953     A     
 COMPASS            RJ     PRESET                                                          COMPASS     4954     A     
 COMPASS            SA1    =H*        SYMBOLIC REFERENCE TABLE.*                           COMPASS     4955     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     4956     A     
 COMPASS            BX6    X1                                                              COMPASS     4957     A     
 COMPASS            LX7    X2                                                              COMPASS     4958     A     
 COMPASS            SA6    SUBTIT                                                          COMPASS     4959     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     4960     A     
 COMPASS            SA1    A2+B1                                                           COMPASS     4961     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     4962     A     
 COMPASS            BX7    X1                                                              COMPASS     4963     A     
 COMPASS            LX6    X2                                                              COMPASS     4964     A     
 COMPASS            SA7    A7+B1                                                           COMPASS     4965     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     4966     A     
 COMPASS            SA1    LPCNT       CAUSE PAGE EJECT                                    COMPASS     4967     A     
 COMPASS            SA2    PSIZE                                                           COMPASS     4968     A     
 COMPASS            IX7    X1+X2                                                           COMPASS     4969     A     
 COMPASS            SA7    A1                                                              COMPASS     4970     A     
 COMPASS            NZ     X2,PRT16.1  IF PAGE EJECT NOT SUPPRESSED                        CPSA208       13     A     
 COMPASS            SX0    2           ELSE PRINT SOME BLANK LINES                         CPSA208       14     A     
 COMPASS            RJ     LBL                                                             CPSA208       15     A     
 COMPASS            SA1    LPCNT                                                           CPSA208       16     A     
 COMPASS            SX0    2                                                               CPSA208       17     A     
 COMPASS            SA2    CP.PS       CHECK FOR END OF PAGE                               CPSA208       18     A     
 COMPASS            IX6    X1+X0                                                           CPSA208       19     A     
 COMPASS            IX2    X6-X2                                                           CPSA208       20     A     
 COMPASS            SA6    A1          INCREMENT LINE COUNT                                CPSA208       21     A     
 COMPASS            PL     X2,PRT16.1                                                      CPSA208       22     A     
 COMPASS            RJ     LHDS        AND PRINT SUBTITLE LINE                             CPSA208       23     A     
 COMPASS   PRT16.1  BSS    0                                                               CPSA208       24     A     
 COMPASS            SA1    LOSTREF                                                         COMPASS     4971     A     
 COMPASS            ZR     X1,PRT17    IF NO LOST REFERENCES                               COMPASS     4972     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     4973     A     
 COMPASS            SA1    =20HLOST REFERENCES.                                            COMPASS     4974          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 430    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS            SA2    A1+B1                                                           COMPASS     4975          I
          -CMP042 
 COMPASS            LX6    6                                                               COMPASS     4976          I
          -CMP042 
 COMPASS            BX7    X1                                                              COMPASS     4977          I
          -CMP042 
 COMPASS            SA6    SUBTIT+4                                                        COMPASS     4978          I
          -CMP042 
 COMPASS            SA7    A6+B1                                                           COMPASS     4979          I
          -CMP042 
 COMPASS            BX7    X2                                                              COMPASS     4980          I
          -CMP042 
 COMPASS            SA7    A7+B1                                                           COMPASS     4981          I
          -CMP042 
 COMPASS            MESSAGE A6,,R                                                          COMPASS     4982          I
          -CMP042 
 COMPASS            SA1    FIELDL                                                          COMPASS     4983          I
          -CMP042 
 COMPASS            SA2    LOSTREF                                                         COMPASS     4984          I
          -CMP042 
 COMPASS            IX1    X1+X2                                                           COMPASS     4985          I
          -CMP042 
 COMPASS            RJ     CONOCT                                                          COMPASS     4986          I
          -CMP042 
 COMPASS            SA6    P2TEMP                                                          COMPASS     4987          I
          -CMP042 
 COMPASS            SA3    =C*STORAGE REQUIRED.*                                           COMPASS     4988          I
          -CMP042 
 COMPASS            SA4    A3+B1                                                           COMPASS     4989          I
          -CMP042 
 COMPASS            BX6    X3                                                              COMPASS     4990          I
          -CMP042 
 COMPASS            LX7    X4                                                              COMPASS     4991          I
          -CMP042 
 COMPASS            SA6    A6+B1                                                           COMPASS     4992          I
          -CMP042 
 COMPASS            SA7    A6+B1                                                           COMPASS     4993          I
          -CMP042 
 COMPASS            MESSAGE P2TEMP,,R                                                      COMPASS     4994          I
          -CMP042 
 COMPASS            SA6    SUBTIT+4                                                        CMP042        89     A     
 COMPASS            SA1    =20H LOST REFERENCES IN                                         CMP042        90     A     
 COMPASS            SA2    A1+B1                                                           CMP042        91     A     
 COMPASS            BX6    X1                                                              CMP042        92     A     
 COMPASS            LX7    X2                                                              CMP042        93     A     
 COMPASS            SA1    ASMM+1                                                          CMP042        94     A     
 COMPASS            SX2    1R                                                              CMP042        95     A     
 COMPASS            SA6    A6+B1                                                           CMP042        96     A     
 COMPASS            SA7    A6+B1                                                           CMP042        97     A     
 COMPASS            LX1    6                                                               CMP042        98     A     
 COMPASS            BX6    X1-X2                                                           CMP042        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/28. 19.11.32.      PAGE 431    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A7+B1                                                           CMP042       100     A     
 COMPASS            JOBMSG SUBTIT+4,R                                                      CMP042       101          I
          -CMP30  
 COMPASS            MESSAGE SUBTIT+4,,R                                                    CMP30       2230     A     
 COMPASS            SA1    =10HRENCES.                                                     CMP042       102     A     
 COMPASS            SA2    =10H                                                            CMP042       103     A     
 COMPASS            BX6    X1                                                              CMP042       104     A     
 COMPASS            LX7    X2                                                              CMP042       105     A     
 COMPASS            SA6    SUBTIT+6                                                        CMP042       106     A     
 COMPASS            SA7    A6+B1                                                           CMP042       107     A     
 COMPASS                                                                                   COMPASS     4995     A     
 COMPASS  *         SHELL SORT OF SYMBOL TABLE.                                            COMPASS     4996     A     
 COMPASS                                                                                   COMPASS     4997     A     
 COMPASS   PRT17    SA3    L.SYMTAB                                                        COMPASS     4998     A     
 COMPASS            SA2    O.SYMTAB                                                        COMPASS     4999     A     
 COMPASS            ZR     X3,PRTX     IF SYMBOL TABLE IS NOW EMPTY                        COMPASS     5000     A     
 COMPASS            SA0    X2-2        (A0) = TABLE ADDRESS                                COMPASS     5001     A     
 COMPASS            SB7    X3          N = LENGTH                                          COMPASS     5002     A     
 COMPASS            SB6    X3          M = N                                               COMPASS     5003     A     
 COMPASS            SX5    2                                                               CP096A       301     A     
 COMPASS                                                                                   COMPASS     5004     A     
 COMPASS   PRT18    SX0    B6          M = M/2                                             COMPASS     5005     A     
 COMPASS            AX0    2                                                               COMPASS     5006     A     
 COMPASS            LX0    1                                                               COMPASS     5007     A     
 COMPASS            SB6    X0                                                              COMPASS     5008     A     
 COMPASS            ZR     B6,PRT22    IF M = 0                                            COMPASS     5009     A     
 COMPASS            SB4    B7-B6       K = N - M                                           COMPASS     5010     A     
 COMPASS            SB3    B1+B1       J = 1                                               COMPASS     5011     A     
 COMPASS   PRT19    SB2    B3          I = J                                               COMPASS     5012          I
          -CP096A 
 COMPASS            SB2    B3+         I = J                                               CP096A       302     A     
 COMPASS   PRT20    SB5    B2+B6       L = I + M                                           COMPASS     5013     A     
 COMPASS            SA1    A0+B2       A(I)                                                COMPASS     5014          I
          -CP096A 
 COMPASS            SA2    A0+B5       A(L)                                                COMPASS     5015          I
          -CP096A 
 COMPASS            IX6    X2-X1                                                           COMPASS     5016          I
          -CP096A 
 COMPASS            SX1    A0+B2                                                           CP096A       303     A     
 COMPASS            SX2    A0+B5                                                           CP096A       304     A     
 COMPASS            RX3    X1          A(I)                                                CP096A       305     A     
 COMPASS            RX4    X2          A(L)                                                CP096A       306     A     
 COMPASS            IX6    X4-X3                                                           CP096A       307     A     
 COMPASS            PL     X6,PRT21    IF A(L) \ A(I)                                      COMPASS     5017     A     
 COMPASS            SA3    A1+B1       INTERCHANGE A(L) AND A(I)                           COMPASS     5018          I
          -CP096A 
 COMPASS            SA4    A2+B1                                                           COMPASS     5019          I
          -CP096A 
 COMPASS            BX6    X1                                                              COMPASS     5020          I
          -CP096A 
 COMPASS            LX7    X3                                                              COMPASS     5021          I
          -CP096A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 432    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A2                                                              COMPASS     5022          I
          -CP096A 
 COMPASS            SA7    A4                                                              COMPASS     5023          I
          -CP096A 
 COMPASS            BX6    X2                                                              COMPASS     5024          I
          -CP096A 
 COMPASS            LX7    X4                                                              COMPASS     5025          I
          -CP096A 
 COMPASS            SA6    A1                                                              COMPASS     5026          I
          -CP096A 
 COMPASS            SA7    A3                                                              COMPASS     5027          I
          -CP096A 
 COMPASS            BX6    X4          INTERCHANGE A(L) AND A(I)                           CP096A       308     A     
 COMPASS            LX7    X3                                                              CP096A       309     A     
 COMPASS            WX6    X1                                                              CP096A       310     A     
 COMPASS            WX7    X2                                                              CP096A       311     A     
 COMPASS            SX1    X1+B1       INTERCHANGE SECOND WORDS OF ENTRIES                 CP096A       312     A     
 COMPASS            SX2    X2+B1                                                           CP096A       313     A     
 COMPASS            RX3    X1                                                              CP096A       314     A     
 COMPASS            RX4    X2                                                              CP096A       315     A     
 COMPASS            SB2    B2-B6       I = I - M                                           COMPASS     5028     A     
 COMPASS            BX6    X3                                                              CP096A       316     A     
 COMPASS            LX7    X4                                                              CP096A       317     A     
 COMPASS            WX6    X2                                                              CP096A       318     A     
 COMPASS            WX7    X1                                                              CP096A       319     A     
 COMPASS            GT     B2,PRT20    IF I > 0                                            COMPASS     5029     A     
 COMPASS   PRT21    SB3    B3+2        J = J + 1                                           COMPASS     5030          I
          -CP096A 
 COMPASS            LE     B3,B4,PRT19  IF J @ K                                           COMPASS     5031          I
          -CP096A 
 COMPASS   PRT21    SB3    B3+X5       J = J + 1                                           CP096A       320     A     
 COMPASS            SB2    B3          I = J                                               CP096A       321     A     
 COMPASS            LE     B3,B4,PRT20 IF J @ K                                            CP096A       322     A     
 COMPASS            EQ     PRT18       LOOP                                                COMPASS     5032     A     
 COMPASS                                                                                   COMPASS     5033     A     
 COMPASS  *         OUTPUT CROSS REFERENCE TABLE.                                          COMPASS     5034     A     
 COMPASS                                                                                   COMPASS     5035     A     
 COMPASS   PRT22    SX6    B0          QUAL VALUE                                          COMPASS     5036     A     
 COMPASS            SA6    QVAL                                                            COMPASS     5037     A     
 COMPASS                                                                                   COMPASS     5038     A     
 COMPASS   PRT23    SA3    L.SYMTAB                                                        COMPASS     5039     A     
 COMPASS            SA2    O.SYMTAB                                                        COMPASS     5040     A     
 COMPASS            MX6    0                                                               CMP042       108     A     
 COMPASS            SA6    L.MEMORY                                                        CMP042       109     A     
 COMPASS            SA6    LOSTREF                                                         CMP042       110     A     
 COMPASS            ZR     X3,PRTX     IF SYMBOL TABLE EMPTY                               COMPASS     5041     A     
 COMPASS            SX7    X3-2                                                            COMPASS     5042     A     
 COMPASS            SX6    X2+2                                                            COMPASS     5043     A     
 COMPASS            SA7    A3                                                              COMPASS     5044     A     
 COMPASS            SA6    A2                                                              COMPASS     5045     A     
 COMPASS            SA0    1R                                                              COMPASS     5046     A     
 COMPASS            MX0    12                                                              COMPASS     5047     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 433    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    X2                                                              COMPASS     5048          I
          -CP096A 
 COMPASS            RX1    X2                                                              CP096A       323     A     
 COMPASS            SA4    QVAL        CHECK FOR QUALIFIER CHANGE                          COMPASS     5049     A     
 COMPASS            BX6    X0*X1                                                           COMPASS     5050     A     
 COMPASS            BX4    X4-X6                                                           COMPASS     5051     A     
 COMPASS            ZR     X4,PRT27    IF NO CHANGE                                        COMPASS     5052     A     
 COMPASS                                                                                   COMPASS     5053     A     
 COMPASS  *         INDICATE QUALIFIER CHANGE.                                             COMPASS     5054     A     
 COMPASS                                                                                   COMPASS     5055     A     
 COMPASS            SA6    A4                                                              COMPASS     5056     A     
 COMPASS            SA2    O.QVTAB     SET QUALIFIER NAME                                  COMPASS     5057     A     
 COMPASS            LX6    12                                                              COMPASS     5058     A     
 COMPASS            IX1    X2+X6                                                           COMPASS     5059     A     
 COMPASS            ZR     X6,PRT24    IF QUAL = 0                                         COMPASS     5060     A     
 COMPASS            SA1    X1-1                                                            COMPASS     5061     A     
 COMPASS            BX6    X1                                                              COMPASS     5062          I
          -CMP19  
 COMPASS            MX6    -48                                                             CMP19        105     A     
 COMPASS            BX6    -X6*X1                                                          CMP19        106     A     
 COMPASS   PRT24    SA6    SUBNAME                                                         COMPASS     5063     A     
 COMPASS            BX1    X6                                                              COMPASS     5064     A     
 COMPASS            RJ     LJUST                                                           COMPASS     5065     A     
 COMPASS            SA6    LINE+3                                                          COMPASS     5066     A     
 COMPASS            SX6    A6+B1                                                           COMPASS     5067     A     
 COMPASS            SA6    LLINE                                                           COMPASS     5068     A     
 COMPASS            SA1    =H*SYMBOL QUALIFIER =*                                          COMPASS     5069     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     5070     A     
 COMPASS            BX6    X1                                                              COMPASS     5071     A     
 COMPASS            LX7    X2                                                              COMPASS     5072     A     
 COMPASS            SA6    LINE+1                                                          COMPASS     5073     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     5074     A     
 COMPASS            SA1    LPCNT       CHECK LINE NUMBER                                   COMPASS     5075     A     
 COMPASS            SB7    X1+7-PAGESIZ                                                    COMPASS     5076          I
          -F4810A 
 COMPASS            SX2    CP.PS       PAGE SIZE                                   F4810A  F4810A       179          I
          -CPSA125
 COMPASS            SA2    CP.PS       PAGE SIZE                                           CPSA125       52     A     
 COMPASS            IX2    X1-X2       CHECK IF END OF PAGE                        F4810A  F4810A       180     A     
 COMPASS            SB7    X2+7                                                    F4810A  F4810A       181     A     
 COMPASS            NG     B7,PRT25    IN NOT END OF PAGE                                  COMPASS     5077     A     
 COMPASS            SA2    PSIZE       FORCE EJECT                                         COMPASS     5078     A     
 COMPASS            ZR     X2,PRT25    IF NO EJECT                                         COMPASS     5079     A     
 COMPASS            IX7    X1+X2                                                           COMPASS     5080     A     
 COMPASS            SA7    A1                                                              COMPASS     5081     A     
 COMPASS            EQ     PRT26                                                           COMPASS     5082     A     
 COMPASS   PRT25    SX0    4           LIST 4 BLANK LINES                                  COMPASS     5083     A     
 COMPASS            RJ     LBL                                                             COMPASS     5084     A     
 COMPASS   PRT26    RJ     LISTL                                                           COMPASS     5085     A     
 COMPASS            SX0    2           LIST 2 BLANK LINES                                  COMPASS     5086     A     
 COMPASS            RJ     LBL                                                             COMPASS     5087     A     
 COMPASS            SA2    O.SYMTAB                                                        COMPASS     5088     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 434    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    X2-2                                                            COMPASS     5089          I
          -CP096A 
 COMPASS            SX2    X2-2                                                            CP096A       324     A     
 COMPASS            RX1    X2                                                              CP096A       325     A     
 COMPASS            SA0    1R                                                              COMPASS     5090     A     
 COMPASS            MX0    12                                                              COMPASS     5091     A     
 COMPASS                                                                                   COMPASS     5092     A     
 COMPASS  *         LIST SYMBOL AND VALUE.                                                 COMPASS     5093     A     
 COMPASS                                                                                   COMPASS     5094     A     
 COMPASS   PRT27    BX1    -X0*X1                                                          COMPASS     5095     A     
 COMPASS            MX0    54                                                              COMPASS     5096     A     
 COMPASS            LX1    18                                                              COMPASS     5097     A     
 COMPASS            SX6    A0                                                              COMPASS     5098     A     
 COMPASS            SA6    OCTAL+7                                                         COMPASS     5099     A     
 COMPASS            BX6    -X0*X1      STORE SYMBOL NAME                                   COMPASS     5100     A     
 COMPASS   PRT28    LX1    6                                                               COMPASS     5101     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     5102     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     5103     A     
 COMPASS            NZ     X6,PRT28    STOP AT END OF SYMBOL                               COMPASS     5104     A     
 COMPASS            SA1    A1+B1       FETCH EQUIVALENT                                    COMPASS     5105          I
          -CP096A 
 COMPASS            SX2    X2+B1                                                           CP096A       326     A     
 COMPASS            RX1    X2          FETCH EQUIVALENT                                    CP096A       327     A     
 COMPASS            BX6    X1                                                              COMPASS     5106     A     
 COMPASS            LX6    29                                                              COMPASS     5107     A     
 COMPASS            PL     X6,PRT32    IF SYMBOL IS UNDEFINED                              COMPASS     5108     A     
 COMPASS            BX7    X2          SAVE CONTENTS OF X2                                 CPSA200        6     A     
 COMPASS            SA7    P2TEMP                                                          CPSA200        7     A     
 COMPASS            SX6    A0          STORE 21-BIT DEFINITION                             COMPASS     5109          I
          -F4820  
 COMPASS            MX0    60-21                                                           COMPASS     5110          I
          -F4820  
 COMPASS            BX1    -X0*X1                                                          COMPASS     5111          I
          -F4820  
 COMPASS            SA6    OCTAL+23                                                        COMPASS     5112          I
          -F4820  
 COMPASS            MX4    57                                                              COMPASS     5113          I
          -F4820  
 COMPASS            SX3    1R0                                                             COMPASS     5114          I
          -F4820  
 COMPASS            SB7    6                                                               COMPASS     5115          I
          -F4820  
 COMPASS   PRT29    BX2    -X4*X1                                                          COMPASS     5116          I
          -CP096A   -F4820  
 COMPASS            IX6    X2+X3                                                           COMPASS     5117          I
          -CP096A   -F4820  
 COMPASS   PRT29    BX7    -X4*X1                                                          CP096A       328          I
          -F4820  
 COMPASS            IX6    X7+X3                                                           CP096A       329          I
          -F4820  
 COMPASS            SB7    B7-B1                                                           COMPASS     5118          I
          -F4820  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 435    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX1    3                                                               COMPASS     5119          I
          -F4820  
 COMPASS            SA6    A6-B1                                                           COMPASS     5120          I
          -F4820  
 COMPASS            ZR     X1,PRT30    IF END OF VALUE                                     COMPASS     5121          I
          -F4820  
 COMPASS            PL     B7,PRT29    LOOP                                                COMPASS     5122          I
          -F4820  
 COMPASS   PRT30    SA1    A1                                                              COMPASS     5123          I
          -CP096A   -F4820  
 COMPASS   PRT30    RX1    X2                                                              CP096A       330          I
          -F4820  
 COMPASS            MX0    -21         STORE 21-BIT DEFINITION                             F4820        177     A     
 COMPASS            BX1    -X0*X1      CALL PACKO(VALUE,23,0)                              F4820        178     A     
 COMPASS            SX2    23                                                              F4820        179          I
          -CPS0325
 COMPASS            SX2    25                                                              CPS0325        6     A     
 COMPASS            MX3    0                                                               F4820        180     A     
 COMPASS            RJ     PACKO                                                           F4820        181     A     
 COMPASS            SA2    P2TEMP                                                          CPSA200        8     A     
 COMPASS            RX1    X2                                                              CPSA200        9     A     
 COMPASS            MX0    54                                                              COMPASS     5124     A     
 COMPASS            BX2    X1                                                              COMPASS     5125     A     
 COMPASS            LX2    28                                                              COMPASS     5126     A     
 COMPASS            SX6    A0                                                              COMPASS     5127     A     
 COMPASS            SA5    =9REXTERNAL*                                                    COMPASS     5128     A     
 COMPASS            NG     X2,PRT31    IF EXTERNAL                                         COMPASS     5129     A     
 COMPASS            LX2    59                                                              COMPASS     5130     A     
 COMPASS            SA5    SYSTEXT                                                         COMPASS     5131          I
          -CMP27  
 COMPASS            SA5    SYSNAME                                                         CMP27          7          I
          -CMP30  
 COMPASS            NG     X2,PRT31    IF SYSTEXT                                          COMPASS     5132          I
          -CMP30  
 COMPASS            AX1    21          FIND RELOCATION                                     COMPASS     5133          I
          -CMP30  
 COMPASS            PL     X2,PRT30A   IF NOT SYSTEXT                                      CMP30       2231     A     
 COMPASS            MX3    -3                                                              CMP30       2232     A     
 COMPASS            AX2    3                                                               CMP30       2233     A     
 COMPASS            BX3    -X3*X2      EXTRACT SYSTEXT ORDINAL                             CMP30       2234     A     
 COMPASS            SA2    CP.STEXT+X3                                                     CMP30       2235     A     
 COMPASS            BX5    X0*X2       GET OVERLAY NAME                                    CMP30       2236     A     
 COMPASS            NZ     X5,PRT31                                                        CMP30       2237     A     
 COMPASS            SA5    CP.LIB+X3   IF NONE, USE FILE NAME                              CMP30       2238     A     
 COMPASS            EQ     PRT31                                                           CMP30       2239     A     
 COMPASS   PRT30A   AX1    21          FIND RELOCATION                                     CMP30       2240     A     
 COMPASS            MX2    52                                                              COMPASS     5134     A     
 COMPASS            BX3    -X2*X1                                                          COMPASS     5135     A     
 COMPASS            LX1    51                                                              COMPASS     5136     A     
 COMPASS   +        PL     X1,*+1                                                          COMPASS     5137     A     
 COMPASS            SX6    1R-                                                             COMPASS     5138     A     
 COMPASS            SX5    A0                                                              COMPASS     5139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 436    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X3,PRT31    IF ABSOLUTE                                         COMPASS     5140     A     
 COMPASS            SA4    LLB                                                             CMP30       2241     A     
 COMPASS            SA5    =9RLCMLOCAL*                                                    CMP30       2242     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS     5141     A     
 COMPASS            SA1    UI                                                              RSM4159        5     A     
 COMPASS            IX2    X2+X1       BASE ADDRESS OF BLOCK GROUP                         RSM4159        6     A     
 COMPASS            LX3    24                                                              COMPASS     5142     A     
 COMPASS            MX1    36                                                              COMPASS     5143          I
          -CMP30  
 COMPASS            BX4    X4-X3                                                           CMP30       2243     A     
 COMPASS            ZR     X4,PRT31    IF LCM LOCAL                                        CMP30       2244     A     
 COMPASS            MX1    -9                                                              CMP30       2245     A     
 COMPASS            SA2    X2+2                                                            COMPASS     5144     A     
 COMPASS   +        SA5    A2-2                                                            COMPASS     5145          I
          -CMP30  
 COMPASS            BX4    X1*X2                                                           COMPASS     5146          I
          -CMP30  
 COMPASS            LX1    24                                                              CMP30       2246     A     
 COMPASS   +        BX4    -X1*X2      SEARCH USE TABLE                                    CMP30       2247     A     
 COMPASS            IX7    X4-X3                                                           COMPASS     5147     A     
 COMPASS            SA2    A2+6                                                            COMPASS     5148          I
          -CMP30  
 COMPASS            SA2    A2+4                                                            CMP30       2248     A     
 COMPASS            NZ     X7,*-1                                                          COMPASS     5149     A     
 COMPASS            SA5    A2-6        GET BLOCK NAME                                      CMP30       2249     A     
 COMPASS   PRT31    SA6    OCTAL+27                                                        COMPASS     5150     A     
 COMPASS            MX3    6           LEFT JUSTIFY BLOCK NAME                             COMPASS     5151     A     
 COMPASS            SX2    A0                                                              COMPASS     5152     A     
 COMPASS   +        NZ     X5,*+1                                                          COMPASS     5153     A     
 COMPASS            SX5    2R//                                                            COMPASS     5154     A     
 COMPASS            BX7    X5                                                              COMPASS     5155     A     
 COMPASS            AX7    60                                                              COMPASS     5156     A     
 COMPASS            BX5    X5-X7                                                           COMPASS     5157     A     
 COMPASS   +        BX7    X3*X5                                                           COMPASS     5158     A     
 COMPASS            LX5    6                                                               COMPASS     5159     A     
 COMPASS            ZR     X7,*                                                            COMPASS     5160     A     
 COMPASS            BX6    -X0*X5                                                          COMPASS     5161     A     
 COMPASS   +        SA6    A6+B1                                                           COMPASS     5162     A     
 COMPASS            LX5    6                                                               COMPASS     5163     A     
 COMPASS            BX6    -X0*X5                                                          COMPASS     5164     A     
 COMPASS            NZ     X6,*-1                                                          COMPASS     5165     A     
 COMPASS            SA1    O.SYMTAB                                                        CP096A       331     A     
 COMPASS            SX2    X1-1                                                            CP096A       332     A     
 COMPASS            EQ     PRT33                                                           COMPASS     5166     A     
 COMPASS                                                                                   COMPASS     5167     A     
 COMPASS   PRT32    SX6    1RU                                                             COMPASS     5168     A     
 COMPASS            SA6    OCTAL+2                                                         COMPASS     5169     A     
 COMPASS   PRT33    SA1    A1          SYMBOL EQUIVALENCE                                  COMPASS     5170          I
          -CP096A 
 COMPASS   PRT33    RX1    X2          SYMBOL EQUIVALENCE                                  CP096A       333     A     
 COMPASS            AX1    42                                                              COMPASS     5171     A     
 COMPASS            BX6    X1                                                              COMPASS     5172     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 437    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX7    0           CLEAR MEMORY TABLE                                  COMPASS     5173          I
          -CMP042 
 COMPASS            SA6    P2TEMP      CHAIN ADDRESS                                       COMPASS     5174     A     
 COMPASS            SA7    L.MEMORY                                                        COMPASS     5175          I
          -CMP042 
 COMPASS                                                                                   COMPASS     5176     A     
 COMPASS   PRT34    SA5    P2TEMP                                                          COMPASS     5177     A     
 COMPASS            SA2    O.REFTAB                                                        COMPASS     5178     A     
 COMPASS            ZR     X5,PRT38    IF END OF CHAIN                                     COMPASS     5179     A     
 COMPASS            IX3    X2+X5                                                           COMPASS     5180     A     
 COMPASS            SA1    X3-1                                                            COMPASS     5181     A     
 COMPASS            LX7    X1          SET NEXT LINK                                       COMPASS     5182     A     
 COMPASS            AX7    42                                                              COMPASS     5183     A     
 COMPASS            SA7    A5                                                              COMPASS     5184     A     
 COMPASS            ZR     X7,PRT35    IF END OF CHAIN                                     COMPASS     5185     A     
 COMPASS            IX3    X2+X7       READ NEXT ENTRY                                     COMPASS     5186     A     
 COMPASS            SA3    X3-1                                                            COMPASS     5187     A     
 COMPASS            BX6    X3-X1       COMPARE ENTRIES                                     COMPASS     5188     A     
 COMPASS            MX0    18                                                              COMPASS     5189     A     
 COMPASS            BX6    -X0*X6                                                          COMPASS     5190     A     
 COMPASS            ZR     X6,PRT34    IF IDENTICAL ENTRIES                                COMPASS     5191     A     
 COMPASS   PRT35    SA2    XR                                                              COMPASS     5192     A     
 COMPASS            ZR     X2,PRT36    IF ONLY ADDRESS TO XREF                             COMPASS     5193     A     
 COMPASS            BX7    X1                                                              COMPASS     5194     A     
 COMPASS            SA7    A5+B1       SAVE ENTRY (P2TEMPA)                                COMPASS     5195     A     
 COMPASS            RJ     CONREF      CONVERT PAGE/LINE                                   COMPASS     5196     A     
 COMPASS            ADDWORD MEMORY                                                         COMPASS     5197     A     
 COMPASS            SA2    XR                                                              COMPASS     5198     A     
 COMPASS            NG     X2,PRT34    IF ONLY PAGE/LINE                                   COMPASS     5199     A     
 COMPASS            SA1    P2TEMPA                                                         COMPASS     5200     A     
 COMPASS            EQ     PRT37       MAKE ADDRESS XREF ENTRY                             COMPASS     5201     A     
 COMPASS   PRT36    MX0    54                                                              COMPASS     5202     A     
 COMPASS            BX3    -X0*X1                                                          COMPASS     5203     A     
 COMPASS            SX2    X3-1RL                                                          COMPASS     5204     A     
 COMPASS            ZR     X2,PRT34    IF DEFINING ENTRY, LOOP                             COMPASS     5205     A     
 COMPASS   PRT37    RJ     CONADD      CONVERT ADDRESS                                     COMPASS     5206     A     
 COMPASS            ADDWORD MEMORY                                                         COMPASS     5207     A     
 COMPASS            EQ     PRT34       LOOP                                                COMPASS     5208     A     
 COMPASS                                                                                   COMPASS     5209     A     
 COMPASS   PRT38    SA1    L.MEMORY    PRINT TABLE OF ENTRIES                              COMPASS     5210     A     
 COMPASS            NZ     X1,PRT39    IF ENTRIES IN TABLE                                 COMPASS     5211     A     
 COMPASS            RJ     LISTL                                                           COMPASS     5212     A     
 COMPASS            EQ     PRT23       LOOP                                                COMPASS     5213     A     
 COMPASS                                                                                   COMPASS     5214     A     
 COMPASS  *         LIST TABLE OF REFERENCES.                                              COMPASS     5215     A     
 COMPASS                                                                                   COMPASS     5216     A     
 COMPASS   PRT39    SX6    X1+7        CALCULATE NUMBER OF ROWS                            COMPASS     5217     A     
 COMPASS            AX6    3                                                               COMPASS     5218     A     
 COMPASS            SA6    P2TEMP      NROWS                                               COMPASS     5219     A     
 COMPASS            SA6    A6+B1       INCREMENT                                           COMPASS     5220     A     
 COMPASS            MX7    0                                                               COMPASS     5221     A     
 COMPASS            SA7    A6+B1       INDEX                                               COMPASS     5222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 438    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    LPCNT       CHECK IF ROOM ON PAGE                               COMPASS     5223     A     
 COMPASS            IX2    X1+X6                                                           COMPASS     5224     A     
 COMPASS            SX1    X2-PAGESIZ                                                      COMPASS     5225          I
          -F4810A 
 COMPASS            NG     X1,PRT40    IF ROOM                                             COMPASS     5226          I
          -F4810A 
 COMPASS            SX6    PAGESIZ+5   FORCE EJECT                                         COMPASS     5227          I
          -F4810A 
 COMPASS            SA3    CP.PS       PAGE SIZE                                   F4810A  F4810A       182     A     
 COMPASS            IX1    X2-X3                                                   F4810A  F4810A       183     A     
 COMPASS            NG     X1,PRT40    IF ROOM ON PAGE                             F4810A  F4810A       184     A     
 COMPASS            SX6    X3+5        ELSE, FORCE EJECT                           F4810A  F4810A       185     A     
 COMPASS            SA6    A1                                                              COMPASS     5228     A     
 COMPASS                                                                                   COMPASS     5229     A     
 COMPASS   PRT40    SA1    P2TEMP      DECREMENT ROW COUNT                                 COMPASS     5230     A     
 COMPASS            SX6    X1-1                                                            COMPASS     5231     A     
 COMPASS            ZR     X1,PRT23    IF END OF TABLE                                     COMPASS     5232          I
          -CMP042 
 COMPASS            ZR     X1,PRT44    IF END OF TABLE                                     CMP042       111     A     
 COMPASS            SA6    A1                                                              COMPASS     5233     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     5234     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     5235     A     
 COMPASS            SX6    X3+B1       INCREMENT INDEX                                     COMPASS     5236     A     
 COMPASS            SA4    O.MEMORY                                                        COMPASS     5237     A     
 COMPASS            SA5    L.MEMORY                                                        COMPASS     5238     A     
 COMPASS            SA6    A3                                                              COMPASS     5239     A     
 COMPASS            SB6    X4          TABLE ADDRESS                                       COMPASS     5240     A     
 COMPASS            SB7    X5+B6       TABLE END                                           COMPASS     5241     A     
 COMPASS            SB5    X2          INCREMENT                                           COMPASS     5242     A     
 COMPASS            SB6    X3+B6       ENTRY ADDRESS                                       COMPASS     5243     A     
 COMPASS            SB4    B0          LINE INDEX                                          COMPASS     5244     A     
 COMPASS            SA1    XR                                                              COMPASS     5245     A     
 COMPASS            SB3    X1                                                              COMPASS     5246     A     
 COMPASS            SX6    X6+B1       INCREMENT INDEX                                     COMPASS     5247     A     
 COMPASS            NE     B3,B1,PRT42 IF NOT BOTH                                         COMPASS     5248     A     
 COMPASS            SA6    A6                                                              COMPASS     5249     A     
 COMPASS            SB5    B5+B5                                                           COMPASS     5250     A     
 COMPASS   PRT41    SA1    B6          READ ENTRIES                                        COMPASS     5251     A     
 COMPASS            SA2    B6+B1                                                           COMPASS     5252     A     
 COMPASS            BX6    X1                                                              COMPASS     5253     A     
 COMPASS            LX7    X2                                                              COMPASS     5254     A     
 COMPASS            SA6    LINE+B4                                                         COMPASS     5255     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     5256     A     
 COMPASS            SB6    B6+B5                                                           COMPASS     5257     A     
 COMPASS            SB4    B4+2                                                            COMPASS     5258     A     
 COMPASS            LT     B6,B7,PRT41 LOOP                                                COMPASS     5259     A     
 COMPASS            SX6    A7+B1                                                           COMPASS     5260     A     
 COMPASS            EQ     PRT43                                                           COMPASS     5261     A     
 COMPASS   PRT42    SA1    B6          READ ENTRY                                          COMPASS     5262     A     
 COMPASS            BX6    X1                                                              COMPASS     5263     A     
 COMPASS            SA6    LINE+B4                                                         COMPASS     5264     A     
 COMPASS            SB6    B6+B5                                                           COMPASS     5265     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 439    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB4    B4+B1                                                           COMPASS     5266     A     
 COMPASS            LT     B6,B7,PRT42 LOOP                                                COMPASS     5267     A     
 COMPASS            SX6    A6+B1                                                           COMPASS     5268     A     
 COMPASS   PRT43    SA6    LLINE                                                           COMPASS     5269     A     
 COMPASS            RJ     LISTL       LIST LINE                                           COMPASS     5270     A     
 COMPASS            EQ     PRT40       LOOP FOR NEXT LINE                                  COMPASS     5271     A     
 COMPASS   PRT44    SA1    LOSTREF                                                         CMP042       112     A     
 COMPASS            SA2    L.MEMORY                                                        CMP042       113     A     
 COMPASS            ZR     X1,PRT23    IF NO LOST REFERENCES                               CMP042       114     A     
 COMPASS            IX6    X1+X2                                                           CMP042       115     A     
 COMPASS            SA6    A2                                                              CMP042       116     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       117     A     
 COMPASS            EQ     PRT23                                                           CMP042       118     A     
 COMPASS                                                                                   COMPASS     5272          I
          -CPS064 
 COMPASS            QUAL                                                                   COMPASS     5273          I
          -CPS064 
 COMPASS   PRTA     DATA   0           OVERFLOW TO DISK FLAG                               COMPASS     5274          I
          -CPS064 
 COMPASS   CBUF     BSS    0           END OF NON-OVERLAID AREA                            COMPASS     5275          I
          -CPS064 
 COMPASS   TBUF     BSS    0           ALTERNATE CROSS-REFERENCE TABLE BUFFER              COMPASS     5276          I
          -CPS064 
 COMPASS   PRTB     EQU    TBUF+RBUFL  END OF REFERENCE TABLE PROCESSOR                    COMPASS     5277          I
          -CPS064 
 COMPASS   COMPASS  TITLE  COMPASS MAIN BATCH CONTROL.                                     CMP30       2250     A     
 COMPASS  **        COMPASS - MAIN CONTROL.                                                CMP30       2251          I
          -CPSA097
 COMPASS  *         COMPASS - MAIN CONTROL                                         CPSA097 CPSA097        7     A     
 COMPASS                                                                                   CMP30       2252     A     
 COMPASS                                                                                   CMP30       2253     A     
 COMPASS            USE    CONTROL                                                         CMP30       2254     A     
 COMPASS            SEG    CONTROL.                                                        CMP30       2255     A     
 COMPASS            QUAL                                                                   CPS064       152     A     
 COMPASS   COMPASS  SB1    1           (B1) = CONSTANT 1                                   CMP30       2256          I
          -CP139CP
 COMPASS   CMP      SB1    1           (B1) = CONSTANT 1                                   CP139CP      158     A     
 COMPASS            EQ     PASS0       INITIALIZE COMPASS                                  CMP30       2257     A     
 COMPASS   CMP1     EQ     /PASS1/PASS1 EXECUTE PASS1                                      CMP30       2258          I
          -CPSA141
 COMPASS   CMP1     SX6    B1          SET INPUT PRESENCE FLAG                             CPSA141        6     A     
 COMPASS            SA6    INPRES                                                          CPSA141        7     A     
 COMPASS            EQ     /PASS1/PASS1  EXECUTE PASS1                                     CPSA141        8     A     
 COMPASS   EXITP1   EQ     /PASS2/PASS2 EXECUTE PASS2                                      CMP30       2259     A     
 COMPASS   EXITP2   RJ     ATS         ACCUMULATE TOTAL STORAGE USED                       CMP30       2260     A     
 COMPASS            RJ     DFL         DECREASE FL                                         CPSA125       53     A     
 COMPASS            SA1    ERCNT                                                           CMP30       2261     A     
 COMPASS            SA2    CP.ERRCT                                                        CMP30       2262     A     
 COMPASS            IX6    X1+X2       ACCUMULATE ERROR COUNT                              CMP30       2263     A     
 COMPASS            SA6    A2                                                              CMP30       2264     A     
 COMPASS                                                                                   CMP30       2265     A     
 COMPASS  *         TEST FOR END OF ASSEMBLY BATCH.                                        CMP30       2266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 440    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       2267     A     
 COMPASS            SA1    EOFINP                                                          CMP30       2268     A     
 COMPASS            SA2    CP.BATCH                                                        CMP30       2269     A     
 COMPASS            NZ     X1,CMP2     IF END OF SOURCE INPUT                              CMP30       2270     A     
 COMPASS            LX2    59-11                                                           CP139CP      159     A     
 COMPASS            PL     X2,CMP1     IF NOT CALLED BY A COMPILER                         CMP30       2271     A     
 COMPASS            SA1    CP.CARD                                                         CMP30       2272     A     
 COMPASS            SA2    =1H                                                             CMP30       2273     A     
 COMPASS            SA3    A1+B1       CHECK FOR *IDENT*                                   CMP30       2274     A     
 COMPASS            MX0    36                                                              CMP30       2275     A     
 COMPASS            SA4    =6LIDENT                                                        CMP30       2276     A     
 COMPASS            IX6    X1-X2                                                           CMP30       2277     A     
 COMPASS            BX7    X0*X3                                                           CMP30       2278     A     
 COMPASS            NZ     X6,CMP3     IF COLUMNS 1-10 NOT ALL BLANKS                      CMP30       2279          I
          -CPSA138
 COMPASS            NZ     X6,CMP1A    IF COLUMNS 1-10 NOT ALL BLANKS                      CPSA138        5     A     
 COMPASS            BX7    X7-X4                                                           CMP30       2280     A     
 COMPASS            NZ     X7,CMP3     IF COLUMNS 11-16 NOT *IDENT *                       CMP30       2281          I
          -CPSA138
 COMPASS            NZ     X7,CMP1A    IF COLUMNS 11-16 NOT *IDENT*                        CPSA138        6     A     
 COMPASS            EQ     CMP1                                                            CPSA138        7     A     
 COMPASS                                                                                   CPSA138        8     A     
 COMPASS   CMP1A    SA1    CP.LISTF                                                        CPSA138        9     A     
 COMPASS            ZR     X1,CMP3     IF NO LISTING                                       CPSA138       10     A     
 COMPASS                                                                                   CPSA138       11     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPSA138       12     A     
 COMPASS            SA1    LASTLIN                                                         CPSA138       13          I
          -CPS236 
 COMPASS            WRITEH O,A1,1      SET PRINT DENSITY TO 6 LPI                          CPSA138       14          I
          -CPS236 
 COMPASS            WEOR   O                                                               CPSA138       15     A     
 COMPASS            CHECK  O                                                               CPS0338        8     A     
 COMPASS            EQ     CMP3                                                            CPSA138       16     A     
 COMPASS                                                                                   CPSA138       17     A     
 COMPASS   RM       ELSE   3                                                               CPSA138       18          I
          -CPS0338
 COMPASS   RM       ELSE                                                                   CPS0338        9     A     
 COMPASS            PUT    O,LASTLIN,10      SET PRINT DENSITY TO 6 LPI                    CPSA138       19          I
          -CPS236 
 COMPASS            WEOR   O                                                               CPSA138       20     A     
 COMPASS            CHECK  O                                                               CPS0338       10     A     
 COMPASS            EQ     CMP3                                                            CPSA138       21     A     
 COMPASS   RM       ENDIF                                                                  CPS0338       11     A     
 COMPASS                                                                                   CPSA138       22     A     
 COMPASS            EQ     CMP1                                                            CMP30       2282          I
          -CPSA168
 COMPASS   CMP2     MX6    0           SIGNAL END OF SOURCE INPUT                          CMP30       2283     A     
 COMPASS            SA2    CP.BATCH                                                        CPSA168       11     A     
 COMPASS            SA6    CP.CARD                                                         CMP30       2284     A     
 COMPASS            MX7    1                                                               CP139CP      160     A     
 COMPASS            LX2    59-11                                                           CPSA168       12     A     
 COMPASS            SA7    CP.IFORM                                                        CP139CP      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/28. 19.11.32.      PAGE 441    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     X2,CMP1A    IF CALLED BY FTN, DONT CLOSE EVERYTHING.            CPSA168       13     A     
 COMPASS                                                                                   CMP30       2285     A     
 COMPASS            IFNE   CP#RM,0,1                                                       CMP30       2286     A     
 COMPASS            CLOSEM I,N         CLOSE INPUT FILE                                    CMP30       2287     A     
 COMPASS                                                                                   CMP30       2288     A     
 COMPASS            SA1    CP.LISTF                                                        CMP30       2289     A     
 COMPASS            ZR     X1,CMP3     IF NO LISTING                                       CMP30       2290     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                 F4810A  F4810A       186     A     
 COMPASS            SA1    LASTLIN     CHECK IF PRINT DENSITY RESET                F4810A  F4810A       187          I
          -CPS236 
 COMPASS            SA1    FRSTLIN     CHECK IF PRINT DENSITY WAS CHANGED                  CPS236        47     A     
 COMPASS            ZR     X1,CMP2A    IF PRINT DENSITY=DEFAULT                    F4810A  F4810A       188          I
          -CPSA117
 COMPASS            ZR     X1,CMP2B    IF PRINT DENSITY=DEFAULT                            CPSA117        5     A     
 COMPASS            SA1    LASTLIN                                                         CPS236        48     A     
 COMPASS            ZR     X1,CMP2B    IF PRINT DENSITY AT DEFAULT                         CPSA265       53     A     
 COMPASS            WRITEH O,A1,1      ELSE RESTORE PRINT DENSITY TO DEFAULT       F4810A  F4810A       189     A     
 COMPASS   CMP2A    BSS    0                                                       F4810A  F4810A       190          I
          -CPSA117
 COMPASS   CMP2B    BSS    0                                                               CPSA117        6     A     
 COMPASS            WEOR   O                                                               CMP30       2291     A     
 COMPASS                                                                                   CMP30       2292     A     
 COMPASS            IFNE   CP#RM,0,1                                                       CMP30       2293          I
          -F4810A 
 COMPASS   RM       ELSE                                                           F4810A  F4810A       191     A     
 COMPASS            SA1    LASTLIN     CHECK IF PRINT DENSITY WAS CHANGED          F4810A  F4810A       192          I
          -CPS236 
 COMPASS            SA1    FRSTLIN                                                         CPS236        49     A     
 COMPASS            ZR     X1,CMP2A    IF PRINT DENSITY=DEFAULT                    F4810A  F4810A       193     A     
 COMPASS            SA1    LASTLIN                                                         CPSA265       54     A     
 COMPASS            ZR     X1,CMP2A    IF PRINT DENSITY AT DEFAULT                         CPSA265       55     A     
 COMPASS            PUT    O,LASTLIN,10  ELSE,RESTORE PRINT DENSITY TO DEFAULT     F4810A  F4810A       194     A     
 COMPASS   CMP2A    BSS    0                                                       F4810A  F4810A       195     A     
 COMPASS            CLOSEM O,N         CLOSE OUTPUT FILE                                   CMP30       2294     A     
 COMPASS   RM       ENDIF                                                          F4810A  F4810A       196     A     
 COMPASS                                                                                   CMP30       2295     A     
 COMPASS            CHECK  O                                                               CMP30       2296     A     
 COMPASS   CMP3     SA1    CP.PAGE                                                         CMP30       2297     A     
 COMPASS            MI     X1,CMP4     IF NOT PROPAGATING PAGE NUMBERING                   CMP30       2298     A     
 COMPASS            SA2    PGCNT                                                           CMP30       2299     A     
 COMPASS            BX6    X2          UPDATE COMMUNICATION WORD                           CMP30       2300     A     
 COMPASS            SA6    A1                                                              CMP30       2301     A     
 COMPASS                                                                                   CMP30       2302     A     
 COMPASS  *         CLOSE FILES.                                                           CMP30       2303     A     
 COMPASS                                                                                   CMP30       2304     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2305     A     
 COMPASS                                                                                   CMP30       2306     A     
 COMPASS   CMP4     SA1    S+1                                                             CMP30       2307     A     
 COMPASS            PL     X1,CMP4A    IF SCRATCH IS MASS STORAGE                          CMP30       2308     A     
 COMPASS            REWIND S                                                               CMP30       2309     A     
 COMPASS            EQ     CMP5                                                            CMP30       2310     A     
 COMPASS   CMP4A    RETURN S                                                               CMP30       2311     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 442    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CMP5     SA1    R+1                                                             CMP30       2312     A     
 COMPASS            PL     X1,CMP5A    IF REFERENCE IS MASS STORAGE                        CMP30       2313     A     
 COMPASS            REWIND R                                                               CMP30       2314     A     
 COMPASS            EQ     CMP6                                                            CMP30       2315     A     
 COMPASS   CMP5A    RETURN R                                                               CMP30       2316     A     
 COMPASS   CMP6     SA1    E                                                               CMP30       2317     A     
 COMPASS            ZR     X1,CMP7     IF NO ERROR FILE                                    CMP30       2318          I
          -CPS009 
 COMPASS            SA2    E+2         CHECK ERROR LISTING FILE                            CPS009         1     A     
 COMPASS            SA3    A2+B1                                                           CPS009         2     A     
 COMPASS            LX1    59-3                                                            CPS009         3     A     
 COMPASS            IX4    X2-X3                                                           CPS009         4     A     
 COMPASS   +        MI     X1,*+1      IF ANYTHING WAS WRITTEN                             CPS009         5     A     
 COMPASS            ZR     X4,CMP7     IF BUFFER EMPTY                                     CPS009         6     A     
 COMPASS   CMP6AA   SA1    LASTLIN                                                 F4810A  F4810A       197          I
          -CPS236 
 COMPASS            ZR     X1,CMP6A    IF PRINT DENSITY=DEFAULT                    F4810A  F4810A       198          I
          -CPS236 
 COMPASS            SA1    FRSTLIN                                                         CPS236        50     A     
 COMPASS            ZR     X1,CMP6A    IF PRINT DENSITY IS NOT 8 LPI                       CPS236        51     A     
 COMPASS            SA1    LASTLIN                                                         CPS236        52     A     
 COMPASS            ZR     X1,CMP6A    IF PRINT DENSITY AT DEFAULT                         CPSA265       56     A     
 COMPASS            WRITEH E,A1,1      RESTORE PRINT DENSITY TO DEFAULT            F4810A  F4810A       199     A     
 COMPASS   CMP6A    BSS    0                                                       F4810A  F4810A       200     A     
 COMPASS            WRITER E,RECALL                                                        CMP30       2319     A     
 COMPASS   CMP7     RECALL B           WAIT FOR BINARY OUTPUT COMPLETE                     CMP30       2320     A     
 COMPASS            RECALL S                                                               CPS110         5     A     
 COMPASS            RECALL R                                                               CPS110         6     A     
 COMPASS                                                                                   CMP30       2321     A     
 COMPASS   RM       ELSE                                                                   CMP30       2322     A     
 COMPASS                                                                                   CMP30       2323     A     
 COMPASS   CMP4     FETCH  S,OC,X1                                                         CMP30       2324     A     
 COMPASS            SX6    X1-#YES#                                                        CMP30       2325     A     
 COMPASS            NZ     X6,CMP5     IF SCRATCH FILE NOT OPEN                            CMP30       2326     A     
 COMPASS            SA1    SCR+1                                                           CMP30       2327     A     
 COMPASS            PL     X1,CMP4A    IF SCRATCH IS MASS STORAGE                          CMP30       2328     A     
 COMPASS            CLOSEM S,R                                                             CMP30       2329     A     
 COMPASS            EQ     CMP5                                                            CMP30       2330     A     
 COMPASS   CMP4A    CLOSEM S,U                                                             CMP30       2331     A     
 COMPASS   CMP5     FETCH  R,OC,X1                                                         CMP30       2332     A     
 COMPASS            SX6    X1-#YES#                                                        CMP30       2333     A     
 COMPASS            NZ     X6,CMP6     IF REFERENCE FILE NOT OPEN                          CMP30       2334     A     
 COMPASS            SA1    REF+1                                                           CMP30       2335     A     
 COMPASS            PL     X1,CMP5A    IF REFERENCE IS MASS STORAGE                        CMP30       2336     A     
 COMPASS            CLOSEM R,R                                                             CMP30       2337     A     
 COMPASS            EQ     CMP6                                                            CMP30       2338     A     
 COMPASS   CMP5A    CLOSEM R,U                                                             CMP30       2339     A     
 COMPASS   CMP6     SA1    E                                                               CMP30       2340     A     
 COMPASS            ZR     X1,CMP7     IF NO ERROR FILE                                    CMP30       2341     A     
 COMPASS            SA1    CP.BATCH                                                        CPSA168       14     A     
 COMPASS            LX1    59-11                                                           CPSA168       15     A     
 COMPASS            MI     X1,CMP7     IF CALLED BY FTN, DONT CLOSE E FILE.                CPSA168       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/28. 19.11.32.      PAGE 443    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CMP6AA   SA1    LASTLIN                                                 F4810A  F4810A       201          I
          -CPS236 
 COMPASS            ZR     X1,CMP6A    IF PRINT DENSITY=DEFAULT                    F4810A  F4810A       202          I
          -CPS236 
 COMPASS            SA1    FRSTLIN                                                         CPS236        53     A     
 COMPASS            ZR     X1,CMP6A    IF PRINT DENSITY IS NOT 8 LPI                       CPS236        54     A     
 COMPASS            SA1    LASTLIN                                                         CPSA265       57     A     
 COMPASS            ZR     X1,CMP6A    IF PRINT DENSITY AT DEFAULT                         CPSA265       58     A     
 COMPASS            PUT    E,LASTLIN,10  ELSE, RESTORE PRINT DENSITY TO DEFAULT    F4810A  F4810A       203     A     
 COMPASS   CMP6A    BSS    0                                                       F4810A  F4810A       204     A     
 COMPASS            CLOSEM E,N                                                             CMP30       2342     A     
 COMPASS            CHECK  E                                                               CMP30       2343     A     
 COMPASS            SA1    EOFINP                                                 S028 372 CPS028       275     A     
 COMPASS            SA2    E                                                      S028 373 CPS028       276     A     
 COMPASS            SA3    O                                                      S028 374 CPS028       277     A     
 COMPASS            BX6    X2-X3                                                  S028 375 CPS028       278     A     
 COMPASS            NZ     X1,CMP7     IF END OF INPUT                            S028 376 CPS028       279     A     
 COMPASS            NZ     X6,CMP7     IF LISTING FILES NOT SAME FILE NAMES       S028 377 CPS028       280     A     
 COMPASS            OPENM  O,OUTPUT,N  RE-OPEN LONG LISTING FILE                  S028 378 CPS028       281     A     
 COMPASS   CMP7     FETCH  B,OC,X1                                                         CMP30       2344     A     
 COMPASS            SB7    X1-#YES#                                                        CMP30       2345     A     
 COMPASS            NZ     B7,CMP7A    IF BINARY NOT OPEN                                  CMP30       2346     A     
 COMPASS            SA2    CP.BATCH                                                        CPSA168       17     A     
 COMPASS            LX2    59-11                                                           CPSA168       18     A     
 COMPASS            MI     X2,CMP7A    IF CALLED BY FTN, LET FTN CLOSE THIS FILE.          CPSA168       19     A     
 COMPASS                                                                                   CMP30       2347          I
          -CPSA134
 COMPASS            IFC    GE, "MODEL" 75 ,2                                               CMP30       2348          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (1,2,3),X                                                       F7540CP      113          I
          -CPSA134
 COMPASS            SKIP   3                                                               F7540CP      114          I
          -CPSA134
 COMPASS   X        ELSE   2                                                               F7540CP      115          I
          -CPSA134
 COMPASS            SA1    EOFINP                                                          CMP30       2349     A     
 COMPASS            ZR     X1,CMP7A    IF NOT END OF SOURCE INPUT                          CMP30       2350     A     
 COMPASS                                                                                   CMP30       2351          I
          -CPSA134
 COMPASS            CLOSEM B,N                                                             CMP30       2352     A     
 COMPASS            CHECK  B                                                               CMP30       2353     A     
 COMPASS   CMP7A    BSS    0                                                               CMP30       2354     A     
 COMPASS                                                                                   CMP30       2355     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2356     A     
 COMPASS                                                                          S028 380 CPS028       282     A     
 COMPASS            SA1    COMPPS                                                  F4810A  F4810A       205     A     
 COMPASS            BX6    X1                                                      F4810A  F4810A       206     A     
 COMPASS            SA6    CP.PS       RESTORE COMPILER PAGE SIZE                  F4810A  F4810A       207     A     
 COMPASS            SA1    COMPPD                                                  F4810A  F4810A       208     A     
 COMPASS            BX6    X1                                                      F4810A  F4810A       209     A     
 COMPASS            SA6    CP.PD       RESTORE COMPILER PRINT DENSITY              F4810A  F4810A       210     A     
 COMPASS            SA1    COMPPW                                                          CPSA265       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/28. 19.11.32.      PAGE 444    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X1                                                              CPSA265       60     A     
 COMPASS            SA6    CP.PW       RESTORE COMPILER PRINT WIDTH                        CPSA265       61     A     
 COMPASS                                                                                   CPSA265       62     A     
 COMPASS  *         RESTORE ECS/LCM FIELD LENGTH.                                 S028 381 CPS028       283     A     
 COMPASS                                                                          S028 382 CPS028       284     A     
 COMPASS            SA1    CP.NFLL     NOMINAL FL                                 S028 383 CPS028       285     A     
 COMPASS            SA2    CP.AFLL     ACTUAL FL                                  S028 384 CPS028       286     A     
 COMPASS            IX7    X1-X2                                                  S028 385 CPS028       287     A     
 COMPASS            BX6    X1                                                     S028 386 CPS028       288     A     
 COMPASS            ZR     X7,CMP7B    IF NO CHANGE                               S028 387 CPS028       289     A     
 COMPASS            SA6    A2          UPDATE (CP.AFLL)                           S028 388 CPS028       290     A     
 COMPASS            LX6    30                                                     S028 389 CPS028       291     A     
 COMPASS   +        NZ     X1,*+1                                                 S028 390 CPS028       292     A     
 COMPASS            MX6    30          -0 = ZERO FIELD LENGTH                     S028 391 CPS028       293     A     
 COMPASS   +        SA6    LCMEND                                                 S028 392 CPS028       294     A     
 COMPASS            MEMORY ECS,LCMEND,R      REQUEST FIELD LENGTH                 S028 393 CPS028       295     A     
 COMPASS   CMP7B    BSS    0                                                      S028 394 CPS028       296     A     
 COMPASS                                                                                   CMP30       2357          I
          -CPS028 
 COMPASS   OLDIR    IFNE   CP#IR,0                                                         CMP30       2358          I
          -CPS028 
 COMPASS                                                                                   CMP30       2359          I
          -CPS028 
 COMPASS  *         RESTORE INTERFACE REGION.                                              CMP30       2360          I
          -CPS028 
 COMPASS                                                                                   CMP30       2361          I
          -CPS028 
 COMPASS            SX1    10          PASS CARD BACK TO COMPILER                          CMP30       2362          I
          -CPS028 
 COMPASS            SX2    CP.CARD                                                         CMP30       2363          I
          -CPS028 
 COMPASS            SX3    41B                                                             CMP30       2364          I
          -CPS028 
 COMPASS            RJ     MOVE                                                            CMP30       2365          I
          -CPS028 
 COMPASS            SA1    CP.ERRCT                                                        CMP30       2366          I
          -CPS028 
 COMPASS            SA2    CP.PAGE                                                         CMP30       2367          I
          -CPS028 
 COMPASS            SA3    CP.STEXT+1                                                      CMP30       2368          I
          -CPS028 
 COMPASS            BX6    X1                                                              CMP30       2369          I
          -CPS028 
 COMPASS            LX7    X2                                                              CMP30       2370          I
          -CPS028 
 COMPASS            SA6    62B         BATCH ERROR COUNT                                   CMP30       2371          I
          -CPS028 
 COMPASS            SA7    100B        PAGE NUMBER                                         CMP30       2372          I
          -CPS028 
 COMPASS            BX6    X3                                                              CMP30       2373          I
          -CPS028 
 COMPASS            SA6    53B         SYSTEXT NAME                                        CMP30       2374          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 445    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS                                                                                   CMP30       2375          I
          -CPS028 
 COMPASS   OLDIR    ENDIF                                                                  CMP30       2376          I
          -CPS028 
 COMPASS                                                                                   CMP30       2377     A     
 COMPASS            RJ     RCS         RESTORE COMPILER SPACE IF NECESSARY         F4810B  F4810B       163     A     
 COMPASS            EQ     CP.STOP     EXIT TO (0,0) OVERLAY                               CMP30       2378     A     
 COMPASS            TITLE  COMPASS INITIALIZATION - OVERLAYED CODE.                        CPS064       153     A     
 COMPASS   PASS0    SPACE  4,8                                                             CPS064       154     A     
 COMPASS  **        PASS0 - INITIALIZE COMPASS.                                            CPS064       155     A     
 COMPASS                                                                                   CPS064       156     A     
 COMPASS                                                                                   CPS064       157     A     
 COMPASS            USE    PASS0                                                           CPS064       158     A     
 COMPASS            SEG    INITIALIZATION.                                                 CPS064       159     A     
 COMPASS   PASS0    RJ     CTM         CHECK MACHINE TYPE                                  CPS064       160     A     
 COMPASS            RJ     SMP         SET MEMORY PARAMETERS                       F4810B  F4810B       164     A     
 COMPASS            RJ     SCS         SAVE COMPILER SPACE IF NECESSARY            F4810B  F4810B       165     A     
 COMPASS            TIME   BTIME       GET ASSEMBLY BATCH START TIME                       CPS064       161     A     
 COMPASS            SA1    CP.BATCH                                                        CPS064       162     A     
 COMPASS            SA2    CP.PAGE                                                         CPS064       163     A     
 COMPASS            LX1    59-11                                                           CP139CP      162     A     
 COMPASS            BX3    X1          SET FMODE = ABS (CP.BATCH)                          CPS064       164     A     
 COMPASS            AX1    59                                                              CPS064       165     A     
 COMPASS            AX3    59-11                                                           CP139CP      163     A     
 COMPASS            BX6    X3-X1                                                           CPS064       166     A     
 COMPASS            SX7    B0                                                              CPS064       167     A     
 COMPASS            MI     X2,CMP8     IF NOT PROPAGATING PAGE NUMBERS                     CPS064       168     A     
 COMPASS            SA3    CP.EPAG                                                         CPSA142       55     A     
 COMPASS            SX7    X3                                                              CPSA142       56     A     
 COMPASS            PL     X3,CMP7C    IF ERROR PAGE PROPAGATION FLAG ALREADY SET          CPSA142       57     A     
 COMPASS            SX7    B0                                                              CPSA142       58     A     
 COMPASS            SA7    A3          ELSE SET ERROR PAGE PROPAGATION FLAG                CPSA142       59     A     
 COMPASS   CMP7C    SA7    EPCNT       INITIALIZE ERROR FILE PAGE COUNT                    CPSA142       60     A     
 COMPASS            BX7    X2          SET PAGE NUMBER                                     CPS064       169     A     
 COMPASS   CMP8     SA6    FMODE                                                           CPS064       170     A     
 COMPASS            SA7    PGCNT                                                           CPS064       171     A     
 COMPASS            RJ     SFP         SET FILE PARAMETERS                                 CPS064       172     A     
 COMPASS            RJ     SFL         SET FIELD LENGTH                                    CPS064       173     A     
 COMPASS            RJ     ZLC         ZERO FIRST 100B OF LCM FIELD LENGTH IF ANY          CPS064       174     A     
 COMPASS            RJ     SPF         SET PRINTER FLAGS                           F4810A  F4810A       211     A     
 COMPASS                                                                                   CPS064       175     A     
 COMPASS   DEBUG    IFNE   DEBUG,0                                                         CPS064       176     A     
 COMPASS            RJ     /DEBUG/RDD  READ DEBUGGING DIRECTIVES                           CPS064       177     A     
 COMPASS            SA2    LOCORE                                                          CPS064       178     A     
 COMPASS            SA3    CP.NFLS     CLEAR MANAGED TABLE AREA                            CPS064       179     A     
 COMPASS            RJ     CLS                                                             CPS064       180     A     
 COMPASS   DEBUG    ENDIF                                                                  CPS064       181     A     
 COMPASS                                                                                   CPS064       182     A     
 COMPASS            SA1    CP.CARD                                                         CPS064       183     A     
 COMPASS            NZ     X1,CMP9     IF SOURCE CARD READY                                CPS064       184     A     
 COMPASS            MI     X1,CMP9                                                         CPS064       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/28. 19.11.32.      PAGE 446    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CPS064       186     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064       187     A     
 COMPASS            READ   I           PRIME THE PUMP                                      CPS064       188     A     
 COMPASS   RM       ELSE                                                                   CPS064       189     A     
 COMPASS            OPENM  I,INPUT,N                                                       CPS064       190     A     
 COMPASS            FETCH  I,RT,X1     CHECK RECORD TYPE                                   CPSA229        6     A     
 COMPASS            ZR     X1,CMP8.5   W TYPE OK                                           CPSA229        7     A     
 COMPASS            SB7    X1-1                                                            CPSA229        8     A     
 COMPASS            ZR     B7,CMP8.5   F TYPE OK                                           CPSA229        9     A     
 COMPASS            SB7    B7-2                                                            CPSA229       10     A     
 COMPASS            ZR     B7,CMP8.5   Z TYPE OK                                           CPSA229       11     A     
 COMPASS            MESSAGE  CMPB,,R   ANYTHING ELSE IS AN ERROR                           CPSA229       12     A     
 COMPASS            ABORT  ,NODUMP                                                         CPSA229       13     A     
 COMPASS   CMP8.5   BSS    0                                                               CPSA229       14     A     
 COMPASS            SA1    CP.LISTF                                                        CPS064       191     A     
 COMPASS            ZR     X1,CMP9     IF NO LONG LISTING                                  CPS064       192     A     
 COMPASS            OPENM  O,OUTPUT,N                                                      CPS064       193          I
          -CPSA119
 COMPASS            OPENM  O,I-O,N                                                         CPSA119        5     A     
 COMPASS   RM       ENDIF                                                                  CPS064       194     A     
 COMPASS                                                                                   CPS064       195     A     
 COMPASS   CMP9     RJ     IOT         INITIALIZE OPCODE TABLE                             CPS064       196     A     
 COMPASS            RJ     LST         LOAD SYSTEM TEXT                                    CPS064       197     A     
 COMPASS            RJ     OPF         OPEN FILES                                          CPS064       198     A     
 COMPASS                                                                                   CPS064       199     A     
 COMPASS   OVL      IFNE   OVERLAY,0                                                       CPS064       200     A     
 COMPASS            SA1    OVLA        LOAD SECONDARY OVERLAY                              CPS064       201     A     
 COMPASS            SA2    A1+B1                                                           CPS064       202     A     
 COMPASS            RJ     OVL                                                             CPS064       203     A     
 COMPASS   OVL      ENDIF                                                                  CPS064       204     A     
 COMPASS                                                                                   CPS064       205     A     
 COMPASS            SA1    CP.CARD                                                         CPS064       206     A     
 COMPASS            SX2    I                                                               CPS064       207     A     
 COMPASS            NZ     X1,CMP1     IF SOURCE CARD READY                                CPS064       208     A     
 COMPASS            MI     X1,CMP1                                                         CPS064       209     A     
 COMPASS            SA0    A1                                                              CPS064       210     A     
 COMPASS            RJ     CIF         CHECK INPUT FORMAT                                  CPS064       211     A     
 COMPASS            SA1    EOFINP                                                          CPS064       212     A     
 COMPASS            ZR     X1,CMP1     IF INPUT PRESENT                                    CPS064       213     A     
 COMPASS            MESSAGE CMPA,,R                                                        CPS064       214     A     
 COMPASS            EQ     CMP1        EXIT TO PASS1 OF FIRST ASSEMBLY                     CPS064       215          I
          -CPSA141
 COMPASS            SX6    B1          SET ERR FLAG                                        CPSA141        9     A     
 COMPASS            SA6    ERCNT                                                           CPSA141       10     A     
 COMPASS            EQ     EXITP2      QUIT                                                CPSA141       11     A     
 COMPASS   INPRES   DATA   0           INPUT PRESENCE FLAG                                 CPSA141       12     A     
 COMPASS                                                                                   CPS064       216     A     
 COMPASS   CMPA     DATA   C*  INPUT FILE EMPTY OR MISPOSITIONED.*                         CPS064       217     A     
 COMPASS   CMPB     DATA   C* INPUT FILE RECORD TYPE NOT ALLOWED.*                         CPSA229       15     A     
 COMPASS   PRTA     SPACE  4,8                                                             CPS064       218     A     
 COMPASS  **        WHEN THE CROSS-REFERENCE TABLE HAS OVERFLOWED, THE                     CPS064       219     A     
 COMPASS  *         FOLLOWING SPACE IS USED AS WORKING STORAGE DURING                      CPS064       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/28. 19.11.32.      PAGE 447    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         PRINTING OF THE CROSS-REFERENCE TABLE, AND THEN THE                    CPS064       221     A     
 COMPASS  *         SECONDARY OVERLAY IS RELOADED.  SEE SUBROUTINE *PRT*.                  CPS064       222     A     
 COMPASS                                                                                   CPS064       223     A     
 COMPASS                                                                                   CPS064       224     A     
 COMPASS   PRTA     DATA   0           OVERFLOW TO DISK FLAG                               CPS064       225     A     
 COMPASS   CBUF     BSS    0           END OF NON-OVERLAID AREA                            CPS064       226     A     
 COMPASS   TBUF     BSS    0           BUFFER FOR READING CROSS-REFERENCE TABLE            CPS064       227     A     
 COMPASS   PRTB     EQU    TBUF+RBUFL  ORIGIN OF MANAGED TABLE AREA                        CPS064       228     A     
 COMPASS            LIST   -X                                                              CPSA265       63          I
          -CPSA266
 COMPASS   RM       IFNE   CP#RM,7                                                         CPSA266        9     A     
 COMPASS            LIST   X                                                               CPSA266       10     A     
 COMPASS  *CALL     COMCCPM                                                                CPSA265       64     A     
 COMPASS            LIST   *                                                               CPSA265       65     A     
 COMPASS   RM       ENDIF                                                                  CPSA266       11     A     
 COMPASS   CTM      SPACE  4                                                               CPS064       229     A     
 COMPASS  **        CTM - CHECK MACHINE TYPE.                                              CPS064       230     A     
 COMPASS                                                                                   CPS064       231     A     
 COMPASS                                                                                   S3143CP        7     A     
 COMPASS   MOD      DECMIC "MODEL"/10*10                                                   S3143CP        8     A     
 COMPASS                                                                                   S3143CP        9          I
          -CPSA134
 COMPASS            IFLT   "MODEL",100,2                                                   S3143CP       10          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (1,2,4,7),X                                                     F7540CP      116          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      117          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP      118          I
          -CPSA134
 COMPASS   MODSH    EQU    2*6                                                             S3143CP       11          I
          -CPSA134
 COMPASS            ELSE   1                                                               S3143CP       12          I
          -CPSA134
 COMPASS   MODSH    EQU    3*6                                                             S3143CP       13          I
          -CPSA134
 COMPASS   NUMCHR   MICCNT MODEL                                                           CPSA134       73     A     
 COMPASS   MODSH    EQU    NUMCHR*6                                                        CPSA134       74     A     
 COMPASS                                                                                   CPS064       232     A     
 COMPASS   CTM1     SA1    CTMA                                                            CPS064       233          I
          -CPS240 
 COMPASS   CTM1     SX4    CTMAS       DECIDE WHICH MACHINE WE ARE USING                   CPS240         6     A     
 COMPASS            SX5    X3-4        AND STUFF THE CORRECT CPU TYPE INTO                 CPS240         7     A     
 COMPASS            MI     X5,CTM2     THE ASSEMBLY MESSAGE                                CPS240         8     A     
 COMPASS            SX4    CTMAP                                                           CPS240         9     A     
 COMPASS            ZR     X5,CTM2                                                         CPS240        10     A     
 COMPASS            SX4    CTMA76                                                          CPS240        11     A     
 COMPASS   CTM2     SA1    X4                                                              CPS240        12     A     
 COMPASS            SX6    2R70                                                            CPS064       234          I
          -S3143CP
 COMPASS            SX6    0R"MOD"                                                         S3143CP       14     A     
 COMPASS            IX6    X6+X3                                                           CPS064       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/28. 19.11.32.      PAGE 448    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX3    12                                                              CPS064       236          I
          -S3143CP
 COMPASS            LX3    4*6-MODSH                                                       S3143CP       15     A     
 COMPASS            IX7    X1+X3                                                           CPS064       237          I
          -CPS240 
 COMPASS            BX7    X1                                                              CPS240        13     A     
 COMPASS            LX6    48                                                              CPS064       238          I
          -S3143CP
 COMPASS            LX6    -MODSH                                                          S3143CP       16     A     
 COMPASS            SA7    TLINE                                                           CPS064       239     A     
 COMPASS            SA6    CP.CPU                                                          CPS064       240     A     
 COMPASS                                                                                   CPS064       241     A     
 COMPASS   CTM      PS                 RETURN EXIT                                         CPS064       242     A     
 COMPASS            MX1    1                                                               CPS064       243     A     
 COMPASS            SB2    100B                                                            CPS064       244     A     
 COMPASS            AX1    X1,B2       -0 IF MODEL 76, +0 OTHERWISE                        CPS064       245     A     
 COMPASS            SX3    6                                                               CPS064       246     A     
 COMPASS            MI     X1,CTM1     IF MODEL 76                                         CPS064       247     A     
 COMPASS                                                                                   CPS064       248     A     
 COMPASS            SX6    0220B       JP B2                                               CPS064       249     A     
 COMPASS            SB2    CTM1                                                            CPS064       250     A     
 COMPASS            LX6    48                                                              CPS064       251     A     
 COMPASS                                                                                   CPS064       252     A     
 COMPASS   +        SA6    *+1         STORE JUMP INSTRUCTION                              CPS064       253          I
          -CPSA274
 COMPASS            BX1    X6          FORM  +         JP     B2                           CPSA274       12     A     
 COMPASS            LX1    30                -         JP     B2                           CPSA274       13     A     
 COMPASS            BX6    X1+X6                                                           CPSA274       14     A     
 COMPASS   +        SA6    *+1         STORE *JP B2* (BOTH UPPER AND LOWER)                CPSA274       15     A     
 COMPASS            SX3    3                                                               CPS064       254     A     
 COMPASS                                                                                   CPS064       255     A     
 COMPASS   +        SX3    4           JUMP TO CTM1 IF MODEL 72 OR 73                      CPS064       256     A     
 COMPASS            JP     CTM1        EXECUTE IF MODEL 74                                 CPS064       257     A     
 COMPASS                                                                                   CPS064       258     A     
 COMPASS   CTMA     DATA   H*MODEL 70 A*                                                   CPS064       259          I
          -S3143CP
 COMPASS   CTMA     DATA   H*MODEL "MOD" ASSEMBLY*                                         S3143CP       17          I
          -CPS240 
 COMPASS   CTMA76   DATA   H*7600-TYPE *                                                   CPS240        14     A     
 COMPASS   CTMAP    DATA   H* PARALLEL *                                                   CPS240        15     A     
 COMPASS   CTMAS    DATA   H*   SERIAL *                                                   CPS240        16     A     
 COMPASS   IOT      SPACE  4                                                               CPS064       260     A     
 COMPASS  **        IOT - INITIALIZE OPCODE TABLE.                                         CPS064       261     A     
 COMPASS                                                                                   CPS064       262     A     
 COMPASS                                                                                   CPS064       263     A     
 COMPASS   IOT      PS                 RETURN EXIT                                         CPS064       264     A     
 COMPASS            MANAGE OPTAB,2*NOPCT     ALLOCATE BASIC TABLE AREA                     CPS064       265     A     
 COMPASS            IX3    X2+X3                                                           CPS064       266     A     
 COMPASS            RJ     CLS         CLEAR IT                                            CPS064       267     A     
 COMPASS            SX6    LGOPS-2                                                         CPS064       268     A     
 COMPASS            SA3    EXVAL                                                           CPS064       269     A     
 COMPASS   IOT1     SA1    OPS+X6      GET NEXT ENTRY                                      CPS064       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/28. 19.11.32.      PAGE 449    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    A1+B1                                                           CPS064       271     A     
 COMPASS            SA6    A3                                                              CPS064       272     A     
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CPS064       273     A     
 COMPASS            SA3    EXVAL                                                           CPS064       274     A     
 COMPASS            SX6    X3-2                                                            CPS064       275     A     
 COMPASS            PL     X6,IOT1     LOOP                                                CPS064       276     A     
 COMPASS            EQ     IOT         RETURN                                              CPS064       277     A     
 COMPASS   LGT      SPACE  4                                                               CPS064       278     A     
 COMPASS  **        LGT - LOAD SYSTEM TEXT FROM A NON-LIBRARY FILE.                        CPS064       279     A     
 COMPASS  *         ENTRY  (X7) = SYSTEM TEXT ORDINAL.                                     CPS064       280     A     
 COMPASS  *                (X1) = OVERLAY NAME.                                            CPS064       281     A     
 COMPASS  *                (X2) = BITS 17-00 OF (X1).                                      CPS064       282     A     
 COMPASS  *         EXIT   (X0) = 0 IF TEXT LOADED.                                        CPS064       283     A     
 COMPASS                                                                                   CPS064       284     A     
 COMPASS                                                                                   CPS064       285     A     
 COMPASS   LGT      PS                 RETURN EXIT                                         CPS064       286     A     
 COMPASS                                                                                   CPS064       287     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064       288     A     
 COMPASS                                                                                   CPS064       289     A     
 COMPASS            SA3    CP.LIB+X7                                                       CPS064       290     A     
 COMPASS            SX4    3                                                               CPS064       291     A     
 COMPASS            BX6    X1-X2                                                           CPS064       292     A     
 COMPASS            IX7    X3+X4                                                           CPS064       293     A     
 COMPASS            SA6    EXVAL       SAVE OVERLAY NAME                                   CPS064       294     A     
 COMPASS            SA7    G           STORE FILE NAME IN FET                              CPS064       295     A     
 COMPASS            REWIND G                                                               CPS064       296     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CPS064       297     A     
 COMPASS            SA1    O.MEMORY                                                        CPS064       298     A     
 COMPASS            SA2    O.ENDTAB                                                        CPS064       299     A     
 COMPASS            SX0    X1          PRESET FAILURE RETURN                               CPS064       300     A     
 COMPASS            IX6    X2-X1                                                           CPS064       301     A     
 COMPASS            SA0    X6          AVAILABLE MEMORY                                    CPS064       302     A     
 COMPASS   LGT1     READ   G                                                               CPS064       303     A     
 COMPASS   LGT2     READW  G,X0,1      READ 7700 TABLE                                     CPS064       304     A     
 COMPASS            MI     X1,LGT      IF EOF                                              CPS064       305     A     
 COMPASS            NZ     X1,LGT1     IF EOR                                              CPS064       306     A     
 COMPASS            SA2    X0                                                              CPS064       307     A     
 COMPASS            LX2    18                                                              CPS064       308     A     
 COMPASS            SX6    X2-770000B                                                      CPS064       309     A     
 COMPASS            ZR     X6,LGT4     IF 7700 TABLE                                       CPS064       310     A     
 COMPASS   LGT3     READW  G,X0,A0     SKIP TO EOR                                         CPS064       311     A     
 COMPASS            ZR     X1,LGT3                                                         CPS064       312     A     
 COMPASS            EQ     LGT1        TRY NEXT RECORD                                     CPS064       313     A     
 COMPASS   LGT4     LX2    6                                                               CPS064       314     A     
 COMPASS            SX5    X2-1                                                            CPS064       315     A     
 COMPASS            MI     X5,LGT3     IF ZERO-LENGTH TABLE                                CPS064       316     A     
 COMPASS            READW  G,X0,1      GET RECORD NAME                                     CPS064       317     A     
 COMPASS            SA1    EXVAL                                                           CPS064       318     A     
 COMPASS            SA2    X0                                                              CPS064       319     A     
 COMPASS            BX6    X1-X2                                                           CPS064       320     A     
 COMPASS            ZR     X1,LGT5     IF NO OVERLAY NAME SPECIFIED                        CPS064       321     A     
 COMPASS            NZ     X6,LGT3     IF WRONG NAME                                       CPS064       322     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 450    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LGT5     READW  G,X0,1                                                          CPS064       323     A     
 COMPASS            SX5    X5-1        SKIP 7700 TABLE                                     CPS064       324     A     
 COMPASS            PL     X5,LGT5                                                         CPS064       325     A     
 COMPASS            SA1    X0          CHECK OVERLAY HEADER                                CPS064       326     A     
 COMPASS            SA2    =50000101BS36                                                   CPS064       327     A     
 COMPASS            BX6    X1-X2                                                           CPS064       328     A     
 COMPASS            NZ     X6,LGT3     IF NOT A (1,1) OVERLAY                              CPS064       329     A     
 COMPASS            READW  G,X0+B1,A0-B1     READ REMAINDER OF OVERLAY                     CPS064       330          I
          -F4810B 
 COMPASS   LGT6     READW  G,X0+B1,A0-B1  READ REMAINDER OF OVERLAY                F4810B  F4810B       166     A     
 COMPASS            SX0    B0          INDICATE TEXT LOADED                        F4810B  F4810B       167     A     
 COMPASS            NZ     X1,LGT      IF ALL OF OVERLAY READ, RETURN              F4810B  F4810B       168     A     
 COMPASS            SX0    B6-B1       (B6) = ADDRESS OF LAST WORD TRANSFERED      F4810B  F4810B       169     A     
 COMPASS            MX1    0                                                       F4810B  F4810B       170     A     
 COMPASS            RJ     RFL         REQUEST FLINC WORDS MORE CENTRAL MEMORY     F4810B  F4810B       171     A     
 COMPASS            ZR     X3,LST7A    IF REQUEST NOT COMPLETED, ABORT             F4810B  F4810B       172     A     
 COMPASS            SA2    O.ENDTAB    ELSE SET UP TO CONTINUE                     F4810B  F4810B       173     A     
 COMPASS            IX1    X2-X0       AMOUNT OF SPACE AVAILABLE                   F4810B  F4810B       174     A     
 COMPASS            SA0    X1+B1       ADD 1 WORD                                  F4810B  F4810B       175     A     
 COMPASS            EQ     LGT6        GO GET REST OF TEXT                         F4810B  F4810B       176     A     
 COMPASS                                                                                   CPS064       331     A     
 COMPASS   RM       ELSE                                                                   CPS064       332     A     
 COMPASS                                                                                   CPS064       333     A     
 COMPASS            SA3    CP.LIB+X7                                                       CPS064       334     A     
 COMPASS            BX6    X1-X2                                                           CPS064       335     A     
 COMPASS            LX7    X3                                                              CPS064       336     A     
 COMPASS            SA6    EXVAL       SAVE OVERLAY NAME                                   CPS064       337     A     
 COMPASS            SA7    GDUM        STORE FILE NAME IN FIT                              CPS064       338     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CPS064       339     A     
 COMPASS            SX1    LGDUM                                                           CPS064       340     A     
 COMPASS            SX2    GDUM                                                            CPS064       341     A     
 COMPASS            SX3    G           RE-INITIALIZE FIT                                   CPS064       342     A     
 COMPASS            RJ     MOVE                                                            CPS064       343     A     
 COMPASS            SA1    O.MEMORY                                                        CPS064       344     A     
 COMPASS            SA2    O.ENDTAB                                                        CPS064       345     A     
 COMPASS            IX3    X2-X1       AVAILABLE WORDS                                     CPS064       346     A     
 COMPASS            IX4    X3+X3                                                           CPS064       347     A     
 COMPASS            LX3    3           MULTIPLY BY 10                                      CPS064       348     A     
 COMPASS            IX4    X3+X4                                                           CPS064       349     A     
 COMPASS            STORE  G,MRL=X4    SET MAXIMUM RECORD LENGTH                           CPS064       350     A     
 COMPASS            STORE  G,WSA=X1    WORKING STORAGE ADDRESS                             CPS064       351     A     
 COMPASS            STORE  G,DX=LGT8   END OF DATA EXIT                                    CPS064       352     A     
 COMPASS            OPENM  G,INPUT,R   OPEN THE FILE WITH REWIND                           CPS064       353     A     
 COMPASS            FETCH  G,RT,X2                                                         CPS064       354     A     
 COMPASS            SB7    X2-#ST#                                                         CPS064       355     A     
 COMPASS            SX6    #EOS#                                                           CPS064       356     A     
 COMPASS   +        NZ     B7,*+1      IF NOT *S* RECORDS                                  CPS064       357     A     
 COMPASS            SX6    X6+#EOR#                                                        CPS064       358     A     
 COMPASS            SA6    G-1                                                             CPS064       359     A     
 COMPASS                                                                                   CPS064       360     A     
 COMPASS   LGT1     GETP   G,,10       GET FIRST WORD OF SECTION                           CPS064       361     A     
 COMPASS            SA1    O.MEMORY                                                        CPS064       362     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 451    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    X1                                                              CPS064       363     A     
 COMPASS            LX2    18                                                              CPS064       364     A     
 COMPASS            SX6    X2-770000B                                                      CPS064       365     A     
 COMPASS            ZR     X6,LGT5     IF 7700 TABLE                                       CPS064       366     A     
 COMPASS   LGT2     GETP   G,,10       SKIP REST OF RECORD                                 CPS064       367     A     
 COMPASS   LGT3     FETCH  G,FP,X2                                                         CPS064       368     A     
 COMPASS            SX0    #EOI#+#EOP#                                                     CPS064       369     A     
 COMPASS            BX3    X0*X2                                                           CPS064       370     A     
 COMPASS            SA1    G-1                                                             CPS064       371     A     
 COMPASS            NZ     X3,LGT4     IF EOI OR EOF                                       CPS064       372     A     
 COMPASS            BX4    X1*X2                                                           CPS064       373     A     
 COMPASS            ZR     X4,LGT2     IF NOT END OF SECTION                               CPS064       374     A     
 COMPASS            EQ     LGT1                                                            CPS064       375     A     
 COMPASS   LGT4     CLOSEM G,R         CLOSE WITH REWIND                                   CPS064       376     A     
 COMPASS            SX0    B1          INDICATE FAILURE                                    CPS064       377     A     
 COMPASS            EQ     LGT         RETURN                                              CPS064       378     A     
 COMPASS   LGT5     LX2    6                                                               CPS064       379     A     
 COMPASS            SX7    X2          WORD COUNT                                          CPS064       380     A     
 COMPASS            IX0    X7+X7                                                           CPS064       381     A     
 COMPASS            LX7    3           MULTIPLY BY 10                                      CPS064       382     A     
 COMPASS            IX4    X0+X7                                                           CPS064       383     A     
 COMPASS            GETP   G,,X4       SKIP THE 7700 TABLE                                 CPS064       384     A     
 COMPASS            SA1    EXVAL                                                           CPS064       385     A     
 COMPASS            SA2    O.MEMORY                                                        CPS064       386     A     
 COMPASS            ZR     X1,LGT6     IF NO OVERLAY NAME SPECIFIED                        CPS064       387     A     
 COMPASS            SA3    X2                                                              CPS064       388     A     
 COMPASS            BX6    X3-X1                                                           CPS064       389     A     
 COMPASS            NZ     X6,LGT2     IF WRONG NAME                                       CPS064       390     A     
 COMPASS   LGT6     GETP   G,,10       READ 5000 TABLE                                     CPS064       391     A     
 COMPASS            SA3    O.MEMORY                                                        CPS064       392     A     
 COMPASS            SA2    =50000101BS36                                                   CPS064       393     A     
 COMPASS            SA1    X3                                                              CPS064       394     A     
 COMPASS            BX6    X1-X2                                                           CPS064       395     A     
 COMPASS            NZ     X6,LGT2     IF NOT A (1,1) OVERLAY                              CPS064       396     A     
 COMPASS            SX3    X3+B1                                                           CPS064       397     A     
 COMPASS            SX4    10                                                              CPS064       398     A     
 COMPASS            STORE  G,DX=LGT9   SET NEW DATA EXIT                                   CPS064       399     A     
 COMPASS            STORE  G,WSA=X3                                                        CPS064       400     A     
 COMPASS            FETCH  G,MRL,X2                                                        CPS064       401     A     
 COMPASS            IX1    X2-X4                                                           CPS064       402     A     
 COMPASS            STORE  G,MRL=X1                                                        CPS064       403     A     
 COMPASS            GETP   G,,X1       GET REMAINDER OF FIRST RECORD                       CPS064       404          I
          -F4810B 
 COMPASS   LGT6A    GETP   G,,X1       GET REMAINDER OF RECORD                     F4810B  F4810B       177     A     
 COMPASS            FETCH  G,FP,X1                                                         CPS064       405     A     
 COMPASS            SX0    #EOR#                                                           CPS064       406     A     
 COMPASS            BX6    X0*X1                                                           CPS064       407     A     
 COMPASS            ZR     X6,LGT9+1   IF NOT AT END OF RECORD                             CPS064       408          I
          -F4810B 
 COMPASS            ZR     X6,LGT9+1   IF NOT AT EOR, CHECK FOR EOP OR EOI         F4810B  F4810B       178     A     
 COMPASS            FETCH  G,PTL,X2                                                        CPS064       409     A     
 COMPASS   LGT7     SX1    1S20/10+1                                                       CPS064       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/28. 19.11.32.      PAGE 452    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX4    X2          RECORD LENGTH IN CHARACTERS                         CPS064       411     A     
 COMPASS            IX3    X1*X2                                                           CPS064       412     A     
 COMPASS            AX3    20          RECORD LENGTH IN WORDS                              CPS064       413     A     
 COMPASS            FETCH  G,WSA,X1                                                        CPS064       414     A     
 COMPASS            IX3    X1+X3       ADJUST WSA FOR NEXT GET                             CPS064       415     A     
 COMPASS            STORE  G,WSA=X3                                                        CPS064       416     A     
 COMPASS            FETCH  G,MRL,X2                                                        CPS064       417     A     
 COMPASS            IX1    X2-X4       REDUCE MRL                                          CPS064       418     A     
 COMPASS            MI     X1,LGT9+1   IF NO MORE ROOM                                     CPS064       419          I
          -F4810B 
 COMPASS            MI     X1,LGT10    IF NO MORE ROOM, GO GET MORE FL             F4810B  F4810B       179     A     
 COMPASS            STORE  G,MRL=X1                                                        CPS064       420     A     
 COMPASS            GET    G           READ MORE OF SYSTEXT                                CPS064       421          I
          -CPSA169
 COMPASS            FETCH  G,RL,X2                                                         CPS064       422          I
          -CPSA169
 COMPASS            EQ     LGT7        LOOP                                                CPS064       423          I
          -CPSA169
 COMPASS            EQ     LGT6A                                                           CPSA169        6     A     
 COMPASS                                                                                   CPS064       424     A     
 COMPASS   LGT8     PS                 DATA EXIT FOR SKIPPING TO END OF SECTION            CPS064       425     A     
 COMPASS            EQ     LGT3        PROCESS OF END OF DATA                              CPS064       426     A     
 COMPASS                                                                                   CPS064       427     A     
 COMPASS   LGT9     PS                 DATA EXIT FOR READING OVERLAY                       CPS064       428     A     
 COMPASS            SA2    G-1                                                             CPS064       429     A     
 COMPASS            FETCH  G,FP,X1                                                         CPS064       430     A     
 COMPASS            SX0    #EOI#+#EOP#+X2                                                  CPS064       431     A     
 COMPASS            BX6    X0*X1                                                           CPS064       432     A     
 COMPASS            ZR     X6,LGT10    IF NOT THROUGH                              F4810B  F4810B       180     A     
 COMPASS            SX0    B0          INDICATE TEXT LOADED                        F4810B  F4810B       181     A     
 COMPASS            SA6    EXVAL                                                           CPS064       433     A     
 COMPASS            CLOSEM G,R         CLOSE THE FILE                                      CPS064       434     A     
 COMPASS            SA1    EXVAL                                                           CPS064       435          I
          -F4810B 
 COMPASS                                                                                   CPS064       436          I
          -F4810B 
 COMPASS   RM       ENDIF                                                                  CPS064       437          I
          -F4810B 
 COMPASS                                                                                   CPS064       438          I
          -F4810B 
 COMPASS            SX0    B0                                                              CPS064       439          I
          -F4810B 
 COMPASS            NZ     X1,LGT      RETURN IF ALL OF OVERLAY READ                       CPS064       440          I
          -F4810B 
 COMPASS            EQ     LST7A       INSUFFICIENT STORAGE FOR SYSTEM TEXT                CPS064       441          I
          -F4810B 
 COMPASS            EQ     LGT         RETURN                                      F4810B  F4810B       182     A     
 COMPASS                                                                           F4810B  F4810B       183     A     
 COMPASS   LGT10    MX1    0                                                       F4810B  F4810B       184     A     
 COMPASS            RJ     RFL         REQUEST FLINC WORDS MORE CENTRAL MEMORY     F4810B  F4810B       185     A     
 COMPASS            ZR     X3,LST7A    IF ALREADY AT MAXFL, ABORT                  F4810B  F4810B       186     A     
 COMPASS            FETCH  G,PTL,X2    GET NUMBER OF CHARACTERS TRANSFERED         F4810B  F4810B       187     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 453    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    1S20/10+1                                               F4810B  F4810B       188     A     
 COMPASS            BX4    X2          LENGTH IN CHARACTERS                        F4810B  F4810B       189     A     
 COMPASS            IX3    X1*X2                                                   F4810B  F4810B       190     A     
 COMPASS            AX3    20          LENGTH IN WORDS                             F4810B  F4810B       191     A     
 COMPASS            FETCH  G,WSA,X1    GET PREVIOUS WORKING STORAGE AREA ADDRESS   F4810B  F4810B       192     A     
 COMPASS            IX3    X1+X3       ADJUST WORKING STORAGE AREA FOR NEXT READ   F4810B  F4810B       193     A     
 COMPASS            STORE  G,WSA=X3    STORE NEW WSA IN FIT                        F4810B  F4810B       194     A     
 COMPASS            SA2    O.ENDTAB    END OF TABLE SPACE                          F4810B  F4810B       195     A     
 COMPASS            IX3    X2-X3       WORDS AVAILABLE                             F4810B  F4810B       196     A     
 COMPASS            IX4    X3+X3       MULTIPLY BY 10 TO GET NUMBER OF CHARACTERS  F4810B  F4810B       197     A     
 COMPASS            LX3    3                                                       F4810B  F4810B       198     A     
 COMPASS            IX1    X3+X4                                                   F4810B  F4810B       199     A     
 COMPASS            STORE  G,MRL=X1    STORE NEW MAXIMUM RECORD LENGTH IN FIT      F4810B  F4810B       200     A     
 COMPASS            EQ     LGT6A       GO GET REST OF RECORD                       F4810B  F4810B       201     A     
 COMPASS                                                                           F4810B  F4810B       202     A     
 COMPASS   RM       ENDIF                                                          F4810B  F4810B       203     A     
 COMPASS                                                                                   CPS064       442     A     
 COMPASS                                                                                   CPS064       443     A     
 COMPASS  **        FET/FIT FOR SYSTEM TEXT LOADING FROM FILES.                            CPS064       444     A     
 COMPASS                                                                                   CPS064       445     A     
 COMPASS                                                                                   CPS064       446     A     
 COMPASS   GET      FET    ,GBUF,GBUFL,3                                                   CPS064       447     A     
 COMPASS                                                                                   CPS064       448     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064       449     A     
 COMPASS   G        EQU    GET                                                             CPS064       450     A     
 COMPASS   RM       ELSE                                                                   CPS064       451     A     
 COMPASS            IFEQ   CP#RM,6,1                                                       CPS064       452     A     
 COMPASS   G        FILE   FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=GET,FWB=GBUF,BFS=GBUFL,         CPS064       453     A     
 COMPASS  ,ERL=1                                                                           CPS064       454     A     
 COMPASS            IFEQ   CP#RM,7,1                                                       CPS064       455     A     
 COMPASS   G        FILE   FO=SQ,BT=,RT=W,CM=NO,PD=INPUT                                   CPS064       456     A     
 COMPASS            BSSZ   GET+40B-*                                                       CPS064       457     A     
 COMPASS                                                                                   CPS064       458     A     
 COMPASS            IFEQ   CP#RM,6,1                                                       CPS064       459     A     
 COMPASS   GDUM     FILE   FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=GET,FWB=GBUF,BFS=GBUFL,         CPS064       460     A     
 COMPASS  ,ERL=1                                                                           CPS064       461     A     
 COMPASS            IFEQ   CP#RM,7,1                                                       CPS064       462     A     
 COMPASS   GDUM     FILE   FO=SQ,BT=,RT=W,CM=NO,PD=INPUT                                   CPS064       463     A     
 COMPASS   LGDUM    EQU    *-GDUM                                                          CPS064       464     A     
 COMPASS                                                                                   CPS064       465     A     
 COMPASS   RM       ENDIF                                                                  CPS064       466     A     
 COMPASS   LLT      SPACE  4                                                               CPS064       467     A     
 COMPASS  **        LLT - LOAD LIBRARY TEXT.                                               CPS064       468     A     
 COMPASS  *         ENTRY  (X7) = SYSTEM TEXT ORDINAL.                                     CPS064       469     A     
 COMPASS  *                (X1) = OVERLAY NAME.                                            CPS064       470     A     
 COMPASS  *         EXIT   (X0) = 0 IF TEXT LOADED.                                        CPS064       471     A     
 COMPASS                                                                                   CPS064       472     A     
 COMPASS                                                                                   CPS064       473     A     
 COMPASS   LLT      PS                 RETURN EXIT                                         CPS064       474     A     
 COMPASS            SA3    CP.LIB+X7                                                       CPS064       475     A     
 COMPASS            BX6    X1                                                              CPS064       476     A     
 COMPASS            LX7    X3                                                              CPS064       477     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 454    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    LLTA        OVERLAY NAME                                        CPS064       478     A     
 COMPASS            SA7    LLTA+2      LIBRARY NAME                                        CPS064       479     A     
 COMPASS   LLT0     BSS    0                                                       F4810B  F4810B       204     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CPS064       480     A     
 COMPASS            SA1    O.ENDTAB                                                F4810B  F4810B       205     A     
 COMPASS            SA2    O.MEMORY                                                F4810B  F4810B       206     A     
 COMPASS            IX1    X1-X2       SPACE AVAILABLE FOR TEXTS                   F4810B  F4810B       207     A     
 COMPASS            SX3    TXTFL                                                   F4810B  F4810B       208     A     
 COMPASS            IX1    X1-X3       SPACE AVAILABLE-SPACE REQUIRED FOR TEXT     F4810B  F4810B       209     A     
 COMPASS            PL     X1,LLT0A    IF ENOUGH SPACE, GO LOAD TEXT               F4810B  F4810B       210     A     
 COMPASS            IX1    X2+X3                                                   F4810B  F4810B       211     A     
 COMPASS            SX1    X1+10D                                                  F4810B  F4810B       212     A     
 COMPASS            BX1    -X1                                                     F4810B  F4810B       213     A     
 COMPASS            RJ     RFL         REQUEST FL OF O.MEMORY+TXTFL+10D(SLOP)      F4810B  F4810B       214     A     
 COMPASS   LLT0A    BSS    0                                                       F4810B  F4810B       215     A     
 COMPASS            SA1    LLTA+2                                                          CPS064       481     A     
 COMPASS            SX5    0101014B                                                        CPS064       482     A     
 COMPASS            ZR     X1,LLT1     IF NO LIBRARY NAME SPECIFIED                        CPS064       483     A     
 COMPASS            SA2    LLTA                                                            CPS064       484     A     
 COMPASS            BX6    X1                                                              CPS064       485     A     
 COMPASS            LX7    X2                                                              CPS064       486     A     
 COMPASS            SX5    0101214B    SET 3-WORD REQUEST                                  CPS064       487     A     
 COMPASS            SA6    A2                                                              CPS064       488     A     
 COMPASS            SA7    A1                                                              CPS064       489     A     
 COMPASS   LLT1     SA1    O.ENDTAB    SETUP SECOND WORD OF REQUEST                        CPS064       490     A     
 COMPASS            SA2    O.MEMORY                                                        CPS064       491     A     
 COMPASS            LX5    39                                                              CPS064       492     A     
 COMPASS            LX1    18                                                              CPS064       493     A     
 COMPASS            BX3    X5+X2                                                           CPS064       494     A     
 COMPASS            SX6    B0                                                              CPS064       495     A     
 COMPASS            BX7    X3+X1                                                           CPS064       496     A     
 COMPASS            SA6    RA.LDR      CLEAR REPLY WORD                                    CPS064       497     A     
 COMPASS            SA7    LLTA+1                                                          CPS064       498     A     
 COMPASS            LOADREQ LLTA       REQUEST OVERLAY LOAD                                CPS064       499     A     
 COMPASS                                                                                   CPS064       500     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CPS064       501     A     
 COMPASS   LLT2     RECALL             WAIT FOR LOADER                                     CPS064       502     A     
 COMPASS            SA4    RA.LDR                                                          CPS064       503     A     
 COMPASS            ZR     X4,LLT2                                                         CPS064       504     A     
 COMPASS   RM       ENDIF                                                                  CPS064       505     A     
 COMPASS                                                                                   CPS064       506     A     
 COMPASS   BE       IF     DEF,NOSBE                                                       CPS2660       11     A     
 COMPASS            SA1    LLTA+1                                                          CPS064       507     A     
 COMPASS            SA2    A1-B1                                                           CPS064       508     A     
 COMPASS            SX0    B1                                                              CPS064       509     A     
 COMPASS            LX1    -36         GET FATAL ERROR FLAG                                CPS064       510     A     
 COMPASS            SX6    X2-9                                                            CPS064       511     A     
 COMPASS            BX0    X0*X1                                                           CPS064       512     A     
 COMPASS            ZR     X6,LST7A    IF INSUFFICIENT STORAGE                             CPS064       513          I
          -F4810B 
 COMPASS            EQ     LLT         RETURN                                              CPS064       514          I
          -F4810B 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 455    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X6,LLT      IF SUFFICIENT STORAGE, RETURN               F4810B  F4810B       216     A     
 COMPASS            SX1    B0                                                      F4810B  F4810B       217     A     
 COMPASS            RJ     RFL         REQUEST FLINC WORDS MORE CENTRAL MEMORY     F4810B  F4810B       218     A     
 COMPASS            ZR     X3,LST7A    IF ALREADY AT MAXIMUM, GO ABORT             F4810B  F4810B       219     A     
 COMPASS            EQ     LLT0        ELSE, GO GET MORE TEXT                      F4810B  F4810B       220     A     
 COMPASS   BE       ELSE                                                                   CPS2660       12     A     
 COMPASS            MX0    0           (X0) = 0, TEXT LOADED                               CPS2660       13     A     
 COMPASS            EQ     LLT         RETURN                                              CPS2660       14     A     
 COMPASS   BE       ENDIF                                                                  CPS2660       15     A     
 COMPASS                                                                                   CPS064       515     A     
 COMPASS   LLTA     BSS    3           LOADER PARAMETER LIST                               CPS064       516     A     
 COMPASS   LST      SPACE  4                                                               CPS064       517     A     
 COMPASS  **        LST - LOAD SYSTEM TEXT.                                                CPS064       518     A     
 COMPASS                                                                                   CPS064       519     A     
 COMPASS                                                                                   CPS064       520     A     
 COMPASS   LST      PS                 RETURN EXIT                                         CPS064       521     A     
 COMPASS                                                                                   CPS064       522     A     
 COMPASS            IFNE   OVERLAY,0                                                       CPS064       523     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CPS064       524     A     
 COMPASS            SA2    LOCORE                                                          CPS064       525     A     
 COMPASS            BX6    X2          SAVE NORMAL FWA OF MANAGED TABLE AREA               CPS064       526     A     
 COMPASS            SA6    LSTA                                                            CPS064       527     A     
 COMPASS            SX1    ENDZ        SET NEW FWA TO USE ALL AVAILABLE SPACE              CPS064       528     A     
 COMPASS            RJ     ACL                                                             CPS064       529     A     
 COMPASS            ENDIF                                                                  CPS064       530     A     
 COMPASS                                                                                   CPS064       531     A     
 COMPASS            SA1    CP.STEXT                                                        CPS064       532     A     
 COMPASS            SA2    CP.LIB      CHECK FOR *S=0*                                     CPS064       533     A     
 COMPASS            SX7    B1                                                              CPS064       534     A     
 COMPASS            NZ     X1,LST1     IF SYSTEM TEXT(S) SPECIFIED                         CPS064       535     A     
 COMPASS            BX6    X2                                                              CPS064       536     A     
 COMPASS            ZR     X2,LST6A    IF NONE AT ALL                                      CPS064       537     A     
 COMPASS            SA6    A1                                                              CPS064       538     A     
 COMPASS   LST1     SA7    A2          STORE SYSTEM TEXT ORDINAL                           CPS064       539     A     
 COMPASS            SA1    CP.STEXT+X7                                                     CPS064       540     A     
 COMPASS            SX2    X1                                                              CPS064       541     A     
 COMPASS            ZR     X2,LST1A    IF *S* ARGUMENT                                     CPS064       542     A     
 COMPASS            RJ     LGT         LOAD FROM FILE (*G* ARGUMENT)                       CPS064       543     A     
 COMPASS            EQ     LST1B                                                           CPS064       544     A     
 COMPASS   LST1A    RJ     LLT         LOAD LIBRARY TEXT                                   CPS064       545     A     
 COMPASS   LST1B    NZ     X0,LST7     IF NOT LOADED                                       CPS064       546     A     
 COMPASS            SA3    O.MEMORY                                                        CPS064       547     A     
 COMPASS            SA2    X3+B1       SYSTEM SYMBOL TABLE LENGTH                          CPS064       548     A     
 COMPASS            BX1    X2                                                              CPS064       549     A     
 COMPASS            AX2    18          VERIFY SYSTEXT FORMAT                               CPS064       550     A     
 COMPASS            SB2    X1+B1                                                           CPS064       551     A     
 COMPASS            NZ     X2,LST8     IF BAD SYSTEXT                                      CPS064       552     A     
 COMPASS            SA4    O.ENDTAB                                                        CPS064       553     A     
 COMPASS            SB3    X4          FIND END OF OVERLAY                                 CPS064       554     A     
 COMPASS            SB2    A2+B2                                                           CPS064       555     A     
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CPS064       556     A     
 COMPASS            MI     B2,LST8                                                         CPS064       557     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 456    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    B2          SYSTEM MICRO TABLE LENGTH                           CPS064       558     A     
 COMPASS            SB2    X2+B1                                                           CPS064       559     A     
 COMPASS            SB2    A2+B2                                                           CPS064       560     A     
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CPS064       561     A     
 COMPASS            MI     B2,LST8                                                         CPS064       562     A     
 COMPASS            SA2    B2          SYSTEM MACRO DEFINITION TABLE LENGTH                CPS064       563     A     
 COMPASS            SB2    X2+B1                                                           CPS064       564     A     
 COMPASS            SB2    A2+B2                                                           CPS064       565     A     
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CPS064       566     A     
 COMPASS            MI     B2,LST8                                                         CPS064       567     A     
 COMPASS            SA2    B2          SYSTEM OPCODE TABLE LENGTH                          CPS064       568     A     
 COMPASS            SB2    X2+B1                                                           CPS064       569     A     
 COMPASS            SB2    A2+B2                                                           CPS064       570     A     
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CPS064       571     A     
 COMPASS            MI     B2,LST8                                                         CPS064       572     A     
 COMPASS            SX6    B2          LWA+1 OF OVERLAY                                    CPS064       573     A     
 COMPASS            IX6    X6-X3                                                           CPS064       574     A     
 COMPASS            SA6    L.MEMORY                                                        CPS064       575     A     
 COMPASS            MANAGE SSYMS,X1    ALLOCATE SYSTEM SYMBOL TABLE                        CPS064       576     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CPS064       577     A     
 COMPASS            SA2    CP.LIB                                                          CPS064       578     A     
 COMPASS            SA3    O.MEMORY                                                        CPS064       579     A     
 COMPASS            SA4    L.SSYMS                                                         CPS064       580     A     
 COMPASS            SA1    O.SSYMS                                                         CPS064       581     A     
 COMPASS            LX2    36          POSITION SYSTEM TEXT ORDINAL                        CPS064       582     A     
 COMPASS            SA5    X3+B1                                                           CPS064       583     A     
 COMPASS            SB2    B1+B1                                                           CPS064       584     A     
 COMPASS            SB4    A5+B1                                                           CPS064       585     A     
 COMPASS            SB5    X5-2        NUMBER OF SYMBOLS * 2 - 2                           CPS064       586     A     
 COMPASS            IX6    X4-X5                                                           CPS064       587     A     
 COMPASS            SB3    X6                                                              CPS064       588     A     
 COMPASS            SB6    X1+B3                                                           CPS064       589     A     
 COMPASS            EQ     LST2A                                                           CPS064       590     A     
 COMPASS   LST2     LX6    X4          STORE NEW SYMBOL                                    CPS064       591     A     
 COMPASS            SA6    B6                                                              CPS064       592     A     
 COMPASS            SA7    B6+B1                                                           CPS064       593     A     
 COMPASS            SB6    B6+B2                                                           CPS064       594     A     
 COMPASS   LST2A    MI     B5,LST2C    IF END OF TABLE                                     CPS064       595     A     
 COMPASS            SA4    B4                                                              CPS064       596     A     
 COMPASS            SA5    B4+B1       GET NEXT SYMBOL                                     CPS064       597     A     
 COMPASS            SB4    B4+B2                                                           CPS064       598     A     
 COMPASS            SB5    B5-B2                                                           CPS064       599     A     
 COMPASS            SB7    B3-B2                                                           CPS064       600     A     
 COMPASS            BX7    X5+X2                                                           CPS064       601     A     
 COMPASS   LST2B    SA3    X1+B7       CHECK FOR DUPLICATE SYMBOL                          CPS064       602     A     
 COMPASS            MI     B7,LST2     IF NOT FOUND                                        CPS064       603     A     
 COMPASS            BX0    X4-X3                                                           CPS064       604     A     
 COMPASS            SB7    B7-B2                                                           CPS064       605     A     
 COMPASS            NZ     X0,LST2B    LOOP                                                CPS064       606     A     
 COMPASS            SA7    A3+B1       REDEFINE SYMBOL                                     CPS064       607     A     
 COMPASS            EQ     LST2A                                                           CPS064       608     A     
 COMPASS   LST2C    SX6    B6          REDUCE SSYMS LENGTH IF ANY                          CPS064       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/28. 19.11.32.      PAGE 457    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX7    X6-X1       DUPLICATE SYMBOLS WERE FOUND                        CPS064       610     A     
 COMPASS            SA7    L.SSYMS                                                         CPS064       611     A     
 COMPASS            SA1    L.MEMORY                                                        CPS064       612     A     
 COMPASS            SA2    O.MEMORY    REDUCE MEMORY                                       CPS064       613     A     
 COMPASS            SX7    B4                                                              CPS064       614     A     
 COMPASS            IX3    X1+X2                                                           CPS064       615     A     
 COMPASS            IX6    X3-X7                                                           CPS064       616     A     
 COMPASS            SA7    A2                                                              CPS064       617     A     
 COMPASS            SA6    A1                                                              CPS064       618     A     
 COMPASS            SA1    X7                                                              CPS064       619     A     
 COMPASS            MANAGE SYSMIC,X1                                                       CPS064       620     A     
 COMPASS            SA4    O.MEMORY    LOAD SYSTEM MICROS                                  CPS064       621     A     
 COMPASS            SA1    X4                                                              CPS064       622     A     
 COMPASS            IX3    X2+X3                                                           CPS064       623     A     
 COMPASS            ZR     X1,LST3     IF LENGTH IS ZERO                                   CPS064       624     A     
 COMPASS            SX2    X4+B1                                                           CPS064       625     A     
 COMPASS            IX3    X3-X1                                                           CPS064       626     A     
 COMPASS            RJ     MOVE                                                            CPS064       627     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CPS064       628     A     
 COMPASS   LST3     SA4    O.MEMORY    REDUCE MEMORY                                       CPS064       629     A     
 COMPASS            SA5    L.MEMORY                                                        CPS064       630     A     
 COMPASS            SA3    X4                                                              CPS064       631     A     
 COMPASS            SX6    X3+B1                                                           CPS064       632     A     
 COMPASS            IX7    X4+X6                                                           CPS064       633     A     
 COMPASS            IX6    X5-X6                                                           CPS064       634     A     
 COMPASS            SA7    A4                                                              CPS064       635     A     
 COMPASS            SA6    A5                                                              CPS064       636     A     
 COMPASS            SA1    X7                                                              CPS064       637     A     
 COMPASS            MANAGE MACDEF,X1                                                       CPS064       638     A     
 COMPASS            SA4    O.MEMORY    LOAD MACRO DEFINITION SKELETONS                     CPS064       639     A     
 COMPASS            SA1    X4                                                              CPS064       640     A     
 COMPASS            IX3    X2+X3                                                           CPS064       641     A     
 COMPASS            ZR     X1,LST4     IF LENGTH IS ZERO                                   CPS064       642     A     
 COMPASS            SX2    X4+B1                                                           CPS064       643     A     
 COMPASS            IX3    X3-X1                                                           CPS064       644     A     
 COMPASS            RJ     MOVE                                                            CPS064       645     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CPS064       646     A     
 COMPASS   LST4     SA4    O.MEMORY    REDUCE MEMORY                                       CPS064       647     A     
 COMPASS            SA5    L.MEMORY                                                        CPS064       648     A     
 COMPASS            SA3    X4                                                              CPS064       649     A     
 COMPASS            SX6    X3+2                                                            CPS064       650     A     
 COMPASS            IX7    X4+X6                                                           CPS064       651     A     
 COMPASS            IX6    X5-X6                                                           CPS064       652     A     
 COMPASS            SA7    A4                                                              CPS064       653     A     
 COMPASS            SA6    A5                                                              CPS064       654     A     
 COMPASS            ZR     X6,LST6     IF NO SYSTEM OPCODES                                CPS064       655     A     
 COMPASS   LST5     SA1    X7          LOOK UP OPCODE                                      CPS064       656     A     
 COMPASS            RJ     TLUOP                                                           CPS064       657     A     
 COMPASS            SA4    O.MEMORY                                                        CPS064       658     A     
 COMPASS            SA5    X4+B1       GET EQUIVALENT                                      CPS064       659     A     
 COMPASS            BX7    X5                                                              CPS064       660     A     
 COMPASS            AX5    57                                                              CPS064       661     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 458    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX0    X5+B1                                                           CPS064       662     A     
 COMPASS            SA3    LSYSMAC                                                         CPS064       663     A     
 COMPASS   +        NZ     X0,*+1      IF NOT A MACRO                                      CPS064       664     A     
 COMPASS            IX7    X7+X3                                                           CPS064       665     A     
 COMPASS            NZ     X6,LST5A    IF FOUND                                            CPS064       666          I
          -CPS073 
 COMPASS   +        AX5    1                                                               CPS073         1     A     
 COMPASS            ZR     X5,LST5C    IF NOT PSEUDO OP                                    CPS073         2     A     
 COMPASS            MX0    -9                                                              CPS073         3     A     
 COMPASS            BX5    X7                                                              CPS073         4     A     
 COMPASS            AX5    36                                                              CPS073         5     A     
 COMPASS            BX5    -X0*X5                                                          CPS073         6     A     
 COMPASS            ZR     X5,LST5C    IF OLD TYPE PSEUDO OP ENTRY                         CPS073         7     A     
 COMPASS            LX5    1                                                               CPS073         8     A     
 COMPASS            SA3    X5+POPS-1   GET EQUIVALENT FROM OPS                             CPS073         9     A     
 COMPASS            BX7    X3                                                              CPS073        10     A     
 COMPASS   LST5C    NZ     X6,LST5A    IF OPCODE FOUND IN OPTAB                            CPS073        11     A     
 COMPASS            SA1    X4                                                              CPS064       667     A     
 COMPASS            BX2    X7                                                              CPS064       668     A     
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CPS064       669     A     
 COMPASS            SA4    O.MEMORY                                                        CPS064       670     A     
 COMPASS            EQ     LST5B                                                           CPS064       671     A     
 COMPASS   LST5A    SA7    A2          REPLACE EQUIVALENT                                  CPS064       672     A     
 COMPASS   LST5B    SA5    L.MEMORY    REDUCE MEMORY                                       CPS064       673     A     
 COMPASS            SX7    X4+2                                                            CPS064       674     A     
 COMPASS            SX6    X5-2                                                            CPS064       675     A     
 COMPASS            SA7    A4                                                              CPS064       676     A     
 COMPASS            SA6    A5                                                              CPS064       677     A     
 COMPASS            NZ     X6,LST5     IF MORE SYSTEM OPCODES                              CPS064       678     A     
 COMPASS                                                                                   CPS064       679     A     
 COMPASS   LST6     SA3    L.MACDEF                                                        CPS064       680     A     
 COMPASS            SA2    CP.LIB                                                          CPS064       681     A     
 COMPASS            SA1    CP.STEXT                                                        CPS064       682     A     
 COMPASS            BX6    X3                                                              CPS064       683     A     
 COMPASS            SA6    LSYSMAC                                                         CPS064       684     A     
 COMPASS            SX7    X2+B1       BUMP SYSTEM TEXT ORDINAL                            CPS064       685     A     
 COMPASS            IX6    X1-X2                                                           CPS064       686     A     
 COMPASS            NZ     X6,LST1     IF MORE TO LOAD                                     CPS064       687     A     
 COMPASS            SA6    A2                                                              CPS064       688     A     
 COMPASS   LST6A    SA2    CP.AFLL                                                         CPS064       689     A     
 COMPASS            ZR     X2,LST6F    IF NO LCM                                           CPS064       690     A     
 COMPASS            SA1    L.SYSMIC                                                        CPS064       691     A     
 COMPASS            ZR     X1,LST6B    IF NO SYSTEM MICROS                                 CPS064       692     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CPS064       693     A     
 COMPASS            MI     X6,LST6B    IF NO ROOM IN LCM                                   CPS064       694     A     
 COMPASS            SA3    L.SYSMIC                                                        CPS064       695     A     
 COMPASS            MX7    0                                                               CPS064       696     A     
 COMPASS            IX1    X6-X1                                                           CPS064       697     A     
 COMPASS            SA7    A3          CLEAR SCM COPY OF SYSMIC TABLE                      CPS064       698     A     
 COMPASS            LX3    30                                                              CPS064       699     A     
 COMPASS            BX6    X3+X1                                                           CPS064       700     A     
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CPS064       701     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 459    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    LCMMIC                                                          CPS064       702     A     
 COMPASS            SA2    O.SYSMIC                                                        CPS064       703     A     
 COMPASS            RJ     WLC         WRITE SYSMIC TO LCM                                 CPS064       704     A     
 COMPASS   LST6B    SA1    L.SSYMS                                                         CPS064       705     A     
 COMPASS            ZR     X1,LST6C    IF NO SYSTEM SYMBOLS                                CPS064       706     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CPS064       707     A     
 COMPASS            MI     X6,LST6C    IF NO ROOM IN LCM                                   CPS064       708     A     
 COMPASS            SA3    L.SSYMS                                                         CPS064       709     A     
 COMPASS            MX7    0                                                               CPS064       710     A     
 COMPASS            IX1    X6-X1                                                           CPS064       711     A     
 COMPASS            SA7    A3          CLEAR SCM COPY OF SSYMS TABLE                       CPS064       712     A     
 COMPASS            LX3    30                                                              CPS064       713     A     
 COMPASS            BX6    X3+X1                                                           CPS064       714     A     
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CPS064       715     A     
 COMPASS            SA6    LCMSYM                                                          CPS064       716     A     
 COMPASS            SA2    O.SSYMS                                                         CPS064       717     A     
 COMPASS            RJ     WLC         WRITE SSYMS TO LCM                                  CPS064       718     A     
 COMPASS   LST6C    SA1    L.OPTAB                                                         CPS064       719     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CPS064       720     A     
 COMPASS            MI     X6,LST6D    IF NO ROOM IN LCM FOR OPCODE TABLE                  CPS064       721     A     
 COMPASS            SA3    L.OPTAB                                                         CPS064       722     A     
 COMPASS            MX7    0                                                               CPS064       723     A     
 COMPASS            IX1    X6-X1                                                           CPS064       724     A     
 COMPASS            SA7    A3          CLEAR SCM COPY OF OPCODE TABLE                      CPS064       725     A     
 COMPASS            LX3    30                                                              CPS064       726     A     
 COMPASS            BX6    X3+X1                                                           CPS064       727     A     
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CPS064       728     A     
 COMPASS            SA6    LCMOPC                                                          CPS064       729     A     
 COMPASS            SA2    O.OPTAB                                                         CPS064       730     A     
 COMPASS            RJ     WLC         WRITE OPTAB TO LCM                                  CPS064       731     A     
 COMPASS   LST6D    SA1    LCMEND                                                          CPS064       732     A     
 COMPASS            BX6    X1          SAVE ORIGIN OF LCM MACROS                           CPS064       733     A     
 COMPASS            SA6    LCMSYS                                                          CPS064       734     A     
 COMPASS            SA1    L.MACDEF                                                        CPS064       735     A     
 COMPASS            ZR     X1,LST6F    IF NO SYSTEM MACROS                                 CPS064       736     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CPS064       737     A     
 COMPASS            MI     X6,LST6F    IF NO ROOM IN LCM                                   CPS064       738     A     
 COMPASS            SA3    L.MACDEF                                                        CPS064       739     A     
 COMPASS            MX7    0                                                               CPS064       740     A     
 COMPASS            IX1    X6-X1                                                           CPS064       741     A     
 COMPASS            SA7    A3          CLEAR SCM COPY OF MACDEF TABLE                      CPS064       742     A     
 COMPASS            LX3    30                                                              CPS064       743     A     
 COMPASS            BX6    X3+X1                                                           CPS064       744     A     
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CPS064       745     A     
 COMPASS            SA6    LCMMAC                                                          CPS064       746     A     
 COMPASS            SA2    O.MACDEF                                                        CPS064       747     A     
 COMPASS            RJ     WLC         WRITE MACDEF TO LCM                                 CPS064       748     A     
 COMPASS            SA1    LCMEND                                                          CPS064       749     A     
 COMPASS            SA2    LCMSYS                                                          CPS064       750     A     
 COMPASS            BX6    X1          SAVE END OF LCM SYSTEM MACROS                       CPS064       751     A     
 COMPASS            SA6    A2                                                              CPS064       752     A     
 COMPASS            MX7    0           INDICATE NO SYSTEM MACROS IN SCM                    CPS064       753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 460    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    LSYSMAC                                                         CPS064       754     A     
 COMPASS            SX0    B1                                                              CPS064       755     A     
 COMPASS            LX0    37          ADJUST ALL OPTAB ENTRIES FOR                        CPS064       756     A     
 COMPASS            BX2    X2+X0       SYSTEM MACROS TO POINT TO MACRO                     CPS064       757     A     
 COMPASS            SA3    L.OPTAB     DEFINITION TEXT IN LCM                              CPS064       758     A     
 COMPASS            SA4    LCMOPC                                                          CPS064       759     A     
 COMPASS            SA1    O.OPTAB                                                         CPS064       760     A     
 COMPASS   +        NZ     X3,*+1      IF OPCODE TABLE NOT IN LCM                          CPS064       761     A     
 COMPASS            AX4    30                                                              CPS064       762     A     
 COMPASS            BX3    X4                                                              CPS064       763     A     
 COMPASS   +        SB2    2                                                               CPS064       764     A     
 COMPASS            SB5    57          PREPARE TO SEARCH OPCODE TABLE                      CPS064       765     A     
 COMPASS            SB6    -1                                                              CPS064       766     A     
 COMPASS            SB7    X3                                                              CPS064       767     A     
 COMPASS            SA1    X1+B1                                                           CPS064       768     A     
 COMPASS   LST6E    AX3    X1,B5       EXTRACT OPCODE TYPE                                 CPS064       769     A     
 COMPASS            IX6    X1+X2                                                           CPS064       770     A     
 COMPASS            SA1    A1+B2       FETCH NEXT ENTRY                                    CPS064       771     A     
 COMPASS            SB4    X3                                                              CPS064       772     A     
 COMPASS            SB7    B7-B2                                                           CPS064       773     A     
 COMPASS            NE     B4,B6,*+1   IF NOT A SYSTEM MACRO                               CPS064       774     A     
 COMPASS            SA6    A1-B2       STORE ADJUSTED EQUIVALENT                           CPS064       775     A     
 COMPASS            NZ     B7,LST6E    LOOP TO END OF TABLE                                CPS064       776     A     
 COMPASS            SA3    LCMOPC                                                          CPS064       777     A     
 COMPASS            SA2    O.OPTAB                                                         CPS064       778     A     
 COMPASS            ZR     X3,LST6F    IF OPCODE TABLE NOT IN LCM                          CPS064       779     A     
 COMPASS            BX1    X3                                                              CPS064       780     A     
 COMPASS            AX3    30                                                              CPS064       781     A     
 COMPASS            RJ     WLC         RE-WRITE TO LCM                                     CPS064       782     A     
 COMPASS                                                                                   CPS064       783     A     
 COMPASS   LST6F    MX6    0           INDICATE SYSTEM TEXTS ALL LOADED                    CPS064       784     A     
 COMPASS            SA6    CP.LIB                                                          CPS064       785     A     
 COMPASS                                                                                   CPS064       786     A     
 COMPASS            IFNE   OVERLAY,0,2                                                     CPS064       787     A     
 COMPASS            SA1    LSTA        RESTORE NORMAL FWA OF MANAGED TABLE AREA            CPS064       788     A     
 COMPASS            RJ     ACL         (IF NO SPACE, GOES TO LST7A)                        CPS064       789     A     
 COMPASS                                                                                   CPS064       790     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED FOR PASS 0                  CPS064       791     A     
 COMPASS            RJ     ATS         ACCUMULATE TOTAL STORAGE USED                       CPS064       792     A     
 COMPASS            RJ     DFL         DECREASE FL TO LWA TABLES+FLINC             F4810B  F4810B       221          I
          -CPSA125
 COMPASS            EQ     LST         RETURN                                              CPS064       793     A     
 COMPASS                                                                                   CPS064       794     A     
 COMPASS  *         ERROR EXITS.                                                           CPS064       795     A     
 COMPASS                                                                                   CPS064       796     A     
 COMPASS   LST7     MESSAGE LSTN,,R    *SYSTEM TEXT NOT FOUND.*                            CPS064       797     A     
 COMPASS            EQ     LST9                                                            CPS064       798     A     
 COMPASS   LST7A    MESSAGE LSTS,,R    *INSUFFICIENT STORAGE FOR SYSTEM TEXT.*             CPS064       799     A     
 COMPASS            SA1    CP.LIB                                                          CPS064       800     A     
 COMPASS            NZ     X1,LST9     IF NOT AFTER LAST SYSTEM TEXT                       CPS064       801     A     
 COMPASS            MESSAGE LSTT                                                           CPS064       802     A     
 COMPASS            ABORT  ,NODUMP                                                         CPS064       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/28. 19.11.32.      PAGE 461    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LST8     MESSAGE LSTF,,R    *IMPROPER SYSTEM TEXT FORMAT.*                      CPS064       804     A     
 COMPASS   LST9     SA1    CP.LIB                                                          CPS064       805     A     
 COMPASS            SA2    CP.STEXT+X1 GET OVERLAY NAME                                    CPS064       806     A     
 COMPASS            SX6    2RS=                                                            CPS064       807     A     
 COMPASS            SX3    X2                                                              CPS064       808     A     
 COMPASS            BX5    X2                                                              CPS064       809     A     
 COMPASS            NZ     X3,LST9A    IF *G* ARGUMENT                                     CPS064       810     A     
 COMPASS            SA4    CP.LIB+X1                                                       CPS064       811     A     
 COMPASS            ZR     X4,LST9B    IF NO LIBRARY NAME                                  CPS064       812     A     
 COMPASS            EQ     LST9C                                                           CPS064       813     A     
 COMPASS   LST9A    IX2    X2-X3       ISOLATE OVERLAY NAME                                CPS064       814     A     
 COMPASS            SA4    CP.LIB+X1                                                       CPS064       815     A     
 COMPASS            BX5    X4                                                              CPS064       816     A     
 COMPASS            SX6    2RG=                                                            CPS064       817     A     
 COMPASS            NZ     X2,LST9C    IF OVERLAY NAME SPECIFIED                           CPS064       818     A     
 COMPASS   LST9B    BX6    X5+X6                                                           CPS064       819     A     
 COMPASS            SX7    B0          SETUP MESSAGE -                                     CPS064       820     A     
 COMPASS            LX6    -12         S=OVL  OR                                           CPS064       821     A     
 COMPASS            EQ     LST9E       G=FNAME                                             CPS064       822     A     
 COMPASS   LST9C    SA1    =8R       /                                                     CPS064       823     A     
 COMPASS            BX6    X6+X4                                                           CPS064       824     A     
 COMPASS            MX0    12                                                              CPS064       825     A     
 COMPASS            LX6    -12                                                             CPS064       826     A     
 COMPASS   LST9D    AX0    6           SETUP MESSAGE -                                     CPS064       827     A     
 COMPASS            BX3    -X0*X6      S=LIB/OVL  OR                                       CPS064       828     A     
 COMPASS            NZ     X3,LST9D    G=FNAME/OVL                                         CPS064       829     A     
 COMPASS            BX3    -X0*X1                                                          CPS064       830     A     
 COMPASS            BX6    X6+X3                                                           CPS064       831     A     
 COMPASS            LX7    X2                                                              CPS064       832     A     
 COMPASS   LST9E    SA6    LSTM+2                                                          CPS064       833     A     
 COMPASS            SA7    A6+B1                                                           CPS064       834     A     
 COMPASS            MESSAGE LSTM,,R                                                        CPS064       835     A     
 COMPASS            MX6    0                                                               CPS064       836     A     
 COMPASS            SA6    L.MEMORY                                                        CPS064       837     A     
 COMPASS            EQ     LST6                                                            CPS064       838     A     
 COMPASS                                                                                   CPS064       839     A     
 COMPASS   LSTA     DATA   0           STORAGE FOR (LOCORE)                                CPS064       840     A     
 COMPASS   LSTN     DATA   C* SYSTEM TEXT NOT FOUND.*                                      CPS064       841     A     
 COMPASS   LSTS     DATA   C* INSUFFICIENT STORAGE FOR SYSTEM TEXT.*                       CPS064       842     A     
 COMPASS   LSTF     DATA   C* IMPROPER SYSTEM TEXT FORMAT.*                                CPS064       843     A     
 COMPASS   LSTM     DATA   C*  BAD SYSTEM TEXT - S=LIBRARY/OVERLAY*                        CPS064       844     A     
 COMPASS   LSTT     DATA   C*  ASSEMBLY ABORTED.*                                          CPS064       845     A     
 COMPASS   OPF      SPACE  4                                                               CPS064       846     A     
 COMPASS  **        OPF - OPEN FILES.                                                      CPS064       847     A     
 COMPASS                                                                                   CPS064       848     A     
 COMPASS                                                                                   CPS064       849     A     
 COMPASS   OPF      PS                 RETURN EXIT                                         CPS064       850     A     
 COMPASS                                                                                   CPS064       851     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064       852     A     
 COMPASS                                                                                   CPS064       853     A     
 COMPASS            EVICT  R                                                               CPS064       854     A     
 COMPASS            OPEN   S,WRITE                                                         CPS064       855     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 462    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            REWIND S                                                               CPS064       856     A     
 COMPASS            EQ     OPF         RETURN                                              CPS064       857     A     
 COMPASS                                                                                   CPS064       858     A     
 COMPASS   RM       ELSE                                                                   CPS064       859     A     
 COMPASS                                                                                   CPS064       860     A     
 COMPASS            SA3    E                                                               CPS064       861     A     
 COMPASS            SA4    O                                                               CPS064       862     A     
 COMPASS            ZR     X3,OPF1     IF NO ERROR LISTING                                 CPS064       863     A     
 COMPASS            BX6    X3-X4                                                           CPS064       864     A     
 COMPASS            NZ     X6,OPF0     IF NOT SAME FILE NAME AS LONG LISTING FILE          CPS064       865     A     
 COMPASS            FETCH  O,OC,X3                                                         CPS064       866     A     
 COMPASS            SX3    X3-#YES#                                                        CPS064       867     A     
 COMPASS            NZ     X3,OPF0     IF LONG LISTING FILE NOT OPEN                       CPS064       868     A     
 COMPASS            CLOSEM O,N                                                             CPS064       869     A     
 COMPASS   OPF0     OPENM  E,OUTPUT,N                                                      CPS064       870     A     
 COMPASS   OPF1     SA1    B                                                               CPS064       871     A     
 COMPASS            ZR     X1,OPF3     IF NO BINARY                                        CPS064       872     A     
 COMPASS            FETCH  B,OC,X2                                                         CPS064       873     A     
 COMPASS            SB7    X2-#YES#                                                        CPS064       874     A     
 COMPASS            ZR     B7,OPF2     IF ALREADY OPEN                                     CPS064       875     A     
 COMPASS            OPENM  B,OUTPUT,N                                                      CPS064       876     A     
 COMPASS   OPF2     FETCH  B,RT,X3                                                         CPS064       877     A     
 COMPASS            SX7    X3-#WT#                                                         CPS064       878     A     
 COMPASS            SA7    B-1         SAVE BINARY RECORD TYPE                             CPS064       879     A     
 COMPASS   OPF3     OPENM  OPFA,I-O,N  RETURN SCRATCH FILES                                CPS064       880     A     
 COMPASS            CLOSEM OPFA,U                                                          CPS064       881     A     
 COMPASS            OPENM  OPFB,I-O,N                                                      CPS064       882     A     
 COMPASS            CLOSEM OPFB,U                                                          CPS064       883     A     
 COMPASS            EQ     OPF         RETURN                                              CPS064       884     A     
 COMPASS                                                                                   CPS064       885     A     
 COMPASS   OPFA     FILE   LFN=ZZZZZRL,FET=SCR                                             CPS064       886     A     
 COMPASS   OPFB     FILE   LFN=ZZZZZRM,FET=REF                                             CPS064       887     A     
 COMPASS                                                                                   CPS064       888     A     
 COMPASS   RM       ENDIF                                                                  CPS064       889     A     
 COMPASS   RDD      SPACE  4                                                               CPS064       890     A     
 COMPASS  **        RDD - READ DEBUGGING DIRECTIVES.                                       CPS064       891     A     
 COMPASS  *         READ CARDS FROM FILE *PATCHES* AND COPY THEM                           CPS064       892     A     
 COMPASS  *         TO FILE *SNAPPER* IN LISTABLE FORM.                                    CPS064       893     A     
 COMPASS  *         *PATCH CARDS ARE PROCESSED DIRECTLY.                                   CPS064       894     A     
 COMPASS  *         *SNAP CARDS CAUSE CONSTRUCTION OF SNAP DESCRIPTOR                      CPS064       895     A     
 COMPASS  *         ENTRIES IN THE *SNAPBUF* TABLE AREA.                                   CPS064       896     A     
 COMPASS  *         ALL OTHER CARDS ARE TREATED AS COMMENTS.                               CPS064       897     A     
 COMPASS                                                                                   CPS064       898     A     
 COMPASS                                                                                   CPS064       899     A     
 COMPASS   DEBUG    IFNE   DEBUG,0                                                         CPS064       900     A     
 COMPASS            QUAL   DEBUG                                                           CPS064       901     A     
 COMPASS                                                                                   CPS064       902     A     
 COMPASS   RDD      PS                 RETURN EXIT                                         CPS064       903     A     
 COMPASS                                                                                   CPS064       904     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064       905     A     
 COMPASS                                                                                   CPS064       906     A     
 COMPASS            REWIND P                                                               CPS064       907     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 463    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            READ   P           START READING                                       CPS064       908     A     
 COMPASS            READC  P,LINE+1,9  READ FIRST CARD                                     CPS064       909     A     
 COMPASS            NZ     X1,RDDX     IF NONE                                             CPS064       910     A     
 COMPASS            SA0    B6                                                              CPS064       911     A     
 COMPASS            WRITEW D,DHEAD,LDHEAD    WRITE HEADER LINE                             CPS064       912     A     
 COMPASS            SB6    A0                                                              CPS064       913     A     
 COMPASS   RDDC     SB5    B6-LINE-1   LENGTH OF CARD                                      CPS064       914     A     
 COMPASS                                                                                   CPS064       915     A     
 COMPASS   RM       ELSE                                                                   CPS064       916     A     
 COMPASS                                                                                   CPS064       917     A     
 COMPASS            OPENM  P,INPUT,N                                                       CPS064       918     A     
 COMPASS            REWINDM P                                                              CPS064       919     A     
 COMPASS            GET    P,LINE+1,90                                                     CPS064       920     A     
 COMPASS            FETCH  P,FP,X2                                                         CPS064       921     A     
 COMPASS            SX0    EOD                                                             CPS064       922     A     
 COMPASS            BX3    X0*X2                                                           CPS064       923     A     
 COMPASS            NZ     X3,RDDX     IF NO DATA IN PATCHES FILE                          CPS064       924     A     
 COMPASS            OPENM  D,I-O,N                                                         CPS064       925     A     
 COMPASS            PUT    D,DHEAD,LDHEAD                                                  CPS064       926     A     
 COMPASS            PUT    D,DHEAD1,10                                                     CPS064       927     A     
 COMPASS   RDDC     FETCH  P,RL,X3     RECORD LENGTH                                       CPS064       928     A     
 COMPASS            SX2    X3+9                                                            CPS064       929     A     
 COMPASS            SX1    52429                                                           CPS064       930     A     
 COMPASS            IX4    X1*X2                                                           CPS064       931     A     
 COMPASS            AX4    19          RL/10                                               CPS064       932     A     
 COMPASS            SB5    X4                                                              CPS064       933     A     
 COMPASS                                                                                   CPS064       934     A     
 COMPASS   RM       ENDIF                                                                  CPS064       935     A     
 COMPASS                                                                                   CPS064       936     A     
 COMPASS            SB7    8                                                               CPS064       937     A     
 COMPASS   +        SB6    B1                                                              CPS064       938     A     
 COMPASS            GE     B5,B7,*+1   IF MORE THAN 8 WORDS                                CPS064       939     A     
 COMPASS            SB7    B5                                                              CPS064       940     A     
 COMPASS            SA1    LINE+1      CARD COLUMNS 1-10                                   CPS064       941     A     
 COMPASS            SA2    SNAPC                                                           CPS064       942     A     
 COMPASS            SA3    A2+B1                                                           CPS064       943     A     
 COMPASS            IX2    X1-X2                                                           CPS064       944     A     
 COMPASS            BX3    X1-X3                                                           CPS064       945     A     
 COMPASS            ZR     X2,RDDD     IF *SNAP                                            CPS064       946     A     
 COMPASS            NZ     X3,RDDW     IF NOT *PATCH                                       CPS064       947     A     
 COMPASS   RDDD     MX0    -6                                                              CPS064       948     A     
 COMPASS            SB4    10          GET FIRST NUMBER, STARTING IN COLUMN 11             CPS064       949     A     
 COMPASS            SA1    A1+B1                                                           CPS064       950     A     
 COMPASS            SX4    B0                                                              CPS064       951     A     
 COMPASS            RJ     SCAN                                                            CPS064       952     A     
 COMPASS            NZ     X3,RDDS     IF *SNAP                                            CPS064       953     A     
 COMPASS            SA0    X6                                                              CPS064       954     A     
 COMPASS            RJ     SCAN        GET NEW VALUE                                       CPS064       955     A     
 COMPASS            SA6    A0          STORE IT                                            CPS064       956     A     
 COMPASS            EQ     RDDW                                                            CPS064       957     A     
 COMPASS   RDDS     SA2    LSNAPBUF                                                        CPS064       958     A     
 COMPASS            SA3    RJSNAP                                                          CPS064       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/28. 19.11.32.      PAGE 464    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA5    X6          FETCH INSTRUCTION WORD                              CPS064       960     A     
 COMPASS            IX7    X3+X2                                                           CPS064       961     A     
 COMPASS            BX6    X5          REPLACE WITH RJ SNAPPER                             CPS064       962     A     
 COMPASS            SA7    A5                                                              CPS064       963     A     
 COMPASS            SX7    X2+B1                                                           CPS064       964     A     
 COMPASS            SA6    X2+SNAPBUF  SAVE REPLACED INSTRUCTION WORD                      CPS064       965     A     
 COMPASS            SA7    A2                                                              CPS064       966     A     
 COMPASS   RDDT     SX4    B1                                                              CPS064       967     A     
 COMPASS            RJ     SCAN        GET FWA                                             CPS064       968     A     
 COMPASS            MI     X7,RDDU     IF TABLE NAME                                       CPS064       969     A     
 COMPASS            MX2    -17                                                             CPS064       970     A     
 COMPASS            BX6    -X2*X6                                                          CPS064       971     A     
 COMPASS            IX5    X6+X7                                                           CPS064       972     A     
 COMPASS            LX5    30                                                              CPS064       973     A     
 COMPASS            RJ     SCAN        GET WORD COUNT                                      CPS064       974     A     
 COMPASS            MX2    -17                                                             CPS064       975     A     
 COMPASS            BX6    -X2*X6                                                          CPS064       976     A     
 COMPASS            IX6    X6+X7                                                           CPS064       977     A     
 COMPASS            IX6    X6+X5                                                           CPS064       978     A     
 COMPASS   RDDU     LT     B6,B7,*+1   IF NOT END OF CARD                                  CPS064       979     A     
 COMPASS            MX2    1                                                               CPS064       980     A     
 COMPASS            BX6    X6+X2                                                           CPS064       981     A     
 COMPASS            SA2    LSNAPBUF                                                        CPS064       982     A     
 COMPASS            SA6    X2+SNAPBUF  STORE SNAP DESCRIPTION                              CPS064       983     A     
 COMPASS            SX7    X2+B1                                                           CPS064       984     A     
 COMPASS            SA7    A2                                                              CPS064       985     A     
 COMPASS            LT     B6,B7,RDDT  IF NOT END OF CARD                                  CPS064       986     A     
 COMPASS                                                                                   CPS064       987     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064       988     A     
 COMPASS                                                                                   CPS064       989     A     
 COMPASS   RDDW     WRITEW D,LINE,B5+B1                                                    CPS064       990     A     
 COMPASS            READC  P,LINE+1,9  READ NEXT CARD                                      CPS064       991     A     
 COMPASS            ZR     X1,RDDC     IF NOT EOR/EOF                                      CPS064       992     A     
 COMPASS            WRITER D,RECALL    FLUSH BUFFER                                        CPS064       993     A     
 COMPASS   RDDX     BSS    0                                                               CPS064       994     A     
 COMPASS                                                                                   CPS064       995     A     
 COMPASS   RM       ELSE                                                                   CPS064       996     A     
 COMPASS                                                                                   CPS064       997     A     
 COMPASS   RDDW     FETCH  P,RL,X3                                                         CPS064       998     A     
 COMPASS            SX4    X3+10                                                           CPS064       999     A     
 COMPASS            PUT    D,LINE,X4                                                       CPS064      1000     A     
 COMPASS            GET    P,LINE+1,90                                                     CPS064      1001     A     
 COMPASS            FETCH  P,FP,X2                                                         CPS064      1002     A     
 COMPASS            SX0    EOD                                                             CPS064      1003     A     
 COMPASS            BX3    X0*X2                                                           CPS064      1004     A     
 COMPASS            ZR     X3,RDDC     IF NOT END OF DATA                                  CPS064      1005     A     
 COMPASS            WEOR   D           FLUSH D                                             CPS064      1006     A     
 COMPASS   RDDX     CLOSEM P,R                                                             CPS064      1007     A     
 COMPASS                                                                                   CPS064      1008     A     
 COMPASS   RM       ENDIF                                                                  CPS064      1009     A     
 COMPASS                                                                                   CPS064      1010     A     
 COMPASS            EQ     RDD                                                             CPS064      1011     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 465    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SCAN     SPACE  4                                                               CPS064      1012     A     
 COMPASS  **        SCAN - READ ONE OCTAL NUMBER OR TABLE NAME FROM DEBUG CARD.            CPS064      1013     A     
 COMPASS  *         STOPPED BY , OR . OR END OF CARD IMAGE.                                CPS064      1014     A     
 COMPASS  *         ENTRY  (X0) = -77B.                                                    CPS064      1015     A     
 COMPASS  *                (X1) = CURRENT WORD OF CARD IMAGE.                              CPS064      1016     A     
 COMPASS  *                (A1) = ADDRESS OF (X1).                                         CPS064      1017     A     
 COMPASS  *                (B4) = NUMBER OF CHARACTERS REMAINING IN (X1).                  CPS064      1018     A     
 COMPASS  *                (B6) = WORD NUMBER.                                             CPS064      1019     A     
 COMPASS  *                (B7) = WORD COUNT OF CARD IMAGE.                                CPS064      1020     A     
 COMPASS  *                (X4) = 0 TO DISALLOW TABLE NAME AND IGNORE ALL                  CPS064      1021     A     
 COMPASS  *                         CHARACTERS OTHER THAN * , . AND 0-7.                   CPS064      1022     A     
 COMPASS  *                     = 1 TO ALLOW TABLE NAME.                                   CPS064      1023     A     
 COMPASS  *         EXIT   (X0), (B7) UNCHANGED.                                           CPS064      1024     A     
 COMPASS  *                (X1), (A1), (B4), (B6) UPDATED.                                 CPS064      1025     A     
 COMPASS  *                (B6) = (B7) IF . OR END OF CARD IMAGE ENCOUNTERED.              CPS064      1026     A     
 COMPASS  *                (X6) = NUMBER SCANNED, OR                                       CPS064      1027     A     
 COMPASS  *                     = 13/1, 17/O.XXX, 13/1, 17/L.XXX                           CPS064      1028     A     
 COMPASS  *                       IF TABLE NAME XXX SCANNED.                               CPS064      1029     A     
 COMPASS  *                (X7) = 0 IF NO * FOUND,                                         CPS064      1030          I
          -CP096A 
 COMPASS  *                     = 400000B IF AN * FOUND, OR                                CPS064      1031          I
          -CP096A 
 COMPASS  *                     = -1 IF A TABLE NAME SCANNED.                              CPS064      1032          I
          -CP096A 
 COMPASS  *                (X7) = -1 IF A TABLE NAME SCANNED,                              CP096A       334     A     
 COMPASS  *                     = 1000000B IF A $ SCANNED,                                 CP096A       335     A     
 COMPASS  *                     = 0400000B IF AN * SCANNED, OR                             CP096A       336     A     
 COMPASS  *                     = 0 IF NONE OF THE ABOVE.                                  CP096A       337     A     
 COMPASS                                                                                   CPS064      1033     A     
 COMPASS                                                                                   CPS064      1034     A     
 COMPASS   SCAN     PS                 RETURN EXIT                                         CPS064      1035     A     
 COMPASS            MX6    0                                                               CPS064      1036     A     
 COMPASS            SX7    B0                                                              CPS064      1037     A     
 COMPASS            GE     B6,B7,SCAN  IF CARD EXHAUSTED                                   CPS064      1038     A     
 COMPASS   SCAN0    NZ     B4,SCAN1    IF WORD NOT EXHAUSTED                               CPS064      1039     A     
 COMPASS            SB6    B6+B1                                                           CPS064      1040     A     
 COMPASS            SA1    A1+B1                                                           CPS064      1041     A     
 COMPASS            SB4    10                                                              CPS064      1042     A     
 COMPASS            GE     B6,B7,SCAN  IF CARD EXHAUSTED                                   CPS064      1043     A     
 COMPASS   SCAN1    LX1    6                                                               CPS064      1044     A     
 COMPASS            SB4    B4-B1                                                           CPS064      1045     A     
 COMPASS            BX2    -X0*X1                                                          CPS064      1046     A     
 COMPASS            SX2    X2-1R0                                                          CPS064      1047     A     
 COMPASS            SB3    X2-8                                                            CPS064      1048     A     
 COMPASS            MI     X2,SCAN4    IF COLON OR A-Z                                     CPS064      1049     A     
 COMPASS            PL     B3,SCAN2    IF NOT 0-7                                          CPS064      1050     A     
 COMPASS            LX6    3                                                               CPS064      1051     A     
 COMPASS            SX4    0                                                               CPS064      1052     A     
 COMPASS            IX6    X6+X2                                                           CPS064      1053     A     
 COMPASS            EQ     SCAN0                                                           CPS064      1054     A     
 COMPASS   SCAN2    SB2    X2+1R0-1R*                                                      CPS064      1055     A     
 COMPASS            SB3    X2+1R0-1R,                                                      CPS064      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/28. 19.11.32.      PAGE 466    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     B2,SCAN3    IF NOT ASTERISK                                     CPS064      1057          I
          -CP096A 
 COMPASS            SX7    B1                                                              CPS064      1058          I
          -CP096A 
 COMPASS            LX7    17                                                              CPS064      1059          I
          -CP096A 
 COMPASS            SB5    X2+1R0-1R$                                                      CP096A       338     A     
 COMPASS            NZ     B2,SCAN2A   IF NOT ASTERISK (INDIRECT)                          CP096A       339     A     
 COMPASS            SX2    B1                                                              CP096A       340     A     
 COMPASS            LX2    17                                                              CP096A       341     A     
 COMPASS            BX7    X7+X2                                                           CP096A       342     A     
 COMPASS   SCAN2A   NZ     B5,SCAN3    IF NOT DOLLAR (ECS/LCM)                             CP096A       343     A     
 COMPASS            SX2    B1                                                              CP096A       344     A     
 COMPASS            LX2    18                                                              CP096A       345     A     
 COMPASS            BX7    X7+X2                                                           CP096A       346     A     
 COMPASS   SCAN3    ZR     B3,SCAN     IF COMMA, RETURN                                    CPS064      1060     A     
 COMPASS            NE     B3,B1,SCAN0 IF NOT PERIOD                                       CPS064      1061     A     
 COMPASS            SB6    B7          SET END OF CARD                                     CPS064      1062     A     
 COMPASS            EQ     SCAN                                                            CPS064      1063     A     
 COMPASS   SCAN4    ZR     X4,SCAN0    IF TABLE NAME NOT ALLOWED                           CPS064      1064     A     
 COMPASS            SB2    60                                                              CPS064      1065     A     
 COMPASS            SX2    X2+1R0      RESTORE CHARACTER                                   CPS064      1066     A     
 COMPASS            ZR     X2,SCAN6    IF COLON                                            CPS064      1067     A     
 COMPASS   SCAN5    SB2    B2-6                                                            CPS064      1068     A     
 COMPASS            LX2    B2          APPEND CHARACTER TO NAME                            CPS064      1069     A     
 COMPASS            BX6    X6+X2                                                           CPS064      1070     A     
 COMPASS   SCAN6    NZ     B4,SCAN7    IF WORD NOT EXHAUSTED                               CPS064      1071     A     
 COMPASS            SB6    B6+B1                                                           CPS064      1072     A     
 COMPASS            SA1    A1+B1       FETCH NEXT WORD                                     CPS064      1073     A     
 COMPASS            SB4    10                                                              CPS064      1074     A     
 COMPASS            GE     B6,B7,SCAN8 IF CARD EXHAUSTED                                   CPS064      1075     A     
 COMPASS   SCAN7    LX1    6                                                               CPS064      1076     A     
 COMPASS            SB4    B4-B1                                                           CPS064      1077     A     
 COMPASS            BX2    -X0*X1      EXTRACT NEXT CHARACTER                              CPS064      1078     A     
 COMPASS            SB3    X2-1R,                                                          CPS064      1079     A     
 COMPASS            ZR     X2,SCAN6    IF COLON                                            CPS064      1080     A     
 COMPASS            ZR     B3,SCAN8    IF COMMA                                            CPS064      1081     A     
 COMPASS            NE     B3,B1,SCAN5 IF NOT PERIOD                                       CPS064      1082     A     
 COMPASS            SB6    B7          SET END OF CARD                                     CPS064      1083     A     
 COMPASS   SCAN8    SA2    TABLES      SEARCH LIST OF TABLES                               CPS064      1084     A     
 COMPASS            MX3    -18                                                             CPS064      1085     A     
 COMPASS   SCAN9    ZR     X2,SCAN+1   IF NOT FOUND, IGNORE FIELD                          CPS064      1086     A     
 COMPASS            BX4    X3*X2                                                           CPS064      1087     A     
 COMPASS            SB3    X2          TABLE NUMBER                                        CPS064      1088     A     
 COMPASS            IX7    X6-X4                                                           CPS064      1089     A     
 COMPASS            SA2    A2+B1                                                           CPS064      1090     A     
 COMPASS            NZ     X7,SCAN9    LOOP                                                CPS064      1091     A     
 COMPASS            SX3    B1                                                              CPS064      1092     A     
 COMPASS            SX4    ORIGINS+B3                                                      CPS064      1093     A     
 COMPASS            LX3    17                                                              CPS064      1094     A     
 COMPASS            BX4    X4+X3       SETUP (X6) FOR TABLE                                CPS064      1095     A     
 COMPASS            SX6    SIZES+B3                                                        CPS064      1096     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 467    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX4    30                                                              CPS064      1097     A     
 COMPASS            BX6    X6+X3                                                           CPS064      1098     A     
 COMPASS            SX7    -B1         (X7) = -1                                           CPS064      1099     A     
 COMPASS            BX6    X4+X6                                                           CPS064      1100     A     
 COMPASS            EQ     SCAN        RETURN                                              CPS064      1101     A     
 COMPASS   DATA     SPACE  4                                                               CPS064      1102     A     
 COMPASS  **        CONSTANTS AND WORKING STORAGE FOR *RDD*.                               CPS064      1103     A     
 COMPASS                                                                                   CPS064      1104     A     
 COMPASS                                                                                   CPS064      1105     A     
 COMPASS   RJSNAP   RJ     SNAPPER                                                         CPS064      1106     A     
 COMPASS   -        VFD    30/**                                                           CPS064      1107     A     
 COMPASS                                                                                   CPS064      1108     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064      1109     A     
 COMPASS   DHEAD    DATA   C*1     COMPASS DEBUGGING OUTPUT.*,8L0                          CPS064      1110     A     
 COMPASS   LDHEAD   EQU    *-DHEAD                                                         CPS064      1111     A     
 COMPASS   RM       ELSE                                                                   CPS064      1112     A     
 COMPASS   DHEAD    DATA   H*1     COMPASS DEBUGGING OUTPUT.*                              CPS064      1113     A     
 COMPASS   LDH      SET    *-DHEAD                                                         CPS064      1114     A     
 COMPASS   LDHEAD   EQU    LDH*10                                                          CPS064      1115     A     
 COMPASS   DHEAD1   DATA   1H0                                                             CPS064      1116     A     
 COMPASS   RM       ENDIF                                                                  CPS064      1117     A     
 COMPASS                                                                                   CPS064      1118     A     
 COMPASS   LINE     DATA   10H                                                             CPS064      1119     A     
 COMPASS            BSS    9           DIRECTIVE CARD IMAGE                                CPS064      1120     A     
 COMPASS                                                                                   CPS064      1121     A     
 COMPASS   SNAPC    DATA   H *SNAP ,H *PATCH                                               CPS064      1122     A     
 COMPASS                                                                                   CPS064      1123     A     
 COMPASS   TABLES   BSS    0                                                               CPS064      1124     A     
 COMPASS   DEBUG    HERE               LIST OF TABLE NAMES AND NUMBERS                     CPS064      1125     A     
 COMPASS            CON    0                                                               CPS064      1126     A     
 COMPASS                                                                                   CPS064      1127     A     
 COMPASS   LSNAPBUF DATA   0           LENGTH OF SNAPBUF                                   CPS064      1128     A     
 COMPASS                                                                                   CPS064      1129     A     
 COMPASS   PSD      FET    PATCHES,,BBUFL,1                                                CPS064      1130     A     
 COMPASS                                                                                   CPS064      1131     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064      1132     A     
 COMPASS   P        EQU    PSD                                                             CPS064      1133     A     
 COMPASS   RM       ELSE                                                                   CPS064      1134     A     
 COMPASS            IFEQ   CP#RM,6,1                                                       CPS064      1135     A     
 COMPASS   P        FILE   LFN=PATCHES,FO=SQ,BT=C,RT=Z,MRL=90,CM=YES,LT=UL,FET=PSD         CPS064      1136     A     
 COMPASS  ,,BFS=BBUFL,ERL=1                                                                CPS064      1137     A     
 COMPASS            IFEQ   CP#RM,7,1                                                       CPS064      1138     A     
 COMPASS   P        FILE   LFN=PATCHES,FO=SQ,BT=,RT=W,MRL=90,PD=INPUT                      CPS064      1139     A     
 COMPASS            BSSZ   PSD+40B-*                                                       CPS064      1140     A     
 COMPASS   RM       ENDIF                                                                  CPS064      1141     A     
 COMPASS                                                                                   CPS064      1142     A     
 COMPASS            QUAL   *                                                               CPS064      1143     A     
 COMPASS   DEBUG    ENDIF                                                                  CPS064      1144     A     
 COMPASS   SBA      SPACE  4                                                               CPS064      1145     A     
 COMPASS  **        SBA - SET BUFFER ADDRESS.                                              CPS064      1146     A     
 COMPASS  *         ENTRY  (X0) = BUFFER FIRST WORD ADDRESS.                               CPS064      1147     A     
 COMPASS  *                (X1) = FET/FIT ADDRESS.                                         CPS064      1148     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 468    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         EXIT   (X0) = BUFFER LAST WORD ADDRESS + 1.                            CPS064      1149     A     
 COMPASS                                                                                   CPS064      1150     A     
 COMPASS                                                                                   CPS064      1151     A     
 COMPASS   SBA      PS                 RETURN EXIT                                         CPS064      1152     A     
 COMPASS                                                                                   CPS064      1153     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS064      1154     A     
 COMPASS                                                                                   CPS064      1155     A     
 COMPASS            SA4    X1+B1       READ FIRST                                          CPS064      1156     A     
 COMPASS            BX6    X4+X0                                                           CPS064      1157     A     
 COMPASS            LX7    X0                                                              CPS064      1158     A     
 COMPASS            SA6    X1+B1       SET FIRST                                           CPS064      1159     A     
 COMPASS            SA7    A6+B1       SET IN                                              CPS064      1160     A     
 COMPASS            SA7    A7+B1       SET OUT                                             CPS064      1161     A     
 COMPASS            SA2    A7+B1       READ LIMIT                                          CPS064      1162     A     
 COMPASS            IX6    X7+X2                                                           CPS064      1163     A     
 COMPASS            SA6    A7+B1       SET LIMIT                                           CPS064      1164     A     
 COMPASS            IX0    X0+X2                                                           CPS064      1165     A     
 COMPASS                                                                                   CPS064      1166     A     
 COMPASS   RM       ELSE                                                                   CPS064      1167     A     
 COMPASS   RM       IFEQ   CP#RM,6                                                         CPS064      1168     A     
 COMPASS                                                                                   CPS064      1169     A     
 COMPASS            STORE  X1,FWB=X0   SET FWA BUFFER                                      CPS064      1170     A     
 COMPASS            FETCH  X1,BFS,X2   READ BUFFER SIZE                                    CPS064      1171     A     
 COMPASS            IX0    X0+X2                                                           CPS064      1172     A     
 COMPASS                                                                                   CPS064      1173     A     
 COMPASS   RM       ENDIF                                                                  CPS064      1174     A     
 COMPASS                                                                                   CPS064      1175     A     
 COMPASS            EQ     SBA         RETURN                                              CPS064      1176     A     
 COMPASS   SCS      SPACE  4,10                                                    F4810B  F4810B       222     A     
 COMPASS  **        SCS - SAVE COMPILER SPACE.                                     F4810B  F4810B       223     A     
 COMPASS  *         SAVES THE CONTENTS OF THE CELLS CP.NFLS AND CP.AFLS AND THE    F4810B  F4810B       224     A     
 COMPASS  *         SPACE INCLUDED BETWEEN THE TWO ADDRESSES CONTAINED IN THESE    F4810B  F4810B       225     A     
 COMPASS  *         CELLS WHEN COMPASS IS  CALLED BY A COMPILER.                   F4810B  F4810B       226     A     
 COMPASS                                                                           F4810B  F4810B       227     A     
 COMPASS                                                                           F4810B  F4810B       228     A     
 COMPASS   SCS      PS                 RETURN EXIT                                 F4810B  F4810B       229     A     
 COMPASS            SA2    CP.BATCH                                                F4810B  F4810B       230     A     
 COMPASS            LX2    59-11                                                   F4810B  F4810B       231     A     
 COMPASS            PL     X2,SCS      IF COMPASS NOT CALLED BY A COMPILER, RETURN F4810B  F4810B       232     A     
 COMPASS            SA2    CP.NFLS     FL AVAILABLE TO COMPASS                     F4810B  F4810B       233     A     
 COMPASS            SA3    LOCORE      SPACE NOT AVAILABLE TO TABLES               F4810B  F4810B       234     A     
 COMPASS            SX6    X2-10                                                   F4810B  F4810B       235     A     
 COMPASS            IX6    X6-X3                                                   F4810B  F4810B       236     A     
 COMPASS            SA6    SIZCORE     TABLE SPACE = CP.NFLS-LOCORE-10(SLOP)       F4810B  F4810B       237     A     
 COMPASS            SA3    CP.AFLS     ACTUAL FL                                   F4810B  F4810B       238     A     
 COMPASS            IX1    X3-X2                                                   F4810B  F4810B       239     A     
 COMPASS            ZR     X1,SCS      IF NO COMPILER SPACE TO SAVE, RETURN        F4810B  F4810B       240          I
          -CPSA126
 COMPASS            SX1    B1+X1       ELSE, ADD 1 WORD TO GET WORD COUNT TO SAVE  F4810B  F4810B       241     A     
 COMPASS            LX2    30-0                                                    F4810B  F4810B       242     A     
 COMPASS            BX6    X2+X3                                                   F4810B  F4810B       243     A     
 COMPASS            SA6    SCSFL       TEMP. SAVE COMPILER CP.NFLS AND CP.AFLS     F4810B  F4810B       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/28. 19.11.32.      PAGE 469    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MANAGE CMPTAB,X1   REQUEST TABLE SPACE                         F4810B  F4810B       245     A     
 COMPASS            SA4    SCSFL       GET SAVED COMPILER FIELD LENGTHS            F4810B  F4810B       246     A     
 COMPASS            BX6    X4                                                      F4810B  F4810B       247     A     
 COMPASS            SA6    X2          STORE IN FIRST WORD OF CMPTAB               F4810B  F4810B       248     A     
 COMPASS            SB3    X4          CP.AFLS                                     F4810B  F4810B       249     A     
 COMPASS            AX4    30-0                                                    F4810B  F4810B       250     A     
 COMPASS            SB4    X4          CP.NFLS-FWA OF AREA TO BE SAVED             F4810B  F4810B       251     A     
 COMPASS   SCS1     GE     B4,B3,SCS   IF THROUGH, RETURN                          F4810B  F4810B       252     A     
 COMPASS            SX2    X2+B1       DESTINATION OF WORD TO BE MOVED             F4810B  F4810B       253     A     
 COMPASS            SA1    B4          CURRENT WORD TO BE MOVED                    F4810B  F4810B       254     A     
 COMPASS            BX6    X1                                                      F4810B  F4810B       255     A     
 COMPASS            SA6    X2                                                      F4810B  F4810B       256     A     
 COMPASS            SB4    B4+B1       INCREMENT SOURCE ADDRESS                    F4810B  F4810B       257     A     
 COMPASS            EQ     SCS1        CONTINUE                                    F4810B  F4810B       258     A     
 COMPASS                                                                           F4810B  F4810B       259     A     
 COMPASS   SCSFL    DATA   0           TEMP. STORES COMPILER CP.NFLS AND CP.AFLS   F4810B  F4810B       260     A     
 COMPASS   SFL      SPACE  4                                                               CPS064      1177     A     
 COMPASS  **        SFL - SET FIELD LENGTH.                                                CPS064      1178     A     
 COMPASS                                                                                   CPS064      1179     A     
 COMPASS                                                                                   CPS064      1180     A     
 COMPASS   SFL      PS                 RETURN EXIT                                         CPS064      1181     A     
 COMPASS   SFL0     BSS    0                                                       F4810B  F4810B       261     A     
 COMPASS            SA1    CP.NFLS                                                         CPS064      1182     A     
 COMPASS            SA2    LOCORE                                                          CPS064      1183     A     
 COMPASS            SX6    X1-10       ALLOW TEN WORDS FOR SLOP                            CPS064      1184     A     
 COMPASS            IX7    X6-X2                                                           CPS064      1185     A     
 COMPASS            SB7    X7-NOPCT*2-NSYMT*2                                              CPS064      1186     A     
 COMPASS            SA6    O.ENDTAB    SAVE END OF MANAGED TABLE AREA                      CPS064      1187     A     
 COMPASS            SA7    SIZCORE                                                         CPS064      1188     A     
 COMPASS            PL     B7,SFL1     IF ENOUGH ROOM                                      CPS064      1189     A     
 COMPASS            BX6    X1          SAVE CURRENT FL                             F4810B  F4810B       262     A     
 COMPASS            SX1    X2+NOPCT*2+NSYMT*2+10D+77B                                      CPS064      1190          I
          -F4810B 
 COMPASS            SX5    X2+NOPCT*2+NSYMT*2+10D+77B  FL REQUIRED                 F4810B  F4810B       263     A     
 COMPASS            BX1    -X5                                                     F4810B  F4810B       264     A     
 COMPASS            RJ     RFL         REQUEST THE REQUIRED FIELD LENGTH           F4810B  F4810B       265     A     
 COMPASS            NZ     X3,SFL0     IF REQUEST COMPLETE, TRY AGAIN              F4810B  F4810B       266     A     
 COMPASS            BX1    X5          ELSE, PRINT MESSAGE AND ABORT               F4810B  F4810B       267     A     
 COMPASS            MX0    -6                                                              CPS064      1191     A     
 COMPASS            BX1    X0*X1                                                           CPS064      1192     A     
 COMPASS            RJ     COCT        CONVERT TO OCTAL                                    CPS064      1193     A     
 COMPASS            SA1    SFLA+2                                                          CPS064      1194     A     
 COMPASS            MX0    30                                                              CPS064      1195     A     
 COMPASS            LX6    12                                                              CPS064      1196          I
          -CPS112 
 COMPASS            BX1    X0*X1       INSERT REQUIRED FIELD LENGTH INTO MESSAGE           CPS064      1197     A     
 COMPASS            BX6    -X0*X6                                                          CPS064      1198     A     
 COMPASS            BX6    X1+X6                                                           CPS064      1199     A     
 COMPASS            SA6    A1                                                              CPS064      1200     A     
 COMPASS            MESSAGE SFLA,,R                                                        CPS064      1201     A     
 COMPASS            ABORT  ,NODUMP                                                         CPS064      1202     A     
 COMPASS                                                                                   CPS064      1203     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 470    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SFL1     BSS    0                                                               CPS064      1204     A     
 COMPASS   LCM      IFEQ   CP#RM,7                                                         CPS064      1205     A     
 COMPASS            MEMORY LCM,SFLB,R  GET LCM FIELD LENGTH AND MODE                       CPS064      1206     A     
 COMPASS            SA1    SFLB                                                            CPS064      1207     A     
 COMPASS            LX1    59-1                                                            CPS064      1208     A     
 COMPASS            SX6    B0                                                              CPS064      1209     A     
 COMPASS            PL     X1,SFL2     IF NOT REDUCE MODE FOR LCM FIELD LENGTH             CPS064      1210     A     
 COMPASS            SA6    FLLF        CLEAR FIXED FLL FLAG                                CPS064      1211     A     
 COMPASS            SA2    CP.STEXT                                                        CPS064      1212     A     
 COMPASS            SA3    CP.LIB      CHECK FOR SYSTEM TEXTS TO BE LOADED                 CPS064      1213     A     
 COMPASS            LX1    1-59                                                            CPS064      1214     A     
 COMPASS            AX1    30          CURRENT LCM FIELD LENGTH                            CPS064      1215     A     
 COMPASS            IX2    X2+X3                                                           CPS064      1216     A     
 COMPASS            SX6    20000B                                                          CPS064      1217     A     
 COMPASS   +        NZ     X2,*+1      IF NOT *S=0*                                        CPS064      1218     A     
 COMPASS            SX6    10000B                                                          CPS064      1219     A     
 COMPASS   +        IX2    X1-X6                                                           CPS064      1220     A     
 COMPASS            PL     X2,SFL2     IF ENOUGH ROOM                                      CPS064      1221     A     
 COMPASS            LX6    30                                                              CPS064      1222     A     
 COMPASS            SA6    SFLB                                                            CPS064      1223     A     
 COMPASS            MEMORY LCM,SFLB,R  REQUEST MORE LCM FIELD LENGTH                       CPS064      1224     A     
 COMPASS            SA1    SFLB                                                            CPS064      1225     A     
 COMPASS            AX1    30                                                              CPS064      1226     A     
 COMPASS            BX6    X1          UPDATE ACTUAL FIELD LENGTH                          CPS064      1227     A     
 COMPASS            SA6    CP.AFLL                                                         CPS064      1228     A     
 COMPASS   LCM      ENDIF                                                                  CPS064      1229     A     
 COMPASS                                                                                   CPS064      1230     A     
 COMPASS   SFL2     BSS    0                                                               CPS064      1231     A     
 COMPASS   OVL      IFNE   OVERLAY,0                                                       CPS064      1232     A     
 COMPASS            SA1    RA.LWP      INITIALIZE SUBROUTINE *OVL*                         CPS064      1233     A     
 COMPASS            SA2    CP.BATCH                                                        CPS064      1234     A     
 COMPASS            LX1    59-18                                                           CPS064      1235     A     
 COMPASS            LX2    59-11                                                           CP139CP      164     A     
 COMPASS            BX1    X1+X2                                                           CPS064      1236     A     
 COMPASS            MI     X1,SFL3     IF LOADED FROM A LIBRARY OR CALLED BY               CPS064      1237     A     
 COMPASS            SA1    RA.PGN      A COMPILER                                          CPS064      1238     A     
 COMPASS            MX0    42                                                              CPS064      1239     A     
 COMPASS            BX6    X0*X1       STORE FILE NAME IN LOADER CALL                      CPS064      1240     A     
 COMPASS            SA6    OVLY                                                            CPS064      1241     A     
 COMPASS            SX7    2040B       THREE-WORD CALL, LOAD OVERLAY FROM FILE             CPS064      1242     A     
 COMPASS            LX7    36                                                              CPS064      1243     A     
 COMPASS            SA7    A6+B1                                                           CPS064      1244     A     
 COMPASS   OVL      ENDIF                                                                  CPS064      1245     A     
 COMPASS                                                                                   CPS064      1246     A     
 COMPASS   SFL3     JP     SFL         RETURN                                              CPS064      1247     A     
 COMPASS                                                                                   CPS064      1248     A     
 COMPASS   SFLA     DATA   C*  COMPASS NEEDS AT LEAST 00000B SCM.*                         CPS064      1249     A     
 COMPASS   SFLB     DATA   0                                                               CPS064      1250     A     
 COMPASS   SFP      SPACE  4                                                               CPS064      1251     A     
 COMPASS  **        SFP - SET FILE PARAMETERS.                                             CPS064      1252     A     
 COMPASS                                                                                   CPS064      1253     A     
 COMPASS                                                                                   CPS064      1254     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 471    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SFP      PS                 RETURN EXIT                                         CPS064      1255     A     
 COMPASS                                                                                   CPS064      1256     A     
 COMPASS            IFNE   CP#RM,0,1                                                       CPS064      1257     A     
 COMPASS            STORE  I,DX=0                                                          CPS064      1258     A     
 COMPASS                                                                                   CPS064      1259     A     
 COMPASS            SA3    E                                                               CPS064      1260     A     
 COMPASS            BX6    X3                                                              CPSA168       20     A     
 COMPASS            SA6    FTNE        SAVE CONTENTS OF E FET FOR FTN'S SAKE.              CPSA168       21     A     
 COMPASS            SA4    CP.LISTF                                                        CPS064      1261     A     
 COMPASS            SX0    BUFFERS                                                         CPS064      1262     A     
 COMPASS            ZR     X3,SFP2     IF NO ERROR FILE                                    CPS064      1263     A     
 COMPASS            ZR     X4,SFP1     IF NO LONG LISTING WANTED                           CPS064      1264     A     
 COMPASS            SA4    O                                                               CPS064      1265     A     
 COMPASS            MX6    42                                                              CPS064      1266     A     
 COMPASS            BX5    X3-X4       COMPARE ERROR AND MAIN LISTING FILE NAMES           CPS064      1267     A     
 COMPASS            BX6    X6*X5                                                           CPS064      1268     A     
 COMPASS            NZ     X6,SFP1     IF NOT SAME FILE                                    CPS064      1269     A     
 COMPASS            SA6    A3          CLEAR ERROR FILE                                    CPS064      1270     A     
 COMPASS            EQ     SFP2                                                            CPS064      1271     A     
 COMPASS   SFP1     BSS    0                                                               CPS064      1272     A     
 COMPASS                                                                                   CPS064      1273     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CPS064      1274          I
          -F7540CP
 COMPASS            IFEQ   CP#RM,0,1                                                       F7540CP      119     A     
 COMPASS            SA2    E+2                                                             CPS064      1275     A     
 COMPASS            ELSE   2                                                               CPS064      1276          I
          -F7540CP
 COMPASS            IFC    LT, "MODEL" 75 ,1                                               CPS064      1277          I
          -F7540CP
 COMPASS            IFEQ   CP#RM,6,1                                                       F7540CP      120          I
          -CPSA134
 COMPASS            FETCH  E,FWB,X2                                                        CPS064      1278          I
          -CPSA134
 COMPASS                                                                                   CPS064      1279          I
          -CPSA134
 COMPASS            SX1    A3                                                              CPS064      1280     A     
 COMPASS            NZ     X2,SFP2     IF BUFFERS HAVE BEEN SWITCHED                       CPS064      1281     A     
 COMPASS            SA4    E+4                                                             CPSA184       18     A     
 COMPASS            BX6    X4                                                              CPSA184       19     A     
 COMPASS            SA6    FTNE+1      SAVE EBUFL                                          CPSA184       20     A     
 COMPASS            RJ     SBA         SET ERROR BUFFER ADDRESS                            CPS064      1282     A     
 COMPASS   SFP2     SA3    CP.LISTF                                                        CPS064      1283     A     
 COMPASS            SX1    R                                                               CPS064      1284     A     
 COMPASS            ZR     X3,SFP3     IF NO LISTING                                       CPS064      1285     A     
 COMPASS            RJ     SBA         SET CROSS REFERENCE BUFFER ADDRESS                  CPS064      1286     A     
 COMPASS   SFP3     SX1    S                                                               CPS064      1287     A     
 COMPASS            RJ     SBA         SET SCRATCH BUFFER ADDRESS                          CPS064      1288     A     
 COMPASS                                                                                   CPS064      1289     A     
 COMPASS            IFNE   DEBUG,0,2                                                       CPS064      1290     A     
 COMPASS            SX1    D                                                               CPS064      1291     A     
 COMPASS            RJ     SBA         SET SNAPPER BUFFER ADDRESS                          CPS064      1292     A     
 COMPASS                                                                                   CPS064      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/28. 19.11.32.      PAGE 472    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   B        IFEQ   CP#RM,0                                                         CPS064      1294     A     
 COMPASS            SA1    B+1         CHANGE *FET LGO,OBUF,OBUFL,7*                       CPS064      1295     A     
 COMPASS            SX7    BBUFL       TO     *FET LGO,,BBUFL,7*                           CPS064      1296     A     
 COMPASS            SX2    X1          FOR SBA                                             CPS064      1297     A     
 COMPASS            BX6    X1-X2                                                           CPS064      1298     A     
 COMPASS            SA7    B+4         LIMIT = BBUFL                                       CPS064      1299     A     
 COMPASS            SA6    A1          FIRST = 0                                           CPS064      1300     A     
 COMPASS   B        ELSE                                                                   CPS064      1301          I
          -CPSA134
 COMPASS   B        IFEQ   CP#RM,6                                                         CPS064      1302          I
          -CPSA134
 COMPASS   B        IFC    LT, "MODEL" 75                                                  CPS064      1303          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      121          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      122          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP      123          I
          -CPSA134
 COMPASS            SX2    BBUFL                                                           CPS064      1304          I
          -CPSA134
 COMPASS            STORE  B,BFS=X2                                                        CPS064      1305          I
          -CPSA134
 COMPASS   X        ENDIF                                                                  F7540CP      124          I
          -CPSA134
 COMPASS   B        ENDIF                                                                  CPS064      1306     A     
 COMPASS                                                                                   CPS064      1307     A     
 COMPASS            SX1    B                                                               CPS064      1308     A     
 COMPASS            SX3    X0                                                              CPS064      1309     A     
 COMPASS            RJ     SBA         SET BINARY BUFFER ADDRESS                           CPS064      1310     A     
 COMPASS                                                                                   CPS064      1311     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CPS064      1312     A     
 COMPASS            SX1    X                                                               CPS064      1313     A     
 COMPASS            ELSE   1                                                               CPS064      1314     A     
 COMPASS            SX1    /PASS1/XDUM                                                     CPS064      1315     A     
 COMPASS                                                                                   CPS064      1316     A     
 COMPASS            SX0    X3          BINARY BUFFER ADDRESS                               CPS064      1317     A     
 COMPASS            RJ     SBA         SET XTEXT BUFFER ADDRESS                            CPS064      1318     A     
 COMPASS                                                                                   CPS064      1319     A     
 COMPASS            IFNE   DEBUG,0,3                                                       CPS064      1320     A     
 COMPASS            SX0    X3                                                              CPS064      1321     A     
 COMPASS            SX1    /DEBUG/P                                                        CPS064      1322     A     
 COMPASS            RJ     SBA         SET PATCHES BUFFER ADDRESS                          CPS064      1323     A     
 COMPASS                                                                                   CPS064      1324     A     
 COMPASS            BX1    X0                                                              CPS064      1325     A     
 COMPASS            RJ     ACL         ADJUST CORE LIMITS                                  CPS064      1326     A     
 COMPASS                                                                                   CPS064      1327     A     
 COMPASS            EQ     SFP         RETURN                                              CPS064      1328     A     
 COMPASS   SLF      SPACE  4,10                                                            CPSA142       61     A     
 COMPASS  **        SLF - SET LIST FLAGS.                                                  CPSA142       62     A     
 COMPASS  *         EXIT TO ARGE ON BAD *LO* ARGUMENT.                                     CPSA142       63     A     
 COMPASS                                                                                   CPSA142       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/28. 19.11.32.      PAGE 473    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CPSA142       65     A     
 COMPASS   SLF      PS                 RETURN EXIT                                         CPSA142       66     A     
 COMPASS            SA1    SLFA                                                            CPSA142       67     A     
 COMPASS            SA3    ABTF                                                            CPSA142       68     A     
 COMPASS            SA4    CP.ABORT                                                        CPSA142       69     A     
 COMPASS            BX6    X1                                                              CPSA142       70     A     
 COMPASS            LX1    18                                                              CPSA142       71     A     
 COMPASS            SA6    XLIST                                                           CPSA142       72     A     
 COMPASS            BX7    X3+X4                                                           CPSA142       73     A     
 COMPASS            SA7    A4                                                              CPSA142       74     A     
 COMPASS            SX7    B1                                                              CPSA142       75     A     
 COMPASS            MX0    -6                                                              CPSA142       76     A     
 COMPASS            SX6    X1-1L0                                                          CPSA142       77     A     
 COMPASS            SB2    B1+B1                                                           CPSA142       78     A     
 COMPASS            LX1    -18                                                             CPSA142       79     A     
 COMPASS            NZ    X6,SLF1      IF NOT *LO=0*                                       CPSA142       80     A     
 COMPASS            MX1    0                                                               CPSA142       81     A     
 COMPASS            SA6    A6                                                              CPSA142       82     A     
 COMPASS   SLF1     ZR     X1,SLF      IF NO LIST FLAGS                                    CPSA142       83     A     
 COMPASS            LX1    6                                                               CPSA142       84     A     
 COMPASS            BX2    -X0*X1                                                          CPSA142       85     A     
 COMPASS            SB7    X2                                                              CPSA142       86     A     
 COMPASS            IX1    X1-X2                                                           CPSA142       87     A     
 COMPASS            SB6    B7-1R$                                                          CPSA142       88     A     
 COMPASS            SA3    LISTOPS     CHECK LIST OPTION TABLE                             CPSA142       89     A     
 COMPASS            SB5    LLISTOPS                                                        CPSA142       90     A     
 COMPASS            ZR     B6,SLF4     IF $                                                CPSA142       91     A     
 COMPASS   SLF2     UX6    B6,X3                                                           CPSA142       92     A     
 COMPASS            SB5    B5-B2                                                           CPSA142       93     A     
 COMPASS            EQ     B6,B7,SLF3  IF OPTION FOUND                                     CPSA142       94     A     
 COMPASS            SA3    A3+B2                                                           CPSA142       95     A     
 COMPASS            NZ     B5,SLF2     LOOP                                                CPSA142       96     A     
 COMPASS            SX6    2RLO                                                            CPSA142       97     A     
 COMPASS            LX6    -12                                                             CPSA142       98     A     
 COMPASS            SA6    ARGM+3      *BAD CONTROL CARD ARGUMENT - LO*                    CPSA142       99     A     
 COMPASS            EQ     ARGE                                                            CPSA142      100     A     
 COMPASS   SLF3     BX6    X3-X7       TOGGLE LIST FLAG                                    CPSA142      101     A     
 COMPASS            SA6    A3                                                              CPSA142      102     A     
 COMPASS            EQ     SLF1        LOOP TO END OF FLAGS                                CPSA142      103     A     
 COMPASS                                                                                   CPSA142      104     A     
 COMPASS   SLF4     BX6    X3+X7       $ FOUND, TURN ON ALL LIST FLAGS                     CPSA142      105     A     
 COMPASS            SA6    A3                                                              CPSA142      106     A     
 COMPASS            SB5    B5-B2                                                           CPSA142      107     A     
 COMPASS            SA3    A3+B2                                                           CPSA142      108     A     
 COMPASS            NZ     B5,SLF4     LOOP                                                CPSA142      109     A     
 COMPASS            EQ     SLF1                                                            CPSA142      110     A     
 COMPASS   SMP      SPACE  4,10                                                    F4810B  F4810B       268     A     
 COMPASS  **        SMP - SET UP MEMORY REQUEST PARAMETERS                         F4810B  F4810B       269     A     
 COMPASS  *         OBTAINS THE MAXIMUM FL. AVAILABLE TO THE JOB.                          CPSA125       54     A     
 COMPASS  *         DETERMINES WHETHER THE FL. AT WHICH TABLES ARE TO BE DUMPED            CPSA125       55     A     
 COMPASS  *         TO FILES (MIDFLN) IS VALID.  THIS IS DONE BY CHECKING THE              CPSA125       56     A     
 COMPASS  *         CURRENT FL. TO SEE WHETHER IT IS LARGER THAN MIDFLN.  IF IT            CPSA125       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/28. 19.11.32.      PAGE 474    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         IS, COMPASS ASSUMES THAT THE PRESENT JOB STEP WAS PRECEEDED            CPSA125       58     A     
 COMPASS  *         BY AN RFL STATEMENT AND SETS MIDFLN TO THE CURRENT FL ROUNDED          CPSA125       59     A     
 COMPASS  *         UP FOR SPEED (TABLES NOT DUMPED TO FILES).  IF CP.NFLS IS LESS         CPSA125       60     A     
 COMPASS  *         THAN MIDFLN, COMPASS JUST INSURES THAT MIDFLN IS LESS THAN             CPSA125       61     A     
 COMPASS  *         MAXFL.                                                                 CPSA125       62     A     
 COMPASS                                                                           F4810B  F4810B       270     A     
 COMPASS                                                                           F4810B  F4810B       271     A     
 COMPASS   SMP      PS                 RETURN EXIT                                 F4810B  F4810B       272     A     
 COMPASS            MEMORY CM,MAXFL,RECALL  GET MAXIMUM JOB FL                     F4810B  F4810B       273     A     
 COMPASS            SA1    MAXFL       GET RETURNED MAXIMUM FL                     F4810B  F4810B       274     A     
 COMPASS            AX1    30-0        SHIFT INTO LOWER 30 BITS                    F4810B  F4810B       275     A     
 COMPASS            BX6    X1                                                      F4810B  F4810B       276     A     
 COMPASS            SA6    A1          STORE MAXIMUM FL                            F4810B  F4810B       277     A     
 COMPASS            SX1    4           K                                           F4810B  F4810B       278     A     
 COMPASS            SX2    FLINC       GET FL INCREMENT                            F4810B  F4810B       279     A     
 COMPASS            IX2    X1*X2       K*FLINC                                     F4810B  F4810B       280     A     
 COMPASS            SA1    MAXFL       GET MAX JOB FL                              F4810B  F4810B       281     A     
 COMPASS            IX2    X1-X2       MAXFL-K*FLINC                               F4810B  F4810B       282     A     
 COMPASS            SA1    MIDFLN      GET FL AT WHICH TABLES DUMPED TO FILES      F4810B  F4810B       283     A     
 COMPASS            SA3    CP.NFLS     GET CURRENT FL                                      CPSA125       63     A     
 COMPASS            IX4    X1-X3                                                           CPSA125       64     A     
 COMPASS            PL     X4,SMP1     IF NO RFL OR RFL.LE.MIDFLN                          CPSA125       65     A     
 COMPASS            MX4    -6          ELSE SET MIDFLN TO CURRENT FL                       CPSA125       66     A     
 COMPASS            IX6    X3-X4       CP.NFLS+77B                                         CPSA125       67     A     
 COMPASS            BX6    X6*X4                                                           CPSA125       68     A     
 COMPASS            SA6    MIDFLN      STORE NEW VALUE OF MIDFLN                           CPSA125       69     A     
 COMPASS            EQ     SMP         RETURN                                              CPSA125       70     A     
 COMPASS                                                                                   CPSA125       71     A     
 COMPASS   SMP1     BSS    0                                                               CPSA125       72     A     
 COMPASS            IX6    X2-X1       (MAXFL-K*FLINC)-MIDFLN                      F4810B  F4810B       284     A     
 COMPASS            PL     X6,SMP      IF MIDFLN.LE.(MAXFL-K*FLINC)                F4810B  F4810B       285     A     
 COMPASS            BX6    X2          ELSE, RESET MIDFLN TO MAXFL-K*FLINC         F4810B  F4810B       286     A     
 COMPASS            SA6    MIDFLN                                                  F4810B  F4810B       287     A     
 COMPASS            EQ     SMP         RETURN                                      F4810B  F4810B       288     A     
 COMPASS   SPF      SPACE  4,10                                                    F4810A  F4810A       212     A     
 COMPASS  **        SPF - SET PRINTER FLAGS.                                       F4810A  F4810A       213     A     
 COMPASS                                                                           F4810A  F4810A       214     A     
 COMPASS                                                                           F4810A  F4810A       215     A     
 COMPASS   SPF      PS                 RETURN EXIT                                 F4810A  F4810A       216     A     
 COMPASS            SA2    CP.BATCH                                                F4810A  F4810A       217          I
          -CPSA265
 COMPASS            LX2    59-11                                                   F4810A  F4810A       218          I
          -CPSA265
 COMPASS            SA1    CP.PS       PAGE SIZE                                   F4810A  F4810A       219          I
          -CPSA265
 COMPASS            PL     X2,SPF4     IF COMPASS WAS NOT CALLED BY A COMPILER     F4810A  F4810A       220          I
          -CPSA265
 COMPASS            SA2    CP.PD                                                   F4810A  F4810A       221          I
          -CPSA265
 COMPASS            BX6    X2                                                      F4810A  F4810A       222          I
          -CPSA265
 COMPASS            SA6    COMPPD      SAVE COMPILER PRINT DENSITY                 F4810A  F4810A       223          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 475    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA265
 COMPASS            BX6    X1                                                      F4810A  F4810A       224          I
          -CPSA265
 COMPASS            SA6    COMPPS      SAVE COMPILER PAGE SIZE                     F4810A  F4810A       225          I
          -CPSA265
 COMPASS            BX7    -X1         FORTRAN PASSES COMPLIMENT OF PAGE SIZE      F4810A  F4810A       226          I
          -CPSA265
 COMPASS            SA3    =0LT                                                    F4810A  F4810A       227          I
          -CPSA265
 COMPASS            SX6    6D                                                      F4810A  F4810A       228          I
          -CPSA265
 COMPASS            MX0    6                                                               CPS236        55          I
          -CPSA265
 COMPASS            BX2    X2*X0       EXTRACT 1ST CHARACTER                               CPS236        56          I
          -CPSA265
 COMPASS            IX3    X3-X2                                                   F4810A  F4810A       229          I
          -CPSA265
 COMPASS            NZ     X3,SPF1     IF SIX LINES/INCH                           F4810A  F4810A       230          I
          -CPSA265
 COMPASS            SX6    8D          ELSE EIGHT LINES/INCH                       F4810A  F4810A       231          I
          -CPSA265
 COMPASS   SPF1     SA6    A2          STORE NUMERICAL VALUE FOR PRINT DENSITY     F4810A  F4810A       232          I
          -CPSA265
 COMPASS            SX2    X7-4D                                                   F4810A  F4810A       233          I
          -CPSA265
 COMPASS            MI     X2,SPF2     IF PAGE SIZE LT 4D LINES/PAGE               F4810A  F4810A       234          I
          -CPSA265
 COMPASS            SB2    X7-99D                                                  F4810A  F4810A       235          I
          -CPSA265
 COMPASS            LE     B2,SPF3     IF PAGE SIZE LE 99D LINES/PAGE              F4810A  F4810A       236          I
          -CPSA265
 COMPASS   SPF2     SX7    IP.PS       ELSE SET COMPASS PAGE SIZE TO DEFAULT               F4810A       237          I
          -CPSA265
 COMPASS   SPF3     SA7    CP.PS                                                   F4810A  F4810A       238          I
          -CPSA265
 COMPASS            BX1    X7                                                      F4810A  F4810A       239          I
          -CPSA265
 COMPASS   SPF4     SA2    NEJF                                                    F4810A  F4810A       240          I
          -CPSA265
 COMPASS            NZ     X2,SPF5     IF *N* NOT SPECIFIED (EJECT)                F4810A  F4810A       241          I
          -CPSA181  -CPSA265
 COMPASS            SX1    B0          ELSE, SET *NO EJECT* (PSIZE=0)              F4810A  F4810A       242          I
          -CPSA181  -CPSA265
 COMPASS   SPF5     IX6    X1+X2                                                   F4810A  F4810A       243          I
          -CPSA181  -CPSA265
 COMPASS            SA6    PSIZE       SET EJECT PAGE SIZE                         F4810A  F4810A       244          I
          -CPSA181  -CPSA265
 COMPASS            ZR     X2,SPF5     IF *N* IS SPECIFIED                                 CPSA181        8          I
          -CPSA265
 COMPASS            IX6    X1+X2       CP.PS+5                                             CPSA181        9          I
          -CPSA265
 COMPASS            SA6    NEJF        SET *N* CONTROLLED PAGE SIZE                        CPSA181       10          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 476    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA265
 COMPASS   SPF5     SA2    CP.BLF                                                          CPSA181       11          I
          -CPSA265
 COMPASS            ZR     X2,SPF6     IF *BL* NOT SPECIFIED                               CPSA181       12          I
          -CPSA265
 COMPASS            SX2    X1+5        ELSE, BL CONTROLLED PAGE SIZE=CP.PS+5               CPSA181       13          I
          -CPSA265
 COMPASS   SPF6     BX6    X2                                                              CPSA181       14          I
          -CPSA265
 COMPASS            SA6    PSIZE                                                           CPSA181       15          I
          -CPSA265
 COMPASS            SA1    CP.PD       PRINT DENSITY                               F4810A  F4810A       245          I
          -CPSA265
 COMPASS            SX2    X1-IP.PD                                                F4810A  F4810A       246          I
          -CPS236   -CPSA265
 COMPASS            ZR     X2,SPF      IF PRINT DENSITY = DEFAULT, RETURN          F4810A  F4810A       247          I
          -CPS236   -CPSA265
 COMPASS            SX2    X1-6                                                    F4810A  F4810A       248          I
          -CPS236   -CPSA265
 COMPASS            NZ     X2,SPF6     IF NOT 6 LINES/INCH                         F4810A  F4810A       249          I
          -CPS236   -CPSA265
 COMPASS            SA1    =0HT        RETURN PRINT DENSITY TO 8 LPI AT END OF RUN F4810A  F4810A       250          I
          -CPS236   -CPSA265
 COMPASS            SA2    =0HS        SET PRINT DENSITY TO 6 LPI NOW              F4810A  F4810A       251          I
          -CPS236   -CPSA265
 COMPASS            EQ     SPF7                                                    F4810A  F4810A       252          I
          -CPS236   -CPSA265
 COMPASS                                                                           F4810A  F4810A       253          I
          -CPS236   -CPSA265
 COMPASS   SPF6     SA1    =0HS        RETURN PRINT DENSITY TO 6 LPI AT END OF RUN F4810A  F4810A       254          I
          -CPS236   -CPSA265
 COMPASS            SA2    =0HT        SET PRINT DENSITY TO 8 LPI NOW              F4810A  F4810A       255          I
          -CPS236   -CPSA265
 COMPASS   SPF7     BX6    X2                                                      F4810A  F4810A       256          I
          -CPS236   -CPSA265
 COMPASS            SA6    FRSTLIN     FIRST LINE PRINTED (TO SET PRINT DENSITY)   F4810A  F4810A       257          I
          -CPS236   -CPSA265
 COMPASS            BX6    X1                                                      F4810A  F4810A       258          I
          -CPS236   -CPSA265
 COMPASS            SA6    LASTLIN     LAST LINE PRINTED (TO RESET PRINT DENSITY)  F4810A  F4810A       259          I
          -CPS236   -CPSA265
 COMPASS            SX2    X1-6                                                            CPS236        57          I
          -CPSA265
 COMPASS            ZR     X2,SPF      IF PRINT DENSITY = 6 LPI, RETURN                    CPS236        58          I
          -CPSA265
 COMPASS            SA2    =0HT        SET PRINT DENSITY TO 8 LPI NOW                      CPS236        59          I
          -CPSA265
 COMPASS            BX6    X2                                                              CPS236        60          I
          -CPSA265
 COMPASS            SA6    FRSTLIN                                                         CPS236        61          I
          -CPSA265
 COMPASS            EQ     SPF         RETURN                                      F4810A  F4810A       260          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 477    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA265
 COMPASS            SA2    CP.BATCH                                                        CPSA265       66     A     
 COMPASS            LX2    59-11                                                           CPSA265       67     A     
 COMPASS            MX0    6                                                               CPSA265       68     A     
 COMPASS            PL     X2,SPF2     IF COMPASS WAS NOT CALLED BY COMPILER               CPSA265       69     A     
 COMPASS            SA1    CP.PS       GET COMPILER PAGE SIZE                              CPSA265       70     A     
 COMPASS            SA2    CP.PD       GET COMPILER PRINT DENSITY                          CPSA265       71     A     
 COMPASS            BX6    X2                                                              CPSA265       72     A     
 COMPASS            SA3    CP.PW       GET COMPILER PRINT WIDTH                            CPSA265       73     A     
 COMPASS            SA6    COMPPD      SAVE COMPILER PRINT DENSITY                         CPSA265       74     A     
 COMPASS            LX7    X3                                                              CPSA265       75     A     
 COMPASS            BX6    X1                                                              CPSA265       76     A     
 COMPASS            SA7    COMPPW      SAVE COMPILER PRINT WIDTH                           CPSA265       77     A     
 COMPASS            SA6    COMPPS      SAVE COMPILER PAGE SIZE                             CPSA265       78     A     
 COMPASS            BX7    -X1         FTN PASSES COMPLIMENT OF PAGE SIZE                  CPSA265       79     A     
 COMPASS            SA3    SPFB+1      8LPI                                                CPSA265       80     A     
 COMPASS            SX6    6D          PRESET 6LPI                                         CPSA265       81     A     
 COMPASS            BX3    X0*X3                                                           CPSA265       82     A     
 COMPASS            BX2    X0*X2                                                           CPSA265       83     A     
 COMPASS            IX3    X3-X2                                                           CPSA265       84     A     
 COMPASS            NZ     X3,SPF1     IF 6LPI                                             CPSA265       85     A     
 COMPASS            SX6    8D          8LPI                                                CPSA265       86     A     
 COMPASS   SPF1     SA6    CP.PD       STORE NUMERICAL VALUE FOR PRINT DENSITY             CPSA265       87     A     
 COMPASS            SA7    CP.PS       STORE PAGE SIZE FROM COMPILER                       CPSA265       88     A     
 COMPASS                                                                                   CPSA265       89     A     
 COMPASS   SPF2     GETPAGE SPFA       GET CURRENT JOB/SYSTEM PAGE SIZE                    CPSA265       90     A     
 COMPASS            SA1    SPFA        GET JOB VALUES                                      CPSA265       91     A     
 COMPASS            MX3    -8          *PS* FIELD WIDTH                                    CPSA265       92     A     
 COMPASS            AX1    12          POSITION FOR *PW*                                   CPSA265       93     A     
 COMPASS            SA2    CP.PW                                                           CPSA265       94     A     
 COMPASS            BX6    -X3*X1                                                          CPSA265       95     A     
 COMPASS            NZ     X2,SPF3     IF *PW* SPECIFIED                                   CPSA265       96     A     
 COMPASS            SA6    A2                                                              CPSA265       97     A     
 COMPASS   SPF3     AX1    8           POSITION FOR *PS*                                   CPSA265       98     A     
 COMPASS            SA2    CP.PS                                                           CPSA265       99     A     
 COMPASS            BX6    -X3*X1                                                          CPSA265      100     A     
 COMPASS            NZ     X2,SPF4     IF *PS* SPECIFIED                                   CPSA265      101     A     
 COMPASS            SA6    A2                                                              CPSA265      102     A     
 COMPASS   SPF4     AX1    8           POSITION FOR *PD*                                   CPSA265      103     A     
 COMPASS            MX3    -4                                                              CPSA265      104     A     
 COMPASS            SA2    CP.PD                                                           CPSA265      105     A     
 COMPASS            BX6    -X3*X1                                                          CPSA265      106     A     
 COMPASS            NZ     X2,SPF5     IF *PD* SPECIFIED                                   CPSA265      107     A     
 COMPASS            SA6    A2                                                              CPSA265      108     A     
 COMPASS   SPF5     AX6    1           DIVIDE BY 2                                         CPSA265      109     A     
 COMPASS            SA2    A2          GET CURRENT *PD*                                    CPSA265      110     A     
 COMPASS            AX2    1                                                               CPSA265      111     A     
 COMPASS            SA4    SPFB-3+X2                                                       CPSA265      112     A     
 COMPASS            BX7    X4                                                              CPSA265      113     A     
 COMPASS            SA7    FRSTLIN     SET INITIAL *PD* (ALWAYS)                           CPSA265      114     A     
 COMPASS            IX7    X6-X2                                                           CPSA265      115     A     
 COMPASS            ZR     X7,SPF6     IF CC *PD* AND JOB *PD* ARE EQUAL                   CPSA265      116     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 478    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    SPFB-3+X6   GET JOB DEFAULT *PD*                                CPSA265      117     A     
 COMPASS            BX7    X3                                                              CPSA265      118     A     
 COMPASS   SPF6     SA7    LASTLIN     SET EXIT *PD* (=0 IF NO CHANGE)                     CPSA265      119     A     
 COMPASS            SA1    CP.PS       GET CURRENT *PS*                                    CPSA265      120     A     
 COMPASS            SX4    X1-4D                                                           CPSA265      121     A     
 COMPASS            SX7    4           PRESET MIN = 4D                                     CPSA265      122     A     
 COMPASS            NG     X4,SPF7     IF *PS* .LT. 4 - USE MIN = 4                        CPSA265      123     A     
 COMPASS            SX4    X1-100D                                                         CPSA265      124     A     
 COMPASS            NG     X4,SPF8     IF 4.LE.PS.LT.100                                   CPSA265      125     A     
 COMPASS            SX7    99D         SET MAX = 99D                                       CPSA265      126     A     
 COMPASS   SPF7     SA7    CP.PS                                                           CPSA265      127     A     
 COMPASS            MESSAGE ARGA,,R    DIAGNOSE PAGE SIZE ADJUSTED                         CPSA265      128     A     
 COMPASS   SPF8     SA1    CP.PS                                                           CPSA265      129     A     
 COMPASS            SA2    NEJF                                                            CPSA265      130     A     
 COMPASS            ZR     X2,SPF9     IF *N* NOT SPECIFIED                                CPSA265      131     A     
 COMPASS            IX6    X1+X2                                                           CPSA265      132     A     
 COMPASS            SA6    A2                                                              CPSA265      133     A     
 COMPASS   SPF9     SA2    CP.BLF                                                          CPSA265      134     A     
 COMPASS            ZR     X2,SPF10    IF *BL* NOT SPECIFIED                               CPSA265      135     A     
 COMPASS            SX2    X1+5        ELSE, BL CONTROLLED PAGE SIZE = CP.PS+5             CPSA265      136     A     
 COMPASS   SPF10    BX6    X2                                                              CPSA265      137     A     
 COMPASS            SA6    PSIZE                                                           CPSA265      138     A     
 COMPASS            EQ     SPF                                                             CPSA265      139     A     
 COMPASS                                                                                   CPSA265      140     A     
 COMPASS   SPFA     BSSZ   2           GETPAGE RETURN DATA                                 CPSA265      141     A     
 COMPASS   SPFB     DATA   10HS   6LPI                                                     CPSA265      142     A     
 COMPASS            DATA   10HT   8LPI                                                     CPSA265      143     A     
 COMPASS                                                                                   CPSA265      144     A     
 COMPASS                                                                           F4810A  F4810A       261     A     
 COMPASS   ZLC      SPACE  4                                                               CPS064      1329     A     
 COMPASS  **        ZLC - ZERO FIRST 100B WORDS OF LCM FIELD LENGTH, IF ANY.               CPS064      1330     A     
 COMPASS  *         THIS AREA IS USED BY *CLS* FOR RAPID CLEARING OF SCM AREAS.            CPS064      1331     A     
 COMPASS                                                                                   CPS064      1332     A     
 COMPASS                                                                                   CPS064      1333     A     
 COMPASS   ZLC      PS                 RETURN EXIT                                         CPS064      1334     A     
 COMPASS            SA1    CP.AFLL                                                         CPS064      1335     A     
 COMPASS            ZR     X1,ZLC      IF NO LCM FIELD LENGTH                              CPS064      1336     A     
 COMPASS            MX1    0                                                               CPS064      1337     A     
 COMPASS            SX2    ZLCA                                                            CPS064      1338     A     
 COMPASS            SX3    100B                                                            CPS064      1339     A     
 COMPASS            RJ     WLC         WRITE LCM                                           CPS064      1340     A     
 COMPASS            EQ     ZLC         RETURN                                              CPS064      1341     A     
 COMPASS                                                                                   CPS064      1342     A     
 COMPASS   ZLCA     BSSZ   100B                                                            CPS064      1343     A     
 COMPASS   OPTS     SPACE  4,10                                                    F4810A  F4810A       262     A     
 COMPASS  **        OPTS - TABLE OF CONTROL CARD OPTIONS.                          F4810A  F4810A       263     A     
 COMPASS  *                                                                        F4810A  F4810A       264     A     
 COMPASS  *         BITS   CONTENTS                                                F4810A  F4810A       265     A     
 COMPASS  *         59-48  ARGUMENT                                                F4810A  F4810A       266     A     
 COMPASS  *         47-30  IF LT 0, -ADDRESS OF DEFAULT, = NOT ALLOWED.            F4810A  F4810A       267     A     
 COMPASS  *                IF GT 0,  ADDRESS OF DEFAULT, = ALLOWED.                F4810A  F4810A       268     A     
 COMPASS  *         29-00  IF LT 0, -ADDRESS OF SPECIAL PROCESSOR.                 F4810A  F4810A       269          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 479    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS214 
 COMPASS  *         29     MULTIPLE OCCURRANCES ALLOWED                                    CPS214        15     A     
 COMPASS  *         28     OPTION ENCOUNTERED                                              CPS214        16     A     
 COMPASS  *         27-00  IF LT 0, -ADDRESS OF SPECIAL PROCESSOR.                         CPS214        17     A     
 COMPASS  *                IF GT 0,  ADDRESS OF FLAG TO BE SET.                    F4810A  F4810A       270     A     
 COMPASS                                                                           F4810A  F4810A       271     A     
 COMPASS                                                                           F4810A  F4810A       272     A     
 COMPASS   OPT      BSS    0                                                       F4810A  F4810A       273     A     
 COMPASS            VFD    12/0LA,18/-OPTA,30/ABTF                                 F4810A  F4810A       274          I
          -CPS214 
 COMPASS            VFD    12/0LB,18/OPTB,30/B                                     F4810A  F4810A       275          I
          -CPS214 
 COMPASS            VFD    12/0LD,18/-OPTD,30/CP.ERRCT                             F4810A  F4810A       276          I
          -CPS214 
 COMPASS            VFD    12/0LE,18/OPTE,30/-ARG7A                                        CPSA142      111          I
          -CPS214 
 COMPASS            VFD    12/0LF,18/OPTF,30/FVAL                                  F4810A  F4810A       277          I
          -CPS214 
 COMPASS            VFD    12/0LG,18/OPTG,30/-ARG8                                 F4810A  F4810A       278          I
          -CPS214 
 COMPASS            VFD    12/0LI,18/OPTI,30/I                                     F4810A  F4810A       279          I
          -CPS214 
 COMPASS            VFD    12/0LL,18/OPTL,30/O                                     F4810A  F4810A       280          I
          -CPS214 
 COMPASS            VFD    12/0LLO,18/OPTLO,30/-ARG15                              F4810A  F4810A       281          I
          -CPS214 
 COMPASS            VFD    12/0LML,18/OPTML,30/-ARG14                              F4810A  F4810A       282          I
          -CPS214 
 COMPASS            VFD    12/0LN,18/-OPTN,30/NEJF                                 F4810A  F4810A       283          I
          -CPS214 
 COMPASS            VFD    12/0LO,18/OPTO,30/ELFN                                  F4810A  F4810A       284          I
          -CPSA142  -CPS214 
 COMPASS            VFD    12/0LO,18/OPTO,30/-ARG7A                                        CPSA142      112          I
          -CPS214 
 COMPASS            VFD    12/0LP,18/-OPTP,30/CP.PAGE                              F4810A  F4810A       285          I
          -CPS214 
 COMPASS            VFD    12/0LPC,18/BLANKS,30/-ARG19                             F4810A  F4810A       286          I
          -CPS214 
 COMPASS            VFD    12/0LS,18/OPTS,30/-ARG10                                F4810A  F4810A       287          I
          -CPS214 
 COMPASS            IFNE   SPY,0,1                                                 F4810A  F4810A       288          I
          -CPS214 
 COMPASS            VFD    12/0LW,18/OPTW,30/SPYPAR                                F4810A  F4810A       289          I
          -CPS214 
 COMPASS            VFD    12/0LX,18/OPTX,30/CP.XNAME                              F4810A  F4810A       290          I
          -CPS214 
 COMPASS            VFD    12/0LPD,18/CP.PD,30/-ARG24                              F4810A  F4810A       291          I
          -CPS214 
 COMPASS            VFD    12/0LPS,18/CP.PS,30/-ARG26                              F4810A  F4810A       292          I
          -CPS214 
 COMPASS            VFD    12/0LA,18/-OPTA,30/ABTF                                         CPS214        18     A     
 COMPASS            VFD    12/0LB,18/OPTB,30/B                                             CPS214        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/28. 19.11.32.      PAGE 480    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            VFD   12/0LBL,18/OPTBL,30/CP.BLF                                       CPSA181       16     A     
 COMPASS            VFD    12/0LD,18/-OPTD,30/CP.ERRCT                                     CPS214        20     A     
 COMPASS            VFD    12/0LE,18/OPTE,2/0,28/-ARG7A                                    CPS214        21     A     
 COMPASS            VFD    12/0LF,18/OPTF,30/FVAL                                          CPS214        22     A     
 COMPASS            VFD    12/0LG,18/OPTG,1/1,1/0,28/-ARG8                                 CPS214        23     A     
 COMPASS            VFD    12/0LI,18/OPTI,30/I                                             CPS214        24     A     
 COMPASS            VFD    12/0LL,18/OPTL,30/O                                             CPS214        25     A     
 COMPASS            VFD    12/0LLO,18/OPTLO,2/0,28/-ARG15                                  CPS214        26     A     
 COMPASS            VFD    12/0LML,18/OPTML,2/0,28/-ARG14                                  CPS214        27     A     
 COMPASS            VFD    12/0LN,18/-OPTN,30/NEJF                                         CPS214        28     A     
 COMPASS            VFD    12/0LO,18/OPTO,2/0,28/-ARG7A                                    CPS214        29     A     
 COMPASS            VFD    12/0LP,18/-OPTP,30/CP.PAGE                                      CPS214        30     A     
 COMPASS            VFD    12/0LPC,18/BLANKS,2/0,28/-ARG19                                 CPS214        31     A     
 COMPASS            VFD    12/0LS,18/OPTS,1/1,1/0,28/-ARG10                                CPS214        32     A     
 COMPASS            IFNE   SPY,0,1                                                         CPS214        33     A     
 COMPASS            VFD    12/0LW,18/OPTW,30/SPYPAR                                        CPS214        34     A     
 COMPASS            VFD    12/0LX,18/OPTX,30/CP.XNAME                                      CPS214        35     A     
 COMPASS            VFD    12/0LPD,18/CP.PD,2/0,28/-ARG24                                  CPS214        36     A     
 COMPASS            VFD    12/0LPS,18/CP.PS,2/0,28/-ARG26                                  CPS214        37     A     
 COMPASS   LOPT     EQU    *-OPT                                                   F4810A  F4810A       293     A     
 COMPASS                                                                           F4810A  F4810A       294     A     
 COMPASS                                                                           F4810A  F4810A       295     A     
 COMPASS   OPTA     DATA   1S29                                                    F4810A  F4810A       296     A     
 COMPASS   OPTB     DATA   0LLGO                                                   F4810A  F4810A       297     A     
 COMPASS   OPTBL    DATA   1                                                               CPSA181       17     A     
 COMPASS   OPTD     DATA   1BS59                                                   F4810A  F4810A       298     A     
 COMPASS   OPTE     DATA   0LERRS                                                          CPSA142      113     A     
 COMPASS   OPTF     DATA   0LCOMPASS                                               F4810A  F4810A       299     A     
 COMPASS   OPTG     DATA   0LSYSTEXT                                               F4810A  F4810A       300     A     
 COMPASS   OPTI     DATA   0LCOMPILE                                               F4810A  F4810A       301     A     
 COMPASS   OPTL     DATA   0LOUTPUT                                                F4810A  F4810A       302     A     
 COMPASS   OPTLO    DATA   0LCFGX                                                  F4810A  F4810A       303     A     
 COMPASS   OPTML    DATA   0L"JDATE"                                               F4810A  F4810A       304     A     
 COMPASS   OPTN     DATA   0                                                       F4810A  F4810A       305     A     
 COMPASS   OPTO     DATA   0LOUTPUT                                                F4810A  F4810A       306     A     
 COMPASS   OPTP     DATA   0                                                       F4810A  F4810A       307     A     
 COMPASS   OPTS     DATA   0LSYSTEXT                                               F4810A  F4810A       308     A     
 COMPASS   OPTW     DATA   0L100                                                   F4810A  F4810A       309     A     
 COMPASS   OPTX     DATA   0LOPL                                                   F4810A  F4810A       310     A     
 COMPASS                                                                           F4810A  F4810A       311     A     
 COMPASS                                                                           F4810A  F4810A       312     A     
 COMPASS   ABTF     DATA   0                                                       F4810A  F4810A       313     A     
 COMPASS   ELFN     DATA   0LOUTPUT                                                F4810A  F4810A       314     A     
 COMPASS   ERFFLG   DATA   0           RESET TO 1 WHEN O OR E PARAMETER FOUND              CPSA142      114     A     
 COMPASS   FVAL     DATA   0                                                       F4810A  F4810A       315     A     
 COMPASS   ARGA     DATA   C* PAGE SIZE RANGE 4 - 99.*                                     CPSA265      145     A     
 COMPASS   ARGL     DATA   10H                                                     F4810A  F4810A       316     A     
 COMPASS   ARGM     DIS    ,*  BAD CONTROL CARD ARGUMENT - XXXXXXX*                F4810A  F4810A       317     A     
 COMPASS   ARGN     DIS    ,*  MORE THAN 7 SYSTEM TEXTS SPECIFIED.*                F4810A  F4810A       318     A     
 COMPASS   ARGQ     CON    0REXECUTE                                               F4810A  F4810A       319     A     
 COMPASS  *                  +   -   *   /   (    )   $   =   BL   ,    .          F4810A  F4810A       320     A     
 COMPASS   GACA     VFD    4/1,4/1,4/0,4/2,4/1,4/-1,4/0,4/3,4/-0,4/1,4/-1,16/0     F4810A  F4810A       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/28. 19.11.32.      PAGE 481    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   GACB     CON    0           STORAGE FOR SAVING (X6)                     F4810A  F4810A       322     A     
 COMPASS   GACC     CON    0           STATUS WORD FOR CONTRLC                     F4810A  F4810A       323     A     
 COMPASS   GACD     CON    40404040404040404040B                                   F4810A  F4810A       324     A     
 COMPASS   GACE     DATA   C* NO CONTROL CARD TERMINATOR.*                         F4810A  F4810A       325     A     
 COMPASS   GACF     DATA   10H                                                     F4810A  F4810A       326     A     
 COMPASS   FNAME    DATA   0LCOMPASS   0   TABLE OF NAMES FOR *F* PARAMETER        F4810A  F4810A       327     A     
 COMPASS            DATA   0LRUN       1                                           F4810A  F4810A       328     A     
 COMPASS            DATA   0LFTN       2                                           F4810A  F4810A       329          I
          -CPSA240
 COMPASS            DATA   0LFTN4     2                                                    CPSA240        8     A     
 COMPASS            DATA   0LFTN5     3                                                    CPSA240        9     A     
 COMPASS   NFNAME   EQU    *-FNAME                                                 F4810A  F4810A       330     A     
 COMPASS   SLFA     DATA   0           LIST FLAG TEMPORARY                         F4810A  F4810A       331     A     
 COMPASS   DMF      EJECT                                                                  CPS258         6     A     
 COMPASS   CLFN     MACRO  F1,F2                                                           CPS258         7     A     
 COMPASS            LOCAL  EXIT                                                            CPS258         8     A     
 COMPASS            SA1    F1                                                              CPS258         9     A     
 COMPASS            SA2    F2                                                              CPS258        10     A     
 COMPASS            ZR     X1,EXIT                                                         CPS258        11     A     
 COMPASS            ZR     X2,EXIT                                                         CPS258        12     A     
 COMPASS            BX1    X1-X2                                                           CPS258        13     A     
 COMPASS            ZR     X1,ARGF                                                         CPS258        14     A     
 COMPASS   EXIT     BSS    0                                                               CPS258        15     A     
 COMPASS   CLFN     ENDM                                                                   CPS258        16     A     
 COMPASS            SPACE  4                                                               CPS258        17     A     
 COMPASS  **        DMF - DIAGNOSE MISUSED FILES.  DIAGNOSES SAME FILE                     CPS258        18     A     
 COMPASS  *         DECLARED FOR LIST/INPUT/BINARY/XTEXT COMBINATION.                      CPS258        19     A     
 COMPASS  *                                                                                CPS258        20     A     
 COMPASS  *         ENTRY  NONE                                                            CPS258        21     A     
 COMPASS  *         EXIT   NONE                                                            CPS258        22     A     
 COMPASS  *         USES   A1,A2,X1,X2                                                     CPS258        23     A     
 COMPASS                                                                                   CPS258        24     A     
 COMPASS   DMF      PS                                                                     CPS258        25     A     
 COMPASS            CLFN   O,B                                                             CPS258        26     A     
 COMPASS            CLFN   O,CP.XNAME                                                      CPS258        27     A     
 COMPASS            CLFN   O,I                                                             CPS258        28     A     
 COMPASS            CLFN   B,CP.XNAME                                                      CPS258        29     A     
 COMPASS            CLFN   B,I                                                             CPS258        30     A     
 COMPASS            CLFN   B,ELFN                                                          CPS258        31     A     
 COMPASS            CLFN   CP.XNAME,I                                                      CPS258        32     A     
 COMPASS            CLFN   CP.XNAME,ELFN                                                   CPS258        33     A     
 COMPASS            EQ     DMF                                                             CPS258        34     A     
 COMPASS                                                                                   CPS258        35     A     
 COMPASS   ARGF     MESSAGE ARGLFN,,R                                                      CPS258        36     A     
 COMPASS            ABORT  ,NODUMP                                                         CPS258        37     A     
 COMPASS                                                                                   CPS258        38     A     
 COMPASS   ARGLFN   DIS    ,*FILE USE CONTRADICTION*                                       CPS258        39     A     
 COMPASS   OPS      EJECT                                                                  CPS064      1344     A     
 COMPASS  **        OPCODE TABLE PROTOTYPE.                                                CPS064      1345     A     
 COMPASS                                                                                   CPS064      1346     A     
 COMPASS                                                                                   CPS064      1347     A     
 COMPASS            USE    OPCODES                                                         CPS064      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/28. 19.11.32.      PAGE 482    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SEG    OPCODE TABLE PROTOTYPE.                                         CPS064      1349     A     
 COMPASS            BASE   MIXED                                                           CPS064      1350     A     
 COMPASS   CPOP     SPACE  4                                                               CPS064      1351     A     
 COMPASS  **        FIELD DEFINITIONS FOR CENTRAL PROCESSOR OPERATIONS.                    CPS064      1352     A     
 COMPASS                                                                                   CPS064      1353     A     
 COMPASS                                                                                   CPS064      1354     A     
 COMPASS   Q        MICRO  1,,*001*                                                        CPS064      1355     A     
 COMPASS   A        MICRO  1,,*040*                                                        CPS064      1356     A     
 COMPASS   AQ       MICRO  1,,*041*                                                        CPS064      1357     A     
 COMPASS   B        MICRO  1,,*100*                                                        CPS064      1358     A     
 COMPASS   BQ       MICRO  1,,*101*                                                        CPS064      1359     A     
 COMPASS   X        MICRO  1,,*140*                                                        CPS064      1360     A     
 COMPASS   XQ       MICRO  1,,*141*                                                        CPS064      1361     A     
 COMPASS   -B       MICRO  1,,*300*                                                        CPS064      1362     A     
 COMPASS   -X       MICRO  1,,*340*                                                        CPS064      1363     A     
 COMPASS   X+B      MICRO  1,,*144*                                                        CPS064      1364     A     
 COMPASS   B+X      MICRO  1,,*106*                                                        CPS064      1365     A     
 COMPASS   A+B      MICRO  1,,*044*                                                        CPS064      1366     A     
 COMPASS   B+A      MICRO  1,,*102*                                                        CPS064      1367     A     
 COMPASS   A-B      MICRO  1,,*054*                                                        CPS064      1368     A     
 COMPASS   B+B      MICRO  1,,*104*                                                        CPS064      1369     A     
 COMPASS   B-B      MICRO  1,,*114*                                                        CPS064      1370     A     
 COMPASS   -B+A     MICRO  1,,*302*                                                        CPS064      1371     A     
 COMPASS   -B+B     MICRO  1,,*304*                                                        CPS064      1372     A     
 COMPASS   X+X      MICRO  1,,*146*                                                        CPS064      1373     A     
 COMPASS   X-X      MICRO  1,,*156*                                                        CPS064      1374     A     
 COMPASS   X*X      MICRO  1,,*166*                                                        CPS064      1375     A     
 COMPASS   X/X      MICRO  1,,*176*                                                        CPS064      1376     A     
 COMPASS   -X+X     MICRO  1,,*346*                                                        CPS064      1377     A     
 COMPASS   -X-X     MICRO  1,,*356*                                                        CPS064      1378     A     
 COMPASS   -X*X     MICRO  1,,*366*                                                        CPS064      1379     A     
 COMPASS   CPOPA    SPACE  4                                                               CPS064      1380     A     
 COMPASS  **        CPOPA - REMOVE ONE LEVEL OF MICRO.                                     CPS064      1381     A     
 COMPASS  *         CPOPA  P1                                                              CPS064      1382     A     
 COMPASS  *         ENTRY  (P1) = MICRO NAME.                                              CPS064      1383     A     
 COMPASS  *         EXIT   (D) = MICRO NAME.                                               CPS064      1384     A     
 COMPASS                                                                                   CPS064      1385     A     
 COMPASS                                                                                   CPS064      1386     A     
 COMPASS   CPOPA    MACRO  P1                                                              CPS064      1387     A     
 COMPASS   D        MICRO  1,, "P1"                                                        CPS064      1388     A     
 COMPASS            ENDM                                                                   CPS064      1389     A     
 COMPASS   CPUOP    SPACE  4                                                               CPS064      1390     A     
 COMPASS  **        CPUOP - CENTRAL PROCESSER OPERATION MACRO.                             CPS064      1391     A     
 COMPASS  *         CPUOP  CTL,VAL,REQ,N1,N2,N3                                            CPS064      1392     A     
 COMPASS  *         ENTRY  (CTL) = 4 - FORCE UPPER AFTER INSTRUCTION.                      CPS064      1393     A     
 COMPASS  *                        2 - FORCE UPPER BEFORE INSTRUCTION.                     CPS064      1394     A     
 COMPASS  *                        1 - 30-BIT INSTRUCTION.                                 CPS064      1395     A     
 COMPASS  *                (VAL) = VALUE OF OPERATION CODE.                                CPS064      1396     A     
 COMPASS  *                (REG) = IJK.  (I) = CODE FOR I-PORTION.                         CPS064      1397     A     
 COMPASS  *                        1 - OP-CODE PORTION.                                    CPS064      1398     A     
 COMPASS  *                        2 - 2ND OR ONLY ADDRESS REGISTER.                       CPS064      1399     A     
 COMPASS  *                        3 - 1ST OF 2 ADDRESS REGISTERS.                         CPS064      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/28. 19.11.32.      PAGE 483    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (NI) = FIELD DEFINITION OF MNEMONIC.                            CPS064      1401     A     
 COMPASS                                                                                   CPS064      1402     A     
 COMPASS                                                                                   CPS064      1403     A     
 COMPASS   CPUOP    MACRO  CTL,VAL,REG,N1,N2,N3                                            CPS064      1404     A     
 COMPASS   D        MICRO  3,,$N1$                                                         CPS064      1405     A     
 COMPASS            CPOPA  "D"                                                             CPS064      1406     A     
 COMPASS   MN       MICRO  1,2,$N1$                                                        CPS064      1407     A     
 COMPASS            VFD    24/2R"MN",8/"D",8/"N2",8/"N3",12/1R                             CPS064      1408     A     
 COMPASS            VFD    12/VAL,18/M.,3/CTL,9/REG,18/                                    CPS064      1409     A     
 COMPASS            ENDM                                                                   CPS064      1410     A     
 COMPASS   PPUOP    SPACE  4                                                               CPS064      1411     A     
 COMPASS  **        PPUOP - DEFINE PP INSTRUCTION MACRO.                                   CPS064      1412     A     
 COMPASS  *         PPUOP  NAME,CTL,VAL                                                    CPS064      1413     A     
 COMPASS  *         ENTRY  (NAME) = MNEMONIC NAME.                                         CPS064      1414     A     
 COMPASS  *                (CTL) = 1 - 24-BIT WITH 12-BIT ADDRESS AND NO INDEXING.         CPS064      1415     A     
 COMPASS  *                        2 - 12-BIT WITH SIGNED RELATIVE ADDRESS                 CPS064      1416     A     
 COMPASS  *                            OR ABSOLUTE ADDRESS (UJN).                          CPS064      1417     A     
 COMPASS  *                        3 - 24-BIT WITH 18-BIT ADDRESS (LDC).                   CPS064      1418     A     
 COMPASS  *                        4 - 12-BIT WITH 6-BIT ADDRESS (LDN).                    CPS064      1419     A     
 COMPASS  *                        5 - 24-BIT WITH 12-BIT ADDRESS AND OPTIONAL             CPS064      1420     A     
 COMPASS  *                            INDEXING (LDM).                                     CPS064      1421     A     
 COMPASS  *                        6 - 12-BIT WITH SIGNED RELATIVE ADDRESS (SHN).          CPS064      1422     A     
 COMPASS  *                        7 - 24-BIT WITH 12-BIT ADDRESS AND REQUIRED             CPS064      1423     A     
 COMPASS  *                            SECOND FIELD (FNC).                                 CPS064      1424     A     
 COMPASS  *                (VAL) = 12-BIT OPERATION CODE VALUE.                            CPS064      1425     A     
 COMPASS                                                                                   CPS064      1426     A     
 COMPASS                                                                                   CPS064      1427     A     
 COMPASS   PPUOP    MACRO  NAME,CTL,VAL PERIPHERAL MACHINE CODES                           CPS064      1428     A     
 COMPASS            DATA   R$NAME$                                                         CPS064      1429     A     
 COMPASS            VFD    3/1,27/M.,3/CTL,27/VAL                                          CPS064      1430     A     
 COMPASS            ENDM                                                                   CPS064      1431     A     
 COMPASS   PSEUDO   SPACE  4                                                               CPS064      1432     A     
 COMPASS  **        PSEUDO - DEFINE PSEUDO INSTRUCTION MACRO.                              CPS064      1433     A     
 COMPASS  *         PSEUDO TYPE,NAME                                                       CPS064      1434     A     
 COMPASS  *         ENTRY  (TYPE) = 2 - CAN NOT OCCUR IN THE FIRST CARD GROUP.             CPS064      1435     A     
 COMPASS  *                         3 - PROCESS WHILE IF SKIPPING.                         CPS064      1436     A     
 COMPASS  *                         4 - PERMISSIBLE ANYWHERE.                              CPS064      1437     A     
 COMPASS  *                         5 - FIRST CARD GROUP ONLY.                             CPS064      1438     A     
 COMPASS  *                (NAME) = NAME OF PSEUDO OPERATION.                              CPS064      1439     A     
 COMPASS                                                                                   CPS064      1440     A     
 COMPASS                                                                                   CPS064      1441     A     
 COMPASS   PSEUDO   MACRO  TYPE,NAME                                                       CPS064      1442     A     
 COMPASS            DATA   R$NAME$                                                         CPS064      1443     A     
 COMPASS            VFD    3/TYPE,39//PASS1/NAME,18//PASS2/NAME                            CPS064      1444          I
          -CPS073 
 COMPASS            VFD    3/TYPE,12/0,9/N.,18//PASS1/NAME,18//PASS2/NAME                  CPS073        12     A     
 COMPASS   N.       SET    N.+1                                                            CPS073        13     A     
 COMPASS            ENDM                                                                   CPS064      1445     A     
 COMPASS   PSEUD    SPACE  4                                                               CPS064      1446     A     
 COMPASS  **        PSEUD - DEFINE PSEUDO INSTRUCTION MACRO.                               CPS064      1447     A     
 COMPASS  *         PSEUD  TYPE,NAME,PASS1,PASS2                                           CPS064      1448     A     
 COMPASS  *         ENTRY  (TYPE) = PSEUDO INSTRUCTION TYPE.                               CPS064      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/28. 19.11.32.      PAGE 484    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (NAME) = NAME OF PSEUDO OPERATION.                              CPS064      1450     A     
 COMPASS  *                (P1) = PASS1 ADDRESS.                                           CPS064      1451     A     
 COMPASS  *                (P2) = PASS2 ADDRESS.                                           CPS064      1452     A     
 COMPASS                                                                                   CPS064      1453     A     
 COMPASS                                                                                   CPS064      1454     A     
 COMPASS   PSEUD    MACRO  TYPE,NAME,P1,P2                                                 CPS064      1455     A     
 COMPASS            DATA   R$NAME$                                                         CPS064      1456     A     
 COMPASS            VFD    3/TYPE,39//PASS1/P1,18//PASS2/P2                                CPS064      1457          I
          -CPS073 
 COMPASS            VFD    3/TYPE,12/0,9/N.,18//PASS1/P1,18//PASS2/P2                      CPS073        14     A     
 COMPASS   N.       SET    N.+1                                                            CPS073        15     A     
 COMPASS            ENDM                                                                   CPS064      1458     A     
 COMPASS   OPS      SPACE  4                                                               CPS064      1459     A     
 COMPASS  *         6600 AND 7600 PP OPCODES.                                              CPS064      1460     A     
 COMPASS  *         6600, 7600 AND V PP OPCODES.                                           F4830CP       10     A     
 COMPASS                                                                                   CPS064      1461     A     
 COMPASS                                                                                   CPS064      1462     A     
 COMPASS   OPS      BSS    0                                                               CPS064      1463     A     
 COMPASS   M.       SET    0                                                               CPS064      1464     A     
 COMPASS            LIST   -R                                                              CPS064      1465     A     
 COMPASS            PPUOP  LJM,5,0100                                                      CPS064      1466     A     
 COMPASS            PPUOP  RJM,5,0200                                                      CPS064      1467     A     
 COMPASS            PPUOP  UJN,2,0300                                                      CPS064      1468     A     
 COMPASS            PPUOP  ZJN,2,0400                                                      CPS064      1469     A     
 COMPASS            PPUOP  NJN,2,0500                                                      CPS064      1470     A     
 COMPASS            PPUOP  PJN,2,0600                                                      CPS064      1471     A     
 COMPASS            PPUOP  MJN,2,0700                                                      CPS064      1472     A     
 COMPASS            PPUOP  SHN,6,1000                                                      CPS064      1473     A     
 COMPASS            PPUOP  LMN,4,1100                                                      CPS064      1474     A     
 COMPASS            PPUOP  LPN,4,1200                                                      CPS064      1475     A     
 COMPASS            PPUOP  SCN,4,1300                                                      CPS064      1476     A     
 COMPASS            PPUOP  LDN,4,1400                                                      CPS064      1477     A     
 COMPASS            PPUOP  LCN,4,1500                                                      CPS064      1478     A     
 COMPASS            PPUOP  ADN,4,1600                                                      CPS064      1479     A     
 COMPASS            PPUOP  SBN,4,1700                                                      CPS064      1480     A     
 COMPASS            PPUOP  LDC,3,2000                                                      CPS064      1481     A     
 COMPASS            PPUOP  ADC,3,2100                                                      CPS064      1482     A     
 COMPASS            PPUOP  LPC,3,2200                                                      CPS064      1483     A     
 COMPASS            PPUOP  LMC,3,2300                                                      CPS064      1484     A     
 COMPASS            PPUOP  PSN,4,2400                                                      CPS064      1485     A     
 COMPASS            PPUOP  LDD,4,3000                                                      CPS064      1486     A     
 COMPASS            PPUOP  ADD,4,3100                                                      CPS064      1487     A     
 COMPASS            PPUOP  SBD,4,3200                                                      CPS064      1488     A     
 COMPASS            PPUOP  LMD,4,3300                                                      CPS064      1489     A     
 COMPASS            PPUOP  STD,4,3400                                                      CPS064      1490     A     
 COMPASS            PPUOP  RAD,4,3500                                                      CPS064      1491     A     
 COMPASS            PPUOP  AOD,4,3600                                                      CPS064      1492     A     
 COMPASS            PPUOP  SOD,4,3700                                                      CPS064      1493     A     
 COMPASS            PPUOP  LDI,4,4000                                                      CPS064      1494     A     
 COMPASS            PPUOP  ADI,4,4100                                                      CPS064      1495     A     
 COMPASS            PPUOP  SBI,4,4200                                                      CPS064      1496     A     
 COMPASS            PPUOP  LMI,4,4300                                                      CPS064      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/28. 19.11.32.      PAGE 485    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PPUOP  STI,4,4400                                                      CPS064      1498     A     
 COMPASS            PPUOP  RAI,4,4500                                                      CPS064      1499     A     
 COMPASS            PPUOP  AOI,4,4600                                                      CPS064      1500     A     
 COMPASS            PPUOP  SOI,4,4700                                                      CPS064      1501     A     
 COMPASS            PPUOP  LDM,5,5000                                                      CPS064      1502     A     
 COMPASS            PPUOP  ADM,5,5100                                                      CPS064      1503     A     
 COMPASS            PPUOP  SBM,5,5200                                                      CPS064      1504     A     
 COMPASS            PPUOP  LMM,5,5300                                                      CPS064      1505     A     
 COMPASS            PPUOP  STM,5,5400                                                      CPS064      1506     A     
 COMPASS            PPUOP  RAM,5,5500                                                      CPS064      1507     A     
 COMPASS            PPUOP  AOM,5,5600                                                      CPS064      1508     A     
 COMPASS            PPUOP  SOM,5,5700                                                      CPS064      1509     A     
 COMPASS            PPUOP  IAN,4,7000                                                      CPS064      1510     A     
 COMPASS            PPUOP  IAM,7,7100                                                      CPS064      1511     A     
 COMPASS            PPUOP  OAN,4,7200                                                      CPS064      1512     A     
 COMPASS            PPUOP  OAM,7,7300                                                      CPS064      1513     A     
 COMPASS                                                                                   CPS064      1514     A     
 COMPASS  *         6600 PP OPCODES.                                                       CPS064      1515          I
          -F4830CP
 COMPASS  *         6600 AND V PP OPCODES.                                                 F4830CP       11     A     
 COMPASS                                                                                   CPS064      1516     A     
 COMPASS   M.       SET    1                                                               CPS064      1517          I
          -F4830CP
 COMPASS   M.       SET    5                                                               F4830CP       12     A     
 COMPASS            PPUOP  LRD,4,2400                                                      F4830CP       13     A     
 COMPASS            PPUOP  SRD,4,2500                                                      F4830CP       14     A     
 COMPASS            PPUOP  EXN,4,2600                                                      CPS064      1518     A     
 COMPASS            PPUOP  MXN,4,2610                                                      CPS064      1519     A     
 COMPASS            PPUOP  MAN,4,2620                                                      CPS064      1520     A     
 COMPASS            PPUOP  RPN,4,2700                                                      CPS064      1521     A     
 COMPASS            PPUOP  KEYP,4,2700                                                     F4830CP       15     A     
 COMPASS            PPUOP  CRD,4,6000                                                      CPS064      1522     A     
 COMPASS            PPUOP  CRM,7,6100                                                      CPS064      1523     A     
 COMPASS            PPUOP  CWD,4,6200                                                      CPS064      1524     A     
 COMPASS            PPUOP  CWM,7,6300                                                      CPS064      1525     A     
 COMPASS            PPUOP  AJM,7,6400                                                      CPS064      1526     A     
 COMPASS            PPUOP  SCF,7,6440                                                      F4830CP       16     A     
 COMPASS            PPUOP  IJM,7,6500                                                      CPS064      1527     A     
 COMPASS            PPUOP  CCF,7,6540                                                      F4830CP       17     A     
 COMPASS            PPUOP  FJM,7,6600                                                      CPS064      1528     A     
 COMPASS            PPUOP  SFM,7,6640                                                      F4830CP       18     A     
 COMPASS            PPUOP  EJM,7,6700                                                      CPS064      1529     A     
 COMPASS            PPUOP  CFM,7,6740                                                      F4830CP       19     A     
 COMPASS            PPUOP  ACN,4,7400                                                      CPS064      1530     A     
 COMPASS            PPUOP  DCN,4,7500                                                      CPS064      1531     A     
 COMPASS            PPUOP  FAN,4,7600                                                      CPS064      1532     A     
 COMPASS            PPUOP  FNC,7,7700                                                      CPS064      1533     A     
 COMPASS                                                                                   CPS064      1534     A     
 COMPASS  *         6416 PP OPCODES.                                                       CPS064      1535     A     
 COMPASS                                                                                   CPS064      1536     A     
 COMPASS            PPUOP  ETN,4,2600                                                      CPS064      1537     A     
 COMPASS            PPUOP  ERN,4,2700                                                      CPS064      1538     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 486    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CPS064      1539     A     
 COMPASS  *         7600 PP OPCODES.                                                       CPS064      1540     A     
 COMPASS                                                                                   CPS064      1541     A     
 COMPASS   M.       SET    2                                                               CPS064      1542     A     
 COMPASS            PPUOP  FIM,7,6000                                                      CPS064      1543     A     
 COMPASS            PPUOP  EIM,7,6100                                                      CPS064      1544     A     
 COMPASS            PPUOP  IRM,7,6200                                                      CPS064      1545     A     
 COMPASS            PPUOP  NIM,7,6300                                                      CPS064      1546     A     
 COMPASS            PPUOP  FOM,7,6400                                                      CPS064      1547     A     
 COMPASS            PPUOP  EOM,7,6500                                                      CPS064      1548     A     
 COMPASS            PPUOP  ORM,7,6600                                                      CPS064      1549     A     
 COMPASS            PPUOP  NOM,7,6700                                                      CPS064      1550     A     
 COMPASS            PPUOP  RFN,4,7400                                                      CPS064      1551     A     
 COMPASS            PPUOP  ESN,4,7700                                                      CPS064      1552     A     
 COMPASS                                                                                   CPSA281       66     A     
 COMPASS  *         180 OPCODES.                                                           CPSA281       67     A     
 COMPASS                                                                                   CPSA281       68     A     
 COMPASS   M.       SET    4                                                               CPSA281       69     A     
 COMPASS            PPUOP  RDSL,4,100000                                                   CPSA281       70     A     
 COMPASS            PPUOP  RDCL,4,100100                                                   CPSA281       71     A     
 COMPASS            PPUOP  SHDL,4,101000                                                   CPSA281       72     A     
 COMPASS            PPUOP  LRDL,4,101100                                                   CPSA281       73     A     
 COMPASS            PPUOP  LRIL,4,101200                                                   CPSA281       74     A     
 COMPASS            PPUOP  LRML,5,101300                                                   CPSA281       75     A     
 COMPASS            PPUOP  SRDL,4,101400                                                   CPSA281       76     A     
 COMPASS            PPUOP  SRIL,4,101500                                                   CPSA281       77     A     
 COMPASS            PPUOP  SRML,5,101600                                                   CPSA281       78     A     
 COMPASS            PPUOP  HOLD,4,101700                                                   CPSA281       79     A     
 COMPASS            PPUOP  LPDL,4,102200                                                   CPSA281       80     A     
 COMPASS            PPUOP  LPIL,4,102300                                                   CPSA281       81     A     
 COMPASS            PPUOP  LPML,5,102400                                                   CPSA281       82     A     
 COMPASS            PPUOP  INPN,4,102600                                                   CPSA281       83     A     
 COMPASS            PPUOP  LDDL,4,103000                                                   CPSA281       84     A     
 COMPASS            PPUOP  ADDL,4,103100                                                   CPSA281       85     A     
 COMPASS            PPUOP  SBDL,4,103200                                                   CPSA281       86     A     
 COMPASS            PPUOP  LMDL,4,103300                                                   CPSA281       87     A     
 COMPASS            PPUOP  STDL,4,103400                                                   CPSA281       88     A     
 COMPASS            PPUOP  RADL,4,103500                                                   CPSA281       89     A     
 COMPASS            PPUOP  AODL,4,103600                                                   CPSA281       90     A     
 COMPASS            PPUOP  SODL,4,103700                                                   CPSA281       91     A     
 COMPASS            PPUOP  LDIL,4,104000                                                   CPSA281       92     A     
 COMPASS            PPUOP  ADIL,4,104100                                                   CPSA281       93     A     
 COMPASS            PPUOP  SBIL,4,104200                                                   CPSA281       94     A     
 COMPASS            PPUOP  LMIL,4,104300                                                   CPSA281       95     A     
 COMPASS            PPUOP  STIL,4,104400                                                   CPSA281       96     A     
 COMPASS            PPUOP  RAIL,4,104500                                                   CPSA281       97     A     
 COMPASS            PPUOP  AOIL,4,104600                                                   CPSA281       98     A     
 COMPASS            PPUOP  SOIL,4,104700                                                   CPSA281       99     A     
 COMPASS            PPUOP  LDML,5,105000                                                   CPSA281      100     A     
 COMPASS            PPUOP  ADML,5,105100                                                   CPSA281      101     A     
 COMPASS            PPUOP  SBML,5,105200                                                   CPSA281      102     A     
 COMPASS            PPUOP  LMML,5,105300                                                   CPSA281      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/28. 19.11.32.      PAGE 487    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PPUOP  STML,5,105400                                                   CPSA281      104     A     
 COMPASS            PPUOP  RAML,5,105500                                                   CPSA281      105     A     
 COMPASS            PPUOP  AOML,5,105600                                                   CPSA281      106     A     
 COMPASS            PPUOP  SOML,5,105700                                                   CPSA281      107     A     
 COMPASS            PPUOP  CRDL,4,106000                                                   CPSA281      108     A     
 COMPASS            PPUOP  CRML,7,106100                                                   CPSA281      109     A     
 COMPASS            PPUOP  CWDL,4,106200                                                   CPSA281      110     A     
 COMPASS            PPUOP  CWML,7,106300                                                   CPSA281      111     A     
 COMPASS            PPUOP  FSJM,7,106400                                                   CPSA281      112     A     
 COMPASS            PPUOP  FCJM,7,106500                                                   CPSA281      113     A     
 COMPASS            PPUOP  CHCM,7,107000                                                   CPSA281      114     A     
 COMPASS            PPUOP  IAPM,7,107100                                                   CPSA281      115     A     
 COMPASS            PPUOP  CMCH,7,107200                                                   CPSA281      116     A     
 COMPASS            PPUOP  OAPM,7,107300                                                   CPSA281      117     A     
 COMPASS            PPUOP  MCLR,4,107400                                                   CPSA281      118     A     
 COMPASS   FNCLCDE  EQU    007700B     *FNCL* HAS SAME OPCODE AS *FNC*                     CPSA281      119     A     
 COMPASS            PPUOP  FNCL,7,FNCLCDE                                                  CPSA281      120     A     
 COMPASS                                                                                   CPS064      1553     A     
 COMPASS  *         6600 AND 7600 CP OPCODES.                                              CPS064      1554          I
          -F4830CP
 COMPASS  *         6600, 7600 AND V CP OPCODES                                            F4830CP       20     A     
 COMPASS                                                                                   CPS064      1555     A     
 COMPASS   M.       SET    0                                                               CPS064      1556     A     
 COMPASS            CPUOP  7,000,000,PS                                                    CPS064      1557     A     
 COMPASS            CPUOP  7,000,000,PSQ                                                   CPS064      1558     A     
 COMPASS            CPUOP  5,010,000,RJQ                                                   CPS064      1559     A     
 COMPASS            CPUOP  5,020,000,JPQ                                                   CPS064      1560     A     
 COMPASS            CPUOP  5,020,220,JPB                                                   CPS064      1561     A     
 COMPASS            CPUOP  5,020,220,JPBQ                                                  CPS064      1562     A     
 COMPASS            CPUOP  1,030,020,ZRX,Q                                                 CPS064      1563     A     
 COMPASS            CPUOP  1,031,020,NZX,Q                                                 CPS064      1564     A     
 COMPASS            CPUOP  1,032,020,PLX,Q                                                 CPS064      1565     A     
 COMPASS            CPUOP  1,033,020,NGX,Q                                                 CPS064      1566     A     
 COMPASS            CPUOP  1,033,020,MIX,Q                                                 CPS064      1567     A     
 COMPASS            CPUOP  1,034,020,IRX,Q                                                 CPS064      1568     A     
 COMPASS            CPUOP  1,035,020,ORX,Q                                                 CPS064      1569     A     
 COMPASS            CPUOP  1,036,020,DFX,Q                                                 CPS064      1570     A     
 COMPASS            CPUOP  1,037,020,IDX,Q                                                 CPS064      1571     A     
 COMPASS            CPUOP  5,040,000,EQQ                                                   CPS064      1572     A     
 COMPASS            CPUOP  1,040,200,EQB,Q                                                 CPS064      1573     A     
 COMPASS            CPUOP  1,040,320,EQB,B,Q                                               CPS064      1574     A     
 COMPASS            CPUOP  5,040,000,ZRQ                                                   CPS064      1575     A     
 COMPASS            CPUOP  1,040,200,ZRB,Q                                                 CPS064      1576     A     
 COMPASS            CPUOP  1,050,200,NEB,Q                                                 CPS064      1577     A     
 COMPASS            CPUOP  1,050,320,NEB,B,Q                                               CPS064      1578     A     
 COMPASS            CPUOP  1,050,200,NZB,Q                                                 CPS064      1579     A     
 COMPASS            CPUOP  1,060,200,PLB,Q                                                 CPS064      1580     A     
 COMPASS            CPUOP  1,060,200,GEB,Q                                                 CPS064      1581     A     
 COMPASS            CPUOP  1,060,320,GEB,B,Q                                               CPS064      1582     A     
 COMPASS            CPUOP  1,060,230,LEB,B,Q                                               CPS064      1583     A     
 COMPASS            CPUOP  1,060,020,LEB,Q                                                 CPS064      1584     A     
 COMPASS            CPUOP  1,070,200,NGB,Q                                                 CPS064      1585     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 488    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CPUOP  1,070,200,MIB,Q                                                 CPS064      1586     A     
 COMPASS            CPUOP  1,070,320,LTB,B,Q                                               CPS064      1587     A     
 COMPASS            CPUOP  1,070,230,GTB,B,Q                                               CPS064      1588     A     
 COMPASS            CPUOP  1,070,200,LTB,Q                                                 CPS064      1589     A     
 COMPASS            CPUOP  1,070,020,GTB,Q                                                 CPS064      1590     A     
 COMPASS            CPUOP  0,100,122,BXX                                                   CPS064      1591     A     
 COMPASS            CPUOP  0,110,132,BXX*X                                                 CPS064      1592     A     
 COMPASS            CPUOP  0,120,132,BXX+X                                                 CPS064      1593     A     
 COMPASS            CPUOP  0,130,132,BXX-X                                                 CPS064      1594     A     
 COMPASS            CPUOP  0,140,122,BX-X                                                  CPS064      1595     A     
 COMPASS            CPUOP  0,150,123,BX-X*X                                                CPS064      1596     A     
 COMPASS            CPUOP  0,160,123,BX-X+X                                                CPS064      1597     A     
 COMPASS            CPUOP  0,170,123,BX-X-X                                                CPS064      1598     A     
 COMPASS            CPUOP  0,200,100,LXQ                                                   CPS064      1599     A     
 COMPASS            CPUOP  0,210,100,AXQ                                                   CPS064      1600     A     
 COMPASS            CPUOP  0,220,102,LXX                                                   CPS064      1601     A     
 COMPASS            CPUOP  0,220,121,LXB                                                   CPS064      1602     A     
 COMPASS            CPUOP  0,220,121,AX-B                                                  CPS064      1603     A     
 COMPASS            CPUOP  0,220,132,LXB,X                                                 CPS064      1604     A     
 COMPASS            CPUOP  0,220,132,AX-B,X                                                CPS064      1605     A     
 COMPASS            CPUOP  0,220,123,LXX,B                                                 CPS064      1606     A     
 COMPASS            CPUOP  0,220,123,AXX,-B                                                CPS064      1607     A     
 COMPASS            CPUOP  0,230,102,AXX                                                   CPS064      1608     A     
 COMPASS            CPUOP  0,230,121,AXB                                                   CPS064      1609     A     
 COMPASS            CPUOP  0,230,121,LX-B                                                  CPS064      1610     A     
 COMPASS            CPUOP  0,230,132,AXB,X                                                 CPS064      1611     A     
 COMPASS            CPUOP  0,230,132,LX-B,X                                                CPS064      1612     A     
 COMPASS            CPUOP  0,230,123,AXX,B                                                 CPS064      1613     A     
 COMPASS            CPUOP  0,230,123,LXX,-B                                                CPS064      1614     A     
 COMPASS            CPUOP  0,240,101,NX                                                    CPS064      1615     A     
 COMPASS            CPUOP  0,240,102,NXX                                                   CPS064      1616     A     
 COMPASS            CPUOP  0,240,121,NXB                                                   CPS064      1617     A     
 COMPASS            CPUOP  0,240,132,NXB,X                                                 CPS064      1618     A     
 COMPASS            CPUOP  0,240,123,NXX,B                                                 CPS064      1619     A     
 COMPASS            CPUOP  0,250,101,ZX                                                    CPS064      1620     A     
 COMPASS            CPUOP  0,250,102,ZXX                                                   CPS064      1621     A     
 COMPASS            CPUOP  0,250,121,ZXB                                                   CPS064      1622     A     
 COMPASS            CPUOP  0,250,132,ZXB,X                                                 CPS064      1623     A     
 COMPASS            CPUOP  0,250,123,ZXX,B                                                 CPS064      1624     A     
 COMPASS            CPUOP  0,260,101,UX                                                    CPS064      1625     A     
 COMPASS            CPUOP  0,260,102,UXX                                                   CPS064      1626     A     
 COMPASS            CPUOP  0,260,121,UXB                                                   CPS064      1627     A     
 COMPASS            CPUOP  0,260,132,UXB,X                                                 CPS064      1628     A     
 COMPASS            CPUOP  0,260,123,UXX,B                                                 CPS064      1629     A     
 COMPASS            CPUOP  0,270,101,PX                                                    CPS064      1630     A     
 COMPASS            CPUOP  0,270,102,PXX                                                   CPS064      1631     A     
 COMPASS            CPUOP  0,270,121,PXB                                                   CPS064      1632     A     
 COMPASS            CPUOP  0,270,132,PXB,X                                                 CPS064      1633     A     
 COMPASS            CPUOP  0,270,123,PXX,B                                                 CPS064      1634     A     
 COMPASS            CPUOP  0,300,132,FXX+X                                                 CPS064      1635     A     
 COMPASS            CPUOP  0,310,132,FXX-X                                                 CPS064      1636     A     
 COMPASS            CPUOP  0,320,132,DXX+X                                                 CPS064      1637     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 489    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CPUOP  0,330,132,DXX-X                                                 CPS064      1638     A     
 COMPASS            CPUOP  0,340,132,RXX+X                                                 CPS064      1639     A     
 COMPASS            CPUOP  0,350,132,RXX-X                                                 CPS064      1640     A     
 COMPASS            CPUOP  0,360,132,IXX+X                                                 CPS064      1641     A     
 COMPASS            CPUOP  0,370,132,IXX-X                                                 CPS064      1642     A     
 COMPASS            CPUOP  0,400,132,FXX*X                                                 CPS064      1643     A     
 COMPASS            CPUOP  0,410,132,RXX*X                                                 CPS064      1644     A     
 COMPASS            CPUOP  0,420,132,DXX*X                                                 CPS064      1645     A     
 COMPASS            CPUOP  0,420,132,IXX*X                                                 CPS064      1646     A     
 COMPASS            CPUOP  0,430,100,MXQ                                                   CPS064      1647     A     
 COMPASS            CPUOP  0,440,132,FXX/X                                                 CPS064      1648     A     
 COMPASS            CPUOP  0,450,132,RXX/X                                                 CPS064      1649     A     
 COMPASS            CPUOP  0,460,000,NO                                                    CPS064      1650     A     
 COMPASS            CPUOP  0,460,000,NOQ                                                   CPS064      1651     A     
 COMPASS            CPUOP  7,464,020,IMB                                                   CPS064      1652     A     
 COMPASS            CPUOP  7,464,000,IMQ                                                   CPS064      1653     A     
 COMPASS            CPUOP  7,464,020,IMBQ                                                  CPS064      1654     A     
 COMPASS            CPUOP  0,470,122,CXX                                                   CPS064      1655     A     
 COMPASS            CPUOP  1,500,120,SAAQ                                                  CPS064      1656     A     
 COMPASS            CPUOP  1,600,120,SBAQ                                                  CPS064      1657     A     
 COMPASS            CPUOP  1,700,120,SXAQ                                                  CPS064      1658     A     
 COMPASS            CPUOP  1,510,100,SAQ                                                   CPS064      1659     A     
 COMPASS            CPUOP  1,610,100,SBQ                                                   CPS064      1660     A     
 COMPASS            CPUOP  1,710,100,SXQ                                                   CPS064      1661     A     
 COMPASS            CPUOP  1,510,120,SABQ                                                  CPS064      1662     A     
 COMPASS            CPUOP  1,610,120,SBBQ                                                  CPS064      1663     A     
 COMPASS            CPUOP  1,710,120,SXBQ                                                  CPS064      1664     A     
 COMPASS            CPUOP  1,520,120,SAXQ                                                  CPS064      1665     A     
 COMPASS            CPUOP  1,620,120,SBXQ                                                  CPS064      1666     A     
 COMPASS            CPUOP  1,720,120,SXXQ                                                  CPS064      1667     A     
 COMPASS            CPUOP  0,530,132,SAX+B                                                 CPS064      1668     A     
 COMPASS            CPUOP  0,630,132,SBX+B                                                 CPS064      1669     A     
 COMPASS            CPUOP  0,730,132,SXX+B                                                 CPS064      1670     A     
 COMPASS            CPUOP  0,530,123,SAB+X                                                 CPS064      1671     A     
 COMPASS            CPUOP  0,630,123,SBB+X                                                 CPS064      1672     A     
 COMPASS            CPUOP  0,730,123,SXB+X                                                 CPS064      1673     A     
 COMPASS            CPUOP  0,530,120,SAX                                                   CPS064      1674     A     
 COMPASS            CPUOP  0,630,120,SBX                                                   CPS064      1675     A     
 COMPASS            CPUOP  0,730,120,SXX                                                   CPS064      1676     A     
 COMPASS            CPUOP  0,540,120,SAA                                                   CPS064      1677     A     
 COMPASS            CPUOP  0,640,120,SBA                                                   CPS064      1678     A     
 COMPASS            CPUOP  0,740,120,SXA                                                   CPS064      1679     A     
 COMPASS            CPUOP  0,540,132,SAA+B                                                 CPS064      1680     A     
 COMPASS            CPUOP  0,640,132,SBA+B                                                 CPS064      1681     A     
 COMPASS            CPUOP  0,740,132,SXA+B                                                 CPS064      1682     A     
 COMPASS            CPUOP  0,540,123,SAB+A                                                 CPS064      1683     A     
 COMPASS            CPUOP  0,640,123,SBB+A                                                 CPS064      1684     A     
 COMPASS            CPUOP  0,740,123,SXB+A                                                 CPS064      1685     A     
 COMPASS            CPUOP  0,550,132,SAA-B                                                 CPS064      1686     A     
 COMPASS            CPUOP  0,650,132,SBA-B                                                 CPS064      1687     A     
 COMPASS            CPUOP  0,750,132,SXA-B                                                 CPS064      1688     A     
 COMPASS            CPUOP  0,550,123,SA-B+A                                                CPS064      1689     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 490    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CPUOP  0,650,123,SB-B+A                                                CPS064      1690     A     
 COMPASS            CPUOP  0,750,123,SX-B+A                                                CPS064      1691     A     
 COMPASS            CPUOP  0,560,120,SAB                                                   CPS064      1692     A     
 COMPASS            CPUOP  0,660,120,SBB                                                   CPS064      1693     A     
 COMPASS            CPUOP  0,760,120,SXB                                                   CPS064      1694     A     
 COMPASS            CPUOP  0,560,132,SAB+B                                                 CPS064      1695     A     
 COMPASS            CPUOP  0,660,132,SBB+B                                                 CPS064      1696     A     
 COMPASS            CPUOP  0,760,132,SXB+B                                                 CPS064      1697     A     
 COMPASS            CPUOP  0,570,102,SA-B                                                  CPS064      1698     A     
 COMPASS            CPUOP  0,670,102,SB-B                                                  CPS064      1699     A     
 COMPASS            CPUOP  0,770,102,SX-B                                                  CPS064      1700     A     
 COMPASS            CPUOP  0,570,132,SAB-B                                                 CPS064      1701     A     
 COMPASS            CPUOP  0,670,132,SBB-B                                                 CPS064      1702     A     
 COMPASS            CPUOP  0,770,132,SXB-B                                                 CPS064      1703     A     
 COMPASS            CPUOP  0,570,123,SA-B+B                                                CPS064      1704     A     
 COMPASS            CPUOP  0,670,123,SB-B+B                                                CPS064      1705     A     
 COMPASS            CPUOP  0,770,123,SX-B+B                                                CPS064      1706     A     
 COMPASS                                                                                   CPS064      1707     A     
 COMPASS  *         6600 CP OPCODES.                                                       CPS064      1708          I
          -F4830CP
 COMPASS                                                                                   CPS064      1709          I
          -F4830CP
 COMPASS   M.       SET    1                                                               CPS064      1710          I
          -F4830CP
 COMPASS  *         6600 AND V CP OPCODES                                                  F4830CP       21     A     
 COMPASS                                                                                   F4830CP       22     A     
 COMPASS   M.       SET    5                                                               F4830CP       23     A     
 COMPASS            CPUOP  3,011,020,REB                                                   CPS064      1711     A     
 COMPASS            CPUOP  3,011,000,REQ                                                   CPS064      1712     A     
 COMPASS            CPUOP  3,011,020,REBQ                                                  CPS064      1713     A     
 COMPASS            CPUOP  3,012,020,WEB                                                   CPS064      1714     A     
 COMPASS            CPUOP  3,012,000,WEQ                                                   CPS064      1715     A     
 COMPASS            CPUOP  3,012,020,WEBQ                                                  CPS064      1716     A     
 COMPASS            CPUOP  7,013,000,XJ                                                    CPS064      1717     A     
 COMPASS            CPUOP  7,013,020,XJB                                                   CPS064      1718     A     
 COMPASS            CPUOP  7,013,000,XJQ                                                   CPS064      1719     A     
 COMPASS            CPUOP  7,013,020,XJBQ                                                  CPS064      1720     A     
 COMPASS                                                                                   CPS064      1721     A     
 COMPASS  *         7600 CP OPCODES.                                                       CPS064      1722     A     
 COMPASS                                                                                   CPS064      1723     A     
 COMPASS   M.       SET    2                                                               CPS064      1724     A     
 COMPASS            CPUOP  4,000,000,ES                                                    CPS064      1725     A     
 COMPASS            CPUOP  4,000,000,ESQ                                                   CPS064      1726     A     
 COMPASS   SC2      IFEQ   CP#RM,7                                                         CPSA220        4     A     
 COMPASS            CPUOP  1,011,000,RLQ                                                   CPS064      1727     A     
 COMPASS            CPUOP  1,011,020,RLB                                                   CPS064      1728     A     
 COMPASS            CPUOP  1,011,020,RLBQ                                                  CPS064      1729     A     
 COMPASS            CPUOP  1,012,000,WLQ                                                   CPS064      1730     A     
 COMPASS            CPUOP  1,012,020,WLB                                                   CPS064      1731     A     
 COMPASS            CPUOP  1,012,020,WLBQ                                                  CPS064      1732     A     
 COMPASS   SC2      ELSE                                                                   CPSA220        5     A     
 COMPASS            CPUOP  3,011,000,RLQ                                                   CPSA220        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/28. 19.11.32.      PAGE 491    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CPUOP  3,011,020,RLB                                                   CPSA220        7     A     
 COMPASS            CPUOP  3,011,020,RLBQ                                                  CPSA220        8     A     
 COMPASS            CPUOP  3,012,000,WLQ                                                   CPSA220        9     A     
 COMPASS            CPUOP  3,012,020,WLB                                                   CPSA220       10     A     
 COMPASS            CPUOP  3,012,020,WLBQ                                                  CPSA220       11     A     
 COMPASS   SC2      ENDIF                                                                  CPSA220       12     A     
 COMPASS            CPUOP  5,013,000,MJQ                                                   CPS064      1733     A     
 COMPASS            CPUOP  5,013,020,MJB                                                   CPS064      1734     A     
 COMPASS            CPUOP  5,013,020,MJBQ                                                  CPS064      1735     A     
 COMPASS            CPUOP  4,013,000,MJ                                                    CPS064      1736     A     
 COMPASS            CPUOP  0,014,012,RXX                                                   CPS064      1737          I
          -F4830CP
 COMPASS            CPUOP  0,015,012,WXX                                                   CPS064      1738          I
          -F4830CP
 COMPASS            CPUOP  0,016,010,TB                                                    CPS064      1739     A     
 COMPASS            CPUOP  0,016,010,TBQ                                                   CPS064      1740     A     
 COMPASS            CPUOP  0,016,002,RIB                                                   CPS064      1741     A     
 COMPASS            CPUOP  0,016,012,IBB                                                   CPS064      1742     A     
 COMPASS            CPUOP  0,017,002,ROB                                                   CPS064      1743     A     
 COMPASS            CPUOP  0,017,012,OBB                                                   CPS064      1744     A     
 COMPASS                                                                                   F4830CP       24     A     
 COMPASS  *         V CP INSTRUCTIONS                                                      F4830CP       25     A     
 COMPASS                                                                                   F4830CP       26     A     
 COMPASS   M.       SET    4                                                               F4830CP       27     A     
 COMPASS            CPUOP  0,660,032,CRX,X                                                 F4830CP       28     A     
 COMPASS            CPUOP  0,670,032,CWX,X                                                 F4830CP       29     A     
 COMPASS            CPUOP  0,017,000,RT                                                    F4830CP       30     A     
 COMPASS                                                                                   F4830CP       31     A     
 COMPASS  *         7600 AND V CP OPCODES.                                                 F4830CP       32     A     
 COMPASS                                                                                   F4830CP       33     A     
 COMPASS   M.       SET    6                                                               F4830CP       34     A     
 COMPASS            CPUOP  0,014,012,RXX                                                   F4830CP       35     A     
 COMPASS            CPUOP  0,015,012,WXX                                                   F4830CP       36     A     
 COMPASS            LIST   *                                                               CPS064      1745     A     
 COMPASS   PSEUDO   SPACE  4                                                               CPS064      1746     A     
 COMPASS  ****      PSEUDO OPERATIONS.                                                     CPS064      1747     A     
 COMPASS  *         NEW PSEUDO-OPS MUST BE ADDED AT THE END OF THIS TABLE.                 CPS073        16     A     
 COMPASS                                                                                   CPS073        17     A     
 COMPASS                                                                                   CPS073        18     A     
 COMPASS   POPS     BSS    0                                                               CPS073        19     A     
 COMPASS   N.       SET    1                                                               CPS073        20     A     
 COMPASS   PSEUDO   SPACE  4                                                               CPS064      1748     A     
 COMPASS  **        FIRST CARD GROUP ONLY.                                                 CPS064      1749     A     
 COMPASS                                                                                   CPS064      1750     A     
 COMPASS                                                                                   CPS064      1751     A     
 COMPASS            PSEUDO 5,ABS                                                           CPS064      1752     A     
 COMPASS            PSEUD  5,MACHINE,MCH,MCH                                               CPS064      1753     A     
 COMPASS            PSEUDO 5,PERIPH                                                        CPS064      1754     A     
 COMPASS            PSEUDO 5,PPU                                                           CPS064      1755     A     
 COMPASS            PSEUDO 5,STEXT                                                         CPS064      1756     A     
 COMPASS   PSEUDO   SPACE  4                                                               CPS064      1757     A     
 COMPASS  **        PERMISSIBLE ANYWHERE.                                                  CPS064      1758     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 492    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CPS064      1759     A     
 COMPASS                                                                                   CPS064      1760     A     
 COMPASS            PSEUDO 4,BASE                                                          CPS064      1761     A     
 COMPASS            PSEUD  4,B1=1,B1=1.,.B1=1                                              CPS064      1762     A     
 COMPASS            PSEUDO 4,B7=1                                                          CPS064      1763     A     
 COMPASS            PSEUD  4,CHAR,CHAR.,CHAR.                                              CPS064      1764     A     
 COMPASS            PSEUDO 4,CODE                                                          CPS064      1765     A     
 COMPASS            PSEUDO 4,COMMENT                                                       CPS064      1766     A     
 COMPASS            PSEUDO 4,CPOP                                                          CPS064      1767     A     
 COMPASS            PSEUDO 4,CPSYN                                                         CPS064      1768     A     
 COMPASS            PSEUDO 4,DECMIC                                                        CPS064      1769     A     
 COMPASS            PSEUDO 4,EJECT                                                         CPS064      1770     A     
 COMPASS            PSEUDO 4,ENDD                                                          CPS064      1771     A     
 COMPASS            PSEUDO 4,ENDM                                                          CPS064      1772     A     
 COMPASS            PSEUDO 4,HERE                                                          CPS064      1773     A     
 COMPASS            PSEUDO 4,IFC                                                           CPS064      1774     A     
 COMPASS            PSEUDO 4,IRP                                                           CPS064      1775     A     
 COMPASS            PSEUDO 4,LIST                                                          CPS064      1776     A     
 COMPASS            PSEUDO 4,MACRO                                                         CPS064      1777     A     
 COMPASS            PSEUDO 4,MACROE                                                        CPS064      1778     A     
 COMPASS            PSEUDO 4,MICCNT                                                        CPS064      1779     A     
 COMPASS            PSEUDO 4,MICRO                                                         CPS064      1780     A     
 COMPASS            PSEUDO 4,NIL                                                           CPS064      1781     A     
 COMPASS            PSEUDO 4,NOLABEL                                                       CPS064      1782     A     
 COMPASS            PSEUDO 4,NOREF                                                         CPS064      1783     A     
 COMPASS            PSEUDO 4,OCTMIC                                                        CPS064      1784     A     
 COMPASS            PSEUDO 4,OPDEF                                                         CPS064      1785     A     
 COMPASS            PSEUDO 4,OPSYN                                                         CPS064      1786     A     
 COMPASS            PSEUDO 4,PPOP                                                          CPS064      1787     A     
 COMPASS            PSEUDO 4,PURGDEF                                                       CPS064      1788     A     
 COMPASS            PSEUDO 4,PURGMAC                                                       CPS064      1789     A     
 COMPASS            PSEUDO 4,QUAL                                                          CPS064      1790     A     
 COMPASS            PSEUDO 4,RMT                                                           CPS064      1791     A     
 COMPASS            PSEUDO 4,SKIP                                                          CPS064      1792     A     
 COMPASS            PSEUDO 4,SPACE                                                         CPS064      1793     A     
 COMPASS            PSEUDO 4,SST                                                           CPS064      1794     A     
 COMPASS            PSEUDO 4,TITLE                                                         CPS064      1795     A     
 COMPASS            PSEUDO 4,TTL                                                           CPS064      1796     A     
 COMPASS            PSEUDO 4,XREF                                                          CPS064      1797     A     
 COMPASS            PSEUD  4,(  ),BLNKOP,BLNKOP                                            CPS064      1798     A     
 COMPASS   PSEUDO   SPACE  4                                                               CPS064      1799     A     
 COMPASS  **        PROCESS WHILE IF SKIPPING.                                             CPS064      1800     A     
 COMPASS                                                                                   CPS064      1801     A     
 COMPASS                                                                                   CPS064      1802     A     
 COMPASS            PSEUDO 3,ELSE                                                          CPS064      1803     A     
 COMPASS            PSEUDO 3,END                                                           CPS064      1804     A     
 COMPASS            PSEUDO 3,ENDIF                                                         CPS064      1805     A     
 COMPASS   PSEUDO   SPACE  4                                                               CPS064      1806     A     
 COMPASS  **        CAN NOT OCCUR IN THE FIRST CARD GROUP.                                 CPS064      1807     A     
 COMPASS                                                                                   CPS064      1808     A     
 COMPASS                                                                                   CPS064      1809     A     
 COMPASS            PSEUDO 2,BSS                                                           CPS064      1810     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 493    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PSEUDO 2,BSSZ                                                          CPS064      1811     A     
 COMPASS            PSEUDO 2,CC                                                            CPS064      1812     A     
 COMPASS            PSEUD  2,COL,COL.,COL.                                                 CPS064      1813     A     
 COMPASS            PSEUDO 2,CON                                                           CPS064      1814     A     
 COMPASS            PSEUDO 2,CTEXT                                                         CPS064      1815     A     
 COMPASS            PSEUDO 2,CU                                                            CPS064      1816     A     
 COMPASS            PSEUDO 2,DATA                                                          CPS064      1817     A     
 COMPASS            PSEUDO 2,DIS                                                           CPS064      1818     A     
 COMPASS            PSEUDO 2,DM                                                            CPS064      1819     A     
 COMPASS            PSEUDO 2,DUP                                                           CPS064      1820     A     
 COMPASS            PSEUDO 2,ECHO                                                          CPS064      1821     A     
 COMPASS            PSEUDO 2,ENDX                                                          CPS064      1822     A     
 COMPASS            PSEUDO 2,ENTRY                                                         CPS064      1823     A     
 COMPASS            PSEUDO 2,ENTRYC                                                        CPS064      1824     A     
 COMPASS            PSEUDO 2,EQU                                                           CPS064      1825     A     
 COMPASS            PSEUDO 2,ERR                                                           CPS064      1826     A     
 COMPASS            PSEUDO 2,ERRMI                                                         CPS064      1827     A     
 COMPASS            PSEUDO 2,ERRNG                                                         CPS064      1828     A     
 COMPASS            PSEUDO 2,ERRNZ                                                         CPS064      1829     A     
 COMPASS            PSEUDO 2,ERRPL                                                         CPS064      1830     A     
 COMPASS            PSEUDO 2,ERRZR                                                         CPS064      1831     A     
 COMPASS            PSEUDO 2,EXT                                                           CPS064      1832     A     
 COMPASS            PSEUDO 2,IF                                                            CPS064      1833     A     
 COMPASS            PSEUDO 2,IFCP                                                          CPS064      1834     A     
 COMPASS            PSEUDO 2,IFCP6                                                         CPS064      1835     A     
 COMPASS            PSEUDO 2,IFCP7                                                         CPS064      1836     A     
 COMPASS            PSEUDO 2,IFEQ                                                          CPS064      1837     A     
 COMPASS            PSEUDO 2,IFGE                                                          CPS064      1838     A     
 COMPASS            PSEUDO 2,IFGT                                                          CPS064      1839     A     
 COMPASS            PSEUDO 2,IFLE                                                          CPS064      1840     A     
 COMPASS            PSEUDO 2,IFLT                                                          CPS064      1841     A     
 COMPASS            PSEUDO 2,IFMI                                                          CPS064      1842     A     
 COMPASS            PSEUDO 2,IFNE                                                          CPS064      1843     A     
 COMPASS            PSEUDO 2,IFPL                                                          CPS064      1844     A     
 COMPASS            PSEUDO 2,IFPP                                                          CPS064      1845     A     
 COMPASS            PSEUDO 2,IFPP6                                                         CPS064      1846     A     
 COMPASS            PSEUDO 2,IFPP7                                                         CPS064      1847     A     
 COMPASS            PSEUDO 2,LCC                                                           CPS064      1848     A     
 COMPASS            PSEUDO 2,LOC                                                           CPS064      1849     A     
 COMPASS            PSEUDO 2,LIT                                                           CPS064      1850     A     
 COMPASS            PSEUDO 2,MAX                                                           CPS064      1851     A     
 COMPASS            PSEUDO 2,MD                                                            CPS064      1852     A     
 COMPASS            PSEUDO 2,MIN                                                           CPS064      1853     A     
 COMPASS            PSEUDO 2,ORG                                                           CPS064      1854     A     
 COMPASS            PSEUDO 2,ORGC                                                          CPS064      1855     A     
 COMPASS            PSEUDO 2,IDENT                                                         CPS064      1856     A     
 COMPASS            PSEUDO 2,POS                                                           CPS064      1857     A     
 COMPASS            PSEUDO 2,REP                                                           CPS064      1858     A     
 COMPASS            PSEUDO 2,REPC                                                          CPS064      1859     A     
 COMPASS            PSEUDO 2,REPI                                                          CPS064      1860     A     
 COMPASS            PSEUDO 2,R=                                                            CPS064      1861     A     
 COMPASS            PSEUDO 2,SEG                                                           CPS064      1862     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 494    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PSEUDO 2,SEGMENT                                                       CPS064      1863     A     
 COMPASS            PSEUDO 2,SET                                                           CPS064      1864     A     
 COMPASS            PSEUDO 2,STOPDUP                                                       CPS064      1865     A     
 COMPASS            PSEUDO 2,USE                                                           CPS064      1866     A     
 COMPASS            PSEUDO 2,USELCM                                                        CPS064      1867     A     
 COMPASS            PSEUDO 2,VFD                                                           CPS064      1868     A     
 COMPASS            PSEUDO 2,XTEXT                                                         CPS064      1869     A     
 COMPASS            PSEUD  2,=,EQU,EQU                                                     CPS064      1870     A     
 COMPASS   PSEUDO   SPACE  4                                                               CP147         63     A     
 COMPASS  **        NEW PSEUDO OPS.                                                        CP147         64     A     
 COMPASS                                                                                   CP147         65     A     
 COMPASS                                                                                   CP147         66     A     
 COMPASS            PSEUDO 4,LDSET                                                         CP147         67     A     
 COMPASS            PSEUDO 5,BCU                                                           F4820        182     A     
 COMPASS            PSEUDO 5,MCU                                                           F4820        183     A     
 COMPASS            PSEUDO 4,BCOP                                                          F4820        184     A     
 COMPASS            PSEUDO 4,NDOP                                                          F4820B         5     A     
 COMPASS            PSEUDO 5,CIPPU                                                         CPSA281      121     A     
 COMPASS            PSEUDO 5,MEMSEL                                                        CPSA281      122     A     
 COMPASS            PSEUDO 2,CONL                                                          CPSA288       16     A     
 COMPASS            PSEUDO 2,VFDL                                                          CPSA288       17     A     
 COMPASS  ****                                                                             CPS064      1871     A     
 COMPASS   LGOPS    EQU    *-OPS                                                           CPS064      1872     A     
 COMPASS            BASE   DECIMAL                                                         CPS064      1873     A     
 COMPASS   GBUF     SPACE  4,8                                                             CPS064      1874     A     
 COMPASS  **        BUFFER SPACE FOR LOADING SYSTEM TEXT.                                  CPS064      1875          I
          -CPSA097
 COMPASS  *         BUFFER SPACE FOR LOADING SYSTEM TEXT.                          CPSA097 CPSA097        8     A     
 COMPASS                                                                                   CPS064      1876     A     
 COMPASS                                                                                   CPS064      1877     A     
 COMPASS            IFNE   OVERLAY,0,2                                                     CPS064      1878     A     
 COMPASS   GBUF     BSS    0           CIO BUFFER SPACE FOR *G* SYSTEXT FILE               CPS064      1879     A     
 COMPASS   ENDZ     EQU    GBUF+GBUFL  MANAGED TABLE SPACE DURING *LST* PROCESSING         CPS064      1880     A     
 COMPASS            TITLE  SECONDARY OVERLAY.                                              CPS064      1881     A     
 COMPASS            IFEQ   OVERLAY,0   SEGMENT CONTROL                                     CPS064      1882     A     
 COMPASS                                                                                   CPS064      1883     A     
 COMPASS            IDENT              SECONDARY OVERLAY.                                  CPS064      1884     A     
 COMPASS                                                                                   CPS064      1885     A     
 COMPASS            ELSE                                                                   CPS064      1886     A     
 COMPASS                                                                                   CPS064      1887     A     
 COMPASS            IDENT  "OVLA",ORGA+1,,1,1           SECONDARY OVERLAY                  CPS064      1888     A     
 COMPASS            COMMENT   CYBER 70/ MODEL "MODEL"                                      CPS064      1889     A     
 COMPASS            COMMENT   COMPREHENSIVE ASSEMBLER PROGRAM VERSION "VERSION".           CPS064      1890     A     
 COMPASS   ORGA     EQU    PRTA                                                            CPS064      1891     A     
 COMPASS            ORG    ORGA+1                                                          CPS064      1892     A     
 COMPASS                                                                                   CPS064      1893     A     
 COMPASS            ENDIF                                                                  CPS064      1894     A     
 COMPASS   PASS1    TITLE  PASS 1 CONTROL.                                                 COMPASS     5278     A     
 COMPASS  **        PASS 1 CONTROL.                                                        COMPASS     5279     A     
 COMPASS                                                                                   COMPASS     5280     A     
 COMPASS                                                                                   COMPASS     5281     A     
 COMPASS            USE    CONTROL                                                         COMPASS     5282          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 495    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SEG    CONTROL.                                                        COMPASS     5283          I
          -CMP30  
 COMPASS            QUAL   PASS1                                                           COMPASS     5284     A     
 COMPASS   PASS1    RJ     PRS         PRESET STORAGE                                      COMPASS     5285     A     
 COMPASS            TIME   ATIME                                                           COMPASS     5286     A     
 COMPASS            RJ     AUT         ALLOCATE USE TABLE                                  COMPASS     5287     A     
 COMPASS   CONTROL  SPACE  4                                                               COMPASS     5288     A     
 COMPASS  **        CTL - SEARCH FOR IDENT CARD.                                           COMPASS     5289     A     
 COMPASS                                                                                   COMPASS     5290     A     
 COMPASS                                                                                   COMPASS     5291     A     
 COMPASS   CTL      RJ     INPUT1      READ FIRST CARD                                     COMPASS     5292     A     
 COMPASS            RJ     EDIT                                                            CMP20         54     A     
 COMPASS            RJ     SETUP                                                           COMPASS     5293     A     
 COMPASS            SA1    TITBUF      SET TITLE                                           COMPASS     5294     A     
 COMPASS            RJ     SNT                                                             COMPASS     5295     A     
 COMPASS            SA1    =7R*******  PRESET IDNAM                                        COMPASS     5296     A     
 COMPASS            BX6    X1                                                              COMPASS     5297     A     
 COMPASS            SA6    IDNAM                                                           COMPASS     5298     A     
 COMPASS            SA1    IOP                                                             COMPASS     5299     A     
 COMPASS            SA2    =5RIDENT                                                        COMPASS     5300     A     
 COMPASS            BX6    X1-X2                                                           COMPASS     5301     A     
 COMPASS            ZR     X6,CTL2     IF OP CODE IS IDENT                                 COMPASS     5302     A     
 COMPASS            SX2    3REND                                                           COMPASS     5303     A     
 COMPASS            BX6    X2-X1                                                           COMPASS     5304     A     
 COMPASS            NZ     X6,CTL1     IF NOT *END* CARD                                   COMPASS     5305     A     
 COMPASS            RJ     RSS         RECORD SEGMENT START                                COMPASS     5306     A     
 COMPASS            EQ     CTL105      PROCESS END CARD                                    COMPASS     5307     A     
 COMPASS   CTL1     RJ     CWI         WRITE INTERMEDIATE FILE                             COMPASS     5308     A     
 COMPASS            EQ     CTL                                                             COMPASS     5309     A     
 COMPASS   CTL2     RJ     SCLIST      SCAN IDENT NAME                                     COMPASS     5310     A     
 COMPASS            SA6    IDNAM                                                           COMPASS     5311     A     
 COMPASS            BX1    X6          DISPLAY IDENT MESSAGE                               COMPASS     5312     A     
 COMPASS            RJ     DIM                                                             COMPASS     5313     A     
 COMPASS            RJ     RSS         RECORD SEGMENT START                                COMPASS     5314     A     
 COMPASS   CTL60    SPACE  4                                                               COMPASS     5315     A     
 COMPASS  **        CTL60 - CLEAR OPERATION CODE ERROR.                                    COMPASS     5316     A     
 COMPASS                                                                                   COMPASS     5317     A     
 COMPASS                                                                                   COMPASS     5318     A     
 COMPASS   CTL60    SX6    B0                                                              COMPASS     5319     A     
 COMPASS            SA6    OERR                                                            COMPASS     5320     A     
 COMPASS            SA6    W9ERR       AND MICRO WARNING ERROR                             COMPASS     5321     A     
 COMPASS   CTL65    MX6    0                                                               COMPASS     5322     A     
 COMPASS            SA6    AERR                                                            COMPASS     5323     A     
 COMPASS            SA6    UERR                                                            COMPASS     5324     A     
 COMPASS            SA6    W7ERR                                                           COMPASS     5325     A     
 COMPASS   CTL70    SPACE  4                                                               COMPASS     5326     A     
 COMPASS  **        CTL70 - RETURN POINT FOR MOST OPERATION CODE PROCESSORS.               COMPASS     5327     A     
 COMPASS                                                                                   COMPASS     5328     A     
 COMPASS                                                                                   COMPASS     5329     A     
 COMPASS   CTL70    RJ     WINTER      WRITE INTERMEDIATE FILE                             COMPASS     5330     A     
 COMPASS   CTL100   SPACE  4                                                               COMPASS     5331     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 496    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        CTL100 - MAIN COMPASS PASS 1 CONTROL.                                  COMPASS     5332     A     
 COMPASS                                                                                   COMPASS     5333     A     
 COMPASS                                                                                   COMPASS     5334     A     
 COMPASS   CTL100   RJ     INPUT1      READ NEXT CARD                                      COMPASS     5335     A     
 COMPASS            SA1    IFCNT       CHECK IF-SKIPPING                                   CPS066         1     A     
 COMPASS            SX6    1                                                               CPS066         2     A     
 COMPASS            ZR     X1,CTL105   IF NOT SKIPPING                                     CPS066         3     A     
 COMPASS            SA2    CARD                                                            CPS106         5     A     
 COMPASS            SB7    X2-1R*      CHECK FOR COMMENT CARD                              CPS106         6     A     
 COMPASS            ZR     B7,CTL290   IF COMMENT CARD                                     CPS106         7     A     
 COMPASS            IX6    X1-X6       REDUCE COUNT                                        CPS066         4     A     
 COMPASS            SA6    A1                                                              CPS066         5     A     
 COMPASS            NZ     X6,CTL105   IF STILL SKIPPING                                   CPS066         6     A     
 COMPASS            SA6    NOAS        CLEAR NO-ASSEMBLY FLAG                              CPS066         7     A     
 COMPASS   CTL105   RJ     EDIT        REMOVE CONCATENATION AND MICROS                     COMPASS     5336     A     
 COMPASS   CTL110   RJ     SETUP       PREPARE FOR ASSEMBLY                                COMPASS     5337     A     
 COMPASS            SA1    STYPE                                                           COMPASS     5338     A     
 COMPASS            SB7    X1-1R*      CHECK FOR COMMENTS CARD                             COMPASS     5339     A     
 COMPASS            ZR     B7,CTL290   IF COMMENT CARD                                     COMPASS     5340     A     
 COMPASS            SA1    POSCTR      CHECK FOR END OF WORD                               COMPASS     5341     A     
 COMPASS   +        NZ     X1,*+1                                                          COMPASS     5342     A     
 COMPASS            RJ     YFOUP       PUSH ON TO NEXT WORD                                COMPASS     5343     A     
 COMPASS            SA1    IOP         LOOK UP OPERATION CODE                              COMPASS     5344     A     
 COMPASS            RJ     TLUOP                                                           COMPASS     5345     A     
 COMPASS            SA1    OPTYPE      DETERMINE TYPE OF OPCODE                            COMPASS     5346     A     
 COMPASS            SX0    7                                                               COMPASS     5347     A     
 COMPASS            AX1    57                                                              COMPASS     5348     A     
 COMPASS            BX2    X1*X0                                                           COMPASS     5349     A     
 COMPASS            SA5    IFCNT       CHECK IF-SKIPPING                                   COMPASS     5350     A     
 COMPASS            MX7    59                                                              COMPASS     5351          I
          -CPS066 
 COMPASS            SA4    MACHINE                                                         COMPASS     5352     A     
 COMPASS   +        ZR     X5,*+1      JUMP IF NOT SKIPPING                                COMPASS     5353          I
          -CPS066 
 COMPASS            IX6    X5+X7       REDUCE COUNT                                        COMPASS     5354          I
          -CPS066 
 COMPASS            SA6    A5          STORE BACK                                          COMPASS     5355          I
          -CPS066 
 COMPASS   +        SA5    A5                                                              COMPASS     5356          I
          -CPS066 
 COMPASS            SX3    X2-3                                                            COMPASS     5357     A     
 COMPASS   +        ZR     X5,*+1      IF NOT SKIPPING                                     COMPASS     5358     A     
 COMPASS            NZ     X3,CTL60    JUMP IF SKIPPING AND NOT END OR ENDIF               COMPASS     5359     A     
 COMPASS            SB7    X2-4                                                            COMPASS     5360     A     
 COMPASS            ZR     B7,CTL280   IF TYPE 4                                           COMPASS     5361     A     
 COMPASS            PL     B7,CTL260   IF TYPES 5,6 OR 7                                   COMPASS     5362     A     
 COMPASS            SX6    B1          SET FIRST CARD GROUP FLAG                           COMPASS     5363     A     
 COMPASS            SA6    IFCDGP                                                          COMPASS     5364     A     
 COMPASS            JP     CTL200+4+B7                                                     COMPASS     5365     A     
 COMPASS                                                                                   COMPASS     5366     A     
 COMPASS   CTL200   ZR     X4,CTLCP    TYPE 0 - CP OPERATION                               COMPASS     5367     A     
 COMPASS            EQ     CTLPPER     IF CP OP IN PP CODING                               COMPASS     5368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 497    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        NZ     X4,CTLPP    TYPE 1 - PP OPERATION                               COMPASS     5369     A     
 COMPASS            EQ     CTLCP       IF PP OP IN CP CODING                               COMPASS     5370     A     
 COMPASS   +        NO                 TYPE 2 - NORMAL PSEUDO OPERATION                    COMPASS     5371     A     
 COMPASS   CTL280   SA1    OPTYPE      TYPE 3 - PSEUDO PROCESSED WHILE IN IF CODE          COMPASS     5372     A     
 COMPASS            AX1    18          JUMP ON PSEUDO OP                                   COMPASS     5373     A     
 COMPASS            SB7    X1                                                              COMPASS     5374     A     
 COMPASS            JP     B7                                                              COMPASS     5375     A     
 COMPASS   CTL260   SPACE  4                                                               COMPASS     5376     A     
 COMPASS  **        CTL260 - TYPE 5, 6, AND 7 PSEUDO OPERATIONS.                           COMPASS     5377     A     
 COMPASS                                                                                   COMPASS     5378     A     
 COMPASS                                                                                   COMPASS     5379     A     
 COMPASS   CTL260   GT     B7,B1,MACALL IF MACRO (TYPES 6 + 7)                             COMPASS     5380     A     
 COMPASS            SA1    IFCDGP      CHECK IF THIS CARD IS LEGAL                         COMPASS     5381     A     
 COMPASS            ZR     X1,CTL280   JUMP IF SO                                          COMPASS     5382     A     
 COMPASS   CTL80    SX6    B1          NOTE OP CODE ERROR                                  COMPASS     5383     A     
 COMPASS            SA6    EFLG                                                            COMPASS     5384     A     
 COMPASS            SA6    OERR        COMPLAIN AND IGNORE OP                              COMPASS     5385     A     
 COMPASS            EQ     CTL70                                                           COMPASS     5386     A     
 COMPASS   CONTROL  SPACE  4                                                               COMPASS     5387     A     
 COMPASS  **        CTL200 - CHECK IF SKIP COUNT FOR COMMENT CARDS.                        COMPASS     5388     A     
 COMPASS                                                                                   COMPASS     5389     A     
 COMPASS                                                                                   COMPASS     5390     A     
 COMPASS   CTL290   SA5    IFCNT                                                           COMPASS     5391     A     
 COMPASS            SB7    X5                                                              COMPASS     5392     A     
 COMPASS            NE     B7,B1,CTL300 IF STILL IF-SKIPPING                               COMPASS     5393     A     
 COMPASS            SX6    B0          TERMINATE IF-SKIPPING                               COMPASS     5394     A     
 COMPASS            SA6    A5                                                              COMPASS     5395     A     
 COMPASS  *         EQ     CTL300                                                          COMPASS     5396     A     
 COMPASS   CTL300   SPACE  4                                                               COMPASS     5397     A     
 COMPASS  **        CTL300 - RETURN POINT FOR PSEUDOS WITH NO PASS 2 PROCESSING.           COMPASS     5398     A     
 COMPASS                                                                                   COMPASS     5399     A     
 COMPASS                                                                                   COMPASS     5400     A     
 COMPASS   CTL300   RJ     CWI         CONDITIONALLY WRITE THE INTERMEDIATE                COMPASS     5401     A     
 COMPASS            EQ     CTL100      READ NEXT CARD                                      COMPASS     5402     A     
 COMPASS   CONTROL  SPACE  4                                                               COMPASS     5403     A     
 COMPASS  **        CTL400 - RETURN POINT FOR PSEUDOS THAT HAVE OPCODE CHANGED.            COMPASS     5404     A     
 COMPASS                                                                                   COMPASS     5405     A     
 COMPASS                                                                                   COMPASS     5406     A     
 COMPASS   CTL400   SX6    B1                                                              COMPASS     5407     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS     5408     A     
 COMPASS            RJ     CWI         WRITE INTERMEDIATE                                  COMPASS     5409     A     
 COMPASS            MX6    0                                                               COMPASS     5410     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS     5411     A     
 COMPASS            EQ     CTL100      READ NEXT CARD                                      COMPASS     5412     A     
 COMPASS   ERA      SPACE  4                                                               COMPASS     5413     A     
 COMPASS  **        ERA - RETURN POINT FOR PSEUDOS WITH *A* ERROR.                         COMPASS     5414     A     
 COMPASS                                                                                   COMPASS     5415     A     
 COMPASS                                                                                   COMPASS     5416     A     
 COMPASS   ERA      SX6    B1                                                              COMPASS     5417     A     
 COMPASS            SA6    EFLG                                                            COMPASS     5418     A     
 COMPASS            SA6    AERR                                                            COMPASS     5419     A     
 COMPASS            EQ     CTL70                                                           COMPASS     5420     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 498    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RJY      SPACE  4                                                               COMPASS     5421     A     
 COMPASS  **        SCAN INSTRUCTION FOR SCAD WHILE IN PASS 1.                             COMPASS     5422     A     
 COMPASS                                                                                   COMPASS     5423     A     
 COMPASS                                                                                   COMPASS     5424     A     
 COMPASS   RJY      SA1    EXLGN       SCAN INITIALIZE RJ INSTRUCTION                      COMPASS     5425     A     
 COMPASS            RJ     YEVITEM                                                         COMPASS     5426     A     
 COMPASS   CTLCP    EJECT                                                                  COMPASS     5427          I
          -CPSA097
 COMPASS   CTLCP    EJECT  4                                                       CPSA097 CPSA097        9     A     
 COMPASS  **        DECODE CENTRAL PROCESSOR OPERATIONS.                                   COMPASS     5428     A     
 COMPASS                                                                                   COMPASS     5429     A     
 COMPASS                                                                                   COMPASS     5430     A     
 COMPASS   CTLCP    SA1    COL         RECLAIM FIRST 2 LETTERS OF OP CODE                  COMPASS     5431     A     
 COMPASS            SA2    X1+CARD                                                         COMPASS     5432     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     5433     A     
 COMPASS            LX2    6                                                               COMPASS     5434     A     
 COMPASS            BX6    X2+X3                                                           COMPASS     5435     A     
 COMPASS            MX7    0                                                               COMPASS     5436     A     
 COMPASS            SA6    OPADS                                                           COMPASS     5437     A     
 COMPASS            SA7    A6+B1       OPADS+1                                             COMPASS     5438     A     
 COMPASS            SA7    A7+B1       OPADS+2                                             COMPASS     5439     A     
 COMPASS            SX6    X1+B1                                                           COMPASS     5440     A     
 COMPASS            SA7    A7+B1       OPADS+3                                             COMPASS     5441     A     
 COMPASS            SA7    P1TEMP      SUBFIELD COUNT                                      COMPASS     5442     A     
 COMPASS            SA7    P1TEMPC                                                         COMPASS     5443     A     
 COMPASS            SA6    COLUMN                                                          COMPASS     5444     A     
 COMPASS            RJ     GETCH                                                           COMPASS     5445     A     
 COMPASS            SB7    X1-3        CHECK FOR AN A, B, OR X                             COMPASS     5446     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS     5447     A     
 COMPASS   +        NG     B7,*+1                                                          COMPASS     5448     A     
 COMPASS            NZ     B6,CTLCP1                                                       COMPASS     5449     A     
 COMPASS            SX1    60                                                              COMPASS     5450     A     
 COMPASS            RJ     YEVITEM     CHECK FOR OP-CODE REGISTER                          COMPASS     5451     A     
 COMPASS            SA2    ELREG                                                           COMPASS     5452     A     
 COMPASS            ZR     X2,CTLCPER  BAD OP-CODE                                         COMPASS     5453     A     
 COMPASS            SA1    CHAR                                                            COMPASS     5454     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     5455     A     
 COMPASS            ZR     B7,CTLCP2   IF END OF OPCODE FIELD                              COMPASS     5456     A     
 COMPASS            NE     B1,B7,CTLCPER IF NOT *,*                                        COMPASS     5457     A     
 COMPASS            EQ     CTLCP2A                                                         COMPASS     5458     A     
 COMPASS   CTLCP1   RJ     GETCH       MAKE SURE IT IS 2-LETTER OP CODE                    COMPASS     5459     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     5460     A     
 COMPASS            EQ     B7,B1,CTLCP2A IF COMMA                                          CMP9           1     A     
 COMPASS            NZ     B7,CTLCPER  ERROR IF NOT 2-LETTER OP                            COMPASS     5461     A     
 COMPASS                                                                                   COMPASS     5462     A     
 COMPASS  *         ENTRY ON NEW SUBFIELD.                                                 COMPASS     5463     A     
 COMPASS                                                                                   COMPASS     5464     A     
 COMPASS   CTLCP2   SA2    P1TEMPC                                                         COMPASS     5465     A     
 COMPASS            NZ     X2,CTLCP2A  IF IN VARIABLE FIELD                                COMPASS     5466     A     
 COMPASS            SA1    COL+1       RESET TO VARIABLE FIELD                             COMPASS     5467     A     
 COMPASS            BX6    X1                                                              COMPASS     5468     A     
 COMPASS            SA6    A2                                                              COMPASS     5469     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 499    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    COLUMN                                                          COMPASS     5470     A     
 COMPASS   CTLCP2A  RJ     GETCH                                                           COMPASS     5471     A     
 COMPASS            MX6    0                                                               COMPASS     5472     A     
 COMPASS            SA6    P1TEMPA     REGISTER COUNT                                      COMPASS     5473     A     
 COMPASS                                                                                   COMPASS     5474     A     
 COMPASS  *         ENTRY ON NEW TERM.                                                     COMPASS     5475     A     
 COMPASS                                                                                   COMPASS     5476     A     
 COMPASS   CTLCP3   SB7    X1-1R       CHECK FOR END OF ADDRESS EXPRESSION                 COMPASS     5477     A     
 COMPASS            ZR     B7,CTLCP10  IF END OF ADDRESS FIELD                             COMPASS     5478     A     
 COMPASS            EQ     B7,B1,CTLCP9A IF COMMA                                          COMPASS     5479     A     
 COMPASS            MX6    0                                                               COMPASS     5480     A     
 COMPASS            SA6    P1TEMP+2    OPERATOR                                            COMPASS     5481     A     
 COMPASS            SB7    X1-1R&                                                          COMPASS     5482     A     
 COMPASS            ZR     B7,CTLCP4   IF LOGICAL MINUS                                    COMPASS     5483     A     
 COMPASS            SB7    X1-1R+                                                          COMPASS     5484     A     
 COMPASS            ZR     B7,CTLCP4   IF PLUS SIGN                                        COMPASS     5485     A     
 COMPASS            NE     B7,B1,CTLCP5                                                    COMPASS     5486     A     
 COMPASS            SX6    B1          SET FLAG FOR MINUS SIGN                             COMPASS     5487     A     
 COMPASS            SA6    A6                                                              COMPASS     5488     A     
 COMPASS   CTLCP4   RJ     GETCH                                                           COMPASS     5489     A     
 COMPASS   CTLCP5   SX1    60          EVALUATE ITEM                                       COMPASS     5490     A     
 COMPASS            RJ     YEVITEM                                                         COMPASS     5491     A     
 COMPASS   CTLCP6A  SA2    ELREG                                                           COMPASS     5492     A     
 COMPASS            SA5    P1TEMP      SUBFIELD COUNT                                      COMPASS     5493     A     
 COMPASS            SA3    X5+OPADS+1  SUBFIELD MASK                                       COMPASS     5494     A     
 COMPASS            SA4    A5+B1       REGISTER COUNT                                      COMPASS     5495     A     
 COMPASS            SA5    A4+B1       OPERATOR                                            COMPASS     5496     A     
 COMPASS            ZR     X2,CTLCP6   IF NOT REGISTER                                     COMPASS     5497     A     
 COMPASS            AX2    3                                                               COMPASS     5498     A     
 COMPASS            LX5    2                                                               COMPASS     5499     A     
 COMPASS            SB7    X2-3                                                            COMPASS     5500     A     
 COMPASS   +        NG     B7,*+1      CORRECT FOR X REGISTER                              COMPASS     5501     A     
 COMPASS            SX2    3                                                               COMPASS     5502     A     
 COMPASS            SB7    X4                                                              COMPASS     5503     A     
 COMPASS            BX5    X5+X2                                                           COMPASS     5504     A     
 COMPASS            GT     B7,B1,CTLCPER ERROR IF 3RD REGISTER                             COMPASS     5505     A     
 COMPASS            EQ     B7,B1,CTLCP7A IF SECOND REGISTER                                COMPASS     5506     A     
 COMPASS            LX5    5                                                               COMPASS     5507     A     
 COMPASS            BX6    X3+X5       OR INTO MASK FOR FIRST REGISTER                     COMPASS     5508     A     
 COMPASS            SX7    X4+B1                                                           COMPASS     5509     A     
 COMPASS            SA6    A3                                                              COMPASS     5510     A     
 COMPASS            SA7    A4                                                              COMPASS     5511     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS     5512     A     
 COMPASS   +        ZR     B7,*+1      CHECK FOR CONNECTING * OR /                         COMPASS     5513     A     
 COMPASS            NE     B7,B1,CTLCP3                                                    COMPASS     5514     A     
 COMPASS            SX6    X1-45B                                                          COMPASS     5515     A     
 COMPASS            SA6    A5                                                              COMPASS     5516     A     
 COMPASS            RJ     GETCH                                                           COMPASS     5517     A     
 COMPASS            SX1    60                                                              COMPASS     5518     A     
 COMPASS            RJ     YEVITEM                                                         COMPASS     5519     A     
 COMPASS            SA2    ELREG       MAKE SURE IT IS A REGISTER                          COMPASS     5520     A     
 COMPASS            NZ     X2,CTLCP6A                                                      COMPASS     5521     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 500    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CTLCPER  MX6    0           MAKE BAD OP CODE                                    COMPASS     5522     A     
 COMPASS            SA6    OPADS                                                           COMPASS     5523     A     
 COMPASS            EQ     CTLCP10                                                         COMPASS     5524          I
          -CMP9   
 COMPASS            EQ     CTLCP11                                                         CMP9           2     A     
 COMPASS   CTLCP7A  LX5    1           OR IN FOR SECOND REGISTER                           COMPASS     5525     A     
 COMPASS            SX7    X4+B1                                                           COMPASS     5526     A     
 COMPASS            BX6    X3+X5                                                           COMPASS     5527     A     
 COMPASS            SA7    A4                                                              COMPASS     5528     A     
 COMPASS            SA6    A3                                                              COMPASS     5529     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS     5530     A     
 COMPASS            ZR     B7,CTLCPER                                                      COMPASS     5531     A     
 COMPASS            EQ     B7,B1,CTLCPER                                                   COMPASS     5532     A     
 COMPASS            EQ     CTLCP3                                                          COMPASS     5533     A     
 COMPASS                                                                                   COMPASS     5534     A     
 COMPASS   CTLCP6   SX4    B1          SPACE OVER ADDRESS ITEM                             COMPASS     5535     A     
 COMPASS            BX6    X3+X4       SET ADDRESS FLAG                                    COMPASS     5536     A     
 COMPASS            SA6    A3                                                              COMPASS     5537     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS     5538     A     
 COMPASS   +        ZR     B7,*+1                                                          COMPASS     5539     A     
 COMPASS            NE     B7,B1,CTLCP3                                                    COMPASS     5540     A     
 COMPASS            RJ     GETCH                                                           COMPASS     5541     A     
 COMPASS            SX1    60                                                              COMPASS     5542     A     
 COMPASS            RJ     YEVITEM                                                         COMPASS     5543     A     
 COMPASS            SA2    ELREG                                                           COMPASS     5544     A     
 COMPASS            NZ     X2,CTLCPER  COMPLAIN IF REGISTER                                COMPASS     5545     A     
 COMPASS            EQ     CTLCP6A                                                         COMPASS     5546     A     
 COMPASS                                                                                   COMPASS     5547     A     
 COMPASS  *         END OF SUBFIELD.                                                       CMP26         19     A     
 COMPASS                                                                                   CMP26         20     A     
 COMPASS   CTLCP9A  SA2    P1TEMP      COMMA                                               COMPASS     5548     A     
 COMPASS            SB6    X1-1R,                                                          CMP9           3     A     
 COMPASS            SX6    X2+B1       UP SUBFIELD COUNT                                   COMPASS     5549     A     
 COMPASS            SB7    X6-3                                                            COMPASS     5550     A     
 COMPASS            SA6    A2                                                              COMPASS     5551     A     
 COMPASS            NG     B7,CTLCP2                                                       COMPASS     5552          I
          -CMP9   
 COMPASS            EQ     CTLCPER     TOO MANY COMMAS                                     COMPASS     5553          I
          -CMP9   
 COMPASS            PL     B7,CTLCPER  IF TOO MANY COMMAS                                  CMP9           4     A     
 COMPASS            ZR     B6,CTLCP2A  IF COMMA                                            CMP9           5     A     
 COMPASS            EQ     CTLCP3                                                          CMP9           6     A     
 COMPASS                                                                                   COMPASS     5554     A     
 COMPASS  *         END OF FIELD.                                                          CMP26         21     A     
 COMPASS                                                                                   CMP26         22     A     
 COMPASS   CTLCP10  SA1    P1TEMPC     CHECK FOR END OF FIELD                              COMPASS     5555          I
          -CMP9   
 COMPASS            ZR     X1,CTLCP9A  IF NOT END OF FIELD                                 COMPASS     5556          I
          -CMP9   
 COMPASS            SA2    OPADS       CREATE LOOK UP MASK                                 COMPASS     5557          I
          -CMP9   
 COMPASS   CTLCP10  SA2    P1TEMPC     CHECK FOR END OF FIELD                              CMP9           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/28. 19.11.32.      PAGE 501    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X2,CTLCP11  IF END OF ADDRESS FIELD                             CMP9           8     A     
 COMPASS            SA1    COL+1       RESET TO ADDRESS FIELD                              CMP9           9     A     
 COMPASS            BX6    X1                                                              CMP9          10     A     
 COMPASS            SA6    A2                                                              CMP9          11     A     
 COMPASS            SA6    COLUMN                                                          CMP9          12     A     
 COMPASS            RJ     GETCH                                                           CMP9          13     A     
 COMPASS            MX6    0                                                               CMP9          14     A     
 COMPASS            SB7    X1-1R                                                           CMP9          15     A     
 COMPASS            SA6    P1TEMPA     REGISTER COUNT                                      CMP9          16     A     
 COMPASS            NZ     B7,CTLCP9A  IF NOT BLANK                                        CMP9          17     A     
 COMPASS                                                                                   CMP26         23     A     
 COMPASS  *         END OF STATEMENT.                                                      CMP26         24     A     
 COMPASS                                                                                   CMP26         25     A     
 COMPASS   CTLCP11  SA2    OPADS       CREATE LOOK UP MASK                                 CMP9          18     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     5558     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     5559     A     
 COMPASS            LX2    36                                                              COMPASS     5560     A     
 COMPASS            LX3    28                                                              COMPASS     5561     A     
 COMPASS            LX4    20                                                              COMPASS     5562     A     
 COMPASS            BX6    X2+X3                                                           COMPASS     5563     A     
 COMPASS            IX7    X6+X4                                                           COMPASS     5564     A     
 COMPASS            SA2    A4+B1                                                           COMPASS     5565     A     
 COMPASS            LX2    12                                                              COMPASS     5566     A     
 COMPASS            SX0    1R                                                              COMPASS     5567     A     
 COMPASS            BX4    X7+X2                                                           COMPASS     5568     A     
 COMPASS            IX1    X4+X0                                                           COMPASS     5569     A     
 COMPASS            RJ     TLUOP                                                           COMPASS     5570     A     
 COMPASS            SA2    OPTYPE                                                          COMPASS     5571     A     
 COMPASS            SB7    B0          SET B7 IN CASE THIS IS OPDEF                        COMPASS     5572     A     
 COMPASS            NG     X2,MACALL   IF OPDEF CALL                                       COMPASS     5573     A     
 COMPASS            NZ     X2,CTLCP7   IF VALID OPCODE ENTRY                               COMPASS     5574     A     
 COMPASS            SX7    B1          SET OP CODE ERROR TO A 30-BIT INSTRUCTION           COMPASS     5575     A     
 COMPASS            SA7    EFLG                                                            COMPASS     5576     A     
 COMPASS            SA7    OERR                                                            COMPASS     5577     A     
 COMPASS            LX7    27                                                              COMPASS     5578     A     
 COMPASS            BX2    X7                                                              COMPASS     5579     A     
 COMPASS            SA7    OPTYPE                                                          COMPASS     5580     A     
 COMPASS   CTLCP7   SX0    B1                                                              COMPASS     5581     A     
 COMPASS            AX2    27                                                              COMPASS     5582     A     
 COMPASS            BX6    X0*X2       FLAG BIT FOR 30-BIT INSTRUCTION                     COMPASS     5583     A     
 COMPASS            AX2    1                                                               COMPASS     5584     A     
 COMPASS            BX7    X0*X2       FLAG BIT FOR FORCE UPPER                            COMPASS     5585     A     
 COMPASS            SA5    NFOUP                                                           COMPASS     5586     A     
 COMPASS            AX4    X6          15 OR 30 BIT FLAG                                   COMPASS     5587     A     
 COMPASS            BX7    X7+X5       OR INTO FORCE FROM LAST INSTRUCTION                 COMPASS     5588     A     
 COMPASS            SA7    A5                                                              COMPASS     5589     A     
 COMPASS            LX6    4                                                               COMPASS     5590     A     
 COMPASS            IX4    X6-X4                                                           COMPASS     5591     A     
 COMPASS            SX1    X4+15                                                           COMPASS     5592     A     
 COMPASS            BX6    X1                                                              COMPASS     5593     A     
 COMPASS            SA6    P1TEMP      LENGTH OF OPERATION CODE                            COMPASS     5594     A     
 COMPASS            RJ     YPRLOC      PROCESS LOCATION FIELD                              COMPASS     5595     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 502    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX0    B1                                                              COMPASS     5596     A     
 COMPASS            SA2    OPTYPE                                                          COMPASS     5597     A     
 COMPASS            AX2    29                                                              COMPASS     5598     A     
 COMPASS            BX6    X2*X0                                                           COMPASS     5599     A     
 COMPASS            SA6    NFOUP                                                           COMPASS     5600     A     
 COMPASS            SA1    P1TEMP                                                          COMPASS     5601     A     
 COMPASS            RJ     UPPOS       UP POSITION COUNTER                                 COMPASS     5602     A     
 COMPASS   CTLCP8   SA1    OPTYPE      CHECK MACHINE TYPE                                  CMP30       2379     A     
 COMPASS            SA2    MTYPE                                                           CMP30       2380     A     
 COMPASS            SX0    3                                                               CMP30       2381          I
          -F4830CP
 COMPASS            BX3    X0-X2                                                           CMP30       2382          I
          -F4830CP
 COMPASS            AX1    30                                                              CMP30       2383          I
          -F4830CP
 COMPASS            BX4    X0*X1                                                           CMP30       2384          I
          -F4830CP
 COMPASS            BX5    X3-X4                                                           CMP30       2385          I
          -F4830CP
 COMPASS            SX6    B1                                                              CMP30       2386          I
          -F4830CP
 COMPASS            NZ     X5,CTL65    IF INSTRUCTION DEFINED FOR MACHINE                  CMP30       2387          I
          -F4830CP
 COMPASS            SX0    7B                                                              F4830CP       37     A     
 COMPASS            ZR     X2,CTL65    IF MACHINE NOT SPECIFIED OR TYPE OMITTED            F4830CP       38     A     
 COMPASS            AX1    30                                                              F4830CP       39     A     
 COMPASS            BX4    X0*X1                                                           F4830CP       40     A     
 COMPASS            ZR     X4,CTL65    IF INSTRUCTION VALID ON ANY PROCESSOR               F4830CP       41     A     
 COMPASS            BX5    X2*X4                                                           F4830CP       42     A     
 COMPASS            SX6    B1                                                              F4830CP       43     A     
 COMPASS            NZ     X5,CTL65    IF INSTRUCTION VALID ON THIS PROCESSOR              F4830CP       44     A     
 COMPASS            SA6    EFLG                                                            CMP30       2388     A     
 COMPASS            SA6    OERR        OPCODE ERROR                                        CMP30       2389     A     
 COMPASS            SA6    MACHFLG                                                         CPSA140        7     A     
 COMPASS            EQ     CTL65                                                           COMPASS     5603     A     
 COMPASS   CTLBC    EJECT                                                                  F4820        185     A     
 COMPASS  **        PROCESS BC INSTRUCTION.                                                F4820        186     A     
 COMPASS                                                                                   F4820        187     A     
 COMPASS                                                                                   F4820        188     A     
 COMPASS   CTLBC    SX1    16                                                              F4820        189     A     
 COMPASS            RJ     YPRLOC      PROCESS LOCATION                                    F4820        190     A     
 COMPASS            SX1    16                                                              F4820        191     A     
 COMPASS            RJ     UPPOS       UP POSITION COUNTER                                 F4820        192     A     
 COMPASS            SA2    OPTYPE                                                          F4820        193          I
          -F4820B 
 COMPASS            SX1    60                                                              F4820        194          I
          -F4820B 
 COMPASS            LX2    59-29                                                           F4820        195          I
          -F4820B 
 COMPASS            LX3    X2,B1                                                           F4820        196          I
          -F4820B 
 COMPASS            BX2    X2*X3                                                           F4820        197          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 503    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F4820B 
 COMPASS            PL     X2,CTLBC1   IF ONLY ONE FIELD                                   F4820        198          I
          -F4820B 
 COMPASS            RJ     SCAD                                                            F4820        199          I
          -F4820B 
 COMPASS   CTLBC1   SX1    60          CHECK FOR POSSIBLE LITERALS                         F4820        200          I
          -F4820B 
 COMPASS            RJ     SCAD                                                            F4820        201          I
          -F4820B 
 COMPASS   CTLBC2   SA2    EXSTOP      CHECK FOR EXTRA ADDRESS FIELD                       F4820        202          I
          -F4820B 
 COMPASS            SA1    OPTYPE      CHECK INSTRUCTION                                   F4820B         6     A     
 COMPASS            MX2    -3                                                              F4820B         7     A     
 COMPASS            LX1    -27                                                             F4820B         8     A     
 COMPASS            BX6    -X2*X1                                                          F4820B         9     A     
 COMPASS            NZ     X6,CTLBC1   IF NOT TYPE 0                                       F4820B        10     A     
 COMPASS            LX1    5           CHECK NAD EXTENSION                                 F4820B        11     A     
 COMPASS            MX6    -5                                                              F4820B        12     A     
 COMPASS            BX6    -X6*X1                                                          F4820B        13     A     
 COMPASS            ZR     X6,CTLBC1   IF NOT NAD EXTENSION                                F4820B        14     A     
 COMPASS            IX6    X6-X2       TYPE = 7 + NAD EXTENSION                            F4820B        15     A     
 COMPASS            SB2    X6-/PASS2/ZBCAL                                                 F4820B        16     A     
 COMPASS            NG     B2,CTLBC1                                                       F4820B        17     A     
 COMPASS            SX6    B0                                                              F4820B        18     A     
 COMPASS   CTLBC1   SA1    /PASS2/ZBCA+X6 CHECK ADDRESS FIELD CONTROL                      F4820B        19     A     
 COMPASS            BX6    X1                                                              F4820B        20     A     
 COMPASS            SA6    P1TEMPA                                                         F4820B        21     A     
 COMPASS            SA6    P1TEMPB                                                         F4820B        22     A     
 COMPASS   CTLBC2   SX1    60          SCAN FOR LITERALS                                   F4820B        23     A     
 COMPASS            RJ     SCAD                                                            F4820B        24     A     
 COMPASS            SA1    P1TEMPB     CHECK ADDRESS FIELD DESCRIPTOR                      F4820B        25     A     
 COMPASS            LX6    X1,B1                                                           F4820B        26     A     
 COMPASS            SA6    A1                                                              F4820B        27     A     
 COMPASS            NG     X1,CTLBC2   IF MORE ADDRESS FIELDS                              F4820B        28     A     
 COMPASS            SA1    P1TEMPA     ADVANCE OVER INSTRUCTION WORDS                      F4820B        29     A     
 COMPASS            AX1    36                                                              F4820B        30     A     
 COMPASS            SX1    X1                                                              F4820B        31     A     
 COMPASS            RJ     UPPOS                                                           F4820B        32     A     
 COMPASS            SA2    EXSTOP      CHECK FOR EXTRA ADDRESS FIELD                       F4820B        33     A     
 COMPASS            ZR     X2,CTL65                                                        F4820        203     A     
 COMPASS            SX6    B1          SET 8-ERR FOR EXTRA ADDRESS FIELD                   F4820        204     A     
 COMPASS            SA6    EFLG                                                            F4820        205     A     
 COMPASS            SA6    W8ERR                                                           F4820        206     A     
 COMPASS            EQ     CTL65                                                           F4820        207     A     
 COMPASS                                                                                   F4820        208     A     
 COMPASS            VFD    3/1,1/0,29/5,27/ MASK FOR BAD 180 INSTRUCTION                   CPSA281      123     A     
 COMPASS            VFD    3/1,1/1,29/0,27/ MASK FOR BAD MC INSTRUCTION                    F4820        209     A     
 COMPASS   CTLPPM   VFD    3/1,1/1,29/6,27/ MASK FOR BAD BC INSTRUCTION                    F4820        210     A     
 COMPASS            VFD    3/1,30/5,27/     MASK FOR BAD PP INSTRUCTION                    F4820        211     A     
 COMPASS            VFD    3/1,1/0,29/5,27/ MASK FOR BAD 7000 PPU INSTRUCTION              CPSA281      124     A     
 COMPASS   CTLMC    SPACE  4,30                                                            F4820        212     A     
 COMPASS  **        PROCESS MC INSTRUCTION.                                                F4820        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/28. 19.11.32.      PAGE 504    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   F4820        214     A     
 COMPASS                                                                                   F4820        215     A     
 COMPASS   CTLMC    SX1    8                                                               F4820        216     A     
 COMPASS            RJ     YPRLOC      PROCESS LOCATION                                    F4820        217     A     
 COMPASS            SX1    8                                                               F4820        218     A     
 COMPASS            RJ     UPPOS       UP POSITION COUNTER                                 F4820        219     A     
 COMPASS            SX1    60          SCAN ADDRESS                                        F4820        220     A     
 COMPASS            RJ     SCAD                                                            F4820        221     A     
 COMPASS            SA2    OPTYPE                                                          F4820        222     A     
 COMPASS            MX6    -3                                                              F4820        223     A     
 COMPASS            AX2    27                                                              F4820        224     A     
 COMPASS            BX2    -X6*X2                                                          F4820        225     A     
 COMPASS            SX1    8                                                               F4820        226     A     
 COMPASS            ZR     X2,CMC2     IF NO ADDRESS                                       F4820        227     A     
 COMPASS            LX2    59                                                              F4820        228     A     
 COMPASS            NG     X2,CMC1     IF 8-BIT ADDRESS                                    F4820        229     A     
 COMPASS            SX1    16                                                              F4820        230     A     
 COMPASS   CMC1     RJ     UPPOS       UP POSITION COUNTER                                 F4820        231     A     
 COMPASS   CMC2     SA2    EXSTOP      CHECK FOR EXTRA ADDRESS FIELD                       F4820        232     A     
 COMPASS            ZR     X2,CTL65                                                        F4820        233     A     
 COMPASS            SX6    B1          SET 8-ERR FOR EXTRA ADDRESS FIELD                   F4820        234     A     
 COMPASS            SA6    EFLG                                                            F4820        235     A     
 COMPASS            SA6    W8ERR                                                           F4820        236     A     
 COMPASS            JP     CTL65                                                           F4820        237     A     
 COMPASS   CTLPP    EJECT                                                                  COMPASS     5604          I
          -CPSA097
 COMPASS   CTLPP    EJECT  4                                                       CPSA097 CPSA097       10     A     
 COMPASS  **        PROCESS PP INSTRUCTION.                                                COMPASS     5605     A     
 COMPASS                                                                                   COMPASS     5606     A     
 COMPASS                                                                                   COMPASS     5607     A     
 COMPASS   CTLPPER  SA2    CTLPPM      FORCE BAD PP INSTRUCTION                            COMPASS     5608          I
          -F4820  
 COMPASS   CTLPPER  SA4    PPTYPE      FORCE BAD PP INSTRUCTION                            F4820        238     A     
 COMPASS            SA2    CTLPPM+1+X4                                                     F4820        239     A     
 COMPASS            SX7    B1                                                              COMPASS     5609     A     
 COMPASS            BX6    X2                                                              COMPASS     5610     A     
 COMPASS            SA6    OPTYPE                                                          COMPASS     5611     A     
 COMPASS            SA7    OERR        POST OP-CODE ERROR                                  COMPASS     5612     A     
 COMPASS            SA7    EFLG                                                            COMPASS     5613     A     
 COMPASS                                                                                   COMPASS     5614     A     
 COMPASS   CTLPP    SX1    12                                                              COMPASS     5615          I
          -F4820  
 COMPASS   CTLPP    SA4    PPTYPE      CHECK PP TYPE                                       F4820        240          I
          -CPSA213
 COMPASS            SA1    OPTYPE                                                          F4820        241          I
          -CPSA213
 COMPASS            LX1    3                                                               F4820        242          I
          -CPSA213
 COMPASS            BX6    X1-X4                                                           F4820        243          I
          -CPSA213
 COMPASS   CTLPP    SX1    12                                                              CPSA213       17          I
          -CPSA281
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 505    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   CTLPP    SA1    LWORD                                                           CPSA281      125     A     
 COMPASS            SA4    PPTYPE                                                          CPSA213       18     A     
 COMPASS            SA2    OPTYPE                                                          CPSA213       19     A     
 COMPASS            SB7    X4+3                                                            CPSA213       20     A     
 COMPASS            LX2    3                                                               CPSA213       21     A     
 COMPASS            ZR     B7,CTLPP0                                                       CPSA213       22     A     
 COMPASS            BX6    X2-X4                                                           CPSA213       23     A     
 COMPASS            NG     X6,CTLPPER  IF PP IN BCU OR BC IN PPU CODE                      F4820        244     A     
 COMPASS            SB7    X4+2                                                            F4820        245     A     
 COMPASS            ZR     B7,CTLMC    IF MC INSTRUCTION                                   F4820        246     A     
 COMPASS            NG     X4,CTLBC    IF BC INSTRUCTION                                   F4820        247          I
          -CPSA197
 COMPASS            SX4    X4+B1                                                           CPSA197       20     A     
 COMPASS            ZR     X4,CTLBC    IF BC INSTRUCTION                                   CPSA197       21     A     
 COMPASS            SX1    12                                                              F4820        248          I
          -CPSA213
 COMPASS   CTLPP0   BSS    0                                                               CPSA213       24     A     
 COMPASS            RJ     YPRLOC      PROCESS LOCATION                                    COMPASS     5616     A     
 COMPASS            SX1    12                                                              COMPASS     5617          I
          -CPSA281
 COMPASS            SA1    LWORD                                                           CPSA281      126     A     
 COMPASS            RJ     UPPOS       UP POSITION COUNTER                                 COMPASS     5618     A     
 COMPASS            SA2    OPTYPE                                                          COMPASS     5619     A     
 COMPASS            SX1    12                                                              COMPASS     5620          I
          -CPSA281
 COMPASS            SA1    LWORD                                                           CPSA281      127     A     
 COMPASS            LX2    32                                                              COMPASS     5621     A     
 COMPASS            PL     X2,CTLPP1   JUMP IF 12-BIT OP                                   COMPASS     5622     A     
 COMPASS            RJ     UPPOS                                                           COMPASS     5623     A     
 COMPASS            SX1    60                                                              COMPASS     5624     A     
 COMPASS            RJ     SCAD                                                            COMPASS     5625     A     
 COMPASS            SA1    OPTYPE                                                          COMPASS     5626     A     
 COMPASS            AX1    27                                                              COMPASS     5627     A     
 COMPASS            SX2    5                                                               COMPASS     5628     A     
 COMPASS            BX6    X2*X1                                                           COMPASS     5629     A     
 COMPASS            BX6    X6-X2                                                           COMPASS     5630     A     
 COMPASS            NZ     X6,CTLPP2   IF NO SECOND FIELD                                  COMPASS     5631     A     
 COMPASS   CTLPP1   SX1    60          CHECK FOR POSSIBLE LITERALS                         COMPASS     5632     A     
 COMPASS            RJ     SCAD                                                            COMPASS     5633     A     
 COMPASS   CTLPP2   SA2    EXSTOP      CHECK FOR EXTRA ADDRESS FIELD                       COMPASS     5634     A     
 COMPASS            ZR     X2,CTL65                                                        COMPASS     5635          I
          -CMP30  
 COMPASS            ZR     X2,CTLCP8                                                       CMP30       2390     A     
 COMPASS            SX6    B1          SET 8-ERR FOR EXTRA ADDRESS FIELD                   COMPASS     5636     A     
 COMPASS            SA6    EFLG                                                            COMPASS     5637     A     
 COMPASS            SA6    W8ERR                                                           COMPASS     5638     A     
 COMPASS            EQ     CTL65                                                           COMPASS     5639          I
          -CMP30  
 COMPASS            EQ     CTLCP8      GO CHECK MACHINE TYPE                               CMP30       2391     A     
 COMPASS                                                                                   COMPASS     5640     A     
 COMPASS   CTLPPM   VFD    3/1,30/5,27/ MASK FOR BAD PP INSTRUCTION                        COMPASS     5641          I
          -F4820  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 506    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PASS2    TITLE  PASS 2 CONTROL.                                                 COMPASS     5642     A     
 COMPASS  **        PASS 2 CONTROL.                                                        COMPASS     5643     A     
 COMPASS                                                                                   COMPASS     5644     A     
 COMPASS                                                                                   COMPASS     5645     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     5646     A     
 COMPASS   PASS2    RJ     PRS         PRESET CONSTANTS                                    COMPASS     5647     A     
 COMPASS            RJ     PLM         PRINT LOAD MAP                                      COMPASS     5648     A     
 COMPASS            RJ     PLO         PRESET LIST OPTIONS                                 COMPASS     5649     A     
 COMPASS            RJ     SUO         SET USE ORIGINS                                     COMPASS     5650     A     
 COMPASS            RJ     URS         UNDEFINE REDEFINABLE SYMBOLS                        CPSA246        6     A     
 COMPASS                                                                                   COMPASS     5651     A     
 COMPASS  **        SEARCH FOR IDENT CARD.                                                 COMPASS     5652     A     
 COMPASS                                                                                   COMPASS     5653     A     
 COMPASS   SFI      RJ     RINTER      READ IN PRESUMED IDENT LINE                         COMPASS     5654     A     
 COMPASS            RJ     SETUP                                                           COMPASS     5655     A     
 COMPASS            SA2    IOP         CHECK FOR IDENT OPCODE                              COMPASS     5656     A     
 COMPASS            SA3    =0RIDENT                                                        COMPASS     5657     A     
 COMPASS            BX6    X2-X3                                                           COMPASS     5658     A     
 COMPASS            ZR     X6,SFI2     IF LINE IS IDENT                                    COMPASS     5659     A     
 COMPASS            SX3    3REND                                                           COMPASS     5660     A     
 COMPASS            BX4    X3-X2                                                           COMPASS     5661     A     
 COMPASS            ZR     X4,SFI1     IF END OF PROGRAM                                   COMPASS     5662     A     
 COMPASS            RJ     LISTER                                                          COMPASS     5663     A     
 COMPASS            EQ     SFI         LOOP                                                COMPASS     5664     A     
 COMPASS   SFI1     SX6    B1                                                              COMPASS     5665     A     
 COMPASS            SA6    OERR                                                            COMPASS     5666     A     
 COMPASS            SA6    EFLG                                                            COMPASS     5667     A     
 COMPASS            MESSAGE (=C* IDENT CARD MISSING.*),3,R                                 COMPASS     5668          I
          -CMP20  
 COMPASS            JOBMSG (=C* IDENT CARD MISSING.*),R                                    CMP20         55          I
          -CPSA161
 COMPASS            JOBMSG (=C* IDENT STATEMENT MISSING.*),R                               CPSA161        6     A     
 COMPASS   SFI2     MX6    0           SET DEFAULT (0,0) OVERLAY                           COMPASS     5669     A     
 COMPASS            SA6    P2TEMPA                                                         COMPASS     5670          I
          -CPS002 
 COMPASS            SX1    B0                                                     S002  36 CPS002        28     A     
 COMPASS            RJ     SIC         SCAN IDENT CARD                                     COMPASS     5671     A     
 COMPASS            SA1    IDNAM       DUMP LOADER INFORMATION                             COMPASS     5672          I
          -CPS002 
 COMPASS            SA2    P2TEMPA                                                         COMPASS     5673          I
          -CPS002 
 COMPASS            SA1    P2TEMP      DUMP LOADER INFORMATION                    S002  38 CPS002        29     A     
 COMPASS            SA2    A1+B1                                                  S002  39 CPS002        30     A     
 COMPASS            BX6    X1                                                     S002  40 CPS002        31     A     
 COMPASS            SA6    IDNAM       RESET IDNAM IN CASE OF TRUNCATION          S002  41 CPS002        32     A     
 COMPASS            RJ     DFIRST                                                          COMPASS     5674     A     
 COMPASS            RJ     DLT         DUMP LITERAL TABLES                                 COMPASS     5675     A     
 COMPASS            RJ     SMO         SET MAX AND MIN ORIGINS                             COMPASS     5676     A     
 COMPASS            SA1    IOP                                                             COMPASS     5677     A     
 COMPASS            SA2    =0RIDENT                                                        COMPASS     5678     A     
 COMPASS            BX3    X1-X2                                                           COMPASS     5679     A     
 COMPASS            NZ     X3,Z101     BYPASS FIRST RINTER IF NOT IDENT                    COMPASS     5680     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 507    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     LISTER      LIST IDENT CARD                                     COMPASS     5681     A     
 COMPASS            SA1    IDNAM       DISPLAY IDENT MESSAGE                               COMPASS     5682     A     
 COMPASS            RJ     DIM                                                             COMPASS     5683     A     
 COMPASS            RJ     CRL         CHECK RECURSION LIMIT                      S004   9 CPS004         2     A     
 COMPASS   Z100     SPACE  4                                                               COMPASS     5684     A     
 COMPASS  **        Z100 - GENERAL PASS 2 PROCESSING.                                      COMPASS     5685     A     
 COMPASS                                                                                   COMPASS     5686     A     
 COMPASS                                                                                   COMPASS     5687     A     
 COMPASS   Z100     RJ     RINTER      READ INTERMEDIATE FILE                              COMPASS     5688     A     
 COMPASS   Z101     RJ     SETUP       AND SET THE LINE UP                                 COMPASS     5689     A     
 COMPASS            SA1    STYPE       CHECK FOR COMMENTS CARD OR                          COMPASS     5690     A     
 COMPASS            SA2    TXTFLG      TEXT DEFINITION CARD OR IFSKIPS                     COMPASS     5691     A     
 COMPASS            SA3    NOAS                                                            COMPASS     5692     A     
 COMPASS            SX0    X1-1R*                                                          COMPASS     5693     A     
 COMPASS            IX2    X3+X2                                                           COMPASS     5694     A     
 COMPASS            ZR     X0,ZLIST    COMMENTS CARD                                       COMPASS     5695     A     
 COMPASS            NZ     X2,ZLIST    BYPASSED CARD                                       COMPASS     5696     A     
 COMPASS            SA1    POSCTR                                                          COMPASS     5697     A     
 COMPASS            NZ     X1,Z110                                                         COMPASS     5698     A     
 COMPASS            RJ     ZFOUP                                                           COMPASS     5699     A     
 COMPASS   Z110     SA1    OPTYPE                                                          COMPASS     5700     A     
 COMPASS            SX0    7                                                               COMPASS     5701     A     
 COMPASS            SB6    X1          POSSIBLE TRANSFER ADDRESS                           COMPASS     5702     A     
 COMPASS            AX1    57                                                              COMPASS     5703     A     
 COMPASS            BX2    X1*X0                                                           COMPASS     5704     A     
 COMPASS            SX6    B1                                                              COMPASS     5705     A     
 COMPASS            SB7    X2                                                              COMPASS     5706     A     
 COMPASS            JP     *+1+B7                                                          COMPASS     5707     A     
 COMPASS                                                                                   COMPASS     5708     A     
 COMPASS   +        SA6    IFCDGP      TYPE 0 - CP MACHINE OPS                             COMPASS     5709     A     
 COMPASS            EQ     ZCP                                                             COMPASS     5710     A     
 COMPASS   +        SA6    IFCDGP      TYPE 1 - PP MACHINE OPS                             COMPASS     5711     A     
 COMPASS            EQ     ZPP                                                             COMPASS     5712     A     
 COMPASS   +        SA6    IFCDGP      TYPE 2 - NORMAL PSEUDOS                             COMPASS     5713     A     
 COMPASS            JP     B6                                                              COMPASS     5714     A     
 COMPASS   +        SA6    IFCDGP      TYPE 3 - PSEUDOS TO PROCESS WHILE                   COMPASS     5715     A     
 COMPASS            JP     B6          IF SKIPPING                                         COMPASS     5716     A     
 COMPASS   +        JP     B6          TYPE 4 - PERMISSIBLE ANYWHERE                       COMPASS     5717     A     
 COMPASS   +        SA1    IFCDGP      TYPE 5 - FIRST CARD GROUP ONLY                      COMPASS     5718     A     
 COMPASS            EQ     ZT5                                                             COMPASS     5719     A     
 COMPASS   +        EQ     ZMACALL     TYPE 6 - MACRO CALL                                 COMPASS     5720     A     
 COMPASS   +        EQ     ZMACALL     TYPE 7 - MACRO CALL                                 COMPASS     5721     A     
 COMPASS   ZT5      SPACE  4                                                               COMPASS     5722     A     
 COMPASS  **        ENTRY ON TYPE 5 PSEUDO-OPS.                                            COMPASS     5723     A     
 COMPASS                                                                                   COMPASS     5724     A     
 COMPASS                                                                                   COMPASS     5725     A     
 COMPASS   ZT5      NZ     X1,ZLIST    IF CARD IS OUT OF PLACE                             COMPASS     5726     A     
 COMPASS            JP     B6          JUMP TO PROCESSOR                                   COMPASS     5727     A     
 COMPASS   RJZ      SPACE  4                                                               COMPASS     5728     A     
 COMPASS  **        SCAN INSTRUCTION FOR SCAD WHILE IN PASS 2.                             COMPASS     5729     A     
 COMPASS                                                                                   COMPASS     5730     A     
 COMPASS                                                                                   COMPASS     5731     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 508    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RJZ      SA1    EXLGN       INITIALIZED RJ INSTRUCTION FOR SCAD                 COMPASS     5732     A     
 COMPASS            RJ     ZEVITEM                                                         COMPASS     5733     A     
 COMPASS   ZCP      EJECT                                                                  COMPASS     5734          I
          -CPSA097
 COMPASS   ZCP      EJECT  4                                                       CPSA097 CPSA097       11     A     
 COMPASS  *         CENTRAL PROCESSOR INSTRUCTIONS.                                        COMPASS     5735     A     
 COMPASS                                                                                   COMPASS     5736     A     
 COMPASS                                                                                   COMPASS     5737     A     
 COMPASS   ZCP      SA1    OPTYPE      FETCH OP-CODE EQUIVALENT FROM PASS 1                COMPASS     5738     A     
 COMPASS            MX0    57                                                              COMPASS     5739     A     
 COMPASS            AX1    18                                                              COMPASS     5740     A     
 COMPASS            BX6    -X0*X1      EXTRACT REGISTER FIELDS                             COMPASS     5741     A     
 COMPASS            AX1    3                                                               COMPASS     5742     A     
 COMPASS            BX7    -X0*X1                                                          COMPASS     5743     A     
 COMPASS            SA6    OPADS                                                           COMPASS     5744     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     5745     A     
 COMPASS            AX1    3                                                               COMPASS     5746     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     5747     A     
 COMPASS            SX0    B1                                                              COMPASS     5748     A     
 COMPASS            AX1    3                                                               COMPASS     5749     A     
 COMPASS            BX7    X1*X0       30-BIT INSTRUCTION FLAG TO OPASS+3                  COMPASS     5750     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     5751     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     5752     A     
 COMPASS            AX1    1           FORCE UPPER TO OPADS+4                              COMPASS     5753     A     
 COMPASS            BX6    X1*X0                                                           COMPASS     5754     A     
 COMPASS            AX1    1                                                               COMPASS     5755     A     
 COMPASS            BX7    X0*X1       FORCE NEXT UPPER TO OPADS+5                         COMPASS     5756     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     5757     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     5758     A     
 COMPASS            SA2    NFOUP                                                           COMPASS     5759     A     
 COMPASS            BX6    X2+X6                                                           COMPASS     5760     A     
 COMPASS            SA6    A2          OR NFOUP INTO THIS UPPER FORCE                      COMPASS     5761     A     
 COMPASS            AX1    48-29                                                           COMPASS     5762     A     
 COMPASS            NZ     X1,ZCP0     IF NOT 00 INSTRUCTION                               COMPASS     5763     A     
 COMPASS            SA1    OERR                                                            CMP041         6     A     
 COMPASS            SA2    LOCSYM      SET SUB-SUBTITLE                                    COMPASS     5764     A     
 COMPASS            NZ     X1,ZCP0     IF UNDEFINED OPCODE                                 CMP041         7     A     
 COMPASS            BX6    X2                                                              COMPASS     5765     A     
 COMPASS            SA6    SUBNAME                                                         COMPASS     5766     A     
 COMPASS   ZCP0     SA3    OPADS+3     PROCESS LOCATION FIELD                              COMPASS     5767     A     
 COMPASS            BX4    X3          CONSTRUCT A 15 OR 30                                COMPASS     5768     A     
 COMPASS            LX3    4                                                               COMPASS     5769     A     
 COMPASS            IX4    X3-X4                                                           COMPASS     5770     A     
 COMPASS            SX1    X4+15                                                           COMPASS     5771     A     
 COMPASS            RJ     ZPRLOC      PROCESS LOCATION FIELD                              COMPASS     5772     A     
 COMPASS            SA1    OPADS+5     RESET NFOUP FOR NEXT INSTUCTION                     COMPASS     5773     A     
 COMPASS            BX6    X1                                                              COMPASS     5774     A     
 COMPASS            MX7    0                                                               COMPASS     5775     A     
 COMPASS            SA6    NFOUP                                                           COMPASS     5776     A     
 COMPASS            SA7    P2TEMP      FOR REGISTER ACCUMULATION                           COMPASS     5777     A     
 COMPASS            SA7    A7+B1       P2TEMPA                                             COMPASS     5778     A     
 COMPASS            SA7    A7+B1       P2TEMPB                                             COMPASS     5779     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 509    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    EXERR                                                  P085   8 CMP085         1     A     
 COMPASS            SA1    OPTYPE      SET OPERATION CODE VALUE                            COMPASS     5780     A     
 COMPASS            AX1    48                                                              COMPASS     5781     A     
 COMPASS            BX6    X1                                                              COMPASS     5782     A     
 COMPASS            LX6    6                                                               COMPASS     5783     A     
 COMPASS            SA6    OPVAL                                                           COMPASS     5784     A     
 COMPASS            SA2    MACHFLG                                                         CPSA140        8     A     
 COMPASS            NZ     X2,ZCP0A    IF *MACHINE* VIOLATION                              CPSA140        9     A     
 COMPASS            SA2    OERR        CHECK IF PASS 1 FOUND AN ERROR                      COMPASS     5785     A     
 COMPASS            NZ     X2,ZCP100A                                                      COMPASS     5786     A     
 COMPASS            SA2    COL         RESET FOR OPCODE EVALUATION                         COMPASS     5787          I
          -CPSA140
 COMPASS                                                                                   CPSA140       10     A     
 COMPASS   ZCP0A    SA2    COL                                                             CPSA140       11     A     
 COMPASS            SX6    X2+B1                                                           COMPASS     5788     A     
 COMPASS            SA6    COLUMN                                                          COMPASS     5789     A     
 COMPASS            RJ     GETCH                                                           COMPASS     5790     A     
 COMPASS            SB7    X1-3        TEST FOR A REGISTER                                 COMPASS     5791     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS     5792     A     
 COMPASS   +        NG     B7,*+1                                                          COMPASS     5793          I
          -CMP9   
 COMPASS            NZ     B6,ZCP1     IF NOT OPCODE REGISTER                              COMPASS     5794          I
          -CMP9   
 COMPASS            SX1    3                                                               COMPASS     5795          I
          -CMP9   
 COMPASS            NG     B7,ZCP3A    IF A OR B                                           CMP9          19     A     
 COMPASS            ZR     B6,ZCP3A    IF X                                                CMP9          20     A     
 COMPASS   ZCP3     RJ     GETCH                                                           CMP9          21     A     
 COMPASS            EQ     ZCP3B                                                           CMP9          22     A     
 COMPASS   ZCP3A    SX1    3                                                               CMP9          23     A     
 COMPASS            RJ     ZEVITEM     EVALUATE OPCODE REGISTER                            COMPASS     5796     A     
 COMPASS            SA1    ELREG                                                           COMPASS     5797     A     
 COMPASS            BX6    X1                                                              COMPASS     5798     A     
 COMPASS            SA6    P2TEMPB                                                         COMPASS     5799          I
          -CPS026 
 COMPASS   +        SA2    OPVAL       GET UPPER 9 BITS OF OP CODE SHIFTED LEFT 6          CPS026         2     A     
 COMPASS            AX2    12                                                              CPS026         3     A     
 COMPASS            SB7    X2-5                                                            CPS026         4     A     
 COMPASS            NZ     B7,ZCP3C    IF NOT AN SAI INSTRUCTION (5X0)                     CPS026         5     A     
 COMPASS            MX0    -3                                                              CPS026         6     A     
 COMPASS            BX7    -X0*X1                                                          CPS026         7     A     
 COMPASS            SB7    X7-6                                                            CPS026         8     A     
 COMPASS            MI     B7,ZCP3C    IF NOT REGISTER 6 OR 7                              CPS026         9     A     
 COMPASS            SX7    1RS                                                             CPS026        10     A     
 COMPASS            SA7    REFLET                                                          CPS026        11     A     
 COMPASS   ZCP3C    SA6    P2TEMPB     SAVE REGISTER LETTER AND NUMBER                     CPS026        12     A     
 COMPASS            SA1    CHAR                                                            COMPASS     5800     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     5801          I
          -CMP9   
 COMPASS   ZCP3B    SB7    X1-1R                                                           CMP9          24     A     
 COMPASS            SB6    B0          FLAG TO INDICATE BEGIN TO SCAN VARIABLES.           CPS147X        6     A     
 COMPASS            NZ     B7,ZCP1A    IF NOT END OF OPCODE FIELD                          COMPASS     5802     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 510    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ZCP1     SA1    P2TEMPA                                                         COMPASS     5803     A     
 COMPASS            NZ     X1,ZCP1B    IF IN VARIABLE FIELD                                COMPASS     5804          I
          -CMP9   
 COMPASS            NZ     X1,ZCP2     IF END OF VARIABLE FIELD                            CMP9          25     A     
 COMPASS            SA2    COL+1                                                           COMPASS     5805     A     
 COMPASS            BX6    X2          RESET TO VARIABLE FIELD                             COMPASS     5806     A     
 COMPASS            SA6    A1                                                              COMPASS     5807     A     
 COMPASS            SA6    COLUMN                                                          COMPASS     5808     A     
 COMPASS   ZCP1A    RJ     GETCH                                                           COMPASS     5809     A     
 COMPASS            EQ     B6,B0,ZCP1B IF BEGINNING SCAN OF VARIABLES.                     CPS147X        7     A     
 COMPASS            SA2    CHAR        ELSE CONTINUING SCAN. CHECK FIRST CHAR.             CPS147X        8     A     
 COMPASS            SB7    X2-1R                                                           CPS147X        9     A     
 COMPASS            ZR     B7,ZCP2     IF FIRST CHAR OF VARIABLE FIELD IS BLANK.           CPS147X       10     A     
 COMPASS   ZCP1B    SA2    OPADS+3                                                         COMPASS     5810     A     
 COMPASS            SX1    6                                                               COMPASS     5811     A     
 COMPASS            ZR     X2,*+1                                                          COMPASS     5812     A     
 COMPASS            SX1    18                                                              COMPASS     5813     A     
 COMPASS            RJ     SCAD                                                            COMPASS     5814     A     
 COMPASS            SA4    EXREG       TEST FOR A REGISTER FIELD                           COMPASS     5815     A     
 COMPASS            ZR     X4,ZCP2     JUMP IF ADDRESS FIELD                               COMPASS     5816     A     
 COMPASS            SA2    P2TEMP      COMBINE REGISTER FIELDS                             COMPASS     5817     A     
 COMPASS            LX2    9                                                               COMPASS     5818     A     
 COMPASS            BX6    X4+X2                                                           COMPASS     5819     A     
 COMPASS            SA6    A2                                                              COMPASS     5820     A     
 COMPASS            SB7    X1-1R       TEST FOR END OF ADDRESS FIELD                       COMPASS     5821     A     
 COMPASS            NZ     B7,ZCP1     IF MORE REGISTERS                                   COMPASS     5822          I
          -CMP9   
 COMPASS            SA1    P2TEMPA                                                         COMPASS     5823          I
          -CMP9   
 COMPASS            ZR     X1,ZCP1     IF NOT IN VARIABLE FIELD                            COMPASS     5824          I
          -CMP9   
 COMPASS            NZ     B7,ZCP1B    IF MORE REGISTERS                                   CMP9          26     A     
 COMPASS            SB6    B1          FLAG TO INDICATE CONTINUE SCAN OF VARIABLES         CPS147X       11     A     
 COMPASS            EQ     ZCP1        IF BLANK                                            CMP9          27     A     
 COMPASS   ZCP2     SA1    P2TEMPB                                                         COMPASS     5825          I
          -CPS026 
 COMPASS   ZCP2     SX6    1R                                                              CPS026        13     A     
 COMPASS            SA6    REFLET                                                          CPS026        14     A     
 COMPASS            SA1    P2TEMPB                                                         CPS026        15     A     
 COMPASS            SA2    P2TEMP      OR OPCODE REGISTER INTO REGISTERS                   COMPASS     5826     A     
 COMPASS            LX2    9                                                               COMPASS     5827     A     
 COMPASS            BX1    X1+X2                                                           COMPASS     5828     A     
 COMPASS            SA2    OPADS                                                           COMPASS     5829     A     
 COMPASS            SA3    OPVAL                                                           COMPASS     5830     A     
 COMPASS            BX6    X3                                                              COMPASS     5831     A     
 COMPASS            MX0    57                                                              COMPASS     5832     A     
 COMPASS            SB3    3                                                               COMPASS     5833     A     
 COMPASS            SB5    B0                                                              COMPASS     5834     A     
 COMPASS            SB4    9                                                               COMPASS     5835     A     
 COMPASS   ZCP4     LX3    X2,B3                                                           COMPASS     5836     A     
 COMPASS            IX4    X3+X2       COMBINE REGISTERS INTO OP CODE                      COMPASS     5837     A     
 COMPASS            SB7    X4                                                              COMPASS     5838     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 511    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB6    B7-B4                                                           COMPASS     5839     A     
 COMPASS            AX3    X1,B6                                                           COMPASS     5840     A     
 COMPASS            BX4    -X0*X3                                                          COMPASS     5841     A     
 COMPASS            LX5    X4,B5                                                           COMPASS     5842     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     5843     A     
 COMPASS   +        SB5    B5+B3                                                           COMPASS     5844     A     
 COMPASS            ZR     B7,*+1                                                          COMPASS     5845     A     
 COMPASS            BX6    X5+X6                                                           COMPASS     5846     A     
 COMPASS            NE     B5,B4,ZCP4                                                      COMPASS     5847     A     
 COMPASS            SA4    EXVAL                                                           COMPASS     5848     A     
 COMPASS            SA5    A4+B1       EXREL                                               COMPASS     5849     A     
 COMPASS            SA1    A5+B1       EXEXT                                               COMPASS     5850     A     
 COMPASS            NZ     X2,ZCP100   IF 30-BIT INSTRUCTION                               COMPASS     5851     A     
 COMPASS            MX0    54                                                              COMPASS     5852     A     
          -CMP30    +CPS001 
 COMPASS            PL     X4,ZCP6     IF POSITIVE Q                                       COMPASS     5853     A     
          -CMP30    +CPS001 
 COMPASS            SX2    60                                                              COMPASS     5854     A     
          -CMP30    +CPS001 
 COMPASS            IX4    X4+X2       TRY Q + 60                                          COMPASS     5855     A     
          -CMP30    +CPS001 
 COMPASS            PL     X4,ZCP6     IF Q IN RANGE                                       COMPASS     5856     A     
          -CMP30    +CPS001 
 COMPASS            IX4    X4-X2                                                           COMPASS     5857     A     
          -CMP30    +CPS001 
 COMPASS            SX7    B1                                                              COMPASS     5858     A     
          -CMP30    +CPS001 
 COMPASS            SA7    W7ERR                                                           COMPASS     5859     A     
          -CMP30    +CPS001 
 COMPASS            SA7    EFLG                                                            COMPASS     5860     A     
          -CMP30    +CPS001 
 COMPASS   ZCP6     BX4    -X0*X4      TRUNCATE ADDRESS TO 6 BITS                          COMPASS     5861     A     
          -CMP30    +CPS001 
 COMPASS            IX6    X6+X4       OR INTO INSTRUCTION                                 COMPASS     5862     A     
          -CMP30    +CPS001 
 COMPASS            SX2    60                                                              CMP30       2392          I
          -CPS001 
 COMPASS            PL     X4,ZCP4A    IF Q IS POSITIVE                                    CMP30       2393          I
          -CPS001 
 COMPASS   +        IX4    X4+X2                                                           CMP30       2394          I
          -CPS001 
 COMPASS            MI     X4,*        ADD 60 UNTIL Q IS NOT NEGATIVE                      CMP30       2395          I
          -CPS001 
 COMPASS   ZCP4A    ZR     X4,ZCP6                                                         CMP30       2396          I
          -CPS001 
 COMPASS   +        IX4    X4-X2       TAKE Q MODULO 60                                    CMP30       2397          I
          -CPS001 
 COMPASS            PL     X4,*                                                            CMP30       2398          I
          -CPS001 
 COMPASS            IX4    X4+X2       CHANGE TO 60 IF Q WAS MINUS ZERO OR                 CMP30       2399          I
          -CPS001 
 COMPASS            NZ     X4,ZCP6     A POSITIVE NON-ZERO MULTIPLE OF 60                  CMP30       2400          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 512    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS001 
 COMPASS            BX4    X2                                                              CMP30       2401          I
          -CPS001 
 COMPASS   ZCP6     IX6    X6+X4       OR INTO INSTRUCTION                                 CMP30       2402          I
          -CPS001 
 COMPASS            SA6    OPVAL       AND SAVE                                            COMPASS     5863     A     
 COMPASS            BX1    X5+X1       DISAPPROVE OF EXT OR REL                            COMPASS     5864     A     
 COMPASS            SX7    B1                                                              COMPASS     5865     A     
 COMPASS            ZR     X1,ZCP5     COMPLAIN IF RELOCATABLE OR EXTERNAL                 COMPASS     5866     A     
 COMPASS            SA7    AERR                                                            COMPASS     5867     A     
 COMPASS            SA7    EFLG                                                            COMPASS     5868     A     
 COMPASS   ZCP5     SX1    15                                                              COMPASS     5869     A     
 COMPASS            RJ     UPPOS       CALL UPPOS(15)                                      COMPASS     5870     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     5871     A     
 COMPASS            SA2    POSCTR      CONSTRUCT PRINT LINE                                COMPASS     5872     A     
 COMPASS            SX3    5                                                               COMPASS     5873     A     
 COMPASS            SX4    3                                                               COMPASS     5874     A     
 COMPASS            IX2    X2/X4                                                           COMPASS     5875     A     
 COMPASS            SX4    36                                                              COMPASS     5876     A     
 COMPASS            IX2    X4-X2                                                           COMPASS     5877     A     
 COMPASS            RJ     PACKO                                                           COMPASS     5878     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     5879     A     
 COMPASS            SX2    15                                                              COMPASS     5880     A     
 COMPASS            SX3    B0                                                              COMPASS     5881     A     
 COMPASS            MX4    0                                                               COMPASS     5882     A     
 COMPASS            RJ     BINOUT      OUTPUT INSTRUCTION                                  COMPASS     5883     A     
 COMPASS            EQ     ZLISTG      AND GO LIST                                         COMPASS     5884     A     
 COMPASS                                                                                   COMPASS     5885     A     
 COMPASS   ZCP100   LX6    15          30-BIT INSTRUCTIONS                                 COMPASS     5886     A     
 COMPASS            MX0    42                                                              COMPASS     5887     A     
 COMPASS            BX2    -X0*X4      TRUNCATE ADDRESS TO 18-BITS                         COMPASS     5888     A     
 COMPASS            IX6    X2+X6                                                           COMPASS     5889     A     
 COMPASS            SA6    OPVAL                                                           COMPASS     5890     A     
 COMPASS            AX4    18                                                              COMPASS     5891     A     
 COMPASS            SX6    B1                                                              COMPASS     5892     A     
 COMPASS            ZR     X4,ZCP100A  IF NO ADDRESS OVERFLOW                              COMPASS     5893     A     
 COMPASS            SA6    W7ERR                                                           COMPASS     5894     A     
 COMPASS            SA6    EFLG                                                            COMPASS     5895     A     
 COMPASS   ZCP100A  SX1    30                                                              COMPASS     5896          I
          -CMP30  
 COMPASS            RJ     UPPOS       CALL UPOS(30)                                       COMPASS     5897          I
          -CMP30  
 COMPASS   ZCP100A  SX1    12                                                              CMP30       2403     A     
 COMPASS            RJ     UPPOS       CALL UPPOS (12)                                     CMP30       2404     A     
 COMPASS            SA1    OPVAL                                                           CMP30       2405     A     
 COMPASS            SX2    12                                                              CMP30       2406     A     
 COMPASS            BX3    X3-X3                                                           CMP30       2407     A     
 COMPASS            SX4    B0                                                              CMP30       2408     A     
 COMPASS            AX1    18                                                              CMP30       2409     A     
 COMPASS            RJ     BINOUT      CALL BINOUT (OPVAL/2**18, 12, 0, 0)                 CMP30       2410     A     
 COMPASS            SX1    18                                                              CMP30       2411     A     
 COMPASS            RJ     UPPOS       CALL UPPOS (18)                                     CMP30       2412     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 513    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    OPVAL                                                           CMP30       2413     A     
 COMPASS            SX2    18                                                              CMP30       2414     A     
 COMPASS            SA3    EXREL                                                           CMP30       2415     A     
 COMPASS            SA4    EXEXT                                                           CMP30       2416     A     
 COMPASS            RJ     BINOUT      CALL BINOUT (OPVAL, 18, EXREL, EXEXT)               CMP30       2417     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     5898     A     
 COMPASS            SA2    POSCTR                                                          COMPASS     5899     A     
 COMPASS            SX0    3                                                               COMPASS     5900     A     
 COMPASS            IX2    X2/X0                                                           COMPASS     5901     A     
 COMPASS            SX3    10                                                              COMPASS     5902     A     
 COMPASS            SX5    36                                                              COMPASS     5903     A     
 COMPASS            IX2    X5-X2                                                           COMPASS     5904     A     
 COMPASS            RJ     PACKOR      CALL PACKOR(OPVAL,36-POSCTR/3,10)                   COMPASS     5905     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     5906          I
          -CMP30  
 COMPASS            SX2    30                                                              COMPASS     5907          I
          -CMP30  
 COMPASS            SA3    EXREL                                                           COMPASS     5908          I
          -CMP30  
 COMPASS            SA4    A3+B1       EXEXT                                               COMPASS     5909          I
          -CMP30  
 COMPASS            RJ     BINOUT      BINOUT(OPVAL,30,EXREL,EXEXT)                        COMPASS     5910          I
          -CMP30  
 COMPASS   ZLISTG   SPACE  4                                                               COMPASS     5911     A     
 COMPASS  **        ZLISTG - LIST CODE-GENERATED LINES.                                    COMPASS     5912     A     
 COMPASS                                                                                   COMPASS     5913     A     
 COMPASS                                                                                   COMPASS     5914     A     
 COMPASS   ZLISTG   RJ     LISTERG                                                         COMPASS     5915     A     
 COMPASS            EQ     Z100                                                            COMPASS     5916     A     
 COMPASS   ZPP      EJECT                                                                  COMPASS     5917          I
          -CPSA097
 COMPASS   ZPP      EJECT  4                                                       CPSA097 CPSA097       12     A     
 COMPASS  **        PP INSTRUCTIONS.                                                       COMPASS     5918     A     
 COMPASS                                                                                   COMPASS     5919     A     
 COMPASS                                                                                   COMPASS     5920     A     
 COMPASS   ZPP      SX1    12          PROCESS LOCATION FIELD                              COMPASS     5921          I
          -F4820  
 COMPASS   ZPP      SA4    PPTYPE      CHECK MACHINE                                       F4820        249          I
          -CPSA213
 COMPASS   ZPP      SX1    12                                                              CPSA213       25          I
          -CPSA281
 COMPASS   ZPP      SA1    LWORD       PROCESS LOCATION FIELD                              CPSA281      128     A     
 COMPASS            SA4    PPTYPE                                                          CPSA213       26     A     
 COMPASS            SB7    X4+2                                                            F4820        250     A     
 COMPASS            ZR     B7,ZMC      IF MICROPROCESSOR                                   F4820        251     A     
 COMPASS            NG     X4,ZBC      IF BUFFER CONTROLLER                                F4820        252          I
          -CPSA197
 COMPASS            SX4    X4+B1                                                           CPSA197       22     A     
 COMPASS            ZR     X4,ZBC      IF BUFFER CONTROLLER.                               CPSA197       23     A     
 COMPASS            SX1    12          PROCESS LOCATION FIELD                              F4820        253          I
          -CPSA213
 COMPASS            RJ     ZPRLOC      PRLOC(12)                                           COMPASS     5922          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 514    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA281
 COMPASS            RJ     ZPRLOC      PROCESS LOCATION SYMBOL                             CPSA281      129     A     
 COMPASS            SA1    OPTYPE                                                          COMPASS     5923     A     
 COMPASS            MX0    -12         ISOLATE 12-BIT OP CODE                              COMPASS     5924          I
          -CPSA281
 COMPASS            MX0    -16         ISOLATE 16-BIT OPCODE                               CPSA281      130     A     
 COMPASS            BX7    -X0*X1                                                          COMPASS     5925     A     
 COMPASS            AX1    27          EXTRACT CONTROL DIGIT                               COMPASS     5926     A     
 COMPASS            SX0    B1                                                              COMPASS     5927     A     
 COMPASS            SA7    OPVAL                                                           COMPASS     5928     A     
 COMPASS            BX6    X0*X1                                                           COMPASS     5929          I
          -CPS026 
 COMPASS            SA2    PSIM        PERIPHERAL STORE INSTRUCTION MASK                   CPS026        16     A     
 COMPASS            AX7    6           GET 6-BIT OP CODE                                   CPS026        17     A     
 COMPASS            SB7    X7                                                              CPS026        18     A     
 COMPASS            LX2    B7                                                              CPS026        19     A     
 COMPASS            PL     X2,ZPP1     IF NOT A STORE INSTRUCTION                          CPS026        20     A     
 COMPASS            SX6    1RS                                                             CPS026        21     A     
 COMPASS            SA6    REFLET                                                          CPS026        22     A     
 COMPASS   ZPP1     BX6    X0*X1                                                           CPS026        23     A     
 COMPASS            AX1    1                                                               COMPASS     5930     A     
 COMPASS            SX0    3           TYPE OF ADDRESS FIELD                               COMPASS     5931     A     
 COMPASS            BX7    X0*X1                                                           COMPASS     5932     A     
 COMPASS            SA6    OPADS       24-BIT FLAG                                         COMPASS     5933     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     5934     A     
 COMPASS            NZ     X6,ZPP100   IF 24-BIT OPCODE                                    COMPASS     5935          I
          -CPSA281
 COMPASS            NZ     X6,ZPP100   IF 24-BIT INSTRUCTION                               CPSA281      131     A     
 COMPASS            SX1    6                                                               COMPASS     5936     A     
 COMPASS   +        SB7    X7                                                              COMPASS     5937          I
          -CPS026 
 COMPASS            SX6    B7                                                              CPS026        24     A     
 COMPASS            AX6    2                                                               CPS026        25     A     
 COMPASS            SB7    X6-44BS-2                                                       CPS026        26     A     
 COMPASS            NZ     B7,ZPP1A    IF NOT A STORE INSTRUCTION                          CPS026        27     A     
 COMPASS            SX6    1RI                                                             CPS026        28     A     
 COMPASS            SA6    REFLET                                                          CPS026        29     A     
 COMPASS   ZPP1A    SB7    X7                                                              CPS026        30     A     
 COMPASS            NE     B7,B1,*+1   IF NOT TYPE 2                                       COMPASS     5938          I
          -CPSA281
 COMPASS            LX1    1                                                               COMPASS     5939          I
          -CPSA281
 COMPASS            NE     B7,B1,ZPP1B IF NOT TYPE 2                                       CPSA281      132     A     
 COMPASS            SA1    PPMEMSZ     12-4K, 13-8K, 14-16K MEMORY SIZES                   CPSA281      133     A     
 COMPASS   ZPP1B    BSS    0                                                               CPSA281      134     A     
 COMPASS            RJ     SCAD        SCAN ADDRESS FOR 12-BIT OPCODE                      COMPASS     5940     A     
 COMPASS            SX6    1R                                                              CPS026        31     A     
 COMPASS            SA6    REFLET                                                          CPS026        32     A     
 COMPASS            SA1    OPADS+1                                                         COMPASS     5941     A     
 COMPASS            SB7    X1                                                              COMPASS     5942     A     
 COMPASS            JP     B7+*        JUMP ON ADDRESS TYPE                                COMPASS     5943     A     
 COMPASS                                                                                   COMPASS     5944     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 515    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        SA1    EXVAL       TYPE 2 - RELATIVE BETWEEN 32 AND -32                COMPASS     5945     A     
 COMPASS            EQ     ZPP21                                                           COMPASS     5946     A     
 COMPASS   +        SA1    EXVAL       TYPE 4 - DIRECT CORE (0-63)                         COMPASS     5947     A     
 COMPASS            EQ     ZPP22                                                           COMPASS     5948     A     
 COMPASS   +        SA1    EXVAL       TYPE 6 - ABSOLUTE BETWEEN -32, +32                  COMPASS     5949     A     
 COMPASS            EQ     ZPP23                                                           COMPASS     5950     A     
 COMPASS                                                                                   COMPASS     5951     A     
 COMPASS   ZPP21    SA3    LOCCTR                                                          COMPASS     5952     A     
 COMPASS            SA4    PPJUMP                                                          COMPASS     5953     A     
 COMPASS            NZ     X4,ZP21A    IF PPJUMP SET                                       COMPASS     5954     A     
 COMPASS            BX2    X1                                                              COMPASS     5955     A     
 COMPASS            AX2    5           CHECK FOR BETWEEN +32 AND -32                       COMPASS     5956     A     
 COMPASS            ZR     X2,ZPP24                                                        COMPASS     5957     A     
 COMPASS   ZP21A    IX1    X1-X3                                                           COMPASS     5958     A     
 COMPASS   ZPP23    BX2    X1                                                              COMPASS     5959     A     
 COMPASS            AX2    5                                                               COMPASS     5960     A     
 COMPASS            ZR     X2,ZPP24                                                        COMPASS     5961     A     
 COMPASS   ZPP25    SX6    B1          BAD ADDRESS FIELD                                   COMPASS     5962     A     
 COMPASS            SA6    AERR                                                            COMPASS     5963     A     
 COMPASS            SA6    EFLG                                                            COMPASS     5964     A     
 COMPASS   ZPP24    MX0    54                                                              COMPASS     5965     A     
 COMPASS            BX1    -X0*X1      TRUNCATE TO 6 BITS                                  COMPASS     5966     A     
 COMPASS            SA2    OPVAL                                                           COMPASS     5967     A     
 COMPASS            IX6    X1+X2                                                           COMPASS     5968     A     
 COMPASS            SA6    A2                                                              COMPASS     5969     A     
 COMPASS            SX1    12                                                              COMPASS     5970          I
          -CPSA281
 COMPASS            SA1    LWORD                                                           CPSA281      135     A     
 COMPASS            RJ     UPPOS       CALL UPPOS(12)                                      COMPASS     5971     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     5972     A     
 COMPASS            SX2    25                                                              COMPASS     5973     A     
 COMPASS            SX3    4                                                               COMPASS     5974          I
          -CPSA281
 COMPASS            SA3    PPBYT                                                           CPSA281      136     A     
 COMPASS            RJ     PACKO       CALL PACKO(OPVAL,25,4)                              COMPASS     5975     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     5976     A     
 COMPASS            SX2    12                                                              COMPASS     5977          I
          -CPSA281
 COMPASS            SA2    LWORD                                                           CPSA281      137     A     
 COMPASS            SX3    B0                                                              COMPASS     5978     A     
 COMPASS            BX4    X3                                                              COMPASS     5979     A     
 COMPASS            RJ     BINOUT      CALL BINOUT(OPVAL,12,0,0)                           COMPASS     5980     A     
 COMPASS            EQ     ZLISTG                                                          COMPASS     5981     A     
 COMPASS   ZPP22    NG     X1,ZPP25    COMPLAIN IF ADDRESS NEGATIVE                        COMPASS     5982     A     
 COMPASS            SB7    X1-64       CHECK FOR EXCESS OF 63                              COMPASS     5983     A     
 COMPASS            NG     B7,ZPP24                                                        COMPASS     5984          I
          -CPSA297
 COMPASS            EQ     ZPP25                                                           COMPASS     5985          I
          -CPSA297
 COMPASS            PL     B7,ZPP25                                                        CPSA297       21     A     
 COMPASS            SA2    OPVAL       CURRENT OPCODE                                      CPSA297       22     A     
 COMPASS            SA3    PSIM2       INSTRUCTION MASK FOR STORES THAT PREFETCH           CPSA297       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/28. 19.11.32.      PAGE 516    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX2    6            ERROR MAY BE FLAGGED                               CPSA297       24     A     
 COMPASS            SB7    X2                                                              CPSA297       25     A     
 COMPASS            LX3    X3,B7                                                           CPSA297       26     A     
 COMPASS            PL     X3,ZPP24    IF NOT TO CHECK FOR PREFETCH ERROR                  CPSA297       27     A     
 COMPASS            SX6    B1                                                              CPSA297       28     A     
 COMPASS            SA3    LOCCTR      CHECK IF STORING AT *+1                             CPSA297       29     A     
 COMPASS            IX3    X3-X1                                                           CPSA297       30     A     
 COMPASS            SX3    X3+B1                                                           CPSA297       31     A     
 COMPASS            NZ     X3,ZPP24    IF NOT *+1                                          CPSA297       32     A     
 COMPASS            SA6    EFLG                                                            CPSA297       33     A     
 COMPASS            SA6    WD45ERR     + ERROR                                             CPSA297       34     A     
 COMPASS            EQ     ZPP24                                                           CPSA297       35     A     
 COMPASS                                                                                   COMPASS     5986     A     
 COMPASS  *         24-BIT PP INSTRUCTIONS.                                                COMPASS     5987     A     
 COMPASS                                                                                   COMPASS     5988     A     
 COMPASS   ZPP100   SA1    OPVAL       SHIFT OPVALUE OVER                                  COMPASS     5989          I
          -CPSA281
 COMPASS            LX1    12                                                              COMPASS     5990          I
          -CPSA281
 COMPASS            BX7    X1                                                              COMPASS     5991          I
          -CPSA281
 COMPASS            SA7    A1                                                              COMPASS     5992          I
          -CPSA281
 COMPASS            SX1    18                                                              COMPASS     5993          I
          -CPSA281
 COMPASS   ZPP100   SA4    OPVAL       SHIFT OPVALUE LEFT 18 BITS                          CPSA281      138     A     
 COMPASS            BX7    X4                                                              CPSA281      139     A     
 COMPASS            LX7    18                                                              CPSA281      140     A     
 COMPASS            SA7    A4                                                              CPSA281      141     A     
 COMPASS            SX1    18          SET FOR ADDRESS SIZE = 18                           CPSA281      142     A     
 COMPASS            SA2    OPADS+1                                                         COMPASS     5994     A     
 COMPASS            SX2    X2-1                                                            COMPASS     5995     A     
 COMPASS   +        ZR     X2,*+1                                                          COMPASS     5996          I
          -CPSA281
 COMPASS            SX1    12                                                              COMPASS     5997          I
          -CPSA281
 COMPASS            RJ     SCAD        EVALUATE FIRST ADDRESS FIELD                        COMPASS     5998          I
          -CPSA281
 COMPASS            ZR     X2,ZPP101   IF TYPE 3 INSTRUCTION                               CPSA281      143     A     
 COMPASS            SA1    PPMEMSZ     12-4K, 13-8K, 14-16K MEMORY SIZES                   CPSA281      144     A     
 COMPASS            SA3    PPTYPE      MUST SPECIAL-CASE *FNCL* INSTRUCTION                CPSA281      145     A     
 COMPASS            SX3    X3+3                                                            CPSA281      146     A     
 COMPASS            NZ     X3,ZPP101   IF NOT 180 PPU ASSEMBLY                             CPSA281      147     A     
 COMPASS            SX4    X4-FNCLCDE                                                      CPSA281      148     A     
 COMPASS            NZ     X4,ZPP101   IF NOT *FNCL* INSTRUCTION                           CPSA281      149     A     
 COMPASS            SX1    16          SET *FNCL* ADDRESS SIZE = 16                        CPSA281      150     A     
 COMPASS   ZPP101   RJ     SCAD        EVALUATE FIRST ADDRESS FIELD                        CPSA281      151     A     
 COMPASS            SX6    1R                                                              CPS026        33     A     
 COMPASS            SA6    REFLET                                                          CPS026        34     A     
 COMPASS            SA1    OPADS+1                                                         COMPASS     5999     A     
 COMPASS            SB7    X1                                                              COMPASS     6000     A     
 COMPASS            SA2    EXVAL                                                           COMPASS     6001     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 517    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            JP     *+1+B7                                                          COMPASS     6002     A     
 COMPASS                                                                                   COMPASS     6003     A     
 COMPASS   +        MX0    -12         TYPE 1 - MEMORY (12 BIT) ADDRESS                    COMPASS     6004          I
          -CPSA281
 COMPASS   +        MX0    -16         TYPE 1 - MEMORY (16 BIT) ADDRESS                    CPSA281      152     A     
 COMPASS            BX6    -X0*X2      WITH NO SECOND FIELD                                COMPASS     6005          I
          -CMP029 
 COMPASS            BX2    -X0*X2      WITH NO SECOND FIELD                                CMP029        16     A     
 COMPASS            EQ     ZPP104                                                          COMPASS     6006     A     
 COMPASS   +        MX0    42          TYPE 3 - CONSTANT (18 BIT) ADDRESS                  COMPASS     6007     A     
 COMPASS            BX2    -X0*X2                                                          COMPASS     6008     A     
 COMPASS            EQ     ZPP104                                                          COMPASS     6009     A     
 COMPASS   +        MX0    48          TYPE 5 - MEMORY (12 BIT) ADDRESS                    COMPASS     6010          I
          -CPSA281
 COMPASS   +        MX0    -16         TYPE 5 - MEMORY (16 BIT) ADDRESS                    CPSA281      153     A     
 COMPASS            BX6    -X0*X2      WITH OPTIONAL SECOND FIELD                          COMPASS     6011     A     
 COMPASS            EQ     ZPP102                                                          COMPASS     6012     A     
 COMPASS   +        SA1    CHAR        TYPE 7 - MEMORY (12 BIT) ADDRESS                    COMPASS     6013     A     
 COMPASS            SB7    X1-1R       WITH MANDATORY SECOND ADDRESS                       COMPASS     6014     A     
 COMPASS                                                                                   COMPASS     6015     A     
 COMPASS            NZ     B7,ZPP105   IF CHANNEL NUMBER IS PRESENT                        COMPASS     6016     A     
 COMPASS            SX6    B1          SET MISSING ADDRESS ERROR                           COMPASS     6017     A     
 COMPASS            SA6    EFLG                                                            COMPASS     6018     A     
 COMPASS            SA6    W8ERR                                                           COMPASS     6019     A     
 COMPASS   ZPP105   MX0    48                                                              COMPASS     6020          I
          -CPSA281
 COMPASS   ZPP105   MX0    -16                                                             CPSA281      154     A     
 COMPASS            BX6    -X0*X2                                                          COMPASS     6021     A     
 COMPASS   ZPP102   SA6    P2TEMP                                                          COMPASS     6022     A     
 COMPASS            SX1    6                                                               COMPASS     6023          I
          -CPSA297
 COMPASS            SA2    OPVAL       CURRENT OPCODE                                      CPSA297       36     A     
 COMPASS            SA3    PSIM2       INSTRUCTION MASK FOR STORES THAT PREFETCH           CPSA297       37     A     
 COMPASS            AX2    6+18         ERROR MAY BE FLAGGED                               CPSA297       38     A     
 COMPASS            SB7    X2                                                              CPSA297       39     A     
 COMPASS            LX3    X3,B7                                                           CPSA297       40     A     
 COMPASS            PL     X3,ZPP102A  IF NOT TO CHECK FOR PREFETCH ERROR                  CPSA297       41     A     
 COMPASS            SA4    LOCCTR      CHECK IF STORING AT *+2                             CPSA297       42     A     
 COMPASS            IX4    X4-X6                                                           CPSA297       43     A     
 COMPASS            SX7    B1                                                              CPSA297       44     A     
 COMPASS            SX4    X4+2                                                            CPSA297       45     A     
 COMPASS            NZ     X4,ZPP102A  IF NOT *+2                                          CPSA297       46     A     
 COMPASS            SA7    EFLG                                                            CPSA297       47     A     
 COMPASS            SA7    WD45ERR     + ERROR                                             CPSA297       48     A     
 COMPASS   ZPP102A  SX1    6                                                               CPSA297       49     A     
 COMPASS            RJ     SCAD        EVALUATE SECOND ADDRESS                             COMPASS     6024     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6025     A     
 COMPASS            PL     X1,ZPP103                                                       COMPASS     6026     A     
 COMPASS            SX6    B1          POST ADDRESS FIELD OVERFLOW                         COMPASS     6027     A     
 COMPASS            SA6    EFLG                                                            COMPASS     6028     A     
 COMPASS            SA6    W7ERR                                                           COMPASS     6029     A     
 COMPASS   ZPP103   MX0    54                                                              COMPASS     6030     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 518    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX1    -X0*X1      TRUNCATE TO 6 BITS                                  COMPASS     6031     A     
 COMPASS            SA2    P2TEMP                                                          COMPASS     6032     A     
 COMPASS            LX1    12                                                              COMPASS     6033          I
          -CPSA281
 COMPASS            LX1    18                                                              CPSA281      155     A     
 COMPASS            BX2    X2+X1       OR DIRECT REFERENCE INTO OP                         COMPASS     6034     A     
 COMPASS   ZPP104   SA1    OPVAL       SET UP TO OUTPUT 24-BIT INSTRUCTION                 COMPASS     6035          I
          -CPSA281
 COMPASS   ZPP104   SA3    OPADS+1                                                         CPSA281      156     A     
 COMPASS            SX3    X3-1                                                            CPSA281      157     A     
 COMPASS            NZ     X3,ZPP104A  IF NOT 18-BIT CONSTANT ADDRESS                      CPSA281      158     A     
 COMPASS            MX6    -12         MOVE UPPER 6 BITS OF ADDRESS FIELD                  CPSA281      159     A     
 COMPASS            BX1    -X6*X2       INTO SECOND ADDRESS FIELD                          CPSA281      160     A     
 COMPASS            BX6    X6*X2                                                           CPSA281      161     A     
 COMPASS            LX6    6                                                               CPSA281      162     A     
 COMPASS            BX2    X6+X1                                                           CPSA281      163     A     
 COMPASS   ZPP104A  SA1    OPVAL       SET UP TO OUTPUT 24 OR 32-BIT INSTR                 CPSA281      164     A     
 COMPASS            BX6    X1+X2                                                           COMPASS     6036     A     
 COMPASS            SA6    A1                                                              COMPASS     6037     A     
 COMPASS            AX6    12                                                              COMPASS     6038          I
          -CPSA281
 COMPASS            AX6    18                                                              CPSA281      165     A     
 COMPASS            SA6    P2TEMP                                                          COMPASS     6039     A     
 COMPASS            SX1    12                                                              COMPASS     6040          I
          -CPSA281
 COMPASS            SA1    LWORD                                                           CPSA281      166     A     
 COMPASS            RJ     UPPOS       CALL UPPOS(12)                                      COMPASS     6041     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS     6042     A     
 COMPASS            SX2    25                                                              COMPASS     6043     A     
 COMPASS            SX3    4                                                               COMPASS     6044          I
          -CPSA281
 COMPASS            SA3    PPBYT                                                           CPSA281      167     A     
 COMPASS            RJ     PACKO       CALL PACKO(HIGH 12 BITS,25,4)                       COMPASS     6045     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS     6046     A     
 COMPASS            SX2    12                                                              COMPASS     6047          I
          -CPSA281
 COMPASS            SA2    LWORD                                                           CPSA281      168     A     
 COMPASS            MX3    0                                                               COMPASS     6048     A     
 COMPASS            BX4    X3                                                              COMPASS     6049     A     
 COMPASS            RJ     BINOUT      CALL BINOUT(HIGH 12 BITS,12,0,0)                    COMPASS     6050     A     
 COMPASS            RJ     DWORD       DUMP THIS WORD                                      COMPASS     6051     A     
 COMPASS            SX1    12                                                              COMPASS     6052          I
          -CPSA281
 COMPASS            SA1    LWORD                                                           CPSA281      169     A     
 COMPASS            RJ     UPPOS       CALL UPPOS(12)                                      COMPASS     6053     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     6054     A     
 COMPASS            SX2    30                                                              COMPASS     6055     A     
 COMPASS            SX3    4                                                               COMPASS     6056          I
          -CPSA281
 COMPASS            MX3    -18                                                             CPSA281      170     A     
 COMPASS            BX1    -X3*X1                                                          CPSA281      171     A     
 COMPASS            SA4    PPTYPE                                                          CPSA281      172     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 519    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX4    X4+3                                                            CPSA281      173     A     
 COMPASS            NZ     X4,ZPP106   IF NOT 180 PP ASSEMBLY                              CPSA281      174     A     
 COMPASS            SX2    32                                                              CPSA281      175     A     
 COMPASS   ZPP106   SA3    PPBYT                                                           CPSA281      176     A     
 COMPASS            RJ     PACKO       CALL PACKO(LO 12 BITS,30,4)                         COMPASS     6057     A     
 COMPASS            SA1    OPVAL                                                           COMPASS     6058     A     
 COMPASS            SX2    12                                                              COMPASS     6059          I
          -CPSA281
 COMPASS            SA2    LWORD                                                           CPSA281      177     A     
 COMPASS            MX3    0                                                               COMPASS     6060     A     
 COMPASS            BX4    X3                                                              COMPASS     6061     A     
 COMPASS            RJ     BINOUT      CALL BINOUT(LO 12 BITS,12,0,0)                      COMPASS     6062     A     
 COMPASS            EQ     ZLISTG                                                          COMPASS     6063     A     
 COMPASS   ZBC      EJECT                                                                  F4820        254     A     
 COMPASS  **        BC INSTRUCTIONS.                                                       F4820        255     A     
 COMPASS                                                                                   F4820        256     A     
 COMPASS                                                                                   F4820        257     A     
 COMPASS   ZBC      SX1    16          PROCESS LOCATION FIELD                              F4820        258     A     
 COMPASS            RJ     ZPRLOC      PRLOC(16)                                           F4820        259     A     
 COMPASS            SA1    OPTYPE                                                          F4820        260     A     
 COMPASS            MX0    -16         ISOLATE 16-BIT OP CODE                              F4820        261     A     
 COMPASS            BX7    -X0*X1                                                          F4820        262     A     
 COMPASS            AX1    27          EXTRACT CONTROL DIGIT                               F4820        263          I
          -F4820B 
 COMPASS            SX0    7                                                               F4820        264          I
          -F4820B 
 COMPASS            SA7    OPVAL                                                           F4820        265          I
          -F4820B 
 COMPASS            BX6    X0*X1                                                           F4820        266          I
          -F4820B 
 COMPASS            SA1    ZBCA+X6     EXTRACT FIELD WIDTH                                 F4820        267          I
          -F4820B 
 COMPASS            LX1    -27                                                             F4820B        34     A     
 COMPASS            MX2    -3                                                              F4820B        35     A     
 COMPASS            SA7    OPVAL                                                           F4820B        36     A     
 COMPASS            BX6    -X2*X1                                                          F4820B        37     A     
 COMPASS            NZ     X6,ZBC0     IF NOT TYPE 0                                       F4820B        38     A     
 COMPASS            MX6    -5          MASK FOR NAD EXTENSION                              F4820B        39     A     
 COMPASS            LX1    5           CHECK NAD EXTENSION                                 F4820B        40     A     
 COMPASS            BX6    -X6*X1                                                          F4820B        41     A     
 COMPASS            ZR     X6,ZBC0     IF NOT NAD EXTENSION                                F4820B        42     A     
 COMPASS            IX6    X6-X2       TYPE = 7 + NAD EXTENSION                            F4820B        43     A     
 COMPASS            SB2    X6-ZBCAL                                                        F4820B        44     A     
 COMPASS            NG     B2,ZBC0                                                         F4820B        45     A     
 COMPASS            SX6    B0                                                              F4820B        46     A     
 COMPASS   ZBC0     SA1    ZBCA+X6     EXTRACT FIRST ADDRESS FIELD WIDTH                   F4820B        47     A     
 COMPASS            BX6    X1                                                              F4820        268     A     
 COMPASS            SA6    OPADS       TYPE FLAG                                           F4820        269     A     
 COMPASS            AX1    18                                                              F4820        270     A     
 COMPASS            SX1    X1                                                              F4820        271     A     
 COMPASS            RJ     SCAD        SCAN ADDRESS FIELD                                  F4820        272     A     
 COMPASS            SA3    OPADS       CHECK TYPE                                          F4820        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/28. 19.11.32.      PAGE 520    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    EXVAL       SAVE VALUE                                          F4820        274     A     
 COMPASS            BX6    X2                                                              F4820        275     A     
 COMPASS            SX1    4                                                               F4820        276          I
          -F4820B 
 COMPASS            SX1    16                                                              F4820B        48     A     
 COMPASS            SA6    A3+B1                                                           F4820        277     A     
 COMPASS   +        PL     X3,*+1      IF NO SECOND FIELD                                  F4820        278     A     
 COMPASS            RJ     SCAD                                                            F4820        279     A     
 COMPASS            SA1    OPADS       CHECK TYPE                                          F4820        280     A     
 COMPASS            SA3    OPVAL       (X3) = OPCODE VALUE                                 F4820        281     A     
 COMPASS            SA2    A1+B1       (X2) = FIRST ADDRESS VALUE                          F4820        282     A     
 COMPASS            SA4    EXVAL       (X4) = SECOND ADDRESS VALUE                         F4820        283     A     
 COMPASS            MX0    -4          (X0) = FIELD WIDTH MASK                             F4820        284     A     
 COMPASS            SB7    X1                                                              F4820        285     A     
 COMPASS            SB6    B0          (B6) = SHIFT COUNT                                  F4820        286     A     
 COMPASS            JP     B7          JUMP ON ADDRESS TYPE                                F4820        287     A     
 COMPASS                                                                                   F4820        288     A     
 COMPASS                                                                                   F4820        289     A     
 COMPASS  **        0 - 4-BIT ADDRESS.  (SAB)                                              F4820        290     A     
 COMPASS                                                                                   F4820        291     A     
 COMPASS   ZBC1     BX7    X0*X2       CHECK FOR EXCESS                                    F4820        292     A     
 COMPASS            ZR     X7,ZBC3     IF NOT OVER FIELD WIDTH                             F4820        293     A     
 COMPASS                                                                                   F4820        294     A     
 COMPASS                                                                                   F4820        295     A     
 COMPASS  **        PROCESS *A* ERROR.                                                     F4820        296     A     
 COMPASS                                                                                   F4820        297     A     
 COMPASS   ZBC2     SX6    B1          SET *A* ERROR                                       F4820        298     A     
 COMPASS            SA6    AERR                                                            F4820        299     A     
 COMPASS            SA6    EFLG                                                            F4820        300     A     
 COMPASS                                                                                   F4820        301     A     
 COMPASS                                                                                   F4820        302     A     
 COMPASS  **        FORM INSTRUCTION.                                                      F4820        303     A     
 COMPASS                                                                                   F4820        304     A     
 COMPASS   ZBC3     BX6    -X0*X2      TRUNCATE ADDRESS                                    F4820        305     A     
 COMPASS            LX6    X6,B6       POSITION FIELD                                      F4820        306     A     
 COMPASS            IX6    X6+X3                                                           F4820        307     A     
 COMPASS            SA6    OPVAL                                                           F4820        308     A     
 COMPASS   ZBC4     SX1    16          CALL UPPOS(16)                                      F4820        309     A     
 COMPASS            RJ     UPPOS                                                           F4820        310     A     
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,25,4)                              F4820        311     A     
 COMPASS            SX2    25                                                              F4820        312     A     
 COMPASS            SX3    4                                                               F4820        313     A     
 COMPASS            RJ     PACKO                                                           F4820        314     A     
 COMPASS            SA1    OPVAL       CALL BINOUT(OPVAL,16,0,0)                           F4820        315     A     
 COMPASS            SX2    16                                                              F4820        316     A     
 COMPASS            MX3    0                                                               F4820        317     A     
 COMPASS            BX4    X4-X4                                                           F4820        318     A     
 COMPASS            RJ     BINOUT                                                          F4820        319     A     
 COMPASS            EQ     ZLISTG      RETURN                                              F4820        320     A     
 COMPASS                                                                                   F4820        321     A     
 COMPASS                                                                                   F4820        322     A     
 COMPASS  **        1 - (16 - 4-BIT) ADDRESS.  (SLC)                                       F4820        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/28. 19.11.32.      PAGE 521    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   F4820        324     A     
 COMPASS   ZBC5     SX6    16                                                              F4820        325     A     
 COMPASS            ZR     X2,ZBC1     IF NO SHIFT                                         F4820        326     A     
 COMPASS            IX2    X6-X2                                                           F4820        327     A     
 COMPASS            JP     ZBC1                                                            F4820        328     A     
 COMPASS                                                                                   F4820        329     A     
 COMPASS                                                                                   F4820        330     A     
 COMPASS  **        2 - (15 - 4-BIT) ADDRESS.  (TAB)                                       F4820        331     A     
 COMPASS                                                                                   F4820        332     A     
 COMPASS   ZBC6     SX6    15                                                              F4820        333     A     
 COMPASS            IX2    X6-X2                                                           F4820        334     A     
 COMPASS            JP     ZBC1                                                            F4820        335     A     
 COMPASS                                                                                   F4820        336     A     
 COMPASS                                                                                   F4820        337     A     
 COMPASS  **        3 - 8-BIT ADDRESS.  (ADN)                                              F4820        338     A     
 COMPASS                                                                                   F4820        339     A     
 COMPASS   ZBC7     MX0    -8                                                              F4820        340     A     
 COMPASS            JP     ZBC1                                                            F4820        341     A     
 COMPASS                                                                                   F4820        342     A     
 COMPASS                                                                                   F4820        343     A     
 COMPASS  **        4 - 9-BIT RELATIVE ADDRESS.  (UJR)                                     F4820        344     A     
 COMPASS                                                                                   F4820        345     A     
 COMPASS   ZBC8     BX1    X2          CALL PACKO(VALUE,30,4)                              F4820        346          I
          -F4820A 
 COMPASS            SX2    30                                                              F4820        347          I
          -F4820A 
 COMPASS   ZBC8     BX1    X2          CALL PACKO(VALUE,34,4)                              F4820A         5     A     
 COMPASS            SX2    34                                                              F4820A         6     A     
 COMPASS            SX3    4                                                               F4820        348     A     
 COMPASS            RJ     PACKO                                                           F4820        349     A     
 COMPASS            SX6    1R(                                                             F4820A         7     A     
 COMPASS            SA6    OCTAL+29                                                        F4820A         8     A     
 COMPASS            SX6    1R)                                                             F4820A         9     A     
 COMPASS            SA6    OCTAL+34                                                        F4820A        10     A     
 COMPASS            SA2    OPADS+1                                                         F4820        350     A     
 COMPASS            SA3    OPVAL                                                           F4820        351     A     
 COMPASS            SA4    LOCCTR                                                          F4820        352     A     
 COMPASS            SB6    B0                                                              F4820        353     A     
 COMPASS            IX2    X2-X4                                                           F4820        354     A     
 COMPASS            MX0    -8                                                              F4820        355     A     
 COMPASS            PL     X2,ZBC1     IF JUMP FORWARD                                     F4820        356     A     
 COMPASS            SX3    X3+0#0400                                                       F4820        357     A     
 COMPASS            BX2    -X2                                                             F4820        358     A     
 COMPASS            JP     ZBC1                                                            F4820        359     A     
 COMPASS                                                                                   F4820        360     A     
 COMPASS                                                                                   F4820        361     A     
 COMPASS  **        5 - 4-BIT CHANNEL AND NO ADDRESS.  (IAN)                               F4820        362     A     
 COMPASS                                                                                   F4820        363     A     
 COMPASS   ZBC9     SB6    4           SET SHIFT COUNT                                     F4820        364     A     
 COMPASS            JP     ZBC1                                                            F4820        365     A     
 COMPASS                                                                                   F4820        366     A     
 COMPASS                                                                                   F4820        367     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 522    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        6 - 8-BIT ADDRESS AND OPTIONAL INDEXING.  (LDD) (UJI)                  F4820        368     A     
 COMPASS                                                                                   F4820        369     A     
 COMPASS   ZBC10    MX0    8                                                               F4820        370     A     
 COMPASS            NG     X4,ZBC2     IF NEGATIVE INDEX                                   F4820        371     A     
 COMPASS            SB7    X4-3                                                            F4820        372     A     
 COMPASS            PL     B7,ZBC2     IF INDEX .GE. 3                                     F4820        373     A     
 COMPASS            LX4    8           MERGE INDEX REGISTER WITH OPVAL                     F4820        374     A     
 COMPASS            IX6    X3+X4                                                           F4820        375     A     
 COMPASS            IX3    X3+X4                                                           F4820        376     A     
 COMPASS            SA6    OPVAL                                                           F4820        377     A     
 COMPASS            LX6    -11                                                             F4820        378     A     
 COMPASS            PL     X6,ZBC1     IF NOT INDIRECT                                     F4820        379     A     
 COMPASS            BX1    -X0*X2      EXTRACT DIRECT CELL                                 F4820        380     A     
 COMPASS            RJ     RBV         READ BINARY VALUE                                   F4820        381     A     
 COMPASS            BX1    X6                                                              F4820        382     A     
 COMPASS            ZR     X6,ZBC11    IF NO INDIRECT VALUE                                F4820        383     A     
 COMPASS            SX2    30                                                              F4820        384     A     
 COMPASS            SX3    4                                                               F4820        385     A     
 COMPASS            RJ     PACKO                                                           F4820        386     A     
 COMPASS   ZBC11    SA3    OPVAL                                                           F4820        387     A     
 COMPASS            SA2    OPADS+1                                                         F4820        388     A     
 COMPASS            SB6    B0                                                              F4820        389     A     
 COMPASS            MX0    -8                                                              F4820        390     A     
 COMPASS            JP     ZBC1                                                            F4820        391     A     
 COMPASS                                                                                   F4820        392     A     
 COMPASS                                                                                   F4820        393     A     
 COMPASS  **        7 - 4-BIT CHANNEL AND 4-BIT ADDRESS.  (INT)                            F4820        394     A     
 COMPASS                                                                                   F4820        395     A     
 COMPASS   ZBC12    BX7    -X0*X4      CHECK 2ND FIELD                                     F4820        396     A     
 COMPASS            BX6    X0*X4                                                           F4820        397     A     
 COMPASS            SB6    4                                                               F4820        398     A     
 COMPASS            IX3    X3+X7                                                           F4820        399     A     
 COMPASS            ZR     X6,ZBC1     IF NO ADDRESS OVERFLOW                              F4820        400     A     
 COMPASS            JP     ZBC2                                                            F4820        401     A     
 COMPASS                                                                                   F4820B        49     A     
 COMPASS  **        8 - 1-BIT ADDRESS.  (JFA)                                              F4820B        50     A     
 COMPASS                                                                                   F4820B        51     A     
 COMPASS   ZBC8.0   EQU    ZBC4                                                            F4820B        52     A     
 COMPASS                                                                                   F4820B        53     A     
 COMPASS                                                                                   F4820B        54     A     
 COMPASS                                                                                   F4820B        55     A     
 COMPASS  **        9 - 8-BIT RELATIVE ADDRESS BACKWARDS.  (RTB)                           F4820B        56     A     
 COMPASS                                                                                   F4820B        57     A     
 COMPASS   ZBC9.0   BX1    X2          CALL PACKO(VALUE,34,4)                              F4820B        58     A     
 COMPASS            SX2    34                                                              F4820B        59     A     
 COMPASS            SX3    4                                                               F4820B        60     A     
 COMPASS            RJ     PACKO                                                           F4820B        61     A     
 COMPASS            SX6    1R(                                                             F4820B        62     A     
 COMPASS            SA6    OCTAL+29                                                        F4820B        63     A     
 COMPASS            SX6    1R)                                                             F4820B        64     A     
 COMPASS            SA6    OCTAL+34                                                        F4820B        65     A     
 COMPASS            SA2    OPADS+1                                                         F4820B        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/28. 19.11.32.      PAGE 523    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    OPVAL                                                           F4820B        67     A     
 COMPASS            SA4    LOCCTR                                                          F4820B        68     A     
 COMPASS            SB6    B0                                                              F4820B        69     A     
 COMPASS            IX2    X2-X4                                                           F4820B        70     A     
 COMPASS            MX0    -8                                                              F4820B        71     A     
 COMPASS            PL     X2,ZBC2     IF JUMP FORWARD                                     F4820B        72     A     
 COMPASS            BX2    -X2                                                             F4820B        73     A     
 COMPASS            JP     ZBC1                                                            F4820B        74     A     
 COMPASS                                                                                   F4820B        75     A     
 COMPASS  **        10 - 12-BIT ADDRESS.  (FNA)                                            F4820B        76     A     
 COMPASS                                                                                   F4820B        77     A     
 COMPASS   ZBC10.0  MX0    -12                                                             F4820B        78     A     
 COMPASS            JP     ZBC1                                                            F4820B        79     A     
 COMPASS                                                                                   F4820B        80     A     
 COMPASS                                                                                   F4820B        81     A     
 COMPASS  **        11 - 2 16-BIT ADDRESS I/O.                                             F4820B        82     A     
 COMPASS                                                                                   F4820B        83     A     
 COMPASS   ZBC11.0  BX6    X4          SAVE 2ND ADDRESS FIELD                              F4820B        84     A     
 COMPASS            SA1    CHAR        CHECK 3RD ADDRESS                                   F4820B        85     A     
 COMPASS            SA6    OPADS+2                                                         F4820B        86     A     
 COMPASS            SB2    X1-1R                                                           F4820B        87     A     
 COMPASS            ZR     B2,ZBC11.1  IF NO 3RD ADDRESS                                   F4820B        88     A     
 COMPASS            SX1    2           SCAN 3RD ADDRESS                                    F4820B        89     A     
 COMPASS            RJ     SCAD                                                            F4820B        90     A     
 COMPASS            SA1    EXVAL       ENTER PARITY CONTROL                                F4820B        91     A     
 COMPASS            SA2    OPVAL                                                           F4820B        92     A     
 COMPASS            MX3    -2                                                              F4820B        93     A     
 COMPASS            BX1    -X3*X1                                                          F4820B        94     A     
 COMPASS            LX1    4           POSITION PARITY CONTROL BITS IN INSTRUCTION         F4820B        95     A     
 COMPASS            BX6    X1+X2                                                           F4820B        96     A     
 COMPASS            SA1    CHAR        CHECK 4TH FIELD                                     F4820B        97     A     
 COMPASS            SA6    A2                                                              F4820B        98     A     
 COMPASS            SB2    X1-1R                                                           F4820B        99     A     
 COMPASS            ZR     B2,ZBC11.1  IF NO 4TH ADDRESS                                   F4820B       100     A     
 COMPASS            SX1    2           SCAN 4TH ADDRESS                                    F4820B       101     A     
 COMPASS            RJ     SCAD                                                            F4820B       102     A     
 COMPASS            SA1    EXVAL       ENTER MODE                                          F4820B       103     A     
 COMPASS            SA2    OPVAL                                                           F4820B       104     A     
 COMPASS            MX3    -2                                                              F4820B       105     A     
 COMPASS            BX1    -X3*X1                                                          F4820B       106     A     
 COMPASS            BX6    X1+X2                                                           F4820B       107     A     
 COMPASS            SA6    A2                                                              F4820B       108     A     
 COMPASS            JP     ZBC11.2                                                         F4820B       109     A     
 COMPASS   ZBC11.1  SX6    B1          SET A-ERROR                                         F4820B       110     A     
 COMPASS            SA6    AERR                                                            F4820B       111     A     
 COMPASS            SA6    EFLG                                                            F4820B       112     A     
 COMPASS   ZBC11.2  SX1    16          CALL UPPOS(16)                                      F4820B       113     A     
 COMPASS            RJ     UPPOS                                                           F4820B       114     A     
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,25,4)                              F4820B       115     A     
 COMPASS            SX2    25                                                              F4820B       116     A     
 COMPASS            SX3    4                                                               F4820B       117     A     
 COMPASS            RJ     PACKO                                                           F4820B       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/28. 19.11.32.      PAGE 524    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    OPVAL       CALL BINOUT(OPVAL,16,0,0)                           F4820B       119     A     
 COMPASS            SX2    16                                                              F4820B       120     A     
 COMPASS            SX3    B0                                                              F4820B       121     A     
 COMPASS            SX4    B0                                                              F4820B       122     A     
 COMPASS            RJ     BINOUT                                                          F4820B       123     A     
 COMPASS            RJ     DWORD                                                           F4820B       124     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       125     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       126     A     
 COMPASS            RJ     UPPOS                                                           F4820B       127     A     
 COMPASS            SA1    OPADS+1     CALL PACKO(OPADS+1,25,4)                            F4820B       128     A     
 COMPASS            SX2    25                                                              F4820B       129     A     
 COMPASS            SX3    4                                                               F4820B       130     A     
 COMPASS            RJ     PACKO                                                           F4820B       131     A     
 COMPASS            SA1    OPADS+1     CALL BINOUT(OPADS+1,16,0,0)                         F4820B       132     A     
 COMPASS            SX2    16                                                              F4820B       133     A     
 COMPASS            SX3    B0                                                              F4820B       134     A     
 COMPASS            SX4    B0                                                              F4820B       135     A     
 COMPASS            RJ     BINOUT                                                          F4820B       136     A     
 COMPASS            RJ     DWORD                                                           F4820B       137     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       138     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       139     A     
 COMPASS            RJ     UPPOS                                                           F4820B       140     A     
 COMPASS            SA1    OPADS+2     CALL PACKO(OPADS+2,25,4)                            F4820B       141     A     
 COMPASS            SX2    25                                                              F4820B       142     A     
 COMPASS            SX3    4                                                               F4820B       143     A     
 COMPASS            RJ     PACKO                                                           F4820B       144     A     
 COMPASS            SA1    OPADS+2     CALL BINOUT(OPADS+2,16,0,0)                         F4820B       145     A     
 COMPASS            SX2    16                                                              F4820B       146     A     
 COMPASS            SX3    B0                                                              F4820B       147     A     
 COMPASS            SX4    B0                                                              F4820B       148     A     
 COMPASS            RJ     BINOUT                                                          F4820B       149     A     
 COMPASS            RJ     DWORD                                                           F4820B       150     A     
 COMPASS            RJ     LISTERG                                                         F4820B       151     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       152     A     
 COMPASS            RJ     UPPOS                                                           F4820B       153     A     
 COMPASS            SX1    0           CALL PACKO(0,25,4)                                  F4820B       154     A     
 COMPASS            SX2    25                                                              F4820B       155     A     
 COMPASS            SX3    4                                                               F4820B       156     A     
 COMPASS            RJ     PACKO                                                           F4820B       157     A     
 COMPASS            SX1    0           CALL BINOUT(0,16,0,0)                               F4820B       158     A     
 COMPASS            SX2    16                                                              F4820B       159     A     
 COMPASS            SX3    B0                                                              F4820B       160     A     
 COMPASS            SX4    B0                                                              F4820B       161     A     
 COMPASS            RJ     BINOUT                                                          F4820B       162     A     
 COMPASS            JP     ZLISTG      RETURN                                              F4820B       163     A     
 COMPASS                                                                                   F4820B       164     A     
 COMPASS  **        12 - 2 16-BIT ADDRESS.  (QCL)                                          F4820B       165     A     
 COMPASS                                                                                   F4820B       166     A     
 COMPASS   ZBC12.0  SX1    16          CALL UPPOS(16)                                      F4820B       167     A     
 COMPASS            RJ     UPPOS                                                           F4820B       168     A     
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,25,4)                              F4820B       169     A     
 COMPASS            SX2    25                                                              F4820B       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/28. 19.11.32.      PAGE 525    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX3    4                                                               F4820B       171     A     
 COMPASS            RJ     PACKO                                                           F4820B       172     A     
 COMPASS            SA1    OPVAL       CALL BINOUT(OPVAL,16,0,0)                           F4820B       173     A     
 COMPASS            SX2    16                                                              F4820B       174     A     
 COMPASS            SX3    B0                                                              F4820B       175     A     
 COMPASS            SX4    B0                                                              F4820B       176     A     
 COMPASS            RJ     BINOUT                                                          F4820B       177     A     
 COMPASS            RJ     DWORD                                                           F4820B       178     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       179     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       180     A     
 COMPASS            RJ     UPPOS                                                           F4820B       181     A     
 COMPASS            SA1    OPADS+1     CALL PACKO(OPADS+1,25,4)                            F4820B       182     A     
 COMPASS            SX2    25                                                              F4820B       183     A     
 COMPASS            SX3    4                                                               F4820B       184     A     
 COMPASS            RJ     PACKO                                                           F4820B       185     A     
 COMPASS            SA1    OPADS+1     CALL BINOUT(OPADS+1,16,0,0)                         F4820B       186     A     
 COMPASS            SX2    16                                                              F4820B       187     A     
 COMPASS            SX3    B0                                                              F4820B       188     A     
 COMPASS            SX4    B0                                                              F4820B       189     A     
 COMPASS            RJ     BINOUT                                                          F4820B       190     A     
 COMPASS            RJ     DWORD                                                           F4820B       191     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       192     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       193     A     
 COMPASS            RJ     UPPOS                                                           F4820B       194     A     
 COMPASS            SA1    EXVAL       CALL PACKO(EXVAL,25,4)                              F4820B       195     A     
 COMPASS            SX2    25                                                              F4820B       196     A     
 COMPASS            SX3    4                                                               F4820B       197     A     
 COMPASS            RJ     PACKO                                                           F4820B       198     A     
 COMPASS            SA1    EXVAL       CALL BINOUT(EXVAL,16,0,0)                           F4820B       199     A     
 COMPASS            SX2    16                                                              F4820B       200     A     
 COMPASS            SX3    B0                                                              F4820B       201     A     
 COMPASS            SX4    B0                                                              F4820B       202     A     
 COMPASS            RJ     BINOUT                                                          F4820B       203     A     
 COMPASS            JP     ZLISTG      RETURN                                              F4820B       204     A     
 COMPASS                                                                                   F4820B       205     A     
 COMPASS  **        13 - 7-BIT RELATIVE ADDRESS.  (L1R)                                    F4820B       206     A     
 COMPASS                                                                                   F4820B       207     A     
 COMPASS   ZBC13.0  BX1    X2          CALL PACKO(VALUE,34,4)                              F4820B       208     A     
 COMPASS            SX2    34                                                              F4820B       209     A     
 COMPASS            SX3    4                                                               F4820B       210     A     
 COMPASS            RJ     PACKO                                                           F4820B       211     A     
 COMPASS            SX6    1R(                                                             F4820B       212     A     
 COMPASS            SA6    OCTAL+29                                                        F4820B       213     A     
 COMPASS            SX6    1R)                                                             F4820B       214     A     
 COMPASS            SA6    OCTAL+34                                                        F4820B       215     A     
 COMPASS            SA2    OPADS+1                                                         F4820B       216     A     
 COMPASS            SA3    OPVAL                                                           F4820B       217     A     
 COMPASS            SA4    LOCCTR                                                          F4820B       218     A     
 COMPASS            SB6    B0                                                              F4820B       219     A     
 COMPASS            IX2    X2-X4                                                           F4820B       220     A     
 COMPASS            MX0    -7                                                              F4820B       221     A     
 COMPASS            PL     X2,ZBC1     IF JUMP FORWARD                                     F4820B       222     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 526    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX3    X3+0#0080                                                       F4820B       223     A     
 COMPASS            BX2    -X2                                                             F4820B       224     A     
 COMPASS            JP     ZBC1                                                            F4820B       225     A     
 COMPASS                                                                                   F4820B       226     A     
 COMPASS  **        14 - 16 BIT INSTRUCTION AND 16 BIT ADDRESS (LJM)                       F4820B       227     A     
 COMPASS                                                                                   F4820B       228     A     
 COMPASS   ZBC14.0  SX1    16          CALL UPPOS(16)                                      F4820B       229     A     
 COMPASS            RJ     UPPOS                                                           F4820B       230     A     
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,25,4)                              F4820B       231     A     
 COMPASS            SX2    25                                                              F4820B       232     A     
 COMPASS            SX3    4                                                               F4820B       233     A     
 COMPASS            RJ     PACKO                                                           F4820B       234     A     
 COMPASS            SA1    OPVAL       CALL BINOUT(OPVAL,16,0,0)                           F4820B       235     A     
 COMPASS            SX2    16                                                              F4820B       236     A     
 COMPASS            SX3    B0                                                              F4820B       237     A     
 COMPASS            SX4    B0                                                              F4820B       238     A     
 COMPASS            RJ     BINOUT                                                          F4820B       239     A     
 COMPASS            RJ     DWORD                                                           F4820B       240     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       241     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       242     A     
 COMPASS            RJ     UPPOS                                                           F4820B       243     A     
 COMPASS            SA1    OPADS+1     CALL PACKO(OPADS+1,25,4)                            F4820B       244     A     
 COMPASS            SX2    25                                                              F4820B       245     A     
 COMPASS            SX3    4                                                               F4820B       246     A     
 COMPASS            RJ     PACKO                                                           F4820B       247     A     
 COMPASS            SA1    OPADS+1     CALL BINOUT(OPADS+1,16,0,0)                         F4820B       248     A     
 COMPASS            SX2    16                                                              F4820B       249     A     
 COMPASS            SX3    B0                                                              F4820B       250     A     
 COMPASS            SX4    B0                                                              F4820B       251     A     
 COMPASS            RJ     BINOUT                                                          F4820B       252     A     
 COMPASS            JP     ZLISTG      RETURN                                              F4820B       253     A     
 COMPASS                                                                                   F4820B       254     A     
 COMPASS  **        15 - 16 BIT INSTRUCTION WITH 3 16 BIT ADDRESS FIELDS (QGT)             F4820B       255     A     
 COMPASS                                                                                   F4820B       256     A     
 COMPASS   ZBC15.0  BX6    X4          SAVE 2ND ADDRESS FIELD                              F4820B       257     A     
 COMPASS            SA1    CHAR        CHECK 3RD ADDRESS                                   F4820B       258     A     
 COMPASS            SA6    OPADS+2                                                         F4820B       259     A     
 COMPASS            SB2    X1-1R                                                           F4820B       260     A     
 COMPASS            ZR     B2,ZBC15.1  IF NO 3RD ADDRESS                                   F4820B       261     A     
 COMPASS            SX1    16           SCAN 3RD ADDRESS                                   F4820B       262     A     
 COMPASS            RJ     SCAD                                                            F4820B       263     A     
 COMPASS            SA1    EXVAL       ENTER MODE                                          F4820B       264     A     
 COMPASS            MX3    -16                                                             F4820B       265     A     
 COMPASS            BX1    -X3*X1                                                          F4820B       266     A     
 COMPASS            BX6    X1                                                              F4820B       267     A     
 COMPASS            SA6    OPADS+3                                                         F4820B       268     A     
 COMPASS            JP     ZBC15.2                                                         F4820B       269     A     
 COMPASS   ZBC15.1  SX6    B1          SET A-ERROR                                         F4820B       270     A     
 COMPASS            SA6    AERR                                                            F4820B       271     A     
 COMPASS            SA6    EFLG                                                            F4820B       272     A     
 COMPASS   ZBC15.2  SX1    16          CALL UPPOS(16)                                      F4820B       273     A     
 COMPASS            RJ     UPPOS                                                           F4820B       274     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 527    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,25,4)                              F4820B       275     A     
 COMPASS            SX2    25                                                              F4820B       276     A     
 COMPASS            SX3    4                                                               F4820B       277     A     
 COMPASS            RJ     PACKO                                                           F4820B       278     A     
 COMPASS            SA1    OPVAL       CALL BINOUT(OPVAL,16,0,0)                           F4820B       279     A     
 COMPASS            SX2    16                                                              F4820B       280     A     
 COMPASS            SX3    B0                                                              F4820B       281     A     
 COMPASS            SX4    B0                                                              F4820B       282     A     
 COMPASS            RJ     BINOUT                                                          F4820B       283     A     
 COMPASS            RJ     DWORD                                                           F4820B       284     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       285     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       286     A     
 COMPASS            RJ     UPPOS                                                           F4820B       287     A     
 COMPASS            SA1    OPADS+1     CALL PACKO(OPADS+1,25,4)                            F4820B       288     A     
 COMPASS            SX2    25                                                              F4820B       289     A     
 COMPASS            SX3    4                                                               F4820B       290     A     
 COMPASS            RJ     PACKO                                                           F4820B       291     A     
 COMPASS            SA1    OPADS+1     CALL BINOUT(OPADS+1,16,0,0)                         F4820B       292     A     
 COMPASS            SX2    16                                                              F4820B       293     A     
 COMPASS            SX3    B0                                                              F4820B       294     A     
 COMPASS            SX4    B0                                                              F4820B       295     A     
 COMPASS            RJ     BINOUT                                                          F4820B       296     A     
 COMPASS            RJ     DWORD                                                           F4820B       297     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       298     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       299     A     
 COMPASS            RJ     UPPOS                                                           F4820B       300     A     
 COMPASS            SA1    OPADS+2     CALL PACKO(OPADS+2,25,4)                            F4820B       301     A     
 COMPASS            SX2    25                                                              F4820B       302     A     
 COMPASS            SX3    4                                                               F4820B       303     A     
 COMPASS            RJ     PACKO                                                           F4820B       304     A     
 COMPASS            SA1    OPADS+2     CALL BINOUT(OPADS+2,16,0,0)                         F4820B       305     A     
 COMPASS            SX2    16                                                              F4820B       306     A     
 COMPASS            SX3    B0                                                              F4820B       307     A     
 COMPASS            SX4    B0                                                              F4820B       308     A     
 COMPASS            RJ     BINOUT                                                          F4820B       309     A     
 COMPASS            RJ     DWORD                                                           F4820B       310     A     
 COMPASS            RJ     LISTERG                                                         F4820B       311     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       312     A     
 COMPASS            RJ     UPPOS                                                           F4820B       313     A     
 COMPASS            SA1    OPADS+3     CALL PACKO(OPADS+3,25,4)                            F4820B       314     A     
 COMPASS            SX2    25                                                              F4820B       315     A     
 COMPASS            SX3    4                                                               F4820B       316     A     
 COMPASS            RJ     PACKO                                                           F4820B       317     A     
 COMPASS            SA1    OPADS+3     CALL BINOUT(OPADS+3,16,0,0)                         F4820B       318     A     
 COMPASS            SX2    16                                                              F4820B       319     A     
 COMPASS            SX3    B0                                                              F4820B       320     A     
 COMPASS            SX4    B0                                                              F4820B       321     A     
 COMPASS            RJ     BINOUT                                                          F4820B       322     A     
 COMPASS            JP     ZLISTG      RETURN                                              F4820B       323     A     
 COMPASS                                                                                   F4820B       324     A     
 COMPASS                                                                                   F4820B       325     A     
 COMPASS  **        16 - 4 BIT ADDRESS AND 15-4 BIT FLAG (SCM)                             F4820B       326     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 528    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   F4820B       327     A     
 COMPASS   ZBC16.0  BX7    -X0*X4      CHECK SECOND FIELD                                  F4820B       328     A     
 COMPASS            SX6    15                                                              F4820B       329     A     
 COMPASS            IX7    X6-X7       SUBTRACT 15 FROM FLAG                               F4820B       330     A     
 COMPASS            BX6    X0*X4       CHECK ANY BITS GREATER THAN 4                       F4820B       331     A     
 COMPASS            SB6    4                                                               F4820B       332     A     
 COMPASS            IX3    X3+X7                                                           F4820B       333     A     
 COMPASS            ZR     X6,ZBC1     CHECK FIRST FIELD                                   F4820B       334     A     
 COMPASS            JP     ZBC2        SET ERROR                                           F4820B       335     A     
 COMPASS                                                                                   F4820B       336     A     
 COMPASS  **        17 - 16 BIT INSTRUCTION AND 16 BIT RELATIVE FORWARD                    F4820B       337     A     
 COMPASS                                                                                   F4820B       338     A     
 COMPASS   ZBC17.0  SX1    16          CALL UPPOS(16)                                      F4820B       339     A     
 COMPASS            RJ     UPPOS                                                           F4820B       340     A     
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,25,4)                              F4820B       341     A     
 COMPASS            SX2    25                                                              F4820B       342     A     
 COMPASS            SX3    4                                                               F4820B       343     A     
 COMPASS            RJ     PACKO                                                           F4820B       344     A     
 COMPASS            SA1    OPVAL       CALL BINOUT (OPVAL,16,0,0)                          F4820B       345     A     
 COMPASS            SX2    16                                                              F4820B       346     A     
 COMPASS            SX3    B0                                                              F4820B       347     A     
 COMPASS            SX4    B0                                                              F4820B       348     A     
 COMPASS            RJ     BINOUT                                                          F4820B       349     A     
 COMPASS            RJ     DWORD                                                           F4820B       350     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           F4820B       351     A     
 COMPASS                                                                                   F4820B       352     A     
 COMPASS            SX1    16          CALL UPPOS(16)                                      F4820B       353     A     
 COMPASS            RJ     UPPOS                                                           F4820B       354     A     
 COMPASS            SA1    OPADS+1     CALL PACKO(OPADS+1,25,4)                            F4820B       355     A     
 COMPASS            SA3    LOCCTR      LOAD LOCATION COUNTER                               F4820B       356     A     
 COMPASS            IX1    X1-X3       CONVERT TO RELATIVE FORWARD                         F4820B       357     A     
 COMPASS            MI     X1,ZBC2     IF BACKWARDS, SET ERROR                             F4820B       358     A     
 COMPASS            SX2    25                                                              F4820B       359     A     
 COMPASS            SX3    4                                                               F4820B       360     A     
 COMPASS            RJ     PACKO                                                           F4820B       361     A     
 COMPASS            SA1    OPADS+1     CALL BINOUT(OPADS+1,16,0,0)                         F4820B       362     A     
 COMPASS            SA4    LOCCTR      LOAD LOCATION COUNTER                               F4820B       363     A     
 COMPASS            IX1    X1-X4       CONVERT TO RELATIVE                                 F4820B       364     A     
 COMPASS            MI     X1,ZBC2     IF BACKWARDS, SET ERROR                             F4820B       365     A     
 COMPASS            SX2    16                                                              F4820B       366     A     
 COMPASS            SX3    B0                                                              F4820B       367     A     
 COMPASS            SX4    B0                                                              F4820B       368     A     
 COMPASS            RJ     BINOUT                                                          F4820B       369     A     
 COMPASS            JP     ZLISTG      RETURN                                              F4820B       370     A     
 COMPASS                                                                                   F4820B       371     A     
 COMPASS                                                                                   F4820B       372     A     
 COMPASS                                                                                   F4820        402     A     
 COMPASS   ZBCA     BSS    0                                                               F4820        403     A     
 COMPASS                                                                                   F4820B       373     A     
 COMPASS  **        THE BIT LAYOUT OF THE INSTRUCTION FORMAT JUMP TABLE IS..               F4820B       374     A     
 COMPASS  *                                                                                F4820B       375     A     
 COMPASS  *         BITS 59-56 = BIT DEFINES NUMBER OF ADDRESS FIELDS MINUS 1.             F4820B       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/28. 19.11.32.      PAGE 529    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         BITS 53-36 = INSTRUCTION LENGTH IN BITS MINUS 16.                      F4820B       377     A     
 COMPASS  *         BITS 35-18 = WIDTH OF FIRST ADDRESS FIELD.                             F4820B       378     A     
 COMPASS  *         BITS 18-00 = ADDRESS OF NAD INSTRUCTION CREAKER.                       F4820B       379     A     
 COMPASS  *                                                                                F4820B       380     A     
 COMPASS            LOC    0                                                               F4820B       381     A     
 COMPASS                                                                                   F4820B       382     A     
 COMPASS            VFD    24/,18/4,18/ZBC1                                                F4820        404     A     
 COMPASS            VFD    24/,18/4,18/ZBC5                                                F4820        405     A     
 COMPASS            VFD    24/,18/4,18/ZBC6                                                F4820        406     A     
 COMPASS            VFD    24/,18/8,18/ZBC7                                                F4820        407     A     
 COMPASS                                                                                   F4820        408     A     
 COMPASS            VFD    24/,18/16,18/ZBC8                                               F4820        409     A     
 COMPASS            VFD    24/,18/4,18/ZBC9                                                F4820        410     A     
 COMPASS            VFD    1/1,23/,18/8,18/ZBC10                                           F4820        411     A     
 COMPASS            VFD    1/1,23/,18/4,18/ZBC12                                           F4820        412     A     
 COMPASS                                                                                   F4820B       383     A     
 COMPASS            VFD    4/0,20/0/,18/1,18/ZBC8.0                                        F4820B       384     A     
 COMPASS            VFD    4/0,20/0/,18/16,18/ZBC9.0                                       F4820B       385     A     
 COMPASS            VFD    4/0,20/0/,18/12,18/ZBC10.0                                      F4820B       386     A     
 COMPASS            VFD    4/16B,20/48,18/16,18/ZBC11.0                                    F4820B       387     A     
 COMPASS                                                                                   F4820B       388     A     
 COMPASS            VFD    4/17B,20/32,18/16,18/ZBC12.0                                    F4820B       389     A     
 COMPASS            VFD    4/0,20/0/,18/16,18/ZBC13.0                                      F4820B       390     A     
 COMPASS            VFD    4/0,20/16,18/16,18/ZBC14.0                                      F4820B       391     A     
 COMPASS            VFD    4/14B,20/48,18/16,18/ZBC15.0                                    F4820B       392     A     
 COMPASS            VFD    1/1,23/,18/4,18/ZBC16.0                                         F4820B       393     A     
 COMPASS            VFD    4/0,20/16,18/16,18/ZBC17.0                                      F4820B       394     A     
 COMPASS                                                                                   F4820B       395     A     
 COMPASS   ZBCAL    BSS    0                                                               F4820B       396     A     
 COMPASS            LOC    *O                                                              F4820B       397     A     
 COMPASS   ZMC      SPACE  4,30                                                            F4820        413     A     
 COMPASS  **        MCU INSTRUCTIONS.                                                      F4820        414     A     
 COMPASS                                                                                   F4820        415     A     
 COMPASS                                                                                   F4820        416     A     
 COMPASS   ZMC      SX1    8           PROCESS LOCATION FIELD                              F4820        417     A     
 COMPASS            RJ     ZPRLOC                                                          F4820        418     A     
 COMPASS            SA1    OPTYPE                                                          F4820        419     A     
 COMPASS            MX0    -8          ISOLATE 8-BIT OP CODE                               F4820        420     A     
 COMPASS            BX7    -X0*X1                                                          F4820        421     A     
 COMPASS            AX1    27          EXTRACT CONTROL DIGIT                               F4820        422     A     
 COMPASS            MX0    -3                                                              F4820        423     A     
 COMPASS            SA7    OPVAL                                                           F4820        424     A     
 COMPASS            BX6    -X0*X1                                                          F4820        425     A     
 COMPASS            SA1    ZMCA+X6     EXTRACT FIELD WIDTH                                 F4820        426     A     
 COMPASS            BX6    X1                                                              F4820        427     A     
 COMPASS            SA6    OPADS       TYPE FLAG                                           F4820        428     A     
 COMPASS            AX1    48                                                              F4820        429     A     
 COMPASS            ZR     X1,ZMC1     IF NO ADDRESS FIELD                                 F4820        430     A     
 COMPASS            RJ     SCAD        SCAN ADDRESS FIELD                                  F4820        431     A     
 COMPASS   ZMC1     SX1    8           CALL UPPOS(8)                                       F4820        432     A     
 COMPASS            RJ     UPPOS                                                           F4820        433     A     
 COMPASS            SA1    OPVAL       CALL PACKO(OPVAL,23,2)                              F4820        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/28. 19.11.32.      PAGE 530    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX2    23                                                              F4820        435     A     
 COMPASS            SX3    2                                                               F4820        436     A     
 COMPASS            RJ     PACKO                                                           F4820        437     A     
 COMPASS            SA1    OPVAL       CALL BINOUT(OPVAL,8,0,0)                            F4820        438     A     
 COMPASS            SX2    8                                                               F4820        439     A     
 COMPASS            SX3    B0                                                              F4820        440     A     
 COMPASS            SX4    B0                                                              F4820        441     A     
 COMPASS            RJ     BINOUT                                                          F4820        442     A     
 COMPASS            SA1    OPADS       CHECK TYPE                                          F4820        443     A     
 COMPASS            SA2    EXVAL       (X2) = ADDRESS VALUE                                F4820        444     A     
 COMPASS            MX0    -8          (X0) = FIELD WIDTH                                  F4820        445     A     
 COMPASS            SB7    X1                                                              F4820        446     A     
 COMPASS            JP     B7                                                              F4820        447     A     
 COMPASS                                                                                   F4820        448     A     
 COMPASS                                                                                   F4820        449     A     
 COMPASS  **        0 - NO ADDRESS FIELD.                                                  F4820        450     A     
 COMPASS                                                                                   F4820        451     A     
 COMPASS   ZMC2     EQU    ZLISTG      RETURN                                              F4820        452     A     
 COMPASS                                                                                   F4820        453     A     
 COMPASS                                                                                   F4820        454     A     
 COMPASS  **        1 - 8-BIT ADDRESS FIELD.                                               F4820        455     A     
 COMPASS                                                                                   F4820        456     A     
 COMPASS   ZMC3     BX7    X0*X2       CHECK FOR EXCESS                                    F4820        457     A     
 COMPASS            ZR     X7,ZMC5     IF NOT OVER FIELD WIDTH                             F4820        458     A     
 COMPASS            BX7    -X0+X2                                                          F4820        459     A     
 COMPASS            ZR     X7,ZMC5     IF NEGATIVE NUMBER WITHIN FIELD                     F4820        460     A     
 COMPASS                                                                                   F4820        461     A     
 COMPASS                                                                                   F4820        462     A     
 COMPASS  **        PROCESS *A* ERROR.                                                     F4820        463     A     
 COMPASS                                                                                   F4820        464     A     
 COMPASS   ZMC4     SX6    B1          SET *A* ERROR                                       F4820        465     A     
 COMPASS            SA6    AERR                                                            F4820        466     A     
 COMPASS            SA6    EFLG                                                            F4820        467     A     
 COMPASS                                                                                   F4820        468     A     
 COMPASS                                                                                   F4820        469     A     
 COMPASS  **        FORM ADDRESS FIELD.                                                    F4820        470     A     
 COMPASS                                                                                   F4820        471     A     
 COMPASS   ZMC5     BX6    -X0*X2      TRUNCATE ADDRESS                                    F4820        472     A     
 COMPASS            SA6    OPVAL                                                           F4820        473     A     
 COMPASS            RJ     DWORD       DUMP THIS WORD                                      F4820        474     A     
 COMPASS            SX1    8           CALL UPPOS(8)                                       F4820        475     A     
 COMPASS            RJ     UPPOS                                                           F4820        476     A     
 COMPASS            SA3    OPADS       CALL PACKO(OPVAL,24+FW/4,FW/4)                      F4820        477     A     
 COMPASS            SA1    OPVAL                                                           F4820        478     A     
 COMPASS            AX3    20                                                              F4820        479     A     
 COMPASS            SX2    X3+24                                                           F4820        480     A     
 COMPASS            RJ     PACKO                                                           F4820        481     A     
 COMPASS            SA1    OPADS                                                           F4820        482     A     
 COMPASS            LX1    59-22                                                           F4820        483     A     
 COMPASS            PL     X1,ZMC6     IF 8-BIT FIELD                                      F4820        484     A     
 COMPASS            SA1    OPVAL       CALL BINOUT(HIBITS,8,0,0)                           F4820        485     A     
 COMPASS            SX2    8                                                               F4820        486     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 531    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX3    0                                                               F4820        487     A     
 COMPASS            BX4    X4-X4                                                           F4820        488     A     
 COMPASS            AX1    8                                                               F4820        489     A     
 COMPASS            RJ     BINOUT                                                          F4820        490     A     
 COMPASS            RJ     DWORD                                                           F4820        491     A     
 COMPASS            SX1    8                                                               F4820        492     A     
 COMPASS            RJ     UPPOS       CALL UPPOS(8)                                       F4820        493     A     
 COMPASS   ZMC6     SA1    OPVAL       CALL BINOUT(LOBITS,8,0,0)                           F4820        494     A     
 COMPASS            SX2    8                                                               F4820        495     A     
 COMPASS            MX3    0                                                               F4820        496     A     
 COMPASS            BX4    X4-X4                                                           F4820        497     A     
 COMPASS            RJ     BINOUT                                                          F4820        498     A     
 COMPASS            JP     ZLISTG      RETURN                                              F4820        499     A     
 COMPASS                                                                                   F4820        500     A     
 COMPASS                                                                                   F4820        501     A     
 COMPASS  **        2 - 16-BIT ADDRESS FIELD.                                              F4820        502     A     
 COMPASS                                                                                   F4820        503     A     
 COMPASS                                                                                   F4820        504     A     
 COMPASS   ZMC7     MX0    16                                                              F4820        505          I
          -F4820A 
 COMPASS            JP     ZMC3                                                            F4820        506          I
          -F4820A 
 COMPASS   ZMC7     MX0    -16                                                             F4820A        11     A     
 COMPASS            SA1    RMODE       CHECK FOR REVERSED ADDRESS                          F4820A        12     A     
 COMPASS            ZR     X1,ZMC3     IF NORMAL ADDRESS MODE                              F4820A        13     A     
 COMPASS                                                                                   F4820A        14     A     
 COMPASS            BX1    X2          CALL PACKO(VALUE,34,4)                              F4820A        15     A     
 COMPASS            SX2    34                                                              F4820A        16     A     
 COMPASS            SX3    4                                                               F4820A        17     A     
 COMPASS            RJ     PACKO                                                           F4820A        18     A     
 COMPASS            SX6    1R(                                                             F4820A        19     A     
 COMPASS            SA6    OCTAL+29                                                        F4820A        20     A     
 COMPASS            SX6    1R)                                                             F4820A        21     A     
 COMPASS            SA6    OCTAL+34                                                        F4820A        22     A     
 COMPASS            SA2    EXVAL                                                           F4820A        23     A     
 COMPASS            MX0    -16                                                             F4820A        24     A     
 COMPASS            MX7    -8                                                              F4820A        25     A     
 COMPASS            BX1    -X7*X2      LSB                                                 F4820A        26     A     
 COMPASS            AX2    8                                                               F4820A        27     A     
 COMPASS            LX1    8                                                               F4820A        28     A     
 COMPASS            BX7    -X7*X2      MSB                                                 F4820A        29     A     
 COMPASS            LX2    8                                                               F4820A        30     A     
 COMPASS            BX2    X0*X2       MERGE AFTER SWAPPING BYTES                          F4820A        31     A     
 COMPASS            BX2    X2+X7                                                           F4820A        32     A     
 COMPASS            BX2    X2+X1                                                           F4820A        33     A     
 COMPASS            JP     ZMC5                                                            F4820A        34     A     
 COMPASS                                                                                   F4820        507     A     
 COMPASS  **        3 - 8-BIT RELATIVE ADDRESS.                                            F4820        508     A     
 COMPASS                                                                                   F4820        509     A     
 COMPASS   ZMC8     BX1    X2          CALL PACKO(VALUE,30,4)                              F4820        510     A     
 COMPASS            SX2    34                                                              F4820        511     A     
 COMPASS            SX3    4                                                               F4820        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/28. 19.11.32.      PAGE 532    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     PACKO                                                           F4820        513     A     
 COMPASS            SX6    1R(                                                             F4820        514     A     
 COMPASS            SA6    OCTAL+29                                                        F4820        515     A     
 COMPASS            SX6    1R)                                                             F4820        516     A     
 COMPASS            SA6    OCTAL+34                                                        F4820        517     A     
 COMPASS            SA2    EXVAL                                                           F4820        518     A     
 COMPASS            SA4    LOCCTR                                                          F4820        519     A     
 COMPASS            SX6    B1+B1                                                           F4820        520     A     
 COMPASS            IX4    X4+X6                                                           F4820        521     A     
 COMPASS            IX2    X2-X4                                                           F4820        522     A     
 COMPASS            MX0    -7                                                              F4820        523     A     
 COMPASS            PL     X2,ZMC3     IF JUMP FORWARD                                     F4820        524     A     
 COMPASS            SX7    B1          CHANGE TO TWO COMPLEMENT NUMBER                     F4820        525     A     
 COMPASS            MX1    1                                                               F4820        526     A     
 COMPASS            BX2    -X1*X2                                                          F4820        527     A     
 COMPASS            IX2    X2+X7                                                           F4820        528     A     
 COMPASS            BX4    -X0+X1                                                          F4820        529     A     
 COMPASS            BX6    X4+X2                                                           F4820        530     A     
 COMPASS            MX0    -8                                                              F4820        531     A     
 COMPASS            ZR     X6,ZMC5     IF NO OVERFLOW                                      F4820        532     A     
 COMPASS            JP     ZMC4                                                            F4820        533     A     
 COMPASS                                                                                   F4820        534     A     
 COMPASS   ZMCA     BSS    0                                                               F4820        535     A     
 COMPASS            VFD    12/0,30/0,18/ZMC2                                               F4820        536     A     
 COMPASS            VFD    12/8,30/8,18/ZMC3                                               F4820        537     A     
 COMPASS            VFD    12/16,30/16,18/ZMC7                                             F4820        538     A     
 COMPASS            VFD    12/16,30/8,18/ZMC8                                              F4820        539     A     
 COMPASS   AMACALL  EJECT                                                                  COMPASS     6064          I
          -CPSA097
 COMPASS   AMACALL  EJECT  4                                                       CPSA097 CPSA097       13     A     
 COMPASS  **        MACRO CALL.                                                            COMPASS     6065     A     
 COMPASS                                                                                   COMPASS     6066     A     
 COMPASS                                                                                   COMPASS     6067     A     
 COMPASS   ZMACALL  SA1    OPTYPE      SEE IF A LOCATION TERM SHOULD BE                    COMPASS     6068     A     
 COMPASS            SA2    LOCSYM      LISTED                                              COMPASS     6069     A     
 COMPASS            LX1    2                                                               COMPASS     6070     A     
 COMPASS            NG     X1,ZMCL1    IF TYPE 1 MACRO                                     COMPASS     6071          I
          -CMP029 
 COMPASS            MI     X1,ZMCL1    IF TYPE 2 MACRO (LOCATION ARGUMENT)                 CMP029        17     A     
 COMPASS            MX1    0                                                               COMPASS     6072     A     
 COMPASS            ZR     X2,ZMCL1    IF NO LOCATION FIELD                                COMPASS     6073     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS     6074     A     
 COMPASS            SA1    EFLG                                                            COMPASS     6075          I
          -CMP029 
 COMPASS            ZR     X1,ZMCL2    IF NO ERROR                                         COMPASS     6076          I
          -CMP029 
 COMPASS            EQ     ZLIST                                                           COMPASS     6077          I
          -CMP029 
 COMPASS            EQ     ZMCL2                                                           CMP029        18     A     
 COMPASS   ZMCL1    SA1    LWORD                                                           COMPASS     6078     A     
 COMPASS            SA2    POSCTR                                                          COMPASS     6079     A     
 COMPASS            BX3    X1-X2                                                           COMPASS     6080     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 533    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X3,ZMCL2    IF POS " LWORD                                      COMPASS     6081     A     
 COMPASS            RJ     LLA                                                             COMPASS     6082     A     
 COMPASS   ZMCL2    SA1    NLFLG       SET DEFERRED LIST FLAG                              COMPASS     6083          I
          -CMP029 
 COMPASS   ZMCL2    SA1    EFLG        LIST IF ERROR                                       CMP029        19     A     
 COMPASS            NZ     X1,ZLIST                                                        CMP029        20     A     
 COMPASS            SA1    NLFLG       SET DEFERRED LIST FLAG                              CMP029        21     A     
 COMPASS            SA2    DLFLG                                                           COMPASS     6084     A     
 COMPASS            SA3    LG+1                                                            CMP051         1     A     
 COMPASS            SX6    B1                                                              COMPASS     6085     A     
 COMPASS            NZ     X3,ZLIST    IF LIST G ON                                        CMP051         2     A     
 COMPASS            BX6    X1-X6                                                           COMPASS     6086     A     
 COMPASS            BX6    X6+X2                                                           COMPASS     6087     A     
 COMPASS            SA6    A2                                                              COMPASS     6088     A     
 COMPASS            EQ     Z100                                                            COMPASS     6089     A     
 COMPASS   ZLLA     SPACE  4                                                               COMPASS     6090     A     
 COMPASS  **        ZLLA - LIST LOCATION ADDRESS.                                          COMPASS     6091     A     
 COMPASS                                                                                   COMPASS     6092     A     
 COMPASS                                                                                   COMPASS     6093     A     
 COMPASS   ZLLA     RJ     LLA                                                             COMPASS     6094     A     
 COMPASS   ZLIST    SPACE  4                                                               COMPASS     6095     A     
 COMPASS  **        ZLIST - LIST CURRENT LINE.                                             COMPASS     6096     A     
 COMPASS                                                                                   COMPASS     6097     A     
 COMPASS                                                                                   COMPASS     6098     A     
 COMPASS   ZLIST    SA2    EFLG                                                            COMPASS     6099     A     
 COMPASS            ZR     X2,ZLST1    IF NO ERROR                                         COMPASS     6100     A     
 COMPASS            RJ     LDL         LIST DEFERRED LINE                                  COMPASS     6101     A     
 COMPASS   ZLST1    RJ     LISTER                                                          COMPASS     6102     A     
 COMPASS            EQ     Z100                                                            COMPASS     6103     A     
 COMPASS   ABS      TITLE  PSEUDO-OP PROCESSING.                                           COMPASS     6104     A     
 COMPASS  ***       ABS - ABSOLUTE ASSEMBLY.                                               COMPASS     6105     A     
 COMPASS  *                                                                                COMPASS     6106     A     
 COMPASS  *                                                                                COMPASS     6107     A     
 COMPASS  *         ABS                                                                    COMPASS     6108     A     
 COMPASS  *         ABS DECLARES THE PROGRAM TO BE ABSOLUTE.  IF USED, IT MUST             COMPASS     6109     A     
 COMPASS  *         APPEAR AT THE BEGINNING OF THE ASSEMBLY.  IN ABSOLUTE                  COMPASS     6110     A     
 COMPASS  *         ASSEMBLIES, THE FOLLOWING ARE ILLEGAL.                                 COMPASS     6111     A     
 COMPASS  *                EXT                                                             COMPASS     6112     A     
 COMPASS  *                LCC                                                             COMPASS     6113     A     
 COMPASS  *                REP                                                             COMPASS     6114     A     
 COMPASS  *                REPC                                                            CMP30       2418     A     
 COMPASS  *                REPI                                                            COMPASS     6115     A     
 COMPASS                                                                                   COMPASS     6116     A     
 COMPASS                                                                                   COMPASS     6117     A     
 COMPASS            USE    PSEUDO                                                          COMPASS     6118     A     
 COMPASS            SEG    PSEUDO-OP PROCESSING.                                           COMPASS     6119          I
          -CMP30  
 COMPASS            SEG    PSEUDO-OP PROCESSING (A-E).                                     CMP30       2419     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6120     A     
 COMPASS   ABS      SX6    B1                                                              COMPASS     6121     A     
 COMPASS            SA6    ABSFG       SET ABSOLUTE ASSEMBLY FLAG                          COMPASS     6122     A     
 COMPASS            MX6    0                                                               COMPASS     6123     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 534    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    ORGCTR+1    AND RELOCATION FOR COUNTERS                         COMPASS     6124     A     
 COMPASS            SA6    LOCCTR+1                                                        COMPASS     6125     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     6126     A     
 COMPASS   ABS      SPACE  4                                                               COMPASS     6127     A     
 COMPASS  **        ABS - ABSOLUTE ASSEMBLY.                                               COMPASS     6128     A     
 COMPASS                                                                                   COMPASS     6129     A     
 COMPASS                                                                                   COMPASS     6130     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6131     A     
 COMPASS   ABS      EQU    ZLIST                                                           COMPASS     6132     A     
 COMPASS   BASE     SPACE  4                                                               COMPASS     6133     A     
 COMPASS  ***       BASE - NUMERIC DATA MODE.                                              COMPASS     6134     A     
 COMPASS  *                                                                                COMPASS     6135     A     
 COMPASS  *                                                                                COMPASS     6136     A     
 COMPASS  *MNAME    BASE   CHAR                                                            COMPASS     6137     A     
 COMPASS  *         (CHAR) = O SET OCTAL BASE.                                             COMPASS     6138     A     
 COMPASS  *                  D SET DECIMAL BASE.                                           COMPASS     6139     A     
 COMPASS  *                  M SET MIXED BASE.                                             COMPASS     6140     A     
 COMPASS  *                  * SET PREVIOUS BASE.                                          COMPASS     6141     A     
 COMPASS  *                  BLANK LEAVE BASE UNCHANGED.                                   COMPASS     6142     A     
 COMPASS  *         IF (MNAME) IS PRESENT, SAVE THE CURRENT BASE IN MICRO MNAME.           COMPASS     6143     A     
 COMPASS                                                                                   COMPASS     6144     A     
 COMPASS                                                                                   COMPASS     6145     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6146     A     
 COMPASS   BASE     SA2    LOCSYM                                                          COMPASS     6147     A     
 COMPASS            SA1    ABASE                                                           COMPASS     6148          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS     6149          I
          -CMP18    -CMP30  
 COMPASS            LX6    54                                                              COMPASS     6150          I
          -CMP18    -CMP30  
 COMPASS            SA6    RELVEC+1                                                        COMPASS     6151          I
          -CMP18    -CMP30  
 COMPASS            ZR     X2,BASE1    IF BASE NOT SAVED                                   COMPASS     6152          I
          -CMP30  
 COMPASS            SX7    B1                                                              CMP18         21          I
          -CMP30  
 COMPASS            LX1    54                                                              CMP18         22          I
          -CMP30  
 COMPASS            SX6    B1+B1                                                           COMPASS     6153          I
          -CMP30  
 COMPASS            BX7    X1+X7                                                           CMP18         23          I
          -CMP30  
 COMPASS            ZR     X2,BASE1    IF NO MICRO NAME                                    CMP30       2420     A     
 COMPASS            SA1    BASEMIC                                                         CMP30       2421     A     
 COMPASS            SX6    B1+B1                                                           CMP30       2422     A     
 COMPASS            BX7    X1                                                              CMP30       2423     A     
 COMPASS            SA7    RELVEC                                                          CMP18         24     A     
 COMPASS            RJ     EMT         ENTER MICRO TABLE                                   COMPASS     6154     A     
 COMPASS   BASE1    SA1    ABASE       SAVE CURRENT BASE                                   COMPASS     6155          I
          -CMP30  
 COMPASS            SA2    MBASE                                                           COMPASS     6156          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 535    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    NBASE                                                           COMPASS     6157          I
          -CMP30  
 COMPASS            LX1    36                                                              COMPASS     6158          I
          -CMP30  
 COMPASS            LX2    18                                                              COMPASS     6159          I
          -CMP30  
 COMPASS            BX6    X1+X2                                                           COMPASS     6160          I
          -CMP30  
 COMPASS            BX6    X6+X3                                                           COMPASS     6161          I
          -CMP30  
 COMPASS            SA6    P1TEMP                                                          COMPASS     6162          I
          -CMP30  
 COMPASS            SA1    CHAR        CHECK ADDRESS FIELD                                 COMPASS     6163          I
          -CMP30  
 COMPASS            SB6    X1-1R                                                           COMPASS     6164          I
          -CMP30  
 COMPASS            NZ     B6,BASE2    IF BASE CHANGE                                      COMPASS     6165          I
          -CMP30  
 COMPASS            SA1    ABASE                                                           COMPASS     6166          I
          -CMP30  
 COMPASS   BASE2    SX6    8                                                               COMPASS     6167          I
          -CMP30  
 COMPASS            SX7    8                                                               COMPASS     6168          I
          -CMP30  
 COMPASS            SB7    X1-1RO                                                          COMPASS     6169          I
          -CMP30  
 COMPASS            ZR     B7,BAS1     IF OCTAL BASE                                       COMPASS     6170          I
          -CMP30  
 COMPASS            SB7    X1-1RM                                                          COMPASS     6171          I
          -CMP30  
 COMPASS            SX6    10                                                              COMPASS     6172          I
          -CMP30  
 COMPASS            ZR     B7,BAS1     IF MIXED BASE                                       COMPASS     6173          I
          -CMP30  
 COMPASS            SB7    X1-1RD                                                          COMPASS     6174          I
          -CMP30  
 COMPASS            SX7    X6                                                              COMPASS     6175          I
          -CMP30  
 COMPASS            ZR     B7,BAS1     IF DECIMAL BASE                                     COMPASS     6176          I
          -CMP30  
 COMPASS            SB6    X1-1R*                                                          COMPASS     6177          I
          -CMP30  
 COMPASS            ZR     B6,BAS2     IF *                                                COMPASS     6178          I
          -CMP30  
 COMPASS            SX6    B1          SET *A* ERROR                                       COMPASS     6179          I
          -CMP30  
 COMPASS            SA6    AERR                                                            COMPASS     6180          I
          -CMP30  
 COMPASS            SA6    EFLG                                                            COMPASS     6181          I
          -CMP30  
 COMPASS   BAS2     SA2    O.BSTACK    UNSTACK LAST BASE                                   COMPASS     6182          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 536    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    L.BSTACK                                                        COMPASS     6183          I
          -CMP30  
 COMPASS            IX4    X2+X3                                                           COMPASS     6184          I
          -CMP30  
 COMPASS            SA4    X4-1                                                            COMPASS     6185          I
          -CMP30  
 COMPASS            NZ     X3,BAS3     IF STACK NOT EMPTY                                  COMPASS     6186          I
          -CMP30  
 COMPASS            SA4    =04000012000012B                                                COMPASS     6187          I
          -CMP30  
 COMPASS            SX3    X3+B1                                                           COMPASS     6188          I
          -CMP30  
 COMPASS   BAS3     BX6    X4                                                              COMPASS     6189          I
          -CMP30  
 COMPASS            SX7    X3-1                                                            COMPASS     6190          I
          -CMP30  
 COMPASS            SA7    A3                                                              COMPASS     6191          I
          -CMP30  
 COMPASS            EQ     BAS4                                                            COMPASS     6192          I
          -CMP30  
 COMPASS   BAS1     LX1    18                                                              COMPASS     6193          I
          -CMP30  
 COMPASS            BX6    X6+X1                                                           COMPASS     6194          I
          -CMP30  
 COMPASS            LX6    18                                                              COMPASS     6195          I
          -CMP30  
 COMPASS            BX6    X6+X7                                                           COMPASS     6196          I
          -CMP30  
 COMPASS   BAS4     SA2    ABASE       SET FLAG WORD                                       COMPASS     6197          I
          -CMP30  
 COMPASS            LX2    54                                                              COMPASS     6198          I
          -CMP30  
 COMPASS            IX6    X6+X2                                                           COMPASS     6199          I
          -CMP30  
 COMPASS            SA6    FLAG                                                            COMPASS     6200          I
          -CMP30  
 COMPASS            SX7    X6                                                              COMPASS     6201          I
          -CMP30  
 COMPASS            AX6    18                                                              COMPASS     6202          I
          -CMP30  
 COMPASS            SA7    NBASE                                                           COMPASS     6203          I
          -CMP30  
 COMPASS            SX7    X6                                                              COMPASS     6204          I
          -CMP30  
 COMPASS            AX6    18                                                              COMPASS     6205          I
          -CMP30  
 COMPASS            SA7    MBASE                                                           COMPASS     6206          I
          -CMP30  
 COMPASS            SX7    X6                                                              COMPASS     6207          I
          -CMP30  
 COMPASS            SA7    ABASE                                                           COMPASS     6208          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 537    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     B6,CTL70    IF * OR BLANK                                       COMPASS     6209          I
          -CMP30  
 COMPASS            NZ     B7,CTL70    IF UNRECOGNIZED                                     COMPASS     6210          I
          -CMP30  
 COMPASS            SA1    P1TEMP                                                          COMPASS     6211          I
          -CMP30  
 COMPASS            ADDWORD BSTACK                                                         COMPASS     6212          I
          -CMP30  
 COMPASS   BASE1    SA1    CHAR                                                            CMP30       2424     A     
 COMPASS            RJ     CBC         CHECK BASE CHARACTER                                CMP30       2425     A     
 COMPASS            MI     X6,CTL70    IF ERROR                                            CMP30       2426     A     
 COMPASS            LX1    -6                                                              CMP30       2427     A     
 COMPASS            SX7    B1                                                              CMP30       2428     A     
 COMPASS            BX6    X1+X7                                                           CMP30       2429     A     
 COMPASS            SA6    BASEMIC     STORE CURRENT BASE MICRO                            CMP30       2430     A     
 COMPASS            EQ     CTL70                                                           COMPASS     6213     A     
 COMPASS   BASE     SPACE  4                                                               COMPASS     6214     A     
 COMPASS  **        BASE - NUMERIC DATA MODE.                                              COMPASS     6215     A     
 COMPASS  *         ENTRY  (FLAG) (59-54) = PREVIOUS BASE - DISPLAY CODE.                  COMPASS     6216          I
          -CMP30  
 COMPASS  *                       (53-36) = NEW BASE - DISPLAY CODE.                       COMPASS     6217          I
          -CMP30  
 COMPASS  *                       (35-18) = MBASE - MIXED BASE.                            COMPASS     6218          I
          -CMP30  
 COMPASS  *                       (17-00) = NBASE - NORMAL BASE.                           COMPASS     6219          I
          -CMP30  
 COMPASS                                                                                   COMPASS     6220     A     
 COMPASS                                                                                   COMPASS     6221     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6222     A     
 COMPASS   BASE     SA1    FLAG        SET NOMINAL NUMBER BASE                             COMPASS     6223          I
          -CMP30  
 COMPASS            SX6    X1                                                              COMPASS     6224          I
          -CMP30  
 COMPASS            AX1    18                                                              COMPASS     6225          I
          -CMP30  
 COMPASS            SX7    X1                                                              COMPASS     6226          I
          -CMP30  
 COMPASS            SA7    MBASE                                                           COMPASS     6227          I
          -CMP30  
 COMPASS            SA6    NBASE                                                           COMPASS     6228          I
          -CMP30  
 COMPASS            AX1    18                                                              COMPASS     6229          I
          -CMP30  
 COMPASS            SX6    X1                                                              COMPASS     6230          I
          -CMP30  
 COMPASS            AX1    18                                                              COMPASS     6231          I
          -CMP30  
 COMPASS            SA6    OCTAL+35                                                        COMPASS     6232          I
          -CMP30  
 COMPASS            SX7    65B                                                             COMPASS     6233          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS     6234          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 538    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA7    A6-B1                                                           COMPASS     6235          I
          -CMP30  
 COMPASS            SA6    A7-B1                                                           COMPASS     6236          I
          -CMP30  
 COMPASS   BASE     SA1    ABASE                                                           CMP30       2431     A     
 COMPASS            SA2    CBCA+X1     GET CURRENT BASE                                    CMP30       2432     A     
 COMPASS            UX3,B7 X2                                                              CMP30       2433     A     
 COMPASS            SX6    -B7                                                             CMP30       2434     A     
 COMPASS            SX7    CONCAT                                                          CMP30       2435     A     
 COMPASS            SA6    OCTAL+33    STORE IN LISTING LINE                               CMP30       2436     A     
 COMPASS            SA7    A6+B1                                                           CMP30       2437     A     
 COMPASS            SA6    A7+B1                                                           CMP30       2438     A     
 COMPASS            SA1    CHAR                                                            CMP30       2439     A     
 COMPASS            RJ     CBC         CHECK BASE CHARACTER                                CMP30       2440     A     
 COMPASS            MI     X6,ZLIST    IF ERROR                                            CMP30       2441     A     
 COMPASS            BX6    X1                                                              CMP30       2442     A     
 COMPASS            SA6    OCTAL+35    STORE NEW LETTER                                    CMP30       2443     A     
 COMPASS            EQ     ZLIST       AND GO LIST                                         COMPASS     6237     A     
 COMPASS   BCU      SPACE  4                                                               F4820        540     A     
 COMPASS  ***       BCU - BUFFER CONTROLLER UNIT ASSEMBLY.                                 F4820        541     A     
 COMPASS  *                                                                                F4820        542     A     
 COMPASS  *                                                                                F4820        543     A     
 COMPASS  *         BCU                                                                    F4820        544     A     
 COMPASS  *         BCU DECLARES THE PROGRAM TO BE A BUFFER CONTROLLER                     F4820        545     A     
 COMPASS  *         ASSEMBLY AND ABSOLUTE.  THE RULES STATED UNDER ABS APPLY.              F4820        546     A     
 COMPASS                                                                                   F4820        547     A     
 COMPASS                                                                                   F4820        548     A     
 COMPASS            QUAL   PASS1                                                           F4820        549     A     
 COMPASS   BCU      SX6    -B1         SET FLAG FOR BCU ASSEMBLY                           F4820        550     A     
 COMPASS            SX7    B1+B1                                                           CPSA233        4     A     
 COMPASS            SA6    PPTYPE                                                          F4820        551     A     
 COMPASS            SA7    NCHARS                                                          CPSA233        5     A     
 COMPASS            SX6    B1          SET FLAGS FOR BCU ASSEMBLY                          F4820        552     A     
 COMPASS            SX7    16                                                              F4820        553     A     
 COMPASS   BCU.1    SA6    MACHINE                                                         F4820        554     A     
 COMPASS            SA7    LWORD       SET WORD LENGTH TO 16                               F4820        555     A     
 COMPASS            SA7    POSCTR      REVISE POSITION COUNTER TO 16                       F4820        556     A     
 COMPASS            SA3    /DATA/STCX  SET CHARACTER STORE FOR 8-BIT/NON-ASCII             CPSA293       67     A     
 COMPASS            BX6    X3                                                              CPSA293       68     A     
 COMPASS            SA6    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       69     A     
 COMPASS            LX7    24          RESET BLOCK COUNTERS                                F4820        557     A     
 COMPASS            SA1    O.USETAB                                                        F4820        558     A     
 COMPASS            SA2    L.USETAB                                                        F4820        559     A     
 COMPASS   BCU1     SA7    X1+B1                                                           F4820        560     A     
 COMPASS            SX2    X2-6                                                            F4820        561          I
          -CPSA195
 COMPASS            SX1    X1+6                                                            F4820        562          I
          -CPSA195
 COMPASS            SX2    X2-4                                                            CPSA195        5     A     
 COMPASS            SX1    X1+4                                                            CPSA195        6     A     
 COMPASS            NZ     X2,BCU1     LOOP                                                F4820        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/28. 19.11.32.      PAGE 539    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    STCA        CONVERT ASCII TO 8 BIT                              F4820        564     A     
 COMPASS            SB7    63                                                              F4820        565     A     
 COMPASS            SX2    40B                                                             F4820        566     A     
 COMPASS            LX2    36                                                              F4820        567          I
          -CPSA281
 COMPASS            LX2    27                                                              CPSA281      178     A     
 COMPASS   BCU2     SA3    A1+B7       FETCH CHARACTER SPEC                                F4820        568     A     
 COMPASS            IX6    X3+X2       CONVERT                                             F4820        569     A     
 COMPASS            SA6    A3                                                              F4820        570     A     
 COMPASS            SB7    B7-B1                                                           F4820        571     A     
 COMPASS            PL     B7,BCU2     LOOP                                                F4820        572     A     
 COMPASS            EQ     ABS                                                             F4820        573          I
          -CPSA305
 COMPASS   BCU3     SX6    B1                                                              CPSA305       12     A     
 COMPASS            SA6    ABSFG       SET ABSOLUTE FLAG                                   CPSA305       13     A     
 COMPASS            MX6    0                                                               CPSA305       14     A     
 COMPASS            SA6    ORGCTR+1    AND RELOCATION FOR COUNTERS                         CPSA305       15     A     
 COMPASS            SA6    LOCCTR+1                                                        CPSA305       16     A     
 COMPASS            EQ     CTL70       RETURN                                              CPSA305       17     A     
 COMPASS   BCU      SPACE  4                                                               F4820        574     A     
 COMPASS  **        BCU - BUFFER CONTROLLER UNIT ASSEMBLY.                                 F4820        575     A     
 COMPASS                                                                                   F4820        576     A     
 COMPASS                                                                                   F4820        577     A     
 COMPASS            QUAL   PASS2                                                           F4820        578     A     
 COMPASS   BCU      EQU    ZLIST                                                           F4820        579          I
          -CPSA293
 COMPASS   BCU      SA3    /DATA/STCX  SET CHARACTER STORE FOR 8-BIT/NON-ASCII             CPSA293       70     A     
 COMPASS            BX6    X3                                                              CPSA293       71     A     
 COMPASS            SA6    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       72     A     
 COMPASS            EQ     ZLIST       AND GO LIST                                         CPSA293       73     A     
 COMPASS   BCOP     SPACE  4                                                               F4820        580     A     
 COMPASS  ***       BCOP - DEFINE BC OPERATION CODE.                                       F4820        581     A     
 COMPASS  *                                                                                F4820        582     A     
 COMPASS  *                                                                                F4820        583     A     
 COMPASS  *NAME     BCOP   CTL,VAL                                                         F4820        584     A     
 COMPASS  *         (NAME) = MNEMONIC NAME.                                                F4820        585     A     
 COMPASS  *         (CTL) = 0 - 4-BIT ADDRESS.  (SAB)                                      F4820        586     A     
 COMPASS  *                 1 - (16 - 4-BIT) ADDRESS.  (SLC)                               F4820        587     A     
 COMPASS  *                 2 - (15 - 4-BIT) ADDRESS.  (TAB)                               F4820        588     A     
 COMPASS  *                 3 - 8-BIT ADDRESS.  (ADN)                                      F4820        589     A     
 COMPASS  *                 4 - 9-BIT RELATIVE ADDRESS.  (UJR)                             F4820        590     A     
 COMPASS  *                 5 - 4-BIT CHANNEL AND NO ADDRESS.  (IAN)                       F4820        591     A     
 COMPASS  *                 6 - 8-BIT ADDRESS AND OPTIONAL INDEXING.  (LDD)                F4820        592     A     
 COMPASS  *                 7 - 4-BIT CHANNEL AND 4-BIT ADDRESS.  (INT)                    F4820        593     A     
 COMPASS  *         (VAL) = 16-BIT OPERATION CODE VALUE.                                   F4820        594     A     
 COMPASS                                                                                   F4820        595     A     
 COMPASS                                                                                   F4820        596     A     
 COMPASS            QUAL   PASS1                                                           F4820        597     A     
 COMPASS   BCOP     SX7    140040B     SET BC AND OPSYN                                    F4820        598     A     
 COMPASS            JP     PPOP1                                                           F4820        599     A     
 COMPASS   BCOP     SPACE  4                                                               F4820        600     A     
 COMPASS  **        BCOP - DEFINE BC OPERATION CODE.                                       F4820        601     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 540    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   F4820        602     A     
 COMPASS                                                                                   F4820        603     A     
 COMPASS            QUAL   PASS2                                                           F4820        604     A     
 COMPASS   BCOP     EQU    ZLIST                                                           F4820        605     A     
 COMPASS   BSS      SPACE  4                                                               COMPASS     6238     A     
 COMPASS  ***       BSS - STORAGE RESERVATION.                                             COMPASS     6239     A     
 COMPASS  *                                                                                COMPASS     6240     A     
 COMPASS  *                                                                                COMPASS     6241     A     
 COMPASS  *SYM      BSS    AEXP                                                            COMPASS     6242     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   COMPASS     6243     A     
 COMPASS  *         LOCATION AND ORIGIN COUNTERS ARE INCREMENTED BY THE VALUE              COMPASS     6244     A     
 COMPASS  *         OF (AEXP).                                                             COMPASS     6245     A     
 COMPASS                                                                                   COMPASS     6246     A     
 COMPASS                                                                                   COMPASS     6247     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6248     A     
 COMPASS   BSS      EQ     BSSZ                                                            COMPASS     6249          I
          -CMP5   
 COMPASS   BSS      SA1    LWORD                                                           CMP5           1     A     
 COMPASS            RJ     YPRLOC                                                          CMP5           2     A     
 COMPASS            SX6    3           EVALUATE ADDRESS FIELD                              CMP5           3     A     
 COMPASS            SX1    21                                                              CMP5           4          I
          -CPS062 
 COMPASS            SX1    60                                                              CPS062         1     A     
 COMPASS            RJ     SCADCON                                                         CMP5           5     A     
 COMPASS            SA1    EXVAL                                                           CMP5           6     A     
 COMPASS            BX6    X1                                                              CPS062         2     A     
 COMPASS            AX6    21                                                              CPS062         3     A     
 COMPASS            NZ     X6,ERA      IF VALUE TOO LARGE                                  CPS062         4     A     
 COMPASS            PL     X1,BSS1     IF NOT NEGATIVE BSS                                 CMP5           7     A     
 COMPASS            SX6    B1                                                              CMP5           8     A     
 COMPASS            SA6    EFLG                                                            CMP5           9     A     
 COMPASS            SA6    W7ERR                                                           CMP5          10     A     
 COMPASS   BSS1     RJ     YUPLOC                                                          CMP5          11          I
          -CMP5A  
 COMPASS            SA2    ORGCTR                                                          CMP5A          1     A     
 COMPASS            IX6    X2+X1                                                           CMP5A          2     A     
 COMPASS            NG     X6,ERA      IF INTO PREVIOUS BLOCK                              CMP5A          3     A     
 COMPASS            SA3    A2+B1       FETCH BLOCK NUMBER                                  CMP5A          4     A     
 COMPASS            SA5    O.USETAB                                                        CMP5A          5     A     
 COMPASS            SA4    UI                                                              RSM4159        7     A     
 COMPASS            IX5    X4+X5       BASE ADDRESS OF BLOCK GROUP                         RSM4159        8     A     
 COMPASS            NZ     X3,BSS2     CHANGE 0 (ABSOLUTE) TO 1                            CMP5A          6     A     
 COMPASS            SA3    UI+1                                                            CMP5A          7     A     
 COMPASS   BSS2     LX4    X3,B1       MULTIPLY BY 6                                       CMP5A          8          I
          -CMP30  
 COMPASS            IX3    X4+X3                                                           CMP5A          9          I
          -CMP30  
 COMPASS            LX3    1                                                               CMP5A         10          I
          -CMP30  
 COMPASS            SB6    X3-3                                                            CMP5A         11          I
          -CMP30  
 COMPASS   BSS2     LX3    2                                                               CMP30       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/28. 19.11.32.      PAGE 541    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB6    X3-1                                                            CMP30       2445     A     
 COMPASS            SA4    X5+B6       FETCH MAX ORGCTR FOR BLOCK                          CMP5A         12     A     
 COMPASS            IX4    X2-X4                                                           CMP5A         13     A     
 COMPASS            PL     X3,CTL70    IF NOT LESS THAN NEW ORGCTR                         CMP5A         14          I
          -CMP27  
 COMPASS            PL     X4,BSS1     IF NOT LESS THAN CURRENT ORGCTR                     CMP27          8     A     
 COMPASS            BX6    X2                                                              CMP5A         15     A     
 COMPASS            SA6    A3                                                              CMP5A         16          I
          -CMP27  
 COMPASS            SA6    A4                                                              CMP27          9     A     
 COMPASS   BSS1     RJ     YUPLOC                                                          CMP5A         17          I
          -CPS062 
 COMPASS   BSS1     BX6    X1          SAVE EXPRESSION VALUE FOR PASS 2                    CPS062         5     A     
 COMPASS            SA6    FLAG                                                            CPS062         6     A     
 COMPASS            RJ     YUPLOC      ADVANCE LOCATION COUNTERS                           CPS062         7     A     
 COMPASS            EQ     CTL70                                                           CMP5          12     A     
 COMPASS   BSS      SPACE  4                                                               COMPASS     6250     A     
 COMPASS  **        BSS - STORAGE RESERVATION.                                             COMPASS     6251     A     
 COMPASS                                                                                   COMPASS     6252     A     
 COMPASS                                                                                   COMPASS     6253     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6254     A     
 COMPASS   BSS      SA1    LWORD                                                           COMPASS     6255     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS     6256     A     
 COMPASS            SX6    3                                                               COMPASS     6257     A     
 COMPASS            SX1    21                                                              COMPASS     6258          I
          -CPS062 
 COMPASS            SX1    60                                                              CPS062         8     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     6259     A     
 COMPASS            SA1    AERR                                                            COMPASS     6260     A     
 COMPASS            SA2    UERR                                                            COMPASS     6261     A     
 COMPASS            IX3    X1+X2                                                           COMPASS     6262     A     
 COMPASS            SA4    EXVAL                                                           CMP029        22          I
          -CPS028 
 COMPASS            NZ     X3,ZLIST    EXIT IF ANY ERRORS                                  COMPASS     6263     A     
 COMPASS            SA1    FLAG                                                            CPS062         9     A     
 COMPASS            SA2    ORGCTR                                                          CPS062        10     A     
 COMPASS            IX3    X1+X2                                                           CPS062        11     A     
 COMPASS            AX3    21                                                              CPS062        12     A     
 COMPASS            NZ     X3,BSSZR    IF VALUE OUT OF RANGE                               CPS062        13     A     
 COMPASS            PL     X4,BSS5     IF NOT NEGATIVE BSS                                 CMP029        23          I
          -CPS028 
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODING                                    CMP029        24          I
          -CPS028 
 COMPASS                                                                                   COMPASS     6264     A     
 COMPASS  *         ENTRY FROM BSSZ.                                                       COMPASS     6265     A     
 COMPASS                                                                                   COMPASS     6266     A     
 COMPASS   BSS5     SA1    EXVAL                                                           COMPASS     6267          I
          -CPS062 
 COMPASS            SA2    IOP                                                    S028 399 CPS028       297          I
          -CPS062 
 COMPASS            ZR     X1,ZLISTG   IF BSS 0                                            COMPASS     6268          I
          -CPS062 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 542    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   BSS5     SA1    FLAG                                                            CPS062        14     A     
 COMPASS            SA2    EXVAL                                                           CPS062        15     A     
 COMPASS            IX6    X1-X2                                                           CPS062        16     A     
 COMPASS            BX7    X1                                                              CPS062        17     A     
 COMPASS            ZR     X6,BSS7     IF SAME VALUE IN BOTH PASSES                        CPS062        18     A     
 COMPASS            SX6    B1                                                              CPS062        19     A     
 COMPASS            SA7    A2          USE PASS 1 VALUE                                    CPS062        20     A     
 COMPASS            SA6    EFLG                                                            CPS062        21     A     
 COMPASS            SA6    AERR        SET ADDRESS ERROR                                   CPS062        22     A     
 COMPASS   BSS7     ZR     X1,ZLISTG   IF BSS 0                                            CPS062        23     A     
 COMPASS            SA2    IOP         CHECK OPCODE                                        CPS0241        5     A     
 COMPASS            SX7    X2-2R                                                  S028 401 CPS028       298     A     
 COMPASS            ZR     X7,BSS6     IF BLANK OPCODE                            S028 402 CPS028       299     A     
 COMPASS            SX2    36                                                              CPS010        32     A     
 COMPASS            MX3    0                                                               CPS010        33     A     
 COMPASS            RJ     PACKO       CALL PACKO (EXVAL, 36, 0)                           CPS010        34     A     
 COMPASS            SA1    EXVAL                                                           CPS010        35          I
          -CPS028 
 COMPASS   BSS6     SA1    EXVAL                                                  S028 404 CPS028       300          I
          -CPS062 
 COMPASS   BSS6     SA1    FLAG                                                            CPS062        24     A     
 COMPASS            RJ     ZUPLOC                                                          COMPASS     6269     A     
 COMPASS            SA1    EXVAL                                                  S028 406 CPS028       301          I
          -CPS062 
 COMPASS            SA1    FLAG                                                            CPS062        25     A     
 COMPASS            PL     X1,ZLISTG   IF NOT NEGATIVE BSS                        S028 407 CPS028       302     A     
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODE                             S028 408 CPS028       303     A     
 COMPASS            RJ     DLAST       DUMP LINK AND FILL TABLES                  S028 409 CPS028       304     A     
 COMPASS            EQ     ZLISTG                                                          COMPASS     6270     A     
 COMPASS   BSSZ     SPACE  4                                                               COMPASS     6271     A     
 COMPASS  ***       BSSZ - STORAGE RESERVATION.                                            COMPASS     6272     A     
 COMPASS  *                                                                                COMPASS     6273     A     
 COMPASS  *                                                                                COMPASS     6274     A     
 COMPASS  *SYM      BSSZ   AEXP                                                            COMPASS     6275     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   COMPASS     6276     A     
 COMPASS  *         LOCATION AND ORIGIN COUNTERS ARE INCREMENTED BY THE VALUE              COMPASS     6277     A     
 COMPASS  *         OF (AEXP).  AT LOAD TIME, THE NUMBER OF WORDS SPECIFIED                COMPASS     6278     A     
 COMPASS  *         BY (AEXP) WILL BE SET TO ZERO.                                         COMPASS     6279     A     
 COMPASS                                                                                   COMPASS     6280     A     
 COMPASS                                                                                   COMPASS     6281     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6282     A     
 COMPASS   BSSZ     SA1    LWORD                                                           COMPASS     6283     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS     6284     A     
 COMPASS            SX6    3           EVALUATE ADDRESS FIELD                              COMPASS     6285     A     
 COMPASS            SX1    21                                                              COMPASS     6286          I
          -CPS062 
 COMPASS            SX1    60                                                              CPS062        26     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     6287     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6288     A     
 COMPASS            NG     X1,ERA      IF NEGATIVE BSS                                     COMPASS     6289     A     
 COMPASS            BX6    X1                                                              CPS062        27     A     
 COMPASS            SA2    ORGCTR                                                          CPS062        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/28. 19.11.32.      PAGE 543    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    FLAG        SAVE VALUE FOR PASS 2                               CPS062        29     A     
 COMPASS            IX4    X1+X2                                                           CPS062        30     A     
 COMPASS            AX4    21                                                              CPS062        31     A     
 COMPASS            NZ     X4,ERA      IF VALUE TOO LARGE                                  CPS062        32     A     
 COMPASS            RJ     YUPLOC                                                          COMPASS     6290     A     
 COMPASS            EQ     CTL70                                                           COMPASS     6291     A     
 COMPASS   BSSZ     SPACE  4                                                               COMPASS     6292     A     
 COMPASS  **        BSSZ - STORAGE RESERVATION.                                            COMPASS     6293     A     
 COMPASS                                                                                   COMPASS     6294     A     
 COMPASS                                                                                   COMPASS     6295     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6296     A     
 COMPASS   BSSZ     SA1    LWORD                                                           COMPASS     6297     A     
 COMPASS            RJ     ZPRLOC      PROCESS LOCATION                                    COMPASS     6298     A     
 COMPASS            SX6    3                                                               COMPASS     6299     A     
 COMPASS            SX1    21                                                              COMPASS     6300          I
          -CPS062 
 COMPASS            SX1    60                                                              CPS062        33     A     
 COMPASS            RJ     SCADCON     GET VALUE                                           COMPASS     6301     A     
 COMPASS            SA3    UERR                                                            COMPASS     6302     A     
 COMPASS            SA4    AERR                                                            COMPASS     6303     A     
 COMPASS            BX1    X3+X4                                                           COMPASS     6304     A     
 COMPASS            NZ     X1,ZLIST                                                        COMPASS     6305     A     
 COMPASS            SA5    FLAG        USE PASS 1 VALUE                                    CPS062        34     A     
 COMPASS            SA2    EXVAL                                                           COMPASS     6306          I
          -CPS010 
 COMPASS            ZR     X2,ZLIST    EXIT ON ZERO VALUE                                  COMPASS     6307          I
          -CPS010 
 COMPASS                                                                                   COMPASS     6308     A     
 COMPASS  *         ENTRY FROM BLNKOP.                                                     COMPASS     6309     A     
 COMPASS                                                                                   COMPASS     6310     A     
 COMPASS   BSSZ5    SA1    ORGCTR      CHECK UP ON RANGE OF BSSZ                           COMPASS     6311     A     
 COMPASS            SA5    EXVAL                                                           COMPASS     6312          I
          -CPS062 
 COMPASS            SA3    MINORG                                                          COMPASS     6313     A     
 COMPASS            IX0    X1+X5                                                           COMPASS     6314     A     
 COMPASS            ZR     X5,ZLISTG   IF BSSZ 0                                           CPS010        36     A     
 COMPASS            IX6    X1-X3       ORGCTR-MINORG (MUST BE +)                           COMPASS     6315     A     
 COMPASS            SA2    MAXORG                                                          COMPASS     6316     A     
 COMPASS            IX7    X2-X0       MAXORG-(ORGCTR+EXVAL) (MUST BE + )                  COMPASS     6317     A     
 COMPASS            BX6    X6+X7                                                           COMPASS     6318     A     
 COMPASS            SA2    ABSFG                                                           COMPASS     6319     A     
 COMPASS            ZR     X2,ZBSSZ6                                                       COMPASS     6320     A     
 COMPASS            SA2    ORGBASE                                                         COMPASS     6321     A     
 COMPASS            SA3    LPGM                                                            COMPASS     6322     A     
 COMPASS            IX4    X1-X2                                                           COMPASS     6323     A     
 COMPASS            IX2    X3-X0                                                           COMPASS     6324     A     
 COMPASS            BX7    X4+X2                                                           COMPASS     6325     A     
 COMPASS            BX6    X6+X7                                                           COMPASS     6326     A     
 COMPASS   ZBSSZ6   BX6    X6+X5       DEMAND ADDRESS POSITIVE ALSO                        COMPASS     6327     A     
 COMPASS            NG     X6,BSSZR    IF OUT OF RANGE                                     COMPASS     6328     A     
 COMPASS            SA2    A1+B1       CHECK ORGCTR+1                                      COMPASS     6329     A     
 COMPASS            SX4    X2-400B                                                         COMPASS     6330     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 544    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X4,BSSZ1    JUMP IF NOT NEGATIVE                                COMPASS     6331     A     
 COMPASS   BSSZR    SX6    B1                                                              COMPASS     6332     A     
 COMPASS            SA6    EFLG                                                            COMPASS     6333     A     
 COMPASS            SA6    RERR        RANGE ERROR                                         COMPASS     6334     A     
 COMPASS            EQ     BSS5                                                            COMPASS     6335     A     
 COMPASS   BSSZ1    SA2    CNTBSSZ                                                         COMPASS     6336     A     
 COMPASS            SA3    ORGBSSZ                                                         COMPASS     6337     A     
 COMPASS            ZR     X2,BSSZ3                                                        COMPASS     6338     A     
 COMPASS            IX4    X3+X2                                                           COMPASS     6339     A     
 COMPASS            IX5    X1-X4                                                           COMPASS     6340     A     
 COMPASS            NZ     X5,BSSZ2    ORGBSSZ+CNTBSSZ NE ORGCTR                           COMPASS     6341     A     
 COMPASS            SA3    A3+B1       ORGBSSZ(2)                                          COMPASS     6342     A     
 COMPASS            SA4    A1+B1       ORGCTR(2)                                           COMPASS     6343     A     
 COMPASS            SA1    CLF         CONDITIONAL LOAD FLAG                               CMP30       2446     A     
 COMPASS            BX4    X1+X4                                                           CMP30       2447     A     
 COMPASS            IX5    X3-X4                                                           COMPASS     6344     A     
 COMPASS            ZR     X5,BSSZ4    ALL EQUAL                                           COMPASS     6345     A     
 COMPASS   BSSZ2    RJ     DBSSZ                                                           COMPASS     6346     A     
 COMPASS   BSSZ3    SA4    ORGCTR                                                          COMPASS     6347     A     
 COMPASS            SA5    EXVAL                                                           COMPASS     6348          I
          -CPS062 
 COMPASS            SA5    FLAG                                                            CPS062        35     A     
 COMPASS            BX6    X4                                                              COMPASS     6349     A     
 COMPASS            SA2    CLF                                                             CMP30       2448     A     
 COMPASS            SA3    A4+B1                                                           COMPASS     6350     A     
 COMPASS            SA6    ORGBSSZ     RESET BSSZ ORG TO ORGCTR                            COMPASS     6351     A     
 COMPASS            BX7    X3                                                              COMPASS     6352          I
          -CMP30  
 COMPASS            BX7    X2+X3                                                           CMP30       2449     A     
 COMPASS            SA7    A6+B1       RESET BSSZ RELOC TO CURRENT                         COMPASS     6353     A     
 COMPASS            BX6    X5                                                              COMPASS     6354     A     
 COMPASS            SA6    CNTBSSZ     RESET BSSZ COUNT TO EXVAL                           COMPASS     6355     A     
 COMPASS            EQ     BSS5                                                            COMPASS     6356     A     
 COMPASS   BSSZ4    SA1    EXVAL                                                           COMPASS     6357          I
          -CPS062 
 COMPASS   BSSZ4    SA1    FLAG                                                            CPS062        36     A     
 COMPASS            IX6    X1+X2       EXVAL+CNTBSSZ IS NEW COUNT                          COMPASS     6358     A     
 COMPASS            SA6    A2          RESET CNTBSSZ                                       COMPASS     6359     A     
 COMPASS            EQ     BSS5        GO UP LOCATION COUNTER                              COMPASS     6360     A     
 COMPASS   B1=1     SPACE  4                                                               COMPASS     6361     A     
 COMPASS  ***       B1=1 - DECLARE THAT (B1) CONTAINS A 1.                                 COMPASS     6362     A     
 COMPASS  *                                                                                COMPASS     6363     A     
 COMPASS  *                                                                                COMPASS     6364     A     
 COMPASS  *         B1=1                                                                   COMPASS     6365     A     
 COMPASS  *         USED IN CONJUNCTION WITH THE (R=) PSEUDO.  THIS DECLARES               COMPASS     6366     A     
 COMPASS  *         THAT (B1) IS 1, AND DEFINES THE SYMBOL B1=1.                           COMPASS     6367     A     
 COMPASS                                                                                   COMPASS     6368     A     
 COMPASS                                                                                   COMPASS     6369     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6370     A     
 COMPASS   B1=1.    SX6    REQA-1      SET FULL SCAN FOR R= PSEUDO                         COMPASS     6371     A     
 COMPASS            SA6    REQC                                                            COMPASS     6372     A     
 COMPASS   BEQ1     SA1    IOP         DEFINE *B1=1*                                       COMPASS     6373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 545    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX2    0                                                               COMPASS     6374     A     
 COMPASS            BX3    X3-X3                                                           COMPASS     6375     A     
 COMPASS            SX4    B0                                                              COMPASS     6376     A     
 COMPASS            IX5    X5-X5                                                           COMPASS     6377     A     
 COMPASS            RJ     YDEFSYM                                                         COMPASS     6378     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     6379     A     
 COMPASS   B1=1     SPACE  4                                                               COMPASS     6380     A     
 COMPASS  **        B1=1 - DECLARE THAT (B1) CONTAINS A 1.                                 COMPASS     6381     A     
 COMPASS                                                                                   COMPASS     6382     A     
 COMPASS                                                                                   COMPASS     6383     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6384     A     
 COMPASS   .B1=1    EQU    ZLIST                                                           COMPASS     6385     A     
 COMPASS   B7=1     SPACE  4                                                               COMPASS     6386     A     
 COMPASS  ***       B7=1 - DECLARE THAT (B7) CONTAINS A 1.                                 COMPASS     6387     A     
 COMPASS  *                                                                                COMPASS     6388     A     
 COMPASS  *                                                                                COMPASS     6389     A     
 COMPASS  *         B7=1                                                                   COMPASS     6390     A     
 COMPASS  *         USED IN CONJUNCTION WITH THE (R=) PSEUDO.  THIS DECLARES               COMPASS     6391     A     
 COMPASS  *         THAT (B7) IS 1, AND DEFINES THE SYMBOL B7=1.                           COMPASS     6392     A     
 COMPASS                                                                                   COMPASS     6393     A     
 COMPASS                                                                                   COMPASS     6394     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6395     A     
 COMPASS   B7=1     SX6    REQD-1      SET FULL SCAN FOR R= PSEUDO                         COMPASS     6396     A     
 COMPASS            SA6    REQC                                                            COMPASS     6397     A     
 COMPASS            EQ     BEQ1                                                            COMPASS     6398     A     
 COMPASS   B7=1     SPACE  4                                                               COMPASS     6399     A     
 COMPASS  **        B7=1 - DECLARE THAT (B7) CONTAINS A 1.                                 COMPASS     6400     A     
 COMPASS                                                                                   COMPASS     6401     A     
 COMPASS                                                                                   COMPASS     6402     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6403     A     
 COMPASS   B7=1     EQU    ZLIST                                                           COMPASS     6404     A     
 COMPASS   CC       SPACE  4                                                               CMP30       2450     A     
 COMPASS  ***       CC - COMPARE COLLATED (CMU INSTRUCTION).                               CMP30       2451     A     
 COMPASS  *                                                                                CMP30       2452     A     
 COMPASS  *                                                                                CMP30       2453     A     
 COMPASS  *         CC     L,KA,CA,KB,CB                                                   CMP30       2454     A     
 COMPASS  *         (L) = DATA FIELD LENGTH IN CHARACTERS (@127).                          CMP30       2455     A     
 COMPASS  *         (KA) = FIRST OPERAND FIELD FIRST WORD ADDRESS.                         CMP30       2456     A     
 COMPASS  *         (CA) = FIRST OPERAND FIELD FIRST CHARACTER POSITION (0-9).             CMP30       2457     A     
 COMPASS  *         (KB) = SECOND OPERAND FIELD FIRST WORD ADDRESS.                        CMP30       2458     A     
 COMPASS  *         (CB) = SECOND OPERAND FIELD FIRST CHARACTER POSITION (0-9).            CMP30       2459     A     
 COMPASS                                                                                   CMP30       2460     A     
 COMPASS                                                                                   CMP30       2461     A     
 COMPASS            QUAL   PASS1                                                           CMP30       2462     A     
 COMPASS   CC       SA1    MACHINE     COMPLAIN IF PP ASSEMBLY                             CMP30       2463     A     
 COMPASS            NZ     X1,CTLPPER                                                      CMP30       2464     A     
 COMPASS            SA1    LWORD       PROCESS LOCATION FIELD                              CMP30       2465     A     
 COMPASS            RJ     YPRLOC                                                          CMP30       2466     A     
 COMPASS            SX6    5           SCAN UP TO FIVE ARGUMENTS                           CMP30       2467     A     
 COMPASS            SA6    P1TEMP                                                          CMP30       2468     A     
 COMPASS   CC1      SX1    18          SCAN ARGUMENT                                       CMP30       2469     A     
 COMPASS            RJ     SCAD                                                            CMP30       2470     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 546    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    P1TEMP                                                          CMP30       2471     A     
 COMPASS            SA2    EXSTOP                                                          CMP30       2472     A     
 COMPASS            SX6    X1-1                                                            CMP30       2473     A     
 COMPASS            ZR     X2,CC2      IF END OF ARGUMENTS                                 CMP30       2474     A     
 COMPASS            SA6    A1                                                              CMP30       2475     A     
 COMPASS            NZ     X6,CC1      IF NOT 5 SCANNED YET                                CMP30       2476     A     
 COMPASS   CC2      SX1    B1                                                              CMP30       2477     A     
 COMPASS            RJ     YUPLOC      BUMP LOCATION COUNTER                               CMP30       2478     A     
 COMPASS            EQ     CTL65       RETURN                                              CMP30       2479     A     
 COMPASS   CC       SPACE  4                                                               CMP30       2480     A     
 COMPASS  **        CC - COMPARE COLLATED (CMU INSTRUCTION).                               CMP30       2481     A     
 COMPASS                                                                                   CMP30       2482     A     
 COMPASS                                                                                   CMP30       2483     A     
 COMPASS            QUAL   PASS2                                                           CMP30       2484     A     
 COMPASS   CC       SX6    466B                                                            CMP30       2485     A     
 COMPASS   CC1      LX6    3                                                               CMP30       2486     A     
 COMPASS            SX7    7                                                               CMP30       2487     A     
 COMPASS            NZ     X6,CC2      IF NOT *MD*                                         CMP30       2488     A     
 COMPASS            SX7    13                                                              CMP30       2489     A     
 COMPASS   CC2      SA6    OPVAL       MACHINE OPCODE                                      CMP30       2490     A     
 COMPASS            SA7    OPADS       LENGTH OF LENGTH FIELD                              CMP30       2491     A     
 COMPASS            SA1    LWORD                                                           CMP30       2492     A     
 COMPASS            RJ     ZPRLOC      PROCESS LOCATION FIELD                              CMP30       2493     A     
 COMPASS            SA1    OPADS                                                           CMP30       2494     A     
 COMPASS            SX6    3                                                               CMP30       2495     A     
 COMPASS            RJ     SCADCON                                                         CMP30       2496     A     
 COMPASS            SA1    OPADS       PROCESS LENGTH FIELD                                CMP30       2497     A     
 COMPASS            SA2    EXVAL                                                           CMP30       2498     A     
 COMPASS            MX6    1                                                               CMP30       2499     A     
 COMPASS            SB7    X1-59                                                           CMP30       2500     A     
 COMPASS            LX6    X6,B7       7- OR 13-BIT MASK                                   CMP30       2501     A     
 COMPASS            BX6    -X6*X2                                                          CMP30       2502     A     
 COMPASS            MX0    -4                                                              CMP30       2503     A     
 COMPASS            BX7    -X0*X6      LL = LOWER 4 BITS OF L                              CMP30       2504     A     
 COMPASS            AX6    4           LU = UPPER 3 OR 9 BITS OF L                         CMP30       2505     A     
 COMPASS            SA3    OPVAL                                                           CMP30       2506     A     
 COMPASS            LX7    8                                                               CMP30       2507     A     
 COMPASS            BX6    X3+X6                                                           CMP30       2508     A     
 COMPASS            SA6    A3          OPVAL = OPCODE, LU                                  CMP30       2509     A     
 COMPASS            SA7    A1          OPADS = LL IN BITS 11-8                             CMP30       2510     A     
 COMPASS            SX1    18                                                              CMP30       2511     A     
 COMPASS            SX6    B1                                                              CMP30       2512     A     
 COMPASS            RJ     SCADCON     SCAN KS OR KA                                       CMP30       2513     A     
 COMPASS            SA1    EXVAL                                                           CMP30       2514     A     
 COMPASS            SA2    A1+B1       EXREL                                               CMP30       2515     A     
 COMPASS            MX0    -18                                                             CMP30       2516     A     
 COMPASS            SA3    A2+B1       EXEXT                                               CMP30       2517     A     
 COMPASS            BX6    -X0*X1                                                          CMP30       2518     A     
 COMPASS            LX7    X2                                                              CMP30       2519     A     
 COMPASS            SA6    OPADS+1     OPADS+1 = KS/KA VALUE                               CMP30       2520     A     
 COMPASS            SA7    A6+B1       OPADS+2 = RELOCATION                                CMP30       2521     A     
 COMPASS            BX6    X3                                                              CMP30       2522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 547    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A7+B1       OPADS+3 = EXTERNAL                                  CMP30       2523     A     
 COMPASS            SX6    3                                                               CMP30       2524     A     
 COMPASS            SX1    X6+B1                                                           CMP30       2525     A     
 COMPASS            RJ     SCADCON     SCAN CS OR CA                                       CMP30       2526     A     
 COMPASS            SA1    EXVAL                                                           CMP30       2527     A     
 COMPASS            SA2    OPADS                                                           CMP30       2528     A     
 COMPASS            SX3    X1-10                                                           CMP30       2529     A     
 COMPASS            BX7    -X3+X1                                                          CMP30       2530     A     
 COMPASS            LX1    4                                                               CMP30       2531     A     
 COMPASS            PL     X7,CC3      IF NOT 0-9, USE 0 AND SET A-ERROR                   CMP30       2532     A     
 COMPASS            SX6    B1                                                              CMP30       2533     A     
 COMPASS            MX1    0                                                               CMP30       2534     A     
 COMPASS            SA6    EFLG                                                            CMP30       2535     A     
 COMPASS            SA6    AERR                                                            CMP30       2536     A     
 COMPASS   CC3      BX6    X2+X1                                                           CMP30       2537     A     
 COMPASS            SA6    A2          OPADS = LL IN BITS 11-8, CS/CA IN BITS 7-4          CMP30       2538     A     
 COMPASS            SX1    18                                                              CMP30       2539     A     
 COMPASS            SX6    B1                                                              CMP30       2540     A     
 COMPASS            RJ     SCADCON     SCAN KD OR KB                                       CMP30       2541     A     
 COMPASS            SA1    EXVAL                                                           CMP30       2542     A     
 COMPASS            SA2    A1+B1       EXREL                                               CMP30       2543     A     
 COMPASS            MX0    -18                                                             CMP30       2544     A     
 COMPASS            SA3    A2+B1       EXEXT                                               CMP30       2545     A     
 COMPASS            BX6    -X0*X1                                                          CMP30       2546     A     
 COMPASS            LX7    X2                                                              CMP30       2547     A     
 COMPASS            SA6    OPADS+4     OPADS+4 = KD/KB VALUE                               CMP30       2548     A     
 COMPASS            SA7    A6+B1       OPADS+5 = RELOCATION                                CMP30       2549     A     
 COMPASS            BX6    X3                                                              CMP30       2550     A     
 COMPASS            SA6    A7+B1       OPADS+6 = EXTERNAL                                  CMP30       2551     A     
 COMPASS            SX6    3                                                               CMP30       2552     A     
 COMPASS            SX1    X6+B1                                                           CMP30       2553     A     
 COMPASS            RJ     SCADCON     SCAN CD OR CB                                       CMP30       2554     A     
 COMPASS            SA1    EXVAL                                                           CMP30       2555     A     
 COMPASS            SA2    OPADS                                                           CMP30       2556     A     
 COMPASS            SX3    X1-10                                                           CMP30       2557     A     
 COMPASS            BX7    -X3+X1                                                          CMP30       2558     A     
 COMPASS            PL     X7,CC4      IF NOT 0-9, USE 0 AND SET A-ERROR                   CMP30       2559     A     
 COMPASS            SX6    B1                                                              CMP30       2560     A     
 COMPASS            MX1    0                                                               CMP30       2561     A     
 COMPASS            SA6    EFLG                                                            CMP30       2562     A     
 COMPASS            SA6    AERR                                                            CMP30       2563     A     
 COMPASS   CC4      BX6    X2+X1       OPADS = 48/ 0, 4/ LL, 4/ CS/CA, 4/ CD/CB            CMP30       2564     A     
 COMPASS            SA6    A2                                                              CMP30       2565     A     
 COMPASS            SA1    EXSTOP                                                          CMP30       2566     A     
 COMPASS            ZR     X1,CC5      IF END OF VARIABLE FIELD                            CMP30       2567     A     
 COMPASS            SX6    B1                                                              CMP30       2568     A     
 COMPASS            SA6    EFLG        TOO MANY ARGUMENTS                                  CMP30       2569     A     
 COMPASS            SA6    W8ERR                                                           CMP30       2570     A     
 COMPASS   CC5      SX7    48                                                              CMP30       2571     A     
 COMPASS            SA1    OPVAL       OUTPUT OPCODE AND LU                                CMP30       2572     A     
 COMPASS            SX2    12          (BITS 59-48 OF WORD)                                CMP30       2573     A     
 COMPASS            MX3    0                                                               CMP30       2574     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 548    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX4    X4-X4                                                           CMP30       2575     A     
 COMPASS            SA7    POSCTR                                                          CMP30       2576     A     
 COMPASS            RJ     BINOUT                                                          CMP30       2577     A     
 COMPASS            SX7    30                                                              CMP30       2578     A     
 COMPASS            SA1    OPADS+1     OUTPUT KS OR KA FIELD                               CMP30       2579     A     
 COMPASS            SX2    18          (BITS 47-30 OF WORD)                                CMP30       2580     A     
 COMPASS            SA3    A1+B1                                                           CMP30       2581     A     
 COMPASS            SA4    A3+B1                                                           CMP30       2582     A     
 COMPASS            SA7    POSCTR                                                          CMP30       2583     A     
 COMPASS            RJ     BINOUT                                                          CMP30       2584     A     
 COMPASS            SX7    18                                                              CMP30       2585     A     
 COMPASS            SA1    OPADS       OUTPUT LL, CS/CA, CD/CB                             CMP30       2586     A     
 COMPASS            SX2    12          (BITS 29-18 OF WORD)                                CMP30       2587     A     
 COMPASS            MX3    0                                                               CMP30       2588     A     
 COMPASS            BX4    X4-X4                                                           CMP30       2589     A     
 COMPASS            SA7    POSCTR                                                          CMP30       2590     A     
 COMPASS            RJ     BINOUT                                                          CMP30       2591     A     
 COMPASS            SX7    B0                                                              CMP30       2592     A     
 COMPASS            SA1    OPADS+4     OUTPUT KD OR KB FIELD                               CMP30       2593     A     
 COMPASS            SX2    18          (BITS 17-0 OF WORD)                                 CMP30       2594     A     
 COMPASS            SA3    A1+B1                                                           CMP30       2595     A     
 COMPASS            SA4    A3+B1                                                           CMP30       2596     A     
 COMPASS            SA7    POSCTR                                                          CMP30       2597     A     
 COMPASS            RJ     BINOUT                                                          CMP30       2598     A     
 COMPASS            SA1    OPVAL                                                           CMP30       2599     A     
 COMPASS            SA2    OPADS+1     LIST UPPER HALF OF WORD IN OCTAL                    CMP30       2600     A     
 COMPASS            SA3    A2+B1                                                           CMP30       2601     A     
 COMPASS            SA4    A3+B1                                                           CMP30       2602     A     
 COMPASS            LX1    18                                                              CMP30       2603     A     
 COMPASS            BX6    X3                                                              CMP30       2604     A     
 COMPASS            LX7    X4                                                              CMP30       2605     A     
 COMPASS            IX1    X1+X2                                                           CMP30       2606     A     
 COMPASS            SX2    26                                                              CMP30       2607     A     
 COMPASS            SX3    10                                                              CMP30       2608     A     
 COMPASS            SA6    EXREL                                                           CMP30       2609     A     
 COMPASS            SA7    A6+B1                                                           CMP30       2610     A     
 COMPASS            RJ     PACKOR                                                          CMP30       2611     A     
 COMPASS            SA1    OPADS+2                                                         CMP30       2612     A     
 COMPASS            SA2    A1+B1                                                           CMP30       2613     A     
 COMPASS            BX6    X1+X2                                                           CMP30       2614     A     
 COMPASS            ZR     X6,CC6      IF NOT RELOCATABLE NOR EXTERNAL                     CMP30       2615     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           CMP30       2616     A     
 COMPASS            MX6    0           CLEAR DETAIL FLAG                                   CMP30       2617     A     
 COMPASS            SA6    DETFLG                                                          CMP30       2618     A     
 COMPASS   CC6      SA1    OPADS                                                           CMP30       2619     A     
 COMPASS            SA2    OPADS+4     LIST LOWER HALF OF WORD IN OCTAL                    CMP30       2620     A     
 COMPASS            SA3    A2+B1                                                           CMP30       2621     A     
 COMPASS            SA4    A3+B1                                                           CMP30       2622     A     
 COMPASS            LX1    18                                                              CMP30       2623     A     
 COMPASS            BX6    X3                                                              CMP30       2624     A     
 COMPASS            LX7    X4                                                              CMP30       2625     A     
 COMPASS            IX1    X1+X2                                                           CMP30       2626     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 549    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX2    36                                                              CMP30       2627     A     
 COMPASS            SX3    10                                                              CMP30       2628     A     
 COMPASS            SA6    EXREL                                                           CMP30       2629     A     
 COMPASS            SA7    A6+B1                                                           CMP30       2630     A     
 COMPASS            RJ     PACKOR                                                          CMP30       2631     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           CMP30       2632     A     
 COMPASS            EQ     Z100        RETURN                                              CMP30       2633     A     
 COMPASS   CHAR     SPACE  4,8                                                             CPS011        10     A     
 COMPASS  ***       CHAR - CHANGE CHARACTER CODE.                                          CPS011        11     A     
 COMPASS  *                                                                                CPS011        12     A     
 COMPASS  *                                                                                CPS011        13     A     
 COMPASS  *         CHAR   AEXP,AEXP                                                       CPS011        14     A     
 COMPASS  *         DEFINES CHARACTER CODE CONVERSION INVOKED BY *CODE OTHER*.             CPS011        15     A     
 COMPASS  *         INITIALLY, ALL CHARACTERS HAVE THEIR DISPLAY CODE VALUES.              CPS011        16     A     
 COMPASS  *         *CHAR* REDEFINES THE CHARACTER WHOSE DISPLAY CODE VALUE                CPS011        17     A     
 COMPASS  *         IS (AEXP1) TO BE CONVERTED TO THE VALUE OF (AEXP2) WHEN                CPS011        18     A     
 COMPASS  *         *CODE OTHER* IS IN EFFECT.                                             CPS011        19     A     
 COMPASS  *         THIS CHANGE IS MADE IN PASS 1 SO THE CHARACTERS HAVE THIS              CPS011        20     A     
 COMPASS  *         VALUE DURING PASS 2.                                                   CPS011        21     A     
 COMPASS                                                                                   CPS011        22     A     
 COMPASS                                                                                   CPS011        23     A     
 COMPASS            QUAL   PASS1                                                           CPS011        24     A     
 COMPASS   CHAR.    SX1    6                                                               CPS011        25     A     
 COMPASS            SX6    3                                                               CPS011        26     A     
 COMPASS            RJ     SCADCON                                                         CPS011        27     A     
 COMPASS            NZ     X1,CTL70    IF ERRORS                                           CPS011        28     A     
 COMPASS            SA1    EXVAL                                                           CPS011        29     A     
 COMPASS            MX0    -6                                                              CPS011        30     A     
 COMPASS            BX6    -X0*X1                                                          CPS011        31     A     
 COMPASS            SA6    P1TEMP                                                          CPS011        32     A     
 COMPASS            SX1    6                                                               CPS011        33          I
          -F4820  
 COMPASS            SX1    8                                                               F4820        606     A     
 COMPASS            SX6    3                                                               CPS011        34     A     
 COMPASS            RJ     SCADCON                                                         CPS011        35     A     
 COMPASS            NZ     X1,CTL70    IF ERRORS                                           CPS011        36     A     
 COMPASS            SA1    P1TEMP                                                          CPS011        37     A     
 COMPASS            SA2    EXVAL                                                           CPS011        38     A     
 COMPASS            MX0    -6                                                              CPS011        39          I
          -F4820  
 COMPASS            MX0    -8                                                              F4820        607     A     
 COMPASS            SA3    X1+STCA     READ CHARACTER                                      CPS011        40     A     
 COMPASS            BX6    -X0*X2                                                          CPS011        41     A     
 COMPASS            LX0    24                                                              CPS011        42          I
          -F4820  
 COMPASS            LX6    24                                                              CPS011        43          I
          -F4820  
 COMPASS            LX0    48                                                              F4820        608          I
          -CPSA281
 COMPASS            LX6    48                                                              F4820        609          I
          -CPSA281
 COMPASS            LX0    36                                                              CPSA281      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/28. 19.11.32.      PAGE 550    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX6    36                                                              CPSA281      180     A     
 COMPASS            BX3    X0*X3                                                           CPS011        44     A     
 COMPASS            BX6    X3+X6                                                           CPS011        45     A     
 COMPASS            SA6    A3          UPDATE CHARACTER                                    CPS011        46     A     
 COMPASS            SA6    FLAG                                                            CPS011        47     A     
 COMPASS            JP     CTL70       RETURN                                              CPS011        48     A     
 COMPASS   CHAR     SPACE  4,8                                                             CPS011        49     A     
 COMPASS  **        CHAR - CHANGE CHARACTER CODE.                                          CPS011        50     A     
 COMPASS                                                                                   CPS011        51     A     
 COMPASS                                                                                   CPS011        52     A     
 COMPASS            QUAL   PASS2                                                           CPS011        53     A     
 COMPASS   CHAR.    SA1    FLAG                                                            CPS011        54          I
          -CPS047 
 COMPASS   CHAR.    SX1    6           COLLECT REFERENCES                                  CPS047         1     A     
 COMPASS            RJ     SCAD                                                            CPS047         2     A     
 COMPASS            SX1    6                                                               CPS047         3          I
          -F4820  
 COMPASS            SX1    8                                                               F4820        610     A     
 COMPASS            RJ     SCAD                                                            CPS047         4     A     
 COMPASS            SA1    FLAG                                                            CPS047         5     A     
 COMPASS            ZR     X1,ZLIST    IF ERRORS IN PASS 1                                 CPS047         6     A     
 COMPASS            MX0    -6                                                              CPS011        55          I
          -F4820  
 COMPASS            MX0    -8                                                              F4820        611     A     
 COMPASS            BX6    X1                                                              CPS011        56     A     
 COMPASS            BX2    -X0*X1                                                          CPS011        57     A     
 COMPASS            SA6    STCA+X2     UPDATE CHARACTER                                    CPS011        58     A     
 COMPASS            SX3    B1+B1                                                           CPS011        59     A     
 COMPASS            SX2    33          OUTPUT OCTAL                                        CPS011        60     A     
 COMPASS            RJ     PACKO                                                           CPS011        61     A     
 COMPASS            SX6    CONCAT                                                          CPS011        62     A     
 COMPASS            SA6    OCTAL+33                                                        CPS011        63     A     
 COMPASS            SA1    FLAG                                                            CPS011        64     A     
 COMPASS            SX2    36                                                              CPS011        65     A     
 COMPASS            SX3    B1+B1                                                           CPS011        66     A     
 COMPASS            AX1    24                                                              CPS011        67          I
          -F4820  
 COMPASS            AX1    48                                                              F4820        612          I
          -CPSA281
 COMPASS            AX1    36                                                              CPSA281      181     A     
 COMPASS            RJ     PACKO                                                           CPS011        68     A     
 COMPASS            JP     ZLIST       RETURN                                              CPS011        69     A     
 COMPASS   CIPPU    SPACE  4,10                                                            CPSA281      182     A     
 COMPASS  ***       CIPPU - 180 PP ASSEMBLY.                                               CPSA281      183     A     
 COMPASS  *                                                                                CPSA288       18     A     
 COMPASS  *                                                                                CPSA288       19     A     
 COMPASS  *         CIPPU  CH1,CH2                                                         CPSA288       20     A     
 COMPASS  *         DECLARES THE PROGRAM TO BE A 180 PPU PROGRAM AND ABSOLUTE.             CPSA288       21     A     
 COMPASS  *         THE RULES STATED UNDER ABS APPLY.                                      CPSA288       22     A     
 COMPASS  *         IF (CH1) = J, LOW-CORE PP JUMPS ARE ASSEMBLED AS (TAG - *).            CPSA288       23     A     
 COMPASS  *         IF (CH1) = ANYTHING OTHER THAN J, LOW-CORE PP JUMPS ARE                CPSA288       24     A     
 COMPASS  *                    ASSEMBLED AS JUMP TO (TAG).                                 CPSA288       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/28. 19.11.32.      PAGE 551    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         IF (CH2) = S, CHARACTER DATA FOR *CON* AND *VFD* INSTRUCTIONS          CPSA288       26     A     
 COMPASS  *                    IS PLACED IN THE RIGHT-MOST 12 BITS OF EACH 16-BIT          CPSA288       27     A     
 COMPASS  *                    PP WORD.  THIS IS OVERRIDDEN BY USE OF *CONL* AND           CPSA288       28     A     
 COMPASS  *                    *VFDL*.                                                     CPSA288       29     A     
 COMPASS  *         IF (CH2) = ANYTHING OTHER THAN S, CHARACTER DATA FOR *CON*             CPSA288       30     A     
 COMPASS  *                    AND *VFD* IS ASSEMBLED WITH THE FULL 16-BIT WORD            CPSA288       31     A     
 COMPASS  *                    AS THE FIELD SIZE.                                          CPSA288       32     A     
 COMPASS                                                                                   CPSA281      184     A     
 COMPASS                                                                                   CPSA281      185     A     
 COMPASS            QUAL   PASS1                                                           CPSA281      186     A     
 COMPASS   CIPPU    SX6    -3          PP TYPE = 180                                       CPSA281      187     A     
 COMPASS            SA6    PPTYPE                                                          CPSA281      188     A     
 COMPASS            SA1    CHAR        PP JUMP INDICATOR                                   CPSA281      189          I
          -CPSA288
 COMPASS            SX1    X1-1RJ                                                          CPSA281      190          I
          -CPSA288
 COMPASS            SX6    B0                                                              CPSA281      191          I
          -CPSA288
 COMPASS            NZ     X1,CIPPU1   IF NOT *J*                                          CPSA281      192          I
          -CPSA288
 COMPASS            SX6    B1                                                              CPSA281      193          I
          -CPSA288
 COMPASS   CIPPU1   SA6    PPJUMP                                                          CPSA281      194          I
          -CPSA288
 COMPASS            SX7    B0          SET FOR *L* OPTION                                  CPSA288       33     A     
 COMPASS            MX6    0           SET FOR NOT *J* OPTION                              CPSA288       34     A     
 COMPASS            SA3    COLUMN                                                          CPSA288       35     A     
 COMPASS            SA1    X3+CARD-1   GET FIRST CHAR OF ADDRESS FIELD                     CPSA288       36     A     
 COMPASS            SX2    X1-1RJ                                                          CPSA288       37     A     
 COMPASS            NZ     X2,CIPPU3   IF *J* OPTION NOT PRESENT                           CPSA288       38     A     
 COMPASS            SX6    B1          SET FOR *J* OPTION                                  CPSA288       39     A     
 COMPASS   CIPPU1   SA1    A1+B1       GET NEXT CHAR                                       CPSA288       40     A     
 COMPASS   CIPPU3   SX2    X1-1R                                                           CPSA288       41     A     
 COMPASS            ZR     X2,CIPPU4   IF END OF ADDRESS FIELD                             CPSA288       42     A     
 COMPASS            SX2    X1-1R,                                                          CPSA288       43     A     
 COMPASS            NZ     X2,CIPPU1   LOOP FORWARD TO COMMA                               CPSA288       44     A     
 COMPASS            SA1    A1+B1       GET NEXT CHAR                                       CPSA288       45     A     
 COMPASS            SX2    X1-1RS                                                          CPSA288       46     A     
 COMPASS            NZ     X2,CIPPU4                                                       CPSA288       47     A     
 COMPASS            SX7    4           SET FOR *S* OPTION                                  CPSA288       48     A     
 COMPASS   CIPPU4   SA6    PPJUMP      SET PP JUMP INDICATOR                               CPSA288       49     A     
 COMPASS            SA7    VWORD       SET *VFD* AND *CON* ASSEMBLY MODE                   CPSA288       50     A     
 COMPASS            SX6    B1                                                              CPSA281      195     A     
 COMPASS            SX7    16                                                              CPSA281      196     A     
 COMPASS            SA6    MACHINE     MACHINE TYPE = 1 FOR PP                             CPSA281      197     A     
 COMPASS            SA7    LWORD       WORD LENGTH = 16 FOR 180 PP                         CPSA281      198     A     
 COMPASS            SA7    POSCTR      POSITION COUNTER = 16                               CPSA281      199     A     
 COMPASS            SX6    B1+B1                                                           CPSA281      200     A     
 COMPASS            SA6    NCHARS      NUMBER OF CHARACTERS = 2                            CPSA281      201     A     
 COMPASS            SX6    6                                                               CPSA281      202     A     
 COMPASS            SA6    PPBYT       6 BYTES PER PP WORD FOR 180                         CPSA281      203     A     
 COMPASS            LX7    24          SET POSITION COUNTER IN *USETAB* ENTRIES            CPSA281      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/28. 19.11.32.      PAGE 552    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    O.USETAB                                                        CPSA281      205     A     
 COMPASS            SA2    L.USETAB                                                        CPSA281      206     A     
 COMPASS   CIPPU2   SA7    X1+B1                                                           CPSA281      207     A     
 COMPASS            SX2    X2-4                                                            CPSA281      208     A     
 COMPASS            SX1    X1+4                                                            CPSA281      209     A     
 COMPASS            NZ     X2,CIPPU2                                                       CPSA281      210     A     
 COMPASS            SX6    4                                                               CPSA281      211     A     
 COMPASS            SX7    1R8         *VALID* = 8 (TO BE SET TO 8P)                       CPSA281      212     A     
 COMPASS            SA6    MTYPE       *MTYPE* = 3                                         CPSA281      213     A     
 COMPASS            LX7    6                                                               CPSA281      214     A     
 COMPASS            SX6    X6+B1       5                                                   CPSA281      215     A     
 COMPASS            SA7    VALID                                                           CPSA281      216     A     
 COMPASS            SX7    45                                                              CPSA281      217          I
          -CPSA288
 COMPASS            SA7    CT          SET DEFAULT CHARACTER TYPE TO 8-BIT ASCII           CPSA281      218          I
          -CPSA288
 COMPASS            SX7    45          SET CHARACTER TYPE TO 8-BIT ASCII                   CPSA288       51     A     
 COMPASS            SA3    /DATA/STCZ  SET FOR CHARACTER STORE OF 8-BIT/ASCII              CPSA293       74     A     
 COMPASS            SA2    VWORD                                                           CPSA288       52     A     
 COMPASS            ZR     X2,CIPPU5   IF 16-BIT MODE FOR *CON* AND *VFD*                  CPSA288       53     A     
 COMPASS            SX6    B0          SET CHARACTER TYPE TO DISPLAY                       CPSA288       54     A     
 COMPASS            MX7    0                                                               CPSA288       55     A     
 COMPASS            SA3    /DATA/STCW  SET FOR CHARACTER STORE OF 6-BIT/NON-ASCII          CPSA293       75     A     
 COMPASS   CIPPU5   SA7    CT          SET DEFAULT CHARACTER TYPE                          CPSA288       56     A     
 COMPASS            SA6    A7+B1                                                           CPSA281      219     A     
 COMPASS            BX7    X3          SET CHARACTER STORE                                 CPSA293       76     A     
 COMPASS            SA7    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       77     A     
 COMPASS            SA1    PSIM                                                            CPSA281      220     A     
 COMPASS            SX3    6000B                                                           CPSA281      221     A     
 COMPASS            BX6    X1+X3       INCLUDE 60B, 61B CODES IN MASK                      CPSA281      222     A     
 COMPASS            SA6    A1                                                              CPSA281      223     A     
 COMPASS            EQ     ABS                                                             CPSA281      224          I
          -CPSA305
 COMPASS            EQ     BCU3        COMPLETE THE SAME AS FOR *BCU*                      CPSA305       18     A     
 COMPASS   CIPPU    SPACE  4,10                                                            CPSA281      225     A     
 COMPASS  **        CIPPU - 180 PP ASSEMBLY.                                               CPSA281      226     A     
 COMPASS                                                                                   CPSA281      227     A     
 COMPASS                                                                                   CPSA281      228     A     
 COMPASS            QUAL   PASS2                                                           CPSA281      229     A     
 COMPASS   CIPPU    EQU    ZLIST                                                           CPSA281      230          I
          -CPSA293
 COMPASS   CIPPU    SA3    /DATA/STCZ  SET FOR CHARACTER STORE OF 8-BIT/ASCII              CPSA293       78     A     
 COMPASS            SA2    VWORD                                                           CPSA293       79     A     
 COMPASS            ZR     X2,CIPPU1   IF 16-BIT MODE FOR *CON* AND *VFD*                  CPSA293       80     A     
 COMPASS            SA3    /DATA/STCW  SET FOR CHARACTER STORE OF 6-BIT/NON-ASCII          CPSA293       81     A     
 COMPASS   CIPPU1   BX7    X3          SET CHARACTER STORE                                 CPSA293       82     A     
 COMPASS            SA7    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       83     A     
 COMPASS            EQ     ZLIST       GO LIST                                             CPSA293       84     A     
 COMPASS   CODE     SPACE  4                                                               COMPASS     6405     A     
 COMPASS  ***       CODE - DECLARE CHARACTER DATA CODE.                                    COMPASS     6406     A     
 COMPASS  *                                                                                COMPASS     6407     A     
 COMPASS  *                                                                                COMPASS     6408     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 553    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         CODE   CHAR                                                            COMPASS     6409          I
          -CMP30  
 COMPASS  *MNAME    CODE   CHAR                                                            CMP30       2634     A     
 COMPASS  *         (CHAR) = A SET USASCII CODE.                                           COMPASS     6410          I
          -CPS011 
 COMPASS  *         (CHAR) = A SET ASCII 6-BIT SUBSET CODE.                                CPS011        70     A     
 COMPASS  *                  D SET DISPLAY CODE.                                           COMPASS     6411     A     
 COMPASS  *                  E SET EXTERNAL BCD CODE.                                      COMPASS     6412     A     
 COMPASS  *                  I SET INTERNAL BCD CODE.                                      COMPASS     6413     A     
 COMPASS  *                  O SET OTHER CHARACTER CODE DEFINED BY *CHAR*.                 CPS011        71     A     
 COMPASS  *                  * SET PREVIOUS CODE.                                          CMP30       2635     A     
 COMPASS  *                  BLANK LEAVE CODE UNCHANGED.                                   CMP30       2636     A     
 COMPASS  *         IF (MNAME) IS PRESENT, SAVE THE CURRENT CODE IN MICRO MNAME.           CMP30       2637     A     
 COMPASS                                                                                   COMPASS     6414     A     
 COMPASS                                                                                   COMPASS     6415     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6416     A     
 COMPASS   CODE     SA1    CHAR                                                            COMPASS     6417          I
          -CMP30  
 COMPASS   CODE     SA2    LOCSYM                                                          CMP30       2638     A     
 COMPASS            ZR     X2,CODE1    IF NO MICRO NAME                                    CMP30       2639     A     
 COMPASS            SA1    CODEMIC                                                         CMP30       2640     A     
 COMPASS            SX6    B1+B1                                                           CMP30       2641     A     
 COMPASS            BX7    X1                                                              CMP30       2642     A     
 COMPASS            SA7    RELVEC                                                          CMP30       2643     A     
 COMPASS            RJ     EMT         ENTER MICRO TABLE                                   CMP30       2644     A     
 COMPASS   CODE1    SA1    CHAR                                                            CMP30       2645     A     
 COMPASS            RJ     CCC         CHECK CODE CHARACTER                                COMPASS     6418     A     
 COMPASS            MI     X6,CTL70    IF ERROR                                            CMP30       2646     A     
 COMPASS            LX1    -6                                                              CMP30       2647     A     
 COMPASS            SX7    B1                                                              CMP30       2648     A     
 COMPASS            BX6    X1+X7                                                           CMP30       2649     A     
 COMPASS            SA6    CODEMIC     STORE CURRENT CODE MICRO                            CMP30       2650     A     
 COMPASS            EQ     CTL70       RETURN                                              COMPASS     6419     A     
 COMPASS   CODE     SPACE  4                                                               COMPASS     6420     A     
 COMPASS  **        CODE - DECLARE CHARACTER DATA CODE.                                    COMPASS     6421     A     
 COMPASS                                                                                   COMPASS     6422     A     
 COMPASS                                                                                   COMPASS     6423     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6424     A     
 COMPASS   CODE     SA1    CT                                                              COMPASS     6425          I
          -CMP30  
 COMPASS            SA2    =0RAIED                                                         COMPASS     6426          I
          -CMP30  
 COMPASS            SB7    X1                                                              COMPASS     6427          I
          -CMP30  
 COMPASS            MX0    -6                                                              COMPASS     6428          I
          -CMP30  
 COMPASS            AX2    X2,B7                                                           COMPASS     6429          I
          -CMP30  
 COMPASS            BX6    -X0*X2                                                          COMPASS     6430          I
          -CMP30  
 COMPASS            SA6    OCTAL+33                                                        COMPASS     6431          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 554    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    65B                                                             COMPASS     6432          I
          -CMP30  
 COMPASS   CODE     SA1    CT+1                                                            CMP30       2651     A     
 COMPASS            SA2    CCCA+X1     GET CURRENT CODE                                    CMP30       2652     A     
 COMPASS            UX3,B7 X2                                                              CMP30       2653     A     
 COMPASS            SX6    -B7                                                             CMP30       2654     A     
 COMPASS            SX7    CONCAT                                                          CMP30       2655     A     
 COMPASS            SA6    OCTAL+33    STORE IN LISTING LINE                               CMP30       2656     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     6433     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     6434     A     
 COMPASS            SA1    CHAR                                                            COMPASS     6435     A     
 COMPASS            RJ     CCC                                                             COMPASS     6436     A     
 COMPASS            NG     X6,ZLIST    IF NO CHANGE                                        COMPASS     6437     A     
 COMPASS            BX6    X1                                                              COMPASS     6438     A     
 COMPASS            SA6    OCTAL+35                                                        COMPASS     6439     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     6440     A     
 COMPASS   COL      SPACE  4                                                               COMPASS     6441     A     
 COMPASS  ***       COL - SET COMMENT COLUMN.                                              COMPASS     6442     A     
 COMPASS  *                                                                                COMPASS     6443     A     
 COMPASS  *         COL    AEXP                                                            COMPASS     6444     A     
 COMPASS  *         SETS THE COLUMN NUMBER AT WHICH COMMENT FIELD CAN BEGIN                COMPASS     6445     A     
 COMPASS  *         WHEN VARIABLE FIELD IS BLANK.                                          COMPASS     6446     A     
 COMPASS                                                                                   COMPASS     6447     A     
 COMPASS                                                                                   COMPASS     6448     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6449     A     
 COMPASS   COL.     SX1    15                                                              COMPASS     6450     A     
 COMPASS            SX6    3                                                               COMPASS     6451     A     
 COMPASS            RJ     SMC                                                             COMPASS     6452     A     
 COMPASS            NZ     X1,CTL70    IF ERRORS                                           COMPASS     6453     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6454     A     
 COMPASS            BX6    X1                                                              COMPASS     6455     A     
 COMPASS            SX2    X1-12                                                           COMPASS     6456     A     
 COMPASS            PL     X2,COM1     IF AFTER COLUMN 12                                  COMPASS     6457     A     
 COMPASS            SX6    12                                                              COMPASS     6458     A     
 COMPASS            NZ     X1,COM1     IF NOT DEFAULT                                      COMPASS     6459     A     
 COMPASS            SX6    COMCOL                                                          COMPASS     6460     A     
 COMPASS   COM1     SA6    CCOL                                                            COMPASS     6461     A     
 COMPASS            SA6    FLAG                                                            COMPASS     6462     A     
 COMPASS            EQ     CTL70                                                           COMPASS     6463     A     
 COMPASS   COL      SPACE  4                                                               COMPASS     6464     A     
 COMPASS  **        COL - SET COMMENT COLUMN.                                              COMPASS     6465     A     
 COMPASS                                                                                   COMPASS     6466     A     
 COMPASS                                                                                   COMPASS     6467     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6468     A     
 COMPASS   COL.     SA1    FLAG                                                            COMPASS     6469     A     
 COMPASS            BX6    X1                                                              COMPASS     6470     A     
 COMPASS            SA6    CCOL                                                            COMPASS     6471     A     
 COMPASS            SX2    36          OUTPUT OCTAL                                        COMPASS     6472     A     
 COMPASS            MX3    0                                                               COMPASS     6473     A     
 COMPASS            RJ     PACKO                                                           COMPASS     6474     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     6475     A     
 COMPASS   COMMENT  SPACE  4                                                               COMPASS     6476     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 555    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  ***       COMMENT - IDENT TABLE COMMENT.                                         COMPASS     6477     A     
 COMPASS  *                                                                                COMPASS     6478     A     
 COMPASS  *                                                                                COMPASS     6479     A     
 COMPASS  *         COMMENT STRING                                                         COMPASS     6480     A     
 COMPASS  *         ADDS COMMENT TO PREFIX TABLE IN BINARY OBJECT DECK.                    COMPASS     6481     A     
 COMPASS  *         THE COMMENT IS IGNORED BY THE LOADER BUT IDENTIFIES THE                COMPASS     6482     A     
 COMPASS  *         RECORD FOR USE BY UTILITY PROGRAMS.  THE STRING STARTS WITH            COMPASS     6483     A     
 COMPASS  *         THE FIRST NON-BLANK CHARACTER AND TERMINATES WITH THE LAST             COMPASS     6484     A     
 COMPASS  *         NON-BLANK CHARACTER.                                                   COMPASS     6485     A     
 COMPASS                                                                                   COMPASS     6486     A     
 COMPASS                                                                                   COMPASS     6487     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6488     A     
 COMPASS   COMMENT  SA1    COLUMN                                                          COMPASS     6489     A     
 COMPASS            SA2    LASTCOL                                                         COMPASS     6490     A     
 COMPASS            SB6    X1+CARD-2                                                       COMPASS     6491          I
          -CMP30  
 COMPASS            SB6    X1+CARD-1                                                       CMP30       2657     A     
 COMPASS            SA2    X2+CARD                                                         COMPASS     6492     A     
 COMPASS            SB7    A2                                                              COMPASS     6493          I
          -CMP30  
 COMPASS            SB2    -1R                                                             COMPASS     6494          I
          -CMP30  
 COMPASS   +        GE     B6,B7,CMT1  IF START OF BUFFER                                  COMPASS     6495          I
          -CMP30  
 COMPASS            SA2    A2-B1                                                           COMPASS     6496          I
          -CMP30  
 COMPASS            SB7    B7-B1                                                           COMPASS     6497          I
          -CMP30  
 COMPASS            SX6    X2+B2                                                           COMPASS     6498          I
          -CMP30  
 COMPASS            ZR     X6,*-1      LOOP TO SUPPRESS BLANKS                             COMPASS     6499          I
          -CMP30  
 COMPASS   CMT1     SB4    DPBA+3                                                          COMPASS     6500          I
          -CMP30  
 COMPASS            SB5    DPBA+17B                                                        COMPASS     6501          I
          -CMP30  
 COMPASS            SA0    60                                                              COMPASS     6502          I
          -CMP30  
 COMPASS   CMT2     MX6    0           ASSEMBLE COMMENT                                    COMPASS     6503          I
          -CMP30  
 COMPASS            SB3    A0                                                              COMPASS     6504          I
          -CMP30  
 COMPASS            SB2    6                                                               COMPASS     6505          I
          -CMP30  
 COMPASS   CMT3     GT     B6,B7,CMT4  IF END OF COMMENT                                   COMPASS     6506          I
          -CMP30  
 COMPASS            SA1    B6                                                              COMPASS     6507          I
          -CMP30  
 COMPASS            SB6    B6+B1                                                           COMPASS     6508          I
          -CMP30  
 COMPASS            LX6    6                                                               COMPASS     6509          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 556    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X6+X1                                                           COMPASS     6510          I
          -CMP30  
 COMPASS            SB3    B3-B2                                                           COMPASS     6511          I
          -CMP30  
 COMPASS            NZ     B3,CMT3     LOOP TO END OF WORD                                 COMPASS     6512          I
          -CMP30  
 COMPASS   CMT4     LX6    X6,B3                                                           COMPASS     6513          I
          -CMP30  
 COMPASS            SA6    B4                                                              COMPASS     6514          I
          -CMP30  
 COMPASS            SB4    B4+B1                                                           COMPASS     6515          I
          -CMP30  
 COMPASS            MX0    -12                                                             COMPASS     6516          I
          -CMP30  
 COMPASS            BX6    -X0*X6                                                          COMPASS     6517          I
          -CMP30  
 COMPASS            ZR     X6,CMT5     IF END OF COMMENT                                   COMPASS     6518          I
          -CMP30  
 COMPASS            NE     B4,B5,CMT2  LOOP TO END OF 7700 TABLE                           COMPASS     6519          I
          -CMP30  
 COMPASS   CMT5     SX6    B4-DPBA-3                                                       COMPASS     6520          I
          -CMP30  
 COMPASS            SB7    A2+B1                                                           CMP30       2658     A     
 COMPASS   CMT1     SA2    A2-B1       FIND LAST NON-BLANK CHARACTER                       CMP30       2659     A     
 COMPASS            SB7    B7-B1                                                           CMP30       2660     A     
 COMPASS            SB3    X2-1R                                                           CMP30       2661     A     
 COMPASS            ZR     B3,CMT1                                                         CMP30       2662     A     
 COMPASS            SB4    PRFXC                                                           CMP30       2663     A     
 COMPASS            SB5    PRFXC+7                                                         CMP30       2664     A     
 COMPASS   CMT2     MX6    0           PACK COMMENT TEXT INTO PRFX TABLE IMAGE             CMP30       2665     A     
 COMPASS            SB3    10                                                              CMP30       2666     A     
 COMPASS   CMT3     SA1    B6                                                              CMP30       2667     A     
 COMPASS            LX6    6                                                               CMP30       2668     A     
 COMPASS            SB3    B3-B1                                                           CMP30       2669     A     
 COMPASS            SB6    B6+B1                                                           CMP30       2670     A     
 COMPASS            BX6    X6+X1                                                           CMP30       2671     A     
 COMPASS            NZ     B3,CMT3     IF WORD NOT FULL                                    CMP30       2672     A     
 COMPASS            SA6    B4                                                              CMP30       2673     A     
 COMPASS            SB4    B4+B1                                                           CMP30       2674     A     
 COMPASS            GE     B6,B7,CMT4  IF END OF COMMENT TEXT                              CMP30       2675     A     
 COMPASS            LT     B4,B5,CMT2  IF PRFX TABLE NOT FULL                              CMP30       2676     A     
 COMPASS   CMT4     SX6    B4-PRFXC                                                        CMP30       2677     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS     6521     A     
 COMPASS            MANAGE IDTAB,X6                                                        COMPASS     6522     A     
 COMPASS            SA1    P1TEMP                                                          COMPASS     6523     A     
 COMPASS            IX6    X3-X1                                                           COMPASS     6524     A     
 COMPASS            IX3    X2+X6                                                           COMPASS     6525     A     
 COMPASS            SX2    DPBA+3                                                          COMPASS     6526          I
          -CMP30  
 COMPASS            SX2    PRFXC       MOVE COMMENT TEXT TO IDTAB                          CMP30       2678     A     
 COMPASS            SA4    =1HT                                                            CMP30       2679     A     
 COMPASS            RJ     MOVE                                                            COMPASS     6527     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 557    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     CTL300                                                          COMPASS     6528     A     
 COMPASS   COMMENT  SPACE  4                                                               COMPASS     6529     A     
 COMPASS  **        COMMENT - IDENT TABLE COMMENT.                                         COMPASS     6530     A     
 COMPASS                                                                                   COMPASS     6531     A     
 COMPASS                                                                                   COMPASS     6532     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6533     A     
 COMPASS   COMMENT  EQU    ZLIST                                                           COMPASS     6534     A     
 COMPASS   CON      SPACE  4                                                               COMPASS     6535     A     
 COMPASS  ***       CON - NUMERIC CONSTANT.                                                COMPASS     6536     A     
 COMPASS  *                                                                                COMPASS     6537     A     
 COMPASS  *                                                                                COMPASS     6538     A     
 COMPASS  *SYM      CON    EXP1,EXP2,...,EXPN                                              COMPASS     6539     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   COMPASS     6540     A     
 COMPASS  *         CON GENERATES FIELD OF BINARY DATA.  THE FIELD SIZE IS ONE             COMPASS     6541          I
          -CPSA288
 COMPASS  *         WORD.                                                                  COMPASS     6542          I
          -CPSA288
 COMPASS  *         GENERATES FIELDS OF BINARY DATA.  THE FIELD SIZE IS NORMALLY           CPSA288       57     A     
 COMPASS  *         ONE WORD.  HOWEVER, FOR A 180 PPU ASSEMBLY WITH THE SHORT DATA         CPSA288       58     A     
 COMPASS  *         OPTION SELECTED (CIPPU  ,S), THE FIELD SIZE IS 12 BITS AND IS          CPSA288       59     A     
 COMPASS  *         RIGHT-JUSTIFIED IN THE 180 PPU WORD.                                   CPSA288       60     A     
 COMPASS                                                                                   COMPASS     6543     A     
 COMPASS                                                                                   COMPASS     6544     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6545     A     
 COMPASS   CON      SA1    LWORD                                                           COMPASS     6546          I
          -CPSA288
 COMPASS   CON      SA1    LWORD       SET FIELD SIZE FOR GENERATED DATA                   CPSA288       61     A     
 COMPASS            SA2    VWORD        = LWORD FOR ALL ASSEMBLIES EXCEPT FOR              CPSA288       62     A     
 COMPASS            IX6    X1-X2          180 PPU ASSEMBLIES WITH *S* OPTION               CPSA288       63     A     
 COMPASS            SA6    WWORD                                                           CPSA288       64     A     
 COMPASS   CON.0    SA1    LWORD       COMMON CODE FOR *CON* AND *CONL*                    CPSA288       65     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS     6547     A     
 COMPASS   CON1     SA1    LWORD                                                           COMPASS     6548          I
          -CPSA288
 COMPASS   CON1     SA1    WWORD                                                           CPSA288       66     A     
 COMPASS            RJ     SCAD                                                            COMPASS     6549     A     
 COMPASS            SX1    B1                                                              COMPASS     6550     A     
 COMPASS            SA4    PPTYPE                                                          F4820        613     A     
 COMPASS   +        SX4    X4+B1                                                           F4820        614          I
          -CPSA197
 COMPASS            PL     X4,*+1      IF NOT MCU                                          F4820        615          I
          -CPSA197
 COMPASS            SX4    X4+2                                                            CPSA197       24     A     
 COMPASS            NZ     X4,CON2     IF NOT MCU ASSEMBLY.                                CPSA197       25     A     
 COMPASS            SX1    B1+B1                                                           F4820        616     A     
 COMPASS   CON2     BSS    0                                                               CPSA197       26     A     
 COMPASS            RJ     YUPLOC                                                          COMPASS     6551     A     
 COMPASS            SA1    EXSTOP                                                          COMPASS     6552     A     
 COMPASS            ZR     X1,CTL65    IF END OF LIST                                      COMPASS     6553     A     
 COMPASS            EQ     CON1                                                            COMPASS     6554     A     
 COMPASS   CON      SPACE  4                                                               COMPASS     6555     A     
 COMPASS  **        CON - NUMERIC CONSTANT.                                                COMPASS     6556     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 558    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     6557     A     
 COMPASS                                                                                   COMPASS     6558     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6559     A     
 COMPASS   CON      MX6    0                                                               COMPASS     6560          I
          -CPSA288
 COMPASS   CON      SA1    LWORD       SET FIELD SIZE FOR GENERATED DATA                   CPSA288       67     A     
 COMPASS            SA2    VWORD        = LWORD FOR ALL ASSEMBLIES EXCEPT FOR              CPSA288       68     A     
 COMPASS            IX6    X1-X2          180 PPU ASSEMBLIES WITH *S* OPTION               CPSA288       69     A     
 COMPASS            SA6    WWORD                                                           CPSA288       70     A     
 COMPASS   CON.0    MX6    0           COMMON CODE FOR *CON* AND *CONL*                    CPSA288       71     A     
 COMPASS            SA6    P2TEMP                                                          COMPASS     6561     A     
 COMPASS   CON1     SA1    LWORD                                                           COMPASS     6562     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS     6563     A     
 COMPASS            SA1    LWORD                                                           COMPASS     6564          I
          -CMP21  
 COMPASS   CON1.1   SA1    LWORD                                                           CMP21          1          I
          -CPSA288
 COMPASS   CON1.1   SA1    WWORD                                                           CPSA288       72     A     
 COMPASS            RJ     SCAD                                                            COMPASS     6565          I
          -F4820  
 COMPASS            SA4    PPTYPE                                                          F4820        617     A     
 COMPASS            SX4    X4+B1                                                           F4820        618          I
          -CPSA197
 COMPASS            PL     X4,CON1.2   IF NOT MCU                                          F4820        619          I
          -CPSA197
 COMPASS            SX4    X4+2                                                            CPSA197       27     A     
 COMPASS            NZ     X4,CON1.2   IF NOT MCU ASSEMBLY.                                CPSA197       28     A     
 COMPASS            LX1    1                                                               F4820        620     A     
 COMPASS            RJ     SCAD                                                            F4820        621     A     
 COMPASS            SA1    EXVAL                                                           F4820        622     A     
 COMPASS            SA2    LWORD                                                           F4820        623          I
          -F4820A 
 COMPASS            SA3    RMODE       CHECK FOR REVERSED ADDRESS MODE                     F4820A        35     A     
 COMPASS            MX0    -8                                                              F4820A        36     A     
 COMPASS            BX2    X1                                                              F4820A        37     A     
 COMPASS            BX7    -X0*X1                                                          F4820A        38     A     
 COMPASS            AX1    8                                                               F4820A        39     A     
 COMPASS            LX7    8                                                               F4820A        40     A     
 COMPASS            BX7    X7+X1                                                           F4820A        41     A     
 COMPASS            ZR     X3,CON1.3   IF NOT REVERSED ADDRESS MODE                        F4820A        42     A     
 COMPASS            SA7    A1                                                              F4820A        43     A     
 COMPASS            BX1    X2          CALL PACKO(VALUE,34,4)                              F4820A        44     A     
 COMPASS            SX2    34                                                              F4820A        45     A     
 COMPASS            SX3    4                                                               F4820A        46     A     
 COMPASS            RJ     PACKO                                                           F4820A        47     A     
 COMPASS            SX6    1R(                                                             F4820A        48     A     
 COMPASS            SA6    OCTAL+29                                                        F4820A        49     A     
 COMPASS            SX6    1R)                                                             F4820A        50     A     
 COMPASS            SA6    OCTAL+34                                                        F4820A        51     A     
 COMPASS            SX6    B1                                                              F4820A        52     A     
 COMPASS            SA6    P2TEMP                                                          F4820A        53     A     
 COMPASS            SA1    EXVAL       DUMP LSB FIRST                                      F4820A        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/28. 19.11.32.      PAGE 559    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX1    8                                                               F4820A        55     A     
 COMPASS                                                                                   F4820A        56     A     
 COMPASS   CON1.3   SA2    LWORD                                                           F4820A        57     A     
 COMPASS            MX6    0                                                               F4820        624     A     
 COMPASS            AX1    8                                                               F4820        625          I
          -F4820A 
 COMPASS            SA6    POSCTR                                                          F4820        626     A     
 COMPASS            SX3    B0                                                              F4820        627     A     
 COMPASS            SX4    B0                                                              F4820        628     A     
 COMPASS            RJ     BINOUT                                                          F4820        629     A     
 COMPASS            RJ     ZFOUP                                                           F4820        630     A     
 COMPASS            JP     CON2                                                            F4820        631     A     
 COMPASS   CON1.2   RJ     SCAD                                                            F4820        632     A     
 COMPASS            SA5    EXREG       CHECK FOR A REGISTER                                COMPASS     6566     A     
 COMPASS            SX6    B1                                                              COMPASS     6567     A     
 COMPASS            ZR     X5,CON2                                                         COMPASS     6568     A     
 COMPASS            SA6    AERR                                                            COMPASS     6569     A     
 COMPASS            SA6    EFLG                                                            COMPASS     6570     A     
 COMPASS   CON2     SA1    EXVAL       OUTPUT BINARY VALUE                                 COMPASS     6571     A     
 COMPASS            SA2    LWORD                                                           F4820        633     A     
 COMPASS            SA3    LWORD                                                           COMPASS     6572          I
          -CMP21  
 COMPASS            SA3    EXREL                                                           COMPASS     6573     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     6574     A     
 COMPASS            MX6    0                                                               COMPASS     6575     A     
 COMPASS            SA6    POSCTR                                                          COMPASS     6576     A     
 COMPASS            RJ     BINOUT                                                          COMPASS     6577     A     
 COMPASS            SA1    EXVAL       OUTPUT OCTAL LIST                                   COMPASS     6578     A     
 COMPASS            SX2    36                                                              COMPASS     6579     A     
 COMPASS            SX3    20                                                              COMPASS     6580     A     
 COMPASS            SA4    MACHINE                                                         COMPASS     6581     A     
 COMPASS            ZR     X4,CON3     IF CP                                               COMPASS     6582     A     
 COMPASS            SX2    30                                                              COMPASS     6583     A     
 COMPASS            SX3    4                                                               COMPASS     6584          I
          -CPSA281
 COMPASS            SA4    PPTYPE                                                          CPSA281      231     A     
 COMPASS            SX4    X4+3                                                            CPSA281      232     A     
 COMPASS            NZ     X4,CON2.1   IF NOT 180 PP ASSEMBLY                              CPSA281      233     A     
 COMPASS            SX2    32                                                              CPSA281      234     A     
 COMPASS   CON2.1   SA3    PPBYT                                                           CPSA281      235     A     
 COMPASS            SA4    P2TEMP                                                          COMPASS     6585     A     
 COMPASS            SX5    B1                                                              COMPASS     6586     A     
 COMPASS            BX6    X4-X5                                                           COMPASS     6587     A     
 COMPASS            SA6    A4                                                              COMPASS     6588     A     
 COMPASS            ZR     X6,CON3     IF SECOND FIELD                                     COMPASS     6589     A     
 COMPASS            SA5    EXSTOP                                                          COMPASS     6590     A     
 COMPASS            SX2    25                                                              COMPASS     6591     A     
 COMPASS            ZR     X5,CON3     IF END OF LIST                                      COMPASS     6592     A     
 COMPASS            RJ     PACKO                                                           COMPASS     6593     A     
 COMPASS            EQ     CON1        LOOP                                                COMPASS     6594          I
          -CMP21  
 COMPASS            RJ     ZFOUP                                                           CMP21          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/28. 19.11.32.      PAGE 560    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     CON1.1      LOOP                                                CMP21          3     A     
 COMPASS   CON3     RJ     PACKOR                                                          COMPASS     6595     A     
 COMPASS            SX6    B0          CLEAR DETAIL FLAG                                   COMPASS     6596     A     
 COMPASS            SA6    DETFLG                                                          COMPASS     6597     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           COMPASS     6598     A     
 COMPASS            SA1    EXSTOP                                                          COMPASS     6599     A     
 COMPASS            ZR     X1,Z100     IF END OF LIST                                      COMPASS     6600     A     
 COMPASS            EQ     CON1                                                            COMPASS     6601     A     
 COMPASS   CONL     SPACE  4,10                                                            CPSA288       73     A     
 COMPASS  ***       CONL - NUMERIC CONSTANT.                                               CPSA288       74     A     
 COMPASS  *                                                                                CPSA288       75     A     
 COMPASS  *                                                                                CPSA288       76     A     
 COMPASS  *SYM      CONL   EXP1,EXP2,...,EXPN                                              CPSA288       77     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   CPSA288       78     A     
 COMPASS  *         GENERATES FIELDS OF BINARY DATA.  THE FIELD SIZE IS ONE WORD.          CPSA288       79     A     
 COMPASS  *         SIMILAR TO *CON*, EXCEPT THAT IT OVERRIDES THE 12-BIT FIELD            CPSA288       80     A     
 COMPASS  *         SIZE SPECIFIED FOR 180 PPU ASSEMBLIES BY (CIPPU  ,S).                  CPSA288       81     A     
 COMPASS  *         CONL IS LEGAL ONLY FOR 180 PPU ASSEMBLIES.                             CPSA288       82     A     
 COMPASS                                                                                   CPSA288       83     A     
 COMPASS                                                                                   CPSA288       84     A     
 COMPASS            QUAL   PASS1                                                           CPSA288       85     A     
 COMPASS   CONL     SA3    PPTYPE                                                          CPSA288       86     A     
 COMPASS            SX3    X3+3                                                            CPSA288       87     A     
 COMPASS            ZR     X3,CONL1    IF 180 PPU ASSEMBLY                                 CPSA288       88     A     
 COMPASS            SX6    B1          *CONL* ILLEGAL, POST O-ERROR                        CPSA288       89     A     
 COMPASS            SA6    EFLG                                                            CPSA288       90     A     
 COMPASS            SA6    OERR                                                            CPSA288       91     A     
 COMPASS   CONL1    SA1    LWORD       SET FIELD SIZE FOR GENERATED DATA                   CPSA288       92     A     
 COMPASS            BX6    X1                                                              CPSA288       93     A     
 COMPASS            SA6    WWORD                                                           CPSA288       94     A     
 COMPASS            EQ     CON.0       GO TO COMMON *CON* PROCESSING                       CPSA288       95     A     
 COMPASS            SPACE  4,10                                                            CPSA288       96     A     
 COMPASS  **        CONL - NUMERIC CONSTANT.                                               CPSA288       97     A     
 COMPASS                                                                                   CPSA288       98     A     
 COMPASS                                                                                   CPSA288       99     A     
 COMPASS            QUAL   PASS2                                                           CPSA288      100     A     
 COMPASS   CONL     SA1    LWORD       SET FIELD SIZE FOR GENERATED DATA                   CPSA288      101     A     
 COMPASS            BX6    X1                                                              CPSA288      102     A     
 COMPASS            SA6    WWORD                                                           CPSA288      103     A     
 COMPASS            EQ     CON.0       GO TO COMMON *CON* PROCESSING                       CPSA288      104     A     
 COMPASS   CPOP     SPACE  4                                                               COMPASS     6602     A     
 COMPASS  ***       CPOP - DEFINE CP OPERATION CODE.                                       COMPASS     6603     A     
 COMPASS  *                                                                                COMPASS     6604     A     
 COMPASS  *                                                                                COMPASS     6605     A     
 COMPASS  *SYTX     CPOP   CTL,VAL,REG                                                     COMPASS     6606          I
          -CMP30  
 COMPASS  *SYTX     CPOP   CTL,VAL,REG,TYP                                                 CMP30       2680     A     
 COMPASS  *         (SYTX) IS ABBREVIATED DESCRIPTION OF CP INSTRUCTION.                   COMPASS     6607     A     
 COMPASS  *         (CTL) = 4 - FORCE UPPER AFTER INSTRUCTION.                             COMPASS     6608     A     
 COMPASS  *                 2 - FORCE UPPER BEFORE INSTRUCTION.                            COMPASS     6609     A     
 COMPASS  *                 1 - 30-BIT INSTRUCTION.                                        COMPASS     6610     A     
 COMPASS  *         (VAL) = 9-BIT VALUE OF OPERATION CODE.                                 COMPASS     6611     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 561    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         (REG) = IJK.  (I) = CODE FOR I-PORTION.                                COMPASS     6612     A     
 COMPASS  *                 1 - OP-CODE PORTION.                                           COMPASS     6613     A     
 COMPASS  *                 2 - 2ND OR ONLY ADDRESS REGISTER.                              COMPASS     6614     A     
 COMPASS  *                 3 - 1ST OF 2 ADDRESS REGISTERS.                                COMPASS     6615     A     
 COMPASS  *         (TYP) = 6 OR 7 TO RESTRICT INSTRUCTION TO 6000 OR 7000.                CMP30       2681     A     
 COMPASS                                                                                   COMPASS     6616     A     
 COMPASS                                                                                   COMPASS     6617     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6618     A     
 COMPASS   CPOP     SA1    CARD        SCAN OPERATION SYNTAX                               COMPASS     6619     A     
 COMPASS            RJ     SOS                                                             COMPASS     6620     A     
 COMPASS            ZR     X6,CTL70    IF SYNTAX ERROR                                     COMPASS     6621     A     
 COMPASS            SX6    3           READ CTL                                            COMPASS     6622     A     
 COMPASS            SX1    3                                                               COMPASS     6623     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     6624     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6625     A     
 COMPASS            SX6    3           READ VAL                                            COMPASS     6626     A     
 COMPASS            BX7    X1                                                              COMPASS     6627     A     
 COMPASS            SX1    9                                                               COMPASS     6628     A     
 COMPASS            SA7    P1TEMPA                                                         COMPASS     6629     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     6630     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6631     A     
 COMPASS            SX6    3           READ REG                                            COMPASS     6632     A     
 COMPASS            BX7    X1                                                              COMPASS     6633     A     
 COMPASS            SX1    9                                                               COMPASS     6634     A     
 COMPASS            SA7    P1TEMPB                                                         COMPASS     6635     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     6636     A     
 COMPASS            SA1    P1TEMPA                                                         COMPASS     6637     A     
 COMPASS            SA1    EXVAL                                                           CMP30       2682     A     
 COMPASS            SX6    3           READ TYP                                            CMP30       2683     A     
 COMPASS            BX7    X1                                                              CMP30       2684     A     
 COMPASS            SX1    3                                                               CMP30       2685     A     
 COMPASS            SA7    P1TEMPC                                                         CMP30       2686     A     
 COMPASS            RJ     SCADCON                                                         CMP30       2687     A     
 COMPASS            SA1    EXVAL       GET TYP                                             CMP30       2688     A     
 COMPASS            SX6    B0                                                              CMP30       2689     A     
 COMPASS            SB7    X1-6                                                            CMP30       2690     A     
 COMPASS            MI     B7,CPOP2    IF NOT 6 OR 7, ASSUME 0                             CMP30       2691     A     
 COMPASS            GT     B7,B1,CPOP2                                                     CMP30       2692     A     
 COMPASS            SX6    B7+B1                                                           CMP30       2693     A     
 COMPASS            LX6    3                                                               CMP30       2694     A     
 COMPASS   CPOP2    SA1    P1TEMPA                                                         CMP30       2695     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     6638     A     
 COMPASS            SA3    EXVAL                                                           COMPASS     6639          I
          -CMP30  
 COMPASS            SA3    A2+B1                                                           CMP30       2696     A     
 COMPASS            BX1    X6+X1                                                           CMP30       2697     A     
 COMPASS            LX1    27                                                              COMPASS     6640     A     
 COMPASS            LX2    48                                                              COMPASS     6641     A     
 COMPASS            SX6    1R                                                              COMPASS     6642     A     
 COMPASS            LX3    18                                                              COMPASS     6643     A     
 COMPASS            BX1    X1+X2                                                           COMPASS     6644     A     
 COMPASS            IX6    X6+X3                                                           COMPASS     6645     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 562    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X6+X1                                                           COMPASS     6646     A     
 COMPASS            SA1    P1TEMPD                                                         COMPASS     6647     A     
 COMPASS            SB7    X1-3                                                            COMPASS     6648     A     
 COMPASS            LE     B7,CPOP1    IF @ 3 ARGUMENTS                                    COMPASS     6649     A     
 COMPASS            SX7    B1                                                              COMPASS     6650     A     
 COMPASS            SA7    LERR                                                            COMPASS     6651     A     
 COMPASS            SA7    EFLG                                                            COMPASS     6652     A     
 COMPASS   CPOP1    MX0    1           SET OPSYN BIT                                       COMPASS     6653     A     
 COMPASS            LX0    48                                                              COMPASS     6654     A     
 COMPASS            BX2    X0+X6                                                           COMPASS     6655     A     
 COMPASS            SA3    EFLG                                                            COMPASS     6656     A     
 COMPASS            SA1    P1TEMP                                                          COMPASS     6657     A     
 COMPASS            NZ     X3,CTL70                                                        COMPASS     6658     A     
 COMPASS            RJ     ENTOP                                                           COMPASS     6659     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     6660     A     
 COMPASS   CPOP     SPACE  4                                                               COMPASS     6661     A     
 COMPASS  **        CPOP - DEFINE CP OPERATION CODE.                                       COMPASS     6662     A     
 COMPASS                                                                                   COMPASS     6663     A     
 COMPASS                                                                                   COMPASS     6664     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6665     A     
 COMPASS   CPOP     EQU    ZLIST                                                           COMPASS     6666     A     
 COMPASS   CPSYN    SPACE  4                                                               COMPASS     6667     A     
 COMPASS  ***       CPSYN - CP INSTRUCTION SYNONYMOUS.                                     COMPASS     6668     A     
 COMPASS  *                                                                                COMPASS     6669     A     
 COMPASS  *                                                                                COMPASS     6670     A     
 COMPASS  *SYTX1    CPSYN  SYTX2                                                           COMPASS     6671     A     
 COMPASS  *         THIS MAKES THE CP INSTRUCTION DESCRIBED BY (SYTX1)                     COMPASS     6672     A     
 COMPASS  *         SYNONYMOUS WITH THE CP INSTRUCTION DESCRIBED BY (SYTX2).               COMPASS     6673     A     
 COMPASS                                                                                   COMPASS     6674     A     
 COMPASS                                                                                   COMPASS     6675     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6676     A     
 COMPASS   CPSYN    SA1    OPTYPE      SAVE OPTYPE                                         COMPASS     6677     A     
 COMPASS            SA2    COLUMN                                                          COMPASS     6678     A     
 COMPASS            BX6    X1                                                              COMPASS     6679     A     
 COMPASS            SA6    P1TEMPA                                                         COMPASS     6680     A     
 COMPASS            SA1    X2+CARD-1   SCAN OPERATION SYNTAX                               COMPASS     6681     A     
 COMPASS            RJ     SOS                                                             COMPASS     6682     A     
 COMPASS            ZR     X6,CTL70    IF SYNTAX ERROR                                     COMPASS     6683     A     
 COMPASS            SA1    P1TEMP      FIND EQUIVALENCE                                    COMPASS     6684     A     
 COMPASS            RJ     TLUOP                                                           COMPASS     6685     A     
 COMPASS            SB7    AERR                                                            COMPASS     6686     A     
 COMPASS            ZR     X6,CPS2     IF ADDRESS FIELD NOT DEFINED                        COMPASS     6687     A     
 COMPASS            SA1    CARD        SCAN OPERATION SYNTAX                               COMPASS     6688     A     
 COMPASS            RJ     SOS                                                             COMPASS     6689     A     
 COMPASS            SB7    LERR                                                            COMPASS     6690     A     
 COMPASS            SA2    OPTYPE                                                          CMP64G        16     A     
 COMPASS            ZR     X6,CPS2     IF LOCATION FIELD BAD                               COMPASS     6691     A     
 COMPASS            MX0    1           SET OPSYN BIT                                       COMPASS     6692          I
          -CMP64G 
 COMPASS            SA2    OPTYPE                                                          COMPASS     6693          I
          -CMP64G 
 COMPASS            LX0    48                                                              COMPASS     6694          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 563    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS            SA1    P1TEMP                                                          COMPASS     6695          I
          -CMP64G 
 COMPASS            BX2    X2+X0                                                           COMPASS     6696          I
          -CMP64G 
 COMPASS            SA1    P1TEMP                                                          CMP64G        17     A     
 COMPASS            BX6    X2                                                              CMP64G        18     A     
 COMPASS            SX0    B1          SET PROGRAM-DEFINED FLAG                            CMP64G        19     A     
 COMPASS            AX6    57                                                              CMP64G        20     A     
 COMPASS            BX3    X6+X0                                                           CMP64G        21     A     
 COMPASS   +        LX0    47                                                              CMP64G        22     A     
 COMPASS            NZ     X3,*+1      IF NOT AN OPDEF                                     CMP64G        23     A     
 COMPASS            LX0    57-47                                                           CMP64G        24     A     
 COMPASS   +        BX2    X2+X0                                                           CMP64G        25     A     
 COMPASS            RJ     ENTOP                                                           COMPASS     6697     A     
 COMPASS   CPS1     SA1    P1TEMPA     RESET OPTYPE                                        COMPASS     6698     A     
 COMPASS            BX6    X1                                                              COMPASS     6699     A     
 COMPASS            SA6    OPTYPE                                                          COMPASS     6700     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     6701     A     
 COMPASS   CPS2     SX6    B1          SET ERROR FLAG                                      COMPASS     6702     A     
 COMPASS            SA6    B7                                                              COMPASS     6703     A     
 COMPASS            SA6    EFLG                                                            COMPASS     6704     A     
 COMPASS            EQ     CPS1        RETURN                                              COMPASS     6705     A     
 COMPASS   CPSYN    SPACE  4                                                               COMPASS     6706     A     
 COMPASS  **        CPSYN - CP INSTRUCTION SYNONYMOUS.                                     COMPASS     6707     A     
 COMPASS                                                                                   COMPASS     6708     A     
 COMPASS                                                                                   COMPASS     6709     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6710     A     
 COMPASS   CPSYN    EQU    ZLIST                                                           COMPASS     6711     A     
 COMPASS   CTEXT    SPACE  4                                                               COMPASS     6712     A     
 COMPASS  ***       CTEXT - COMMON DECK TEXT.                                              COMPASS     6713     A     
 COMPASS  *                                                                                COMPASS     6714     A     
 COMPASS  *                                                                                COMPASS     6715     A     
 COMPASS  *         CTEXT                                                                  COMPASS     6716     A     
 COMPASS  *         SET XTEXT FLAG FOR LIST CONTROL.                                       COMPASS     6717     A     
 COMPASS                                                                                   COMPASS     6718     A     
 COMPASS                                                                                   COMPASS     6719     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6720     A     
 COMPASS   CTEXT    RJ     CWI         WRITE INTERMEDIATE                                  COMPASS     6721     A     
 COMPASS            SA1    XLEV        INCREMENT NESTING LEVEL                    P036  18 CMP036         8     A     
 COMPASS            SX6    B1          SET XTEXT FLAG                                      COMPASS     6722     A     
 COMPASS            SX7    X1+B1                                                  P036  20 CMP036         9     A     
 COMPASS            SA6    LIBFLG                                                          COMPASS     6723     A     
 COMPASS            SA7    A1                                                     P036  22 CMP036        10     A     
 COMPASS            EQ     CTL100      READ NEXT CARD                                      COMPASS     6724     A     
 COMPASS   CTEXT    SPACE  4                                                               COMPASS     6725     A     
 COMPASS  **        CTEXT - COMMON DECK TEXT.                                              COMPASS     6726     A     
 COMPASS                                                                                   COMPASS     6727     A     
 COMPASS                                                                                   COMPASS     6728     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6729     A     
 COMPASS   CTEXT    RJ     LLA         LIST LOCATION ADDRESS                               COMPASS     6730     A     
 COMPASS            SA1    LX+1                                                            COMPASS     6731     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 564    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X1,ZLIST    IF NO LIST X                                        COMPASS     6732     A     
 COMPASS            SA2    CHAR        CHECK TITLE                                         COMPASS     6733     A     
 COMPASS            SX6    X2-1R                                                           COMPASS     6734     A     
 COMPASS            ZR     X6,ZLIST    IF NO TITLE                                         COMPASS     6735     A     
 COMPASS            SA1    SUBTIT      SET NEW TITLE                                       COMPASS     6736     A     
 COMPASS            RJ     SNT                                                             COMPASS     6737     A     
 COMPASS            NZ     X6,ZLIST    IF ALREADY IN XTEXT AND LIST X IS OFF      P036  24 CMP036        11     A     
 COMPASS            RJ     TLIST       TEST FOR LISTING                                    COMPASS     6738     A     
 COMPASS            SA1    LPCNT       FORCE EJECT                                         COMPASS     6739     A     
 COMPASS            SA2    PSIZE                                                           COMPASS     6740          I
          -CPSA181
 COMPASS            SA2    NEJF        *N* CONTROLLED PAGE SIZE                            CPSA181       18     A     
 COMPASS            IX7    X1+X2                                                           COMPASS     6741     A     
 COMPASS            SA7    A1                                                              COMPASS     6742     A     
 COMPASS            MX6    0                                                               COMPASS     6743     A     
 COMPASS            SA6    CTYPE                                                           COMPASS     6744     A     
 COMPASS            EQ     ZLIST       RETURN                                              COMPASS     6745     A     
 COMPASS   CU       SPACE  4                                                               CMP30       2698     A     
 COMPASS  ***       CU - COMPARE UNCOLLATED (CMU INSTRUCTION).                             CMP30       2699     A     
 COMPASS  *                                                                                CMP30       2700     A     
 COMPASS  *                                                                                CMP30       2701     A     
 COMPASS  *         CU     L,KA,CA,KB,CB                                                   CMP30       2702     A     
 COMPASS  *         (L) = DATA FIELD LENGTH IN CHARACTERS (@127).                          CMP30       2703     A     
 COMPASS  *         (KA) = FIRST OPERAND FIELD FIRST WORD ADDRESS.                         CMP30       2704     A     
 COMPASS  *         (CA) = FIRST OPERAND FIELD FIRST CHARACTER POSITION (0-9).             CMP30       2705     A     
 COMPASS  *         (KB) = SECOND OPERAND FIELD FIRST WORD ADDRESS.                        CMP30       2706     A     
 COMPASS  *         (CB) = SECOND OPERAND FIELD FIRST CHARACTER POSITION (0-9).            CMP30       2707     A     
 COMPASS                                                                                   CMP30       2708     A     
 COMPASS                                                                                   CMP30       2709     A     
 COMPASS            QUAL   PASS1                                                           CMP30       2710     A     
 COMPASS   CU       EQU    CC                                                              CMP30       2711     A     
 COMPASS   CU       SPACE  4                                                               CMP30       2712     A     
 COMPASS  **        CU - COMPARE UNCOLLATED (CMU INSTRUCTION).                             CMP30       2713     A     
 COMPASS                                                                                   CMP30       2714     A     
 COMPASS                                                                                   CMP30       2715     A     
 COMPASS            QUAL   PASS2                                                           CMP30       2716     A     
 COMPASS   CU       SX6    467B                                                            CMP30       2717     A     
 COMPASS            EQ     CC1                                                             CMP30       2718     A     
 COMPASS   DATA     SPACE  4                                                               COMPASS     6746     A     
 COMPASS  ***       DATA - DATA DECLARATION.                                               COMPASS     6747     A     
 COMPASS  *                                                                                COMPASS     6748     A     
 COMPASS  *                                                                                COMPASS     6749     A     
 COMPASS  *SYM      DATA   ITEM1,ITEM2,...,ITEMN                                           COMPASS     6750     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   COMPASS     6751     A     
 COMPASS  *         SUBFIELDS, SEPARATED BY COMMAS, MAY BE NUMERIC OR CHARACTER            COMPASS     6752     A     
 COMPASS  *         DATA ITEMS.                                                            COMPASS     6753     A     
 COMPASS                                                                                   COMPASS     6754     A     
 COMPASS                                                                                   COMPASS     6755     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6756     A     
 COMPASS   DATA     SA1    LWORD       PROCESS LOCATION                                    COMPASS     6757     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS     6758     A     
 COMPASS   DATA1    SX2    VALUES                                                          COMPASS     6759     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 565    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX3    NLITS                                                           COMPASS     6760     A     
 COMPASS            MX4    0                                                               COMPASS     6761     A     
 COMPASS            SA5    LWORD                                                           COMPASS     6762     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      COMPASS     6763     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     6764     A     
 COMPASS            SA2    MACHINE                                                         COMPASS     6765     A     
 COMPASS            ZR     X2,DATA20   IF CP CODE                                          COMPASS     6766     A     
 COMPASS            SX2    X3-1                                                            COMPASS     6767     A     
 COMPASS            NZ     X2,DATA20   IF MORE THAN 1 WORD                                 COMPASS     6768     A     
 COMPASS            SA5    LWORD                                                           CPSA233        6     A     
 COMPASS            SA2    VALUES                                                          COMPASS     6769     A     
 COMPASS            AX2    12                                                              COMPASS     6770          I
          -CPSA233
 COMPASS            SB2    X5                                                              CPSA233        7     A     
 COMPASS            AX2    B2,X2                                                           CPSA233        8     A     
 COMPASS            ZR     X2,DATA20   IF VALUE > 7777B                                    COMPASS     6771          I
          -CPSA288
 COMPASS            ZR     X2,DATA20   IF VALUE FITS IN PP WORD                            CPSA288      105     A     
 COMPASS            SX6    B1                                                              COMPASS     6772     A     
 COMPASS            SA6    EFLG                                                            COMPASS     6773     A     
 COMPASS            SA6    W7ERR                                                           COMPASS     6774     A     
 COMPASS   DATA20   BX1    X3                                                              COMPASS     6775     A     
 COMPASS            RJ     YUPLOC      UPDATE COUNTERS FOR WORD COUNT                      COMPASS     6776     A     
 COMPASS            SA1    W7ERR                                                           COMPASS     6777     A     
 COMPASS   +        NZ     B7,*+1      IF NOT END OF LINE                                  COMPASS     6778     A     
 COMPASS            NZ     X1,CTL70    LIST ERROR                                          COMPASS     6779     A     
 COMPASS            ZR     B7,CTL65    EXIT IF END OF FIELD                                COMPASS     6780     A     
 COMPASS            RJ     GETCH       THROW AWAY COMMA                                    COMPASS     6781     A     
 COMPASS            EQ     DATA1       GO BACK FOR MORE                                    COMPASS     6782     A     
 COMPASS   DATA     SPACE  4                                                               COMPASS     6783     A     
 COMPASS  **        DATA - DATA DECLARATION.                                               COMPASS     6784     A     
 COMPASS                                                                                   COMPASS     6785     A     
 COMPASS                                                                                   COMPASS     6786     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6787     A     
 COMPASS   DATA     RJ     ZFOUP                                                           COMPASS     6788     A     
 COMPASS   ZDATA0   SX6    B0          EVALUATE FIRST DATA ITEM                            COMPASS     6789     A     
 COMPASS            SX2    VALUES                                                          COMPASS     6790     A     
 COMPASS            SA6    AERR                                                            COMPASS     6791     A     
 COMPASS            SX3    NLITS                                                           COMPASS     6792     A     
 COMPASS            MX4    0                                                               COMPASS     6793     A     
 COMPASS            SA5    LWORD                                                           COMPASS     6794     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      COMPASS     6795     A     
 COMPASS            BX6    X3          WORD COUNT                                          COMPASS     6796     A     
 COMPASS            SX7    VALUES      ORIGIN                                              COMPASS     6797     A     
 COMPASS            SA6    P2TEMP                                                          COMPASS     6798     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     6799     A     
 COMPASS   ZDATA1   SA1    LWORD       LIST LOCATION VALUE                                 COMPASS     6800     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS     6801     A     
 COMPASS            SA5    P2TEMP      WORD COUNT                                          COMPASS     6802     A     
 COMPASS            SA1    A5+B1       LOCATION OF VALUE                                   COMPASS     6803     A     
 COMPASS            ZR     X5,ZDATA2   IF EMPTY DATA STRING                                COMPASS     6804     A     
 COMPASS            MX6    0           GO TO BOTTOM OF WORD                                COMPASS     6805     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 566    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    POSCTR                                                          COMPASS     6806     A     
 COMPASS            SA2    LWORD                                                           COMPASS     6807     A     
 COMPASS            MX3    0                                                               COMPASS     6808     A     
 COMPASS            BX4    X3                                                              COMPASS     6809     A     
 COMPASS            SX6    X1+B1                                                           COMPASS     6810     A     
 COMPASS            SX7    X5-1                                                            COMPASS     6811     A     
 COMPASS            SA6    A1                                                              COMPASS     6812     A     
 COMPASS            SA7    A5                                                              COMPASS     6813     A     
 COMPASS            SA1    X1                                                              COMPASS     6814     A     
 COMPASS            RJ     BINOUT      CALL BINOUT(VALUE,LWORD,0,0)                        COMPASS     6815     A     
 COMPASS            SA1    P2TEMPA                                                         COMPASS     6816     A     
 COMPASS            SX2    36                                                              COMPASS     6817     A     
 COMPASS            SX3    20                                                              COMPASS     6818     A     
 COMPASS            SA4    MACHINE                                                         COMPASS     6819     A     
 COMPASS   +        ZR     X4,*+2                                                          COMPASS     6820          I
          -F4820  
 COMPASS            SX2    X2-11       CORRECT FOR PP                                      COMPASS     6821          I
          -F4820  
 COMPASS            SX3    4                                                               COMPASS     6822          I
          -F4820  
 COMPASS   +        SA1    X1-1                                                            COMPASS     6823          I
          -F4820  
 COMPASS            ZR     X4,ZDATA1A  IF CPU                                              F4820        634     A     
 COMPASS            SX2    X2-11       CORRECT FOR PP                                      F4820        635     A     
 COMPASS            SA4    PPTYPE                                                          F4820        636     A     
 COMPASS            SX3    4                                                               F4820        637          I
          -CPSA281
 COMPASS            SA3    PPBYT                                                           CPSA281      236     A     
 COMPASS            PL     X4,ZDATA1A                                                      F4820        638     A     
 COMPASS            SB7    X1+2                                                            CPSA197       29          I
          -CPSA218
 COMPASS            SB7    X4+2                                                            CPSA218        5     A     
 COMPASS            MI     B7,ZDATA1A                                                      CPSA197       30     A     
 COMPASS            SX4    X4+B1                                                           F4820        639     A     
 COMPASS            LX4    1                                                               F4820        640     A     
 COMPASS            IX2    X2+X4                                                           F4820        641     A     
 COMPASS            IX3    X3+X4                                                           F4820        642     A     
 COMPASS   ZDATA1A  SA1    X1-1                                                            F4820        643     A     
 COMPASS            RJ     PACKO       CALL PACKO(VALUE,36-11*MACHINE,20 OR 4)             COMPASS     6824     A     
 COMPASS   ZDATA2   RJ     LISTERG                                                         COMPASS     6825     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS     6826     A     
 COMPASS            NZ     X1,ZDATA1   IF MORE IN THIS DATA STRING                         COMPASS     6827     A     
 COMPASS            SA1    CHAR        TEST FOR END OF STATEMENT                           COMPASS     6828     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     6829     A     
 COMPASS            ZR     B7,Z100                                                         COMPASS     6830     A     
 COMPASS            RJ     GETCH                                                           COMPASS     6831     A     
 COMPASS            EQ     ZDATA0                                                          COMPASS     6832     A     
 COMPASS   DECMIC   SPACE  4                                                               COMPASS     6833     A     
 COMPASS  ***       DECMIC - DECIMAL CONVERSION.                                           COMPASS     6834     A     
 COMPASS  *                                                                                COMPASS     6835     A     
 COMPASS  *                                                                                COMPASS     6836     A     
 COMPASS  *MNAME    DECMIC AEXP1,AEXP2                                                     COMPASS     6837     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 567    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         USING A DECIMAL CONVERSION, (AEXP1) IS CONVERTED INTO A                COMPASS     6838     A     
 COMPASS  *         CHARACTER STRING.  THE OPTIONAL PARAMETER (AEXP2) DEFINES              COMPASS     6839     A     
 COMPASS  *         THE LENGTH OF THE RESULTING MICRO.  IF THE FIELD IS LARGER             COMPASS     6840     A     
 COMPASS  *         THAN REQUIRED, THE CHARACTERS ARE RIGHT JUSTIFIED WITH                 COMPASS     6841     A     
 COMPASS  *         LEADING ZERO FILL.  IF (AEXP2) IS BLANK, THE CHARACTER                 COMPASS     6842     A     
 COMPASS  *         STRING HAS LEADING ZERO SUPPRESSION.  A ZERO STRING                    COMPASS     6843     A     
 COMPASS  *         WILL PRODUCE ONE ZERO.  MAXIMUM LENGTH IS 10 CHARACTERS.               COMPASS     6844     A     
 COMPASS  *         (MNAME) IS THE MICRO NAME.                                             COMPASS     6845     A     
 COMPASS                                                                                   COMPASS     6846     A     
 COMPASS                                                                                   COMPASS     6847     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6848     A     
 COMPASS   DECMIC   SX6    3                                                               COMPASS     6849     A     
 COMPASS            SX1    60                                                              COMPASS     6850     A     
 COMPASS            RJ     SMC                                                             COMPASS     6851          I
          -CPS052 
 COMPASS            RJ     SCADCON                                                         CPS052         1     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6852     A     
 COMPASS            RJ     CDEC                                                            COMPASS     6853     A     
 COMPASS   DMC1     SA6    P1TEMP                                                          COMPASS     6854     A     
 COMPASS            SX6    3                                                               COMPASS     6855     A     
 COMPASS            SX1    15                                                              COMPASS     6856     A     
 COMPASS            RJ     SMC                                                             COMPASS     6857     A     
 COMPASS            SA2    P1TEMP                                                          COMPASS     6858     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     6859     A     
 COMPASS            BX6    X2                                                              COMPASS     6860     A     
 COMPASS            MX7    0                                                               COMPASS     6861     A     
 COMPASS            SA6    RELVEC+1                                                        COMPASS     6862          I
          -CMP18  
 COMPASS            SA6    RELVEC                                                          CMP18         25     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     6863     A     
 COMPASS            SX6    3                                                               COMPASS     6864          I
          -CMP18  
 COMPASS            SX6    B1                                                              CMP18         26     A     
 COMPASS            ZR     X1,DMC4     IF CHARACTER COUNT = 0                              COMPASS     6865     A     
 COMPASS            SX7    X1-10                                                           COMPASS     6866     A     
 COMPASS            SX6    3                                                               CMP18         27     A     
 COMPASS            NG     X1,ERA      IF COUNT < 0                                        CMP18         28     A     
 COMPASS            ZR     X7,DMC3     IF COUNT = 10                                       COMPASS     6867     A     
 COMPASS            BX7    -X1+X7                                                          COMPASS     6868          I
          -CMP18  
 COMPASS            NG     X7,DMC2     IF 0 < COUNT < 10                                   COMPASS     6869          I
          -CMP18  
 COMPASS            SX7    B1                                                              COMPASS     6870          I
          -CMP18  
 COMPASS            SA7    AERR                                                            COMPASS     6871          I
          -CMP18  
 COMPASS            SA7    EFLG                                                            COMPASS     6872          I
          -CMP18  
 COMPASS            EQ     CTL70                                                           COMPASS     6873          I
          -CMP18  
 COMPASS   DMC2     IX2    X1+X1                                                           COMPASS     6874          I
          -CMP18  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 568    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PL     X7,ERA      IF COUNT > 10                                       CMP18         29     A     
 COMPASS            BX7    X1                                                              CMP18         30     A     
 COMPASS            IX2    X1+X1                                                           CMP18         31     A     
 COMPASS            LX1    2                                                               COMPASS     6875     A     
 COMPASS            IX3    X2+X1                                                           COMPASS     6876     A     
 COMPASS            MX0    1                                                               COMPASS     6877     A     
 COMPASS            SB7    X3-1                                                            COMPASS     6878     A     
 COMPASS            SA1    RELVEC+1                                                        COMPASS     6879          I
          -CMP18  
 COMPASS            SA1    RELVEC                                                          CMP18         32     A     
 COMPASS            AX0    X0,B7                                                           COMPASS     6880     A     
 COMPASS            SB7    X3-60                                                           COMPASS     6881     A     
 COMPASS            AX6    X1,B7                                                           COMPASS     6882     A     
 COMPASS            BX6    X0*X6                                                           COMPASS     6883     A     
 COMPASS            BX6    X6+X7                                                           CMP18         33     A     
 COMPASS            SA6    A1                                                              COMPASS     6884     A     
 COMPASS            SX6    B1+B1                                                           COMPASS     6885     A     
 COMPASS   DMC3     RJ     EMT         ENTER MICRO TABLE                                   COMPASS     6886     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     6887     A     
 COMPASS   DMC4     SB6    6           SUPPRESS LEADING ZEROS                              COMPASS     6888          I
          -CMP18  
 COMPASS            SB7    -1R0                                                            COMPASS     6889          I
          -CMP18  
 COMPASS            MX0    54                                                              COMPASS     6890          I
          -CMP18  
 COMPASS            SA3    RELVEC+1                                                        COMPASS     6891          I
          -CMP18  
 COMPASS            BX6    X3                                                              COMPASS     6892          I
          -CMP18  
 COMPASS   DMC5     LX4    X6,B6                                                           COMPASS     6893          I
          -CMP18  
 COMPASS            BX3    -X0*X4                                                          COMPASS     6894          I
          -CMP18  
 COMPASS            SX7    X3+B7                                                           COMPASS     6895          I
          -CMP18  
 COMPASS            BX2    X0*X4                                                           COMPASS     6896          I
          -CMP18  
 COMPASS            NZ     X7,DMC6     IF END OF LEADING ZEROS                             COMPASS     6897          I
          -CMP18  
 COMPASS            ZR     X2,DMC6     IF LAST CHARACTER                                   COMPASS     6898          I
          -CMP18  
 COMPASS            BX6    X0*X4                                                           COMPASS     6899          I
          -CMP18  
 COMPASS            EQ     DMC5        LOOP                                                COMPASS     6900          I
          -CMP18  
 COMPASS   DMC6     SA6    A3          ENTER MICRO IN TABLE                                COMPASS     6901          I
          -CMP18  
 COMPASS   DMC4     SA3    RELVEC      SUPPRESS LEADING ZEROS                              CMP18         34     A     
 COMPASS            SA2    =1L0                                                            CMP18         35     A     
 COMPASS            MX0    6                                                               CMP18         36     A     
 COMPASS            BX7    X3                                                              CMP18         37     A     
 COMPASS            SB7    10                                                              CMP18         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/28. 19.11.32.      PAGE 569    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DMC5     BX3    X0*X7                                                           CMP18         39     A     
 COMPASS            BX3    X3-X2                                                           CMP18         40     A     
 COMPASS            NZ     X3,DMC6     IF NON-ZERO CHARACTER                               CMP18         41     A     
 COMPASS            BX7    -X0*X7                                                          CMP18         42     A     
 COMPASS            SB7    B7-B1                                                           CMP18         43     A     
 COMPASS            LX7    6                                                               CMP18         44     A     
 COMPASS            NZ     X7,DMC5     IF NOT ALL ZEROS                                    CMP18         45     A     
 COMPASS            SB7    B1                                                              CMP18         46     A     
 COMPASS            BX7    X2                                                              CMP18         47     A     
 COMPASS   DMC6     SX1    B7          CHARACTER COUNT                                     CMP18         48     A     
 COMPASS            SB7    B7-10                                                           CMP18         49     A     
 COMPASS            IX7    X7+X1                                                           CMP18         50     A     
 COMPASS            ZR     B7,DMC7     IF NO LEADING ZEROS                                 CMP18         51     A     
 COMPASS            SX6    B1+B1                                                           COMPASS     6902     A     
 COMPASS            SA7    A3                                                              CMP18         52     A     
 COMPASS            EQ     DMC3                                                            CMP18         53     A     
 COMPASS   DMC7     SX6    3                                                               CMP18         54     A     
 COMPASS            EQ     DMC3                                                            COMPASS     6903     A     
 COMPASS   DECMIC   SPACE  4                                                               COMPASS     6904     A     
 COMPASS  **        DECMIC - DECIMAL CONVERSION.                                           COMPASS     6905     A     
 COMPASS                                                                                   COMPASS     6906     A     
 COMPASS                                                                                   COMPASS     6907     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6908     A     
 COMPASS   DECMIC   EQU    ZLIST                                                           COMPASS     6909          I
          -CPS010 
 COMPASS   DECMIC   SX6    3                                                               CPS010        37     A     
 COMPASS            SX1    60                                                              CPS010        38     A     
 COMPASS            RJ     SMC                                                             CPS010        39          I
          -CPS052 
 COMPASS            RJ     SCADCON                                                         CPS052         2     A     
 COMPASS            NZ     X1,ZLIST    IF ERRORS                                           CPS010        40     A     
 COMPASS            SA1    EXVAL       OUTPUT VALUE IN OCTAL                               CPS010        41     A     
 COMPASS            SX2    36                                                              CPS010        42     A     
 COMPASS            MX3    0                                                               CPS010        43     A     
 COMPASS            RJ     PACKO                                                           CPS010        44     A     
 COMPASS            JP     ZLIST       RETURN                                              CPS010        45     A     
 COMPASS   DIS      SPACE  4                                                               COMPASS     6910     A     
 COMPASS  ***       DIS - DISPLAY CODED LINES.                                             COMPASS     6911     A     
 COMPASS  *                                                                                COMPASS     6912     A     
 COMPASS  *                                                                                COMPASS     6913     A     
 COMPASS  *SYM      DIS    AEXP,STRING                                                     COMPASS     6914     A     
 COMPASS  *SYM      DIS    ,*STRING*                                                       COMPASS     6915     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   COMPASS     6916     A     
 COMPASS  *         (AEXP) IS THE WORD COUNT.  (AEXP)*10 (CP) OR (AEXP)*2 (PP)             COMPASS     6917     A     
 COMPASS  *         CHARACTERS BEYOND THE *,* ARE EXTRACTED.  IF (AEXP) IS BLANK           COMPASS     6918     A     
 COMPASS  *         OR ZERO, THE FIRST CHARACTER AFTER THE COMMA IS CONSIDERED             COMPASS     6919     A     
 COMPASS  *         A DELIMITER, AND CHARACTERS ARE EXTRACTED UNTIL THE                    COMPASS     6920     A     
 COMPASS  *         DELIMITER IS ENCOUNTERED AGAIN.                                        COMPASS     6921     A     
 COMPASS                                                                                   COMPASS     6922     A     
 COMPASS                                                                                   COMPASS     6923     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     6924     A     
 COMPASS   DIS      SA1    LWORD                                                           COMPASS     6925     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 570    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     YPRLOC      PROCESS LOCATION                                    COMPASS     6926     A     
 COMPASS            SX6    3           EVALUATE WORD COUNT                                 COMPASS     6927     A     
 COMPASS            SX1    15                                                              COMPASS     6928     A     
 COMPASS            RJ     SMC                                                             COMPASS     6929     A     
 COMPASS            SA1    EXSTOP                                                          CMP64G        26     A     
 COMPASS            SA2    EXVAL                                                           COMPASS     6930     A     
 COMPASS            SA3    AERR                                                            COMPASS     6931     A     
 COMPASS            SA4    UERR                                                            COMPASS     6932     A     
 COMPASS            BX5    X3+X4                                                           COMPASS     6933     A     
 COMPASS            LX3    X2                                                              CMP64G        27     A     
 COMPASS            NZ     X5,CTL70    QUIT IF ERROR IN WORD COUNT FIELD                   COMPASS     6934     A     
 COMPASS            NZ     X2,DIS5     IF WORD COUNT NON-ZERO                              COMPASS     6935          I
          -CMP64G 
 COMPASS            SA2    COLUMN      FETCH DELIMITER                                     COMPASS     6936          I
          -CMP64G 
 COMPASS            SA1    X2+CARD-1                                                       COMPASS     6937          I
          -CMP64G 
 COMPASS            BX6    X1                                                              COMPASS     6938          I
          -CMP64G 
 COMPASS            SA3    LASTCOL     SET PRECAUTIONARY TERMINATOR                        COMPASS     6939          I
          -CMP64G 
 COMPASS            SA6    X3+CARD     STORE PROTECTION                                    COMPASS     6940          I
          -CMP64G 
 COMPASS            SB7    X1          SAVE TERMINATOR                                     COMPASS     6941          I
          -CMP64G 
 COMPASS            SX0    B1                                                              COMPASS     6942          I
          -CMP64G 
 COMPASS            SA2    NCHARS                                                          COMPASS     6943          I
          -CMP64G 
 COMPASS            BX4    X2          NUMBER OF CHARACTERS PER WORD                       COMPASS     6944          I
          -CMP64G 
 COMPASS            SB7    -B7         TEST CHARACTER                                      COMPASS     6945          I
          -CMP64G 
 COMPASS            SX6    1R                                                              CMP12          2          I
          -CMP64G 
 COMPASS            SX1    B7+B1                                                           COMPASS     6946          I
          -CMP64G 
 COMPASS   DIS1     SB6    X1+B7       TEST CHARACTER                                      COMPASS     6947          I
          -CMP64G 
 COMPASS            SA1    A1+B1       FETCH NEXT ONE                                      COMPASS     6948          I
          -CMP64G 
 COMPASS            IX2    X2+X0                                                           COMPASS     6949          I
          -CMP64G 
 COMPASS            NZ     B6,DIS1     LOOP UNTIL MATCH FOUND                              COMPASS     6950          I
          -CMP64G 
 COMPASS            SX2    X2-1        CORRECT COUNT                                       COMPASS     6951          I
          -CMP64G 
 COMPASS            SA6    A6          RESTORE BLANK AT END OF STATEMENT                   CMP12          3          I
          -CMP64G 
 COMPASS            IX2    X2/X4       CALCULATE NUMBER OF WORDS NEEDED                    COMPASS     6952          I
          -CMP64G 
 COMPASS   DIS5     SA1    EXSTOP                                                          COMPASS     6953          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 571    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS            NZ     X1,DIS6                                                         COMPASS     6954          I
          -CMP64G 
 COMPASS            SX6    1RA                                                             COMPASS     6955          I
          -CMP64G 
 COMPASS            SA6    AERR                                                            COMPASS     6956          I
          -CMP64G 
 COMPASS            SA6    EFLG                                                            COMPASS     6957          I
          -CMP64G 
 COMPASS            EQ     CTL70                                                           COMPASS     6958          I
          -CMP64G 
 COMPASS   DIS6     BX1    X2                                                              COMPASS     6959          I
          -CMP64G 
 COMPASS            BX6    X2                                                              COMPASS     6960          I
          -CMP64G 
 COMPASS            ZR     X1,ERA      IF NO COMMA AFTER EXPRESSION                        CMP64G        28     A     
 COMPASS            NZ     X2,DIS1     IF WORD COUNT NON-ZERO                              CMP64G        29     A     
 COMPASS            SA2    COLUMN                                                          CMP64G        30     A     
 COMPASS            SX6    1RC                                                             CMP64G        31     A     
 COMPASS            SX7    X2-1        DELIMITED STRING, EFFECTIVELY                       CMP64G        32     A     
 COMPASS            SA6    CHAR        REPLACE *,* WITH *C* AND                            CMP64G        33     A     
 COMPASS            SA7    A2          MAKE SCAN BEGIN THERE                               CMP64G        34     A     
 COMPASS            MX4    0                                                               CMP64G        35     A     
 COMPASS            SX2    VALUES                                                          CMP64G        36     A     
 COMPASS            SX3    NLITS                                                           CMP64G        37     A     
 COMPASS            SA5    LWORD                                                           CMP64G        38     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      CMP64G        39     A     
 COMPASS            MX2    0                                                               CMP64G        40     A     
 COMPASS            SA5    AERR                                                            CMP149         1     A     
 COMPASS   DIS1     BX6    X2                                                              CMP64G        41     A     
 COMPASS            NG     X2,ERA      IF WORD COUNT IS NEGATIVE                           CMP64G        42     A     
 COMPASS            LX1    X3                                                              CMP64G        43     A     
 COMPASS            NZ     X5,ERA      IF A-ERROR                                          CMP149         2     A     
 COMPASS            SA6    FLAG                                                            COMPASS     6961     A     
 COMPASS            RJ     YUPLOC                                                          COMPASS     6962     A     
 COMPASS            EQ     CTL70                                                           COMPASS     6963     A     
 COMPASS   DIS      SPACE  4                                                               COMPASS     6964     A     
 COMPASS  **        DIS - DISPLAY CODED LINES.                                             COMPASS     6965     A     
 COMPASS                                                                                   COMPASS     6966     A     
 COMPASS                                                                                   COMPASS     6967     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     6968     A     
 COMPASS   DIS      SA1    LWORD                                                           COMPASS     6969     A     
 COMPASS            RJ     ZPRLOC      PROCESS LOCATION                                    COMPASS     6970     A     
 COMPASS            MX7    0                                                               COMPASS     6971     A     
 COMPASS            SX6    3                                                               CMP64G        44     A     
 COMPASS            SX1    15                                                              CMP64G        45     A     
 COMPASS            SA7    LOCSYM                                                          COMPASS     6972     A     
 COMPASS            RJ     SMC         EVALUATE WORD COUNT                                 CMP64G        46     A     
 COMPASS            SA1    AERR        CHECK IF PASS 1 FOUND ANY ERRORS                    COMPASS     6973     A     
 COMPASS            SA2    UERR        IN THE WORD COUNT FIELD                             COMPASS     6974     A     
 COMPASS            BX3    X1+X2                                                           COMPASS     6975          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 572    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    3                                                               COMPASS     6976          I
          -CMP64G 
 COMPASS            NZ     X3,ZLIST    EXIT IF ERRORS                                      COMPASS     6977          I
          -CMP64G 
 COMPASS            SX1    18                                                              COMPASS     6978          I
          -CMP64G 
 COMPASS            RJ     SMC                                                             COMPASS     6979          I
          -CMP64G 
 COMPASS            SA1    EXVAL                                                           COMPASS     6980          I
          -CMP64G 
 COMPASS            ZR     X1,ZDIS10   IF WORD COUNT = 0                                   COMPASS     6981          I
          -CMP64G 
 COMPASS   ZDIS1    SA1    LWORD       INITIALIZE FOR NEW WORD                             COMPASS     6982          I
          -CMP64G 
 COMPASS            BX6    X1                                                              COMPASS     6983          I
          -CMP64G 
 COMPASS            SA6    P2TEMPA     LENGTH OF WORD                                      COMPASS     6984          I
          -CMP64G 
 COMPASS            RJ     ZPRLOC                                                          COMPASS     6985          I
          -CMP64G 
 COMPASS   ZDIS2    SA1    CHAR        OUTPUT CHARACTR                                     COMPASS     6986          I
          -CMP64G 
 COMPASS            RJ     ZDISOUT                                                         COMPASS     6987          I
          -CMP64G 
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  COMPASS     6988          I
          -CMP64G 
 COMPASS            SA2    P2TEMPA                                                         COMPASS     6989          I
          -CMP64G 
 COMPASS            SX6    X2-6                                                            COMPASS     6990          I
          -CMP64G 
 COMPASS            SA6    A2                                                              COMPASS     6991          I
          -CMP64G 
 COMPASS            NZ     X6,ZDIS2    LOOP TO OUTPUT A WORD                               COMPASS     6992          I
          -CMP64G 
 COMPASS            RJ     LISTERG     LIST THE LINE                                       COMPASS     6993          I
          -CMP64G 
 COMPASS            SA1    EXVAL       CHECK WORD COUNT                                    COMPASS     6994          I
          -CMP64G 
 COMPASS            SX6    X1-1                                                            COMPASS     6995          I
          -CMP64G 
 COMPASS            SA6    A1                                                              COMPASS     6996          I
          -CMP64G 
 COMPASS            NZ     X6,ZDIS1                                                        COMPASS     6997          I
          -CMP64G 
 COMPASS            SA3    FLAG                                                            CMP64G        47     A     
 COMPASS            BX1    X1+X2                                                           CMP64G        48     A     
 COMPASS            NZ     X1,ZLIST    EXIT IF ERRORS                                      CMP64G        49     A     
 COMPASS            NZ     X3,DIS1     IF WORD COUNT NON-ZERO                              CMP64G        50     A     
 COMPASS            SA2    COLUMN                                                          CMP64G        51     A     
 COMPASS            SX6    1RC                                                             CMP64G        52     A     
 COMPASS            SX7    X2-1        DELIMITED STRING, EFFECTIVELY                       CMP64G        53     A     
 COMPASS            SA6    CHAR        REPLACE *,* WITH *C* AND                            CMP64G        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/28. 19.11.32.      PAGE 573    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A2          MAKE SCAN BEGIN THERE                               CMP64G        55     A     
 COMPASS            SX2    VALUES                                                          CMP64G        56     A     
 COMPASS            SX3    NLITS                                                           CMP64G        57     A     
 COMPASS            MX4    0                                                               CMP64G        58     A     
 COMPASS            SA5    LWORD                                                           CMP64G        59     A     
 COMPASS            BX6    X2                                                              CMP64G        60     A     
 COMPASS            SA6    P2TEMP                                                          CMP64G        61     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      CMP64G        62     A     
 COMPASS   DIS1     SA2    LWORD                                                           CMP64G        63     A     
 COMPASS            BX6    X3          STORE WORD COUNT                                    CMP64G        64     A     
 COMPASS            SA6    P2TEMPA                                                         CMP64G        65     A     
 COMPASS            RJ     ZPRLOC      LIST LOCATION VALUE                                 CMP64G        66     A     
 COMPASS            SA1    FLAG                                                            CMP64G        67     A     
 COMPASS            SA2    P2TEMP                                                          CMP64G        68     A     
 COMPASS            NZ     X1,DIS2     IF NOT DELIMITED                                    CMP64G        69     A     
 COMPASS            SA1    X2          NEXT VALUE WORD                                     CMP64G        70     A     
 COMPASS            SX6    X2+B1       INCREMENT ADDRESS                                   CMP64G        71     A     
 COMPASS            BX7    X1                                                              CMP64G        72     A     
 COMPASS            SA6    A2                                                              CMP64G        73     A     
 COMPASS            EQ     DIS4                                                            CMP64G        74     A     
 COMPASS   DIS2     SA1    CHAR        CONSTRUCT BINARY WORD BY COLLECTING                 CMP64G        75     A     
 COMPASS            SA2    NCHARS      CHARACTERS AND CONVERTING THEM                      CMP64G        76     A     
 COMPASS            SA3    CT                                                              CMP64G        77     A     
 COMPASS            SA4    PPTYPE      CHECK PPTYPE TO SET UP MASK                         CPSA225        4     A     
 COMPASS            MX0    -6                                                              CPSA225        5     A     
 COMPASS            PL     X4,DIS2.5   IF NOT BCU,MCU                                      CPSA225        6          I
          -CPSA281
 COMPASS            SX4    X4+2                                                            CPSA225        7          I
          -CPSA281
 COMPASS            MI     X4,DIS2.5   IF NOT BCU,MCU                                      CPSA225        8          I
          -CPSA281
 COMPASS            PL     X4,DIS2.5   IF NOT BCU, MCU, OR 180 PPU                         CPSA281      237     A     
 COMPASS            MX0    -6                                                              CMP64G        78          I
          -F4820  
 COMPASS            MX0    -8                                                              F4820        644     A     
 COMPASS   DIS2.5   BSS    0                                                               CPSA225        9     A     
 COMPASS            BX7    X7-X7                                                           CMP64G        79     A     
 COMPASS            SB6    X2                                                              CMP64G        80     A     
 COMPASS            SB7    X3                                                              CMP64G        81     A     
 COMPASS   DIS3     SA1    X1+STCA     CONVERT CHARACTER                                   CMP64G        82     A     
 COMPASS            AX2    X1,B7                                                           CMP64G        83     A     
 COMPASS            BX3    -X0*X1                                                          CMP64G        84          I
          -CMP069 
 COMPASS            BX3    -X0*X2                                                 P069   7 CMP069        12     A     
 COMPASS            LX7    6                                                               CMP64G        85     A     
 COMPASS            SB6    B6-B1                                                           CMP64G        86     A     
 COMPASS            SX1    B7-45                                                           CPSA281      238     A     
 COMPASS            NZ     X1,DIS3A    IF NOT ASCII CONVERSION                             CPSA281      239     A     
 COMPASS            LX7    2                                                               CPSA281      240     A     
 COMPASS            SX3    X3+ASC6T8   CONVERT 6-BIT ASCII TO 8-BIT                        CPSA281      241     A     
 COMPASS   DIS3A    BSS    0                                                               CPSA281      242     A     
 COMPASS            BX7    X7+X3                                                           CMP64G        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/28. 19.11.32.      PAGE 574    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     GETCH                                                           CMP64G        88     A     
 COMPASS            NZ     B6,DIS3     IF NOT END OF WORD                                  CMP64G        89     A     
 COMPASS            BX1    X7                                                              CMP64G        90     A     
 COMPASS   DIS4     SA2    LWORD                                                           CMP64G        91     A     
 COMPASS            SX3    B0                                                              CMP64G        92     A     
 COMPASS            MX4    0                                                               CMP64G        93     A     
 COMPASS            BX6    X3          POSITION AT BOTTOM OF WORD                          CMP64G        94     A     
 COMPASS            SA7    VALUES      SAVE VALUE WORD                                     CMP64G        95     A     
 COMPASS            SA6    POSCTR                                                          CMP64G        96     A     
 COMPASS            RJ     BINOUT      CALL BINOUT(VALUE,LWORD,0,0)                        CMP64G        97     A     
 COMPASS            SA4    MACHINE                                                         CMP64G        98     A     
 COMPASS            SX2    36                                                              CMP64G        99     A     
 COMPASS            SX3    20                                                              CMP64G       100     A     
 COMPASS            ZR     X4,*+2                                                          CMP64G       101     A     
 COMPASS   +        SX2    X2-11       CORRECT FOR PP                                      CMP64G       102     A     
 COMPASS            SX3    4                                                               CMP64G       103          I
          -CPSA281
 COMPASS            SA3    PPBYT                                                           CPSA281      243     A     
 COMPASS   +        SA1    VALUES      RECLAIM VALUE WORD                                  CMP64G       104     A     
 COMPASS            RJ     PACKO       CALL PACKO(VALUE,36-11*MACHINE,20 OR 4)             CMP64G       105     A     
 COMPASS            RJ     LISTERG     LIST LINE                                           CMP64G       106     A     
 COMPASS            SA1    P2TEMPA                                                         CMP64G       107     A     
 COMPASS            SX3    X1-1        DECREMENT WORD COUNT                                CMP64G       108     A     
 COMPASS            NZ     X3,DIS1     LOOP IF MORE                                        CMP64G       109     A     
 COMPASS            EQ     Z100                                                            COMPASS     6998     A     
 COMPASS   DM       SPACE  4                                                               CMP30       2719     A     
 COMPASS  ***       DM - DIRECT MOVE (CMU INSTRUCTION).                                    CMP30       2720     A     
 COMPASS  *                                                                                CMP30       2721     A     
 COMPASS  *                                                                                CMP30       2722     A     
 COMPASS  *         DM     L,KS,CS,KD,CD                                                   CMP30       2723     A     
 COMPASS  *         (L) = DATA FIELD LENGTH IN CHARACTERS (@127).                          CMP30       2724     A     
 COMPASS  *         (KS) = SOURCE FIELD FIRST WORD ADDRESS.                                CMP30       2725     A     
 COMPASS  *         (CS) = SOURCE FIELD FIRST CHARACTER POSITION (0-9).                    CMP30       2726     A     
 COMPASS  *         (KD) = DESTINATION FIELD FIRST WORD ADDRESS.                           CMP30       2727     A     
 COMPASS  *         (CD) = DESTINATION FIELD FIRST CHARACTER POSITION (0-9).               CMP30       2728     A     
 COMPASS                                                                                   CMP30       2729     A     
 COMPASS                                                                                   CMP30       2730     A     
 COMPASS            QUAL   PASS1                                                           CMP30       2731     A     
 COMPASS   DM       EQU    CC                                                              CMP30       2732     A     
 COMPASS   DM       SPACE  4                                                               CMP30       2733     A     
 COMPASS  **        DM - DIRECT MOVE (CMU INSTRUCTION).                                    CMP30       2734     A     
 COMPASS                                                                                   CMP30       2735     A     
 COMPASS                                                                                   CMP30       2736     A     
 COMPASS            QUAL   PASS2                                                           CMP30       2737     A     
 COMPASS   DM       SX6    465B                                                            CMP30       2738     A     
 COMPASS            EQ     CC1                                                             CMP30       2739     A     
 COMPASS                                                                                   COMPASS     6999          I
          -CMP64G 
 COMPASS  *         DELIMITED STRING.                                                      COMPASS     7000          I
          -CMP64G 
 COMPASS                                                                                   COMPASS     7001          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 575    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ZDIS10   SA1    CHAR        SAVE DELIMITER CHARACTER                            COMPASS     7002          I
          -CMP64G 
 COMPASS            BX6    X1                                                              COMPASS     7003          I
          -CMP64G 
 COMPASS            SA6    P2TEMP                                                          COMPASS     7004          I
          -CMP64G 
 COMPASS   ZDIS11   RJ     GETCH       GET DATA                                            COMPASS     7005          I
          -CMP64G 
 COMPASS            SA3    P2TEMP      CHECK FOR DELIMITER                                 COMPASS     7006          I
          -CMP64G 
 COMPASS            BX6    X3-X1                                                           COMPASS     7007          I
          -CMP64G 
 COMPASS            ZR     X6,ZDIS15   IF SECOND DELIMITER FOUND                           COMPASS     7008          I
          -CMP64G 
 COMPASS            NG     X2,ZDIS14   IF END OF STATEMENT                                 COMPASS     7009          I
          -CMP64G 
 COMPASS            RJ     ZDISOUT                                                         COMPASS     7010          I
          -CMP64G 
 COMPASS            SA1    POSCTR                                                          COMPASS     7011          I
          -CMP64G 
 COMPASS            NZ     X1,ZDIS11   RETURN TO FINISH WORD                               COMPASS     7012          I
          -CMP64G 
 COMPASS            RJ     LISTERG     LIST OCTAL                                          COMPASS     7013          I
          -CMP64G 
 COMPASS            SX1    B0                                                              COMPASS     7014          I
          -CMP64G 
 COMPASS            RJ     ZPRLOC                                                          COMPASS     7015          I
          -CMP64G 
 COMPASS            EQ     ZDIS11                                                          COMPASS     7016          I
          -CMP64G 
 COMPASS                                                                                   COMPASS     7017          I
          -CMP64G 
 COMPASS   ZDIS14   SX6    B1          SET ERROR FLAG FOR NO TERMINAL DELIMITER            COMPASS     7018          I
          -CMP64G 
 COMPASS            SA6    AERR                                                            COMPASS     7019          I
          -CMP64G 
 COMPASS            SA6    EFLG                                                            COMPASS     7020          I
          -CMP64G 
 COMPASS   ZDIS15   SX6    -B1                                                             COMPASS     7021          I
          -CMP64G 
 COMPASS            SA6    A3                                                              COMPASS     7022          I
          -CMP64G 
 COMPASS   ZDIS16   SX1    B0                                                              COMPASS     7023          I
          -CMP64G 
 COMPASS            RJ     ZDISOUT                                                         COMPASS     7024          I
          -CMP64G 
 COMPASS            SA1    POSCTR                                                          COMPASS     7025          I
          -CMP64G 
 COMPASS            NZ     X1,*+2                                                          COMPASS     7026          I
          -CMP64G 
 COMPASS            RJ     LISTERG                                                         COMPASS     7027          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 576    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    P2TEMP                                                          COMPASS     7028          I
          -CMP64G 
 COMPASS            SX6    X2+B1                                                           COMPASS     7029          I
          -CMP64G 
 COMPASS            SA6    A2                                                              COMPASS     7030          I
          -CMP64G 
 COMPASS            SA1    POSCTR                                                          COMPASS     7031          I
          -CMP64G 
 COMPASS            NZ     X1,ZDIS16                                                       COMPASS     7032          I
          -CMP64G 
 COMPASS            NZ     X6,Z100                                                         COMPASS     7033          I
          -CMP64G 
 COMPASS            RJ     ZPRLOC                                                          COMPASS     7034          I
          -CMP64G 
 COMPASS            EQ     ZDIS16                                                          COMPASS     7035          I
          -CMP64G 
 COMPASS   ZDISOUT  SPACE  4                                                               COMPASS     7036          I
          -CMP64G 
 COMPASS  **        ZDISOUT - OUTPUT DIS OCTAL AND BINARY.                                 COMPASS     7037          I
          -CMP64G 
 COMPASS                                                                                   COMPASS     7038          I
          -CMP64G 
 COMPASS                                                                                   COMPASS     7039          I
          -CMP64G 
 COMPASS   ZDISOUT  PS                 RETURN EXIT                                         COMPASS     7040          I
          -CMP64G 
 COMPASS            SA2    CT          CODE TYPE                                           COMPASS     7041          I
          -CMP64G 
 COMPASS            MX0    -6                                                              COMPASS     7042          I
          -CMP64G 
 COMPASS            SB7    X2                                                              COMPASS     7043          I
          -CMP64G 
 COMPASS            SA1    X1+STCA     CONVERT TYPE                                        COMPASS     7044          I
          -CMP64G 
 COMPASS            AX2    X1,B7                                                           COMPASS     7045          I
          -CMP64G 
 COMPASS            BX1    -X0*X2                                                          COMPASS     7046          I
          -CMP64G 
 COMPASS            SX2    6                                                               COMPASS     7047          I
          -CMP64G 
 COMPASS            SA5    POSCTR                                                          COMPASS     7048          I
          -CMP64G 
 COMPASS            BX6    X1                                                              COMPASS     7049          I
          -CMP64G 
 COMPASS            IX7    X5-X2                                                           COMPASS     7050          I
          -CMP64G 
 COMPASS            SA6    P2TEMPB                                                         COMPASS     7051          I
          -CMP64G 
 COMPASS            SA7    A5                                                              COMPASS     7052          I
          -CMP64G 
 COMPASS            MX3    0                                                               COMPASS     7053          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 577    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX4    X3                                                              COMPASS     7054          I
          -CMP64G 
 COMPASS            RJ     BINOUT                                                          COMPASS     7055          I
          -CMP64G 
 COMPASS            SA1    POSCTR                                                          COMPASS     7056          I
          -CMP64G 
 COMPASS            SX0    3                                                               COMPASS     7057          I
          -CMP64G 
 COMPASS            IX2    X1/X0                                                           COMPASS     7058          I
          -CMP64G 
 COMPASS            SA1    P2TEMPB                                                         COMPASS     7059          I
          -CMP64G 
 COMPASS            SA5    MACHINE                                                         COMPASS     7060          I
          -CMP64G 
 COMPASS            SX0    36                                                              COMPASS     7061          I
          -CMP64G 
 COMPASS   +        ZR     X5,*+1                                                          COMPASS     7062          I
          -CMP64G 
 COMPASS            SX0    25          CORRECT FOR PP                                      COMPASS     7063          I
          -CMP64G 
 COMPASS            IX2    X0-X2                                                           COMPASS     7064          I
          -CMP64G 
 COMPASS            SX3    B1+B1                                                           COMPASS     7065          I
          -CMP64G 
 COMPASS            RJ     PACKO                                                           COMPASS     7066          I
          -CMP64G 
 COMPASS            EQ     ZDISOUT                                                         COMPASS     7067          I
          -CMP64G 
 COMPASS   DUP      SPACE  4                                                               COMPASS     7068     A     
 COMPASS  ***       DUP - DUPLICATION.                                                     COMPASS     7069     A     
 COMPASS  *                                                                                COMPASS     7070     A     
 COMPASS  *                                                                                COMPASS     7071     A     
 COMPASS  *NAME     DUP    AEXP1,AEXP2                                                     COMPASS     7072     A     
 COMPASS  *         (NAME) IS BLANK OR AN INSTRUCTION BRACKET NAME.  (AEXP1) IS            COMPASS     7073     A     
 COMPASS  *         THE REPLICATION COUNT.  (AEXP2) IF PRESENT SPECIFIES THE               COMPASS     7074     A     
 COMPASS  *         NUMBER OF SUCCEEDING LINES TO BE ASSEMBLED.                            COMPASS     7075     A     
 COMPASS                                                                                   COMPASS     7076     A     
 COMPASS                                                                                   COMPASS     7077     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     7078     A     
 COMPASS   DUP      SX6    3           EVALUATE REPLICATION COUNT                          COMPASS     7079     A     
 COMPASS            SX1    15                                                              COMPASS     7080     A     
 COMPASS            RJ     SMC                                                             COMPASS     7081     A     
 COMPASS            SA2    LOCSYM                                                          COMPASS     7082     A     
 COMPASS            BX6    X2                                                              COMPASS     7083     A     
 COMPASS            SX1    B1+B1                                                           COMPASS     7084     A     
 COMPASS            SA6    P1TEMP      SAVE LOCATION SYMBOL AS BRACKET NAME                COMPASS     7085     A     
 COMPASS            SA3    EXVAL                                                           COMPASS     7086     A     
 COMPASS            MX0    45          TRUNCATE DUP COUNT TO 15 BITS                       COMPASS     7087     A     
 COMPASS            BX3    -X0*X3                                                          COMPASS     7088     A     
 COMPASS            SX7    X3+B1                                                           COMPASS     7089     A     
 COMPASS            SA7    P1TEMPA     SAVE REPLICATION COUNT                              COMPASS     7090     A     
 COMPASS            SX6    X1+B1                                                           COMPASS     7091     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 578    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    15                                                              COMPASS     7092     A     
 COMPASS            RJ     SMC         EVALUATE CARD COUNT                                 COMPASS     7093     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     7094     A     
 COMPASS            BX7    X1                                                              COMPASS     7095     A     
 COMPASS            SA7    FLAG        SAVE CARD COUNT IN FLAG                             COMPASS     7096     A     
 COMPASS            SA1    L.DUPTAB    SAVE DUPTABLE SIZE                                  COMPASS     7097     A     
 COMPASS            BX6    X1                                                              COMPASS     7098     A     
 COMPASS            SA6    P1TEMPB                                                         COMPASS     7099     A     
 COMPASS            RJ     CRL         CHECK RECURSION LIMIT                      S004  11 CPS004         3     A     
 COMPASS   DUP1     RJ     CWI                                                             COMPASS     7100     A     
 COMPASS            SX6    B1          SET TEXT DEFINITION FLAG                            COMPASS     7101     A     
 COMPASS            MX7    0           CLEAR PUSHUP FLAG                                   COMPASS     7102     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS     7103     A     
 COMPASS            SA7    PUSHUP                                                          COMPASS     7104     A     
 COMPASS            RJ     INPUT1                                                          COMPASS     7105     A     
 COMPASS            NZ     X1,DUP6     IF PUSHUP OCCURRED                                  COMPASS     7106     A     
 COMPASS            RJ     SETUP                                                           COMPASS     7107     A     
 COMPASS            SA1    STYPE                                                           COMPASS     7108     A     
 COMPASS            SA2    IOP                                                             COMPASS     7109     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS     7110     A     
 COMPASS            SX3    3REND                                                           COMPASS     7111     A     
 COMPASS            ZR     B7,DUP1     IF COMMENTS CARD                                    COMPASS     7112     A     
 COMPASS            BX3    X3-X2                                                           COMPASS     7113     A     
 COMPASS            ZR     X3,END      IF END CARD                                         COMPASS     7114     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     7115     A     
 COMPASS            SX6    X1-1        DECREMENT CARD COUNTER                              COMPASS     7116     A     
 COMPASS            SA6    A1                                                              COMPASS     7117     A     
 COMPASS            ZR     X6,DUP2     IF END OF COUNT CONTROLLED UP                       COMPASS     7118     A     
 COMPASS            PL     X6,DUP3     IF STILL IN COUNT CONTROLLED DUP                    COMPASS     7119     A     
 COMPASS            SA1    IOP         CHECK FOR AN ENDD CARD                              COMPASS     7120     A     
 COMPASS            SA2    =0RENDD                                                         COMPASS     7121     A     
 COMPASS            BX3    X1-X2       CHECK THE LOCATION SYMBOLS                          COMPASS     7122     A     
 COMPASS            NZ     X3,DUP3     IF NOT *ENDD*                                       COMPASS     7123     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS     7124     A     
 COMPASS            SA2    P1TEMP                                                          COMPASS     7125     A     
 COMPASS            IX3    X1-X2                                                           COMPASS     7126     A     
 COMPASS            ZR     X1,DUP4     IF LOCATION FIELD BLANK                             COMPASS     7127     A     
 COMPASS            ZR     X2,DUP4     IF NO BRACKET NAME                                  COMPASS     7128     A     
 COMPASS            ZR     X3,DUP4     IF BRACKET NAMES MATCH                              COMPASS     7129     A     
 COMPASS   DUP3     PCARD  TEMTAB      PACK CARD INTO TEMTAB                               COMPASS     7130     A     
 COMPASS            EQ     DUP1        AND CONTINUE TO ENTER DEFINITIONS                   COMPASS     7131     A     
 COMPASS                                                                                   COMPASS     7132     A     
 COMPASS  *         END OF DEFINITION BECAUSE OF ENDD STATEMENT.                           COMPASS     7133     A     
 COMPASS                                                                                   COMPASS     7134     A     
 COMPASS   DUP4     RJ     CWI         WRITE ENDD CARD                                     COMPASS     7135     A     
 COMPASS            MX6    0                                                               COMPASS     7136     A     
 COMPASS            SX7    1R                                                              COMPASS     7137     A     
 COMPASS            SA6    SQLGN       PERMIT REPACKING                                    COMPASS     7138     A     
 COMPASS            SA5    CARD                                                            COMPASS     7139     A     
 COMPASS            SA7    A5                                                              COMPASS     7140     A     
 COMPASS   +        SA5    A5+B1       CLEAR                                               COMPASS     7141     A     
 COMPASS            BX4    X7-X5       OUT                                                 COMPASS     7142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 579    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A7+B1       LOCATION                                            COMPASS     7143     A     
 COMPASS            NZ     X4,*-1      SYMBOL                                              COMPASS     7144     A     
 COMPASS            EQ     DUP5                                                            COMPASS     7145     A     
 COMPASS                                                                                   COMPASS     7146     A     
 COMPASS  *         END OF DEFINITION BECAUSE OF COUNT EXHAUSTED.                          COMPASS     7147     A     
 COMPASS                                                                                   COMPASS     7148     A     
 COMPASS   DUP2     RJ     CWI                                                             COMPASS     7149     A     
 COMPASS   DUP5     PCARD  TEMTAB      PACK AWAY LAST CARD                                 COMPASS     7150     A     
 COMPASS            SA1    L.TEMTAB    MOVE TEXT TO DUPTAB                                 COMPASS     7151     A     
 COMPASS            MANAGE DUPTAB,X1                                                       COMPASS     7152     A     
 COMPASS            SA1    L.TEMTAB                                                        COMPASS     7153     A     
 COMPASS            IX2    X2+X3                                                           COMPASS     7154     A     
 COMPASS            IX3    X2-X1                                                           COMPASS     7155     A     
 COMPASS            SA2    O.TEMTAB                                                        COMPASS     7156     A     
 COMPASS            RJ     MOVE                                                            COMPASS     7157     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       119     A     
 COMPASS            MX7    0           CLEAR TEXT FLAG                                     COMPASS     7158     A     
 COMPASS            SX1    1RT                                                             COMPASS     7159     A     
 COMPASS            LX1    54                                                              COMPASS     7160     A     
 COMPASS            SA7    L.TEMTAB    DELETE TEXT IN TEMTAB                               COMPASS     7161     A     
 COMPASS            SA7    TXTFLG                                                          COMPASS     7162     A     
 COMPASS            ADDWORD DUPTAB     ADD WORD TO DUP TABLE                               COMPASS     7163     A     
 COMPASS            SA1    L.DUPTAB                                                        COMPASS     7164     A     
 COMPASS            SX1    X1-1                                                            COMPASS     7165     A     
 COMPASS            SA3    P1TEMPA                                                         COMPASS     7166     A     
 COMPASS            SA4    =5R*DUP*                                                        COMPASS     7167     A     
 COMPASS   +        SX2    B1+B1                                                           COMPASS     7168     A     
 COMPASS            SA5    A3+B1                                                           COMPASS     7169     A     
 COMPASS            RJ     PUSHDOWN                                                        COMPASS     7170     A     
 COMPASS            SX6    B1                                                              COMPASS     7171     A     
 COMPASS            MX7    0                                                               COMPASS     7172     A     
 COMPASS            SA6    ECHFLG                                                          COMPASS     7173     A     
 COMPASS            SA7    TXTFLG                                                          COMPASS     7174     A     
 COMPASS            EQ     CTL100                                                          COMPASS     7175     A     
 COMPASS                                                                                   COMPASS     7176     A     
 COMPASS  *         ILLEGALLY NESTED DUP.                                                  COMPASS     7177     A     
 COMPASS                                                                                   COMPASS     7178     A     
 COMPASS   DUP6     SX6    B1          SET *E* ERROR                                       COMPASS     7179          I
          -CMP042 
 COMPASS   DUP6     RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       120     A     
 COMPASS            SX6    B1          SET *E* ERROR                                       CMP042       121     A     
 COMPASS            MX7    0                                                               COMPASS     7180     A     
 COMPASS            SA6    EFLG                                                            COMPASS     7181     A     
 COMPASS            SA7    L.TEMTAB    CLEAR TEMTAB                                        COMPASS     7182     A     
 COMPASS            SA6    EERR                                                            COMPASS     7183     A     
 COMPASS            SA7    TXTFLG                                                          COMPASS     7184     A     
 COMPASS            EQ     CTL105      PROCESS CARD                                        COMPASS     7185     A     
 COMPASS   DUP      SPACE  4                                                               COMPASS     7186     A     
 COMPASS  **        DUP - DUPLICATE CODE.                                                  COMPASS     7187     A     
 COMPASS                                                                                   COMPASS     7188     A     
 COMPASS                                                                                   COMPASS     7189     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     7190     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 580    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DUP      SX6    3                                                               COMPASS     7191     A     
 COMPASS            SX1    15                                                              COMPASS     7192     A     
 COMPASS            RJ     SMC                                                             COMPASS     7193     A     
 COMPASS            NZ     X1,ZLIST                                                        COMPASS     7194     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     7195     A     
 COMPASS            MX0    -15                                                             CPS010        46     A     
 COMPASS            BX1    -X0*X1                                                          CPS010        47     A     
 COMPASS            SX2    36                                                              COMPASS     7196     A     
 COMPASS            SX3    6                                                               COMPASS     7197          I
          -CPS010 
 COMPASS            MX3    0                                                               CPS010        48     A     
 COMPASS            RJ     PACKO                                                           COMPASS     7198     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     7199     A     
 COMPASS   ECHO     SPACE  4                                                               COMPASS     7200     A     
 COMPASS  ***       ECHO - DUPLICATE CODE.                                                 COMPASS     7201     A     
 COMPASS  *                                                                                COMPASS     7202     A     
 COMPASS  *                                                                                COMPASS     7203     A     
 COMPASS  *NAME     ECHO   LNCT,P1,(LIST1),...,PN,(LISTN)                                  COMPASS     7204     A     
 COMPASS  *         ARGUMENTS (PI) MUST START WITH A LETTER, UP TO 63 MAY BE               COMPASS     7205     A     
 COMPASS  *         LISTED, TERMINATED BY SPECIAL CHARACTERS ,.+-*/()$=.                   COMPASS     7206     A     
 COMPASS  *         (LISTI) IS A LIST OF ARGUMENTS TO BE SUBSTITUTED.  SUBSEQUENT          COMPASS     7207     A     
 COMPASS  *         INSTRUCTIONS UNTIL AN (ENDD) ARE THE ECHO SKELETON.  IF                COMPASS     7208     A     
 COMPASS  *         (LNCT) IS PRESENT, (LNCT) LINES MAKE UP THE ECHO SKELETON.             COMPASS     7209     A     
 COMPASS  *         (NAME) IS THE BRACKET NAME.                                            COMPASS     7210     A     
 COMPASS                                                                                   COMPASS     7211     A     
 COMPASS                                                                                   COMPASS     7212     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     7213     A     
 COMPASS   ECHO     SX6    3           EVALUATE CARD COUNT                                 COMPASS     7214     A     
 COMPASS            SX1    15                                                              COMPASS     7215     A     
 COMPASS            RJ     SMC                                                             COMPASS     7216     A     
 COMPASS            SA1    LOCSYM      SAVE BRACKET NAME                                   COMPASS     7217     A     
 COMPASS            BX6    X1                                                              COMPASS     7218     A     
 COMPASS            MX7    0                                                               COMPASS     7219     A     
 COMPASS            SA6    P1TEMPE                                                         COMPASS     7220     A     
 COMPASS            SA7    P1TEMPA     CLEAR PARAMETER COUNT                               COMPASS     7221     A     
 COMPASS            SA7    PUSHUP      CLEAR PUSHUP FLAG                                   COMPASS     7222     A     
 COMPASS            SA1    L.MARGS     SAVE TABLE LENGTHS                                  COMPASS     7223     A     
 COMPASS            SA2    L.MARDIS                                                        COMPASS     7224     A     
 COMPASS            SA3    L.ECHTAB                                                        COMPASS     7225     A     
 COMPASS            LX1    36                                                              COMPASS     7226     A     
 COMPASS            LX2    18                                                              COMPASS     7227     A     
 COMPASS            BX6    X1+X2                                                           COMPASS     7228     A     
 COMPASS            BX6    X6+X3                                                           COMPASS     7229     A     
 COMPASS            SA6    P1TEMPB                                                         COMPASS     7230     A     
 COMPASS   ECH1     RJ     PMACF       ISOLATE FORMAL PARAMETER                            COMPASS     7231     A     
 COMPASS            NZ     X6,ECH2     IF NAME FOUND                                       COMPASS     7232     A     
 COMPASS            SA1    CHAR                                                            COMPASS     7233          I
          -CMP029 
 COMPASS            SB7    X1-1R                                                           COMPASS     7234          I
          -CMP029 
 COMPASS            NZ     B7,ECH1     LOOP FOR GOOD PARAMETER                             COMPASS     7235          I
          -CMP029 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 581    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     ECH7                                                            COMPASS     7236          I
          -CMP029 
 COMPASS   ECH2     SA2    L.MARGS     CHECK FOR 7 CHARACTER PARAMETER                     COMPASS     7237          I
          -CMP029 
 COMPASS            MX0    18                                                              COMPASS     7238          I
          -CMP029 
 COMPASS            BX7    X0*X6                                                           COMPASS     7239          I
          -CMP029 
 COMPASS            BX6    -X0*X6                                                          COMPASS     7240          I
          -CMP029 
 COMPASS            LX6    18                                                              COMPASS     7241          I
          -CMP029 
 COMPASS            IX1    X6+X2                                                           COMPASS     7242          I
          -CMP029 
 COMPASS            SX6    B1                                                              COMPASS     7243          I
          -CMP029 
 COMPASS            ZR     X7,ECH3     IF NO PARAMETER ERROR                               COMPASS     7244          I
          -CMP029 
 COMPASS            SA6    EFLG                                                            COMPASS     7245          I
          -CMP029 
 COMPASS            SA6    W4ERR                                                           COMPASS     7246          I
          -CMP029 
 COMPASS   ECH3     ADDWORD MARDIS                                                         COMPASS     7247          I
          -CMP029 
 COMPASS            RJ     PMACE       SKIP VALUE                                          CMP029        25     A     
 COMPASS            NZ     X7,ECH1     LOOP IF NOT END OF CARD                             CMP029        26     A     
 COMPASS            EQ     ECH4                                                            CMP029        27     A     
 COMPASS   ECH2     SA1    L.MARGS     MAKE MARDIS ENTRY                                   CMP029        28          I
          -CMP165 
 COMPASS            BX2    X1                                                              CMP029        29          I
          -CMP165 
 COMPASS            LX1    18                                                              CMP029        30          I
          -CMP165 
 COMPASS            BX2    X1+X2                                                           CMP029        31          I
          -CMP165 
 COMPASS            MX1    1                                                               CMP029        32          I
          -CMP165 
 COMPASS            SB7    10                                                              CMP029        33          I
          -CMP165 
 COMPASS            BX2    X1+X2                                                           CMP029        34          I
          -CMP165 
 COMPASS            PX1    X2,B7                                                           CMP029        35          I
          -CMP165 
 COMPASS            ADDWORD MARDIS                                                         CMP029        36          I
          -CMP165 
 COMPASS            RJ     PMA         PACK MACRO ARGUMENT                                 COMPASS     7248          I
          -CMP165 
 COMPASS   ECH2     RJ     PMA         PACK MACRO ARGUMENT                                 CMP165        13     A     
 COMPASS            UX1,B7             SETUP DESCRIPTOR WORD...                            CMP165        14     A     
 COMPASS            SB7    -B7                                                             CMP165        15     A     
 COMPASS            PX1    B7          - CHARACTER COUNT                                   CMP165        16     A     
 COMPASS            LX1    59-41                                                           CMP165        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/28. 19.11.32.      PAGE 582    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PX1    B0          CHARACTER OFFSET                                    CMP165        18     A     
 COMPASS            LX1    41-29                                                           CMP165        19     A     
 COMPASS            PX1    B0          WORD OFFSET                                         CMP165        20     A     
 COMPASS            LX1    29-59                                                           CMP165        21     A     
 COMPASS            ADDWORD MARDIS                                                         CMP165        22     A     
 COMPASS            SA1    CHAR        CHECK FOR END OF FIELD                              COMPASS     7249     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     7250     A     
 COMPASS            NZ     B7,ECH1     LOOP TO END OF ECHO                                 COMPASS     7251     A     
 COMPASS            SA2    O.MARDIS                                                        COMPASS     7252          I
          -CMP029 
 COMPASS            SA3    P1TEMPA     FORMAL PARAMETER COUNT                              COMPASS     7253          I
          -CMP029 
 COMPASS            SA4    L.MARDIS                                                        COMPASS     7254          I
          -CMP029 
 COMPASS            IX2    X2+X4                                                           COMPASS     7255          I
          -CMP029 
 COMPASS            IX2    X2-X3                                                           COMPASS     7256          I
          -CMP029 
 COMPASS            MX0    42                                                              COMPASS     7257          I
          -CMP029 
 COMPASS            SB6    B0                                                              COMPASS     7258          I
          -CMP029 
 COMPASS            SB7    X3                                                              COMPASS     7259          I
          -CMP029 
 COMPASS            MX5    1                                                               COMPASS     7260          I
          -CMP029 
 COMPASS            SB5    10                                                              COMPASS     7261          I
          -CMP029 
 COMPASS   ECH4     SA1    X2+B6       MOVE FORMAL NAMES TO RELVEC                         COMPASS     7262          I
          -CMP029 
 COMPASS            BX6    X0*X1                                                           COMPASS     7263          I
          -CMP029 
 COMPASS            LX6    -18                                                             COMPASS     7264          I
          -CMP029 
 COMPASS            SX7    X1                                                              COMPASS     7265          I
          -CMP029 
 COMPASS            SA6    RELVEC+B6                                                       COMPASS     7266          I
          -CMP029 
 COMPASS            SB6    B6+B1                                                           COMPASS     7267          I
          -CMP029 
 COMPASS            BX6    X7                                                              COMPASS     7268          I
          -CMP029 
 COMPASS            LX7    18                                                              COMPASS     7269          I
          -CMP029 
 COMPASS            IX7    X6+X7                                                           COMPASS     7270          I
          -CMP029 
 COMPASS            BX7    X5+X7                                                           COMPASS     7271          I
          -CMP029 
 COMPASS            PX7    X7,B5                                                           COMPASS     7272          I
          -CMP029 
 COMPASS            SA7    A1                                                              COMPASS     7273          I
          -CMP029 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 583    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LT     B6,B7,ECH4  LOOP                                                COMPASS     7274          I
          -CMP029 
 COMPASS            SX6    B1                                                              COMPASS     7275          I
          -CMP029 
 COMPASS   ECH4     SX6    B1                                                              CMP029        37     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS     7276     A     
 COMPASS            RJ     CRL         CHECK RECURSION LIMIT                      S004  13 CPS004         4     A     
 COMPASS            RJ     CWI         WRITE CARD                                          COMPASS     7277     A     
 COMPASS   ECH5     RJ     INPUT1      READ NEXT CARD                                      COMPASS     7278     A     
 COMPASS            NZ     X1,ECH11    IF PUSHUP OCCURRED                                  COMPASS     7279          I
          -CMP029 
 COMPASS            NZ     X1,ECH9     IF PUSHUP OCCURRED                                  CMP029        38     A     
 COMPASS            RJ     SETUP                                                           COMPASS     7280     A     
 COMPASS            SA1    =0RENDD                                                         COMPASS     7281     A     
 COMPASS            RJ     PEC         PROCESS END CARD                                    COMPASS     7282     A     
 COMPASS            RJ     PDC         PROCESS DEFINITION CARD                             COMPASS     7283     A     
 COMPASS            PCARD  TEMTAB                                                          COMPASS     7284     A     
 COMPASS            SA2    EXVAL       CHECK LINE COUNT                                    COMPASS     7285     A     
 COMPASS            SX6    X2-1                                                            COMPASS     7286     A     
 COMPASS            SA6    A2                                                              COMPASS     7287     A     
 COMPASS            ZR     X6,ECH6     IF END OF COUNT                                     COMPASS     7288     A     
 COMPASS            PL     X6,ECH5     IF IN LINE COUNT CONTROL                            COMPASS     7289     A     
 COMPASS            SA1    P1TEMPD                                                         COMPASS     7290     A     
 COMPASS            ZR     X1,ECH5     IF NOT ENDD CARD                                    COMPASS     7291     A     
 COMPASS   ECH6     SX1    1RT                                                             COMPASS     7292          I
          -CMP029 
 COMPASS   ECH6     SA1    P1TEMPA                                                         CMP029        39     A     
 COMPASS            ZR     X1,ECH8     IF NO PARAMETERS                                    CMP029        40     A     
 COMPASS            SA2    O.MARDIS                                                        CMP029        41     A     
 COMPASS            SA3    L.MARDIS                                                        CMP029        42     A     
 COMPASS            SA4    O.MARGS                                                         CMP029        43          I
          -CMP165 
 COMPASS            IX2    X2+X3                                                           CMP029        44     A     
 COMPASS            SB2    X1                                                              CMP029        45     A     
 COMPASS            SB3    X2                                                              CMP029        46     A     
 COMPASS            SB4    X4                                                              CMP029        47          I
          -CMP165 
 COMPASS            MX0    6                                                               CMP029        48          I
          -CMP165 
 COMPASS   ECH7     SA1    B3-B2       CHECK ARGUMENT VALUES                               CMP029        49     A     
 COMPASS            SB2    B2-B1                                                           CMP029        50     A     
 COMPASS            SA2    X1+B4                                                           CMP029        51          I
          -CMP165 
 COMPASS            BX6    X0*X2                                                           CMP029        52          I
          -CMP165 
 COMPASS            ZR     X6,ECH8     IF NULL ARGUMENT                                    CMP029        53          I
          -CMP165 
 COMPASS            UX6,B7 X1                                                              CMP165        23     A     
 COMPASS            ZR     B7,ECH8     IF NULL ARGUMENT                                    CMP165        24     A     
 COMPASS            NZ     B2,ECH7     LOOP                                                CMP029        54     A     
 COMPASS            SX1    1RT         PACK TERMINATOR                                     CMP029        55     A     
 COMPASS            LX1    -6                                                              COMPASS     7293     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 584    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ADDWORD TEMTAB                                                         COMPASS     7294     A     
 COMPASS            SA1    L.TEMTAB    MOVE TEXT TO ECHTAB                                 COMPASS     7295     A     
 COMPASS            MANAGE ECHTAB,X1                                                       COMPASS     7296     A     
 COMPASS            SA1    L.TEMTAB                                                        COMPASS     7297     A     
 COMPASS            IX2    X2+X3                                                           COMPASS     7298     A     
 COMPASS            IX3    X2-X1                                                           COMPASS     7299     A     
 COMPASS            SA2    O.TEMTAB                                                        COMPASS     7300     A     
 COMPASS            RJ     MOVE                                                            COMPASS     7301     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       122     A     
 COMPASS            MX7    0           CLEAR TEXT FLAG                                     COMPASS     7302     A     
 COMPASS            SA7    TXTFLG                                                          COMPASS     7303     A     
 COMPASS            SA7    L.TEMTAB    CLEAR TEMTAB                                        COMPASS     7304     A     
 COMPASS            SA1    P1TEMPB     PUSH DOWN STACK                                     COMPASS     7305     A     
 COMPASS            SX2    5                                                               COMPASS     7306     A     
 COMPASS            SX1    X1                                                              COMPASS     7307     A     
 COMPASS            BX3    X1                                                              COMPASS     7308     A     
 COMPASS            SA4    =6R*ECHO*                                                       COMPASS     7309     A     
 COMPASS            MX5    0                                                               COMPASS     7310     A     
 COMPASS            RJ     PUSHDOWN                                                        COMPASS     7311     A     
 COMPASS            SA1    O.STACK     RESET MARGS AND MARDIS ORG                          COMPASS     7312     A     
 COMPASS            SA2    L.STACK                                                         COMPASS     7313     A     
 COMPASS            IX1    X1+X2                                                           COMPASS     7314     A     
 COMPASS            SA2    X1-3                                                            COMPASS     7315     A     
 COMPASS            SA1    P1TEMPB                                                         COMPASS     7316     A     
 COMPASS            MX0    -36                                                             COMPASS     7317     A     
 COMPASS            AX1    18                                                              COMPASS     7318     A     
 COMPASS            BX6    X0*X2                                                           COMPASS     7319     A     
 COMPASS            IX6    X6+X1                                                           COMPASS     7320     A     
 COMPASS            SA6    A2                                                              COMPASS     7321     A     
 COMPASS            SX6    B1          SET ECHO FLAG                                       COMPASS     7322     A     
 COMPASS            SA6    ECHFLG                                                          COMPASS     7323     A     
 COMPASS            EQ     CTL100                                                          COMPASS     7324          I
          -CMP029 
 COMPASS                                                                                   COMPASS     7325          I
          -CMP029 
 COMPASS  *         ENTRY ON BAD ECHO DEFINITION.                                          COMPASS     7326          I
          -CMP029 
 COMPASS                                                                                   COMPASS     7327          I
          -CMP029 
 COMPASS   ECH7     SX6    B1          NOTE ARGUMENT COUNT ERROR                           COMPASS     7328          I
          -CMP029 
 COMPASS            SA6    EFLG                                                            COMPASS     7329          I
          -CMP029 
 COMPASS            SA6    W5ERR                                                           COMPASS     7330          I
          -CMP029 
 COMPASS   ECH8     SA1    =0RENDD                                                         COMPASS     7331          I
          -CMP029 
 COMPASS            RJ     PEC                                                             COMPASS     7332          I
          -CMP029 
 COMPASS            SA2    EXVAL                                                           COMPASS     7333          I
          -CMP029 
 COMPASS            SX6    X2-1                                                            COMPASS     7334          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 585    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP029 
 COMPASS            SA6    A2                                                              COMPASS     7335          I
          -CMP029 
 COMPASS            ZR     X6,ECH10    IF END OF LINE COUNT                                COMPASS     7336          I
          -CMP029 
 COMPASS            PL     X6,ECH9     IF IN LINE COUNT CONTROL                            COMPASS     7337          I
          -CMP029 
 COMPASS            SA1    P1TEMPD                                                         COMPASS     7338          I
          -CMP029 
 COMPASS            NZ     X1,ECH10    IF END OF ECHO FOUND                                COMPASS     7339          I
          -CMP029 
 COMPASS   ECH9     RJ     INPUT1                                                          COMPASS     7340          I
          -CMP029 
 COMPASS            RJ     SETUP                                                           COMPASS     7341          I
          -CMP029 
 COMPASS            EQ     ECH8                                                            COMPASS     7342          I
          -CMP029 
 COMPASS   ECH10    RJ     CWI                                                             COMPASS     7343          I
          -CMP029 
 COMPASS            MX7    0                                                               COMPASS     7344          I
          -CMP029 
 COMPASS            SA7    TXTFLG                                                          COMPASS     7345          I
          -CMP029 
 COMPASS            EQ     CTL100      RETURN                                              CMP029        56     A     
 COMPASS                                                                                   CMP029        57     A     
 COMPASS  *         ENTRY ON NO PARAMETERS OR AT LEAST ONE NULL ARGUMENT.                  CMP029        58     A     
 COMPASS                                                                                   CMP029        59     A     
 COMPASS   ECH8     SA1    P1TEMPB     RESTORE TABLE LENGTHS                               CMP029        60          I
          -CMP042 
 COMPASS   ECH8     RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       123     A     
 COMPASS            SA1    P1TEMPB     RESTORE TABLE LENGTHS                               CMP042       124     A     
 COMPASS            AX1    18                                                              CMP029        61     A     
 COMPASS            SX6    X1                                                              CMP029        62     A     
 COMPASS            AX1    18                                                              CMP029        63     A     
 COMPASS            SX7    X1                                                              CMP029        64     A     
 COMPASS            SA6    L.MARDIS                                                        CMP029        65     A     
 COMPASS            SA7    L.MARGS                                                         CMP029        66     A     
 COMPASS            BX6    X6-X6                                                           CMP029        67     A     
 COMPASS            SA6    L.TEMTAB    CLEAR TEMTAB                                        CMP029        68     A     
 COMPASS            SA6    TXTFLG      CLEAR TEXT FLAG                                     CMP029        69     A     
 COMPASS            EQ     CTL100      RETURN                                              COMPASS     7346     A     
 COMPASS                                                                                   COMPASS     7347     A     
 COMPASS  *         ENTRY ON ILLEGAL NESTING OF ECHO.                                      COMPASS     7348     A     
 COMPASS                                                                                   COMPASS     7349     A     
 COMPASS   ECH11    MX7    0           CLEAR TEXT                                          COMPASS     7350          I
          -CMP029 
 COMPASS   ECH9     MX7    0           CLEAR TEXT FLAG                                     CMP029        70          I
          -CMP042 
 COMPASS   ECH9     RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       125     A     
 COMPASS            MX7    0           CLEAR TEXT FLAG                                     CMP042       126     A     
 COMPASS            SA7    TXTFLG                                                          CMP042       127     A     
 COMPASS            SX6    B1          SET *E* ERROR                                       COMPASS     7351     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 586    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    L.TEMTAB                                                        COMPASS     7352     A     
 COMPASS            SA6    EFLG                                                            COMPASS     7353     A     
 COMPASS            SA1    P1TEMPB                                                         COMPASS     7354     A     
 COMPASS            SA6    EERR                                                            COMPASS     7355     A     
 COMPASS            SA2    L.MARDIS                                                        COMPASS     7356     A     
 COMPASS            AX1    18                                                              COMPASS     7357     A     
 COMPASS            SX6    X1                                                              COMPASS     7358     A     
 COMPASS   +        IX5    X2-X6                                                           COMPASS     7359     A     
 COMPASS            PL     X5,*+1      IF MARDIS WAS NOT PUSHED UP                         COMPASS     7360     A     
 COMPASS            SX6    X2                                                              COMPASS     7361     A     
 COMPASS            SA6    A2          PUSHUP MARDIS                                       COMPASS     7362     A     
 COMPASS            SA2    L.MARGS                                                         COMPASS     7363     A     
 COMPASS            AX1    18                                                              COMPASS     7364     A     
 COMPASS   +        IX5    X2-X1                                                           COMPASS     7365     A     
 COMPASS            PL     X5,*+1      IF MARGS WAS NOT PUSHED UP                          COMPASS     7366     A     
 COMPASS            SX1    X2                                                              COMPASS     7367     A     
 COMPASS            BX6    X1          PUSHUP MARGS                                        COMPASS     7368     A     
 COMPASS            SA6    A2                                                              COMPASS     7369     A     
 COMPASS            EQ     CTL105      PROCESS CARD                                        COMPASS     7370     A     
 COMPASS   ECHO     SPACE  4                                                               COMPASS     7371     A     
 COMPASS  **        ECHO - DUPLICATE CODE.                                                 COMPASS     7372     A     
 COMPASS                                                                                   COMPASS     7373     A     
 COMPASS                                                                                   COMPASS     7374     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     7375     A     
 COMPASS   ECHO     EQU    ZLIST                                                           COMPASS     7376     A     
 COMPASS   EJECT    SPACE  4                                                               COMPASS     7377     A     
 COMPASS  ***       EJECT - START NEW PAGE.                                                COMPASS     7378     A     
 COMPASS  *                                                                                COMPASS     7379     A     
 COMPASS  *                                                                                COMPASS     7380     A     
 COMPASS  *NAME     EJECT                                                                  COMPASS     7381     A     
 COMPASS  *         A NEW PAGE IS STARTED AND (NAME) IS THE NEW SUB-SUBTITLE.              COMPASS     7382     A     
 COMPASS                                                                                   COMPASS     7383     A     
 COMPASS                                                                                   COMPASS     7384     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     7385     A     
 COMPASS   EJECT    EQU    CTL300                                                          COMPASS     7386     A     
 COMPASS   EJECT    SPACE  4                                                               COMPASS     7387     A     
 COMPASS  **        EJECT - START NEW PAGE.                                                COMPASS     7388     A     
 COMPASS                                                                                   COMPASS     7389     A     
 COMPASS                                                                                   COMPASS     7390     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     7391     A     
 COMPASS   EJECT    RJ     ZTLIST      TEST FOR LISTINGS IN FORCE                          COMPASS     7392     A     
 COMPASS            SX6    B1                                                              COMPASS     7393     A     
 COMPASS            SA1    LPCNT       CAUSE PAGE EJECT                                    COMPASS     7394     A     
 COMPASS            SA2    PSIZE                                                           COMPASS     7395          I
          -CPSA181
 COMPASS            SA2    NEJF        *N* CONTROLLED PAGE SIZE                            CPSA181       19     A     
 COMPASS            SA6    CTYPE                                                           COMPASS     7396     A     
 COMPASS            IX7    X1+X2                                                           COMPASS     7397     A     
 COMPASS            SA7    A1                                                              COMPASS     7398     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     7399     A     
 COMPASS   ELSE     SPACE  4                                                               COMPASS     7400     A     
 COMPASS  ***       ELSE - UNCONDITIONALLY SKIP/ASSEMBLE CODE.                             COMPASS     7401     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 587    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS     7402     A     
 COMPASS  *                                                                                COMPASS     7403     A     
 COMPASS  *NAME     ELSE   LNCT                                                            COMPASS     7404     A     
 COMPASS  *         IF CODE IS BEING SKIPPED, ELSE TERMINATES THE IF-SKIPPING.             COMPASS     7405     A     
 COMPASS  *         IF CODE IS BEING ASSEMBLED, ELSE INITIATES IF-SKIPPING.                COMPASS     7406     A     
 COMPASS  *         (LNCT) IS THE OPTIONAL SKIP LINE COUNT.  (NAME) IS THE                 COMPASS     7407     A     
 COMPASS  *         INSTRUCTION BRACKET NAME.                                              COMPASS     7408     A     
 COMPASS                                                                                   COMPASS     7409     A     
 COMPASS                                                                                   COMPASS     7410     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     7411     A     
 COMPASS   ELSE     SA1    LOCSYM                                                          COMPASS     7412     A     
 COMPASS            SA2    IFNAME                                                          COMPASS     7413     A     
 COMPASS            SA3    IFCNT                                                           COMPASS     7414     A     
 COMPASS            ZR     X3,IFXXNO   IF COUNT EXHAUSTED                                  COMPASS     7415     A     
 COMPASS            IX4    X2-X1                                                           COMPASS     7416     A     
 COMPASS            ZR     X1,ELS1     IF NO INSTRUCTION BRACKET NAME                      COMPASS     7417     A     
 COMPASS            ZR     X4,ELS1     IF NAMES MATCH                                      COMPASS     7418     A     
 COMPASS            EQ     CTL70                                                           COMPASS     7419     A     
 COMPASS                                                                                   COMPASS     7420     A     
 COMPASS   ELS1     MX6    0           CLEAR COUNT                                         COMPASS     7421     A     
 COMPASS            SA6    A3                                                              COMPASS     7422     A     
 COMPASS            EQ     CTL300                                                          COMPASS     7423     A     
 COMPASS   ELSE     SPACE  4                                                               COMPASS     7424     A     
 COMPASS  **        ELSE - UNCONDITIONAL SKIP/ASSEMBLE CODE.                               COMPASS     7425     A     
 COMPASS                                                                                   COMPASS     7426     A     
 COMPASS                                                                                   COMPASS     7427     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     7428     A     
 COMPASS   ELSE     EQU    ZLIST                                                           COMPASS     7429     A     
 COMPASS   END      SPACE  4                                                               COMPASS     7430     A     
 COMPASS  ***       END - END OF SUBPROGRAM.                                               COMPASS     7431     A     
 COMPASS  *                                                                                COMPASS     7432     A     
 COMPASS  *                                                                                COMPASS     7433     A     
 COMPASS  *SYM      END    TRASYM                                                          COMPASS     7434     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF LWA+1.                                  COMPASS     7435     A     
 COMPASS  *         (TRASYM) IS AN OPTIONAL TRANSFER ADDRESS VALID ONLY FOR                COMPASS     7436     A     
 COMPASS  *         RELOCATABLE ASSEMBLIES.                                                COMPASS     7437     A     
 COMPASS                                                                                   COMPASS     7438     A     
 COMPASS                                                                                   COMPASS     7439     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     7440     A     
 COMPASS   END      SA1    STYPE       CHECK WHICH END CARD THIS IS                        COMPASS     7441     A     
 COMPASS            SA2    L.STACK                                                         COMPASS     7442     A     
 COMPASS            SB7    X1-1RE                                                          COMPASS     7443     A     
 COMPASS            ZR     B7,END1     IF OUR END CARD                                     COMPASS     7444     A     
 COMPASS            NZ     X2,CTL80    IF GENERATED END CARD                               COMPASS     7445     A     
 COMPASS            SX6    B1                                                              COMPASS     7446     A     
 COMPASS            SA4    TXTFLG                                                          COMPASS     7447     A     
 COMPASS            MX7    0                                                               COMPASS     7448     A     
 COMPASS            SA7    A4                                                              COMPASS     7449     A     
 COMPASS            SA6    OERR                                                            COMPASS     7450     A     
 COMPASS            SA6    EFLG                                                            COMPASS     7451     A     
 COMPASS            SA7    IFCNT                                                           COMPASS     7452     A     
 COMPASS            ZR     X4,END1A                                                        COMPASS     7453     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 588    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    /PASS2/END                                                      COMPASS     7454     A     
 COMPASS            MX1    1                                                               COMPASS     7455     A     
 COMPASS            BX6    X6+X1                                                           COMPASS     7456     A     
 COMPASS            SA6    OPTYPE                                                          COMPASS     7457     A     
 COMPASS            RJ     WINTER      WRITE OUT ERRONEOUS END CARD                        COMPASS     7458     A     
 COMPASS   END1A    MX7    0                                                               COMPASS     7459     A     
 COMPASS            SX6    1RE                                                             COMPASS     7460     A     
 COMPASS            SA7    SQLGN       ALLOW REPACKING OF CARD                             COMPASS     7461     A     
 COMPASS            SA6    STYPE       SET E FOR END CARD TYPE                             COMPASS     7462     A     
 COMPASS            SX1    2*NCARDS    SAVE SEQUENCE FIELDS                                COMPASS     7463     A     
 COMPASS            SX2    SEQ                                                             COMPASS     7464     A     
 COMPASS            SX3    ENDSEQ                                                          COMPASS     7465     A     
 COMPASS            RJ     MOVE                                                            COMPASS     7466     A     
 COMPASS            EQ     HEREPK      PACK END CARD                                       COMPASS     7467     A     
 COMPASS                                                                                   COMPASS     7468     A     
 COMPASS  *         FINAL END CARD.                                                        COMPASS     7469     A     
 COMPASS                                                                                   COMPASS     7470     A     
 COMPASS   END1     RJ     COB         CLOSE OUT ALL BLOCKS                                COMPASS     7471     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             COMPASS     7472     A     
 COMPASS            MX7    0                                                               COMPASS     7473     A     
 COMPASS            SA7    RMTFLG                                                          COMPASS     7474     A     
 COMPASS            BX6    X7                                                              COMPASS     7475     A     
 COMPASS            SA6    IFCNT                                                           COMPASS     7476     A     
 COMPASS            SA7    L.STACK                                                         COMPASS     7477     A     
 COMPASS            SA6    MACFLG                                                          COMPASS     7478     A     
 COMPASS            SA7    ECHFLG                                                          COMPASS     7479     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS     7480     A     
 COMPASS            SA7    LIBFLG                                                          COMPASS     7481     A     
 COMPASS            SA6    L.USTACK                                                        COMPASS     7482          I
          -CMP30  
 COMPASS            SA7    SYSFLG                                                          COMPASS     7483     A     
 COMPASS            SA6    XLEV                                                   P036  26 CMP036        12     A     
 COMPASS            SA7    L.RMTAB                                                         COMPASS     7484     A     
 COMPASS            SA6    L.RASTAB                                                        COMPASS     7485     A     
 COMPASS            SA7    L.DUPTAB                                                        COMPASS     7486     A     
 COMPASS            SA6    L.MARDIS                                                        COMPASS     7487     A     
 COMPASS            SA7    L.MARGS                                                         COMPASS     7488     A     
 COMPASS            SA6    L.LASTAB                                                        COMPASS     7489     A     
 COMPASS            RJ     GSM         GENERATE SYSTEMS MACRO TEXT                         COMPASS     7490     A     
 COMPASS            SA1    LCMSYS                                                 S028 411 CPS028       305          I
          -CP096A 
 COMPASS            BX7    X1                                                     S028 412 CPS028       306          I
          -CP096A 
 COMPASS            SA7    LCMEND                                                 S028 413 CPS028       307          I
          -CP096A 
 COMPASS            SA1    LSYSMAC     RESET MACRO DEFINITIONS                             COMPASS     7491     A     
 COMPASS            SA2    EOFINP                                                          CMP30       2740     A     
 COMPASS            SA3    LCMMAC                                                          CMP30       2741          I
          -CP096A 
 COMPASS            BX6    X1                                                              COMPASS     7492     A     
 COMPASS            MX7    0                                                               COMPASS     7493     A     
 COMPASS   +        ZR     X3,*+1      IF SYSTEM MACROS NOT IN LCM                         CMP30       2742          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 589    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            MX6    0                                                               CMP30       2743          I
          -CPS028 
 COMPASS            SA7    L.MICTAB                                                        COMPASS     7494     A     
 COMPASS            SA6    L.MACDEF                                                        COMPASS     7495     A     
 COMPASS            SA1    L.OPTAB     CLEAN OUT INSERTIONS FROM OPTAB BY                  COMPASS     7496          I
          -CMP30  
 COMPASS            ZR     X2,END2     IF NOT LAST ASSEMBLY OF BATCH                       CMP30       2744     A     
 COMPASS            MX6    0                                                               CMP30       2745     A     
 COMPASS            SA7    L.SSYMS     CLEAR SYSTEM TEXT TABLES                            CMP30       2746     A     
 COMPASS            SA6    A6                                                              CMP30       2747     A     
 COMPASS            SA7    L.SYSMIC                                                        CMP30       2748     A     
 COMPASS            SA6    SSTCNT                                                          CMP30       2749     A     
 COMPASS   END4     SA7    L.OPTAB     CLEAR OPCODE TABLE                                  CMP30       2750     A     
 COMPASS            EQ     END5A                                                           CMP30       2751     A     
 COMPASS   END2     SA1    LCMOPC                                                          CMP30       2752     A     
 COMPASS            NZ     X1,END4     IF OPCODE TABLE IS IN LCM                           CMP30       2753     A     
 COMPASS            SA1    L.OPTAB     CLEAR OUT INSERTIONS FROM OPTAB BY                  CMP30       2754     A     
 COMPASS            MANAGE DUPTAB,X1   RE-DOING IT                                         COMPASS     7497     A     
 COMPASS            BX1    X3                                                              COMPASS     7498     A     
 COMPASS            LX3    X2                                                              COMPASS     7499     A     
 COMPASS            SA2    O.OPTAB                                                         COMPASS     7500     A     
 COMPASS            RJ     MOVE                                                            COMPASS     7501     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP30       2755     A     
 COMPASS            SA2    O.OPTAB                                                         COMPASS     7502     A     
 COMPASS            SX6    2*NOPCT                                                         COMPASS     7503     A     
 COMPASS            MX1    0                                                               COMPASS     7504          I
          -CMP30  
 COMPASS            IX3    X6+X2                                                           COMPASS     7505     A     
 COMPASS            SA6    L.OPTAB                                                         COMPASS     7506     A     
 COMPASS            RJ     PRESET      CLEAR OPERATION CODE TABLE                          COMPASS     7507          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS     7508          I
          -CMP30  
 COMPASS            SA6    P1TEMP                                                          COMPASS     7509          I
          -CMP30  
 COMPASS            RJ     CLS         CLEAR OPCODE TABLE                                  CMP30       2756     A     
 COMPASS   END5     SA1    +P1TEMP                                                         COMPASS     7510          I
          -CMP64G 
 COMPASS            SX6    X1+2                                                            COMPASS     7511          I
          -CMP64G 
 COMPASS            SA2    O.DUPTAB                                                        COMPASS     7512          I
          -CMP64G 
 COMPASS            IX0    X1+X2                                                           COMPASS     7513          I
          -CMP64G 
 COMPASS            MX5    12                                                              COMPASS     7514          I
          -CMP64G 
 COMPASS            SA6    A1                                                              COMPASS     7515          I
          -CMP64G 
 COMPASS            SA1    X0                                                              COMPASS     7516          I
          -CMP64G 
 COMPASS            SA2    X0+B1                                                           COMPASS     7517          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 590    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS            MX0    3                                                               COMPASS     7518          I
          -CMP64G 
 COMPASS            BX3    X0*X2                                                           COMPASS     7519          I
          -CMP64G 
 COMPASS            IX4    X3-X0                                                           COMPASS     7520          I
          -CMP64G 
 COMPASS            BX1    -X5*X1                                                          COMPASS     7521          I
          -CMP64G 
 COMPASS            ZR     X1,END5A    IF ZERO WORD                                        COMPASS     7522          I
          -CMP64G 
 COMPASS            ZR     X4,END5A    IF PROGRAMMER MACRO                                 COMPASS     7523          I
          -CMP64G 
 COMPASS            BX4    X2                                                              COMPASS     7524          I
          -CMP64G 
 COMPASS            LX4    12                                                              COMPASS     7525          I
          -CMP64G 
 COMPASS            NG     X4,END5A    IF DEFINED BY OPSYN                                 COMPASS     7526          I
          -CMP64G 
 COMPASS            RJ     ENTOP                                                           COMPASS     7527          I
          -CMP64G 
 COMPASS   END5A    SA1    P1TEMP                                                          COMPASS     7528          I
          -CMP64G 
 COMPASS            SA2    L.DUPTAB                                                        COMPASS     7529          I
          -CMP64G 
 COMPASS            BX6    X1-X2                                                           COMPASS     7530          I
          -CMP64G 
 COMPASS            NZ     X6,END5                                                         COMPASS     7531          I
          -CMP64G 
 COMPASS            SA6    A2                                                              COMPASS     7532          I
          -CMP64G   -CMP042 
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       128          I
          -CMP64G 
 COMPASS            MX6    0                                                               CMP042       129          I
          -CMP64G 
 COMPASS            SA6    L.DUPTAB                                                        CMP042       130          I
          -CMP64G 
 COMPASS            SX1    2*NCARDS    RESTORE SEQUENCE FIELDS                             COMPASS     7533          I
          -CMP64G 
 COMPASS            SB7    57                                                              CMP64G       110     A     
 COMPASS   END5     SA5    P1TEMP      FIND NEXT ENTRY                                     CMP64G       111          I
          -CMP30  
 COMPASS            SA2    L.DUPTAB                                                        CMP64G       112          I
          -CMP30  
 COMPASS            SA3    O.DUPTAB                                                        CMP64G       113          I
          -CMP30  
 COMPASS            SX6    X5+2                                                            CMP64G       114          I
          -CMP30  
 COMPASS            BX4    X5-X2                                                           CMP64G       115          I
          -CMP30  
 COMPASS            IX0    X5+X3                                                           CMP64G       116          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 591    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    X0          LOAD OPCODE ENTRY                                   CMP64G       117          I
          -CMP30  
 COMPASS            SA2    X0+B1                                                           CMP64G       118          I
          -CMP30  
 COMPASS   END5     SA3    O.DUPTAB                                                        CMP30       2757     A     
 COMPASS            SA4    L.DUPTAB                                                        CMP30       2758     A     
 COMPASS            SX6    X3+2                                                            CMP30       2759     A     
 COMPASS            SX7    X4-2                                                            CMP30       2760     A     
 COMPASS            SA1    X3          LOAD OPCODE ENTRY                                   CMP30       2761     A     
 COMPASS            SA2    X3+B1                                                           CMP30       2762     A     
 COMPASS            MX5    12                                                              CMP64G       119     A     
 COMPASS            BX3    -X5*X1                                                          CMP64G       120     A     
 COMPASS            ZR     X4,END5A    IF END OF TABLE                                     CMP64G       121     A     
 COMPASS            SA6    A3                                                              CMP30       2763     A     
 COMPASS            SA7    A4                                                              CMP30       2764     A     
 COMPASS            AX4    X2,B7                                                           CMP64G       122     A     
 COMPASS            SX0    B1                                                              CMP64G       123     A     
 COMPASS            BX5    X4+X0                                                           CMP64G       124     A     
 COMPASS            SA6    A5                                                              CMP64G       125          I
          -CMP30  
 COMPASS   +        LX2    59-47                                                           CMP64G       126     A     
 COMPASS            NZ     X5,*+1      IF NOT A MACRO                                      CMP64G       127     A     
 COMPASS            LX2    47-57                                                           CMP64G       128     A     
 COMPASS   +        ZR     X3,END5     IF ZERO WORD                                        CMP64G       129     A     
 COMPASS            MI     X2,END5     IF PROGRAMMER DEFINED                               CMP64G       130     A     
 COMPASS            BX1    X3                                                              CMP64G       131     A     
 COMPASS            SA2    A2                                                              CMP64G       132     A     
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CMP64G       133     A     
 COMPASS            SB7    57                                                              CMP64G       134     A     
 COMPASS            EQ     END5                                                            CMP64G       135     A     
 COMPASS   END5A    SX1    2*NCARDS    RESTORE SEQUENCE FIELDS                             CMP64G       136     A     
 COMPASS            SX2    ENDSEQ                                                          COMPASS     7534     A     
 COMPASS            SX3    SEQ                                                             COMPASS     7535     A     
 COMPASS            RJ     MOVE                                                            COMPASS     7536     A     
 COMPASS            RJ     DSL         DEFINE SYMBOL LITERALS                              COMPASS     7537     A     
 COMPASS            SA1    UI+1        RELOCATE USE TABLE                                  COMPASS     7538     A     
 COMPASS            RJ     RUT                                                             COMPASS     7539     A     
 COMPASS            BX6    X0          PROGRAM LENGTH                                      COMPASS     7540     A     
 COMPASS            LX6    39          EXTEND SIGN                                         COMPASS     7541     A     
 COMPASS            AX6    39                                                              COMPASS     7542     A     
 COMPASS            SA6    ENDP                                                            COMPASS     7543     A     
 COMPASS            SA6    ORGCTR                                                          COMPASS     7544     A     
 COMPASS            MX6    0                                                               COMPASS     7545     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     7546     A     
 COMPASS            LX2    X0                                                              COMPASS     7547     A     
 COMPASS            SA5    ABSFG                                                           COMPASS     7548     A     
 COMPASS            SX3    B1+B1                                                           COMPASS     7549     A     
 COMPASS            IX3    X3-X5                                                           COMPASS     7550     A     
 COMPASS            IX6    X3-X5                                                           COMPASS     7551     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     7552     A     
 COMPASS            SX4    0                                                               COMPASS     7553     A     
 COMPASS            IX5    X5-X5                                                           COMPASS     7554     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 592    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     YDEFLOC     DEFINE END CARD LOCATION SYMBOL                     COMPASS     7555     A     
 COMPASS            RJ     RST         RELOCATE SYMBOL TABLE                               COMPASS     7556     A     
 COMPASS            SA1    L.SYMTAB    UNDEFINE SET SYMBOLS                                COMPASS     7557          I
          -CPSA246
 COMPASS            SA2    O.SYMTAB                                                        COMPASS     7558          I
          -CPSA246
 COMPASS            SA5    =7777770030BS30                                                 COMPASS     7559          I
          -CMP19    -CPSA246
 COMPASS            SA5    =7777770070BS30                                                 CMP19        107          I
          -CPSA246
 COMPASS            SB7    X1                                                              COMPASS     7560          I
          -CPSA246
 COMPASS            SA1    X2-1                                                            COMPASS     7561          I
          -CP096A   -CPSA246
 COMPASS            SB6    -33+59                                                          COMPASS     7562          I
          -CP096A   -CPSA246
 COMPASS            SB2    B1+B1                                                           COMPASS     7563          I
          -CPSA246
 COMPASS            SB6    59-33                                                           CP096A       347          I
          -CPSA246
 COMPASS            SX2    X2+B1                                                           CP096A       348          I
          -CPSA246  -CPS211 
 COMPASS            SX2    X2-1                                                            CPS211         5          I
          -CPSA246
 COMPASS   END6     SB7    B7-B2                                                           COMPASS     7564          I
          -CPSA246
 COMPASS            SX2    X2+B2                                                           CPS211         6          I
          -CPSA246
 COMPASS            SA1    A1+B2                                                           COMPASS     7565          I
          -CP096A   -CPSA246
 COMPASS            RX1    X2                                                              CP096A       349          I
          -CPSA246
 COMPASS            NG     B7,END7     IF END OF SYMBOL TABLE                              COMPASS     7566          I
          -CPSA246
 COMPASS            LX6    X1,B6                                                           COMPASS     7567          I
          -CPSA246
 COMPASS            PL     X6,END6     IF NOT REDEFINABLE                                  COMPASS     7568          I
          -CPSA246
 COMPASS            BX6    X5*X1                                                           COMPASS     7569          I
          -CPSA246
 COMPASS            SA6    A1                                                              COMPASS     7570          I
          -CP096A   -CPSA246
 COMPASS            WX6    X2                                                              CP096A       350          I
          -CPSA246
 COMPASS            SX2    X2+B2                                                           CP096A       351          I
          -CPSA246  -CPS211 
 COMPASS            EQ     END6        LOOP                                                COMPASS     7571          I
          -CPSA246
 COMPASS   END7     SA1    L.SEGTAB                                                        COMPASS     7572     A     
 COMPASS            SA2    SI                                                              COMPASS     7573     A     
 COMPASS            IX7    X1-X2                                                           COMPASS     7574     A     
 COMPASS            SX7    X7-4                                                            COMPASS     7575     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 593    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        NZ     X7,*+1      IF SEGMENT CARDS                                    COMPASS     7576     A     
 COMPASS            RJ     RSL         RECORD SEGMENT LENGTH                               COMPASS     7577     A     
 COMPASS            RJ     AVO         ADVANCE OVERLAY                                     COMPASS     7578     A     
 COMPASS            RJ     RSS         RECORD SEGMENT START                                COMPASS     7579     A     
 COMPASS            RJ     RSL         RECORD SEGMENT LENGTH                               COMPASS     7580     A     
 COMPASS            RJ     RSG         RELOCATE SEGMENT TABLE                              COMPASS     7581     A     
 COMPASS            RJ     WINTER                                                          COMPASS     7582     A     
 COMPASS            RJ     RCD         RESTORE CHARACTER DATA                              CPS011        72     A     
 COMPASS            MX6    0                                                               COMPASS     7583     A     
 COMPASS            SA6    EFLG        CLEAR ERROR FLAGS THAT MAY                          CMP22          1     A     
 COMPASS            SA6    W1ERR       HAVE BEEN SET BY *DSL*                              CMP22          2     A     
 COMPASS                                                                                   CMP30       2765     A     
 COMPASS            IFNE   CP#RM,0,3                                                       CMP30       2766     A     
 COMPASS            SA1    INTERIO                                                         CMP30       2767     A     
 COMPASS            NZ     X1,END8     IF INTERMEDIATE ON DISK                             CMP30       2768     A     
 COMPASS            ADDWORD INTER      ADD A JUNK WORD TO INTERMEDIATE FOR READ            CMP30       2769     A     
 COMPASS                                                                                   CMP30       2770     A     
 COMPASS            SA6    L.DUPTAB                                                        COMPASS     7584          I
          -CMP042 
 COMPASS            SA1    INTERIO                                                         COMPASS     7585     A     
 COMPASS            ZR     X1,END3     IF NO DISK INTERMEDIATE                             COMPASS     7586     A     
 COMPASS                                                                                   CMP30       2771     A     
 COMPASS            IFEQ   CP#RM,0,3                                                       CMP30       2772     A     
 COMPASS            WRITER S           COMPLETE SCRATCH                                    COMPASS     7587     A     
 COMPASS            REWIND S                                                               COMPASS     7588     A     
 COMPASS            ELSE   2                                                               CMP30       2773     A     
 COMPASS   END8     PUT    S,P1TEMPA,10 JUNK WORD FOR RINTER READ AHEAD                    CMP30       2774     A     
 COMPASS            REWINDM S                                                              CMP30       2775     A     
 COMPASS                                                                                   CMP30       2776     A     
 COMPASS   END3     EQ     EXITP1      EXIT FROM PASS1                                     COMPASS     7589          I
          -F4810B 
 COMPASS   END3     RJ     DFL         DECREASE FL TO LWA TABLES+FLINC             F4810B  F4810B       289          I
          -CPSA125
 COMPASS   END3     BSS    0                                                               CPSA125       73     A     
 COMPASS            SA1    /DATA/STCW  RESET CHARACTER STORE FOR 6-BIT/NON-ASCII           CPSA293       85     A     
 COMPASS            BX6    X1                                                              CPSA293       86     A     
 COMPASS            SA6    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       87     A     
 COMPASS            EQ     EXITP1      EXIT FROM PASS 1                            F4810B  F4810B       290     A     
 COMPASS                                                                                   COMPASS     7590          I
          -CMP30  
 COMPASS   ENDSEQ   BSS    2*NCARDS    SAVE SEQUENCE FIELDS                                COMPASS     7591          I
          -CMP30  
 COMPASS   END      SPACE  4                                                               COMPASS     7592     A     
 COMPASS  **        END - END OF SUBPROGRAM.                                               COMPASS     7593     A     
 COMPASS                                                                                   COMPASS     7594     A     
 COMPASS                                                                                   COMPASS     7595     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     7596     A     
 COMPASS   END      SA5    STYPE       CHECK WHOSE END CARD THIS IS                        COMPASS     7597     A     
 COMPASS            SB7    X5-1RE                                                          COMPASS     7598     A     
 COMPASS            NZ     B7,ZLIST    IF NOT OURS                                         COMPASS     7599     A     
 COMPASS                                                                                   CMP30       2777     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2778     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 594    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            REWIND S                                                               COMPASS     7600     A     
 COMPASS            RJ     ZFUALL      FORCE UPPER ON ALL BLOCKS                           COMPASS     7601          I
          -CMP30  
 COMPASS   RM       ELSE                                                                   CMP30       2779     A     
 COMPASS            SA1    INTERIO                                                         CMP30       2780     A     
 COMPASS            ZR     X1,ZEND0    IF NO INTERMEDIATE OVERFLOW                         CMP30       2781     A     
 COMPASS            REWINDM S                                                              CMP30       2782     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2783     A     
 COMPASS                                                                                   CMP30       2784     A     
 COMPASS   ZEND0    RJ     ZFUALL      FORCE UPPER ON ALL BLOCKS                           CMP30       2785     A     
 COMPASS            RJ     PLT         PRINT LITERAL TABLE                                 CMP17         11     A     
 COMPASS            SA1    ABSFG       SET TO END OF PROGRAM                               COMPASS     7602     A     
 COMPASS            SA2    ENDP                                                            COMPASS     7603     A     
 COMPASS            SA3    UI+1                                                            COMPASS     7604     A     
 COMPASS            BX6    X2                                                              COMPASS     7605     A     
 COMPASS            IX7    X3-X1                                                           COMPASS     7606     A     
 COMPASS            SA6    ORGCTR                                                          COMPASS     7607     A     
 COMPASS            SX7    X7+B1                                                           COMPASS     7608     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7609     A     
 COMPASS            SA6    LOCCTR                                                          COMPASS     7610     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7611     A     
 COMPASS            MX1    0                                                               COMPASS     7612     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS     7613     A     
 COMPASS            RJ     SCLIST      SCAN POTENTIAL TRANSFER NAME                        COMPASS     7614     A     
 COMPASS            SA1    ABSFG       CHECK VALIDITY OF TRANSFER NAME                     COMPASS     7615     A     
 COMPASS            NZ     X1,ZEND1                                                        COMPASS     7616     A     
 COMPASS            RJ     VFYLINK                                                         COMPASS     7617     A     
 COMPASS            SA6    LOCSYM      SAVE TRANSFER NAME                                  COMPASS     7618     A     
 COMPASS            ZR     X7,ZEND1    JUMP IF NAME IS WELL-FORMATTED                      COMPASS     7619          I
          -CPS002 
 COMPASS            ZR     X6,ZEND1    OMIT CHECK IF EMPTY NAME                            COMPASS     7620          I
          -CPS002 
 COMPASS            MX6    0           ERASE NAME                                          COMPASS     7621          I
          -CPS002 
 COMPASS            SX7    B1          AND POST ERROR                                      COMPASS     7622          I
          -CPS002 
 COMPASS            SA6    A6                                                              COMPASS     7623          I
          -CPS002 
 COMPASS            ZR     X7,ZEND1    IF NO FORMAT ERROR                         S002  43 CPS002        33     A     
 COMPASS            SX7    B1                                                     S002  44 CPS002        34     A     
 COMPASS            SA7    AERR                                                            COMPASS     7624     A     
 COMPASS            SA7    EFLG                                                            COMPASS     7625     A     
 COMPASS   ZEND1    RJ     LISTER                                                          COMPASS     7626          I
          -CMP057 
 COMPASS   ZEND1    RJ     LIST2L      PRINT *END* CARD AND A BLANK LINE          P057   7 CMP057         1     A     
 COMPASS            MX6    0           PRINT BLANK LINE AFTER END CARD                     CMP042       131          I
          -CMP057 
 COMPASS            SA6    DETFLG                                                          CMP042       132          I
          -CMP057 
 COMPASS            MX6    0                                                      P057   9 CMP057         2     A     
 COMPASS            SA6    L.INTER     CLEAR INTERMEDIATE TABLE                            CMP042       133     A     
 COMPASS            MX6    0                                                               COMPASS     7627          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 595    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            SA6    DETFLG                                                          COMPASS     7628          I
          -CMP17  
 COMPASS            SA6    DLFLG                                                           COMPASS     7629          I
          -CMP17  
 COMPASS            SA6    SUBNAME                                                         COMPASS     7630          I
          -CMP17  
 COMPASS            SX6    B1                                                              COMPASS     7631          I
          -CMP17  
 COMPASS            SA6    PLFLG                                                           COMPASS     7632          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7633          I
          -CMP17  
 COMPASS            SX6    LINE+9*NCARDS                                                   COMPASS     7634          I
          -CMP17  
 COMPASS            SA6    LLINE                                                           COMPASS     7635          I
          -CMP17  
 COMPASS                                                                                   COMPASS     7636          I
          -CMP17  
 COMPASS  *         LIST OUT LITERALS.                                                     COMPASS     7637          I
          -CMP17  
 COMPASS                                                                                   COMPASS     7638          I
          -CMP17  
 COMPASS            SA1    L.LITAB                                                         COMPASS     7639          I
          -CMP17  
 COMPASS            ZR     X1,ZEND10   IF NOT LITERALS                                     COMPASS     7640          I
          -CMP17  
 COMPASS            SA1    =H+LITERALS+                                                    COMPASS     7641          I
          -CMP17  
 COMPASS            BX6    X1                                                              COMPASS     7642          I
          -CMP17  
 COMPASS            SA6    LINE                                                            COMPASS     7643          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7644          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7645          I
          -CMP17  
 COMPASS            MX6    0                                                               COMPASS     7646          I
          -CMP17  
 COMPASS            SA6    P2TEMP                                                          COMPASS     7647          I
          -CMP17  
 COMPASS            SA1    O.USETAB    FIND ORIGIN OF LITERAL TABLE                        COMPASS     7648          I
          -CMP17  
 COMPASS            SA2    X1+14                                                           COMPASS     7649          I
          -CMP17  
 COMPASS            MX0    39                                                              COMPASS     7650          I
          -CMP17  
 COMPASS            BX6    -X0*X2                                                          COMPASS     7651          I
          -CMP17  
 COMPASS            SA6    ORGCTR                                                          COMPASS     7652          I
          -CMP17  
 COMPASS   ZEND4    SA1    P2TEMP                                                          COMPASS     7653          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 596    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            SA2    O.LITAB                                                         COMPASS     7654          I
          -CMP17  
 COMPASS            IX3    X1+X2                                                           COMPASS     7655          I
          -CMP17  
 COMPASS            SX6    X1+B1                                                           COMPASS     7656          I
          -CMP17  
 COMPASS            SA6    A1                                                              COMPASS     7657          I
          -CMP17  
 COMPASS            SA1    X3                                                              COMPASS     7658          I
          -CMP17  
 COMPASS            BX6    X1                                                              COMPASS     7659          I
          -CMP17  
 COMPASS            MX0    -6                                                              COMPASS     7660          I
          -CMP17  
 COMPASS            SX7    1R                                                              COMPASS     7661          I
          -CMP17  
 COMPASS            SB7    10                                                              COMPASS     7662          I
          -CMP17  
 COMPASS   +        BX4    -X0*X6                                                          COMPASS     7663          I
          -CMP17  
 COMPASS            NZ     X4,*+1      IF VALID CHARACTER                                  COMPASS     7664          I
          -CMP17  
 COMPASS            BX6    X6+X7                                                           COMPASS     7665          I
          -CMP17  
 COMPASS   +        SB7    B7-B1                                                           COMPASS     7666          I
          -CMP17  
 COMPASS            LX6    6                                                               COMPASS     7667          I
          -CMP17  
 COMPASS            NZ     B7,*-1      LOOP                                                COMPASS     7668          I
          -CMP17  
 COMPASS            SA6    LINE                                                            COMPASS     7669          I
          -CMP17  
 COMPASS            SX2    36                                                              COMPASS     7670          I
          -CMP17  
 COMPASS            SA4    MACHINE                                                         COMPASS     7671          I
          -CMP17  
 COMPASS            SX3    20                                                              COMPASS     7672          I
          -CMP17  
 COMPASS            ZR     X4,ZEND5                                                        COMPASS     7673          I
          -CMP17  
 COMPASS            SX2    25                                                              COMPASS     7674          I
          -CMP17  
 COMPASS            SX3    4                                                               COMPASS     7675          I
          -CMP17  
 COMPASS   ZEND5    RJ     PACKO                                                           COMPASS     7676          I
          -CMP17  
 COMPASS            SA1    ORGCTR      PACK LOCATION VALUE                                 COMPASS     7677          I
          -CMP17  
 COMPASS            SX6    X1+B1                                                           COMPASS     7678          I
          -CMP17  
 COMPASS            SX2    2+12                                                            COMPASS     7679          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 597    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            SX3    6                                                               COMPASS     7680          I
          -CMP17  
 COMPASS            SA4    MACHINE                                                         COMPASS     7681          I
          -CMP17  
 COMPASS            LX5    X4,B1                                                           COMPASS     7682          I
          -CMP17  
 COMPASS            IX3    X3-X5                                                           COMPASS     7683          I
          -CMP17  
 COMPASS            SA6    A1                                                              COMPASS     7684          I
          -CMP17  
 COMPASS            RJ     PACKO                                                           COMPASS     7685          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7686          I
          -CMP17  
 COMPASS            SA1    P2TEMP                                                          COMPASS     7687          I
          -CMP17  
 COMPASS            SA2    L.LITAB                                                         COMPASS     7688          I
          -CMP17  
 COMPASS            BX3    X1-X2                                                           COMPASS     7689          I
          -CMP17  
 COMPASS            NZ     X3,ZEND4                                                        COMPASS     7690          I
          -CMP17  
 COMPASS                                                                                   COMPASS     7691          I
          -CMP17  
 COMPASS  *         LIST SYMBOL LITERALS WHICH WE DEFINED.                                 COMPASS     7692          I
          -CMP17  
 COMPASS                                                                                   COMPASS     7693          I
          -CMP17  
 COMPASS   ZEND10   SA1    L.SLITS                                                         COMPASS     7694          I
          -CMP17  
 COMPASS            ZR     X1,ZEND20                                                       COMPASS     7695          I
          -CMP17  
 COMPASS            SX1    4                                                               COMPASS     7696          I
          -CMP17  
 COMPASS            SX2    =H+DEFAULT SYMBOLS DEFINED BY COMPASS+                          COMPASS     7697          I
          -CMP17  
 COMPASS            SX3    LINE                                                            COMPASS     7698          I
          -CMP17  
 COMPASS            RJ     MOVE                                                            COMPASS     7699          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7700          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7701          I
          -CMP17  
 COMPASS            MX6    0                                                               COMPASS     7702          I
          -CMP17  
 COMPASS            SA6    P2TEMP                                                          COMPASS     7703          I
          -CMP17  
 COMPASS            SX7    B1                                                              COMPASS     7704          I
          -CMP17  
 COMPASS            SA7    SUPREF                                                          COMPASS     7705          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 598    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS   ZEND11   SA1    P2TEMP                                                          COMPASS     7706          I
          -CMP17  
 COMPASS            SA2    O.SLITS                                                         COMPASS     7707          I
          -CMP17  
 COMPASS            IX3    X1+X2                                                           COMPASS     7708          I
          -CMP17  
 COMPASS            MX0    12                                                              COMPASS     7709          I
          -CMP17  
 COMPASS            SA1    X3                                                              COMPASS     7710          I
          -CMP17  
 COMPASS            PL     X1,ZEND15   IF SYMBOL WAS OTHERWISE DEFINED                     COMPASS     7711          I
          -CMP17  
 COMPASS            BX1    -X0*X1                                                          COMPASS     7712          I
          -CMP17  
 COMPASS            RJ     LJUST                                                           COMPASS     7713          I
          -CMP17  
 COMPASS            SA6    LINE        STORE SYMBOL NAME                                   COMPASS     7714          I
          -CMP17  
 COMPASS            RJ     ZTLUSYM     LOOK UP SYMBOL                                      COMPASS     7715          I
          -CMP17  
 COMPASS            SA2    ELEXT       CHECK FOR EXTERNAL SYMBOL                           COMPASS     7716          I
          -CMP17  
 COMPASS            SX6    1RX                                                             COMPASS     7717          I
          -CMP17  
 COMPASS   +        ZR     X2,*+1                                                          COMPASS     7718          I
          -CMP17  
 COMPASS            SA6    OCTAL+15    STORE AN X IF EXTERNAL                              COMPASS     7719          I
          -CMP17  
 COMPASS            SA1    ELVAL       PACK AWAY VALUE                                     COMPASS     7720          I
          -CMP17  
 COMPASS            SX2    14                                                              COMPASS     7721          I
          -CMP17  
 COMPASS            SX3    6                                                               COMPASS     7722          I
          -CMP17  
 COMPASS            SA4    MACHINE                                                         COMPASS     7723          I
          -CMP17  
 COMPASS            LX5    X4,B1                                                           COMPASS     7724          I
          -CMP17  
 COMPASS            IX3    X3-X5                                                           COMPASS     7725          I
          -CMP17  
 COMPASS            RJ     PACKO                                                           COMPASS     7726          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7727          I
          -CMP17  
 COMPASS   ZEND15   SA1    P2TEMP                                                          COMPASS     7728          I
          -CMP17  
 COMPASS            SA2    L.SLITS                                                         COMPASS     7729          I
          -CMP17  
 COMPASS            SX6    X1+B1                                                           COMPASS     7730          I
          -CMP17  
 COMPASS            BX4    X6-X2                                                           COMPASS     7731          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 599    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            SA6    A1                                                              COMPASS     7732          I
          -CMP17  
 COMPASS            NZ     X4,ZEND11                                                       COMPASS     7733          I
          -CMP17  
 COMPASS            RJ     LISTER                                                          COMPASS     7734          I
          -CMP057 
 COMPASS                                                                                   CMP042       134     A     
 COMPASS  *         TERMINATE BINARY OUTPUT.                                               CMP042       135     A     
 COMPASS                                                                                   CMP042       136     A     
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODE                                      CMP042       137     A     
 COMPASS            RJ     DLAST       DUMP TERMINAL LOADER CARDS                          CMP042       138     A     
 COMPASS            RJ     DDUMP       DUMP ABSOLUTE BINARY OUTPUT                         CMP042       139     A     
 COMPASS            SA2    B                                                               CMP30       2786     A     
 COMPASS            ZR     X2,ZEND10   IF NO BINARY FILE                                   CMP30       2787     A     
 COMPASS            SA1    LOCSYM                                                          CMP042       140     A     
 COMPASS            SA2    ABSFG                                                           CMP042       141     A     
 COMPASS            ZR     X1,ZEND3    IF NO TRANSFER NAME                                 CMP042       142     A     
 COMPASS            NZ     X2,ZEND3    IF ABSOLUTE ASSEMBLY                                CMP042       143     A     
 COMPASS            RJ     LJUST                                                           CMP042       144     A     
 COMPASS            SA1    =46000001BS36                                                   CMP042       145     A     
 COMPASS            BX6    X1                                                              CMP042       146     A     
 COMPASS            SA7    BINREC+1                                                        CMP042       147     A     
 COMPASS            SA6    A7-B1                                                           CMP042       148     A     
 COMPASS                                                                                   CMP30       2788     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2789     A     
 COMPASS            WRITEW B,A6,2      DUMP XFER CARD                                      CMP042       149     A     
 COMPASS   ZEND3    WRITER B                                                               CMP042       150          I
          -CMP30  
 COMPASS   RM       ELSE                                                                   CMP30       2790     A     
 COMPASS            SA1    B-1                                                             CMP30       2791     A     
 COMPASS            NZ     X1,ZEND2    IF NOT *W* RECORDS                                  CMP30       2792     A     
 COMPASS            PUT    B,BINREC,20                                                     CMP30       2793     A     
 COMPASS            EQ     ZEND3                                                           CMP30       2794     A     
 COMPASS   ZEND2    PUTP   B,BINREC,20                                                     CMP30       2795     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2796     A     
 COMPASS                                                                                   CMP30       2797     A     
 COMPASS   ZEND3    WEOR   B                                                               CMP30       2798     A     
 COMPASS            SA1    /DATA/STCW  RESET CHARACTER STORE FOR 6-BIT/NON-ASCII           CPSA293       88     A     
 COMPASS            BX6    X1                                                              CPSA293       89     A     
 COMPASS            SA6    /DATA/STC0  *** SAFE CODE-MODIFICATION ***                      CPSA293       90     A     
 COMPASS            SA1    ERCNT                                                           CMP042       151     A     
 COMPASS            SA2    ERRFLG                                                          CMP042       152          I
          -CMP30  
 COMPASS            SA2    CP.ERRCT                                                        CMP30       2799     A     
 COMPASS            SA3    SYNAME                                                          CMP042       153     A     
 COMPASS            SA4    DKCNT                                                           CMP042       154     A     
 COMPASS            ZR     X1,ZEND7    IF NO ERRORS                                        CMP042       155     A     
 COMPASS            MI     X2,ZEND7    IF *D* OPTION SET (DEBUG MODE)                      CMP042       156     A     
 COMPASS            ZR     X3,ZEND5    IF NO SYSTEM TEXT GENERATED                         CMP042       157     A     
 COMPASS            SX4    X4+B1                                                           CMP042       158     A     
 COMPASS   ZEND5    SKIPB  B,X4,R      ERASE ALL BINARY OUTPUT INCLUDING SYSTEXT           CMP042       159          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 600    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA1    AFLG                                                            CMP042       160          I
          -CMP30  
 COMPASS   ZEND5    RJ     BKS         ERASE ALL BINARY OUTPUT INCLUDING SYSTEXT           CMP30       2800     A     
 COMPASS            SA1    CP.ABORT                                                        CMP30       2801     A     
 COMPASS            NZ     X1,ZEND8    IF *A* OPTION SET (ABORT IF ERROR)                  CMP042       161          I
          -CP139CP
 COMPASS            LX1    59-29                                                           CP139CP      165     A     
 COMPASS            MI     X1,ZEND8    IF *A* OPTION SET (ABORT IF ERROR)                  CP139CP      166     A     
 COMPASS                                                                                   CMP30       2802     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       2803     A     
 COMPASS                                                                                   CMP30       2804     A     
 COMPASS            SB6    =C*ERRORS IN ASSEMBLY*                                          CMP042       162     A     
 COMPASS            WRITEW X2,B6,2                                                         CMP042       163     A     
 COMPASS            WRITER X2          WRITE ERROR RECORD                                  CMP042       164     A     
 COMPASS            EQ     ZEND10                                                          CMP042       165     A     
 COMPASS   ZEND7    ZR     X3,ZEND10   IF NO SYSTEM TEXT GENERATED                         CMP042       166     A     
 COMPASS            SKIPB  B,X4        ERASE ALL NON-SYSTEXT BINARY OUTPUT                 CMP042       167          I
          -CMP30  
 COMPASS            RJ     BKS         ERASE ALL NON-SYSTEXT BINARY OUTPUT                 CMP30       2805     A     
 COMPASS   ZEND8    WRITEF X2          WRITE EOF AND BACKSPACE OVER IT                     CMP042       168     A     
 COMPASS            BKSP   X2                                                              CMP042       169     A     
 COMPASS                                                                                   CMP30       2806     A     
 COMPASS   RM       ELSE                                                                   CMP30       2807     A     
 COMPASS                                                                                   CMP30       2808     A     
 COMPASS            PUT    B,ZENDB,20  *ERRORS IN ASSEMBLY*                                CMP30       2809     A     
 COMPASS            SA1    B-1                                                             CMP30       2810     A     
 COMPASS            NZ     X1,ZEND10   IF NOT *W* RECORDS                                  CMP30       2811     A     
 COMPASS            WEOR   B                                                               CMP30       2812     A     
 COMPASS            EQ     ZEND10                                                          CMP30       2813     A     
 COMPASS   ZEND7    ZR     X3,ZEND10   IF NO SYSTEM TEXT GENERATED                         CMP30       2814     A     
 COMPASS            RJ     BKS         ERASE ALL NON-SYSTEXT BINARY OUTPUT                 CMP30       2815     A     
 COMPASS   ZEND8    ENDFILE B                                                              CMP30       2816     A     
 COMPASS            SX4    B1          WRITE EOF AND BACKSPACE OVER IT                     CMP30       2817     A     
 COMPASS            RJ     BKS                                                             CMP30       2818     A     
 COMPASS                                                                                   CMP30       2819     A     
 COMPASS   RM       ENDIF                                                                  CMP30       2820     A     
 COMPASS                                                                                   CMP042       170     A     
 COMPASS  *         RESTORE SYSTEM SYMBOL TABLE.                                           CMP042       171     A     
 COMPASS                                                                                   CMP042       172     A     
 COMPASS   ZEND10   RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       173     A     
 COMPASS            SA1    SSTCNT                                                          CMP042       174     A     
 COMPASS            MX6    0                                                               CMP042       175     A     
 COMPASS            SB7    ERRTAB-QVTAB-2                                                  CMP042       176     A     
 COMPASS            SA6    L.QVTAB+1                                                       CMP042       177     A     
 COMPASS   +        SB7    B7-B1       EMPTY TABLES NO LONGER NEEDED                       CMP042       178     A     
 COMPASS            SA6    A6+B1                                                           CMP042       179     A     
 COMPASS            NZ     B7,*                                                            CMP042       180     A     
 COMPASS            SA6    L.MEMORY                                                        CMP042       181     A     
 COMPASS            ZR     X1,ZEND20   IF NO SYSTEM SYMBOLS DEFINED                        CMP042       182     A     
 COMPASS            LX1    1                                                               CMP042       183     A     
 COMPASS            MANAGE SSYMS,X1    MAKE ROOM IN SYSTEM SYMBOL TABLE                    CMP042       184     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 601    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX2    X2+X3                                                           CMP042       185     A     
 COMPASS            SA3    SSTCNT                                                          CMP042       186     A     
 COMPASS            SB7    X3                                                              CMP30       2821     A     
 COMPASS            SA1    O.SYMTAB                                                        CMP042       187     A     
 COMPASS            SB7    X3                                                              CMP042       188          I
          -CMP30  
 COMPASS            SA3    =00000007000007777777B                                          CMP30       2822     A     
 COMPASS   ZEND15   SA5    X1+B1       SEARCH SYMBOL TABLE                                 CMP042       189          I
          -CP096A 
 COMPASS            SB5    -B1                                                             CP096A       352     A     
 COMPASS            SB6    59-32                                                           CP096A       353     A     
 COMPASS            SX1    X1+B1                                                           CP096A       354     A     
 COMPASS   ZEND15   RX5    X1                                                              CP096A       355     A     
 COMPASS            SX4    X1+B5                                                           CP096A       356     A     
 COMPASS            SX1    X1+2                                                            CMP042       190     A     
 COMPASS            LX5    59-32                                                           CMP042       191          I
          -CP096A 
 COMPASS            PL     X5,ZEND15   IF NOT A SYSTEM SYMBOL                              CMP042       192          I
          -CP096A 
 COMPASS            SA4    A5-B1                                                           CMP042       193          I
          -CP096A 
 COMPASS            LX5    32-59                                                           CMP042       194          I
          -CP096A 
 COMPASS            LX6    X5,B6                                                           CP096A       357     A     
 COMPASS            PL     X6,ZEND15   IF NOT A SYSTEM SYMBOL                              CP096A       358     A     
 COMPASS            RX4    X4                                                              CP096A       359     A     
 COMPASS            SX2    X2-2                                                            CMP042       195     A     
 COMPASS            SB7    B7-B1                                                           CMP042       196     A     
 COMPASS            BX7    X5          COPY SYMBOL TABLE ENTRY                             CMP042       197          I
          -CMP30  
 COMPASS            BX7    X3*X5       COPY SYMBOL TABLE ENTRY                             CMP30       2823     A     
 COMPASS            LX6    X4          TO SYSTEM SYMBOL TABLE                              CMP042       198     A     
 COMPASS            SA7    X2+B1                                                           CMP042       199     A     
 COMPASS            SA6    X2                                                              CMP042       200     A     
 COMPASS            NZ     B7,ZEND15                                                       CMP042       201     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       202     A     
 COMPASS                                                                                   COMPASS     7735     A     
 COMPASS  *         PRODUCE ASSEMBLER STATISTICS.                                          COMPASS     7736     A     
 COMPASS                                                                                   COMPASS     7737     A     
 COMPASS   ZEND20   SA1    =H*STORAGE USED*                                                COMPASS     7738     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     7739     A     
 COMPASS            BX6    X1                                                              COMPASS     7740     A     
 COMPASS            LX7    X2                                                              COMPASS     7741     A     
 COMPASS            SA6    LINE                                                            COMPASS     7742     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7743     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             COMPASS     7744          I
          -CMP042 
 COMPASS            SA1    MAXCORE                                                         COMPASS     7745          I
          -CMP042 
 COMPASS            SA1    REFIO                                                           CMP042       203     A     
 COMPASS            SA2    LR+1                                                            CMP042       204     A     
 COMPASS            SA3    MAXCORE                                                         CMP042       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/28. 19.11.32.      PAGE 602    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X1,ZEND26   IF NO REFTAB OVERFLOW                               CMP042       206     A     
 COMPASS            ZR     X2,ZEND26   IF NO REFERENCE WANTED                              CMP042       207     A     
 COMPASS            SA1    LOSTREF                                                         CMP042       208     A     
 COMPASS            SX6    PRTB+100B                                                       CMP042       209          I
          -CPS247 
 COMPASS            SX6    PRTB                                                            CPS247        10     A     
 COMPASS            SB7    L.QVTAB-L.INTER                                                 CMP042       210     A     
 COMPASS            IX6    X6+X1                                                           CMP042       211     A     
 COMPASS            SA1    L.INTER+1                                                       CMP042       212     A     
 COMPASS   ZEND23   SB7    B7-B1       COMPUTE STORAGE NEEDED BY PASS 3                    CMP042       213     A     
 COMPASS            IX6    X6+X1                                                           CMP042       214     A     
 COMPASS            SA1    A1+B1                                                           CMP042       215     A     
 COMPASS            NZ     B7,ZEND23                                                       CMP042       216     A     
 COMPASS            IX2    X3-X6                                                           CMP042       217     A     
 COMPASS            PL     X2,ZEND26   IF NOT GREATER THAN MAXCORE                         CMP042       218     A     
 COMPASS            BX3    X6          UPDATE MAXCORE                                      CMP042       219     A     
 COMPASS            SA6    A3                                                              CMP042       220     A     
 COMPASS   ZEND26   SX2    100B+10D    ADD THE TEN UNUSED WORDS AND                        CMP042       221     A     
 COMPASS            MX0    -6          INCREASE TO NEXT MULTIPLE OF 100B                   CMP042       222     A     
 COMPASS            IX3    X3+X2                                                           CMP042       223     A     
 COMPASS            BX1    X0*X3                                                           CMP042       224     A     
 COMPASS            SA2    PPTYPE                                                          CPS0343       10     A     
 COMPASS            BX7    X2          SAVE PPTYPE                                         CPS0343       11     A     
 COMPASS            MX6    0           CLEAR PPTYPE SO MEMORY USED IS OCTAL                CPS0343       12     A     
 COMPASS            SA6    A2                                                              CPS0343       13     A     
 COMPASS            SA7    ZENDC                                                           CPS0343       14     A     
 COMPASS            SX2    36                                                              COMPASS     7746          I
          -CPS028 
 COMPASS            SX2    34                                                     S028 416 CPS028       308     A     
 COMPASS            MX3    0                                                               COMPASS     7747     A     
 COMPASS            RJ     PACKO                                                           COMPASS     7748     A     
 COMPASS            SA1    STCNT                                                           COMPASS     7749          I
          -CPS028 
 COMPASS                                                                          S028 418 CPS028       309     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                      S028 419 CPS028       310          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      125          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      126          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP      127          I
          -CPSA134
 COMPASS            SA1    =5RB CM                                                S028 420 CPS028       311          I
          -CPSA134
 COMPASS            SKIP   1                                                      S028 421 CPS028       312          I
          -F7540CP  -CPSA134
 COMPASS            ELSE   1                                                               F7540CP      128          I
          -CPSA134
 COMPASS            SA1    =5RB SCM                                               S028 422 CPS028       313          I
          -CPSA134
 COMPASS            IF     DEF,MODL76                                                      CPSA134       75     A     
 COMPASS            SA1    =5RB SCM    ASSEMBLED IF MODEL 76 ASSEMBLY (SCM)                CPSA134       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/28. 19.11.32.      PAGE 603    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ELSE   1                                                               CPSA134       77     A     
 COMPASS            SA1    =5RB CM     ASSEMBLED IF NOT MODEL 76 ASSEMBLY                  CPSA134       78     A     
 COMPASS                                                                          S028 423 CPS028       314     A     
 COMPASS            MX0    -6                                                     S028 424 CPS028       315     A     
 COMPASS            BX6    -X0*X1                                                 S028 425 CPS028       316     A     
 COMPASS            SA6    OCTAL+38                                               S028 426 CPS028       317     A     
 COMPASS            AX1    6                                                      S028 427 CPS028       318     A     
 COMPASS   +        BX6    -X0*X1                                                 S028 428 CPS028       319     A     
 COMPASS            AX1    6                                                      S028 429 CPS028       320     A     
 COMPASS            SA6    A6-B1                                                  S028 430 CPS028       321     A     
 COMPASS            NZ     X1,*-1                                                 S028 431 CPS028       322     A     
 COMPASS            SA3    ALCM        MAXIMUM ECS/LCM USED                       S028 432 CPS028       323     A     
 COMPASS            ZR     X3,ZEND28   IF NONE                                    S028 433 CPS028       324     A     
 COMPASS                                                                          S028 434 CPS028       325     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                      S028 435 CPS028       326          I
          -F7540CP
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      129          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      130          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP      131          I
          -CPSA134
 COMPASS            IF     -DEF,LCMTYP                                                     CPSA134       79     A     
 COMPASS            SA1    =5RB ECS                                               S028 436 CPS028       327     A     
 COMPASS            SKIP   1                                                      S028 437 CPS028       328          I
          -F7540CP
 COMPASS            ELSE   1                                                               F7540CP      132     A     
 COMPASS            SA1    =5RB LCM                                               S028 438 CPS028       329     A     
 COMPASS                                                                          S028 439 CPS028       330     A     
 COMPASS            BX6    -X0*X1                                                 S028 440 CPS028       331     A     
 COMPASS            SA6    OCTAL+26                                               S028 441 CPS028       332     A     
 COMPASS            AX1    6                                                      S028 442 CPS028       333     A     
 COMPASS   +        BX6    -X0*X1                                                 S028 443 CPS028       334     A     
 COMPASS            AX1    6                                                      S028 444 CPS028       335     A     
 COMPASS            SA6    A6-B1                                                  S028 445 CPS028       336     A     
 COMPASS            NZ     X1,*-1                                                 S028 446 CPS028       337     A     
 COMPASS            SX2    100B+10D    ADD THE TEN UNUSED WORDS AND               S028 447 CPS028       338     A     
 COMPASS            IX3    X3+X2       INCREASE TO NEXT MULTIPLE OF 100B          S028 448 CPS028       339     A     
 COMPASS            BX1    X0*X3                                                  S028 449 CPS028       340     A     
 COMPASS            SX2    22                                                     S028 450 CPS028       341     A     
 COMPASS            MX3    0                                                      S028 451 CPS028       342     A     
 COMPASS            RJ     PACKO                                                  S028 452 CPS028       343     A     
 COMPASS   ZEND28   SA1    STCNT       STATEMENT COUNT                            S028 453 CPS028       344          I
          -CPS0343
 COMPASS   ZEND28   SA1    ZENDC       RESTORE PPTYPE FOR REFERENCE TABLE                  CPS0343       15     A     
 COMPASS            BX6    X1                                                              CPS0343       16     A     
 COMPASS            SA6    PPTYPE                                                          CPS0343       17     A     
 COMPASS            SA1    STCNT       STATEMENT COUNT                                     CPS0343       18     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     7750     A     
 COMPASS            SA1    =10HSTATEMENTS                                                  COMPASS     7751     A     
 COMPASS            LX6    6                                                               COMPASS     7752     A     
 COMPASS            BX7    X1                                                              COMPASS     7753     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 604    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    LINE+2                                                          COMPASS     7754     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7755     A     
 COMPASS            SA1    SYMCNT      OUTPUT SYMBOL COUNT                                 COMPASS     7756     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     7757     A     
 COMPASS            SA1    =H*SYMBOLS*                                                     COMPASS     7758     A     
 COMPASS            LX6    6                                                               COMPASS     7759     A     
 COMPASS            BX7    X1                                                              COMPASS     7760     A     
 COMPASS            SA6    LINE+4                                                          COMPASS     7761     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7762     A     
 COMPASS            SA1    INVENT      OUTPUT INVENTED SYMBOL COUNT                        COMPASS     7763     A     
 COMPASS            SA2    =6R000000                                                       COMPASS     7764     A     
 COMPASS            MX0    24                                                              COMPASS     7765     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     7766     A     
 COMPASS            BX1    X6-X2                                                           COMPASS     7767     A     
 COMPASS            ZR     X1,ZEND20B  IF NO INVENTED SYMBOLS                              COMPASS     7768          I
          -CMP042 
 COMPASS            ZR     X1,ZEND30   IF NO INVENTED SYMBOLS                              CMP042       225     A     
 COMPASS            SA2    =4L                                                             COMPASS     7769     A     
 COMPASS            SA3    =H*INVENTED SYMBOLS*                                            COMPASS     7770     A     
 COMPASS            SA1    A3+B1                                                           COMPASS     7771     A     
 COMPASS            IX6    X6+X2                                                           COMPASS     7772     A     
 COMPASS            LX6    6                                                               COMPASS     7773     A     
 COMPASS            BX7    X3                                                              COMPASS     7774     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     7775     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7776     A     
 COMPASS            BX6    X1                                                              COMPASS     7777     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     7778     A     
 COMPASS   ZEND20B  RJ     LISTL                                                           COMPASS     7779          I
          -CMP042 
 COMPASS   ZEND30   RJ     LISTL                                                           CMP042       226     A     
 COMPASS            SA1    TLINE       ASSEMBLY TIME MESSAGE                               COMPASS     7780     A     
 COMPASS            SA6    LINE                                                            CPS0340        8     A     
 COMPASS            MX2    1                                                               CPS0340        9     A     
 COMPASS            MX0    -6                                                              CPS0340       10     A     
 COMPASS   ZEND30.1 BX6    -X0*X1                                                          CPS0340       11     A     
 COMPASS            SA6    A6-B1                                                           CPS0340       12     A     
 COMPASS            LX1    -6                                                              CPS0340       13     A     
 COMPASS            LX2    6                                                               CPS0340       14     A     
 COMPASS            PL     X2,ZEND30.1                                                     CPS0340       15     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     7781     A     
 COMPASS            BX6    X1                                                              COMPASS     7782     A     
 COMPASS            SA3    A2+B1                                                           CPS240        17     A     
 COMPASS            LX7    X2                                                              COMPASS     7783     A     
 COMPASS            SA6    LINE                                                            COMPASS     7784          I
          -CPS0340
 COMPASS            SA7    A6+B1                                                           COMPASS     7785          I
          -CPS0340
 COMPASS            SA7    LINE                                                            CPS0340       16     A     
 COMPASS            BX6    X3                                                              CPS240        18     A     
 COMPASS            SA6    A7+B1                                                           CPS240        19     A     
 COMPASS            SA5    ATIME       READ CPU CLOCK                                      COMPASS     7786          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 605    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            TIME   A5                                                              COMPASS     7787          I
          -CMP30  
 COMPASS            SA1    A5                                                              COMPASS     7788          I
          -CMP30  
 COMPASS            IX2    X1-X5                                                           COMPASS     7789          I
          -CMP30  
 COMPASS            IX5    X1-X5                                                           COMPASS     7790          I
          -CMP30  
 COMPASS            LX2    -12                                                             COMPASS     7791          I
          -CMP30  
 COMPASS            SX3    1000-10000B                                                     COMPASS     7792          I
          -CMP30  
 COMPASS   +        MX0    -12                                                             COMPASS     7793          I
          -CMP30  
 COMPASS            PL     X2,*+1      IF NO BORROW                                        COMPASS     7794          I
          -CMP30  
 COMPASS            IX5    X5+X3                                                           COMPASS     7795          I
          -CMP30  
 COMPASS            BX1    -X0*X5      MSEC                                                COMPASS     7796          I
          -CMP30  
 COMPASS            SX1    X1+1000                                                         COMPASS     7797          I
          -CMP30  
 COMPASS            RJ     CONDEC                                                          COMPASS     7798          I
          -CMP30  
 COMPASS            AX5    12                                                              COMPASS     7799          I
          -CMP30  
 COMPASS            SX1    X5                                                              COMPASS     7800          I
          -CMP30  
 COMPASS            SA2    =55555555555536555555B                                          COMPASS     7801          I
          -CMP30  
 COMPASS            BX5    X6-X2                                                           COMPASS     7802          I
          -CMP30  
 COMPASS            RJ     CONDEC                                                          COMPASS     7803          I
          -CMP30  
 COMPASS            LX6    24                                                              COMPASS     7804          I
          -CMP30  
 COMPASS            BX6    X6-X5                                                           COMPASS     7805          I
          -CMP30  
 COMPASS            LX6    6                                                               COMPASS     7806          I
          -CMP30  
 COMPASS            SB7    ATIME                                                           CMP30       2824     A     
 COMPASS            RJ     CPTIME      CONVERT ASSEMBLY TIME                               CMP30       2825     A     
 COMPASS            SA6    LINE+2                                                          COMPASS     7807          I
          -CPS240 
 COMPASS            SA6    LINE+3                                                          CPS240        20          I
          -CPS0340
 COMPASS            SA6    LINE+2                                                          CPS0340       17     A     
 COMPASS            SA1    =0HSECONDS                                                      COMPASS     7808     A     
 COMPASS            BX6    X1                                                              COMPASS     7809     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     7810     A     
 COMPASS            MX6    0                                                               COMPASS     7811     A     
 COMPASS            SA1    LOSTREF                                                         COMPASS     7812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 606    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A1                                                              COMPASS     7813          I
          -CMP042 
 COMPASS            RJ     CONDEC                                                          COMPASS     7814     A     
 COMPASS            SA1    =H*REFERENCES*                                                  COMPASS     7815     A     
 COMPASS            LX6    6                                                               COMPASS     7816     A     
 COMPASS            SA6    LINE+4                                                          COMPASS     7817          I
          -CPS240 
 COMPASS            SA6    LINE+5                                                          CPS240        21          I
          -CPS0340
 COMPASS            SA6    LINE+4                                                          CPS0340       18     A     
 COMPASS            BX7    X1                                                              COMPASS     7818     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7819     A     
 COMPASS            RJ     LIST2L                                                          COMPASS     7820     A     
 COMPASS                                                                                   COMPASS     7821     A     
 COMPASS                                                                                   COMPASS     7822     A     
 COMPASS  *         DECODE ERROR COUNT FOR LISTINGS AND DISPLAY.                           COMPASS     7823     A     
 COMPASS                                                                                   COMPASS     7824     A     
 COMPASS            SA1    WECNT                                                           COMPASS     7825          I
          -CMP042 
 COMPASS            SA2    ERCNT                                                           CMP11          2          I
          -CMP042 
 COMPASS            BX6    X1+X2                                                           CMP11          3          I
          -CMP042 
 COMPASS            ZR     X6,ZEND20A  IF NO ERRORS                                        CMP11          4          I
          -CMP042 
 COMPASS            SA1    IDNAM                                                           CMP11          5     A     
 COMPASS            SA2    DKNAM                                                           CMP11          6     A     
 COMPASS            BX6    X2-X1                                                           CMP11          7     A     
 COMPASS            ZR     X6,ZEND20D  IF IDNAM = DKNAM                                    CMP11          8          I
          -CMP042 
 COMPASS            RJ     LJUST                                                           CMP11          9          I
          -CMP042 
 COMPASS            BX1    X7                                                              CMP11         10          I
          -CMP042 
 COMPASS            ZR     X6,ZEND40   IF IDNAM = DKNAM                                    CMP042       227     A     
 COMPASS            RJ     DIM         DISPLAY IDENT MESSAGE                               CMP11         11     A     
 COMPASS   ZEND20D  SA1    WECNT                                                           CMP11         12          I
          -CMP042 
 COMPASS            ZR     X1,ZEND20C  IF NO WARNING ERRORS                                COMPASS     7826          I
          -CMP042 
 COMPASS   ZEND40   SA1    WECNT                                                           CMP042       228     A     
 COMPASS            ZR     X1,ZEND50   IF NO WARNING ERRORS                                CMP042       229     A     
 COMPASS            RJ     CONDEC      CONVERT TO DECIMAL                                  COMPASS     7827     A     
 COMPASS            SA0    ZMSG                                                            COMPASS     7828          I
          -CMP042 
 COMPASS            SA6    A0                                                              COMPASS     7829          I
          -CMP042 
 COMPASS            SA1    IDNAM                                                           COMPASS     7830          I
          -CMP042 
 COMPASS            RJ     LJUST                                                           COMPASS     7831          I
          -CMP042 
 COMPASS            BX1    X7                                                              COMPASS     7832          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 607    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS            RJ     DIM                                                             COMPASS     7833          I
          -CMP042 
 COMPASS            SA1    A0                                                              COMPASS     7834          I
          -CMP042 
 COMPASS            SB7    X1-3R  1                                                        COMPASS     7835          I
          -CMP042 
 COMPASS            SA6    ZMSG                                                            CMP042       230     A     
 COMPASS            SB7    X6-3R  1                                                        CMP042       231     A     
 COMPASS            SA1    ASMM+1                                                          COMPASS     7836     A     
 COMPASS            SA2    =H* WARNING M*                                                  COMPASS     7837     A     
 COMPASS            SA3    =H*ESSAGE IN ESSAGES IN*                                        COMPASS     7838     A     
 COMPASS            BX6    X2                                                              COMPASS     7839     A     
 COMPASS            LX1    6                                                               COMPASS     7840          I
          -CMP042 
 COMPASS            SA6    A0+B1                                                           COMPASS     7841          I
          -CMP042 
 COMPASS            SA6    A6+B1                                                           CMP042       232     A     
 COMPASS   +        ZR     B7,*+1      IF 1 ERROR                                          COMPASS     7842     A     
 COMPASS            SA3    A3+B1                                                           COMPASS     7843     A     
 COMPASS            LX1    -6                                                              COMPASS     7844          I
          -CMP042 
 COMPASS            MX0    -12                                                             COMPASS     7845          I
          -CMP042 
 COMPASS            BX6    X0*X1                                                           COMPASS     7846          I
          -CMP042 
 COMPASS            LX7    X3                                                              COMPASS     7847          I
          -CMP042 
 COMPASS   +        LX7    X3                                                              CMP042       233     A     
 COMPASS            BX6    X1                                                              CMP042       234     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7848     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     7849     A     
 COMPASS            MESSAGE A0,3,R                                                         COMPASS     7850          I
          -CMP20    -CMP042 
 COMPASS            JOBMSG A0,R                                                            CMP20         56          I
          -CMP042 
 COMPASS   ZEND20C  SA1    ERCNT                                                           COMPASS     7851          I
          -CMP042 
 COMPASS            ZR     X1,ZEND20A  IF NO FATAL ERRORS                                  COMPASS     7852          I
          -CMP042 
 COMPASS            JOBMSG ZMSG,R                                                          CMP042       235     A     
 COMPASS   ZEND50   SA1    ERCNT                                                           CMP042       236     A     
 COMPASS            ZR     X1,ZEND60   IF NO FATAL ERRORS                                  CMP042       237     A     
 COMPASS            RJ     CONDEC      CONVERT TO DECIMAL                                  COMPASS     7853     A     
 COMPASS            SA6    LINE                                                            COMPASS     7854     A     
 COMPASS            SB7    X6-3R  1                                                        COMPASS     7855     A     
 COMPASS            SA2    =H+ ERRORS IN+                                                  COMPASS     7856     A     
 COMPASS            SA1    IDNAM                                                           COMPASS     7857     A     
 COMPASS   +        NZ     B7,*+1                                                          COMPASS     7858     A     
 COMPASS            SA2    =H+ ERROR IN+                                                   COMPASS     7859     A     
 COMPASS            BX7    X2                                                              COMPASS     7860     A     
 COMPASS            SA6    ZMSG                                                            COMPASS     7861     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 608    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A6+B1                                                           COMPASS     7862     A     
 COMPASS            SA7    LINE+1                                                          COMPASS     7863     A     
 COMPASS            RJ     LJUST                                                           COMPASS     7864     A     
 COMPASS            LX6    54                                                              COMPASS     7865     A     
 COMPASS            SA6    LINE+2                                                          COMPASS     7866     A     
 COMPASS            BX1    X7                                                              COMPASS     7867          I
          -CMP11  
 COMPASS            RJ     DIM                                                             COMPASS     7868          I
          -CMP11  
 COMPASS            SA1    ASMM+1                                                          COMPASS     7869     A     
 COMPASS            BX6    X1                                                              COMPASS     7870     A     
 COMPASS            SA6    ZMSG+2                                                          COMPASS     7871     A     
 COMPASS            MESSAGE ZMSG,,R                                                        COMPASS     7872     A     
 COMPASS            RJ     LISTERF                                                         COMPASS     7873     A     
 COMPASS                                                                                   COMPASS     7874     A     
 COMPASS  *         PRINT ERROR DIRECTORY.                                                 COMPASS     7875     A     
 COMPASS                                                                                   COMPASS     7876     A     
 COMPASS   ZEND20A  RJ     PET         PROCESS ERROR TABLE                                 COMPASS     7877          I
          -CMP042 
 COMPASS   ZEND60   RJ     PET         PROCESS ERROR TABLE                                 CMP042       238     A     
 COMPASS            SA1    L.ERRTAB                                                        COMPASS     7878     A     
 COMPASS            ZR     X1,ZEND30                                                       COMPASS     7879          I
          -CMP042 
 COMPASS            ZR     X1,ZEND90                                                       CMP042       239     A     
 COMPASS            SA1    =1H         SET UP SUBTITLE                                     COMPASS     7880     A     
 COMPASS            SX2    SUBTIT                                                          COMPASS     7881     A     
 COMPASS            SX3    SUBTIT+8                                                        COMPASS     7882     A     
 COMPASS            RJ     PRESET                                                          COMPASS     7883     A     
 COMPASS            SA1    LPCNT       CAUSE PAGE EJECT                                    COMPASS     7884     A     
 COMPASS            SA2    PSIZE                                                           COMPASS     7885     A     
 COMPASS            IX7    X1+X2                                                           COMPASS     7886     A     
 COMPASS            SA7    A1                                                              COMPASS     7887     A     
 COMPASS            SA1    =H*        ERROR DIRECTORY.*                                    COMPASS     7888     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     7889     A     
 COMPASS            BX6    X1                                                              COMPASS     7890     A     
 COMPASS            LX7    X2                                                              COMPASS     7891     A     
 COMPASS            SA6    SUBTIT                                                          COMPASS     7892     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7893     A     
 COMPASS            SA1    A2+B1                                                           COMPASS     7894     A     
 COMPASS            BX6    X1                                                              COMPASS     7895     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     7896     A     
 COMPASS            SA2    PSIZE                                                           CPSA208       25     A     
 COMPASS            NZ     X2,ZEND61   IF PAGE EJECT NOT SUPPRESSED                        CPSA208       26     A     
 COMPASS            SX0    2           ELSE PRINT BLANK LINES                              CPSA208       27     A     
 COMPASS            RJ     LBL                                                             CPSA208       28     A     
 COMPASS            SA1    LPCNT       CHECK FOR END OF PAGE                               CPSA208       29     A     
 COMPASS            SX0    2                                                               CPSA208       30     A     
 COMPASS            SA2    CP.PS                                                           CPSA208       31     A     
 COMPASS            IX6    X1+X0       INCREMENT LINE COUNT                                CPSA208       32     A     
 COMPASS            IX2    X6-X2                                                           CPSA208       33     A     
 COMPASS            SA6    A1                                                              CPSA208       34     A     
 COMPASS            PL     X2,ZEND61                                                       CPSA208       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/28. 19.11.32.      PAGE 609    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     LHDS        AND PRINT SUBTITLE LINE                             CPSA208       36     A     
 COMPASS   ZEND61   BSS    0                                                               CPSA208       37     A     
 COMPASS            SA1    O.ERRTAB    SORT THE ERROR TABLE                                COMPASS     7897     A     
 COMPASS            SA2    L.ERRTAB                                                        COMPASS     7898     A     
 COMPASS            MX0    60                                                              COMPASS     7899     A     
 COMPASS            RJ     DSORT                                                           COMPASS     7900     A     
 COMPASS            MX6    0                                                               COMPASS     7901     A     
 COMPASS            SA6    P2TEMP      INDEX TO ERRTAB                                     COMPASS     7902     A     
 COMPASS   ZEND21   SA1    =10HTYPE ERROR                                                  COMPASS     7903          I
          -CMP042 
 COMPASS   ZEND64   SA1    =10HTYPE ERROR                                                  CMP042       240     A     
 COMPASS            MX0    54                                                              COMPASS     7904     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     7905     A     
 COMPASS            SB7    9                                                               COMPASS     7906     A     
 COMPASS            SA6    OCTAL+25                                                        COMPASS     7907     A     
 COMPASS   +        SB7    B7-B1                                                           COMPASS     7908     A     
 COMPASS            AX1    6                                                               COMPASS     7909     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     7910     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     7911     A     
 COMPASS            NZ     B7,*-1                                                          COMPASS     7912     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS     7913     A     
 COMPASS            SA2    O.ERRTAB                                                        COMPASS     7914     A     
 COMPASS            IX0    X1+X2                                                           COMPASS     7915     A     
 COMPASS            SA1    X0          ERRTAB ENTRY                                        COMPASS     7916     A     
 COMPASS            BX7    X1                                                              COMPASS     7917     A     
 COMPASS            AX1    30          ISOLATE ERROR TYPE                                  COMPASS     7918     A     
 COMPASS            BX4    X1                                                              COMPASS     7919     A     
 COMPASS            SA2    X1+ERRLETS                                                      COMPASS     7920     A     
 COMPASS            BX6    X2                                                              COMPASS     7921     A     
 COMPASS            LX1    2                                                               COMPASS     7922     A     
 COMPASS            IX0    X1+X4                                                           COMPASS     7923     A     
 COMPASS            SA7    P2TEMPB     ERROR TYPE                                          COMPASS     7924     A     
 COMPASS            SA6    OCTAL+14                                                        COMPASS     7925     A     
 COMPASS            SA2    X0+ERDIR    FETCH COMMENTS                                      COMPASS     7926     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     7927     A     
 COMPASS            BX6    X2                                                              COMPASS     7928     A     
 COMPASS            LX7    X3                                                              COMPASS     7929     A     
 COMPASS            SA2    A3+B1                                                           COMPASS     7930     A     
 COMPASS            SA4    A2+B1                                                           COMPASS     7931     A     
 COMPASS            SA1    A4+B1                                                           COMPASS     7932     A     
 COMPASS            SA6    LINE                                                            COMPASS     7933     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7934     A     
 COMPASS            BX6    X2                                                              COMPASS     7935     A     
 COMPASS            LX7    X4                                                              COMPASS     7936     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     7937     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     7938     A     
 COMPASS            BX6    X1                                                              COMPASS     7939     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     7940     A     
 COMPASS            RJ     LISTERF                                                         COMPASS     7941     A     
 COMPASS            SA1    1+=20H   OCCURRED ON PAGES                                      COMPASS     7942     A     
 COMPASS            MX0    54                                                              COMPASS     7943     A     
 COMPASS            SB2    B1                                                              COMPASS     7944     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 610    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    1R                                                              COMPASS     7945     A     
 COMPASS            SA6    OCTAL+38                                                        COMPASS     7946     A     
 COMPASS   ZEND22   BX6    -X0*X1                                                          COMPASS     7947          I
          -CMP042 
 COMPASS   ZEND68   BX6    -X0*X1                                                          CMP042       241     A     
 COMPASS            SB7    9                                                               COMPASS     7948     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     7949     A     
 COMPASS   +        AX1    6                                                               COMPASS     7950     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS     7951     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     7952     A     
 COMPASS            SA6    A6-B1                                                           COMPASS     7953     A     
 COMPASS            NZ     B7,*-1                                                          COMPASS     7954     A     
 COMPASS            SB2    B2-B1                                                           COMPASS     7955     A     
 COMPASS            SA1    A1-B1                                                           COMPASS     7956     A     
 COMPASS            PL     B2,ZEND22                                                       COMPASS     7957          I
          -CMP042 
 COMPASS            PL     B2,ZEND68                                                       CMP042       242     A     
 COMPASS            MX6    0                                                               COMPASS     7958     A     
 COMPASS            SA6    P2TEMPA     ELEMENT COUNT                                       COMPASS     7959     A     
 COMPASS                                                                                   COMPASS     7960     A     
 COMPASS   ZEND23   SA1    P2TEMP      TABLE INDEX                                         COMPASS     7961          I
          -CMP042 
 COMPASS   ZEND70   SA1    P2TEMP      TABLE INDEX                                         CMP042       243     A     
 COMPASS            SA2    A1+B1       ELEMENT COUNT                                       COMPASS     7962     A     
 COMPASS            SA3    A2+B1       OLD ENTRY                                           COMPASS     7963     A     
 COMPASS            SA4    O.ERRTAB                                                        COMPASS     7964     A     
 COMPASS            IX0    X1+X4                                                           COMPASS     7965     A     
 COMPASS            SX6    B1+X1                                                           COMPASS     7966     A     
 COMPASS            SA4    X0          FETCH ENTRY                                         COMPASS     7967     A     
 COMPASS            BX7    X4-X3                                                           COMPASS     7968     A     
 COMPASS            SA6    A1                                                              COMPASS     7969     A     
 COMPASS            AX7    30                                                              COMPASS     7970     A     
 COMPASS            NZ     X7,ZEND24A  END OF ERROR LIST FOR THIS ERROR                    COMPASS     7971          I
          -CMP042 
 COMPASS            NZ     X7,ZEND80   IF END OF PAGE LIST FOR THIS ERROR                  CMP042       244     A     
 COMPASS            SA3    L.ERRTAB                                                        COMPASS     7972     A     
 COMPASS            IX7    X3-X6                                                           COMPASS     7973     A     
 COMPASS            NG     X7,ZEND24                                                       COMPASS     7974          I
          -CMP042 
 COMPASS            MI     X7,ZEND82   IF END OF TABLE                                     CMP042       245     A     
 COMPASS            SX6    X4                                                              COMPASS     7975     A     
 COMPASS            SX7    X2-9                                                            COMPASS     7976     A     
 COMPASS            SA6    P2TEMPC                                                         COMPASS     7977     A     
 COMPASS            NZ     X7,ZEND23A                                                      COMPASS     7978          I
          -CMP042 
 COMPASS            NZ     X7,ZEND75   IF LINE NOT FULL                                    CMP042       246     A     
 COMPASS            SA7    A2                                                              COMPASS     7979     A     
 COMPASS            RJ     LISTL                                                           COMPASS     7980     A     
 COMPASS   ZEND23A  SA1    P2TEMPC                                                         COMPASS     7981          I
          -CMP042 
 COMPASS   ZEND75   SA1    P2TEMPC                                                         CMP042       247     A     
 COMPASS            RJ     CONDEC                                                          COMPASS     7982     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 611    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX6    6                                                               COMPASS     7983     A     
 COMPASS            SX0    B1                                                              COMPASS     7984     A     
 COMPASS            SA2    P2TEMPA                                                         COMPASS     7985     A     
 COMPASS            SX7    X2+B1                                                           COMPASS     7986     A     
 COMPASS            IX6    X6+X0                                                           COMPASS     7987     A     
 COMPASS            SA6    X2+LINE                                                         COMPASS     7988     A     
 COMPASS            SA7    A2                                                              COMPASS     7989     A     
 COMPASS            EQ     ZEND23                                                          COMPASS     7990          I
          -CMP042 
 COMPASS   ZEND24A  BX6    X1          RESET LOOP COUNTER                                  COMPASS     7991          I
          -CMP042 
 COMPASS            EQ     ZEND70                                                          CMP042       248     A     
 COMPASS                                                                                   CMP042       249     A     
 COMPASS   ZEND80   BX6    X1          RESET LOOP COUNTER                                  CMP042       250     A     
 COMPASS            SA6    A6                                                              COMPASS     7992     A     
 COMPASS   ZEND24   SA1    P2TEMPA                                                         COMPASS     7993          I
          -CMP042 
 COMPASS   ZEND82   SA1    P2TEMPA                                                         CMP042       251     A     
 COMPASS            SA2    X1+LINE-1                                                       COMPASS     7994     A     
 COMPASS            SX0    B1                                                              COMPASS     7995     A     
 COMPASS            IX6    X2-X0                                                           COMPASS     7996     A     
 COMPASS            SA6    A2                                                              COMPASS     7997     A     
 COMPASS            RJ     LIST2L                                                          COMPASS     7998     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS     7999     A     
 COMPASS            SA2    L.ERRTAB                                                        COMPASS     8000     A     
 COMPASS            IX0    X1-X2                                                           COMPASS     8001          I
          -CMP042 
 COMPASS            NG     X0,ZEND21                                                       COMPASS     8002          I
          -CMP042 
 COMPASS                                                                                   COMPASS     8003          I
          -CMP042 
 COMPASS  *         TERMINATE LOADER PROCESSING                                            COMPASS     8004          I
          -CMP26    -CMP042 
 COMPASS  *         TERMINATE BINARY OUTPUT.                                               CMP26         26          I
          -CMP042 
 COMPASS                                                                                   COMPASS     8005          I
          -CMP042 
 COMPASS   ZEND30   RJ     DLAST       DUMP TERMINAL LOADER CARDS                          COMPASS     8006          I
          -CP13226  -CMP042 
 COMPASS   ZEND30   RJ     DBSSZ       DUMP BSSZ CODE                                      CP13226        1          I
          -CMP042 
 COMPASS            RJ     DLAST       DUMP TERMINAL LOADER CARDS                          CP13226        2          I
          -CMP042 
 COMPASS            RJ     DDUMP       DUMP ABSOLUTE BINARY OUTPUT                         COMPASS     8007          I
          -CMP042 
 COMPASS            SA3    ABSFG                                                           COMPASS     8008          I
          -CMP042 
 COMPASS            NZ     X3,ZEND40                                                       COMPASS     8009          I
          -CMP042 
 COMPASS            SA2    MACHINE                                                         COMPASS     8010          I
          -CMP042 
 COMPASS            SA1    LOCSYM                                                          COMPASS     8011          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 612    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS            NZ     X2,ZEND40   CHECK FOR POSSIBLE TRANSFER NAME                    COMPASS     8012          I
          -CMP042 
 COMPASS            ZR     X1,ZEND40                                                       COMPASS     8013          I
          -CMP042 
 COMPASS            RJ     LJUST                                                           COMPASS     8014          I
          -CMP042 
 COMPASS            SA1    =46000001BS36                                                   COMPASS     8015          I
          -CMP042 
 COMPASS            BX6    X1                                                              COMPASS     8016          I
          -CMP042 
 COMPASS            SA7    BINREC+1                                                        COMPASS     8017          I
          -CMP042 
 COMPASS            SA6    A7-B1                                                           COMPASS     8018          I
          -CMP042 
 COMPASS            WRITEW B,A6,2                                                          COMPASS     8019          I
          -CMP042 
 COMPASS   ZEND40   WRITER B                                                               COMPASS     8020          I
          -CMP042 
 COMPASS            SA1    ERCNT                                                           COMPASS     8021          I
          -CMP20    -CMP042 
 COMPASS            SA3    SYNAME                                                          COMPASS     8022          I
          -CMP20    -CMP042 
 COMPASS            NZ     X3,ZEND41   IF SYSTEXT GENERATED                                COMPASS     8023          I
          -CMP20    -CMP042 
 COMPASS            SA2    ERRFLG                                                          COMPASS     8024          I
          -CMP20    -CMP042 
 COMPASS            ZR     X1,ZEND50   IF NO ERRORS                                        COMPASS     8025          I
          -CMP20    -CMP042 
 COMPASS            NG     X2,ZEND50   IF D SET                                            COMPASS     8026          I
          -CMP20    -CMP042 
 COMPASS   ZEND41   SA1    DKCNT       BACKSPACE OVER ALL DECKS THIS PROGRAM               COMPASS     8027          I
          -CMP20    -CMP042 
 COMPASS            SKIPB  B,X1                                                            COMPASS     8028          I
          -CMP20    -CMP042 
 COMPASS            WRITEF B                                                               COMPASS     8029          I
          -CMP20    -CMP042 
 COMPASS            SA1    ERRFLG                                                          CMP20         57          I
          -CMP042 
 COMPASS            SA2    ERCNT                                                           CMP20         58          I
          -CMP042 
 COMPASS            SA3    SYNAME                                                          CMP20         59          I
          -CMP042 
 COMPASS            SA4    DKCNT                                                           CMP20         60          I
          -CMP042 
 COMPASS            PL     X1,ZEND41   IF *D* OPTION NOT SET                               CMP20         61          I
          -CMP042 
 COMPASS            SX2    B0                                                              CMP20         62          I
          -CMP042 
 COMPASS   ZEND41   NZ     X2,ZEND42   IF ERRORS                                           CMP20         63          I
          -CMP042 
 COMPASS            ZR     X3,ZEND50   IF NO SYSTEM TEXT GENERATED                         CMP20         64          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 613    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP029   -CMP042 
 COMPASS            ZR     X3,ZEND46   IF NO SYSTEM TEXT GENERATED                         CMP029        71          I
          -CMP042 
 COMPASS            SKIPB  B,X4        ERASE ALL NON-SYSTEXT BINARY OUTPUT                 CMP20         65          I
          -CMP042 
 COMPASS            EQ     ZEND44                                                          CMP20         66          I
          -CMP042 
 COMPASS   ZEND42   ZR     X3,ZEND43   IF NO SYSTEM TEXT GENERATED                         CMP20         67          I
          -CMP042 
 COMPASS            SX4    X4+B1                                                           CMP20         68          I
          -CMP042 
 COMPASS   ZEND43   SKIPB  B,X4,R      ERASE ALL BINARY OUTPUT INCLUDING SYSTEXT           CMP20         69          I
          -CMP042 
 COMPASS            SA1    AFLG                                                            CMP20         70          I
          -CMP042 
 COMPASS            NZ     X1,ZEND44   IF ABORT MODE                                       CMP20         71          I
          -CMP042 
 COMPASS            SB6    =C+ERRORS IN ASSEMBLY+                                          CMP20         72          I
          -CMP042 
 COMPASS            WRITEW B,B6,2                                                          CMP20         73          I
          -CMP042 
 COMPASS            WRITER B           WRITE ERROR RECORD                                  CMP20         74          I
          -CMP042 
 COMPASS            EQ     ZEND50                                                          CMP20         75          I
          -CMP029   -CMP042 
 COMPASS            EQ     ZEND46                                                          CMP029        72          I
          -CMP042 
 COMPASS   ZEND44   WRITEF B           WRITE EOF AND BACKSPACE OVER IT                     CMP20         76          I
          -CMP042 
 COMPASS            BKSP   B                                                               COMPASS     8030          I
          -CMP042 
 COMPASS                                                                                   CMP25          3          I
          -CMP042 
 COMPASS  *         RESTORE SYSTEM SYMBOL TABLE.                                           CMP25          4          I
          -CMP042 
 COMPASS                                                                                   CMP25          5          I
          -CMP042 
 COMPASS            SA1    SSTCNT                                                          CMP25          6          I
          -CMP029   -CMP042 
 COMPASS   ZEND46   SA1    SSTCNT                                                          CMP029        73          I
          -CMP042 
 COMPASS            MX6    0                                                               CMP25          7          I
          -CMP042 
 COMPASS            SB7    REFTAB-QVTAB-2                                                  CMP25          8          I
          -CMP042 
 COMPASS            SA6    L.QVTAB+1                                                       CMP25          9          I
          -CMP042 
 COMPASS   +        SB7    B7-B1       EMPTY TABLES NO LONGER NEEDED                       CMP25         10          I
          -CMP042 
 COMPASS            SA6    A6+B1                                                           CMP25         11          I
          -CMP042 
 COMPASS            NZ     B7,*                                                            CMP25         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/28. 19.11.32.      PAGE 614    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS            SA6    L.MEMORY                                                        CMP25         13          I
          -CMP042 
 COMPASS            ZR     X1,ZEND50   IF NO SYSTEM SYMBOLS DEFINED                        CMP25         14          I
          -CMP042 
 COMPASS            LX1    1                                                               CMP25         15          I
          -CMP042 
 COMPASS            MANAGE SSYMS,X1    MAKE ROOM IN SYSTEM SYMBOL TABLE                    CMP25         16          I
          -CMP042 
 COMPASS            IX2    X2+X3                                                           CMP25         17          I
          -CMP042 
 COMPASS            SA3    SSTCNT                                                          CMP25         18          I
          -CMP042 
 COMPASS            SA1    O.SYMTAB                                                        CMP25         19          I
          -CMP042 
 COMPASS            SB7    X3                                                              CMP25         20          I
          -CMP042 
 COMPASS   ZEND48   SA5    X1+B1       SEARCH SYMBOL TABLE                                 CMP25         21          I
          -CMP042 
 COMPASS            SX1    X1+2                                                            CMP25         22          I
          -CMP042 
 COMPASS            LX5    59-32                                                           CMP25         23          I
          -CMP042 
 COMPASS            PL     X5,ZEND48   IF NOT A SYSTEM SYMBOL                              CMP25         24          I
          -CMP042 
 COMPASS            SA4    A5-B1                                                           CMP25         25          I
          -CMP042 
 COMPASS            LX5    32-59                                                           CMP25         26          I
          -CMP042 
 COMPASS            SX2    X2-2                                                            CMP25         27          I
          -CMP042 
 COMPASS            SB7    B7-B1                                                           CMP25         28          I
          -CMP042 
 COMPASS            BX7    X5          COPY SYMBOL TABLE ENTRY                             CMP25         29          I
          -CMP042 
 COMPASS            LX6    X4          TO SYSTEM SYMBOL TABLE                              CMP25         30          I
          -CMP042 
 COMPASS            SA7    X2+B1                                                           CMP25         31          I
          -CMP042 
 COMPASS            SA6    X2                                                              CMP25         32          I
          -CMP042 
 COMPASS            NZ     B7,ZEND48   LOOP                                                CMP25         33          I
          -CMP042 
 COMPASS            IX6    X1-X2                                                           CMP042       252     A     
 COMPASS            MI     X6,ZEND64   IF NOT END OF TABLE                                 CMP042       253     A     
 COMPASS            SA6    A2                                                              CMP042       254     A     
 COMPASS                                                                                   COMPASS     8031     A     
 COMPASS  *         PROCESS REFERENCE TABLE.                                               COMPASS     8032     A     
 COMPASS                                                                                   COMPASS     8033     A     
 COMPASS   ZEND50   SA3    LR+1        CHECK IF REFERENCE TABLE REQUIRED                   COMPASS     8034          I
          -CMP19  
 COMPASS            ZR     X3,ZEND100                                                      COMPASS     8035          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 615    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP19  
 COMPASS            SX6    3           SET PASS TO 3                                       COMPASS     8036          I
          -CMP19  
 COMPASS            SA6    PASS                                                            COMPASS     8037          I
          -CMP19  
 COMPASS            MX6    0           CLEAR QUAL VALUE                                    COMPASS     8038          I
          -CMP19  
 COMPASS            SA6    QVAL                                                            COMPASS     8039          I
          -CMP19  
 COMPASS   ZEND46   SA2    L.NRTAB     CLEAR NOREF SYMBOLS                                 COMPASS     8040          I
          -CMP19  
 COMPASS            SA1    O.NRTAB                                                         COMPASS     8041          I
          -CMP19  
 COMPASS            ZR     X2,ZEND47   IF END OF NO REFERANCE TABLE                        COMPASS     8042          I
          -CMP19  
 COMPASS            SX6    X2-1                                                            COMPASS     8043          I
          -CMP19  
 COMPASS            SB7    X1                                                              COMPASS     8044          I
          -CMP19  
 COMPASS            SA6    A2                                                              COMPASS     8045          I
          -CMP19  
 COMPASS            SA1    B7+X6                                                           COMPASS     8046          I
          -CMP19  
 COMPASS            RJ     TLUSYMT                                                         COMPASS     8047          I
          -CMP19  
 COMPASS            ZR     X2,ZEND46   IF NOT FOUND                                        COMPASS     8048          I
          -CMP19  
 COMPASS            SX6    B0          CLEAR OUT SYMBOL TABLE ENTRY                        COMPASS     8049          I
          -CMP19  
 COMPASS            SA6    X3-1                                                            COMPASS     8050          I
          -CMP19  
 COMPASS            EQ     ZEND46      LOOP                                                COMPASS     8051          I
          -CMP19  
 COMPASS   ZEND47   RJ     PRT         PROCESS REFERENCE TABLE                             COMPASS     8052          I
          -CMP19  
 COMPASS   ZEND100  MX6    0                                                               COMPASS     8053          I
          -CMP19  
 COMPASS   ZEND50   RJ     PRT         PROCESS REFERENCE TABLE                             CMP19        108          I
          -CMP042 
 COMPASS   ZEND90   RJ     PRT         PROCESS REFERENCE TABLE                             CMP042       255     A     
 COMPASS                                                                                   CMP30       2826     A     
 COMPASS  *         MAINTAIN LISTING OUTPUT PAGE PARITY.                                   CMP30       2827     A     
 COMPASS                                                                                   CMP30       2828     A     
 COMPASS            SA1    CP.LISTF                                                        CMP30       2829          I
          -CPSA142
 COMPASS            NZ     X1,ZEND95   IF LISTING ON                                       CMP30       2830          I
          -CPSA142
 COMPASS            SA1    =1H-                                                            CMP30       2831          I
          -CPSA142
 COMPASS            BX6    X1          SET SHORT PAGE EJECT                                CMP30       2832          I
          -CPSA142
 COMPASS            SA6    TITBUF                                                          CMP30       2833          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 616    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA142
 COMPASS            EQ     ZEND98                                                          CMP30       2834          I
          -CPSA142
 COMPASS            MX6    42                                                              CPSA142      115     A     
 COMPASS            SA1    E                                                               CPSA142      116     A     
 COMPASS            BX1    X6*X1                                                           CPSA142      117     A     
 COMPASS            ZR     X1,ZEND92   IF NO ERROR LIST                                    CPSA142      118     A     
 COMPASS            SA1    CP.EPAG                                                         CPSA142      119     A     
 COMPASS            MX6    1                                                               CPSA142      120          I
          -CPS236 
 COMPASS            MX6    2                                                               CPS236        62     A     
 COMPASS            BX6    X6*X1       SAVE ERROR PAGE PROPAGATION FLAG                    CPSA142      121     A     
 COMPASS            SA2    EPCNT                                                           CPSA142      122     A     
 COMPASS            BX6    X6+X2       INSERT ERROR PAGE COUNT FOR THIS SUBROUTINE         CPSA142      123     A     
 COMPASS            ZR     X2,ZEND91   IF ERROR PAGE COUNT ZR DONT MODIFY CP.EPAG          CPSA142      124     A     
 COMPASS            SA6    A1          ELSE MODIFY CP.EPAG                                 CPSA142      125     A     
 COMPASS   ZEND91   SA1    CP.PAGE                                                         CPSA142      126     A     
 COMPASS            PL     X1,ZEND92   IF PAGE PROPAGATION ON                              CPSA142      127     A     
 COMPASS            SX6    B0                                                              CPSA142      128     A     
 COMPASS            SA6    EPCNT       CLEAR ERROR FILE PAGE COUNT                         CPSA142      129     A     
 COMPASS   ZEND92   SA1    CP.LISTF                                                        CPSA142      130     A     
 COMPASS            ZR     X1,ZEND98   IF LONG LIST OFF                                    CPSA142      131     A     
 COMPASS   ZEND95   SA1    EOFINP                                                          CMP30       2835     A     
 COMPASS            SA2    PGCNT                                                           CMP30       2836     A     
 COMPASS            ZR     X1,ZEND96   IF NOT END OF SOURCE INPUT                          CMP30       2837     A     
 COMPASS            SA1    CP.BLF                                                          CPSA181       20     A     
 COMPASS            ZR     X1,ZEND98   IF BL IS OFF.                                       CPSA181       21     A     
 COMPASS            LX2    -1                                                              CMP30       2838     A     
 COMPASS            SX6    B1                                                              CMP30       2839     A     
 COMPASS            PL     X2,ZEND98   IF PAGE COUNT IS EVEN                               CMP30       2840     A     
 COMPASS            LX2    1                                                               CMP30       2841     A     
 COMPASS            IX6    X2+X6       ADD ONE TO PAGE COUNT                               CMP30       2842     A     
 COMPASS            SA6    A2                                                              CMP30       2843     A     
 COMPASS                                                                                   CMP30       2844     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       2845     A     
 COMPASS            WRITEW O,(=2L1 ),1 WRITE BLANK PAGE                                    CMP30       2846     A     
 COMPASS            ELSE   1                                                               CMP30       2847     A     
 COMPASS            PUT    O,ZENDA,10                                                      CMP30       2848     A     
 COMPASS                                                                                   CMP30       2849     A     
 COMPASS            EQ     ZEND98                                                          CMP30       2850     A     
 COMPASS   ZEND96   SA1    CP.PAGE                                                         CMP30       2851     A     
 COMPASS            PL     X1,ZEND98   IF PROPAGATING PAGE NUMBERS                         CMP30       2852     A     
 COMPASS            LX2    -1                                                              CMP30       2853     A     
 COMPASS            SX6    B0          CLEAR PAGE COUNT                                    CMP30       2854     A     
 COMPASS            SA6    A2                                                              CMP30       2855     A     
 COMPASS            PL     X2,ZEND97   IF PAGE COUNT WAS EVEN                              CMP30       2856     A     
 COMPASS            SA1    CP.BLF                                                          CPSA235        6     A     
 COMPASS            ZR     X1,ZEND97   IF PAGE PARITY SUPPRESSED                           CPSA235        7     A     
 COMPASS                                                                                   CMP30       2857     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       2858     A     
 COMPASS            WRITEW O,(=2L1 ),1 WRITE BLANK PAGE                                    CMP30       2859     A     
 COMPASS            ELSE   1                                                               CMP30       2860     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 617    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PUT    O,ZENDA,10                                                      CMP30       2861     A     
 COMPASS                                                                                   CMP30       2862     A     
 COMPASS   ZEND97   SA1    E                                                               CMP30       2863     A     
 COMPASS            ZR     X1,ZEND98   IF NO ERROR FILE                                    CMP30       2864     A     
 COMPASS            WEOR   O                                                               CMP30       2865     A     
 COMPASS                                                                                   CMP19        109     A     
 COMPASS  *         FINAL WRAPUP.                                                          CMP19        110     A     
 COMPASS                                                                                   CMP19        111     A     
 COMPASS            MX6    0                                                               CMP19        112          I
          -CMP30  
 COMPASS   ZEND98   MX6    0                                                               CMP30       2866     A     
 COMPASS            SB7    NTABLES-SYMTAB-1                                                COMPASS     8054          I
          -CP096A 
 COMPASS            SA6    L.SYMTAB    EMPTY ASSEMBLY TABLES                               COMPASS     8055     A     
 COMPASS            SB7    NTABLES-USETAB-1                                                CP096A       360     A     
 COMPASS            SA6    L.USETAB                                                        CP096A       361     A     
 COMPASS   +        SB7    B7-B1                                                           COMPASS     8056     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     8057     A     
 COMPASS            NZ     B7,*                                                            COMPASS     8058     A     
 COMPASS            RJ     DFL         DECREASE FL TO LWA TABLES+FLINC             F4810B  F4810B       291          I
          -CPSA125
 COMPASS            SA1    PGCNT       CONTINUE PAGE NUMBER                                COMPASS     8059          I
          -CMP30  
 COMPASS            SA2    PAGE                                                            COMPASS     8060          I
          -CMP30  
 COMPASS   +        SX7    X1                                                              COMPASS     8061          I
          -CMP30  
 COMPASS            NG     X2,*+1                                                          COMPASS     8062          I
          -CMP30  
 COMPASS            SA7    A2                                                              COMPASS     8063          I
          -CMP30  
 COMPASS            SA6    L.INTER                                                         COMPASS     8064          I
          -CMP042 
 COMPASS            SA6    MAXCORE                                                         COMPASS     8065          I
          -CMP042 
 COMPASS            EQ     EXITP2      EXIT FROM PASS2                                     COMPASS     8066     A     
 COMPASS                                                                                   COMPASS     8067     A     
 COMPASS            IFNE   CP#RM,0,2                                                       CMP30       2867     A     
 COMPASS   ZENDA    LIT    1H1                                                             CMP30       2868     A     
 COMPASS   ZENDB    DATA   C+ERRORS IN ASSEMBLY+                                           CMP30       2869     A     
 COMPASS   ZMSG     BSS    4           ROOM FOR ERROR MESSAGE                              COMPASS     8068     A     
 COMPASS   ZENDC    BSS    1           PPTYPE                                              CPS0343       19     A     
 COMPASS   ENDD     SPACE  4                                                               COMPASS     8069     A     
 COMPASS  ***       ENDD - END DUPLICATION.                                                COMPASS     8070     A     
 COMPASS  *                                                                                COMPASS     8071     A     
 COMPASS  *                                                                                COMPASS     8072     A     
 COMPASS  *NAME     ENDD                                                                   COMPASS     8073     A     
 COMPASS  *         TERMINATES RANGE OF (DUP) IF SECOND ADDRESS EXPRESSION WAS             COMPASS     8074     A     
 COMPASS  *         OMITTED IN PRECEDING (DUP).  (NAME) IS AN INSTRUCTION                  COMPASS     8075     A     
 COMPASS  *         BRACKET NAME.                                                          COMPASS     8076     A     
 COMPASS                                                                                   COMPASS     8077     A     
 COMPASS                                                                                   COMPASS     8078     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 618    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            QUAL   PASS1                                                           COMPASS     8079     A     
 COMPASS   ENDD     EQU    CTL300                                                          COMPASS     8080     A     
 COMPASS   ENDD     SPACE  4                                                               COMPASS     8081     A     
 COMPASS  **        ENDD - END DUPLICATION.                                                COMPASS     8082     A     
 COMPASS                                                                                   COMPASS     8083     A     
 COMPASS                                                                                   COMPASS     8084     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8085     A     
 COMPASS   ENDD     EQU    ZLIST                                                           COMPASS     8086     A     
 COMPASS   ENDIF    SPACE  4                                                               COMPASS     8087     A     
 COMPASS  ***       ENDIF - CONDITIONAL ASSEMBLY TERMINATOR.                               COMPASS     8088     A     
 COMPASS  *                                                                                COMPASS     8089     A     
 COMPASS  *                                                                                COMPASS     8090     A     
 COMPASS  *NAME     ENDIF                                                                  COMPASS     8091     A     
 COMPASS  *         (NAME) IS THE INSTRUCTION BRACKET NAME OR BLANK.                       COMPASS     8092     A     
 COMPASS  *         (ENDIF) IS IGNORED IF IT APPEARS WITHIN A LINE COUNT                   COMPASS     8093     A     
 COMPASS  *         CONTROLLED RANGE.                                                      COMPASS     8094     A     
 COMPASS                                                                                   COMPASS     8095     A     
 COMPASS                                                                                   COMPASS     8096     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8097     A     
 COMPASS   ENDIF    SA1    IFCNT                                                           COMPASS     8098     A     
 COMPASS            SA2    LOCSYM                                                          COMPASS     8099     A     
 COMPASS            SA3    IFNAME      BRACKET NAME                                        COMPASS     8100     A     
 COMPASS            PL     X1,CTL300                                                       COMPASS     8101     A     
 COMPASS            IX4    X2-X3       COMPARE LOCSYM WITH IF LABEL                        COMPASS     8102     A     
 COMPASS            ZR     X4,ENDIF1   JUMP ON A MATCH                                     COMPASS     8103     A     
 COMPASS            ZR     X2,ENDIF1   OR IF ENDIF HAS BLANK LOCSYM                        COMPASS     8104     A     
 COMPASS            NZ     X3,CTL300                                                       COMPASS     8105     A     
 COMPASS   ENDIF1   MX6    0                                                               COMPASS     8106     A     
 COMPASS            SA6    A1                                                              COMPASS     8107     A     
 COMPASS            EQ     CTL300                                                          COMPASS     8108     A     
 COMPASS   ENDIF    SPACE  4                                                               COMPASS     8109     A     
 COMPASS  **        ENDIF - CONDITIONAL ASSEMBLY TERMINATOR.                               COMPASS     8110     A     
 COMPASS                                                                                   COMPASS     8111     A     
 COMPASS                                                                                   COMPASS     8112     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8113     A     
 COMPASS   ENDIF    EQU    ZLIST                                                           COMPASS     8114     A     
 COMPASS   ENDM     SPACE  4                                                               COMPASS     8115     A     
 COMPASS  ***       ENDM - MACRO TERMINATOR.                                               COMPASS     8116     A     
 COMPASS  *                                                                                COMPASS     8117     A     
 COMPASS  *                                                                                COMPASS     8118     A     
 COMPASS  *NAME     ENDM                                                                   COMPASS     8119     A     
 COMPASS  *         (NAME) IS INSTRUCTION BRACKET NAME.  (ENDM) TERMINATES                 COMPASS     8120     A     
 COMPASS  *         A MACRO OR OPDEF DEFINITION.                                           COMPASS     8121     A     
 COMPASS                                                                                   COMPASS     8122     A     
 COMPASS                                                                                   COMPASS     8123     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8124     A     
 COMPASS   ENDM     EQU    CTL300                                                          COMPASS     8125     A     
 COMPASS   ENDM     SPACE  4                                                               COMPASS     8126     A     
 COMPASS  **        ENDM - MACRO TERMINATOR.                                               COMPASS     8127     A     
 COMPASS                                                                                   COMPASS     8128     A     
 COMPASS                                                                                   COMPASS     8129     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8130     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 619    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ENDM     EQU    ZLIST                                                           COMPASS     8131     A     
 COMPASS   ENDX     SPACE  4                                                               COMPASS     8132     A     
 COMPASS  ***       ENDX - END OF COMMON DECK TEXT.                                        COMPASS     8133     A     
 COMPASS  *                                                                                COMPASS     8134     A     
 COMPASS  *                                                                                COMPASS     8135     A     
 COMPASS  *         ENDX                                                                   COMPASS     8136     A     
 COMPASS  *         CLEAR XTEXT FLAG FOR LIST CONTROL.                                     COMPASS     8137     A     
 COMPASS                                                                                   COMPASS     8138     A     
 COMPASS                                                                                   COMPASS     8139     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8140     A     
 COMPASS   ENDX     RJ     CWI         WRITE INTERMEDIATE                                  COMPASS     8141     A     
 COMPASS            SX6    B0          CLEAR XTEXT FLAG                                    COMPASS     8142          I
          -CMP036 
 COMPASS            SA6    LIBFLG                                                          COMPASS     8143          I
          -CMP036 
 COMPASS            SA1    XLEV        DECREASE NESTING LEVEL                     P036  28 CMP036        13     A     
 COMPASS            ZR     X1,CTL100   IGNORE IF NO MATCHING *CTEXT*                       CPS010        49     A     
 COMPASS            SX6    X1-1                                                   P036  29 CMP036        14     A     
 COMPASS   +        NZ     X6,*+1                                                 P036  30 CMP036        15     A     
 COMPASS            SA6    LIBFLG      CLEAR XTEXT FLAG                           P036  31 CMP036        16     A     
 COMPASS   +        SA6    A1                                                     P036  32 CMP036        17     A     
 COMPASS            EQ     CTL100      READ NEXT CARD                                      COMPASS     8144     A     
 COMPASS   ENDX     SPACE  4                                                               COMPASS     8145     A     
 COMPASS  **        ENDX - END OF COMMON DECK TEXT.                                        COMPASS     8146     A     
 COMPASS                                                                                   COMPASS     8147     A     
 COMPASS                                                                                   COMPASS     8148     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8149     A     
 COMPASS   ENDX     EQU    ZLIST                                                           COMPASS     8150     A     
 COMPASS   ENTRY    SPACE  4                                                               COMPASS     8151     A     
 COMPASS  ***       ENTRY - ENTRY POINTS.                                                  COMPASS     8152     A     
 COMPASS  *                                                                                COMPASS     8153     A     
 COMPASS  *                                                                                COMPASS     8154     A     
 COMPASS  *         ENTRY  SYM1,SYM2,...,SYMN                                              COMPASS     8155     A     
 COMPASS  *         DECLARES ENTRY POINTS.  MAXIMUM OF 7 CHARACTERS PER SYMBOL             COMPASS     8156     A     
 COMPASS  *         THE FIRST CHARACTER MUST BE A CHARACTER FROM A TO Z.                   COMPASS     8157     A     
 COMPASS                                                                                   COMPASS     8158     A     
 COMPASS                                                                                   COMPASS     8159     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8160     A     
 COMPASS   ENTRY    SA1    MACHINE                                                         COMPASS     8161     A     
 COMPASS            NZ     X1,CTL80    ERROR IF PP CODING                                  COMPASS     8162     A     
 COMPASS            MX6    0                                                               CMP30       2870     A     
 COMPASS            SA6    P1TEMP      CLEAR CONDITIONAL FLAG                              CMP30       2871     A     
 COMPASS   ENTRY1   SA1    CHAR                                                            COMPASS     8163     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     8164     A     
 COMPASS            SB6    X1-1R0                                                          COMPASS     8165          I
          -CMP30  
 COMPASS            ZR     B7,CTL300   STOP ON BLANK                                       COMPASS     8166          I
          -CMP1   
 COMPASS            ZR     B7,CTL70    STOP ON BLANK                                       CMP1           3     A     
 COMPASS            RJ     SCLIST      FETCH NEXT ITEM                                     COMPASS     8167     A     
 COMPASS            ZR     X6,ENTRY1   IGNORE EMPTY FIELD                                  COMPASS     8168     A     
 COMPASS            RJ     VFYLINK     CHECK SYMBOL FORMAT                                 COMPASS     8169     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 620    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X7,ENTRY2                                                       COMPASS     8170     A     
 COMPASS            SX6    B1                                                              COMPASS     8171     A     
 COMPASS            SA6    AERR        NOTE BAD SYMBOL                                     COMPASS     8172     A     
 COMPASS            SA6    EFLG                                                            COMPASS     8173     A     
 COMPASS            EQ     ENTRY1      GO BACK FOR MORE                                    COMPASS     8174     A     
 COMPASS   ENTRY2   SA1    O.EPTAB     SEARCH EPTAB FOR THIS ENTRY                         COMPASS     8175     A     
 COMPASS            SA2    L.EPTAB                                                         COMPASS     8176     A     
 COMPASS            SA3    P1TEMP                                                          CMP30       2872     A     
 COMPASS            SB7    X2-1                                                            COMPASS     8177     A     
 COMPASS            ZR     X2,ENTRY4   IF TABLE EMPTY                                      COMPASS     8178     A     
 COMPASS            MX0    1                                                               CMP30       2873     A     
 COMPASS   ENTRY3   SA5    X1+B7                                                           COMPASS     8179     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     8180     A     
 COMPASS            IX4    X6-X5                                                           COMPASS     8181          I
          -CMP30  
 COMPASS            ZR     X4,ENTRY1   IGNORE DIPLICATE NAME                               COMPASS     8182          I
          -CMP30  
 COMPASS            BX4    -X0*X5                                                          CMP30       2874     A     
 COMPASS            IX2    X6-X4                                                           CMP30       2875     A     
 COMPASS            ZR     X2,ENTRY5   IF DUPLICATE NAME                                   CMP30       2876     A     
 COMPASS            PL     B7,ENTRY3                                                       COMPASS     8183     A     
 COMPASS   ENTRY4   BX1    X6                                                              COMPASS     8184          I
          -CMP30  
 COMPASS   ENTRY4   BX1    X6+X3                                                           CMP30       2877     A     
 COMPASS            ADDWORD EPTAB      ADD ENTRY TO EPTAB                                  COMPASS     8185     A     
 COMPASS            EQ     ENTRY1                                                          CMP30       2878     A     
 COMPASS   ENTRY5   IX1    X6+X3       CLEAR CONDITIONAL FLAG IF SYMBOL IS                 CMP30       2879     A     
 COMPASS            BX6    X1*X5       DECLARED BY BOTH *ENTRY* AND *ENTRYC*               CMP30       2880     A     
 COMPASS            SA6    A5                                                              CMP30       2881     A     
 COMPASS            EQ     ENTRY1      AND RETURN FOR MORE ENTRY POINTS                    COMPASS     8186     A     
 COMPASS   ENTRY    SPACE  4                                                               COMPASS     8187     A     
 COMPASS  **        ENTRY - ENTRY POINTS.                                                  COMPASS     8188     A     
 COMPASS                                                                                   COMPASS     8189     A     
 COMPASS                                                                                   COMPASS     8190     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8191     A     
 COMPASS   ENTRY    SA1    EFLG                                                            COMPASS     8192     A     
 COMPASS            NZ     X1,ZLIST    IF ERROR IN PASS 1                                  COMPASS     8193     A     
 COMPASS            SX6    1RE                                                             COMPASS     8194     A     
 COMPASS            SA6    REFLET                                                          COMPASS     8195     A     
 COMPASS            MX1    0           SET BLANK QUALIFIER                                 CMP19        113     A     
 COMPASS            RJ     SQV                                                             CMP19        114     A     
 COMPASS   ENT1     SA1    CHAR                                                            COMPASS     8196     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     8197     A     
 COMPASS            ZR     B7,ENT6     STOP ON BLANK                                       COMPASS     8198     A     
 COMPASS            RJ     SCLIST      FETCH NEXT ITEM                                     COMPASS     8199     A     
 COMPASS            ZR     X6,ENT1     INGORE EMPTY FIELD                                  COMPASS     8200          I
          -CPS010 
 COMPASS            ZR     X6,ENT1     IGNORE EMPTY FIELD                                  CPS010        50     A     
 COMPASS            MX7    0                                                               COMPASS     8201     A     
 COMPASS            BX1    X6                                                              COMPASS     8202     A     
 COMPASS            SA7    EXERR                                                           COMPASS     8203     A     
 COMPASS            RJ     ZTLUSYM     LOOK UP SYMBOL                                      COMPASS     8204     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 621    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    ELVAL       ERROR IF EXTERNAL OR NEGATIVE                       COMPASS     8205          I
          -CMP031 
 COMPASS            SA3    =7A*******                                                      COMPASS     8206          I
          -CMP031 
 COMPASS            SA1    ELVAL       SET U-ERROR IF EXTERNAL                             COMPASS     8207     A     
 COMPASS            SA2    ELEXT                                                           COMPASS     8208     A     
 COMPASS            SX6    B1                                                              COMPASS     8209     A     
 COMPASS            SA3    EXERR       CHECK EXPRESSION ERROR                              COMPASS     8210     A     
 COMPASS            BX2    X3+X2                                                           COMPASS     8211     A     
 COMPASS            SA4    ELREL                                                           CPS010        51     A     
 COMPASS            NZ     X2,ENT4     IF BAD ENTRY POINT                                  COMPASS     8212     A     
 COMPASS            SB7    X1          OCTAL NUMBER                                        COMPASS     8213          I
          -CMP30  
 COMPASS            PL     B7,ENT1     IF NOT NEGATIVE                                     COMPASS     8214          I
          -CMP30  
 COMPASS            SA6    NERR                                                            COMPASS     8215          I
          -CMP30  
 COMPASS            SA2    ELREL                                                           CMP30       2882          I
          -CPS010 
 COMPASS            MI     X1,ENT3     IF VALUE IS NEGATIVE                                CMP30       2883          I
          -CPS010 
 COMPASS            AX2    8                                                               CMP30       2884          I
          -CPS010 
 COMPASS            ZR     X2,ENT1     IF RELOCATION NOT NEGATIVE                          CMP30       2885          I
          -CPS010 
 COMPASS            SX7    X4-401B                                                         CPS010        52          I
          -CPS251 
 COMPASS            LX4    59-8                                                            CPS010        53          I
          -CPS251 
 COMPASS            PL     X4,ENT2     IF POSITIVE RELOCATION                              CPS010        54          I
          -CPS251 
 COMPASS            NZ     X7,ENT3     IF NOT PROGRAM RELOCATION                           CPS010        55          I
          -CPS251 
 COMPASS   ENT2     PL     X1,ENT1     IF NOT LESS THAN BLOCK ORIGIN                       CPS010        56          I
          -CPS251 
 COMPASS            SX7    X4-402B                                                         CPS251         5     A     
 COMPASS            MI     X7,ENT1     IF NOT NEGATIVE COMMON RELOCATION                   CPS251         6     A     
 COMPASS   ENT3     SA6    NERR                                                            CMP30       2886     A     
 COMPASS            EQ     ENT5                                                            COMPASS     8216     A     
 COMPASS   ENT4     SA6    UERR                                                            COMPASS     8217     A     
 COMPASS   ENT5     SA6    EFLG                                                            COMPASS     8218     A     
 COMPASS            EQ     ENT1        LOOP                                                COMPASS     8219     A     
 COMPASS   ENT6     SX6    1R                                                              COMPASS     8220          I
          -CMP19  
 COMPASS   ENT6     SA1    QVAL+1      RESTORE QUAL VALUE                                  CMP19        115     A     
 COMPASS            SX6    1R                                                              CMP19        116     A     
 COMPASS            BX7    X1                                                              CMP19        117     A     
 COMPASS            SA6    REFLET                                                          COMPASS     8221     A     
 COMPASS            SA7    A1-B1                                                           CMP19        118     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     8222     A     
 COMPASS   ENTRYC   SPACE  4                                                               CMP30       2887     A     
 COMPASS  ***       ENTRYC - CONDITIONAL ENTRY POINTS.                                     CMP30       2888     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 622    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                CMP30       2889     A     
 COMPASS  *                                                                                CMP30       2890     A     
 COMPASS  *         ENTRYC SYM1,SYM2,...,SYMN                                              CMP30       2891     A     
 COMPASS  *         DECLARES CONDITIONAL ENTRY POINTS.  MAXIMUM OF 7 CHARACTERS            CMP30       2892     A     
 COMPASS  *         PER SYMBOL.  FIRST CHARACTER MUST BE A LETTER FROM A TO Z.             CMP30       2893     A     
 COMPASS  *         IN A RELOCATABLE ASSEMBLY, IF THE VALUE OF A CONDITIONAL               CMP30       2894     A     
 COMPASS  *         ENTRY POINT IS RELATIVE TO A COMMON BLOCK, LOADER IGNORES              CMP30       2895     A     
 COMPASS  *         THE DECLARATION IF THAT COMMON BLOCK WAS FIRST DECLARED BY             CMP30       2896     A     
 COMPASS  *         AN EARLIER SUBPROGRAM.  IF SYMBOL VALUE IS ABSOLUTE OR                 CMP30       2897     A     
 COMPASS  *         LOCAL, (ENTRYC) IS THE SAME AS (ENTRY).                                CMP30       2898     A     
 COMPASS                                                                                   CMP30       2899     A     
 COMPASS                                                                                   CMP30       2900     A     
 COMPASS            QUAL   PASS1                                                           CMP30       2901     A     
 COMPASS   ENTRYC   SA1    ABSFG                                                           CMP30       2902     A     
 COMPASS            NZ     X1,ENTRY    IF ABSOLUTE ASSEMBLY                                CMP30       2903     A     
 COMPASS            MX6    1                                                               CMP30       2904     A     
 COMPASS            SA6    P1TEMP      SET CONDITIONAL FLAG                                CMP30       2905     A     
 COMPASS            EQ     ENTRY1                                                          CMP30       2906     A     
 COMPASS   ENTRYC   SPACE  4                                                               CMP30       2907     A     
 COMPASS  **        ENTRYC - CONDITIONAL ENTRY POINTS.                                     CMP30       2908     A     
 COMPASS                                                                                   CMP30       2909     A     
 COMPASS                                                                                   CMP30       2910     A     
 COMPASS            QUAL   PASS2                                                           CMP30       2911     A     
 COMPASS   ENTRYC   EQU    ENTRY                                                           CMP30       2912     A     
 COMPASS   EQU      SPACE  4                                                               COMPASS     8223     A     
 COMPASS  ***       EQU - SYMBOL DEFINITION.                                               COMPASS     8224     A     
 COMPASS  *                                                                                COMPASS     8225     A     
 COMPASS  *                                                                                COMPASS     8226     A     
 COMPASS  *SYM      EQU    EXP                                                             COMPASS     8227     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE ADDRESS EXPRESSION.                 COMPASS     8228     A     
 COMPASS                                                                                   COMPASS     8229     A     
 COMPASS                                                                                   COMPASS     8230     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8231     A     
 COMPASS   EQU      SA1    LIBFLG                                                          COMPASS     8232     A     
 COMPASS            LX6    X1,B1                                                           COMPASS     8233     A     
 COMPASS            EQ     EQU1                                                            COMPASS     8234     A     
 COMPASS   EQU      SPACE  4                                                               COMPASS     8235     A     
 COMPASS  **        EQU - SYMBOL DEFINITION.                                               COMPASS     8236     A     
 COMPASS                                                                                   COMPASS     8237     A     
 COMPASS                                                                                   COMPASS     8238     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8239     A     
 COMPASS   EQU      MX6    0                                                               COMPASS     8240     A     
 COMPASS            EQ     SETEQU                                                          COMPASS     8241     A     
 COMPASS   ERR      SPACE  4                                                               COMPASS     8242     A     
 COMPASS  ***       ERR - FORCED ERROR.                                                    COMPASS     8243     A     
 COMPASS  *                                                                                COMPASS     8244     A     
 COMPASS  *                                                                                COMPASS     8245     A     
 COMPASS  *TYPE     ERR                                                                    COMPASS     8246     A     
 COMPASS  *         AN ERROR OF TYPE (TYPE) IS PRODUCED.  IF (TYPE) IS MISSING             COMPASS     8247     A     
 COMPASS  *         OR NOT VALID, A *P* ERROR IS PRODUCED.                                 COMPASS     8248     A     
 COMPASS                                                                                   COMPASS     8249     A     
 COMPASS                                                                                   COMPASS     8250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 623    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            QUAL   PASS1                                                           COMPASS     8251     A     
 COMPASS   ERR      EQU    CTL70                                                           COMPASS     8252     A     
 COMPASS   ERR      SPACE  4                                                               COMPASS     8253     A     
 COMPASS  **        ERR - FORCED ERROR.                                                    COMPASS     8254     A     
 COMPASS                                                                                   COMPASS     8255     A     
 COMPASS                                                                                   COMPASS     8256     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8257     A     
 COMPASS   ERR      SA1    LOCSYM      CHECK ERROR TYPE                                    COMPASS     8258     A     
 COMPASS            SB7    LEFLG                                                           COMPASS     8259     A     
 COMPASS            SA2    ERRLETS                                                         COMPASS     8260     A     
 COMPASS            SB6    B0                                                              COMPASS     8261     A     
 COMPASS            SX7    B1                                                              COMPASS     8262     A     
 COMPASS   ERR1     BX6    X1-X2                                                           COMPASS     8263     A     
 COMPASS            ZR     X6,ERR2     IF ERROR TYPE FOUND                                 COMPASS     8264     A     
 COMPASS            SB6    B6+B1                                                           COMPASS     8265     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     8266     A     
 COMPASS            NE     B6,B7,ERR1  LOOP                                                COMPASS     8267     A     
 COMPASS            SB6    PERR-ERFLAGS                                                    COMPASS     8268     A     
 COMPASS   ERR2     SA7    ERFLAGS+B6  SET ERROR                                           COMPASS     8269     A     
 COMPASS            SA7    EFLG                                                            COMPASS     8270     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     8271     A     
 COMPASS   ERRIF    SPACE  4                                                               COMPASS     8272     A     
 COMPASS  ***       ERRXX - CONDITIONAL ERROR.                                             COMPASS     8273     A     
 COMPASS  *                                                                                COMPASS     8274     A     
 COMPASS  *                                                                                COMPASS     8275     A     
 COMPASS  *TYPE     ERRXX  AEXP                                                            COMPASS     8276     A     
 COMPASS  *         TESTS AEXP ACCORDING TO MNEMONIC TEST *XX*.  IF (TYPE) IS              COMPASS     8277     A     
 COMPASS  *         BLANK, A *P* ERROR IS GENERATED IF THE TEST IS TRUE.  IF               COMPASS     8278     A     
 COMPASS  *         (TYPE) IS NOT BLANK, A (TYPE) ERROR IS GENERATED.                      COMPASS     8279     A     
 COMPASS  *                                                                                COMPASS     8280     A     
 COMPASS  *             XX             TEST                                                COMPASS     8281     A     
 COMPASS  *                                                                                COMPASS     8282     A     
 COMPASS  *             MI             MINUS                                               CMP30       2913     A     
 COMPASS  *             NG             NEGATIVE                                            COMPASS     8283     A     
 COMPASS  *             NZ             NOT-ZERO                                            COMPASS     8284     A     
 COMPASS  *             PL             POSITIVE                                            COMPASS     8285     A     
 COMPASS  *             ZR             ZERO                                                COMPASS     8286     A     
 COMPASS                                                                                   COMPASS     8287     A     
 COMPASS                                                                                   COMPASS     8288     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8289     A     
 COMPASS   ERRMI    EQU    CTL70                                                           CMP30       2914     A     
 COMPASS   ERRNG    EQU    CTL70                                                           COMPASS     8290     A     
 COMPASS   ERRNZ    EQU    CTL70                                                           COMPASS     8291     A     
 COMPASS   ERRPL    EQU    CTL70                                                           COMPASS     8292     A     
 COMPASS   ERRZR    EQU    CTL70                                                           COMPASS     8293     A     
 COMPASS   ERRIF    SPACE  4                                                               COMPASS     8294     A     
 COMPASS  **        ERRXX - CONDITIONAL ERROR.                                             COMPASS     8295     A     
 COMPASS                                                                                   COMPASS     8296     A     
 COMPASS                                                                                   CMP30       2915     A     
 COMPASS  *TYPE     ERRMI  AEXP                                                            CMP30       2916     A     
 COMPASS                                                                                   CMP30       2917     A     
 COMPASS            QUAL   PASS2                                                           CMP30       2918     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 624    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ERRMI    BSS    0                                                               CMP30       2919     A     
 COMPASS                                                                                   COMPASS     8297     A     
 COMPASS  *TYPE     ERRNG  AEXP                                                            COMPASS     8298     A     
 COMPASS                                                                                   COMPASS     8299     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8300     A     
 COMPASS   ERRNG    SX1    3                                                               COMPASS     8301     A     
 COMPASS            EQ     EIF                                                             COMPASS     8302     A     
 COMPASS                                                                                   COMPASS     8303     A     
 COMPASS  *TYPE     ERRNZ  AEXP                                                            COMPASS     8304     A     
 COMPASS                                                                                   COMPASS     8305     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8306     A     
 COMPASS   ERRNZ    SX1    1                                                               COMPASS     8307     A     
 COMPASS            EQ     EIF                                                             COMPASS     8308     A     
 COMPASS                                                                                   COMPASS     8309     A     
 COMPASS  *TYPE     ERRPL  AEXP                                                            COMPASS     8310     A     
 COMPASS                                                                                   COMPASS     8311     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8312     A     
 COMPASS   ERRPL    SX1    2                                                               COMPASS     8313     A     
 COMPASS            EQ     EIF                                                             COMPASS     8314     A     
 COMPASS                                                                                   COMPASS     8315     A     
 COMPASS  *TYPE     ERRZR  AEXP                                                            COMPASS     8316     A     
 COMPASS                                                                                   COMPASS     8317     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8318     A     
 COMPASS   ERRZR    SX1    0                                                               COMPASS     8319     A     
 COMPASS  *         EQ     EIF                                                             COMPASS     8320     A     
 COMPASS   EIF      SPACE  4                                                               COMPASS     8321     A     
 COMPASS  **        EIF - ERROR IF CONDITION MET.                                          COMPASS     8322     A     
 COMPASS                                                                                   COMPASS     8323     A     
 COMPASS                                                                                   COMPASS     8324     A     
 COMPASS   EIF      SA2    EIFB                                                            COMPASS     8325     A     
 COMPASS            LX1    21                                                              COMPASS     8326     A     
 COMPASS            BX6    X2+X1                                                           COMPASS     8327     A     
 COMPASS            SA6    EIFA                                                            COMPASS     8328     A     
 COMPASS            SX1    60                                                              COMPASS     8329     A     
 COMPASS            SX6    3                                                               COMPASS     8330     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     8331     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     8332     A     
 COMPASS            SX2    36                                                              COMPASS     8333     A     
 COMPASS            MX0    -21                                                             COMPASS     8334          I
          -CPS010 
 COMPASS            BX1    -X0*X1                                                          COMPASS     8335          I
          -CPS010 
 COMPASS            MX3    0                                                               COMPASS     8336     A     
 COMPASS            RJ     PACKO       CALL PACKO(EXVAL,36,7)                              COMPASS     8337     A     
 COMPASS                                                                                   COMPASS     8338     A     
 COMPASS   EIFA     SA1    EXVAL       EXPRESSION TEST                                     COMPASS     8339     A     
 COMPASS            ZR     X1,ERR                                                          COMPASS     8340     A     
 COMPASS                                                                                   COMPASS     8341     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     8342     A     
 COMPASS                                                                                   COMPASS     8343     A     
 COMPASS   EIFB     SA1    EXVAL       EXPRESSION TEST                                     COMPASS     8344     A     
 COMPASS            ZR     X1,ERR                                                          COMPASS     8345     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 625    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   EXT      SPACE  4                                                               COMPASS     8346     A     
 COMPASS  ***       EXT - EXTERNAL NAMES.                                                  COMPASS     8347     A     
 COMPASS  *                                                                                COMPASS     8348     A     
 COMPASS  *                                                                                COMPASS     8349     A     
 COMPASS  *         EXT    SYM1,SYM2,,,,SYMN                                               COMPASS     8350     A     
 COMPASS  *         DECLARES EXTERNAL NAMES.  MAXIMUM OF 7 CHARACTERS.                     COMPASS     8351     A     
 COMPASS                                                                                   COMPASS     8352     A     
 COMPASS                                                                                   COMPASS     8353     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8354     A     
 COMPASS   EXT      SA1    ABSFG                                                           COMPASS     8355     A     
 COMPASS            NZ     X1,CTL80    COMPLAIN IF ABSOLUTE CODING                         COMPASS     8356     A     
 COMPASS            MX1    0           SET BLANK QUALIFIER                                 CMP19        119     A     
 COMPASS            RJ     SQV                                                             CMP19        120     A     
 COMPASS   EXT1     SA1    CHAR                                                            COMPASS     8357     A     
 COMPASS            SB7    X1-1R       QUIT ON BLANK                                       COMPASS     8358     A     
 COMPASS            ZR     B7,CTL300                                                       COMPASS     8359          I
          -CMP19  
 COMPASS            SB6    X1-1R0                                                          COMPASS     8360          I
          -CMP19  
 COMPASS            ZR     B7,EXT5                                                         CMP19        121     A     
 COMPASS            RJ     SCLIST                                                          COMPASS     8361     A     
 COMPASS            ZR     X6,EXT1     IGNORE EMPTY FIELD                                  COMPASS     8362     A     
 COMPASS            RJ     VFYLINK                                                         COMPASS     8363     A     
 COMPASS            ZR     X7,EXT2                                                         COMPASS     8364     A     
 COMPASS            SX6    B1                                                              COMPASS     8365     A     
 COMPASS            SA6    AERR        COMPLAIN OF TOO LONG AN EXT NAME                    COMPASS     8366     A     
 COMPASS            SA6    EFLG                                                            COMPASS     8367     A     
 COMPASS            EQ     EXT1                                                            COMPASS     8368     A     
 COMPASS   EXT2     SA6    P1TEMP                                                          COMPASS     8369     A     
 COMPASS            BX1    X6                                                              COMPASS     8370          I
          -CPS002 
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS     8371     A     
 COMPASS            LX2    59-31       CHECK IF EXTERNAL                                   COMPASS     8372     A     
 COMPASS            NG     X2,EXT4     JUMP IF ALREADY EXTERNAL                            COMPASS     8373     A     
 COMPASS            LX2    1                                                               COMPASS     8374     A     
 COMPASS            NG     X2,EXT3     JUMP IF CURRENTLY DEFINED                           COMPASS     8375     A     
 COMPASS            SA2    L.EXTAB                                                         CPS0253        4     A     
 COMPASS            SB7    X2-777B                                                         CPS0253        5     A     
 COMPASS            PL     B7,EXT4A    IF EXCEEDS 511 EXTERNALS                            CPS0253        6     A     
 COMPASS            MANAGE EXTAB,1     EXTER INTO EXTAB                                    COMPASS     8376     A     
 COMPASS            SB7    X3-1                                                            COMPASS     8377     A     
 COMPASS            SA1    P1TEMP                                                          COMPASS     8378     A     
 COMPASS            BX6    X1                                                              COMPASS     8379     A     
 COMPASS            SA6    X2+B7                                                           COMPASS     8380     A     
 COMPASS            BX4    X3          EXTERNAL SYMBOL NUMBER                              COMPASS     8381     A     
 COMPASS            SX5    B0                                                              COMPASS     8382     A     
 COMPASS            BX1    X6                                                              COMPASS     8383     A     
 COMPASS            MX2    0                                                               COMPASS     8384     A     
 COMPASS            SX3    B0                                                              COMPASS     8385     A     
 COMPASS            RJ     YDEFSYM     DEFINE SYMBOL                                       COMPASS     8386     A     
 COMPASS            EQ     EXT1        AND GO BACK FOR MORE                                COMPASS     8387     A     
 COMPASS   EXT4     SA4    X3          FETCH EQUIVALENT (KNOWN EXTERNAL)                   COMPASS     8388          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 626    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CP096A 
 COMPASS   EXT4     RX4    X3          KNOWN EXTERNAL, FETCH EQUIVALENT                    CP096A       362     A     
 COMPASS            MX0    39                                                              COMPASS     8389     A     
 COMPASS            BX2    -X0*X4                                                          COMPASS     8390     A     
 COMPASS            NZ     X2,EXT3                                                         COMPASS     8391     A     
 COMPASS            MX0    51                                                              COMPASS     8392     A     
 COMPASS            AX4    21                                                              COMPASS     8393     A     
 COMPASS            BX2    -X0*X4      EXTRACT EXTERNAL NUMBER                             COMPASS     8394     A     
 COMPASS            SA3    O.EXTAB                                                         COMPASS     8395     A     
 COMPASS            SB7    X3-1                                                            COMPASS     8396     A     
 COMPASS            SA4    X2+B7                                                           COMPASS     8397     A     
 COMPASS            BX3    X4-X1                                                           COMPASS     8398     A     
 COMPASS            ZR     X3,EXT1     ERROR IF NOT PRIMITIVE EXTERNAL                     COMPASS     8399     A     
 COMPASS   EXT3     SX6    B1          COMPLAIN OF DUPLICATE SYMBOL                        COMPASS     8400     A     
 COMPASS            SA6    EFLG                                                            COMPASS     8401     A     
 COMPASS   +        SA6    DERR                                                            COMPASS     8402     A     
 COMPASS            EQ     EXT1                                                            COMPASS     8403     A     
 COMPASS                                                                                   CPS0253        7     A     
 COMPASS   EXT4A    SX6    B1                                                              CPS0253        8     A     
 COMPASS            SA6    EFLG                                                            CPS0253        9     A     
 COMPASS            SA6    FERR                                                            CPS0253       10     A     
 COMPASS   EXT5     SA1    QVAL+1      RESTORE QUAL VALUE                                  CMP19        122     A     
 COMPASS            BX6    X1                                                              CMP19        123     A     
 COMPASS            SA6    A1-B1                                                           CMP19        124     A     
 COMPASS            EQ     CTL300                                                          CMP19        125     A     
 COMPASS   EXT      SPACE  4                                                               COMPASS     8404     A     
 COMPASS  **        EXT - EXTERNAL NAMES.                                                  COMPASS     8405     A     
 COMPASS                                                                                   COMPASS     8406     A     
 COMPASS                                                                                   COMPASS     8407     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8408     A     
 COMPASS   EXT      EQU    ZLIST                                                           COMPASS     8409          I
          -CMP041 
 COMPASS   EXT      SA2    EFLG                                                            CMP041         8          I
          -CPS003 
 COMPASS            MX1    0                                                               CMP041         9          I
          -CPS003 
 COMPASS            NZ     X2,ZLIST    IF ERROR IN PASS 1                                  CMP041        10          I
          -CPS003 
 COMPASS   EXT      MX1    0                                                      S003   6 CPS003         1     A     
 COMPASS            RJ     SQV         SET BLANK QUALIFIER                                 CMP041        11     A     
 COMPASS   EXT1     SA1    CHAR                                                            CMP041        12     A     
 COMPASS            SB7    X1-1R                                                           CMP041        13     A     
 COMPASS            ZR     B7,EXT2     STOP ON BLANK                                       CMP041        14     A     
 COMPASS            RJ     SCLIST      FETCH NEXT ITEM                                     CMP041        15     A     
 COMPASS            ZR     X6,EXT1     IGNORE EMPTY FIELD                                  CMP041        16     A     
 COMPASS            BX1    X6                                                              CMP30       2920          I
          -CPS003 
 COMPASS            BX1    X6                                                     S003   8 CPS003         2     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      CMP041        17     A     
 COMPASS            ZR     X3,EXT1     IF NOT FOUND                               S003  10 CPS003         3     A     
 COMPASS            SX1    1RX                                                             CMP041        18     A     
 COMPASS            RJ     ENTREF      ENTER REFERENCE TABLE                               CMP041        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/28. 19.11.32.      PAGE 627    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     EXT1        LOOP                                                CMP041        20     A     
 COMPASS   EXT2     SA1    QVAL+1      RESTORE QUAL VALUE                                  CMP041        21     A     
 COMPASS            BX7    X1                                                              CMP041        22     A     
 COMPASS            SA7    A1-B1                                                           CMP041        23     A     
 COMPASS            EQ     ZLIST                                                           CMP041        24     A     
 COMPASS   HERE     SPACE  4                                                               COMPASS     8410     A     
 COMPASS  ***       HERE - ASSEMBLE RMT CODE.                                              COMPASS     8411     A     
 COMPASS  *                                                                                COMPASS     8412     A     
 COMPASS  *                                                                                COMPASS     8413     A     
 COMPASS  *NAME     HERE                                                                   COMPASS     8414     A     
 COMPASS  *         SAVED REMOTE INSTRUCTIONS ARE ASSEMBLED AT THIS POINT.                 COMPASS     8415     A     
 COMPASS  *         (NAME) = NAME OF LABELED REMOTE GROUP.                                 COMPASS     8416     A     
 COMPASS                                                                                   COMPASS     8417     A     
 COMPASS                                                                                   COMPASS     8418     A     
 COMPASS            SEG    PSEUDO-OP PROCESSING (F-Q).                                     CMP30       2921     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8419     A     
 COMPASS   HERE     SX6    1RT                                                             COMPASS     8420     A     
 COMPASS            SA6    STYPE       SET TERMINATION                                     COMPASS     8421     A     
 COMPASS            SX7    B1                                                              COMPASS     8422     A     
 COMPASS            SA7    TXTFLG      SET TEXT DEFINITION FLAG                            COMPASS     8423     A     
 COMPASS            MX6    0           PERMIT REPACKING                                    COMPASS     8424     A     
 COMPASS            SA6    SQLGN                                                           COMPASS     8425     A     
 COMPASS            RJ     CRL         CHECK RECURSION LIMIT                      S004  15 CPS004         5     A     
 COMPASS            RJ     CWI                                                             COMPASS     8426     A     
 COMPASS            SA1    L.RASTAB                                                        COMPASS     8427     A     
 COMPASS            BX6    X1                                                              COMPASS     8428     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS     8429     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS     8430     A     
 COMPASS            SA2    BADLOC                                                          COMPASS     8431     A     
 COMPASS            ZR     X1,HEREPK   IF UNLABELED RMT                                    COMPASS     8432     A     
 COMPASS            SX6    B1                                                              COMPASS     8433     A     
 COMPASS            ZR     X2,HRE1     IF NO LOCATION ERROR                                COMPASS     8434     A     
 COMPASS            SA6    LERR                                                            COMPASS     8435     A     
 COMPASS            SA6    EFLG                                                            COMPASS     8436     A     
 COMPASS   HRE1     SA4    O.LRMTAB    SEARCH FOR START OF LABELED RMT                     COMPASS     8437     A     
 COMPASS            SA3    L.LRMTAB                                                        COMPASS     8438     A     
 COMPASS            SB6    X4                                                              COMPASS     8439     A     
 COMPASS            SB7    B6+X3                                                           COMPASS     8440     A     
 COMPASS            MX0    12                                                              COMPASS     8441     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS     8442     A     
 COMPASS   HRE2     EQ     B6,B7,HRE6  IF END OF LABELED RMT                               COMPASS     8443     A     
 COMPASS            SA2    B6                                                              COMPASS     8444     A     
 COMPASS            BX6    X2-X1                                                           COMPASS     8445     A     
 COMPASS            SB6    B6+B1                                                           COMPASS     8446     A     
 COMPASS            NZ     X6,HRE2     LOOP                                                COMPASS     8447     A     
 COMPASS            SX7    B6          SEARCH FOR END OF GROUP                             COMPASS     8448     A     
 COMPASS   HRE3     EQ     B6,B7,HRE4  IF END OF LABELED RMT                               COMPASS     8449     A     
 COMPASS            SA2    B6                                                              COMPASS     8450     A     
 COMPASS            BX6    X0*X2                                                           COMPASS     8451     A     
 COMPASS            SB6    B6+B1                                                           COMPASS     8452     A     
 COMPASS            ZR     X2,HRE3     LOOP IF END-OF-LINE                                 COMPASS     8453     A     
 COMPASS            NZ     X6,HRE3     LOOP IF NOT NEXT LABEL                              COMPASS     8454     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 628    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB6    B6-B1                                                           COMPASS     8455     A     
 COMPASS   HRE4     IX6    X7-X4       SET REMOTE INDEX                                    COMPASS     8456     A     
 COMPASS            SA6    P1TEMPA                                                         COMPASS     8457     A     
 COMPASS            SX2    B6          SET LENGTH                                          COMPASS     8458     A     
 COMPASS            IX6    X2-X7                                                           COMPASS     8459     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     8460     A     
 COMPASS            ZR     X6,HRE5     IF ZERO LENGTH RMT                                  COMPASS     8461     A     
 COMPASS            MANAGE RASTAB,X6   TRANSFER TEXT                                       COMPASS     8462     A     
 COMPASS            SA1    P1TEMPB                                                         COMPASS     8463     A     
 COMPASS            SA4    O.LRMTAB                                                        COMPASS     8464     A     
 COMPASS            SA5    A1-B1                                                           COMPASS     8465     A     
 COMPASS            IX3    X2+X3                                                           COMPASS     8466     A     
 COMPASS            IX3    X3-X1                                                           COMPASS     8467     A     
 COMPASS            IX2    X4+X5                                                           COMPASS     8468     A     
 COMPASS            RJ     MOVE                                                            COMPASS     8469     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       256     A     
 COMPASS   HRE5     SA1    L.LRMTAB    DELETE TEXT FROM LRMTAB                             COMPASS     8470     A     
 COMPASS            SA2    O.LRMTAB                                                        COMPASS     8471     A     
 COMPASS            SA3    P1TEMPA                                                         COMPASS     8472     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     8473     A     
 COMPASS            SX5    B1                                                              COMPASS     8474     A     
 COMPASS            IX7    X2+X1                                                           COMPASS     8475     A     
 COMPASS            IX3    X3+X2                                                           COMPASS     8476     A     
 COMPASS            IX2    X3+X4                                                           COMPASS     8477     A     
 COMPASS            IX3    X3-X5                                                           COMPASS     8478     A     
 COMPASS            IX6    X2-X3                                                           COMPASS     8479     A     
 COMPASS            IX6    X1-X6                                                           COMPASS     8480     A     
 COMPASS            IX1    X7-X2                                                           COMPASS     8481     A     
 COMPASS            SA6    A1                                                              COMPASS     8482     A     
 COMPASS            ZR     X6,HRE6     IF END OF LABELED RMT TABLE                         COMPASS     8483     A     
 COMPASS            ZR     X1,HRE1     IF NO DATA TO MOVE                                  COMPASS     8484     A     
 COMPASS            RJ     MOVE                                                            COMPASS     8485     A     
 COMPASS            EQ     HRE1        LOOP                                                COMPASS     8486     A     
 COMPASS   HRE6     PCARD  RASTAB      PACK TERMINATION CARD                               COMPASS     8487     A     
 COMPASS            SA4    LOCSYM                                                          COMPASS     8488     A     
 COMPASS            EQ     HEREPK1                                                         COMPASS     8489     A     
 COMPASS                                                                                   COMPASS     8490     A     
 COMPASS  *         END CARD PROCESSING COMES HERE TO ASSEMBLE ALL WAITING                 COMPASS     8491     A     
 COMPASS  *         RMT CODE.                                                              COMPASS     8492     A     
 COMPASS                                                                                   COMPASS     8493     A     
 COMPASS   HEREPK   PCARD  RMTAB       PACK TERMINATION CARD                               COMPASS     8494     A     
 COMPASS            SA1    L.RASTAB                                                        COMPASS     8495     A     
 COMPASS            BX6    X1                                                              COMPASS     8496     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS     8497     A     
 COMPASS            SA1    L.RMTAB                                                         COMPASS     8498     A     
 COMPASS            MANAGE RASTAB,X1                                                       COMPASS     8499     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       257     A     
 COMPASS            SA2    O.RASTAB                                                        CMP042       258     A     
 COMPASS            SA3    L.RASTAB                                                        CMP042       259     A     
 COMPASS            SA1    L.RMTAB                                                         COMPASS     8500     A     
 COMPASS            IX2    X3+X2                                                           COMPASS     8501     A     
 COMPASS            IX3    X2-X1                                                           COMPASS     8502     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 629    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    O.RMTAB                                                         COMPASS     8503     A     
 COMPASS            MX6    0                                                               COMPASS     8504     A     
 COMPASS            SA6    A1                                                              COMPASS     8505     A     
 COMPASS            RJ     MOVE                                                            COMPASS     8506     A     
 COMPASS            SA4    =5R*RMT*                                                        COMPASS     8507     A     
 COMPASS   HEREPK1  SA1    P1TEMP                                                          COMPASS     8508     A     
 COMPASS            SX2    3           TYPE 3                                              COMPASS     8509     A     
 COMPASS            SX3    X1                                                              COMPASS     8510     A     
 COMPASS            MX5    0                                                               COMPASS     8511     A     
 COMPASS            RJ     PUSHDOWN                                                        COMPASS     8512     A     
 COMPASS            SX6    B1                                                              COMPASS     8513     A     
 COMPASS            SA6    RMTFLG                                                          COMPASS     8514     A     
 COMPASS            MX7    0                                                               COMPASS     8515     A     
 COMPASS            SA7    TXTFLG                                                          COMPASS     8516     A     
 COMPASS            EQ     CTL100                                                          COMPASS     8517     A     
 COMPASS   HERE     SPACE  4                                                               COMPASS     8518     A     
 COMPASS  **        HERE - ASSEMBLE RMT CODE.                                              COMPASS     8519     A     
 COMPASS                                                                                   COMPASS     8520     A     
 COMPASS                                                                                   COMPASS     8521     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8522     A     
 COMPASS   HERE     EQU    ZLIST                                                           COMPASS     8523     A     
 COMPASS   IDENT    SPACE  4                                                               COMPASS     8524     A     
 COMPASS  ***       IDENT - PROGRAM IDENTIFIER.                                            COMPASS     8525     A     
 COMPASS  *                                                                                COMPASS     8526     A     
 COMPASS  *                                                                                COMPASS     8527     A     
 COMPASS  *         IDENT  NAME,ORIGIN,ENTRY,L1,L2                                         COMPASS     8528     A     
 COMPASS  *         IDENT DECLARES THE START OF THE PROGRAM.  IF IDENT OCCURS              COMPASS     8529     A     
 COMPASS  *         IN THE MIDDLE OF A PROGRAM, THE ACCUMULATED BINARY                     COMPASS     8530     A     
 COMPASS  *         IS WRITTEN OUT AND A NEW BINARY IS STARTED.                            COMPASS     8531     A     
 COMPASS  *         (NAME) IS THE NAME OF THE OVERLAY GENERATED.                           COMPASS     8532     A     
 COMPASS  *         (ORIGIN) IS THE FIRST WORD ADDRESS OF THE OVERLAY.                     COMPASS     8533     A     
 COMPASS  *         FOR A CP ABSOLUTE PROGRAM -                                            COMPASS     8534     A     
 COMPASS  *                (ENTRY) SPECIFIES THE ENTRY POINT.                              COMPASS     8535     A     
 COMPASS  *                (L1,L2) IS THE OVERLAY LEVEL NUMBER.  (0,0) IS                  COMPASS     8536     A     
 COMPASS  *                ASSUMED FOR THE FIRST OVERLAY AND (1,0) IS                      COMPASS     8537     A     
 COMPASS  *                ASSUMED IF (L1,L2) IS MISSING.                                  COMPASS     8538     A     
 COMPASS                                                                                   COMPASS     8539     A     
 COMPASS                                                                                   COMPASS     8540     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8541     A     
 COMPASS   IDENT    SA1    ABSFG                                                           COMPASS     8542     A     
 COMPASS            ZR     X1,CTL80    IF RELOCATABLE CP CODE                              COMPASS     8543     A     
 COMPASS            RJ     COB         CLOSE OUT BLOCKS                                    COMPASS     8544     A     
 COMPASS            MX6    0                                                               CMP19        126     A     
 COMPASS            SA6    LOCSYM                                                          CMP19        127     A     
 COMPASS            RJ     DSL         DEFINE SYMBOL LITERALS                              COMPASS     8545     A     
 COMPASS            SA1    UI+1        RELOCATE USE TABLE                                  COMPASS     8546     A     
 COMPASS            RJ     RUT                                                             COMPASS     8547     A     
 COMPASS            BX6    X0          OVERLAY LENGTH                                      COMPASS     8548     A     
 COMPASS            LX6    -21         EXTEND SIGN                                         COMPASS     8549     A     
 COMPASS            AX6    -21                                                             COMPASS     8550     A     
 COMPASS            SA6    ORGCTR                                                          COMPASS     8551          I
          -CMP030 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 630    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX6    0                                                               COMPASS     8552          I
          -CMP030 
 COMPASS            SA6    A6+B1                                                           COMPASS     8553          I
          -CMP030 
 COMPASS            SA6    P1TEMP                                                          CMP030         1     A     
 COMPASS            SA1    ORGCTR+1    RELOCATE ORIGIN                                     CMP030         2     A     
 COMPASS   +        NZ     X1,*+1      IF NOT ABSOLUTE BLOCK                               CMP030         3     A     
 COMPASS            SA1    UI+1                                                            CMP030         4     A     
 COMPASS            SA2    O.USETAB                                                        CMP030         5     A     
 COMPASS            SA3    UI                                                              RSM4159        9     A     
 COMPASS            IX2    X2+X3       BASE ADDRESS OF BLOCK GROUP                         RSM4159       10     A     
 COMPASS            LX4    X1,B1                                                           CMP030         6          I
          -CMP30  
 COMPASS            IX1    X4+X1                                                           CMP030         7          I
          -CMP30  
 COMPASS            LX1    1                                                               CMP030         8          I
          -CMP30  
 COMPASS            LX1    2                                                               CMP30       2922     A     
 COMPASS            IX3    X1+X2                                                           CMP030         9     A     
 COMPASS            SA2    X3-4        BLOCK ORIGIN                                        CMP030        10          I
          -CMP30  
 COMPASS            SA2    X3-2        BLOCK ORIGIN                                        CMP30       2923     A     
 COMPASS            SA1    ORGCTR                                                          CMP030        11     A     
 COMPASS            MX0    -21                                                             CMP030        12     A     
 COMPASS            BX2    -X0*X2                                                          CMP030        13     A     
 COMPASS            IX6    X1+X2                                                           CMP030        14     A     
 COMPASS            MX7    0                                                               CMP030        15     A     
 COMPASS            SA6    A1                                                              CMP030        16     A     
 COMPASS            SA7    A6+B1                                                           CMP030        17     A     
 COMPASS            RJ     RST         RELOCATE SYMBOL TABLE                               COMPASS     8554     A     
 COMPASS            SA1    L.SEGTAB                                                        COMPASS     8555     A     
 COMPASS            SA2    SI                                                              COMPASS     8556     A     
 COMPASS            BX6    X1                                                              COMPASS     8557     A     
 COMPASS            IX7    X1-X2                                                           COMPASS     8558     A     
 COMPASS            SA6    A2                                                              COMPASS     8559     A     
 COMPASS            SX7    X7-4                                                            COMPASS     8560     A     
 COMPASS            NZ     X7,IDT1     IF SEGMENT CARDS                                    COMPASS     8561     A     
 COMPASS            SA1    P1TEMP      RESET ORG                                           CMP030        18     A     
 COMPASS            MX7    0                                                               CMP030        19     A     
 COMPASS            BX6    X1                                                              CMP030        20     A     
 COMPASS            SA6    ORGCTR                                                          CMP030        21     A     
 COMPASS            SA7    A6+B1                                                           CMP030        22     A     
 COMPASS            RJ     RSL         RECORD SEGMENT LENGTH                               COMPASS     8562     A     
 COMPASS   IDT1     RJ     AVO         ADVANCE OVERLAY                                     COMPASS     8563     A     
 COMPASS            RJ     AUT         ALLOCATE USE TABLE                                  COMPASS     8564     A     
 COMPASS            RJ     RSS         RECORD SEGMENT START                                COMPASS     8565     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       260          I
          -CMP30  
 COMPASS            RJ     SCLIST      READ OVERLAY NAME                                   COMPASS     8566     A     
 COMPASS            BX1    X6                                                              COMPASS     8567          I
          -CPS002 
 COMPASS            RJ     VFYLINK                                                S002  47 CPS002        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/28. 19.11.32.      PAGE 631    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX6    0           RESET ORG AND LOC COUNTERS                          COMPASS     8568     A     
 COMPASS            SA2    ORGCTR                                                          COMPASS     8569     A     
 COMPASS            SA6    L.USTACK                                                        COMPASS     8570          I
          -CMP30  
 COMPASS            BX7    X2                                                              COMPASS     8571     A     
 COMPASS            SA7    LOCCTR                                                          COMPASS     8572     A     
 COMPASS            SA6    A2+B1                                                           COMPASS     8573     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     8574     A     
 COMPASS            ZR     X1,CTL70    IF NO NAME ON IDENT                                 COMPASS     8575     A     
 COMPASS            SA6    A2                                                              COMPASS     8576     A     
 COMPASS            SA6    A7                                                              COMPASS     8577     A     
 COMPASS            RJ     DIM         DISPLAY IDENT MESSAGE                               COMPASS     8578     A     
 COMPASS            EQ     CTL70                                                           COMPASS     8579     A     
 COMPASS   IDENT    SPACE  4                                                               COMPASS     8580     A     
 COMPASS  **        IDENT - PROGRAM IDENTIFIER.                                            COMPASS     8581     A     
 COMPASS                                                                                   COMPASS     8582     A     
 COMPASS                                                                                   COMPASS     8583     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8584     A     
 COMPASS   IDENT    SA1    ABSFG                                                           COMPASS     8585     A     
 COMPASS            ZR     X1,ZLIST    IF RELOCATABLE CP CODE                              COMPASS     8586     A     
 COMPASS            RJ     ZFUALL      FORCE UPPER ALL BLOCKS                              COMPASS     8587     A     
 COMPASS            RJ     PLT         PRINT LITERAL TABLE                                 CMP17         12     A     
 COMPASS            RJ     DLAST       DUMP BSSZ CODE                                      COMPASS     8588          I
          -CP13226
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODE                                      CP13226        3     A     
 COMPASS            RJ     DDUMP       WRITE BINARY                                        COMPASS     8589     A     
 COMPASS            RJ     AEI         ADVANCE ENTRY INDEX                                 COMPASS     8590     A     
 COMPASS            SX6    0100B       SET DEFAULT (1,0) OVERLAY                           COMPASS     8591     A     
 COMPASS            SA6    P2TEMPA                                                         COMPASS     8592          I
          -CPS002 
 COMPASS            SX1    B0                                                     S002  49 CPS002        36     A     
 COMPASS            RJ     SIC         SCAN IDENT CARD                                     COMPASS     8593     A     
 COMPASS            SA1    =1H         CLEAR USE NAME                                      COMPASS     8594          I
          -CMP17  
 COMPASS            BX6    X1                                                              COMPASS     8595          I
          -CMP17  
 COMPASS            SA6    UNAME                                                           COMPASS     8596          I
          -CMP17  
 COMPASS            SA1    P2TEMP      CHECK NAME                                          COMPASS     8597     A     
 COMPASS            ZR     X1,IDT1     IF NO NAME                                          COMPASS     8598     A     
 COMPASS            WRITER B                                                               COMPASS     8599          I
          -CMP30  
 COMPASS            SA1    P2TEMP      DUMP IDENT TABLE                                    COMPASS     8600          I
          -CMP30  
 COMPASS            SA2    B                                                               CMP30       2924     A     
 COMPASS            ZR     X2,IDT0     IF NO BINARY FILE                                   CMP30       2925     A     
 COMPASS            WEOR   B                                                               CMP30       2926     A     
 COMPASS   IDT0     SA1    P2TEMP      DUMP IDENT TABLE                                    CMP30       2927     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     8601     A     
 COMPASS            RJ     DFIRST                                                          COMPASS     8602     A     
 COMPASS            RJ     DLT         DUMP LITERAL TABLE                                  COMPASS     8603     A     
 COMPASS            RJ     SMO         SET MAX AND MIN ORIGINS                             COMPASS     8604     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 632    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       261          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS     8605          I
          -CMP30  
 COMPASS            SA6    L.USTACK                                                        COMPASS     8606          I
          -CMP30  
 COMPASS            SA1    DKNAM                                                           COMPASS     8607          I
          -CMP30  
 COMPASS            RJ     DIM         DISPLAY IDENT MESSAGE                               COMPASS     8608          I
          -CMP30  
 COMPASS            EQ     ZLIST                                                           COMPASS     8609     A     
 COMPASS   IDT1     SA1    LPGM        SET NEXT ORG ADDRESS                                COMPASS     8610     A     
 COMPASS            BX6    X1                                                              COMPASS     8611     A     
 COMPASS            SA6    ORGBASE                                                         COMPASS     8612     A     
 COMPASS            RJ     SBL         SET BINARY LENGTH                                   COMPASS     8613     A     
 COMPASS            RJ     DLT         DUMP LITERAL TABLE                                  COMPASS     8614     A     
 COMPASS            RJ     SMO         SET MAX AND MIN ORIGINS                             COMPASS     8615     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       262          I
          -CMP30  
 COMPASS            SA1    ORGBASE     SET ORG AND LOC COUNTERS                            COMPASS     8616     A     
 COMPASS            MX6    0                                                               COMPASS     8617          I
          -CMP30  
 COMPASS            BX7    X1                                                              COMPASS     8618     A     
 COMPASS            SA6    L.USTACK                                                        COMPASS     8619          I
          -CMP30  
 COMPASS            SA7    ORGCTR                                                          COMPASS     8620     A     
 COMPASS            SA7    LOCCTR                                                          COMPASS     8621     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     8622     A     
 COMPASS   IF       SPACE  4                                                               COMPASS     8623     A     
 COMPASS  ***       IF - TEST SYMBOL OR EXPRESSION ATTRIBUTE.                              COMPASS     8624     A     
 COMPASS  *                                                                                COMPASS     8625     A     
 COMPASS  *                                                                                COMPASS     8626     A     
 COMPASS  *NAME     IF     ATT,EXP,LNCT                                                    COMPASS     8627     A     
 COMPASS  *         TESTS EXPRESSION (EXP) ACCORDING TO MNEMONIC TEST                      COMPASS     8628     A     
 COMPASS  *         DEFINED BY (ATT).  A *-* PREFIX TO THE MNEMONIC CAUSES                 COMPASS     8629     A     
 COMPASS  *         ASSEMBLY ON A FALSE CONDITION.                                         COMPASS     8630     A     
 COMPASS  *         (NAME) IS INSTRUCTION BRACKET NAME.  OPTIONAL COUNT (LNCT)             COMPASS     8631     A     
 COMPASS  *         IS NUMBER OF LINES TO BE ASSEMBLED IF ATTRIBUTE IS TRUE.               COMPASS     8632     A     
 COMPASS  *                                                                                COMPASS     8633     A     
 COMPASS  *           ATTRIBUTE        TEST                                                COMPASS     8634     A     
 COMPASS  *                                                                                COMPASS     8635     A     
 COMPASS  *              ABS           EXPRESSION ABSOLUTE.                                COMPASS     8636     A     
 COMPASS  *              COM           EXPRESSION IS RELOCATABLE IN COMMON BLOCK.          COMPASS     8637     A     
 COMPASS  *              DEF           ALL SYMBOLS IN EXPRESSION HAVE BEEN                 COMPASS     8638     A     
 COMPASS  *                            DEFINED.                                            COMPASS     8639     A     
 COMPASS  *              EXT           EXTERNAL SYMBOL IN EXPRESSION.                      COMPASS     8640     A     
 COMPASS  *              LCM           EXPRESSION IS RELOCATABLE IN ECS/LCM BLOCK.         CP096A       363     A     
 COMPASS  *              LOC           EXPRESSION IS PROGRAM RELOCATABLE.                  COMPASS     8641     A     
 COMPASS  *              MAC           NAME IS DEFINED MACRO, PSEUDO, OR PP INSTR.         CP096A       364     A     
 COMPASS  *              MIC           NAME IS MICRO.                                      COMPASS     8642     A     
 COMPASS  *              REG           SYMBOL IN EXPRESSION IS REGISTER NAME.              COMPASS     8643     A     
 COMPASS  *              REL           EXPRESSION IS RELOCATABLE.                          COMPASS     8644     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 633    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *              SET           SYMBOL REDEFINABLE.                                 COMPASS     8645     A     
 COMPASS  *              SST           SYMBOL DEFINED BY SST.                              COMPASS     8646     A     
 COMPASS                                                                                   COMPASS     8647     A     
 COMPASS                                                                                   COMPASS     8648     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8649     A     
 COMPASS   IF       SA1    CHAR        TEST FOR LEADING MINUS SIGN                         COMPASS     8650     A     
 COMPASS            SX6    X1-1R-                                                          COMPASS     8651     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS     8652     A     
 COMPASS            NZ     X6,IF1                                                          COMPASS     8653     A     
 COMPASS            RJ     GETCH                                                           COMPASS     8654     A     
 COMPASS   IF1      RJ     SCLIST      EXTRACT MODIFIER                                    COMPASS     8655     A     
 COMPASS            SB7    LIFMODS-1                                                       COMPASS     8656     A     
 COMPASS            MX0    42                                                              COMPASS     8657     A     
 COMPASS            LX6    18                                                              COMPASS     8658     A     
 COMPASS   IF2      SA2    IFMODS+B7                                                       COMPASS     8659     A     
 COMPASS            BX3    X0*X2                                                           COMPASS     8660     A     
 COMPASS            IX5    X3-X6                                                           COMPASS     8661     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     8662     A     
 COMPASS            ZR     X5,IF3      IF MODIFIER FOUND                                   COMPASS     8663     A     
 COMPASS            PL     B7,IF2                                                          COMPASS     8664     A     
 COMPASS            EQ     CTL80       COMPLAIN IF NOT RECOGNIZED MODIFIER                 COMPASS     8665     A     
 COMPASS   IF3      SB7    X2                                                              COMPASS     8666     A     
 COMPASS            JP     B7                                                              COMPASS     8667     A     
 COMPASS   IF       SPACE  4                                                               COMPASS     8668     A     
 COMPASS  **        ATTRIBUTES FOR IF.                                                     COMPASS     8669     A     
 COMPASS                                                                                   COMPASS     8670     A     
 COMPASS                                                                                   COMPASS     8671     A     
 COMPASS   IFMODS   BSS    0                                                               COMPASS     8672     A     
 COMPASS            VFD    42/0RLCM,18/IFLCM                                               CP096A       365     A     
 COMPASS            VFD    42/0RMAC,18/IFMAC                                               CP096A       366     A     
 COMPASS            VFD    42/0RMIC,18/IFMIC                                               COMPASS     8673     A     
 COMPASS            VFD    42/0RSET,18/IFSET                                               COMPASS     8674     A     
 COMPASS            VFD    42/0RSST,18/IFSST                                               COMPASS     8675     A     
 COMPASS            VFD    42/0RREL,18/IFREL                                               COMPASS     8676     A     
 COMPASS            VFD    42/0RABS,18/IFABS                                               COMPASS     8677     A     
 COMPASS            VFD    42/0RREG,18/IFREG                                               COMPASS     8678     A     
 COMPASS            VFD    42/0RCOM,18/IFCOM                                               COMPASS     8679     A     
 COMPASS            VFD    42/0RLOC,18/IFLOC                                               COMPASS     8680     A     
 COMPASS            VFD    42/0REXT,18/IFEXT                                               COMPASS     8681     A     
 COMPASS            VFD    42/0RDEF,18/IFDEF                                               COMPASS     8682     A     
 COMPASS   LIFMODS  EQU    *-IFMODS                                                        COMPASS     8683     A     
 COMPASS                                                                                   CP096A       367     A     
 COMPASS  *         IF     LCM,EXP,LNCT                                                    CP096A       368     A     
 COMPASS                                                                                   CP096A       369     A     
 COMPASS   IFLCM    SX1    60                                                              CP096A       370     A     
 COMPASS            RJ     SCAD                                                            CP096A       371     A     
 COMPASS            SA1    EXREL                                                           CP096A       372     A     
 COMPASS            SA2    O.USETAB                                                        CP096A       373     A     
 COMPASS            SA3    UI                                                              CP096A       374     A     
 COMPASS            SX6    B0                                                              CP096A       375     A     
 COMPASS            LX1    2                                                               CP096A       376     A     
 COMPASS            ZR     X1,IF4      IF ABSOLUTE                                         CP096A       377     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 634    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X1-4                                                            CP096A       378     A     
 COMPASS            IX2    X2+X3                                                           CP096A       379     A     
 COMPASS            SA1    X2+B7       FETCH BLOCK NAME                                    CP096A       380     A     
 COMPASS            MX6    1                                                               CP096A       381     A     
 COMPASS            BX6    X6*X1       TRUE IF BLOCK NAME COMPLEMENTED                     CP096A       382     A     
 COMPASS            EQ     IF4                                                             CP096A       383     A     
 COMPASS                                                                                   CP096A       384     A     
 COMPASS  *         IF     MAC,NAME,LNCT                                                   CP096A       385     A     
 COMPASS                                                                                   CP096A       386     A     
 COMPASS   IFMAC    RJ     SCLIST      SCAN NAME                                           CP096A       387     A     
 COMPASS            BX1    X6                                                              CP096A       388     A     
 COMPASS            SX6    B1                                                              CP096A       389     A     
 COMPASS            ZR     X1,IF4      IF BLANK, CONDITION IS TRUE                         CP096A       390     A     
 COMPASS            SA2    OPTYPE                                                          CP096A       391     A     
 COMPASS            BX6    X2          SAVE OPTYPE                                         CP096A       392     A     
 COMPASS            SA6    P1TEMPA                                                         CP096A       393     A     
 COMPASS            RJ     TLUOP       LOOK UP OPCODE                                      CP096A       394     A     
 COMPASS            SA1    P1TEMPA                                                         CP096A       395     A     
 COMPASS            BX7    X1          RESTORE OPTYPE                                      CP096A       396     A     
 COMPASS            SA7    OPTYPE                                                          CP096A       397     A     
 COMPASS            EQ     IF4                                                             CP096A       398     A     
 COMPASS                                                                                   COMPASS     8684     A     
 COMPASS  *         IF     MIC,NAME,LNCT                                                   COMPASS     8685     A     
 COMPASS                                                                                   COMPASS     8686     A     
 COMPASS   IFMIC    RJ     SCLIST      LOOK UP SYMBOL                                      COMPASS     8687     A     
 COMPASS            SA2    O.MICTAB                                                        COMPASS     8688          I
          -CMP30  
 COMPASS            SA4    L.MICTAB                                                        COMPASS     8689          I
          -CMP30  
 COMPASS            SB2    X4-2                                                            COMPASS     8690          I
          -CMP18    -CMP30  
 COMPASS            SA6    X2          STORE NAME                                          COMPASS     8691          I
          -CMP18    -CMP30  
 COMPASS   IFM1     SA3    X2+B2       SEARCH TABLE                                        COMPASS     8692          I
          -CMP18    -CMP30  
 COMPASS            SB2    B2-1                                                            COMPASS     8693          I
          -CMP18    -CMP30  
 COMPASS            BX1    X6-X3                                                           COMPASS     8694          I
          -CMP18    -CMP30  
 COMPASS            PX7    X6,B1                                                           CMP18         55          I
          -CMP30  
 COMPASS            SB2    X4-1                                                            CMP18         56          I
          -CMP30  
 COMPASS            SA7    X2                                                              CMP18         57          I
          -CMP30  
 COMPASS   IFM1     SA3    X2+B2       SEARCH TABLE                                        CMP18         58          I
          -CMP30  
 COMPASS            UX1,B3 X3                                                              CMP18         59          I
          -CMP30  
 COMPASS            BX1    X1-X6                                                           CMP18         60          I
          -CMP30  
 COMPASS            SB2    B2-B3                                                           CMP18         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/28. 19.11.32.      PAGE 635    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            NZ     X1,IFM1     IF NAME NOT FOUND                                   COMPASS     8695          I
          -CMP30  
 COMPASS            SX6    B2+B1                                                           COMPASS     8696          I
          -CMP30  
 COMPASS            BX7    X6                                                              CMP30       2928     A     
 COMPASS            MX6    0                                                               CMP30       2929     A     
 COMPASS            ZR     X7,IF4      IF NULL MICRO NAME                                  CMP30       2930     A     
 COMPASS            RJ     TLUMIC      LOOK UP MICRO                                       CMP30       2931     A     
 COMPASS            SX6    B4                                                              CMP30       2932     A     
 COMPASS            SX7    B1                                                              CMP146A        1     A     
 COMPASS            SA7    FLAG                                                            CMP146A        2     A     
 COMPASS            EQ     IF4                                                             COMPASS     8697     A     
 COMPASS                                                                                   COMPASS     8698     A     
 COMPASS  *         IF     SET,SYM,LNCT                                                    COMPASS     8699     A     
 COMPASS                                                                                   COMPASS     8700     A     
 COMPASS   IFSET    RJ     SCLIST      LOOK UP SYMBOL                                      COMPASS     8701          I
          -CMP19  
 COMPASS            BX1    X6                                                              COMPASS     8702          I
          -CMP19  
 COMPASS            RJ     TLUSYMT                                                         COMPASS     8703          I
          -CMP19  
 COMPASS            ZR     X2,IFSET1                                                       COMPASS     8704          I
          -CMP19  
 COMPASS            SX1    B1                                                              COMPASS     8705          I
          -CMP19  
 COMPASS            LX1    33                                                              COMPASS     8706          I
          -CMP19  
 COMPASS            BX6    X1*X2       EXTRACT REDEFINITION BIT                            COMPASS     8707          I
          -CMP19  
 COMPASS   IFSET    SX6    10B         SET BIT MASK                                        CMP19        128          I
          -CMP029 
 COMPASS   IFSET    SX6    4           SET BIT MASK                                        CMP029        74     A     
 COMPASS   IFS1     SA6    P1TEMPA                                                         CMP19        129     A     
 COMPASS            SA1    CHAR                                                            CMP19        130     A     
 COMPASS            SB7    X1-1R/                                                          CMP19        131     A     
 COMPASS            ZR     B7,IFS2     IF SLASH                                            CMP19        132     A     
 COMPASS            RJ     SCITEM      SCAN UNQUALIFIED SYMBOL                             CMP19        133     A     
 COMPASS            ZR     X6,IFS7     IF NO SYMBOL                                        CMP19        134     A     
 COMPASS            BX1    X6                                                              CMP19        135     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      CMP19        136     A     
 COMPASS            NZ     X3,IFS4     IF FOUND                                            CMP19        137     A     
 COMPASS            EQ     IFS8                                                            CMP19        138     A     
 COMPASS   IFS2     RJ     GETCH       SKIP LEADING SLASH                                  CMP19        139     A     
 COMPASS            SA1    CHAR                                                            CMP19        140     A     
 COMPASS            SX6    X1-1R/                                                          CMP19        141     A     
 COMPASS            ZR     X6,IFS3     IF BLANK QUALIFIER                                  CMP19        142     A     
 COMPASS            RJ     SCITEM      SCAN QUALIFIER NAME                                 CMP19        143     A     
 COMPASS            SB7    X1-1R/                                                          CMP19        144     A     
 COMPASS            NZ     B7,IFS7     IF NO TRAILING SLASH                                CMP19        145     A     
 COMPASS   IFS3     BX1    X6                                                              CMP19        146     A     
 COMPASS            RJ     SQV         SET QUALIFIER VALUE                                 CMP19        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/28. 19.11.32.      PAGE 636    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     GETCH       SKIP TRAILING SLASH                                 CMP19        148     A     
 COMPASS            RJ     SCITEM      SCAN SYMBOL                                         CMP19        149     A     
 COMPASS            ZR     X6,IFS6     IF NO SYMBOL                                        CMP19        150     A     
 COMPASS            SA1    QVAL                                                            CMP19        151     A     
 COMPASS            BX1    X1+X6                                                           CMP19        152     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      CMP19        153     A     
 COMPASS            SA4    QVAL+1                                                          CMP19        154     A     
 COMPASS            BX6    X4          RESTORE QUALIFIER VALUE                             CMP19        155     A     
 COMPASS            SA6    A4-B1                                                           CMP19        156     A     
 COMPASS            ZR     X3,IFS8     IF SYMBOL NOT FOUND                                 CMP19        157     A     
 COMPASS            SA1    X3-1                                                            CMP19        158          I
          -CP096A 
 COMPASS            SX3    X3-1                                                            CP096A       399     A     
 COMPASS            RX1    X3                                                              CP096A       400     A     
 COMPASS            BX4    X1-X5                                                           CMP19        159     A     
 COMPASS            NZ     X4,IFS8     IF NOT SPECIFIED QUALIFIER                          CMP19        160     A     
 COMPASS   IFS4     LX2    30                                                              CMP19        161          I
          -CMP27  
 COMPASS   IFS4     SA1    P1TEMPA                                                         CMP27         10     A     
 COMPASS            LX2    30                                                              CMP27         11          I
          -CMP029 
 COMPASS            LX2    59-30                                                           CMP029        75     A     
 COMPASS            BX6    X1*X2       EXTRACT BIT                                         CMP27         12     A     
 COMPASS            PL     X2,IFS8     IF SYMBOL NOT DEFINED                               CMP19        162     A     
 COMPASS            SA1    CHAR        LOOK AT NEXT CHARACTER                              CMP19        163     A     
 COMPASS            SB7    X1-1R                                                           CMP19        164     A     
 COMPASS            ZR     B7,IFS5     IF BLANK                                            CMP19        165          I
          -CMP27  
 COMPASS            ZR     B7,IF4      IF BLANK                                            CMP27         13     A     
 COMPASS            NE     B7,B1,IFS7  IF NOT COMMA                                        CMP19        166     A     
 COMPASS            SA6    A1                                                              CMP27         14          I
          -CMP029 
 COMPASS            SA6    P1TEMPA                                                         CMP029        76     A     
 COMPASS            RJ     GETCH       SKIP COMMA                                          CMP19        167     A     
 COMPASS   IFS5     SA1    P1TEMPA                                                         CMP19        168          I
          -CMP27  
 COMPASS            BX6    X1*X2       EXTRACT BIT                                         CMP19        169          I
          -CMP27  
 COMPASS            SA1    P1TEMPA                                                         CMP27         15     A     
 COMPASS            BX6    X1                                                              CMP27         16     A     
 COMPASS            EQ     IF4                                                             COMPASS     8708     A     
 COMPASS   IFSET1   SX6    B1                                                              COMPASS     8709          I
          -CMP19  
 COMPASS   IFS6     SA4    QVAL+1      RESTORE QUALIFIER VALUE                             CMP19        170     A     
 COMPASS            BX6    X4                                                              CMP19        171     A     
 COMPASS            SA6    A4-B1                                                           CMP19        172     A     
 COMPASS   IFS7     SX6    B1          SET ADDRESS ERROR                                   CMP19        173     A     
 COMPASS            SA6    EFLG                                                            CMP19        174     A     
 COMPASS            SA6    AERR                                                            CMP19        175     A     
 COMPASS            EQ     CTL300                                                          CMP19        176     A     
 COMPASS   IFS8     SX6    B1          SET UNDEFINED SYMBOL ERROR                          CMP19        177     A     
 COMPASS            SA6    EFLG                                                            COMPASS     8710     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 637    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    UERR                                                            COMPASS     8711     A     
 COMPASS            EQ     CTL300                                                          COMPASS     8712     A     
 COMPASS                                                                                   COMPASS     8713     A     
 COMPASS  *         IF     SST,SYM,LNCT                                                    COMPASS     8714     A     
 COMPASS                                                                                   COMPASS     8715     A     
 COMPASS   IFSST    RJ     SCLIST      LOOK UP SYMBOL                                      COMPASS     8716          I
          -CMP19  
 COMPASS            BX1    X6                                                              COMPASS     8717          I
          -CMP19  
 COMPASS            RJ     TLUSYMT                                                         COMPASS     8718          I
          -CMP19  
 COMPASS            ZR     X2,IFSET1   IF NOT DEFINED                                      COMPASS     8719          I
          -CMP19  
 COMPASS            SX1    B1                                                              COMPASS     8720          I
          -CMP19  
 COMPASS            LX1    32                                                              COMPASS     8721          I
          -CMP19  
 COMPASS            BX6    X1*X2       EXTRACT SST BIT                                     COMPASS     8722          I
          -CMP19  
 COMPASS            EQ     IF4                                                             COMPASS     8723          I
          -CMP19  
 COMPASS   IFSST    SX6    4           SST BIT MASK                                        CMP19        178          I
          -CMP029 
 COMPASS   IFSST    SX6    2           SST BIT MASK                                        CMP029        77     A     
 COMPASS            EQ     IFS1                                                            CMP19        179     A     
 COMPASS                                                                                   COMPASS     8724     A     
 COMPASS  *         IF     REL,EXP,LNCT                                                    COMPASS     8725     A     
 COMPASS                                                                                   COMPASS     8726     A     
 COMPASS   IFREL    SX1    60                                                              COMPASS     8727     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8728     A     
 COMPASS            SA1    EXREL                                                           COMPASS     8729     A     
 COMPASS            BX6    X1                                                              COMPASS     8730     A     
 COMPASS            EQ     IF4                                                             COMPASS     8731     A     
 COMPASS                                                                                   COMPASS     8732     A     
 COMPASS  *         IF     ABS,EXP,LNCT                                                    COMPASS     8733     A     
 COMPASS                                                                                   COMPASS     8734     A     
 COMPASS   IFABS    SX1    60                                                              COMPASS     8735     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8736     A     
 COMPASS            SA1    EXREL                                                           COMPASS     8737     A     
 COMPASS            SA2    EXEXT                                                           COMPASS     8738     A     
 COMPASS            MX6    0                                                               COMPASS     8739     A     
 COMPASS            BX1    X2+X1                                                           COMPASS     8740     A     
 COMPASS            NZ     X1,IF4                                                          COMPASS     8741     A     
 COMPASS            SX6    B1                                                              COMPASS     8742     A     
 COMPASS            EQ     IF4                                                             COMPASS     8743     A     
 COMPASS                                                                                   COMPASS     8744     A     
 COMPASS  *         IF     REG,EXP,LNCT                                                    COMPASS     8745     A     
 COMPASS                                                                                   COMPASS     8746     A     
 COMPASS   IFREG    SX1    60                                                              COMPASS     8747          I
          -CMP146 
 COMPASS   IFREG    SX6    B1          PREVENT U-ERRORS                                    CMP146         2     A     
 COMPASS            SA6    IFDF                                                            CMP146         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/28. 19.11.32.      PAGE 638    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    60                                                              CMP146         4     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8748     A     
 COMPASS            SA1    EXREG                                                           COMPASS     8749     A     
 COMPASS            BX6    X1                                                              COMPASS     8750     A     
 COMPASS            SA1    UERR                                                            COMPASS     8751          I
          -CMP146 
 COMPASS            EQ     IFNOU                                                           COMPASS     8752     A     
 COMPASS                                                                                   COMPASS     8753     A     
 COMPASS  *         IF     COM,EXP,LNCT                                                    COMPASS     8754     A     
 COMPASS                                                                                   COMPASS     8755     A     
 COMPASS   IFCOM    SX1    60                                                              COMPASS     8756     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8757     A     
 COMPASS            MX6    0                                                               COMPASS     8758     A     
 COMPASS            SX5    B0                                                              COMPASS     8759     A     
 COMPASS            SA1    EXREL                                                           COMPASS     8760     A     
 COMPASS   IFCOMLOC MX0    60-8                                                            COMPASS     8761     A     
 COMPASS            ZR     X1,IF4                                                          COMPASS     8762     A     
 COMPASS            BX1    -X0*X1                                                          COMPASS     8763     A     
 COMPASS            IX2    X1+X1                                                           COMPASS     8764          I
          -CMP30  
 COMPASS            IX2    X2+X1                                                           COMPASS     8765          I
          -CMP30  
 COMPASS            LX2    1                                                               COMPASS     8766          I
          -CMP30  
 COMPASS            SB7    X2-4                                                            COMPASS     8767          I
          -CMP30  
 COMPASS            LX1    2                                                               CMP30       2933     A     
 COMPASS            SB7    X1-2                                                            CMP30       2934     A     
 COMPASS            SA1    O.USETAB                                                        COMPASS     8768     A     
 COMPASS            SA3    UI                                                              COMPASS     8769     A     
 COMPASS            IX1    X1+X3                                                           COMPASS     8770     A     
 COMPASS            SA2    X1+B7                                                           COMPASS     8771     A     
 COMPASS            SX0    B1                                                              COMPASS     8772     A     
 COMPASS            BX3    X0*X2                                                           COMPASS     8773     A     
 COMPASS            BX6    X5-X3                                                           COMPASS     8774     A     
 COMPASS            EQ     IF4                                                             COMPASS     8775     A     
 COMPASS                                                                                   COMPASS     8776     A     
 COMPASS  *         IF     LOC,EXP,LNCT                                                    COMPASS     8777     A     
 COMPASS                                                                                   COMPASS     8778     A     
 COMPASS   IFLOC    SX1    60                                                              COMPASS     8779     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8780     A     
 COMPASS            MX6    0                                                               COMPASS     8781     A     
 COMPASS            SX5    B1                                                              COMPASS     8782     A     
 COMPASS            SA1    EXREL                                                           COMPASS     8783     A     
 COMPASS            EQ     IFCOMLOC                                                        COMPASS     8784     A     
 COMPASS                                                                                   COMPASS     8785     A     
 COMPASS  *         IF     EXT,EXP,LNCT                                                    COMPASS     8786     A     
 COMPASS                                                                                   COMPASS     8787     A     
 COMPASS   IFEXT    SX1    60                                                              COMPASS     8788          I
          -CMP146 
 COMPASS   IFEXT    SX6    B1          PREVENT U-ERRORS                                    CMP146         5     A     
 COMPASS            SA6    IFDF                                                            CMP146         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/28. 19.11.32.      PAGE 639    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    60                                                              CMP146         7     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8789     A     
 COMPASS            SA1    EXEXT                                                           COMPASS     8790     A     
 COMPASS            BX6    X1                                                              COMPASS     8791     A     
 COMPASS            SA1    UERR                                                            COMPASS     8792          I
          -CMP146 
 COMPASS            EQ     IFNOU                                                           COMPASS     8793     A     
 COMPASS                                                                                   COMPASS     8794     A     
 COMPASS  *         IF     DEF,EXP,LNCT                                                    COMPASS     8795     A     
 COMPASS                                                                                   COMPASS     8796     A     
 COMPASS   IFDEF    SX1    60                                                              COMPASS     8797          I
          -CMP146 
 COMPASS   IFDEF    SX6    B1          PREVENT U-ERRORS                                    CMP146         8     A     
 COMPASS            SA6    IFDF                                                            CMP146         9     A     
 COMPASS            SX1    60                                                              CMP146        10     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8798     A     
 COMPASS            SA1    UERR                                                            COMPASS     8799          I
          -CMP146 
 COMPASS            SX6    X1-1                                                            COMPASS     8800          I
          -CMP146 
 COMPASS            SA1    IFDF        UNDEFINED SYMBOL CAUSES IFDF = 2                    CMP146        11     A     
 COMPASS            SX6    X1-2                                                            CMP146        12     A     
 COMPASS  *                            DEF EXT REG DONT GIVE U ERRORS                      COMPASS     8801     A     
 COMPASS   IFNOU    SX7    B0                                                              COMPASS     8802          I
          -CMP146 
 COMPASS            SA7    A1                                                              COMPASS     8803          I
          -CMP146 
 COMPASS            SB7    LEFLG-1     CLEAR EFLG IF NOW NO ERRORS                         CMP029        78          I
          -CMP146 
 COMPASS            SA1    ERFLAGS                                                         CMP029        79          I
          -CMP146 
 COMPASS   IFNOU1   SB7    B7-B1                                                           CMP029        80          I
          -CMP146 
 COMPASS            BX7    X7+X1                                                           CMP029        81          I
          -CMP146 
 COMPASS            NO                                                                     CMP029        82          I
          -CMP146 
 COMPASS            SA1    A1+B1                                                           CMP029        83          I
          -CMP146 
 COMPASS            PL     B7,IFNOU1   LOOP                                                CMP029        84          I
          -CMP146 
 COMPASS            SA7    EFLG                                                            CMP029        85          I
          -CMP146 
 COMPASS   IFNOU    SX7    B0                                                              CMP146        13     A     
 COMPASS            SA7    IFDF        CLEAR IF DEF FLAG                                   CMP146        14     A     
 COMPASS            SX7    B1          SIGNAL PASS 2 TO PREVENT U-ERRORS                   CMP146        15     A     
 COMPASS            SA7    FLAG                                                            CMP146        16     A     
 COMPASS            EQ     IF4A                                                            COMPASS     8804     A     
 COMPASS                                                                                   COMPASS     8805     A     
 COMPASS  *         N.B.   X6 " 0 IF CONDITION TRUE, X6 = 0 IF FALSE.                      COMPASS     8806     A     
 COMPASS                                                                                   COMPASS     8807     A     
 COMPASS   IF4      SA1    UERR                                                            COMPASS     8808     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 640    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X1,CTL70                                                        COMPASS     8809     A     
 COMPASS   IF4A     SA1    P1TEMP                                                          COMPASS     8810     A     
 COMPASS            ZR     X6,IF5      JUMP IF CONDITION FALSE                             COMPASS     8811     A     
 COMPASS            ZR     X1,IFXXNO   IF TRUTH WANTED                                     COMPASS     8812     A     
 COMPASS            EQ     CTL300                                                          COMPASS     8813     A     
 COMPASS   IF5      NZ     X1,IFXXNO   JUMP IF FALSENESS WANTED                            COMPASS     8814     A     
 COMPASS            EQ     CTL300                                                          COMPASS     8815     A     
 COMPASS   IF       SPACE  4                                                               COMPASS     8816     A     
 COMPASS  **        IF - TEST SYMBOL OR EXPRESSION ATTRIBUTE.                              COMPASS     8817     A     
 COMPASS                                                                                   COMPASS     8818     A     
 COMPASS                                                                                   COMPASS     8819     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8820     A     
 COMPASS   IF       SA1    LR+1        CHECK FOR REFERENCE AND F-LIST                      COMPASS     8821     A     
 COMPASS            SA2    LF+1                                                            COMPASS     8822     A     
 COMPASS            BX6    X1*X2                                                           COMPASS     8823     A     
 COMPASS            ZR     X6,ZLIST    IF NO REFERENCE OF IF STATEMENTS                    COMPASS     8824     A     
 COMPASS            SA1    CHAR                                                            CP096A       401     A     
 COMPASS            SB7    X1-1R-                                                          CP096A       402     A     
 COMPASS   +        NZ     B7,*+1      SKIP MINUS PREFIX                                   CP096A       403     A     
 COMPASS            RJ     GETCH                                                           CP096A       404     A     
 COMPASS   +        RJ     SCLIST      SCAN ATTRIBUTE NAME                                 CP096A       405     A     
 COMPASS            SX1    3RMIC                                                           CP096A       406     A     
 COMPASS            SX2    3RMAC       AVOID CROSS-REFERENCING                             CP096A       407     A     
 COMPASS            IX1    X1-X6       MICRO AND MACRO NAMES AS SYMBOLS                    CP096A       408     A     
 COMPASS            BX2    X2-X6                                                           CP096A       409     A     
 COMPASS            ZR     X1,ZLIST    IF *MIC*                                            CP096A       410     A     
 COMPASS            ZR     X2,ZLIST    IF *MAC*                                            CP096A       411     A     
 COMPASS            SA1    UERR                                                            COMPASS     8825          I
          -CMP146 
 COMPASS            SA1    FLAG        SET IF DEF FLAG FROM PASS 1                         CMP146        17     A     
 COMPASS            BX6    X1                                                              COMPASS     8826     A     
 COMPASS            SA6    P2TEMP                                                          COMPASS     8827          I
          -CMP146 
 COMPASS            SA6    IFDF                                                            CMP146        18     A     
 COMPASS            SX6    1RF                                                             COMPASS     8828     A     
 COMPASS            SA6    REFLET                                                          COMPASS     8829     A     
 COMPASS            RJ     SCLIST                                                          COMPASS     8830          I
          -CP096A 
 COMPASS            SX1    60                                                              COMPASS     8831     A     
 COMPASS            RJ     SCAD                                                            COMPASS     8832     A     
 COMPASS            SX6    1R                                                              COMPASS     8833     A     
 COMPASS            SA6    REFLET                                                          COMPASS     8834     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS     8835          I
          -CMP146 
 COMPASS            BX6    X1                                                              COMPASS     8836          I
          -CMP146 
 COMPASS            SA6    UERR                                                            COMPASS     8837          I
          -CMP146 
 COMPASS            SX6    B0          CLEAR IF DEF FLAG                                   CMP146        19     A     
 COMPASS            SA6    IFDF                                                            CMP146        20     A     
 COMPASS            EQ     ZLIST       RETURN                                              COMPASS     8838     A     
 COMPASS   IFC      SPACE  4                                                               COMPASS     8839     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 641    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  ***       IFC - TEST CHARACTER STRINGS.                                          COMPASS     8840     A     
 COMPASS  *                                                                                COMPASS     8841     A     
 COMPASS  *                                                                                COMPASS     8842     A     
 COMPASS  *NAME     IFC    XX,*STRING1*STRING2*,LNCT                                       COMPASS     8843     A     
 COMPASS  *         (NAME) IS INSTRUCTION BRACKET NAME.  OPTIONAL (LNCT) IS                COMPASS     8844     A     
 COMPASS  *         NUMBER OF LINES TO BE SKIPPED IF COMPARISON IS FALSE.                  COMPASS     8845     A     
 COMPASS  *         DELIMITER IS ANY CHARACTER (*). (XX) IS A RELATIONAL MNEMONIC.         COMPASS     8846     A     
 COMPASS  *         (-XX) IS THE OPPOSITE OF THE RELATIONAL MNEMONIC.                      COMPASS     8847     A     
 COMPASS  *                                                                                COMPASS     8848     A     
 COMPASS  *           RELATION         COMPARISON OF FIELDS                                COMPASS     8849     A     
 COMPASS  *                                                                                COMPASS     8850     A     
 COMPASS  *              EQ            EQUAL                                               COMPASS     8851     A     
 COMPASS  *              NE            NOT EQUAL                                           COMPASS     8852     A     
 COMPASS  *              GE            GREATER THAN OR EQUAL                               COMPASS     8853     A     
 COMPASS  *              LT            LESS THAN                                           COMPASS     8854     A     
 COMPASS  *              LE            LESS THAN OR EQUAL                                  COMPASS     8855     A     
 COMPASS  *              GT            GREATER THAN                                        COMPASS     8856     A     
 COMPASS                                                                                   COMPASS     8857     A     
 COMPASS                                                                                   COMPASS     8858     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8859     A     
 COMPASS   IFC      SA1    CHAR        CHECK LEADING MINUS SIGN                            COMPASS     8860     A     
 COMPASS            SB7    X1-1R-                                                          COMPASS     8861     A     
 COMPASS            SX0    B0                                                              COMPASS     8862     A     
 COMPASS            MX4    12                                                              COMPASS     8863     A     
 COMPASS            NZ     B7,IFC1     IF FIRST CHAR WAS NOT -                             COMPASS     8864     A     
 COMPASS            SX0    B1                                                              COMPASS     8865     A     
 COMPASS            RJ     GETCH       THROW AWAY MINUS SIGN                               COMPASS     8866     A     
 COMPASS   IFC1     SB5    LIFCM-1                                                         COMPASS     8867     A     
 COMPASS            RJ     SCITEM                                                          COMPASS     8868     A     
 COMPASS            LX6    48                                                              COMPASS     8869     A     
 COMPASS            SB7    X1-1R,                                                          COMPASS     8870     A     
 COMPASS            SX3    B1                                                              COMPASS     8871     A     
 COMPASS   +        SA5    IFCM+B5                                                         COMPASS     8872     A     
 COMPASS            BX7    X5*X4                                                           COMPASS     8873     A     
 COMPASS            SB5    B5-B1                                                           COMPASS     8874     A     
 COMPASS            BX2    X7-X6                                                           COMPASS     8875     A     
 COMPASS            ZR     X2,IFC2                                                         COMPASS     8876     A     
 COMPASS            PL     B5,*-2                                                          COMPASS     8877     A     
 COMPASS            EQ     CTL80                                                           COMPASS     8878     A     
 COMPASS   IFC2     NZ     B7,CTL80    ERROR IF MODIFIER NOT FOLLOWED BY ,                 COMPASS     8879     A     
 COMPASS            SB6    X5                                                              COMPASS     8880     A     
 COMPASS            AX5    18                                                              COMPASS     8881     A     
 COMPASS            BX0    X5-X0       CORRECT FOR TRUTH CONDITION                         COMPASS     8882     A     
 COMPASS            SA5    B6+X0                                                           COMPASS     8883     A     
 COMPASS            BX6    X5                                                              COMPASS     8884     A     
 COMPASS            SX4    B1                                                              COMPASS     8885     A     
 COMPASS            MX0    0                                                               COMPASS     8886     A     
 COMPASS            SA1    A1+B1       FETCH DELIMITER                                     COMPASS     8887     A     
 COMPASS            SA6    IFCT                                                            COMPASS     8888     A     
 COMPASS            SA2    LASTCOL                                                         COMPASS     8889     A     
 COMPASS            BX7    X1                                                              COMPASS     8890     A     
 COMPASS            SA7    X2+CARD+1                                                       COMPASS     8891          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 642    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP12  
 COMPASS            SA7    X2+CARD                                                         CMP12          4     A     
 COMPASS            SA7    A7+B1                                                           COMPASS     8892     A     
 COMPASS            SA2    A1+B1       SEARCH FOR SECOND DELIMITER                         COMPASS     8893     A     
 COMPASS   +        BX5    X7-X2                                                           COMPASS     8894     A     
 COMPASS            SA2    A2+B1                                                           COMPASS     8895     A     
 COMPASS            NZ     X5,*                                                            COMPASS     8896     A     
 COMPASS            SA2    A2-B1                                                           COMPASS     8897     A     
 COMPASS            SX3    B1                                                              COMPASS     8898          I
          -CMP165 
 COMPASS            BX4    X3                                                              COMPASS     8899          I
          -CMP165 
 COMPASS   IFC3     BX1    X3          FETCH FIRST STRING CHAR IF NOT AT END               COMPASS     8900          I
          -CMP165 
 COMPASS            ZR     X3,*+2                                                          COMPASS     8901          I
          -CMP165 
 COMPASS            SA1    A1+B1                                                           COMPASS     8902          I
          -CMP165 
 COMPASS            BX3    X7-X1                                                           COMPASS     8903          I
          -CMP165 
 COMPASS            NZ     X3,*+1                                                          COMPASS     8904          I
          -CMP165 
 COMPASS            MX1    0                                                               COMPASS     8905          I
          -CMP165 
 COMPASS            BX2    X4          FETCH 2ND STRING CHAR IF NOT AT END                 COMPASS     8906          I
          -CMP165 
 COMPASS            ZR     X4,*+2                                                          COMPASS     8907          I
          -CMP165 
 COMPASS            SA2    A2+B1                                                           COMPASS     8908          I
          -CMP165 
 COMPASS            BX4    X7-X2                                                           COMPASS     8909          I
          -CMP165 
 COMPASS            NZ     X4,*+1                                                          COMPASS     8910          I
          -CMP165 
 COMPASS            MX2    0                                                               COMPASS     8911          I
          -CMP165 
 COMPASS            NZ     X0,*+1      IF INEQUALITY AS BEEN FOUND                         COMPASS     8912          I
          -CMP165 
 COMPASS   IFC3     MI     X1,IFC3A    IF NOT AT END OF FIRST STRING                       CMP165        25     A     
 COMPASS            SA1    A1+B1       FETCH NEXT CHARACTER                                CMP165        26     A     
 COMPASS            BX3    X1-X7                                                           CMP165        27     A     
 COMPASS            NZ     X3,IFC3A    IF NOT DELIMITER                                    CMP165        28     A     
 COMPASS            SX1    -1                                                              CMP165        29     A     
 COMPASS   IFC3A    MI     X2,IFC3B    IF NOT AT END OF SECOND STRING                      CMP165        30     A     
 COMPASS            SA2    A2+B1       FETCH NEXT CHARACTER                                CMP165        31     A     
 COMPASS            BX3    X2-X7                                                           CMP165        32     A     
 COMPASS            NZ     X3,IFC3B    IF NOT DELIMITER                                    CMP165        33     A     
 COMPASS            SX2    -1                                                              CMP165        34     A     
 COMPASS   IFC3B    NZ     X0,*+1      IF INEQUALITY HAS BEEN FOUND                        CMP165        35     A     
 COMPASS            IX0    X1-X2       MAKE STRING COMPARISON                              COMPASS     8913     A     
 COMPASS            NZ     X1,IFC3                                                         COMPASS     8914          I
          -CMP165 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 643    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X2,IFC3     LOOP UNTIL END OF BOTH STRINGS                      COMPASS     8915          I
          -CMP165 
 COMPASS   +        PL     X2,IFC3     LOOP UNTIL END OF SECOND STRING                     CMP165        36     A     
 COMPASS            SX6    A2-CARD+1                                                       COMPASS     8916     A     
 COMPASS            SA6    COLUMN                                                          COMPASS     8917     A     
 COMPASS            SA1    LASTCOL                                                         COMPASS     8918     A     
 COMPASS            IX6    X1-X6                                                           COMPASS     8919          I
          -CMP12  
 COMPASS            IX2    X1-X6                                                           CMP12          5     A     
 COMPASS            SX6    1R          RESTORE BLANKS AT END OF STATEMENT                  CMP12          6     A     
 COMPASS            SA6    X1+CARD                                                         CMP12          7     A     
 COMPASS            SA6    A6+B1                                                           CMP12          8     A     
 COMPASS            SX7    X7-1R                                                           COMPASS     8920     A     
 COMPASS   +        ZR     X7,*+1      IF BLANK DELIMITER                                  COMPASS     8921     A     
 COMPASS            NG     X6,IFC5     IF MISSING SECOND DELIMITER                         COMPASS     8922          I
          -CMP12  
 COMPASS            NG     X2,IFC5     IF MISSING SECOND DELIMITER                         CMP12          9     A     
 COMPASS            RJ     GETCH       THROW AWAY COMMA                                    COMPASS     8923     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     8924     A     
 COMPASS            ZR     B7,IFCT     IF TERMINATOR IS BLANK                              COMPASS     8925     A     
 COMPASS            EQ     B7,B1,IFC4  IF TERMINATOR IS COMMA                              COMPASS     8926     A     
 COMPASS   IFC5     SX6    B1                                                              COMPASS     8927     A     
 COMPASS            SA6    AERR                                                            COMPASS     8928     A     
 COMPASS            SA6    EFLG                                                            COMPASS     8929     A     
 COMPASS            EQ     CTL70       RETURN                                              COMPASS     8930     A     
 COMPASS   IFC4     RJ     GETCH       THROW COMMA AWAY                                    COMPASS     8931     A     
 COMPASS            NZ     B7,IFCT                                                         COMPASS     8932     A     
 COMPASS            RJ     GETCH       THROW KNOWN COMMA AWAY                              COMPASS     8933     A     
 COMPASS   IFCT     BSS    1                                                               COMPASS     8934     A     
 COMPASS            EQ     IFXXNO                                                          COMPASS     8935     A     
 COMPASS                                                                                   COMPASS     8936     A     
 COMPASS  *         TABLE OF RECOGNIZED MODIFIERS.                                         COMPASS     8937     A     
 COMPASS                                                                                   COMPASS     8938     A     
 COMPASS   IFCM     VFD    12/0REQ,30/0,18/IFCEQ                                           COMPASS     8939     A     
 COMPASS            VFD    12/0RNE,30/1,18/IFCEQ                                           COMPASS     8940     A     
 COMPASS            VFD    12/0RGE,30/0,18/IFCGE                                           COMPASS     8941     A     
 COMPASS            VFD    12/0RLT,30/1,18/IFCGE                                           COMPASS     8942     A     
 COMPASS            VFD    12/0RLE,30/0,18/IFCLE                                           COMPASS     8943     A     
 COMPASS            VFD    12/0RGT,30/1,18/IFCLE                                           COMPASS     8944     A     
 COMPASS   LIFCM    EQU    *-IFCM                                                          COMPASS     8945     A     
 COMPASS                                                                                   COMPASS     8946     A     
 COMPASS  *         TABLE OF TRUE/FALSE TESTS.                                             COMPASS     8947     A     
 COMPASS                                                                                   COMPASS     8948     A     
 COMPASS   IFCEQ    ZR     X0,CTL70                                                        COMPASS     8949     A     
 COMPASS   +        NZ     X0,CTL70                                                        COMPASS     8950     A     
 COMPASS   IFCGE    PL     X0,CTL70                                                        COMPASS     8951     A     
 COMPASS   +        NG     X0,CTL70                                                        COMPASS     8952     A     
 COMPASS   IFCLE    ZR     X0,CTL70                                                        COMPASS     8953     A     
 COMPASS            NG     X0,CTL70                                                        COMPASS     8954     A     
 COMPASS   +        ZR     X0,IFXXNO                                                       COMPASS     8955     A     
 COMPASS            PL     X0,CTL70                                                        COMPASS     8956     A     
 COMPASS   IFC      SPACE  4                                                               COMPASS     8957     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 644    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        IFC - TEST CHARACTER STRINGS.                                          COMPASS     8958     A     
 COMPASS                                                                                   COMPASS     8959     A     
 COMPASS                                                                                   COMPASS     8960     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     8961     A     
 COMPASS   IFC      EQU    ZLIST                                                           COMPASS     8962     A     
 COMPASS   IFXX     SPACE  4                                                               COMPASS     8963     A     
 COMPASS  ***       IFXX - COMPARE VALUES.                                                 COMPASS     8964     A     
 COMPASS  *                                                                                COMPASS     8965     A     
 COMPASS  *                                                                                COMPASS     8966     A     
 COMPASS  *NAME     IFXX   EXP1,EXP2,LNCT                                                  COMPASS     8967     A     
 COMPASS  *         TESTS (EXP1) AGAINST (EXP2) ACCORDING TO XX WHICH IS A                 COMPASS     8968     A     
 COMPASS  *         RELATIONAL MNEMONIC.  OPTIONAL (LNCT) IS NUMBER OF LINES               COMPASS     8969     A     
 COMPASS  *         TO BE SKIPPED IF COMPARISON IS NOT SATISFIED.  (NAME) IS               COMPASS     8970     A     
 COMPASS  *         INSTRUCTION BRACKET NAME.                                              COMPASS     8971     A     
 COMPASS  *                                                                                COMPASS     8972     A     
 COMPASS  *             XX             COMPARISON OF FIELDS                                COMPASS     8973     A     
 COMPASS  *                                                                                COMPASS     8974     A     
 COMPASS  *             EQ             EQUAL                                               COMPASS     8975     A     
 COMPASS  *             NE             NOT EQUAL                                           COMPASS     8976     A     
          -CP13226  +CMP029 
 COMPASS  *             GT             GREATER THAN                                        COMPASS     8977     A     
 COMPASS  *             GE             GREATER THAN OR EQUAL                               COMPASS     8978     A     
 COMPASS  *             LT             LESS THAN                                           COMPASS     8979     A     
 COMPASS  *             LE             LESS THAN OR EQUAL                                  COMPASS     8980     A     
 COMPASS                                                                                   COMPASS     8981     A     
 COMPASS                                                                                   COMPASS     8982     A     
 COMPASS  *         IFEQ   EXP1,EXP2,LNCT                                                  COMPASS     8983     A     
 COMPASS                                                                                   COMPASS     8984     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8985     A     
 COMPASS   IFEQ     SA1    *+1                                                             COMPASS     8986     A     
 COMPASS            EQ     IFXX                                                            COMPASS     8987     A     
 COMPASS            NZ     X1,IFXXNO                                                       COMPASS     8988     A     
 COMPASS            ZR     X2,CTL300                                                       COMPASS     8989     A     
 COMPASS                                                                                   COMPASS     8990     A     
 COMPASS  *         IFNE   EXP1,EXP2,LNCT                                                  COMPASS     8991     A     
 COMPASS                                                                                   COMPASS     8992     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     8993     A     
 COMPASS   IFNE     SA1    *+1                                                             COMPASS     8994     A     
 COMPASS            EQ     IFXX                                                            COMPASS     8995     A     
 COMPASS            NZ     X1,CTL300   TEST VALUE INEQUALITY                               COMPASS     8996     A     
 COMPASS            NZ     X2,CTL300   TEST PROPERTY INEQUALITY                            COMPASS     8997     A     
 COMPASS                                                                                   COMPASS     8998     A     
 COMPASS  *         IFGT   EXP1,EXP2,LNCT                                                  COMPASS     8999     A     
 COMPASS                                                                                   COMPASS     9000     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9001     A     
 COMPASS   IFGT     SA1    *+1                                                             COMPASS     9002     A     
 COMPASS            EQ     IFXX                                                            COMPASS     9003     A     
 COMPASS            ZR     X1,IFXXNO                                                       COMPASS     9004     A     
 COMPASS            PL     X1,CTL300                                                       COMPASS     9005     A     
 COMPASS                                                                                   COMPASS     9006     A     
 COMPASS  *         IFGE   EXP1,EXP2,LNCT                                                  COMPASS     9007     A     
 COMPASS                                                                                   COMPASS     9008     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 645    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            QUAL   PASS1                                                           COMPASS     9009     A     
 COMPASS   IFGE     SA1    *+1                                                             COMPASS     9010     A     
 COMPASS            EQ     IFXX                                                            COMPASS     9011     A     
 COMPASS            ZR     X1,CTL300                                              S028 455 CPS028       345     A     
 COMPASS            PL     X1,CTL300                                                       COMPASS     9012     A     
 COMPASS                                                                                   COMPASS     9013     A     
 COMPASS  *         IFLT   EXP1,EXP2,LNCT                                                  COMPASS     9014     A     
 COMPASS                                                                                   COMPASS     9015     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9016     A     
 COMPASS   IFLT     SA1    *+1                                                             COMPASS     9017     A     
 COMPASS            EQ     IFXX                                                            COMPASS     9018     A     
 COMPASS            ZR     X1,IFXXNO                                                       CMP041        25     A     
 COMPASS            NG     X1,CTL300                                                       COMPASS     9019     A     
 COMPASS                                                                                   COMPASS     9020     A     
 COMPASS  *         IFLE   EXP1,EXP2,LNCT                                                  COMPASS     9021     A     
 COMPASS                                                                                   COMPASS     9022     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9023     A     
 COMPASS   IFLE     SA1    *+1                                                             COMPASS     9024     A     
 COMPASS            EQ     IFXX                                                            COMPASS     9025     A     
 COMPASS            ZR     X1,CTL300                                                       COMPASS     9026     A     
 COMPASS            NG     X1,CTL300                                                       COMPASS     9027     A     
 COMPASS   IFXX     SPACE  4                                                               COMPASS     9028     A     
 COMPASS  **        IFXX - COMPARE VALUES.                                                 COMPASS     9029     A     
 COMPASS                                                                                   COMPASS     9030     A     
 COMPASS                                                                                   COMPASS     9031     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9032     A     
 COMPASS   IFXX     BX6    X1                                                              COMPASS     9033     A     
 COMPASS            SA6    IFXXT       STORE TRUTH TESTING INSTRUCTION                     COMPASS     9034     A     
 COMPASS            SX1    60                                                              COMPASS     9035     A     
 COMPASS            RJ     SCAD        EVALUATE FIRST ADDRESS FIELD                        COMPASS     9036     A     
 COMPASS            SA1    EXVAL       RECORD PROPERTIES                                   COMPASS     9037     A     
 COMPASS            SA2    EXREL                                                           COMPASS     9038     A     
 COMPASS            BX6    X1                                                              COMPASS     9039     A     
 COMPASS            SA6    P1TEMP      STORE FIRST VALUE                                   COMPASS     9040     A     
 COMPASS            LX2    18                                                              COMPASS     9041     A     
 COMPASS            SA3    EXREG                                                           COMPASS     9042     A     
 COMPASS            SA4    EXEXT                                                           COMPASS     9043     A     
 COMPASS            LX4    24+3                                                            COMPASS     9044     A     
 COMPASS            BX6    X4+X3                                                           COMPASS     9045     A     
 COMPASS            IX7    X6+X2                                                           COMPASS     9046     A     
 COMPASS            SA7    P1TEMPA     STORE PROPERTIES                                    COMPASS     9047     A     
 COMPASS            SX1    60                                                              COMPASS     9048     A     
 COMPASS            RJ     SCAD        EVALUATE SECOND ADDRESS                             COMPASS     9049     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     9050     A     
 COMPASS            SA2    EXEXT                                                           COMPASS     9051     A     
 COMPASS            SA5    P1TEMP                                                          COMPASS     9052     A     
 COMPASS            SA3    EXREL                                                           COMPASS     9053     A     
 COMPASS            SA4    EXREG                                                           COMPASS     9054     A     
 COMPASS            IX1    X5-X1                                                           COMPASS     9055     A     
 COMPASS            LX2    27                                                              COMPASS     9056     A     
 COMPASS            SA5    P1TEMPA                                                         COMPASS     9057     A     
 COMPASS            LX3    18                                                              COMPASS     9058     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 646    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX2    X2+X3                                                           COMPASS     9059     A     
 COMPASS            IX3    X2+X4                                                           COMPASS     9060     A     
 COMPASS            BX2    X3-X5                                                           COMPASS     9061     A     
 COMPASS            SA3    UERR                                                            COMPASS     9062     A     
 COMPASS            NZ     X3,CTL300                                                       COMPASS     9063     A     
 COMPASS   IFXXT    PS                                                                     COMPASS     9064     A     
 COMPASS   IFXXNO   SX6    3                                                               COMPASS     9065     A     
 COMPASS            SX1    15                                                              COMPASS     9066     A     
 COMPASS            RJ     SMC                                                             COMPASS     9067     A     
 COMPASS            RJ     CWI                                                             COMPASS     9068     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     9069     A     
 COMPASS            SA2    LOCSYM      SAVE BRACKET NAME                                   CPS032         1     A     
 COMPASS            SX6    X1+B1                                                           COMPASS     9070     A     
 COMPASS            BX7    X2                                                              CPS032         2     A     
 COMPASS            SA6    IFCNT       SET SKIPPING COUNT                                  COMPASS     9071     A     
 COMPASS            SA7    IFNAME                                                          CPS032         3     A     
 COMPASS            NZ     X1,CTL100                                                       COMPASS     9072     A     
 COMPASS            SA1    UERR                                                            COMPASS     9073     A     
 COMPASS            NZ     X1,CTL100   IF LINE COUNT UNDEFINED                             COMPASS     9074     A     
 COMPASS            SX6    -B1         SET TO SKIP UNTIL ENDIF                             COMPASS     9075     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS     9076          I
          -CPS032 
 COMPASS            BX7    X1                                                              COMPASS     9077          I
          -CPS032 
 COMPASS            SA6    IFCNT                                                           COMPASS     9078     A     
 COMPASS            SA7    IFNAME      SAVE BRACKET NAME                                   COMPASS     9079          I
          -CPS032 
 COMPASS            EQ     CTL100                                                          COMPASS     9080     A     
 COMPASS   IFXX     SPACE  4                                                               COMPASS     9081     A     
 COMPASS  **        IFXX - COMPARE VALUES.                                                 COMPASS     9082     A     
 COMPASS                                                                                   COMPASS     9083     A     
 COMPASS                                                                                   COMPASS     9084     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9085     A     
 COMPASS   IFEQ     BSS    0                                                               COMPASS     9086     A     
 COMPASS   IFGE     BSS    0                                                               COMPASS     9087     A     
 COMPASS   IFGT     BSS    0                                                               COMPASS     9088     A     
 COMPASS   IFLE     BSS    0                                                               COMPASS     9089     A     
 COMPASS   IFLT     BSS    0                                                               COMPASS     9090     A     
 COMPASS   IFNE     BSS    0                                                               COMPASS     9091     A     
 COMPASS            SA1    LR+1        CHECK FOR REFERENCE AND F-LIST                      COMPASS     9092     A     
 COMPASS            SA2    LF+1                                                            COMPASS     9093     A     
 COMPASS            BX6    X1*X2                                                           COMPASS     9094     A     
 COMPASS            ZR     X6,ZLIST    IF NO REFERENCE OF IF STATEMENTS                    COMPASS     9095     A     
 COMPASS            SX6    1RF                                                             COMPASS     9096     A     
 COMPASS            SA6    REFLET                                                          COMPASS     9097     A     
 COMPASS            SX1    60                                                              COMPASS     9098     A     
 COMPASS            RJ     SCAD                                                            COMPASS     9099     A     
 COMPASS            SX1    60                                                              COMPASS     9100     A     
 COMPASS            RJ     SCAD                                                            COMPASS     9101     A     
 COMPASS            SX6    1R                                                              COMPASS     9102     A     
 COMPASS            SA6    REFLET                                                          COMPASS     9103     A     
 COMPASS            EQ     ZLIST       RETURN                                              COMPASS     9104     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 647    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   IFYY     SPACE  4                                                               COMPASS     9105     A     
 COMPASS  ***       IFYY - TEST ASSEMBLY ENVIRONMENT.                                      COMPASS     9106     A     
 COMPASS  *                                                                                COMPASS     9107     A     
 COMPASS  *                                                                                COMPASS     9108     A     
 COMPASS  *NAME     IFYY   LNCT                                                            COMPASS     9109     A     
 COMPASS  *         OPTIONAL (LNCT) IS NUMBER OF LINES TO SKIP IF CONDITION                COMPASS     9110     A     
 COMPASS  *         IS FALSE.  (NAME) IS INSTRUCTION BRACKET NAME.                         COMPASS     9111     A     
 COMPASS  *                                                                                COMPASS     9112     A     
 COMPASS  *             YY             CONDITION                                           COMPASS     9113     A     
 COMPASS  *                                                                                COMPASS     9114     A     
 COMPASS  *             PP             PERIPHERAL ASSEMBLY IN PROGRESS                     COMPASS     9115     A     
 COMPASS  *             PP6            6000 PERIPHERAL ASSEMBLY IN PROGRESS                CMP30       2935     A     
 COMPASS  *             PP7            7000 PERIPHERAL ASSEMBLY IN PROGRESS                CMP30       2936     A     
 COMPASS  *             CP             CENTRAL ASSEMBLY IN PROGRESS                        COMPASS     9116     A     
 COMPASS  *             CP6            6000 CENTRAL ASSEMBLY IN PROGRESS                   CMP30       2937     A     
 COMPASS  *             CP7            7000 CENTRAL ASSEMBLY IN PROGRESS                   CMP30       2938     A     
 COMPASS                                                                                   COMPASS     9117     A     
 COMPASS                                                                                   COMPASS     9118     A     
 COMPASS  *         IFPP   LNCT                                                            COMPASS     9119     A     
 COMPASS                                                                                   COMPASS     9120     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9121     A     
 COMPASS   IFPP     SA1    MACHINE                                                         COMPASS     9122     A     
 COMPASS            ZR     X1,IFXXNO                                                       COMPASS     9123     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     9124     A     
 COMPASS                                                                                   CMP30       2939     A     
 COMPASS  *         IFPP6  LNCT                                                            CMP30       2940     A     
 COMPASS                                                                                   CMP30       2941     A     
 COMPASS   IFPP6    SX6    2           FALSE IF MTYPE = 2 (7000 ASSEMBLY)                  CMP30       2942     A     
 COMPASS            EQ     IFPP7A                                                          CMP30       2943     A     
 COMPASS                                                                                   CMP30       2944     A     
 COMPASS  *         IFPP7  LNCT                                                            CMP30       2945     A     
 COMPASS                                                                                   CMP30       2946     A     
 COMPASS   IFPP7    SX6    1           FALSE IF MTYPE = 1 (6000 ASSEMBLY)                  CMP30       2947     A     
 COMPASS   IFPP7A   SA1    MTYPE                                                           CMP30       2948     A     
 COMPASS            SA2    MACHINE                                                         CMP30       2949     A     
 COMPASS            BX3    X1-X6                                                           CMP30       2950     A     
 COMPASS            ZR     X2,IFXXNO   IF CENTRAL ASSEMBLY                                 CMP30       2951     A     
 COMPASS            ZR     X3,IFXXNO   IF WRONG MTYPE                                      CMP30       2952     A     
 COMPASS            EQ     CTL300      RETURN                                              CMP30       2953     A     
 COMPASS                                                                                   COMPASS     9125     A     
 COMPASS  *         IFCP   LNCT                                                            COMPASS     9126     A     
 COMPASS                                                                                   COMPASS     9127     A     
 COMPASS   IFCP     SA1    MACHINE                                                         COMPASS     9128     A     
 COMPASS            NZ     X1,IFXXNO                                                       COMPASS     9129     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     9130     A     
 COMPASS                                                                                   CMP30       2954     A     
 COMPASS  *         IFCP6  LNCT                                                            CMP30       2955     A     
 COMPASS                                                                                   CMP30       2956     A     
 COMPASS   IFCP6    SX6    2           FALSE IF MTYPE = 2 (7000 ASSEMBLY)                  CMP30       2957     A     
 COMPASS            EQ     IFCP7A                                                          CMP30       2958     A     
 COMPASS                                                                                   CMP30       2959     A     
 COMPASS  *         IFCP7  LNCT                                                            CMP30       2960     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 648    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       2961     A     
 COMPASS   IFCP7    SX6    1           FALSE IF MTYPE = 1 (6000 ASSEMBLY)                  CMP30       2962     A     
 COMPASS   IFCP7A   SA1    MTYPE                                                           CMP30       2963     A     
 COMPASS            SA2    MACHINE                                                         CMP30       2964     A     
 COMPASS            IX3    X1-X6                                                           CMP30       2965     A     
 COMPASS            NZ     X2,IFXXNO   IF PERIPHERAL ASSEMBLY                              CMP30       2966     A     
 COMPASS            ZR     X3,IFXXNO   IF WRONG MTYPE                                      CMP30       2967     A     
 COMPASS            EQ     CTL300      RETURN                                              CMP30       2968     A     
 COMPASS   IFYY     SPACE  4                                                               COMPASS     9131     A     
 COMPASS  **        IFYY - TEST ASSEMBLY ENVIRONMENT.                                      COMPASS     9132     A     
 COMPASS                                                                                   COMPASS     9133     A     
 COMPASS                                                                                   COMPASS     9134     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9135     A     
 COMPASS   IFCP     EQU    ZLIST                                                           COMPASS     9136     A     
 COMPASS   IFCP6    EQU    ZLIST                                                           CMP30       2969     A     
 COMPASS   IFCP7    EQU    ZLIST                                                           CMP30       2970     A     
 COMPASS   IFPP     EQU    ZLIST                                                           COMPASS     9137     A     
 COMPASS   IFPP6    EQU    ZLIST                                                           CMP30       2971     A     
 COMPASS   IFPP7    EQU    ZLIST                                                           CMP30       2972     A     
 COMPASS   IFZZ     SPACE  4                                                               CMP30       2973     A     
 COMPASS  ***       IFZZ - TEST SIGN OF EXPRESSION VALUE.                                  CMP30       2974     A     
 COMPASS  *                                                                                CMP30       2975     A     
 COMPASS  *                                                                                CMP30       2976     A     
 COMPASS  *NAME     IFZZ   EXPR,LNCT                                                       CMP30       2977     A     
 COMPASS  *         TESTS SIGN OF VALUE OF (EXPR) ACCORDING TO ZZ.  OPTIONAL               CMP30       2978     A     
 COMPASS  *         (LNCT) IS NUMBER OF LINES TO BE SKIPPED IF CONDITION IS                CMP30       2979     A     
 COMPASS  *         NOT SATISFIED.  (NAME) IS INSTRUCTION BRACKET NAME.                    CMP30       2980     A     
 COMPASS  *                                                                                CMP30       2981     A     
 COMPASS  *             ZZ             CONDITION                                           CMP30       2982     A     
 COMPASS  *                                                                                CMP30       2983     A     
 COMPASS  *             PL             SIGN IS PLUS.                                       CMP30       2984     A     
 COMPASS  *             MI             SIGN IS MINUS.                                      CMP30       2985     A     
 COMPASS                                                                                   CMP30       2986     A     
 COMPASS                                                                                   CMP30       2987     A     
 COMPASS  *         IFPL   EXPR,LNCT                                                       CMP30       2988     A     
 COMPASS                                                                                   CMP30       2989     A     
 COMPASS            QUAL   PASS1                                                           CMP30       2990     A     
 COMPASS   IFPL     MX6    0                                                               CMP30       2991     A     
 COMPASS            EQ     IFZZ                                                            CMP30       2992     A     
 COMPASS                                                                                   CMP30       2993     A     
 COMPASS  *         IFMI   EXPR,LNCT                                                       CMP30       2994     A     
 COMPASS                                                                                   CMP30       2995     A     
 COMPASS   IFMI     MX6    60                                                              CMP30       2996     A     
 COMPASS   IFZZ     SPACE  4                                                               CMP30       2997     A     
 COMPASS  **        IFZZ - TEST SIGN OF EXPRESSION VALUE.                                  CMP30       2998     A     
 COMPASS                                                                                   CMP30       2999     A     
 COMPASS                                                                                   CMP30       3000     A     
 COMPASS   IFZZ     SA6    P1TEMP      SAVE SIGN CONDITION                                 CMP30       3001     A     
 COMPASS            SX1    60                                                              CMP30       3002     A     
 COMPASS            RJ     SCAD        EVALUATE EXPRESSION                                 CMP30       3003     A     
 COMPASS            SA1    EXVAL                                                           CMP30       3004     A     
 COMPASS            SA2    P1TEMP                                                          CMP30       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/28. 19.11.32.      PAGE 649    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    UERR                                                            CMP30       3006     A     
 COMPASS            BX4    X1-X2       INVERT SIGN FOR IFMI                                CMP30       3007     A     
 COMPASS            LX3    59          U-ERROR FORCES SUCCESS                              CMP30       3008     A     
 COMPASS            BX5    -X3*X4                                                          CMP30       3009     A     
 COMPASS            PL     X5,CTL300   IF CONDITION MET OR U-ERROR                         CMP30       3010     A     
 COMPASS            EQ     IFXXNO      GO INITIATE SKIPPING                                CMP30       3011     A     
 COMPASS   IFZZ     SPACE  4                                                               CMP30       3012     A     
 COMPASS  **        IFZZ - TEST SIGN OF EXPRESSION VALUE.                                  CMP30       3013     A     
 COMPASS                                                                                   CMP30       3014     A     
 COMPASS                                                                                   CMP30       3015     A     
 COMPASS            QUAL   PASS2                                                           CMP30       3016     A     
 COMPASS   IFPL     BSS    0                                                               CMP30       3017     A     
 COMPASS   IFMI     BSS    0                                                               CMP30       3018     A     
 COMPASS            SA1    LR+1        CHECK FOR REFERENCE AND F-LIST                      CMP30       3019     A     
 COMPASS            SA2    LF+1                                                            CMP30       3020     A     
 COMPASS            BX6    X1+X2                                                           CMP30       3021     A     
 COMPASS            ZR     X6,ZLIST    IF NO REFERENCE OF IF-STATEMENTS                    CMP30       3022     A     
 COMPASS            SX6    1RF                                                             CMP30       3023     A     
 COMPASS            SA6    REFLET      SET REFERENCE TYPE *F*                              CMP30       3024     A     
 COMPASS            SX1    60                                                              CMP30       3025     A     
 COMPASS            RJ     SCAD        SCAN EXPRESSION                                     CMP30       3026     A     
 COMPASS            SX6    1R                                                              CMP30       3027     A     
 COMPASS            SA6    REFLET      RESTORE BLANK REFERENCE TYPE                        CMP30       3028     A     
 COMPASS            SA1    EXVAL                                                           CPS010        57     A     
 COMPASS            SX2    36                                                              CPS010        58     A     
 COMPASS            MX3    0                                                               CPS010        59     A     
 COMPASS            RJ     PACKO       CALL PACKO (EXVAL, 36, 0)                           CPS010        60     A     
 COMPASS            EQ     ZLIST       RETURN                                              CMP30       3029     A     
 COMPASS   IRP      SPACE  4                                                               COMPASS     9138     A     
 COMPASS  ***       IRP - INDEFINITE REPEAT.                                               COMPASS     9139     A     
 COMPASS  *                                                                                COMPASS     9140     A     
 COMPASS  *                                                                                COMPASS     9141     A     
 COMPASS  *         IRP    P1                                                              COMPASS     9142     A     
 COMPASS  *         (P1) IS THE PARAMETER LIST FOR ITERATION INSIDE A MACRO.               COMPASS     9143     A     
 COMPASS  *         IRP IS A NULL OPERATION OUTSIDE A MACRO.  THE CARD IMAGES              COMPASS     9144     A     
 COMPASS  *         BETWEEN THE OPENING (IRP) AND TERMINATING (IRP) ARE REPEATED           COMPASS     9145     A     
 COMPASS  *         WITH SUCCESSIVE PARAMETERS FROM THE LIST P1 SUBSTITUTED FOR            COMPASS     9146     A     
 COMPASS  *         THE FORMAL MACRO PARAMETER.                                            COMPASS     9147     A     
 COMPASS                                                                                   COMPASS     9148     A     
 COMPASS                                                                                   COMPASS     9149     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9150     A     
 COMPASS   IRP      EQU    CTL300                                                          COMPASS     9151     A     
 COMPASS   IRP      SPACE  4                                                               COMPASS     9152     A     
 COMPASS  **        IRP - INDEFINITE REPEAT.                                               COMPASS     9153     A     
 COMPASS                                                                                   COMPASS     9154     A     
 COMPASS                                                                                   COMPASS     9155     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9156     A     
 COMPASS   IRP      EQU    ZLIST                                                           COMPASS     9157     A     
 COMPASS   LCC      SPACE  4                                                               COMPASS     9158     A     
 COMPASS  ***       LCC - LOADER CONTROL CARD.                                             COMPASS     9159     A     
 COMPASS  *                                                                                COMPASS     9160     A     
 COMPASS  *                                                                                COMPASS     9161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 650    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         LCC    STRING                                                          COMPASS     9162     A     
 COMPASS  *         CHARACTER STRING IS PASSED TO BINARY OUTPUT FOR SUBSEQUENT             COMPASS     9163     A     
 COMPASS  *         RECOGNITION BY THE LOADER.                                             COMPASS     9164     A     
 COMPASS                                                                                   COMPASS     9165     A     
 COMPASS                                                                                   COMPASS     9166     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9167     A     
 COMPASS   LCC      SA1    ABSFG       TEST FOR VALIDITY OF OPERATION                      COMPASS     9168     A     
 COMPASS            NZ     X1,CTL80    INVALID IN PP AND ABSOLUTE CP CODES                 COMPASS     9169     A     
 COMPASS   +        SA2    B                                                               COMPASS     9170     A     
 COMPASS            ZR     X2,*+2                                                          COMPASS     9171          I
          -CMP30  
 COMPASS            ZR     X2,CTL70    IF NO BINARY FILE                                   CMP30       3030     A     
 COMPASS                                                                                   CMP30       3031     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3032     A     
 COMPASS            RECALL B           WAIT FOR BINARY                                     COMPASS     9172     A     
 COMPASS   RM       ELSE                                                                   CMP30       3033          I
          -CPSA134
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       3034          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      133          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      134          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP      135          I
          -CPSA134
 COMPASS            FETCH  B,OC,X3                                                         CMP30       3035          I
          -CPSA134
 COMPASS            SX6    X3-#YES#                                                        CMP30       3036          I
          -CPSA134
 COMPASS            ZR     X6,LCC0     IF FILE IS OPEN                                     CMP30       3037          I
          -CPSA134
 COMPASS            OPENM  B,OUTPUT,N                                                      CMP30       3038          I
          -CPSA134
 COMPASS   LCC0     CHECK  B                                                               CMP30       3039          I
          -CPSA134
 COMPASS   X        ENDIF                                                                  F7540CP      136          I
          -CPSA134
 COMPASS   RM       ENDIF                                                                  CMP30       3040     A     
 COMPASS                                                                                   CMP30       3041     A     
 COMPASS            SB7    10          CONSTRUCT LOADER DIRECTIVE CARD                     COMPASS     9173     A     
 COMPASS            SA2    COLUMN                                                          COMPASS     9174     A     
 COMPASS            SA1    CARD-1+X2                                                       COMPASS     9175     A     
 COMPASS            SA6    RELVEC                                                          COMPASS     9176     A     
 COMPASS            SB5    -1R                                                             COMPASS     9177     A     
 COMPASS            SB4    B1                                                              COMPASS     9178     A     
 COMPASS   LCC1     SB3    B7                                                              COMPASS     9179     A     
 COMPASS            MX6    0                                                               COMPASS     9180     A     
 COMPASS   LCC2     LX6    6                                                               COMPASS     9181     A     
 COMPASS            SB3    B3-B1                                                           COMPASS     9182     A     
 COMPASS            SB2    X1+B5                                                           COMPASS     9183     A     
 COMPASS            BX6    X1+X6                                                           COMPASS     9184     A     
 COMPASS            SA1    A1+B1                                                           COMPASS     9185     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 651    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     B2,LCC4     IF BLANK COLUMN WAS FOUND                           COMPASS     9186     A     
 COMPASS            NZ     B3,LCC2                                                         COMPASS     9187     A     
 COMPASS            SA6    A6+B1       STORE WORD                                          COMPASS     9188     A     
 COMPASS            EQ     LCC1        AND GO BACK FOR MORE                                COMPASS     9189     A     
 COMPASS   LCC3     LX6    6           APPEND ZERO BYTES TO WORD                           COMPASS     9190     A     
 COMPASS            SB3    B3-B1                                                           COMPASS     9191     A     
 COMPASS            SB4    B4-B1                                                           COMPASS     9192     A     
 COMPASS   LCC4     NZ     B3,LCC3                                                         COMPASS     9193     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     9194     A     
 COMPASS            SB3    B7                                                              COMPASS     9195     A     
 COMPASS            MX6    0                                                               COMPASS     9196     A     
 COMPASS            PL     B4,LCC3     GO BACK IF NOT TWO BYTES STORED                     COMPASS     9197     A     
 COMPASS                                                                                   CMP30       3042     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3043     A     
 COMPASS            WRITEW B,RELVEC+1,A6-RELVEC                                            COMPASS     9198     A     
 COMPASS            WRITER B                                                               COMPASS     9199     A     
 COMPASS   RM       ELSE                                                                   CMP30       3044     A     
 COMPASS            SX4    A6-RELVEC                                                       CMP30       3045     A     
 COMPASS            IX3    X4+X4                                                           CMP30       3046     A     
 COMPASS            LX4    3                                                               CMP30       3047     A     
 COMPASS            IX2    X3+X4                                                           CMP30       3048     A     
 COMPASS            PUT    B,RELVEC+1,X2                                                   CMP30       3049     A     
 COMPASS            SA1    B-1                                                             CMP30       3050     A     
 COMPASS            NZ     X1,CTL70    IF NOT *W* RECORDS                                  CMP30       3051     A     
 COMPASS            WEOR   B                                                               CMP30       3052     A     
 COMPASS   RM       ENDIF                                                                  CMP30       3053     A     
 COMPASS                                                                                   CMP30       3054     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9200     A     
 COMPASS   LCC      SPACE  4                                                               COMPASS     9201     A     
 COMPASS  **        LCC - LOADER CONTROL CARD.                                             COMPASS     9202     A     
 COMPASS                                                                                   COMPASS     9203     A     
 COMPASS                                                                                   COMPASS     9204     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9205     A     
 COMPASS   LCC      SA1    DKCNT       INCREMENT DECK COUNT                                COMPASS     9206     A     
 COMPASS            SX6    X1+B1                                                           COMPASS     9207     A     
 COMPASS            SA6    A1                                                              COMPASS     9208     A     
 COMPASS            EQ     ZLIST                                                           COMPASS     9209     A     
 COMPASS   LDSET    SPACE  4                                                               CP147         68     A     
 COMPASS  ***       LDSET - LOADER OBJECT DIRECTIVES.                                      CP147         69     A     
 COMPASS  *                                                                                CP147         70     A     
 COMPASS  *                                                                                CP147         71     A     
 COMPASS  *         LDSET  OPTIONS                                                         CP147         72     A     
 COMPASS  *         OPTIONS - ONE OR MORE OPTIONS SEPARATED BY COMMAS.                     CP147         73     A     
 COMPASS  *         EACH OPTION IS SPECIFIED IN ONE OF THE FOLLOWING FORMS                 CP147         74     A     
 COMPASS  *           KEY                                                                  CP147         75     A     
 COMPASS  *           KEY=PARAM                                                            CP147         76     A     
 COMPASS  *           KEY=PARAM1/PARAM2/.../PARAMN                                         CP147         77     A     
 COMPASS  *         SEE LOADER REF. MANUAL FOR PARAMETERS DETAILS.                         CP147         78     A     
 COMPASS                                                                                   CP147         79     A     
 COMPASS                                                                                   CP147         80     A     
 COMPASS            QUAL   PASS1                                                           CP147         81     A     
 COMPASS   LDSET    SA1    ABSFG                                                           CP147         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/28. 19.11.32.      PAGE 652    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X1,CTL80    IF NOT RELOCATABLE                                  CP147         83     A     
 COMPASS            SA1    CHAR        FETCH CURRENT CHARACTER                             CP147         84     A     
 COMPASS            SB7    X1-1R                                                           CP147         85     A     
 COMPASS            ZR     B7,CTL70    IF EMPTY VARIABLE FIELD                             CP147         86     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS2608       41     A     
 COMPASS            SA2    L.TLDS      LENGTH OF TABLE                                     CPS2608       42     A     
 COMPASS            SA1    K.TLDS      CONTROL WORD POINTER                                CPS2608       43     A     
 COMPASS            IX1    X2-X1       WC OF CURRENT LDSET TABLE                           CPS2608       44     A     
 COMPASS            ZR     X2,LDS4     IF FIRST LDSET                                      CPS2608       45     A     
 COMPASS            SB7    X1-7700B                                                        CPS2608       46     A     
 COMPASS            PL     B7,LDS4     IF APPROACHING OVERFLOW CONDITION                   CPS2608       47     A     
 COMPASS   RM       ENDIF                                                                  CPS2608       48     A     
 COMPASS            EQ     LDS2                                                            CP147         87     A     
 COMPASS   LDS1     SA1    CHAR        FETCH CURRENT CHARACTER                             CP147         88     A     
 COMPASS            SB7    X1-1R                                                           CP147         89     A     
 COMPASS            ZR     B7,CTL70    IF END OF OPTIONS                                   CP147         90     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CP147         91     A     
 COMPASS   LDS2     RJ     SCE         SCAN ELEMENT                                        CP147         92          I
          -CPS173 
 COMPASS   LDS2     SB2    B0          ALLOW AS SEPARATORS , = / - SPACE                   CPS173        16     A     
 COMPASS            RJ     SCE         SCAN ELEMENT                                        CPS173        17     A     
 COMPASS            ZR     X6,LDS1     IF NULL ELEMENT                                     CP147         93     A     
 COMPASS            SA1    LDSA-1                                                          CP147         94     A     
 COMPASS            MX0    42                                                              CP147         95     A     
 COMPASS   LDS3     SA1    A1+B1       LOOK UP KEYWORD                                     CP147         96     A     
 COMPASS            BX2    X0*X1                                                           CP147         97     A     
 COMPASS            ZR     X1,LDE3     IF END OF KEYWORD TABLE                             CP147         98     A     
 COMPASS            BX2    X2-X6                                                           CP147         99     A     
 COMPASS            NZ     X2,LDS3     LOOP                                                CP147        100     A     
 COMPASS            NG     B2,LDE2     TEST SEPARATOR CODE                                 CP147        101     A     
 COMPASS            GT     B2,B1,LDE2  IF NOT SPACE COMMA OR =                             CP147        102     A     
 COMPASS            BX1    -X0*X1      EXTRACT PARAMETERS                                  CP147        103     A     
 COMPASS            LX1    -6                                                              CP147        104     A     
 COMPASS            MX0    -3                                                              CP147        105     A     
 COMPASS            BX2    -X0*X1                                                          CP147        106     A     
 COMPASS            SA4    LDSB+X2-1   FETCH PROCESSOR ADDRES                              CP147        107     A     
 COMPASS            AX1    3                                                               CP147        108     A     
 COMPASS            SX6    X1          SAVE PROCESSOR PARAMETER                            CP147        109     A     
 COMPASS            AX1    3           CREATE HEADER WORD                                  CP147        110     A     
 COMPASS            BX7    X4                                                              CP147        111     A     
 COMPASS            BX1    X1+X6       INSERT FLAG BIT                                     CP147        112     A     
 COMPASS            SA7    P1TEMPA     STORE PROCESSOR ADDRESS                             CP147        113     A     
 COMPASS            SX6    B2                                                              CP147        114     A     
 COMPASS            SA6    A7+B1       STORE SEPARATOR CODE IN P1TEMPB                     CP147        115     A     
 COMPASS            ADDWORD TLDS       PUT HEADER WORD IN TLDS                             CP147        116     A     
 COMPASS            IX7    X3-X2       LWA+1 - ORIGIN                                      CP147        117     A     
 COMPASS            SA7    P1TEMP      SAVE L.TLDS                                         CP147        118     A     
 COMPASS            SA5    A7+B1       FETCH PROCESSOR ADDRESS                             CP147        119     A     
 COMPASS            SA4    A5+B1       FETCH SEPARATOR CODE                                CP147        120     A     
 COMPASS            SB3    X5                                                              CP147        121     A     
 COMPASS            SB2    X4                                                              CP147        122     A     
 COMPASS            JP     B3          JUMP TO PROCESSOR                                   CP147        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/28. 19.11.32.      PAGE 653    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CP147        124     A     
 COMPASS                                                                                   CPS2608       49     A     
 COMPASS  **        BUILD NEW CONTROL WORD                                                 CPS2608       50     A     
 COMPASS                                                                                   CPS2608       51     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPS2608       52     A     
 COMPASS   LDS4     RJ     LDHDR                                                           CPS2608       53     A     
 COMPASS            EQ     LDS2                                                            CPS2608       54     A     
 COMPASS   RM       ENDIF                                                                  CPS2608       55     A     
 COMPASS                                                                                   CPS2608       56     A     
 COMPASS                                                                                   CP147        125     A     
 COMPASS  **        PROCESS REWIND, NOREWIN.                                               CP147        126     A     
 COMPASS                                                                                   CP147        127     A     
 COMPASS   LDS10    NZ     B2,LDE4     IF =                                                CP147        128     A     
 COMPASS            EQ     LDS1                                                            CP147        129     A     
 COMPASS                                                                                   CP147        130     A     
 COMPASS                                                                                   CP147        131     A     
 COMPASS  **        PROCESS LIB, OMIT, USE, USEP = NAME1/NAME2/.../NAMEN.                  CP147        132          I
          -FEAT184N 
 COMPASS  **        PROCESS LIB, OMIT, USE, USEP, COMMON = NAME1/NAME2/.../NAMEN.  FEAT184 FEAT184N       7     A     
 COMPASS                                                                                   CP147        133     A     
 COMPASS   LDS20    ZR     B2,LDS1     IF NOT =                                            CP147        134     A     
 COMPASS            SX0    B0                                                              CP147        135     A     
 COMPASS   LDS21    RJ     GETCH       GET CHARACTER                                       CP147        136     A     
 COMPASS            SB2    B1+B1       ALLOW AS SEPARATORS , / SPACE                       CPS173        18     A     
 COMPASS            RJ     SCE         SCAN ELEMENT                                        CP147        137     A     
 COMPASS            SX7    B2          SAVE SEPARATOR CODE                                 CP147        138     A     
 COMPASS            SA7    P1TEMPB                                                         CP147        139     A     
 COMPASS            ZR     X6,LDS22    IF EMPTY ELEMENT                                    CP147        140     A     
 COMPASS            ADDWORD TLDS       ADD ELEMENT TO TLDS                                 CP147        141     A     
 COMPASS            SX0    B1                                                              CP147        142     A     
 COMPASS   LDS22    SA4    P1TEMPB     FETCH SEPARATOR CODE                                CP147        143     A     
 COMPASS            SB3    X4-2                                                            CP147        144     A     
 COMPASS            ZR     B3,LDS21    IF /                                                CP147        145     A     
 COMPASS            ZR     X0,LDS23    IF NO ENTRIES ADDED                                 CP147        146     A     
 COMPASS            SA2    O.TLDS                                                          CP147        147     A     
 COMPASS            SA3    L.TLDS                                                          CP147        148     A     
 COMPASS            SA5    P1TEMP      FETCH POINTER TO HEADER WORD                        CP147        149     A     
 COMPASS            IX7    X3-X5       WORD COUNT                                          CP147        150     A     
 COMPASS            IX5    X2+X5                                                           CP147        151     A     
 COMPASS            SA1    X5-1        INSERT WORD COUNT INTO HEADER WORD                  CP147        152     A     
 COMPASS            LX7    36                                                              CP147        153     A     
 COMPASS            BX6    X1+X7                                                           CP147        154     A     
 COMPASS            SA6    A1                                                              CP147        155     A     
 COMPASS   LDS23    NZ     X4,LDE2     IF NOT SPACE OR COMMA                               CP147        156     A     
 COMPASS            EQ     LDS1                                                            CP147        157     A     
 COMPASS                                                                                   CP147        158     A     
 COMPASS                                                                                   CP147        159     A     
 COMPASS  **        PROCESS PRESET, PRESETA = P                                            CP147        160     A     
 COMPASS                                                                                   CP147        161     A     
 COMPASS   LDS30    ZR     B2,LDS1     IF NOT =                                            CP147        162     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CP147        163     A     
 COMPASS            SB3    X1-1R                                                           CP147        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/28. 19.11.32.      PAGE 654    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     B3,LDS1     IF SPACE                                            CP147        165     A     
 COMPASS            EQ     B3,B1,LDS1  IF COMMA                                            CP147        166     A     
 COMPASS            SB3    X1-1R-                                                          CP147        167     A     
 COMPASS            GT     B3,LDE3     IF FIRST CHARACTER NOT ALPHANUM.                    CP147        168     A     
 COMPASS            SB3    X1-1R0                                                          CP147        169     A     
 COMPASS            PL     B3,LDS32    IF FIRST CHAR IS 0-9 OR + OR -                      CP147        170     A     
 COMPASS            SB2    B0          ALLOW AS SEPARATORS , = / - SPACE                   CPS173        19     A     
 COMPASS            RJ     SCE         SCAN ELEMENT                                        CP147        171     A     
 COMPASS            SA4    =4LNONE                                                         CP147        172     A     
 COMPASS            BX4    X6-X4                                                           CP147        173     A     
 COMPASS            ZR     X4,LDS1     IF *NONE*                                           CP147        174     A     
 COMPASS            SA4    LDSC-1                                                          CP147        175     A     
 COMPASS            MX0    42                                                              CP147        176     A     
 COMPASS   LDS31    SA4    A4+B1       LOOK UP PRESET WORD                                 CP147        177     A     
 COMPASS            BX1    X0*X4                                                           CP147        178     A     
 COMPASS            ZR     X4,LDE3     IF NOT FOUND                                        CP147        179     A     
 COMPASS            BX1    X1-X6                                                           CP147        180     A     
 COMPASS            NZ     X1,LDS31    LOOP                                                CP147        181     A     
 COMPASS            BX1    -X0*X4      EXTRACT CODE                                        CP147        182          I
          -FEAT184N 
 COMPASS            LX1    -7                                                              CP147        183          I
          -FEAT184N 
 COMPASS            SB4    X1          SHIFT COUNT                                         CP147        184          I
          -FEAT184N 
 COMPASS            AX1    53          THROW AWAY SHIFT COUNT                              CP147        185          I
          -FEAT184N 
 COMPASS            LX1    -1          PREPARE INDEX AND SIGN BIT                          CP147        186          I
          -FEAT184N 
 COMPASS            SA4    LDSD+X1                                                         CP147        187          I
          -FEAT184N 
 COMPASS            AX1    B4          COMPUTED COMPLEMENT MASK                            CP147        188          I
          -FEAT184N 
 COMPASS            BX1    X1-X4       CONDITIONALLY COMPLEMENT VALUE                      CP147        189          I
          -FEAT184N 
 COMPASS            BX1    -X0*X4      EXTRACT INDEX TO LDSD.                      FEAT184 FEAT184N       8     A     
 COMPASS            SA1    X1+LDSD     FETCH VALUE.                                FEAT184 FEAT184N       9     A     
 COMPASS            SX6    B0          INDICATE NO CONSTANT SCANNED                        CP147        190     A     
 COMPASS            SA6    P1TEMPB                                                         CP147        191     A     
 COMPASS            EQ     LDS33                                                           CP147        192     A     
 COMPASS                                                                                   CP147        193     A     
 COMPASS   LDS32    SA1    NBASE       SAVE ASSUMED NUMBER BASE                            CP147        194     A     
 COMPASS            SX6    8                                                               CP147        195     A     
 COMPASS            BX7    X1                                                              CP147        196     A     
 COMPASS            SA6    A1          ASSUME OCTAL                                        CP147        197     A     
 COMPASS            SA7    P1TEMPB                                                         CP147        198     A     
 COMPASS            SA1    LWORD       SCAN CONSTANT                                       CP147        199     A     
 COMPASS            SX6    3                                                               CP147        200     A     
 COMPASS            RJ     SCADCON                                                         CP147        201     A     
 COMPASS            SA2    P1TEMPB     RESTORE BASE                                        CP147        202     A     
 COMPASS            BX6    X2                                                              CP147        203     A     
 COMPASS            SA6    NBASE                                                           CP147        204     A     
 COMPASS            NZ     X1,LDE3     IF SCADCON DETECTED ERROR                           CP147        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/28. 19.11.32.      PAGE 655    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    EXVAL                                                           CP147        206     A     
 COMPASS   LDS33    ADDWORD TLDS       PUT VALUE INTO TLDS                                 CP147        207     A     
 COMPASS            SA2    A6-B1       FETCH HEADER WORD                                   CP147        208     A     
 COMPASS            SX4    B1                                                              CP147        209     A     
 COMPASS            LX4    36                                                              CP147        210     A     
 COMPASS            BX6    X2+X4       SET WORD COUNT TO 1                                 CP147        211     A     
 COMPASS            SA6    A2          RESTORE HEADER WORD                                 CP147        212     A     
 COMPASS            SA3    P1TEMPB                                                         CP147        213     A     
 COMPASS            NZ     X3,LDS34    IF CONSTANT WAS SCANNED                             CP147        214     A     
 COMPASS            SA1    CHAR                                                            CP147        215     A     
 COMPASS            SB7    X1-1R                                                           CP147        216     A     
 COMPASS            ZR     B7,LDS1     IF SPACE                                            CP147        217     A     
 COMPASS            EQ     B7,B1,LDS1  IF COMMA                                            CP147        218     A     
 COMPASS            EQ     LDE2        ERROR                                               CP147        219     A     
 COMPASS   LDS34    SA1    EXSTOP      EXSTOP=0 IF SPACE, =1 IF COMMA                      CP147        220     A     
 COMPASS            NZ     X1,LDS2     IF COMMA                                            CP147        221     A     
 COMPASS            EQ     CTL70       IF SPACE                                            CP147        222     A     
 COMPASS                                                                                   CP147        223     A     
 COMPASS                                                                                   CP147        224     A     
 COMPASS  **        PROCESS ERR = P.                                                       CP147        225     A     
 COMPASS                                                                                   CP147        226     A     
 COMPASS   LDS40    ZR     B2,LDS1     IF NOT =                                            CP147        227     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CP147        228     A     
 COMPASS            SB2    B0          ALLOW AS SEPARATORS , = / - SPACE                   CPS173        20     A     
 COMPASS            RJ     SCE         SCAN ELEMENT                                        CP147        229     A     
 COMPASS            ZR     X6,LDS42    IF EMPTY ELEMENT                                    CP147        230     A     
 COMPASS            SA2    LDSE-1                                                          CP147        231     A     
 COMPASS            MX0    42                                                              CP147        232     A     
 COMPASS   LDS41    SA2    A2+B1       LOOK UP ERR KEYWORD                                 CP147        233     A     
 COMPASS            BX4    X0*X2                                                           CP147        234     A     
 COMPASS            ZR     X2,LDE3     IF NOT FOUND                                        CP147        235     A     
 COMPASS            BX4    X4-X6                                                           CP147        236     A     
 COMPASS            NZ     X4,LDS41    LOOP                                                CP147        237     A     
 COMPASS            BX4    -X0*X2                                                          CP147        238     A     
 COMPASS            SA2    P1TEMP      GET POINTER TO HEADER WORD                          CP147        239     A     
 COMPASS            SA3    O.TLDS                                                          CP147        240     A     
 COMPASS            IX2    X2+X3                                                           CP147        241     A     
 COMPASS            SA2    X2-1        FETCH HEADER WORD                                   CP147        242     A     
 COMPASS            BX6    X2+X4       INSERT KEYWORD CODE                                 CP147        243     A     
 COMPASS            SA6    A2          RESTORE HEADER WORD                                 CP147        244     A     
 COMPASS   LDS42    NZ     B2,LDE2     IF NOT SPACE OR COMMA                               CP147        245     A     
 COMPASS            EQ     LDS1                                                            CP147        246     A     
 COMPASS                                                                                   CP147        247     A     
 COMPASS                                                                                   CP147        248     A     
 COMPASS  **        PROCESS MAP = P/LFN.                                                   CP147        249     A     
 COMPASS                                                                                   CP147        250     A     
 COMPASS   LDS50    ZR     B2,LDS1     IF NOT =                                            CP147        251     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CP147        252     A     
 COMPASS            SB3    X1-1R/                                                          CP147        253     A     
 COMPASS            ZR     B3,LDS53    IF /                                                CP147        254     A     
 COMPASS            BX7    X7-X7       INITIALIZE VALUE TO ZERO                            CP147        255     A     
 COMPASS            BX3    X7          INITIALIZE FLAG TO 0                                CP147        256     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 656    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA4    LDSF        MASK FOR NSBEX                                      CP147        257     A     
 COMPASS            SA5    LDSG        NSBEX CODES AND FLAGS                               CP147        258     A     
 COMPASS   LDS51    SB7    X1          COMPUTE MAP TYPE                                    CP147        259     A     
 COMPASS            AX6    X4,B7                                                           CP147        260     A     
 COMPASS            LX6    59                                                              CP147        261     A     
 COMPASS            PL     X6,LDS52    IF NOT MAP TYPE                                     CP147        262     A     
 COMPASS            SB6    B7+B7       COMPUTE SHIFT COUNT                                 CP147        263     A     
 COMPASS            LX6    X5,B6                                                           CP147        264     A     
 COMPASS            MX0    -4                                                              CP147        265     A     
 COMPASS            BX2    -X0*X6      EXTRACT VALUE                                       CP147        266     A     
 COMPASS            BX7    X2+X7       INSERT VALUE                                        CP147        267     A     
 COMPASS            MX0    1                                                               CP147        268     A     
 COMPASS            BX6    X0*X6       EXTRACT FLAG                                        CP147        269     A     
 COMPASS            BX3    X3+X6       OR IT TO OLD FLAG                                   CP147        270     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CP147        271     A     
 COMPASS            EQ     LDS51       LOOP                                                CP147        272     A     
 COMPASS                                                                                   CP147        273     A     
 COMPASS   LDS52    SA2    =02060000B  MASK FOR SPACE COMMA SLASH                          CP147        274     A     
 COMPASS            LX6    X2,B7                                                           CP147        275     A     
 COMPASS            PL     X6,LDE2     IF NOT SPACE COMMA OR SLASH                         CP147        276     A     
 COMPASS            BX0    -X0                                                             CP147        277     A     
 COMPASS            IX4    X0+X7       MAP TYPE LOGICAL VALUE                              CP147        278     A     
 COMPASS            BX6    X4*X3       AND(LOGICAL VALUE,FLAG)                             CP147        279     A     
 COMPASS            MI     X6,LDE3     IF N WITH OTHER LETTERS                             CP147        280     A     
 COMPASS            BX5    -X0*X4                                                          CP147        281     A     
 COMPASS            BX4    X5+X3       COMPUTE S BIT (0 IF NO LETTERS)                     CP147        282     A     
 COMPASS            BX7    X7+X4                                                           CP147        283     A     
 COMPASS            LX7    B1                                                              CP147        284     A     
 COMPASS            SA2    P1TEMP      GET POINTER TO HEADER WORD                          CP147        285     A     
 COMPASS            SA3    O.TLDS                                                          CP147        286     A     
 COMPASS            IX2    X2+X3                                                           CP147        287     A     
 COMPASS            SA2    X2-1        FETCH HEADER WORD                                   CP147        288     A     
 COMPASS            BX6    X2+X7       INSERT TYPE AND S-BIT INTO HEADER WORD              CP147        289     A     
 COMPASS            SA6    A2          RESTORE HEADER WORD                                 CP147        290     A     
 COMPASS            SB3    X1-1R/                                                          CP147        291     A     
 COMPASS            NZ     B3,LDS1     IF NOT /                                            CP147        292     A     
 COMPASS                                                                                   CP147        293     A     
 COMPASS   LDS53    RJ     GETCH       GET NEXT CHARACTER                                  CP147        294     A     
 COMPASS            SB2    B0          ALLOW AS SEPARATORS , = / - SPACE                   CPS173        21     A     
 COMPASS            RJ     SCE         SCAN FILE NAME                                      CP147        295     A     
 COMPASS            ZR     X6,LDS1     IF EMPTY ELEMENT                                    CP147        296     A     
 COMPASS            SX7    B2                                                              CP147        297     A     
 COMPASS            SA7    P1TEMPB     SAVE SEPARATOR CODE                                 CP147        298     A     
 COMPASS            ADDWORD TLDS                                                           CP147        299     A     
 COMPASS            SX7    B1                                                              CP147        300     A     
 COMPASS            LX7    36                                                              CP147        301     A     
 COMPASS            SA2    A6-1        FETCH HEADER WORD                                   CP147        302     A     
 COMPASS            BX6    X2+X7       INSERT WORD COUNT                                   CP147        303     A     
 COMPASS            SA6    A2          RESTORE HEADER WORD                                 CP147        304     A     
 COMPASS            SA1    P1TEMPB     FETCH SEPARATOR CODE                                CP147        305     A     
 COMPASS            NZ     X1,LDE2     IF NOT SPACE OR COMMA                               CP147        306     A     
 COMPASS            EQ     LDS1                                                            CP147        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/28. 19.11.32.      PAGE 657    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CP147        308     A     
 COMPASS                                                                                   CP147        309     A     
 COMPASS  **        PROCESS SUBST = NAME11-NAME12/.../NAMEN1-NAMEN2.                       CP147        310     A     
 COMPASS                                                                                   CP147        311     A     
 COMPASS   LDS60    ZR     B2,LDS1     IF NOT =                                            CP147        312     A     
 COMPASS   LDS61    RJ     GETCH       GET NEXT CHARACTER                                  CP147        313     A     
 COMPASS            SB2    B1          ALLOW AS SEPARATORS , / - SPACE                     CPS173        22     A     
 COMPASS            RJ     SCE         SCAN ELEMENT - 1ST OF PAIR                          CP147        314     A     
 COMPASS            SB3    B2-3                                                            CP147        315     A     
 COMPASS            NZ     B3,LDE1     IF NOT -                                            CP147        316     A     
 COMPASS            ADDWORD TLDS                                                           CP147        317     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CP147        318     A     
 COMPASS            SB2    B1          ALLOW AS SEPARATORS , / - SPACE                     CPS173        23     A     
 COMPASS            RJ     SCE         SCAN ELEMENT - 2ND OF PAIR                          CP147        319     A     
 COMPASS            SX7    B2          SAVE SEPARATOR CODE                                 CP147        320     A     
 COMPASS            SA7    P1TEMPB                                                         CP147        321     A     
 COMPASS            ADDWORD TLDS                                                           CP147        322     A     
 COMPASS            SA4    P1TEMPB     FETCH SEPARATOR                                     CP147        323     A     
 COMPASS            SB3    X4-2                                                            CP147        324     A     
 COMPASS            ZR     B3,LDS61    IF /                                                CP147        325     A     
 COMPASS            SA5    P1TEMP      FETCH POINTER TO HEADER WORD                        CP147        326     A     
 COMPASS            IX3    X3-X2                                                           CP147        327     A     
 COMPASS            IX7    X3-X5       WORD COUNT                                          CP147        328     A     
 COMPASS            IX5    X2+X5                                                           CP147        329     A     
 COMPASS            SA1    X5-1        FETCH HEADER WORD                                   CP147        330     A     
 COMPASS            LX7    36                                                              CP147        331     A     
 COMPASS            BX6    X1+X7       INSERT WORD COUNT INTO HEADER WORD                  CP147        332     A     
 COMPASS            SA6    A1          RESTORE HEADER WORD                                 CP147        333     A     
 COMPASS            NZ     X4,LDE2     IF NOT SPACE OR COMMA                               CP147        334     A     
 COMPASS            EQ     LDS1                                                            CP147        335     A     
 COMPASS                                                                                   CP147        336     A     
 COMPASS                                                                                   CP147        337     A     
 COMPASS  **        PROCESS PD=N, PS=M                                             FEAT184 FEAT184N      10     A     
 COMPASS                                                                           FEAT184 FEAT184N      11     A     
 COMPASS   LDS70    ZR     B2,LDS1     IF NOT =                                    FEAT184 FEAT184N      12     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER.                         FEAT184 FEAT184N      13     A     
 COMPASS            MX6    0           SETUP FOR EVALUATION OF CONSTANT.           FEAT184 FEAT184N      14     A     
 COMPASS            SA6    ELVAL       ZERO OUT RETURN CELL.                       FEAT184 FEAT184N      15     A     
 COMPASS            SX2    ELVAL       VALUE WILL BE RETURNED TO THIS ADDRESS.     FEAT184 FEAT184N      16     A     
 COMPASS            SX3    B1          WORD COUNT.                                 FEAT184 FEAT184N      17     A     
 COMPASS            BX4    X3          ADDRESS FIELD FLAG.                         FEAT184 FEAT184N      18     A     
 COMPASS            SX5    60          FIELD WIDTH FOR CHARACTER DATA.             FEAT184 FEAT184N      19     A     
 COMPASS            RJ     SCD         EVALUATE DECIMAL CONSTANT.                  FEAT184 FEAT184N      20     A     
 COMPASS            SA2    P1TEMP      GET THE POINTER TO THE HEADER WORD.         FEAT184 FEAT184N      21     A     
 COMPASS            SA3    O.TLDS      GET ORGIN OF LDSET TABLE.                   FEAT184 FEAT184N      22     A     
 COMPASS            SA4    ELVAL       GET THE VALUE.                              FEAT184 FEAT184N      23     A     
 COMPASS            IX2    X2+X3       ADDRESS+1 OF HEADER WORD.                   FEAT184 FEAT184N      24     A     
 COMPASS            SA2    X2-1        FETCH HEADER WORD FROM LDSET TABLE.         FEAT184 FEAT184N      25     A     
 COMPASS            BX6    X2+X4       INSERT VALUE INTO HEADER WORD.              FEAT184 FEAT184N      26     A     
 COMPASS            SA6    A2          RESTORE HEADER WORD INTO LDSET TABLE.       FEAT184 FEAT184N      27     A     
 COMPASS            SA1    CHAR        GET CURRENT CHARACTER.                      FEAT184 FEAT184N      28     A     
 COMPASS            SB4    X1                                                      FEAT184 FEAT184N      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/28. 19.11.32.      PAGE 658    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB3    1R                                                      FEAT184 FEAT184N      30     A     
 COMPASS            EQ     B3,B4,LDS1  IF CURRENT CHARACTER IS A BLANK.            FEAT184 FEAT184N      31     A     
 COMPASS            SB3    1R,                                                     FEAT184 FEAT184N      32     A     
 COMPASS            EQ     B3,B4,LDS1  ELSE IF CURRENT CHARACTER IS A COMMA.       FEAT184 FEAT184N      33     A     
 COMPASS            EQ     LDE2        ELSE ERROR IF NOT BLANK OR COMMA.           FEAT184 FEAT184N      34     A     
 COMPASS                                                                           FEAT184 FEAT184N      35     A     
 COMPASS                                                                           FEAT184 FEAT184N      36     A     
 COMPASS  **        ERROR PROCESSING FOR LDSET.                                            CP147        338     A     
 COMPASS  *         SEARCH FOR SPACE OR COMMA.                                             CP147        339     A     
 COMPASS                                                                                   CP147        340     A     
 COMPASS                                                                                   CP147        341     A     
 COMPASS  *         LDE1 - UPDATE WORD COUNT IN HEADER WORD.                               CP147        342     A     
 COMPASS                                                                                   CP147        343     A     
 COMPASS   LDE1     SA5    P1TEMP      FETCH POINTER TO HEADER WORD                        CP147        344     A     
 COMPASS            SA2    L.TLDS                                                          CP147        345     A     
 COMPASS            SA3    O.TLDS                                                          CP147        346     A     
 COMPASS            IX2    X2-X5       WORD COUNT                                          CP147        347     A     
 COMPASS            IX5    X3+X5       FETCH HEADER WORD                                   CP147        348     A     
 COMPASS            SA1    X5-1                                                            CP147        349     A     
 COMPASS            LX2    36                                                              CP147        350     A     
 COMPASS            BX6    X1+X2       INSERT WORD COUNT INTO HEADER WORD                  CP147        351     A     
 COMPASS            SA6    A1          RESTORE HEADER WORD                                 CP147        352     A     
 COMPASS            EQ     LDE3                                                            CP147        353     A     
 COMPASS                                                                                   CP147        354     A     
 COMPASS  *         LDE2 - DISCARD CURRENT CHARACTER.                                      CP147        355     A     
 COMPASS                                                                                   CP147        356     A     
 COMPASS   LDE2     RJ     GETCH       GET NEXT CHARACTER                                  CP147        357     A     
 COMPASS                                                                                   CP147        358     A     
 COMPASS  *         LDE3 - SEARCH FOR SPACE OR COMMA.                                      CP147        359     A     
 COMPASS                                                                                   CP147        360     A     
 COMPASS   LDE3     SA1    CHAR                                                            CP147        361     A     
 COMPASS            SB7    X1-1R                                                           CP147        362     A     
 COMPASS            ZR     B7,LDE4     IF SPACE                                            CP147        363     A     
 COMPASS            NE     B7,B1,LDE2  IF NOT COMMA                                        CP147        364     A     
 COMPASS                                                                                   CP147        365     A     
 COMPASS  *         LDE4 - ONLY NOTE ERROR.                                                CP147        366     A     
 COMPASS                                                                                   CP147        367     A     
 COMPASS   LDE4     SX7    B1          NOTE ERROR                                          CP147        368     A     
 COMPASS            SA7    AERR                                                            CP147        369     A     
 COMPASS            SA7    EFLG                                                            CP147        370     A     
 COMPASS            EQ     LDS1                                                            CP147        371     A     
 COMPASS                                                                                   CP147        372     A     
 COMPASS                                                                                   CP147        373     A     
 COMPASS  *         LDSA - LDSET KEYWORD TABLE.                                            CP147        374     A     
 COMPASS  *         VFD    42/0LKEYWORD, 6/, 3/FLAG, 3/PROC, 6/CODE                        CP147        375     A     
 COMPASS  *                                                                                CP147        376     A     
 COMPASS  *                FLAG = PARAMETER TO PROCESSOR.                                  CP147        377     A     
 COMPASS  *                PROC = PROCESSOR INDEX INTO LDSB.                               CP147        378     A     
 COMPASS  *                CODE = SUBTABLE TYPE CODE.                                      CP147        379     A     
 COMPASS                                                                                   CP147        380     A     
 COMPASS   LDSA     BSS    0                                                               CP147        381     A     
 COMPASS            CON    0LLIB+0210B                                                     CP147        382     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 659    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            CON    0LMAP+0511B                                                     CP147        383     A     
 COMPASS            CON    0LPRESET+0312B                                                  CP147        384     A     
 COMPASS            CON    0LPRESETA+1312B                                                 CP147        385     A     
 COMPASS            CON    0LERR+0413B                                                     CP147        386     A     
 COMPASS            CON    0LREWIND+0114B                                                  CP147        387     A     
 COMPASS            CON    0LNOREWIN+1114B                                                 CP147        388     A     
 COMPASS            CON    0LUSEP+0215B                                                    CP147        389     A     
 COMPASS            CON    0LUSE+0216B                                                     CP147        390     A     
 COMPASS            CON    0LSUBST+0617B                                                   CP147        391     A     
 COMPASS            CON    0LOMIT+0220B                                                    CP147        392     A     
 COMPASS            CON    0LEPT+0225B                                                     CP161CP        4     A     
 COMPASS            CON    0LNOEPT+0226B                                                   CP161CP        5     A     
 COMPASS            CON    0LCOMMON+0232B                                          FEAT184 FEAT184N      37     A     
 COMPASS            CON    0LPD+0733B                                              FEAT184 FEAT184N      38     A     
 COMPASS            CON    0LPS+0734B                                              FEAT184 FEAT184N      39     A     
 COMPASS            DATA   0           LIST TERMINATOR                                     CP147        393     A     
 COMPASS                                                                                   CP147        394     A     
 COMPASS                                                                                   CP147        395     A     
 COMPASS  *         LDSB - PROCESSOR ADDRESS.                                              CP147        396     A     
 COMPASS                                                                                   CP147        397     A     
 COMPASS   LDSB     BSS    0                                                               CP147        398     A     
 COMPASS            CON    LDS10       REWIND,NOREWIN                                      CP147        399     A     
 COMPASS            CON    LDS20       LIB,OMIT,USE,USEP                                   CP147        400          I
          -CP161CP
 COMPASS            CON    LDS20       LIB, OMIT, USE, USEP, EPT, NOEPT                    CP161CP        6          I
          -FEAT184N 
 COMPASS            CON    LDS20       LIB, OMIT, USE, USEP, EPT, NOEPT, COMMON    FEAT184 FEAT184N      40     A     
 COMPASS            CON    LDS30       PRESET,PRESETA                                      CP147        401     A     
 COMPASS            CON    LDS40       ERR                                                 CP147        402     A     
 COMPASS            CON    LDS50       MAP                                                 CP147        403     A     
 COMPASS            CON    LDS60       SUBST                                               CP147        404     A     
 COMPASS            CON    LDS70       PD, PS                                      FEAT184 FEAT184N      41     A     
 COMPASS                                                                                   CP147        405     A     
 COMPASS                                                                                   CP147        406     A     
 COMPASS  *         LDSC - PRESET/PRESETA KEYWORD TABLE.                                   CP147        407     A     
 COMPASS  *         VFD    42/0LKEYWORD, 5/, 6/SHIFT, 6/INDEX, 1/COMPL                     CP147        408          I
          -FEAT184N 
 COMPASS  *                SHIFT = COMPLEMENT MASK SHIFT COUNT.                            CP147        409          I
          -FEAT184N 
 COMPASS  *                INDEX = INDEX INTO LDSD TABLE.                                  CP147        410          I
          -FEAT184N 
 COMPASS  *                COMPL = COMPLEMENT VALUE FLAG.                                  CP147        411          I
          -FEAT184N 
 COMPASS  *         VFD    42/0LKEYWORD, 12/, 6/INDEX                              FEAT184 FEAT184N      42     A     
 COMPASS  *                INDEX = INDEX INTO LDSD TABLE                           FEAT184 FEAT184N      43     A     
 COMPASS                                                                                   CP147        412     A     
 COMPASS   LDSC     BSS    0                                                               CP147        413     A     
 COMPASS            CON    0LZERO+16600B                                                   CP147        414          I
          -FEAT184N 
 COMPASS            CON    0LONES+16601B                                                   CP147        415          I
          -FEAT184N 
 COMPASS            CON    0LINDEF+16602B                                                  CP147        416          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 660    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -FEAT184N 
 COMPASS            CON    0LNGINDEF+02603B                                                CP147        417          I
          -FEAT184N 
 COMPASS            CON    0LINF+16604B                                                    CP147        418          I
          -FEAT184N 
 COMPASS            CON    0LNGINF+02605B                                                  CP147        419          I
          -FEAT184N 
 COMPASS            CON    0LALTZERO+16606B                                                CP147        420          I
          -FEAT184N 
 COMPASS            CON    0LALTONES+16607B                                                CP147        421          I
          -FEAT184N 
 COMPASS            CON    0LZERO                                                  FEAT184 FEAT184N      44     A     
 COMPASS            CON    0LONES+1B                                               FEAT184 FEAT184N      45     A     
 COMPASS            CON    0LINDEF+2B                                              FEAT184 FEAT184N      46     A     
 COMPASS            CON    0LNGINDEF+3B                                            FEAT184 FEAT184N      47     A     
 COMPASS            CON    0LINF+4B                                                FEAT184 FEAT184N      48     A     
 COMPASS            CON    0LNGINF+5B                                              FEAT184 FEAT184N      49     A     
 COMPASS            CON    0LALTZERO+6B                                            FEAT184 FEAT184N      50     A     
 COMPASS            CON    0LALTONES+7B                                            FEAT184 FEAT184N      51     A     
 COMPASS            CON    0LDEBUG+10B                                             FEAT184 FEAT184N      52     A     
 COMPASS                                                                                   CP147        422     A     
 COMPASS                                                                                   CP147        423     A     
 COMPASS  *         LDSD - KEYWORD VALUES.                                                 CP147        424          I
          -FEAT184N 
 COMPASS  *         LDSD - PRESET/PRESETA KEYWORD VALUES.                          FEAT184 FEAT184N      53     A     
 COMPASS                                                                                   CP147        425     A     
 COMPASS   LDSD     DATA   0           LIST TERMINATOR OF LDSC                             CP147        426     A     
 COMPASS            CON    1777BS48                                                        CP147        427          I
          -FEAT184N 
 COMPASS            CON    3777BS48                                                        CP147        428          I
          -FEAT184N 
 COMPASS            CON    25252525252525252525B                                           CP147        429          I
          -FEAT184N 
 COMPASS            CON    77777777777777777777B                                   FEAT184 FEAT184N      54     A     
 COMPASS            CON    17770000000000000000B                                   FEAT184 FEAT184N      55     A     
 COMPASS            CON    60000000000000000000B                                   FEAT184 FEAT184N      56     A     
 COMPASS            CON    37770000000000000000B                                   FEAT184 FEAT184N      57     A     
 COMPASS            CON    40000000000000000000B                                   FEAT184 FEAT184N      58     A     
 COMPASS            CON    25252525252525252525B                                   FEAT184 FEAT184N      59     A     
 COMPASS            CON    52525252525252525252B                                   FEAT184 FEAT184N      60     A     
 COMPASS            CON    60000000000400400000B                                   FEAT184 FEAT184N      61     A     
 COMPASS                                                                                   CP147        430     A     
 COMPASS                                                                                   CP147        431     A     
 COMPASS  *         LDSE - ERR KEYWORD TABLE.                                              CP147        432     A     
 COMPASS  *         VFD    42/0LKEYWORD, 18/VALUE                                          CP147        433     A     
 COMPASS                                                                                   CP147        434     A     
 COMPASS   LDSE     BSS    0                                                               CP147        435     A     
 COMPASS            CON    0LALL+0                                                         CP147        436     A     
 COMPASS            CON    0LFATAL+1                                                       CP147        437     A     
 COMPASS            CON    0LNONE+2                                                        CP147        438     A     
 COMPASS            DATA   0           LIST TERMINATOR                                     CP147        439     A     
 COMPASS                                                                                   CP147        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/28. 19.11.32.      PAGE 661    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CP147        441     A     
 COMPASS   LDSF     BSS    0           MASK FOR MAP TYPE LETTERS                           CP147        442     A     
 COMPASS            ECHO   2,L=(N,S,B,E,X)                                                 CP147        443     A     
 COMPASS            POS    1R_L+1                                                          CP147        444     A     
 COMPASS            VFD    1/1                                                             CP147        445     A     
 COMPASS            POS    0                                                               CP147        446     A     
 COMPASS                                                                                   CP147        447     A     
 COMPASS                                                                                   CP147        448     A     
 COMPASS   LDSG     BSS    0           VALUES FOR MAP TYPE LETTERS                         CP147        449     A     
 COMPASS            ECHO   2,L=(N,S,B,E,X),M=(0,1,2,4,10B),N=(1,0,0,0,0)                   CP147        450     A     
 COMPASS            POS    64-2*1R_L                                                       CP147        451     A     
 COMPASS            VFD    4/M,1/N                                                         CP147        452     A     
 COMPASS            POS    0                                                               CP147        453     A     
 COMPASS   LDSET    SPACE  4                                                               CP147        454     A     
 COMPASS                                                                                   CP147        455     A     
 COMPASS                                                                                   CP147        456     A     
 COMPASS  **        LDSET - LOADER OBJECT DIRECTIVES.                                      CP147        457     A     
 COMPASS                                                                                   CP147        458     A     
 COMPASS            QUAL   PASS2                                                           CP147        459     A     
 COMPASS   LDSET    EQU    ZLIST                                                           CP147        460     A     
 COMPASS   LIST     SPACE  4                                                               COMPASS     9210     A     
 COMPASS  ***       LIST - EXTENT OF LISTING.                                              COMPASS     9211     A     
 COMPASS  *                                                                                COMPASS     9212     A     
 COMPASS  *                                                                                COMPASS     9213     A     
 COMPASS  *NAME     LIST   P1,P2,P3,,,,PN                                                  COMPASS     9214          I
          -CMP30  
 COMPASS  *         LIST   P1,P2,...,PN                                                    CMP30       3055     A     
 COMPASS  *         LIST   *                                                               CMP30       3056     A     
 COMPASS  *         CONTROLS LIST OUTPUT WHEN THE LIST PARAMETER (L) ON THE                COMPASS     9215     A     
 COMPASS  *         COMPASS CONTROL CARD IS OTHER THAN *0*.  ONE OR MORE OPTIONS           COMPASS     9216     A     
 COMPASS  *         ARE SPECIFIED IN THE VARIABLE FIELD.  A MINUS PREFIX TO AN             COMPASS     9217     A     
 COMPASS  *         OPTION CAUSES THE OPTION TO BE DISCONTINUED.                           COMPASS     9218     A     
 COMPASS  *         AN ASTERISK CAUSES RETURN TO THE PREVIOUS SETTINGS.                    CMP30       3057     A     
 COMPASS  *                                                                                COMPASS     9219     A     
 COMPASS  *           OPTION           DESCRIPTION OF OUTPUT                               COMPASS     9220     A     
 COMPASS  *                                                                                COMPASS     9221     A     
 COMPASS  *             A              LIST SUBSTITUTED LINES.  WHEN SELECTED,             COMPASS     9222     A     
 COMPASS  *                            THE LINE IS LISTED BEFORE AND AFTER                 COMPASS     9223     A     
 COMPASS  *                            MICRO AND CONCATENATION SUBSTITUTION                COMPASS     9224     A     
 COMPASS  *                            AND REMOVAL.                                        COMPASS     9225     A     
 COMPASS  *                                                                                COMPASS     9226     A     
 COMPASS  *             C              CONTROL CARD LIST.  CONTROLS THE LISTING            COMPASS     9227     A     
 COMPASS  *                            OF EJECT, SPACE, AND TITLE.                         COMPASS     9228     A     
 COMPASS  *                                                                                COMPASS     9229     A     
 COMPASS  *             D              DETAIL.  SUBSEQUENT LINES FOR DATA, DIS             COMPASS     9230     A     
 COMPASS  *                            RMT, VFD AND LIST OF LITERALS AND                   COMPASS     9231     A     
 COMPASS  *                            DEFERRED SYMBOLS.                                   COMPASS     9232     A     
 COMPASS  *                                                                                COMPASS     9233     A     
 COMPASS  *             E              ECHOED LINES.  INCLUDES ALL ITERATIONS              COMPASS     9234     A     
 COMPASS  *                            OF DUPLICATED CODE.                                 COMPASS     9235     A     
 COMPASS  *                                                                                COMPASS     9236     A     
 COMPASS  *             F              IF-SKIPPED LINES.                                   COMPASS     9237     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 662    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS     9238     A     
 COMPASS  *             G              CODE GENERATIVE LINES.  THIS INCUDES                COMPASS     9239     A     
 COMPASS  *                            BSS, BSSZ, CON, DATA, DIS, R=, AND VFD.             COMPASS     9240     A     
 COMPASS  *                                                                                COMPASS     9241     A     
 COMPASS  *             L              NORMALLY SELECTED, WHEN CANCELED, ONLY              COMPASS     9242     A     
 COMPASS  *                            REFERENCE TABLE, ERROR FLAGGED LINES AND            COMPASS     9243     A     
 COMPASS  *                            LIST INSTRUCTIONS ARE LISTED ON THE                 COMPASS     9244     A     
 COMPASS  *                            LONG OUTPUT FILE.                                   COMPASS     9245     A     
 COMPASS  *                                                                                COMPASS     9246     A     
 COMPASS  *             M              MACRO.  LINES GENERATED BY MACRO                    COMPASS     9247     A     
 COMPASS  *                            EXPANSION.                                          COMPASS     9248     A     
 COMPASS  *                                                                                CMP19        180     A     
 COMPASS  *             N              NORMALLY SELECTED.  WHEN CANCELED,                  CMP19        181     A     
 COMPASS  *                            ASSEMBLER DOES NOT PRINT NON-SST SYMBOLS            CMP19        182     A     
 COMPASS  *                            THAT HAVE NO REFERENCE TABLE ENTRIES.               CMP19        183     A     
 COMPASS  *                                                                                COMPASS     9249     A     
 COMPASS  *             R              NORMALLY SELECTED.  WHEN CANCELED,                  COMPASS     9250     A     
 COMPASS  *                            ASSEMBLER DOES NOT ACCUMULATE REFERENCE             COMPASS     9251     A     
 COMPASS  *                            TABLE INFORMATION.                                  COMPASS     9252     A     
 COMPASS  *                                                                                COMPASS     9253     A     
 COMPASS  *             S              SYSTEMS MACROS.  LINES GENERATED BY                 COMPASS     9254     A     
 COMPASS  *                            SYSTEMS MACRO EXPANSION.                            COMPASS     9255     A     
 COMPASS  *                                                                                CMP19        184     A     
 COMPASS  *             T              SST SYMBOLS THAT HAVE NO REFERENCE                  CMP19        185          I
          -CMP26  
 COMPASS  *                            TABLE ENTRIES.                                      CMP19        186          I
          -CMP26  
 COMPASS  *             T              SST AND XTEXT SYMBOLS THAT HAVE NO                  CMP26         27     A     
 COMPASS  *                            REFERENCE TABLE ENTRIES.                            CMP26         28     A     
 COMPASS  *                                                                                COMPASS     9256     A     
 COMPASS  *             X              XTEXT LINES AND LINES BRACKETED BY                  COMPASS     9257     A     
 COMPASS  *                            CTEXT AND ENDX.                                     COMPASS     9258     A     
 COMPASS  *                                                                                CMP30       3058     A     
 COMPASS  *             $              ALL OF THE ABOVE.                                   CMP30       3059     A     
 COMPASS                                                                                   COMPASS     9259     A     
 COMPASS                                                                                   COMPASS     9260     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9261     A     
 COMPASS   LIST     SA3    LISTFG                                                          COMPASS     9262          I
          -CMP30  
 COMPASS   LIST     SA3    CP.LISTF                                                        CMP30       3060     A     
 COMPASS            ZR     X3,CTL70    IF NO EXTERNAL LIST                                 COMPASS     9263     A     
 COMPASS            RJ     SLO         SET LIST OPTIONS                                    COMPASS     9264     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9265     A     
 COMPASS   LIST     SPACE  4                                                               COMPASS     9266     A     
 COMPASS  **        LIST - EXTENT OF LISTINGS.                                             COMPASS     9267     A     
 COMPASS                                                                                   COMPASS     9268     A     
 COMPASS                                                                                   COMPASS     9269     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9270     A     
 COMPASS   LIST     SA3    LISTFG                                                          COMPASS     9271          I
          -CMP30  
 COMPASS   LIST     SA3    CP.LISTF                                                        CMP30       3061     A     
 COMPASS            ZR     X3,ZLIST    IF NO EXTERNAL LIST                                 COMPASS     9272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 663    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     SLO         SET LIST OPTIONS                                    COMPASS     9273     A     
 COMPASS            RJ     LDL         LIST DEFERRED LINE                                  COMPASS     9274     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   COMPASS     9275     A     
 COMPASS            RJ     LISTL                                                           COMPASS     9276     A     
 COMPASS            EQ     Z100                                                            COMPASS     9277     A     
 COMPASS   LIT      SPACE  4                                                               COMPASS     9278     A     
 COMPASS  ***       LIT - LITERAL VALUES.                                                  COMPASS     9279     A     
 COMPASS  *                                                                                COMPASS     9280     A     
 COMPASS  *                                                                                COMPASS     9281     A     
 COMPASS  *SYM      LIT    ITEM1,ITEM2,,,ITEMN                                             COMPASS     9282     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUEOF THE LOCATION  OF ITEM1 IN THE            COMPASS     9283     A     
 COMPASS  *         LITERAL BLOCK.  UP TO 100 WORDS OF DATA ITEMS, SEPARATED               COMPASS     9284     A     
 COMPASS  *         BY COMMAS, MAY BE INCLUDED IN ONE (LIT) INSTRUCTION.                   COMPASS     9285     A     
 COMPASS                                                                                   COMPASS     9286     A     
 COMPASS                                                                                   COMPASS     9287     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9288     A     
 COMPASS   LIT      MX6    0                                                               COMPASS     9289     A     
 COMPASS            SA6    P1TEMP      COUNT OF ITEMS IN LIT                               COMPASS     9290     A     
 COMPASS   LIT1     SA2    P1TEMP      TEST ITEM COUNT                                     COMPASS     9291     A     
 COMPASS            SB7    X2-NLITS                                                        COMPASS     9292     A     
 COMPASS            PL     B7,LIT3                                                         COMPASS     9293     A     
 COMPASS            SX2    VALUES+X2                                                       COMPASS     9294     A     
 COMPASS            SX3    -B7                                                             COMPASS     9295     A     
 COMPASS            MX4    0                                                               COMPASS     9296     A     
 COMPASS            SA5    LWORD                                                           COMPASS     9297     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM (NEXT LITERAL)                       COMPASS     9298     A     
 COMPASS            SA2    P1TEMP      CUMULATE COUNT                                      COMPASS     9299     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     9300     A     
 COMPASS            IX6    X2+X3                                                           COMPASS     9301     A     
 COMPASS            SA6    A2                                                              COMPASS     9302     A     
 COMPASS            ZR     B7,LIT2     JUMP IF END OF FIELD                                COMPASS     9303     A     
 COMPASS            RJ     GETCH                                                           COMPASS     9304     A     
 COMPASS            EQ     LIT1        GO BACK FOR MORE                                    COMPASS     9305     A     
 COMPASS   LIT2     SX2    VALUES      LOOK UP VALUES IN LITERAL TABLE                     COMPASS     9306     A     
 COMPASS            BX3    X6                                                              COMPASS     9307     A     
 COMPASS            ZR     X6,ERA      IF NO DATA                                          COMPASS     9308     A     
 COMPASS            RJ     YTLULIT                                                         COMPASS     9309     A     
 COMPASS            SX6    X3                                                              COMPASS     9310     A     
 COMPASS            SA6    FLAG        STORE LITERAL INDEX                                 COMPASS     9311     A     
 COMPASS            SA2    LOCSYM      DEFINE SYMBOL                                       COMPASS     9312     A     
 COMPASS            SA3    UI+1                                                            COMPASS     9313     A     
 COMPASS            SX3    X3+2                                                            COMPASS     9314     A     
 COMPASS            ZR     X2,CTL70    IGNORE IF NO LOCATION SYMBOL                        COMPASS     9315     A     
 COMPASS            BX2    X6                                                              COMPASS     9316     A     
 COMPASS            SX4    0                                                               COMPASS     9317     A     
 COMPASS            MX5    0                                                               COMPASS     9318     A     
 COMPASS            RJ     YDEFLOC                                                         COMPASS     9319     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     9320     A     
 COMPASS   LIT3     SX6    B1                                                              COMPASS     9321     A     
 COMPASS            SA6    EFLG                                                            COMPASS     9322     A     
 COMPASS   +        SA6    FERR                                                            COMPASS     9323     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9324     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 664    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   LIT      SPACE  4                                                               COMPASS     9325     A     
 COMPASS  **        LIT - LITERAL VALUES.                                                  COMPASS     9326     A     
 COMPASS  *         ENTRY  (FLAG) = INDEX INTO LITAB.                                      COMPASS     9327     A     
 COMPASS                                                                                   COMPASS     9328     A     
 COMPASS                                                                                   COMPASS     9329     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9330     A     
 COMPASS   LIT      SA1    FLAG                                                            COMPASS     9331          I
          -CMP7   
 COMPASS   LIT      SA1    LOCSYM                                                          CMP7           1     A     
 COMPASS            ZR     X1,LIT1     IF LOCATION FIELD IS EMPTY                          CMP7           2     A     
 COMPASS            SB7    X1-1R+                                                          CMP7           3     A     
 COMPASS            ZR     B7,LIT1     IF +                                                CMP7           4     A     
 COMPASS            EQ     B7,B1,LIT1  IF -                                                CMP7           5     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      CMP7           6     A     
 COMPASS            ZR     X3,LIT1     IF NOT FOUND                                        CMP7           7     A     
 COMPASS            SX1    1RL         USAGE = L                                           CMP7           8     A     
 COMPASS            RJ     ENTREF      ENTER REFERENCE TABLE                               CMP7           9     A     
 COMPASS   LIT1     SA1    FLAG                                                            CMP7          10     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS     9332     A     
 COMPASS            SA3    UI          USE INDEX                                           COMPASS     9333     A     
 COMPASS            SA4    LI                                                              COMPASS     9334          I
          -CMP1   
 COMPASS            IX2    X2+X3                                                           COMPASS     9335     A     
 COMPASS            SA3    X2+14       FETCH ORIGIN OF LITERAL TABLE                       COMPASS     9336          I
          -CMP30  
 COMPASS            IX1    X3+X1                                                           COMPASS     9337          I
          -CMP30  
 COMPASS            MX0    -21                                                             CMP7          11          I
          -CMP30  
 COMPASS            BX6    X1                                                              CMP7          12          I
          -CMP30  
 COMPASS            BX1    -X0*X1                                                          CMP7          13          I
          -CMP30  
 COMPASS            AX6    24                                                              CMP7          14          I
          -CMP30  
 COMPASS            SA3    X2+2*4+2    ORIGIN OF LITERALS BLOCK                            CMP30       3062     A     
 COMPASS            MX0    -21                                                             CMP30       3063     A     
 COMPASS            IX4    X3+X1                                                           CMP30       3064     A     
 COMPASS            MX5    -8                                                              CMP30       3065     A     
 COMPASS            BX1    -X0*X4                                                          CMP30       3066     A     
 COMPASS            AX4    24                                                              CMP30       3067     A     
 COMPASS            BX6    -X5*X4      RELOCATION                                          CMP30       3068     A     
 COMPASS            MX7    0                                                               CMP7          15     A     
 COMPASS            SA6    EXREL                                                           CMP7          16     A     
 COMPASS            SA7    EXEXT                                                           CMP7          17     A     
 COMPASS            IX1    X1-X4                                                           COMPASS     9338          I
          -CMP1   
 COMPASS            SX2    36                                                              COMPASS     9339     A     
 COMPASS            MX3    0                                                               COMPASS     9340     A     
 COMPASS            RJ     PACKO                                                           COMPASS     9341          I
          -CMP7   
 COMPASS            RJ     PACKOR                                                          CMP7          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/28. 19.11.32.      PAGE 665    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     ZLIST                                                           COMPASS     9342     A     
 COMPASS   LOC      SPACE  4                                                               COMPASS     9343     A     
 COMPASS  ***       LOC - LOCATION COUNTER.                                                COMPASS     9344     A     
 COMPASS  *                                                                                COMPASS     9345     A     
 COMPASS  *                                                                                COMPASS     9346     A     
 COMPASS  *         LOC    REXP                                                            COMPASS     9347     A     
 COMPASS  *         SET LOCATION COUNTER TO (REXP).                                        COMPASS     9348     A     
 COMPASS                                                                                   COMPASS     9349     A     
 COMPASS                                                                                   COMPASS     9350     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9351     A     
 COMPASS   LOC      RJ     YFOUP       FORCE UPPER                                         COMPASS     9352     A     
 COMPASS            SX6    B1+B1       EVALUTE NEW VALUE OF $                              COMPASS     9353     A     
 COMPASS            SX1    21                                                              COMPASS     9354     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     9355     A     
 COMPASS            SA2    AERR                                                            COMPASS     9356     A     
 COMPASS            SA3    UERR                                                            COMPASS     9357     A     
 COMPASS            SA4    EXVAL                                                           COMPASS     9358     A     
 COMPASS            SA5    EXREL                                                           COMPASS     9359     A     
 COMPASS            BX2    X3+X2                                                           COMPASS     9360     A     
 COMPASS            LX6    X4                                                              COMPASS     9361     A     
 COMPASS            SX7    X5                                                              COMPASS     9362     A     
 COMPASS            NZ     X2,CTL70                                                        COMPASS     9363     A     
 COMPASS            SA6    LOCCTR                                                          COMPASS     9364     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     9365     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9366     A     
 COMPASS   LOC      SPACE  4                                                               COMPASS     9367     A     
 COMPASS  **        LOC - LOCATION COUNTER.                                                COMPASS     9368     A     
 COMPASS                                                                                   COMPASS     9369     A     
 COMPASS                                                                                   COMPASS     9370     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9371     A     
 COMPASS   LOC      RJ     ZFOUP       FORCE UPPER                                         COMPASS     9372     A     
 COMPASS            SX6    B1+B1                                                           COMPASS     9373     A     
 COMPASS            SX1    21                                                              COMPASS     9374     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     9375     A     
 COMPASS            NZ     X1,ZLIST    EXIT IF ERRORS                                      COMPASS     9376     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     9377     A     
 COMPASS            SA3    A1+B1       EXREL                                               COMPASS     9378     A     
 COMPASS            BX6    X1                                                              COMPASS     9379     A     
 COMPASS            SA6    LOCCTR      RESET LOCCTR                                        COMPASS     9380     A     
 COMPASS            BX7    X3                                                              COMPASS     9381     A     
 COMPASS            SA7    A6+B1       RESET LOCCTR RELOCATION                             COMPASS     9382     A     
 COMPASS            EQ     ZLLA        EXIT                                                COMPASS     9383     A     
 COMPASS   MACHINE  SPACE  4                                                               CMP30       3069     A     
 COMPASS  ***       MACHINE - DECLARE OBJECT PROCESSOR TYPE.                               CMP30       3070     A     
 COMPASS  *                                                                                CMP30       3071     A     
 COMPASS  *                                                                                CMP30       3072     A     
 COMPASS  *         MACHINE TYPE,H1,H2,...,HN                                              CMP30       3073     A     
 COMPASS  *         SETS *TARGET*, *VALID*, AND *HARDWARE* FIELDS IN PREFIX TABLE          CMP30       3074     A     
 COMPASS  *         IN BINARY OUTPUT, UNDEFINES MACHINE INSTRUCTIONS FOR MACHINES          CMP30       3075     A     
 COMPASS  *         OTHER THAN (TYPE), AND SETS A FLAG THAT CAN BE TESTED BY THE           CMP30       3076     A     
 COMPASS  *         PSEUDO INSTRUCTIONS IFCP6, IFCP7, IFPP6, AND IFPP7.                    CMP30       3077     A     
 COMPASS  *         (TYPE) = OBJECT PROCESSOR TYPE, INTERPRETED AS FOLLOWS -               CMP30       3078     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 666    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                      TYPE         TARGET          VALID                        CMP30       3079     A     
 COMPASS  *                                 (CP)  (PP)      (CP)  (PP)                     CMP30       3080     A     
 COMPASS  *                       6          --    --        6X    6P                      CMP30       3081     A     
 COMPASS  *                       6N         6N    --        6X    6P                      CMP30       3082     A     
 COMPASS  *                       7          --    --        7X    7P                      CMP30       3083     A     
 COMPASS  *                       7N         7N    --        7X    7P                      CMP30       3084     A     
 COMPASS  *                      OTHER       --    --        --    YP                      CMP30       3085     A     
 COMPASS  *                  WHERE N IS A NUMERIC CHARACTER, -- REPRESENTS BLANKS,         CMP30       3086     A     
 COMPASS  *                  AND Y IS 6 IF *PERIPH* SPECIFIED OR 7 IF *PPU* SPEC.          CMP30       3087     A     
 COMPASS  *         (HI) = HARDWARE INSTRUCTION DEPENDENCIES.  ONLY THE FIRST              CMP30       3088     A     
 COMPASS  *                CHARACTER OF EACH IS USED.                                      CMP30       3089     A     
 COMPASS                                                                                   CMP30       3090     A     
 COMPASS                                                                                   CMP30       3091     A     
 COMPASS            QUAL   PASS1                                                           CMP30       3092     A     
 COMPASS   MCH      SA1    CHAR        GET FIRST CHARACTER                                 CMP30       3093     A     
 COMPASS                                                                                   CPSA227        7     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPSA227        8     A     
 COMPASS                                                                                   CPSA227        9     A     
 COMPASS            SB7    X1-1R6                                                          CMP30       3094          I
          -F4830CP
 COMPASS            BX6    X1                                                              F4830CP       45     A     
 COMPASS            SB7    X1-1R8                                                          F4830CP       46     A     
 COMPASS            NZ     B7,MCHA     IF NOT 8 GO CHECK FOR 6 OR 7                        F4830CP       47     A     
 COMPASS            SB7    3           ELSE SET MTYPE TO 4 (SEE MCHB)                      F4830CP       48     A     
 COMPASS            EQ     MCHB                                                            F4830CP       49     A     
 COMPASS                                                                                   F4830CP       50     A     
 COMPASS   RM       ENDIF                                                                  CPSA227       10     A     
 COMPASS                                                                                   CPSA227       11     A     
 COMPASS   MCHA     SB7    X1-1R6                                                          F4830CP       51     A     
 COMPASS            BX6    X1                                                              CMP30       3095     A     
 COMPASS            MI     B7,MCH1     IF NOT 6 OR 7                                       CMP30       3096     A     
 COMPASS            GT     B7,B1,MCH1                                                      CMP30       3097     A     
 COMPASS            LX6    6                                                               CMP30       3098          I
          -F4830CP
 COMPASS   MCHB     LX6    6           POSITION *TYPE* FOR ENTRY INTO *VALID*              F4830CP       52     A     
 COMPASS            SX7    B7+B1                                                           CMP30       3099     A     
 COMPASS            SA6    VALID       SET VALID AND MTYPE                                 CMP30       3100     A     
 COMPASS            SA7    MTYPE                                                           CMP30       3101     A     
 COMPASS            RJ     GETCH       GET NEXT CHARACTER                                  CMP30       3102          I
          -CPS026 
 COMPASS            SA2    PSIM                                                            CPS026        35     A     
 COMPASS            SX6    6000B                                                           CPS026        36     A     
 COMPASS            EQ     B7,B1,MCH0  IF TYPE = 7                                         CPS026        37     A     
 COMPASS            BX7    X2+X6       INCLUDE 60B,61B CODES IN MASK                       CPS026        38     A     
 COMPASS            SA7    A2                                                              CPS026        39     A     
 COMPASS            EQ     MCH0A                                                           CPS026        40     A     
 COMPASS   MCH0     BX7    -X6*X2      EXCLUDE 60B,61B CODES FROM MASK                     CPS026        41     A     
 COMPASS            SA7    A2                                                              CPS026        42     A     
 COMPASS   MCH0A    RJ     GETCH       GET NEXT CHARACTER                                  CPS026        43     A     
 COMPASS            SB6    X1-1R0                                                          CMP30       3103     A     
 COMPASS            SB7    X1-1R9-1                                                        CMP30       3104     A     
 COMPASS            MI     B6,MCH1     IF NOT NUMERIC (0-9)                                CMP30       3105     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 667    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PL     B7,MCH1                                                         CMP30       3106     A     
 COMPASS            SA1    VALID                                                           CMP30       3107     A     
 COMPASS            BX6    X1+X6                                                           CMP30       3108     A     
 COMPASS            SA6    TARGET      SET TARGET                                          CMP30       3109     A     
 COMPASS   MCH1     SA5    =9R                                                             CMP30       3110     A     
 COMPASS            SB2    48                                                              CMP30       3111     A     
 COMPASS   MCH2     RJ     SCLIST      SKIP FIELD                                          CMP30       3112     A     
 COMPASS            SA1    CHAR                                                            CMP30       3113     A     
 COMPASS            SB7    X1-1R                                                           CMP30       3114     A     
 COMPASS            ZR     B7,MCH3     IF BLANK (END OF STATEMENT)                         CMP30       3115     A     
 COMPASS            EQ     B7,B1,MCH2  IF COMMA (IGNORE EMPTY SUBFIELD)                    CMP30       3116     A     
 COMPASS            SX1    B7                                                              CMP30       3117     A     
 COMPASS            LX2    X1,B2       POSITION FIRST CHARACTER OF SUBFIELD                CMP30       3118     A     
 COMPASS            SB2    B2-6                                                            CMP30       3119     A     
 COMPASS            IX5    X5+X2       ADD TO HARDWARE DEPENDENCY STRING                   CMP30       3120     A     
 COMPASS            PL     B2,MCH2     LOOP                                                CMP30       3121     A     
 COMPASS   MCH3     BX6    X5                                                              CMP30       3122     A     
 COMPASS            SA6    HTYPE       STORE STRING                                        CMP30       3123     A     
 COMPASS                                                                                   CPSA227       12     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPSA227       13     A     
 COMPASS                                                                                   CPSA227       14     A     
 COMPASS            SA1    MTYPE                                                           F4830CP       53     A     
 COMPASS            SX1    X1-4                                                            F4830CP       54     A     
 COMPASS            NZ     X1,MCH4     IF MTYPE.NE.4 GO RETURN                             F4830CP       55     A     
 COMPASS            RJ     RIV         ELSE GO REDEFINE INSTRUCTIONS FOR V                 F4830CP       56     A     
 COMPASS                                                                                   CPSA227       15     A     
 COMPASS   RM       ENDIF                                                                  CPSA227       16     A     
 COMPASS                                                                                   CPSA227       17     A     
 COMPASS   MCH4     BSS    0                                                               F4830CP       57     A     
 COMPASS            EQ     CTL300      RETURN                                              CMP30       3124     A     
 COMPASS   MACHINE  SPACE  4                                                               CMP30       3125     A     
 COMPASS  **        MACHINE - DECLARE OBJECT PROCESSOR TYPE.                               CMP30       3126     A     
 COMPASS                                                                                   CMP30       3127     A     
 COMPASS                                                                                   CMP30       3128     A     
 COMPASS            QUAL   PASS2                                                           CMP30       3129     A     
 COMPASS   MCH      EQU    ZLIST                                                           CMP30       3130     A     
 COMPASS   MACRO    SPACE  4                                                               COMPASS     9384     A     
 COMPASS  ***       MACRO - MACRO DEFINITION.                                              COMPASS     9385     A     
 COMPASS  *                                                                                COMPASS     9386     A     
 COMPASS  *                                                                                COMPASS     9387     A     
 COMPASS  *NAME     MACRO  P1,P2,P3,,,PN                                                   COMPASS     9388     A     
 COMPASS  *         ARGUMENTS (PI) MUST START WITH A LETTER, UP TO 63 MAY BE               COMPASS     9389     A     
 COMPASS  *         LISTED, SEPARATED BY SPECIAL CHARACTERS ,.+-*/()$=.                    COMPASS     9390     A     
 COMPASS  *         SUBSEQUENT INSTRUCTIONS UNTIL (ENDM) ARE SAVED AS A MACRO              COMPASS     9391     A     
 COMPASS  *         DEFINITION.                                                            COMPASS     9392     A     
 COMPASS  *                                                                                COMPASS     9393     A     
 COMPASS  *                                                                                COMPASS     9394     A     
 COMPASS  *         MACRO  NAME,PL,P1,P2,,,PN                                              COMPASS     9395     A     
 COMPASS  *         THE FIRST SUBFIELD IS THE MACRO NAME.  THE SECOND SUBFIELD             COMPASS     9396     A     
 COMPASS  *         (PL) IS AN ARGUMENT FROM THE LOCATION FIELD.  SUBSEQUENT               COMPASS     9397     A     
 COMPASS  *         FIELDS ARE THE REMAINING MACRO PARAMETERS.                             COMPASS     9398     A     
 COMPASS                                                                                   COMPASS     9399     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 668    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS     9400     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9401     A     
 COMPASS   MACRO    MX0    0                                                               COMPASS     9402     A     
 COMPASS            RJ     PMACRO                                                          COMPASS     9403     A     
 COMPASS            EQ     CTL100                                                          COMPASS     9404     A     
 COMPASS   MACRO    SPACE  4                                                               COMPASS     9405     A     
 COMPASS  **        MACRO - MACRO DEFINITION.                                              COMPASS     9406     A     
 COMPASS                                                                                   COMPASS     9407     A     
 COMPASS                                                                                   COMPASS     9408     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9409     A     
 COMPASS   MACRO    EQU    ZLIST                                                           COMPASS     9410     A     
 COMPASS   MACROE   SPACE  4                                                               COMPASS     9411     A     
 COMPASS  ***       MACROE - EQUIVALENCED MACRO DEFINITION.                                COMPASS     9412     A     
 COMPASS  *                                                                                COMPASS     9413     A     
 COMPASS  *                                                                                COMPASS     9414     A     
 COMPASS  *NAME     MACROE P1,P2,...,PN                                                    COMPASS     9415     A     
 COMPASS  *         ARGUMENTS PI MUST START WITH A LETTER, UP TO 63 MAY BE                 COMPASS     9416     A     
 COMPASS  *         LISTED, SEPARATED BY SPECIAL CHARACTERS ,.+-/()$=.                     COMPASS     9417     A     
 COMPASS  *         SUBSEQUENT INSTRUCTIONS UNTIL (ENDM) ARE SAVED AS A MACRO              COMPASS     9418     A     
 COMPASS  *         DEFINITION.                                                            COMPASS     9419     A     
 COMPASS  *                                                                                COMPASS     9420     A     
 COMPASS  *                                                                                COMPASS     9421     A     
 COMPASS  *         MACROE NAME,PL,P1,P2,...,PN                                            COMPASS     9422     A     
 COMPASS  *         THE FIRST SUBFIELD IS THE MACRO NAME.  THE SECOND SUBFIELD             COMPASS     9423     A     
 COMPASS  *         (PL) IS AN ARGUMENT FROM THE LOCATION FIELD.  SUBSEQUENT               COMPASS     9424     A     
 COMPASS  *         FIELDS ARE THE REMAINING MACRO PARAMETERS.                             COMPASS     9425     A     
 COMPASS                                                                                   COMPASS     9426     A     
 COMPASS                                                                                   COMPASS     9427     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9428     A     
 COMPASS   MACROE   SX0    20000B                                                          COMPASS     9429     A     
 COMPASS            RJ     PMACRO                                                          COMPASS     9430     A     
 COMPASS            EQ     CTL100                                                          COMPASS     9431     A     
 COMPASS   MACROE   SPACE  4                                                               COMPASS     9432     A     
 COMPASS  **        MACROE - EQUIVALENCED MACRO DEFINITION.                                COMPASS     9433     A     
 COMPASS                                                                                   COMPASS     9434     A     
 COMPASS                                                                                   COMPASS     9435     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9436     A     
 COMPASS   MACROE   EQU    ZLIST                                                           COMPASS     9437     A     
 COMPASS   MAX      SPACE  4                                                               COMPASS     9438     A     
 COMPASS  ***       MAX - CALCULATE MAXIMUM EXPRESSION.                                    COMPASS     9439     A     
 COMPASS  *                                                                                COMPASS     9440     A     
 COMPASS  *                                                                                COMPASS     9441     A     
 COMPASS  *SYM      MAX    EXP1,EXP2,...,EXPN                                              COMPASS     9442     A     
 COMPASS  *         (SYM) IS REDEFINED TO THE VALUE OF THE LARGEST ADDRESS                 COMPASS     9443     A     
 COMPASS  *         EXPRESSION (EXPI).                                                     COMPASS     9444     A     
 COMPASS                                                                                   COMPASS     9445     A     
 COMPASS                                                                                   COMPASS     9446     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9447     A     
 COMPASS   MAX      SA1    MAXB                                                            COMPASS     9448     A     
 COMPASS   MAX1     MX7    0                                                               COMPASS     9449     A     
 COMPASS            BX6    X1                                                              COMPASS     9450     A     
 COMPASS            SA7    P1TEMPD                                                         COMPASS     9451     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 669    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    MAXA                                                            COMPASS     9452     A     
 COMPASS            SA2    LOCSYM                                                          COMPASS     9453     A     
 COMPASS            NZ     X2,MAX2     IF LOCATION FIELD PRESENT                           COMPASS     9454     A     
 COMPASS            SX7    B1                                                              COMPASS     9455     A     
 COMPASS            SA7    EFLG                                                            COMPASS     9456     A     
 COMPASS            SA7    W6ERR                                                           COMPASS     9457     A     
 COMPASS            EQ     CTL70       RETURN                                              COMPASS     9458     A     
 COMPASS   MAX2     SX6    B1          SCAN FIRST EXPRESSION                               COMPASS     9459     A     
 COMPASS            SX1    21                                                              COMPASS     9460     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     9461     A     
 COMPASS   MAX3     SA1    EXVAL       SAVE SYMBOL PROPERTIES                              COMPASS     9462     A     
 COMPASS            SA2    A1+B1                                                           COMPASS     9463     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     9464     A     
 COMPASS            BX6    X1                                                              COMPASS     9465     A     
 COMPASS            LX7    X2                                                              COMPASS     9466     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     9467     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS     9468     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     9469     A     
 COMPASS            BX6    X3                                                              COMPASS     9470     A     
 COMPASS            LX7    X4                                                              COMPASS     9471     A     
 COMPASS            SA6    A7+B1                                                           COMPASS     9472     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     9473     A     
 COMPASS            SA3    A7+B1       SET FLAG                                            COMPASS     9474     A     
 COMPASS            BX6    X3                                                              COMPASS     9475     A     
 COMPASS            SA6    FLAG                                                            COMPASS     9476     A     
 COMPASS   MAX4     SA2    EXSTOP                                                          COMPASS     9477     A     
 COMPASS            ZR     X2,MAX5     IF END OF EXPRESSIONS                               COMPASS     9478     A     
 COMPASS            SX6    B1          SCAN NEXT EXPRESSION                                COMPASS     9479     A     
 COMPASS            SX1    21                                                              COMPASS     9480     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     9481     A     
 COMPASS            SA3    P1TEMPD     INCREMENT EXPRESSION COUNT                          COMPASS     9482     A     
 COMPASS            SX6    X3+B1                                                           COMPASS     9483     A     
 COMPASS            SA6    A3                                                              COMPASS     9484     A     
 COMPASS            SA1    P1TEMP                                                          COMPASS     9485     A     
 COMPASS            SA2    EXVAL                                                           COMPASS     9486     A     
 COMPASS                                                                                   COMPASS     9487     A     
 COMPASS   MAXA     IX6    X2-X1       **TEST STORED FOR MAX OR MIN**                      COMPASS     9488     A     
 COMPASS            PL     X6,MAX3     IF NEW \ OLD                                        COMPASS     9489     A     
 COMPASS                                                                                   COMPASS     9490     A     
 COMPASS   +        EQ     MAX4        LOOP                                                COMPASS     9491     A     
 COMPASS   MAX5     SA2    P1TEMP      DEFINE SYMBOL                                       COMPASS     9492     A     
 COMPASS            SA3    A2+B1                                                           COMPASS     9493     A     
 COMPASS            SA4    A3+B1                                                           COMPASS     9494     A     
 COMPASS            SA1    EFLG                                                            COMPASS     9495     A     
 COMPASS            NZ     X1,MAX6     IF ERRORS IN ADDRESS                                COMPASS     9496     A     
 COMPASS            SA5    LIBFLG                                                          COMPASS     9497     A     
 COMPASS            LX6    X5,B1                                                           COMPASS     9498     A     
 COMPASS            SX5    X6+B1                                                           COMPASS     9499     A     
 COMPASS            RJ     YDEFLOC                                                         COMPASS     9500     A     
 COMPASS            EQ     CTL70       RETURN                                              COMPASS     9501     A     
 COMPASS   MAX6     SX6    B1                                                              COMPASS     9502     A     
 COMPASS            SA6    W2ERR                                                           COMPASS     9503     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 670    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     CTL70       RETURN                                              COMPASS     9504     A     
 COMPASS                                                                                   COMPASS     9505     A     
 COMPASS   MAXB     IX6    X2-X1                                                           COMPASS     9506     A     
 COMPASS            PL     X6,MAX3     IF NEW \ OLD                                        COMPASS     9507     A     
 COMPASS   MAX      SPACE  4                                                               COMPASS     9508     A     
 COMPASS  **        MAX - CALCULATE MAXIMUM EXPRESSION.                                    COMPASS     9509     A     
 COMPASS                                                                                   COMPASS     9510     A     
 COMPASS                                                                                   COMPASS     9511     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9512     A     
 COMPASS   MAX      SA1    FLAG                                                            COMPASS     9513     A     
 COMPASS            SX6    B1                                                              COMPASS     9514     A     
 COMPASS            IX6    X1-X6                                                           COMPASS     9515          I
          -CMP19  
 COMPASS            IX7    X1-X6                                                           CMP19        187     A     
 COMPASS            ZR     X1,SETEQU   IF EXPRESSION FOUND                                 COMPASS     9516     A     
 COMPASS            SA6    A1                                                              COMPASS     9517          I
          -CMP19  
 COMPASS            SA7    A1                                                              CMP19        188     A     
 COMPASS            SX6    B1                                                              COMPASS     9518     A     
 COMPASS            SX1    21                                                              COMPASS     9519     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     9520     A     
 COMPASS            EQ     MAX         LOOP                                                COMPASS     9521     A     
 COMPASS   MCU      SPACE  4                                                               F4820        645     A     
 COMPASS  ***       MCU - MICROPROCESSOR CONTROL UNIT ASSEMBLY.                            F4820        646     A     
 COMPASS  *                                                                                F4820        647     A     
 COMPASS  *                                                                                F4820        648     A     
 COMPASS  *         MCU                                                                    F4820        649     A     
 COMPASS  *         MCU DECLARES THE PROGRAM TO BE A MICROPROCESSOR (6800)                 F4820        650     A     
 COMPASS  *         ASSEMBLY AND ABSOLUTE.  THE RULES STATED UNDER ABS APPLY.              F4820        651     A     
 COMPASS                                                                                   F4820        652     A     
 COMPASS                                                                                   F4820        653     A     
 COMPASS            QUAL   PASS1                                                           F4820        654     A     
 COMPASS   MCU      SX6    -2          SET FLAG FOR MCU ASSEMBLY                           F4820        655     A     
 COMPASS            SA6    PPTYPE                                                          F4820        656     A     
 COMPASS            SA1    CHAR        CHECK FOR 8080 ADDRESSING                           F4820A        58     A     
 COMPASS            MX6    0                                                               F4820A        59     A     
 COMPASS            SB3    X1-1R8                                                          F4820A        60     A     
 COMPASS   +        NZ     B3,*+1      IF NORMAL ADDRESSING MODE                           F4820A        61     A     
 COMPASS            SX6    B1                                                              F4820A        62     A     
 COMPASS            SA6    RMODE                                                           F4820A        63     A     
 COMPASS            SX6    B1                                                              F4820        657     A     
 COMPASS            SA6    NCHARS      SET NUMBER OF CHARACTERS TO 1                       F4820        658     A     
 COMPASS            SX7    8                                                               F4820        659     A     
 COMPASS            JP     BCU.1       PROCESS AS BCU                                      F4820        660     A     
 COMPASS   MCU      SPACE  4                                                               F4820        661     A     
 COMPASS  **        MCU - MICROPROCESSOR CONTROL UNIT ASSEMBLY.                            F4820        662     A     
 COMPASS                                                                                   F4820        663     A     
 COMPASS                                                                                   F4820        664     A     
 COMPASS            QUAL   PASS2                                                           F4820        665     A     
 COMPASS   MCU      EQU    ZLIST                                                           F4820        666          I
          -CPSA305
 COMPASS   MCU      EQU    BCU                                                             CPSA305       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/28. 19.11.32.      PAGE 671    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   MD       SPACE  4                                                               CMP30       3131     A     
 COMPASS  ***       MD - MOVE DESCRIPTOR WORD (FOR CMU INSTRUCTION *IM*).                  CMP30       3132     A     
 COMPASS  *                                                                                CMP30       3133     A     
 COMPASS  *                                                                                CMP30       3134     A     
 COMPASS  *         MD     L,KS,CS,KD,CD                                                   CMP30       3135     A     
 COMPASS  *         (L) = DATA FIELD LENGTH IN CHARACTERS (@8191).                         CMP30       3136     A     
 COMPASS  *         (KS) = SOURCE FIELD FIRST WORD ADDRESS.                                CMP30       3137     A     
 COMPASS  *         (CS) = SOURCE FIELD FIRST CHARACTER POSITION (0-9).                    CMP30       3138     A     
 COMPASS  *         (KD) = DESTINATION FIELD FIRST WORD ADDRESS.                           CMP30       3139     A     
 COMPASS  *         (CD) = DESTINATION FIELD FIRST CHARACTER POSITION (0-9).               CMP30       3140     A     
 COMPASS                                                                                   CMP30       3141     A     
 COMPASS                                                                                   CMP30       3142     A     
 COMPASS            QUAL   PASS1                                                           CMP30       3143     A     
 COMPASS   MD       EQU    CC                                                              CMP30       3144     A     
 COMPASS   MD       SPACE  4                                                               CMP30       3145     A     
 COMPASS  **        MD - MOVE DESCRIPTOR WORD (FOR CMU INSTRUCTION *IM*).                  CMP30       3146     A     
 COMPASS                                                                                   CMP30       3147     A     
 COMPASS                                                                                   CMP30       3148     A     
 COMPASS            QUAL   PASS2                                                           CMP30       3149     A     
 COMPASS   MD       SX6    B0                                                              CMP30       3150     A     
 COMPASS            EQ     CC1                                                             CMP30       3151     A     
 COMPASS   MEMSEL   SPACE  4,10                                                            CPSA281      244     A     
 COMPASS  ***       MEMSEL - SELECT PP MEMORY SIZE.                                        CPSA281      245     A     
 COMPASS  *                                                                                CPSA281      246     A     
 COMPASS  *         MEMSEL VAL                                                             CPSA281      247     A     
 COMPASS  *         SETS TARGET MEMORY SIZE FOR PP ASSEMBLY.  IGNORED FOR CPU              CPSA281      248     A     
 COMPASS  *         ASSEMBLIES.                                                            CPSA281      249     A     
 COMPASS  *                                                                                CPSA281      250     A     
 COMPASS  *         (VAL) = MEMORY SIZE, INTERPRETED AS FOLLOWS...                         CPSA281      251     A     
 COMPASS  *                                                                                CPSA281      252     A     
 COMPASS  *                      VAL        MEMORY SIZE                                    CPSA281      253     A     
 COMPASS  *                       4          4K - 12 BIT ADDRESS FIELDS                    CPSA281      254     A     
 COMPASS  *                       8          8K - 13 BIT ADDRESS FIELDS                    CPSA281      255     A     
 COMPASS  *                       16        16K - 14 BIT ADDRESS FIELDS                    CPSA281      256     A     
 COMPASS  *                       32        32K - 15 BIT ADDRESS FIELDS                    CPSA281      257     A     
 COMPASS  *                       64        64K - 16 BIT ADDRESS FIELDS                    CPSA281      258     A     
 COMPASS                                                                                   CPSA281      259     A     
 COMPASS                                                                                   CPSA281      260     A     
 COMPASS            QUAL   PASS1                                                           CPSA281      261     A     
 COMPASS   MEMSEL   SX7    12          SET FOR 4K                                          CPSA281      262     A     
 COMPASS            SA1    CHAR        GET FIRST CHARACTER                                 CPSA281      263     A     
 COMPASS            SX2    X1-1R       CHECK FOR END OF STATEMENT                          CPSA281      264     A     
 COMPASS            ZR     X2,MEMSEL1  IF NO ADDRESS FIELD                                 CPSA281      265          I
          -CPSA297
 COMPASS            ZR     X2,MEMSEL2  IF NO ADDRESS FIELD                                 CPSA297       50     A     
 COMPASS            SX1    7                                                               CPSA281      266     A     
 COMPASS            SX6    3                                                               CPSA281      267     A     
 COMPASS            RJ     SCADCON     GET EXPRESSION VALUE                                CPSA281      268     A     
 COMPASS            NZ     X1,CTL300   IF ERRORS                                           CPSA281      269     A     
 COMPASS            SX7    12          SET FOR 4K                                          CPSA281      270     A     
 COMPASS            SA1    EXVAL       EXPRESSION VALUE                                    CPSA281      271     A     
 COMPASS            SX3    X1-4                                                            CPSA281      272     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 672    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X3,MEMSEL1  IF VALUE = 4                                        CPSA281      273          I
          -CPSA297
 COMPASS            ZR     X3,MEMSEL2  IF VALUE = 4                                        CPSA297       51     A     
 COMPASS            SX7    13          SET FOR 8K                                          CPSA281      274     A     
 COMPASS            SX3    X1-8                                                            CPSA281      275     A     
 COMPASS            ZR     X3,MEMSEL1  IF VALUE = 8                                        CPSA281      276          I
          -CPSA297
 COMPASS            ZR     X3,MEMSEL2  IF VALUE = 8                                        CPSA297       52     A     
 COMPASS            SX7    14          SET FOR 16K                                         CPSA281      277     A     
 COMPASS            SX3    X1-16                                                           CPSA281      278     A     
 COMPASS            ZR     X3,MEMSEL1  IF VALUE = 16                                       CPSA281      279     A     
 COMPASS            SX7    15          SET FOR 32K                                         CPSA281      280     A     
 COMPASS            SX3    X1-32                                                           CPSA281      281     A     
 COMPASS            ZR     X3,MEMSEL1  IF VALUE = 32                                       CPSA281      282     A     
 COMPASS            SX7    16          SET FOR 64K                                         CPSA281      283     A     
 COMPASS            SX3    X1-64                                                           CPSA281      284     A     
 COMPASS            ZR     X3,MEMSEL1  IF VALUE = 64                                       CPSA281      285     A     
 COMPASS            SX6    B1          SET A-ERROR                                         CPSA281      286     A     
 COMPASS            SA6    EFLG                                                            CPSA281      287     A     
 COMPASS            SA6    AERR                                                            CPSA281      288     A     
 COMPASS            EQ     CTL300      RETURN                                              CPSA281      289     A     
 COMPASS                                                                                   CPSA281      290     A     
 COMPASS   MEMSEL1  SA7    PPMEMSZ     SET MEMORY SIZE                                     CPSA281      291          I
          -CPSA297
 COMPASS   MEMSEL1  SA1    PSIM2+1     SET TO CHECK FOR PREFETCH ERRORS ON STORES          CPSA297       53     A     
 COMPASS            BX6    X1                                                              CPSA297       54     A     
 COMPASS            SA6    A1-B1                                                           CPSA297       55     A     
 COMPASS   MEMSEL2  SA7    PPMEMSZ     SET MEMORY SIZE                                     CPSA297       56     A     
 COMPASS            EQ     CTL300      RETURN                                              CPSA281      292     A     
 COMPASS   MEMSEL   SPACE  4,10                                                            CPSA281      293     A     
 COMPASS  **        MEMSEL - SELECT PP MEMORY SIZE.                                        CPSA281      294     A     
 COMPASS                                                                                   CPSA281      295     A     
 COMPASS            QUAL   PASS2                                                           CPSA281      296     A     
 COMPASS   MEMSEL   EQU    ZLIST                                                           CPSA281      297     A     
 COMPASS   MICCNT   SPACE  4                                                               COMPASS     9522     A     
 COMPASS  ***       MICCNT - MICRO CHARACTER COUNT.                                        COMPASS     9523     A     
 COMPASS  *                                                                                COMPASS     9524     A     
 COMPASS  *                                                                                COMPASS     9525     A     
 COMPASS  *SYM      MICCNT MNAME                                                           COMPASS     9526     A     
 COMPASS  *         REDEFINES (SYM) TO HAVE A VALUE EQUAL TO THE NUMBER OF                 COMPASS     9527     A     
 COMPASS  *         CHARACTERS IN THE MICRO (MNAME).                                       COMPASS     9528     A     
 COMPASS                                                                                   COMPASS     9529     A     
 COMPASS                                                                                   COMPASS     9530     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9531     A     
 COMPASS   MICCNT   RJ     SCLIST                                                          COMPASS     9532     A     
 COMPASS            SA1    AERR                                                            COMPASS     9533          I
          -CMP30  
 COMPASS            SX2    B0                                                              COMPASS     9534          I
          -CMP30  
 COMPASS            NZ     X1,MCT5     IF ERROR                                            COMPASS     9535          I
          -CMP30  
 COMPASS            SA5    O.MICTAB                                                        COMPASS     9536          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 673    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA4    L.MICTAB                                                        COMPASS     9537          I
          -CMP30  
 COMPASS            SB7    X4                                                              COMPASS     9538          I
          -CMP18    -CMP30  
 COMPASS            SA6    X5                                                              COMPASS     9539          I
          -CMP18    -CMP30  
 COMPASS            SB2    B7-2                                                            COMPASS     9540          I
          -CMP18    -CMP30  
 COMPASS            LE     B2,MCT5     IF END OF MICRO TABLE                               COMPASS     9541          I
          -CMP18    -CMP30  
 COMPASS   MCT1     SA3    X5+B2       SEARCH TABLE                                        COMPASS     9542          I
          -CMP18    -CMP30  
 COMPASS            SB2    B2-1                                                            COMPASS     9543          I
          -CMP18    -CMP30  
 COMPASS            BX1    X6-X3                                                           COMPASS     9544          I
          -CMP18    -CMP30  
 COMPASS            PX7    X6,B1                                                           CMP18         62          I
          -CMP30  
 COMPASS            SB2    X4-1                                                            CMP18         63          I
          -CMP30  
 COMPASS            SA7    X5                                                              CMP18         64          I
          -CMP30  
 COMPASS   MCT1     SA3    X5+B2       SEARCH TABLE                                        CMP18         65          I
          -CMP30  
 COMPASS            UX1,B3 X3                                                              CMP18         66          I
          -CMP30  
 COMPASS            BX1    X1-X6                                                           CMP18         67          I
          -CMP30  
 COMPASS            SB2    B2-B3                                                           CMP18         68          I
          -CMP30  
 COMPASS            NZ     X1,MCT1     LOOP                                                COMPASS     9545          I
          -CMP30  
 COMPASS            NG     B2,MCT5     IF NAME NOT FOUND                                   COMPASS     9546          I
          -CMP30  
 COMPASS            BX1    X6-X3                                                           COMPASS     9547          I
          -CMP18    -CMP30  
 COMPASS            NZ     X1,MCT1     IF NAME NOT FOUND                                   COMPASS     9548          I
          -CMP18    -CMP30  
 COMPASS            MX0    54          COUNT NUMBER OF WORDS IN MICRO                      COMPASS     9549          I
          -CMP18    -CMP30  
 COMPASS            SX2    -11                                                             COMPASS     9550          I
          -CMP18    -CMP30  
 COMPASS   MCT2     SA3    A3+B1                                                           COMPASS     9551          I
          -CMP18    -CMP30  
 COMPASS            SX2    X2+10                                                           COMPASS     9552          I
          -CMP18    -CMP30  
 COMPASS            BX6    -X0*X3                                                          COMPASS     9553          I
          -CMP18    -CMP30  
 COMPASS            NZ     X6,MCT2     IF NOT END OF MICRO                                 COMPASS     9554          I
          -CMP18    -CMP30  
 COMPASS   MCT3     LX3    6           COUNT CHARACTERS IN LAST WORD OF MICRO              COMPASS     9555          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 674    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP18    -CMP30  
 COMPASS            BX6    -X0*X3                                                          COMPASS     9556          I
          -CMP18    -CMP30  
 COMPASS            SX2    X2+B1                                                           COMPASS     9557          I
          -CMP18    -CMP30  
 COMPASS            NZ     X6,MCT3     IF NOT END OF MICRO                                 COMPASS     9558          I
          -CMP18    -CMP30  
 COMPASS            SX2    B3-B1       N = NUMBER OF VALUE WORDS                           CMP18         69          I
          -CMP30  
 COMPASS            ZR     X6,MCT5     IF MICRO NAME IS NULL                               CMP30       3152     A     
 COMPASS            BX7    X6                                                              CMP30       3153     A     
 COMPASS            RJ     TLUMIC      LOOK UP MICRO NAME                                  CMP30       3154     A     
 COMPASS            SX2    B4-B1       N = NUMBER OF VALUE WORDS                           CMP30       3155     A     
 COMPASS            ZR     B4,MCT5     IF MICRO NOT FOUND                                  CMP30       3156     A     
 COMPASS            SB3    X2                                                              CMP30       3157     A     
 COMPASS            ZR     X2,MCT4     IF N = 0                                            CMP18         70     A     
 COMPASS            IX3    X2+X2                                                           CMP18         71     A     
 COMPASS            LX2    3                                                               CMP18         72     A     
 COMPASS            SA1    A3-B1       LAST VALUE WORD                                     CMP18         73          I
          -CMP30  
 COMPASS            SA1    A2+B3       LAST VALUE WORD                                     CMP30       3158     A     
 COMPASS            MX0    -6                                                              CMP18         74     A     
 COMPASS            IX2    X2+X3       10 * N                                              CMP18         75     A     
 COMPASS            BX6    -X0*X1                                                          CMP18         76     A     
 COMPASS            SX2    X2-10       10 * (N - 1) + NUMBER OF CHARACTERS                 CMP18         77     A     
 COMPASS            IX2    X2+X6       IN LAST VALUE WORD                                  CMP18         78     A     
 COMPASS   MCT4     BX6    X2          SET MICRO COUNT AND DEFINE LOCATION                 COMPASS     9559     A     
 COMPASS            SA6    FLAG                                                            COMPASS     9560     A     
 COMPASS            SX3    B0                                                              COMPASS     9561     A     
 COMPASS            MX4    0                                                               COMPASS     9562     A     
 COMPASS            SX5    B1                                                              COMPASS     9563     A     
 COMPASS            RJ     YDEFLOC                                                         COMPASS     9564     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9565     A     
 COMPASS   MCT5     SX6    B1          SET ERROR FLAG                                      COMPASS     9566     A     
 COMPASS            SA6    W2ERR                                                           COMPASS     9567     A     
 COMPASS            SA6    EFLG                                                            COMPASS     9568     A     
 COMPASS            SX6    B0                                                              COMPASS     9569     A     
 COMPASS            SA6    AERR                                                            COMPASS     9570     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9571     A     
 COMPASS   MICCNT   SPACE  4                                                               COMPASS     9572     A     
 COMPASS  **        MICCNT - MICRO CHARACTER COUNT.                                        COMPASS     9573     A     
 COMPASS                                                                                   COMPASS     9574     A     
 COMPASS                                                                                   COMPASS     9575     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9576     A     
 COMPASS   MICCNT   SA2    FLAG        DEFINE LOCATION SYMBOL                              COMPASS     9577     A     
 COMPASS            SA3    EFLG                                                            COMPASS     9578     A     
 COMPASS            NZ     X3,ZLIST    IF ERRORS IN PASS 1                                 COMPASS     9579     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS     9580     A     
 COMPASS            MX3    0                                                               COMPASS     9581          I
          -CMP19  
 COMPASS            MX6    0                                                               CMP19        189     A     
 COMPASS            IX4    X4-X4                                                           COMPASS     9582     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 675    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    EXREL                                                           CMP19        190     A     
 COMPASS            SX5    B1                                                              CMP19        191     A     
 COMPASS            SA6    A6+B1       EXEXT                                               CMP19        192     A     
 COMPASS            RJ     ZDEFSYM                                                         COMPASS     9583     A     
 COMPASS            SA1    FLAG        OUTPUT OCTAL                                        COMPASS     9584          I
          -CMP19  
 COMPASS            SX2    36                                                              COMPASS     9585          I
          -CMP19  
 COMPASS            MX3    0                                                               COMPASS     9586          I
          -CMP19  
 COMPASS            RJ     PACKO                                                           COMPASS     9587          I
          -CMP19  
 COMPASS            EQ     ZLIST                                                           COMPASS     9588     A     
 COMPASS   MICRO    SPACE  4                                                               COMPASS     9589     A     
 COMPASS  ***       MICRO - DEFINE MICRO.                                                  COMPASS     9590     A     
 COMPASS  *                                                                                COMPASS     9591     A     
 COMPASS  *                                                                                COMPASS     9592     A     
 COMPASS  *MNAME    MICRO  AEXP1,AEXP2,*STRING*                                            COMPASS     9593     A     
 COMPASS  *         THE MICRO STRING (MNAME) IS FORMED BY EXTRACTING (AEXP2)               COMPASS     9594     A     
 COMPASS  *         CHARACTERS FROM (STRING) BEGINNING WITH THE CHARACTER                  COMPASS     9595     A     
 COMPASS  *         SPECIFIED BY (AEXP1).  IF (AEXP1) IS ZERO OR BLANK, THE                COMPASS     9596     A     
 COMPASS  *         CHARACTER STRING IS EMPTY.  IF (AEXP2) IS ZERO OR BLANK,               COMPASS     9597     A     
 COMPASS  *         THE LENGTH OF THE STRING IS DELIMITED BY THE CHARACTER (*).            COMPASS     9598     A     
 COMPASS                                                                                   COMPASS     9599     A     
 COMPASS                                                                                   COMPASS     9600     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9601     A     
 COMPASS   MICRO    SX6    3           ABSOLUTE ONLY                                       COMPASS     9602     A     
 COMPASS            SX1    15                                                              COMPASS     9603     A     
 COMPASS            RJ     SMC         GET FIRST SUBFIELD - POSITION                       COMPASS     9604     A     
 COMPASS            SA5    EXVAL                                                           COMPASS     9605     A     
 COMPASS            BX7    X5                                                              COMPASS     9606     A     
 COMPASS            SX6    3                                                               COMPASS     9607     A     
 COMPASS            SA7    P1TEMP      SAVE POSITION SUBFIELD                              COMPASS     9608     A     
 COMPASS            SX1    15                                                              COMPASS     9609     A     
 COMPASS            RJ     SMC                                                             COMPASS     9610     A     
 COMPASS            SA1    AERR                                                            COMPASS     9611     A     
 COMPASS            SA2    UERR                                                            COMPASS     9612     A     
 COMPASS            BX2    X1+X2                                                           COMPASS     9613     A     
 COMPASS            ZR     X2,MIC3     IF NO ERROR                                         COMPASS     9614     A     
 COMPASS            SX6    B1          SET *A* ERROR                                       COMPASS     9615     A     
 COMPASS            SA6    AERR                                                            COMPASS     9616     A     
 COMPASS            SA6    EFLG                                                            COMPASS     9617     A     
 COMPASS            EQ     CTL70       RETURN                                              COMPASS     9618     A     
 COMPASS   MIC3     SA1    COLUMN      SCAN OFF MICRO                                      COMPASS     9619     A     
 COMPASS            SA2    LASTCOL                                                         COMPASS     9620     A     
 COMPASS            SA3    EXVAL       CHARACTER COUNT                                     COMPASS     9621     A     
 COMPASS            SA4    P1TEMP      BIAS                                                COMPASS     9622     A     
 COMPASS            SA1    X1+CARD-1   FETCH FIRST CHARACTER OF MICRO                      COMPASS     9623          I
          -CMP052 
 COMPASS            BX6    X3+X4                                                           CMP052         1     A     
 COMPASS            PL     X6,MIC2     IF NEITHER IS NEGATIVE                              CMP052         2     A     
 COMPASS            SX6    B1                                                              CMP052         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/28. 19.11.32.      PAGE 676    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    W7ERR       SET *7* ERROR                                       CMP052         4     A     
 COMPASS            SA6    EFLG                                                            CMP052         5     A     
 COMPASS   MIC2     SA1    X1+CARD-1   FETCH FIRST CHARACTER OF MICRO                      CMP052         6     A     
 COMPASS            BX7    X1          SAVE DELIMITER                                      COMPASS     9624     A     
 COMPASS            MX6    0                                                               COMPASS     9625     A     
 COMPASS            SA0    10                                                              COMPASS     9626     A     
 COMPASS            SB7    A0                                                              COMPASS     9627     A     
 COMPASS            SB3    -B1                                                             COMPASS     9628     A     
 COMPASS            SA7    X2+CARD+1   STORE TERMINATOR WAY OUT IN CARD                    COMPASS     9629          I
          -CMP12  
 COMPASS            SA7    X2+CARD     STORE DELIMITER AFTER END OF STATEMENT              CMP12         10     A     
 COMPASS            SA6    RELVEC                                                          COMPASS     9630          I
          -CMP18  
 COMPASS            SB4    B0                                                              CMP18         79     A     
 COMPASS            ZR     X4,MIC6     IF BIAS=0, CONSIDER MICRO EMPTY                     COMPASS     9631     A     
 COMPASS            MI     X4,MIC6                                                         CMP052         7     A     
 COMPASS   +        SA1    A1+B1       SPACE OVER INITIAL CHARACTERS                       COMPASS     9632     A     
 COMPASS            SX4    X4+B3                                                           COMPASS     9633     A     
 COMPASS            BX5    X7-X1                                                           COMPASS     9634     A     
 COMPASS            ZR     X5,MIC6     STOP ON TERMINATOR                                  COMPASS     9635     A     
 COMPASS            NZ     X4,*-1                                                          COMPASS     9636     A     
 COMPASS   MIC4     LX6    6           PACK MICRO                                          COMPASS     9637     A     
 COMPASS            BX6    X1+X6                                                           COMPASS     9638     A     
 COMPASS            SB7    B7-B1                                                           COMPASS     9639     A     
 COMPASS            NZ     B7,MIC5                                                         COMPASS     9640     A     
 COMPASS            SA6    A6+B1       STORE COMPLETED WORD                                COMPASS     9641          I
          -CMP18  
 COMPASS            SA6    RELVEC+B4   STORE COMPLETED WORD                                CMP18         80     A     
 COMPASS            SB7    A0                                                              COMPASS     9642     A     
 COMPASS            MX6    0                                                               COMPASS     9643     A     
 COMPASS            SB4    B4+B1                                                           CMP18         81     A     
 COMPASS   MIC5     SA1    A1+B1                                                           COMPASS     9644     A     
 COMPASS            BX2    X7-X1                                                           COMPASS     9645     A     
 COMPASS            SX3    X3+B3                                                           COMPASS     9646     A     
 COMPASS            ZR     X3,MIC6     STOP ON COUNT                                       COMPASS     9647     A     
 COMPASS            NZ     X2,MIC4     STOP ON TERMINATOR                                  COMPASS     9648     A     
 COMPASS   MIC6     SB7    B7-B1       APPEND TERMINAL ZEROES                              COMPASS     9649          I
          -CMP18  
 COMPASS   MIC6     SX3    A0-B7                                                           CMP18         82     A     
 COMPASS            NZ     B4,MIC7     IF MICRO VALUE NON-NULL                             CMP18         83     A     
 COMPASS            ZR     X3,MIC8     IF MICRO VALUE IS NULL                              CMP18         84     A     
 COMPASS   MIC7     SB7    B7-B1       LEFT JUSTIFY LAST VALUE WORD, ZERO FILL             CMP18         85     A     
 COMPASS            LX6    6                                                               COMPASS     9650     A     
 COMPASS            NZ     B7,*                                                            COMPASS     9651     A     
 COMPASS            SA6    A6+B1                                                           COMPASS     9652          I
          -CMP18  
 COMPASS            SX6    A6-RELVEC+1 LENGTH OF MICRO AND ITS NAME                        COMPASS     9653          I
          -CMP18  
 COMPASS            IX6    X6+X3       APPEND CHARACTER COUNT                              CMP18         86     A     
 COMPASS            SA6    RELVEC+B4   STORE LAST VALUE WORD                               CMP18         87     A     
 COMPASS            SB4    B4+B1                                                           CMP18         88     A     
 COMPASS   MIC8     SX6    B4+B1       LENGTH OF MICRO VALUE AND ITS NAME                  CMP18         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/28. 19.11.32.      PAGE 677    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     EMT         ENTER MICRO IN TABLE                                COMPASS     9654          I
          -CMP12  
 COMPASS            SX7    1R                                                              CMP12         11     A     
 COMPASS            SA7    A7          RESTORE BLANK AT END OF STATEMENT                   CMP12         12     A     
 COMPASS            RJ     EMT         ENTER MICRO IN TABLE                                CMP12         13     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS     9655          I
          -CPS0275
 COMPASS            EQ     CTL70       WRITE TO THE INTERMEDIATE                           CPS0275        5     A     
 COMPASS   MICRO    SPACE  4                                                               COMPASS     9656     A     
 COMPASS  **        MICRO - DEFINE MICRO.                                                  COMPASS     9657     A     
 COMPASS                                                                                   COMPASS     9658     A     
 COMPASS                                                                                   COMPASS     9659     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9660     A     
 COMPASS   MICRO    EQU    ZLIST                                                           COMPASS     9661          I
          -CPS218 
 COMPASS   MICRO    SX6    3                                                               CPS218         5     A     
 COMPASS            SX1    15                                                              CPS218         6     A     
 COMPASS            RJ     SMC         GET FIRST SUBFIELD                                  CPS218         7     A     
 COMPASS            SX6    3                                                               CPS218         8     A     
 COMPASS            SX1    15                                                              CPS218         9     A     
 COMPASS            RJ     SMC         GET SECOND SUBFIELD                                 CPS218        10     A     
 COMPASS            EQ     ZLIST                                                           CPS218        11     A     
 COMPASS   MIN      SPACE  4                                                               COMPASS     9662     A     
 COMPASS  ***       MIN - CALCULATE MINIMUM EXPRESSION.                                    COMPASS     9663     A     
 COMPASS  *                                                                                COMPASS     9664     A     
 COMPASS  *                                                                                COMPASS     9665     A     
 COMPASS  *SYM      MIN    EXP1,EXP2,...,EXPN                                              COMPASS     9666     A     
 COMPASS  *         (SYM) IS REDEFINED TO THE VALUE OF THE SMALLEST ADDRESS                COMPASS     9667     A     
 COMPASS  *         EXPRESSION.                                                            COMPASS     9668     A     
 COMPASS                                                                                   COMPASS     9669     A     
 COMPASS                                                                                   COMPASS     9670     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9671     A     
 COMPASS   MIN      SA1    *+1                                                             COMPASS     9672     A     
 COMPASS            EQ     MAX1                                                            COMPASS     9673     A     
 COMPASS                                                                                   COMPASS     9674     A     
 COMPASS   +        IX6    X2-X1                                                           COMPASS     9675     A     
 COMPASS            NG     X6,MAX3     IF NEW < OLD                                        COMPASS     9676     A     
 COMPASS   MIN      SPACE  4                                                               COMPASS     9677     A     
 COMPASS  **        MIN - CALCULATE MINIMUM EXPRESSION.                                    COMPASS     9678     A     
 COMPASS                                                                                   COMPASS     9679     A     
 COMPASS                                                                                   COMPASS     9680     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9681     A     
 COMPASS   MIN      EQU    MAX                                                             COMPASS     9682     A     
 COMPASS   NDOP     SPACE  4                                                               F4820B       398     A     
 COMPASS  ***       NDOP - DEFINE NAD OPERATION CODE.                                      F4820B       399     A     
 COMPASS  *                                                                                F4820B       400     A     
 COMPASS  *                                                                                F4820B       401     A     
 COMPASS  *NAME     NDOP   CTL,VAL                                                         F4820B       402     A     
 COMPASS  *         (NAME) = MNEMONIC NAME.                                                F4820B       403     A     
 COMPASS  *         (CTL) = 0 - 4-BIT ADDRESS.  (SAB)                                      F4820B       404     A     
 COMPASS  *                 1 - (16 - 4-BIT) ADDRESS.  (SLC)                               F4820B       405     A     
 COMPASS  *                 2 - (15 - 4-BIT) ADDRESS.  (TAB)                               F4820B       406     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 678    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                 3 - 8-BIT ADDRESS.  (ADN)                                      F4820B       407     A     
 COMPASS  *                 4 - 9-BIT RELATIVE ADDRESS.  (UJR)                             F4820B       408     A     
 COMPASS  *                 5 - 4-BIT CHANNEL AND NO ADDRESS.  (IAN)                       F4820B       409     A     
 COMPASS  *                 6 - 8-BIT ADDRESS AND OPTIONAL                                 F4820B       410     A     
 COMPASS  *                            INDEXING. (LDD)                                     F4820B       411     A     
 COMPASS  *                 7 - 4-BIT CHANNEL AND 4-BIT ADDRESS.  (INT)                    F4820B       412     A     
 COMPASS  *                 8 - 16 BIT INSTRUCTION,NO ADDRESS (JFA)                        F4820B       413     A     
 COMPASS  *                 9 - 8 BIT ADDRESS BACKWARD ONLY (RTB)                          F4820B       414     A     
 COMPASS  *                10 - 12-BIT ADDRESS.  (FNA)                                     F4820B       415     A     
 COMPASS  *                11 - 2 16-BIT ADDRESS I/O.  (IAM)                               F4820B       416     A     
 COMPASS  *                            WITH 2 INSTRUCTION PARAMETERS.                      F4820B       417     A     
 COMPASS  *                12 - 2 16-BIT ADDRESS.  (TST)                                   F4820B       418     A     
 COMPASS  *                            WITH 3 INSTRUCTION PARAMETERS.                      F4820B       419     A     
 COMPASS  *                13 - 7 BIT ADDRESS (BIT 8 SET = BACKWARD)  (L1R)                F4820B       420     A     
 COMPASS  *                                          (BIT 8 ZERO = FORWARD)                F4820B       421     A     
 COMPASS  *                14 - 16 BIT INSTRUCTION WITH 16 BIT                             F4820B       422     A     
 COMPASS  *                            ADDRESS.  (LJM)                                     F4820B       423     A     
 COMPASS  *                15 - 16 BIT INSTRUCTION WITH 3 16 BIT                           F4820B       424     A     
 COMPASS  *                            ADDRESSES  (QGT)                                    F4820B       425     A     
 COMPASS  *                16 - 4 BIT ADDRESS AND 15-4 BIT FLAG.   (SCM)                   F4820B       426     A     
 COMPASS  *                17 - 16 BIT INSTRUCTION AND 16 BIT RELATIVE FORWARD             F4820B       427     A     
 COMPASS  *                            ADDRESS.   (CCU)                                    F4820B       428     A     
 COMPASS  *         (VAL) = 16-BIT OPERATION CODE VALUE.                                   F4820B       429     A     
 COMPASS  *                                                                                F4820B       430     A     
 COMPASS                                                                                   F4820B       431     A     
 COMPASS                                                                                   F4820B       432     A     
 COMPASS            QUAL   PASS1                                                           F4820B       433     A     
 COMPASS   NDOP     SX6    3           READ CTL                                            F4820B       434     A     
 COMPASS            SX1    5                                                               F4820B       435     A     
 COMPASS            RJ     SCADCON                                                         F4820B       436     A     
 COMPASS            SA1    EXVAL                                                           F4820B       437     A     
 COMPASS            SX6    3           READ VAL                                            F4820B       438     A     
 COMPASS            BX7    X1                                                              F4820B       439     A     
 COMPASS            SX1    16                                                              F4820B       440     A     
 COMPASS            SA7    P1TEMPA                                                         F4820B       441     A     
 COMPASS            RJ     SCADCON                                                         F4820B       442     A     
 COMPASS            SA1    BADLOC                                                          F4820B       443     A     
 COMPASS            SX6    B1                                                              F4820B       444     A     
 COMPASS            ZR     X1,NDOP1    IF NO LOCATION ERROR                                F4820B       445     A     
 COMPASS            SA6    LERR                                                            F4820B       446     A     
 COMPASS            SA6    EFLG                                                            F4820B       447     A     
 COMPASS   NDOP1    SA1    P1TEMPA                                                         F4820B       448     A     
 COMPASS            SA2    EXVAL                                                           F4820B       449     A     
 COMPASS            SA3    EFLG                                                            F4820B       450     A     
 COMPASS            SX6    140040B     SET BCU AND OPSYN                                   F4820B       451     A     
 COMPASS            SB2    X1-10B      CHECK CTL                                           F4820B       452     A     
 COMPASS            SB3    X1-/PASS2/ZBCAL                                                 F4820B       453     A     
 COMPASS            NG     B2,NDOP2    IF NOT NAD EXTENSION                                F4820B       454     A     
 COMPASS            PL     B3,CTL70    IF OUT OF RANGE                                     F4820B       455     A     
 COMPASS            SX7    B2+B1       SET EXTENSION CONTROL                               F4820B       456     A     
 COMPASS            SX1    B0                                                              F4820B       457     A     
 COMPASS            LX7    55                                                              F4820B       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/28. 19.11.32.      PAGE 679    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX1    X1+X7                                                           F4820B       459     A     
 COMPASS   NDOP2    LX1    27                                                              F4820B       460     A     
 COMPASS            MX0    -16                                                             F4820B       461     A     
 COMPASS            BX2    -X0*X2                                                          F4820B       462     A     
 COMPASS            BX1    X1+X2                                                           F4820B       463     A     
 COMPASS            LX6    42                                                              F4820B       464     A     
 COMPASS            IX2    X1+X6                                                           F4820B       465     A     
 COMPASS            SA1    LOCSYM                                                          F4820B       466     A     
 COMPASS            NZ     X3,CTL70    IF ERROR                                            F4820B       467     A     
 COMPASS            RJ     ENTOP                                                           F4820B       468     A     
 COMPASS            EQ     CTL300      RETURN                                              F4820B       469     A     
 COMPASS   NDOP     SPACE  4                                                               F4820B       470     A     
 COMPASS  **        NDOP - DEFINE NAD OPERATION CODE.                                      F4820B       471     A     
 COMPASS                                                                                   F4820B       472     A     
 COMPASS                                                                                   F4820B       473     A     
 COMPASS            QUAL   PASS2                                                           F4820B       474     A     
 COMPASS   NDOP     EQU    ZLIST                                                           F4820B       475     A     
 COMPASS   NIL      SPACE  4                                                               COMPASS     9683     A     
 COMPASS  ***       NIL - DO NOTHING.                                                      COMPASS     9684     A     
 COMPASS  *                                                                                COMPASS     9685     A     
 COMPASS  *                                                                                COMPASS     9686     A     
 COMPASS  *         NIL                                                                    COMPASS     9687     A     
 COMPASS  *         DOES NOTHING.  ALLOWS A MACRO OR PP INSTRUCTION TO BE                  COMPASS     9688     A     
 COMPASS  *         DISABLED BY (OPSYN).                                                   COMPASS     9689     A     
 COMPASS                                                                                   COMPASS     9690     A     
 COMPASS                                                                                   COMPASS     9691     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9692     A     
 COMPASS   NIL      EQU    CTL300                                                          COMPASS     9693     A     
 COMPASS   NIL      SPACE  4                                                               COMPASS     9694     A     
 COMPASS  **        NIL - DO NOTHING.                                                      COMPASS     9695     A     
 COMPASS                                                                                   COMPASS     9696     A     
 COMPASS                                                                                   COMPASS     9697     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9698     A     
 COMPASS   NIL      EQU    ZLIST                                                           COMPASS     9699     A     
 COMPASS   NOLABEL  SPACE  4                                                               COMPASS     9700     A     
 COMPASS  ***       NOLABEL - DELETE BINARY IDENT TABLE.                                   COMPASS     9701     A     
 COMPASS  *                                                                                COMPASS     9702     A     
 COMPASS  *                                                                                COMPASS     9703     A     
 COMPASS  *         NOLABEL CHAR                                                           COMPASS     9704     A     
 COMPASS  *         IF (CHAR) IS BLANK, DELETE THE 7700 IDENT TABLE AND THE 5000           COMPASS     9705     A     
 COMPASS  *         OVERLAY WORD OR THE PP HEADER WORD.                                    COMPASS     9706     A     
 COMPASS  *         IF (CHAR) IS (I), DELETE ONLY THE IDENT TABLE.                         COMPASS     9707     A     
 COMPASS                                                                                   COMPASS     9708     A     
 COMPASS                                                                                   COMPASS     9709     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9710     A     
 COMPASS   NOLABEL  SA1    ABSFG                                                           COMPASS     9711     A     
 COMPASS            ZR     X1,CTL80    ERROR IF NOT ABSOLUTE CODE                          COMPASS     9712     A     
 COMPASS            SA1    CHAR        CHECK TYPE                                          COMPASS     9713     A     
 COMPASS            SX6    B1          ALL LABELS                                          COMPASS     9714     A     
 COMPASS            SX7    B1+B1       IDENT LABEL ONLY                                    COMPASS     9715     A     
 COMPASS            SB7    X1-1R                                                           COMPASS     9716     A     
 COMPASS            SB6    X1-1RI                                                          COMPASS     9717     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 680    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    NOLFG                                                           COMPASS     9718     A     
 COMPASS            ZR     B7,CTL300   IF ALL LABELS                                       COMPASS     9719     A     
 COMPASS            SA7    A6          IDENT LABEL ONLY                                    COMPASS     9720     A     
 COMPASS            ZR     B6,CTL300                                                       COMPASS     9721     A     
 COMPASS            SA6    AERR        SET AERR = A                                        COMPASS     9722     A     
 COMPASS            SA6    EFLG                                                            COMPASS     9723     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9724     A     
 COMPASS   NOLABEL  SPACE  4                                                               COMPASS     9725     A     
 COMPASS  **        NOLABEL - DELETE BINARY IDENT TABLE.                                   COMPASS     9726     A     
 COMPASS                                                                                   COMPASS     9727     A     
 COMPASS                                                                                   COMPASS     9728     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9729     A     
 COMPASS   NOLABEL  EQU    ZLIST                                                           COMPASS     9730     A     
 COMPASS   NOREF    SPACE  4                                                               COMPASS     9731     A     
 COMPASS  ***       NOREF - NO REFERENCE.                                                  COMPASS     9732     A     
 COMPASS  *                                                                                COMPASS     9733     A     
 COMPASS  *                                                                                COMPASS     9734     A     
 COMPASS  *         NOREF  SYM1,SYM2,,,SYMN                                                COMPASS     9735          I
          -CMP19  
 COMPASS  *         SUPPRESSES THE LISTING OF THE NAMED SYMBOLS IN THE CROSS               COMPASS     9736          I
          -CMP19  
 COMPASS  *         REFERENCE TABLE.                                                       COMPASS     9737          I
          -CMP19  
 COMPASS  *         NOREF  P1,P2,...,PN                                                    CMP19        193     A     
 COMPASS  *         SUPPRESSES THE LISTING OF NAMED SYMBOLS IN THE CROSS                   CMP19        194     A     
 COMPASS  *         REFERENCE TABLE.  THE PARAMETERS CAN BE OF THE FOLLOWING               CMP19        195     A     
 COMPASS  *         FORM -                                                                 CMP19        196     A     
 COMPASS  *                SYM         SUPPRESS LISTING OF SYMBOL (SYM).                   CMP19        197     A     
 COMPASS  *                /QUAL/SYM   SUPPRESS LISTING OF SYMBOL (/QUAL/SYM).             CMP19        198     A     
 COMPASS  *                /QUAL/      SUPPRESS LISTING OF ALL SYMBOLS WITH                CMP19        199     A     
 COMPASS  *                            QUALIFIER (QUAL).                                   CMP19        200     A     
 COMPASS  *         IF LOCATION FIELD IS PRESENT, IT IS USED AS QUALIFIER FOR              CP096A       412     A     
 COMPASS  *         ALL SYMBOLS IN VARIABLE FIELD THAT DO NOT HAVE EXPLICIT                CP096A       413     A     
 COMPASS  *         QUALIFIERS.                                                            CP096A       414     A     
 COMPASS                                                                                   COMPASS     9738     A     
 COMPASS                                                                                   COMPASS     9739     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9740     A     
 COMPASS   NOREF    EQU    CTL70                                                           COMPASS     9741          I
          -CMP19  
 COMPASS   NOREF    SA1    QVAL        SAVE CURRENT QUALIFIER                              CMP19        201     A     
 COMPASS            SA2    CHAR                                                            CMP19        202     A     
 COMPASS            BX6    X1                                                              CMP19        203     A     
 COMPASS            SB7    X2-1R/      LOOK AT NEXT CHARACTER                              CMP19        204     A     
 COMPASS            SA6    A1+B1                                                           CMP19        205     A     
 COMPASS            NZ     B7,NOR3     IF NOT SLASH                                        CMP19        206     A     
 COMPASS            RJ     GETCH                                                           CMP19        207     A     
 COMPASS            SA2    CHAR                                                            CMP19        208     A     
 COMPASS            SX6    X2-1R/                                                          CMP19        209     A     
 COMPASS            ZR     X6,NOR1     IF BLANK QUALIFIER                                  CMP19        210     A     
 COMPASS            RJ     SCITEM      SCAN QUALIFIER NAME                                 CMP19        211     A     
 COMPASS            SB7    X1-1R/                                                          CMP19        212     A     
 COMPASS            NZ     B7,ERA      IF NO TRAILING SLASH                                CMP19        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/28. 19.11.32.      PAGE 681    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   NOR1     BX1    X6                                                              CMP19        214     A     
 COMPASS            RJ     SQV         SET QUALIFIER VALUE                                 CMP19        215     A     
 COMPASS            RJ     GETCH       SKIP TRAILING SLASH                                 CMP19        216     A     
 COMPASS            RJ     SCITEM      SCAN SYMBOL                                         CMP19        217     A     
 COMPASS            NZ     X6,NOR4                                                         CMP19        218     A     
 COMPASS                                                                                   CMP19        219     A     
 COMPASS  *         PROCESS /QUALNAME/ WITH NO SYMBOL.                                     CMP19        220     A     
 COMPASS                                                                                   CMP19        221     A     
 COMPASS            SA1    QVAL                                                            CMP19        222     A     
 COMPASS            SA2    O.QVTAB                                                         CMP19        223     A     
 COMPASS            SB2    B1+B1                                                           CMP19        224     A     
 COMPASS            LX1    12                                                              CMP19        225     A     
 COMPASS            SB7    X2-1                                                            CMP19        226     A     
 COMPASS            ZR     X1,NOR7     IF BLANK QUALIFIER                                  CMP19        227     A     
 COMPASS            SA3    X1+B7       SET NOREF BIT                                       CMP19        228     A     
 COMPASS            MX6    1                                                               CMP19        229     A     
 COMPASS            NG     X3,NOR7     IF ALREADY SET IN QVTAB ENTRY                       CMP19        230     A     
 COMPASS            BX6    X6+X3                                                           CMP19        231     A     
 COMPASS            SX4    B1                                                              CMP19        232     A     
 COMPASS            LX1    -12                                                             CMP19        233     A     
 COMPASS            SA6    A3                                                              CMP19        234     A     
 COMPASS            SA2    O.SYMTAB    SET NOREF IN SYMBOL TABLE                           CMP19        235     A     
 COMPASS            SA3    L.SYMTAB                                                        CMP19        236     A     
 COMPASS            MX0    12                                                              CMP19        237     A     
 COMPASS            SA2    X2                                                              CMP19        238          I
          -CP096A 
 COMPASS            RX5    X2                                                              CP096A       415     A     
 COMPASS            SB7    X3                                                              CMP19        239     A     
 COMPASS            LX4    35                                                              CMP19        240     A     
 COMPASS   NOR2     BX5    X0*X2                                                           CMP19        241          I
          -CP096A 
 COMPASS   NOR2     SX2    X2+B2                                                           CP096A       416     A     
 COMPASS            BX6    X0*X5                                                           CP096A       417     A     
 COMPASS            SB7    B7-B2                                                           CMP19        242     A     
 COMPASS            SA2    A2+B2                                                           CMP19        243          I
          -CP096A 
 COMPASS            BX5    X5-X1                                                           CMP19        244          I
          -CP096A 
 COMPASS            RX5    X2                                                              CP096A       418     A     
 COMPASS            BX6    X6-X1                                                           CP096A       419     A     
 COMPASS            NG     B7,NOR7     IF END OF TABLE                                     CMP19        245     A     
 COMPASS            NZ     X5,NOR2     IF NOT SAME QUALIFIER                               CMP19        246          I
          -CP096A 
 COMPASS            SA3    A2-B1                                                           CMP19        247          I
          -CP096A 
 COMPASS            NZ     X6,NOR2     IF NOT SAME QUALIFIER                               CP096A       420     A     
 COMPASS            SX7    X2-1                                                            CP096A       421     A     
 COMPASS            RX3    X7                                                              CP096A       422     A     
 COMPASS            BX6    X3+X4                                                           CMP19        248     A     
 COMPASS            SA6    A3                                                              CMP19        249          I
          -CP096A 
 COMPASS            WX6    X7                                                              CP096A       423     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 682    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     NOR2                                                            CMP19        250     A     
 COMPASS                                                                                   CMP19        251     A     
 COMPASS  *         PROCESS SYMBOL WITHOUT QUALIFIER.                                      CMP19        252     A     
 COMPASS                                                                                   CMP19        253     A     
 COMPASS   NOR3     RJ     SCITEM                                                          CMP19        254          I
          -CP096A 
 COMPASS   NOR3     SA1    LOCSYM                                                          CP096A       424     A     
 COMPASS            NZ     X1,NOR3A    IF QUALIFIER IN LOCATION FIELD                      CP096A       425     A     
 COMPASS            RJ     SCITEM                                                          CP096A       426     A     
 COMPASS            ZR     X6,NOR7     IF NO SYMBOL                                        CMP19        255     A     
 COMPASS            BX1    X6                                                              CMP19        256     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      CMP19        257     A     
 COMPASS            NZ     X3,NOR5     IF FOUND                                            CMP19        258     A     
 COMPASS            EQ     NOR6                                                            CMP19        259     A     
 COMPASS                                                                                   CP096A       427     A     
 COMPASS   NOR3A    RJ     SQV         SET QUALIFIER VALUE                                 CP096A       428     A     
 COMPASS            RJ     SCITEM                                                          CP096A       429     A     
 COMPASS                                                                                   CMP19        260     A     
 COMPASS  *         PROCESS /QUALNAME/SYMBOL.                                              CMP19        261     A     
 COMPASS                                                                                   CMP19        262     A     
 COMPASS   NOR4     SA1    QVAL                                                            CMP19        263          I
          -CP096A 
 COMPASS            BX1    X1+X6                                                           CMP19        264          I
          -CP096A 
 COMPASS   NOR4     BX1    X6                                                              CP096A       430     A     
 COMPASS            RJ     TLUSYMT                                                         CMP19        265     A     
 COMPASS            MX0    -48                                                             CMP19        266          I
          -CP096A 
 COMPASS            BX1    -X0*X1                                                          CMP19        267          I
          -CP096A 
 COMPASS            ZR     X3,NOR6     IF NOT IN SYMBOL TABLE                              CMP19        268     A     
 COMPASS            SA4    X3-1                                                            CMP19        269          I
          -CP096A 
 COMPASS            SX0    X3-1                                                            CP096A       431     A     
 COMPASS            RX4    X0                                                              CP096A       432     A     
 COMPASS            BX5    X4-X5                                                           CMP19        270     A     
 COMPASS            NZ     X5,NOR6     IF NOT SAME QUALIFIER                               CMP19        271     A     
 COMPASS                                                                                   CMP19        272     A     
 COMPASS  *         SET NOREF BIT FOR SYMBOL.                                              CMP19        273     A     
 COMPASS                                                                                   CMP19        274     A     
 COMPASS   NOR5     SX4    B1                                                              CMP19        275     A     
 COMPASS            LX4    35                                                              CMP19        276     A     
 COMPASS            BX6    X2+X4       SET NOREF BIT                                       CMP19        277     A     
 COMPASS            SA6    X3                                                              CMP19        278          I
          -CP096A 
 COMPASS            WX6    X3                                                              CP096A       433     A     
 COMPASS            EQ     NOR7                                                            CMP19        279     A     
 COMPASS   NOR6     SX2    B1          MAKE SYMBOL TABLE ENTRY                             CMP19        280     A     
 COMPASS            LX2    35          WITH NOREF BIT SET                                  CMP19        281     A     
 COMPASS            RJ     ENTSYMT                                                         CMP19        282     A     
 COMPASS   NOR7     SA1    QVAL+1      RESTORE CURRENT QUALIFIER                           CMP19        283     A     
 COMPASS            BX6    X1                                                              CMP19        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/28. 19.11.32.      PAGE 683    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    CHAR                                                            CMP19        285     A     
 COMPASS            SB7    X2-1R       LOOK AT NEXT CHARACTER                              CMP19        286     A     
 COMPASS            SA6    A1-B1                                                           CMP19        287     A     
 COMPASS            ZR     B7,CTL300   IF BLANK                                            CMP19        288     A     
 COMPASS            NE     B7,B1,ERA   IF NOT COMMA                                        CMP19        289     A     
 COMPASS            RJ     GETCH       SKIP COMMA                                          CMP19        290     A     
 COMPASS            EQ     NOREF       LOOP                                                CMP19        291     A     
 COMPASS   NOREF    SPACE  4                                                               COMPASS     9742     A     
 COMPASS  **        NOREF - NO REFERENCE.                                                  COMPASS     9743     A     
 COMPASS                                                                                   COMPASS     9744     A     
 COMPASS                                                                                   COMPASS     9745     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9746     A     
 COMPASS   NOREF    SA1    CHAR                                                            COMPASS     9747          I
          -CMP19  
 COMPASS            SB7    X1-1R                                                           COMPASS     9748          I
          -CMP19  
 COMPASS            ZR     B7,ZLIST    IF END OF LIST                                      COMPASS     9749          I
          -CMP19  
 COMPASS            RJ     SCLIST                                                          COMPASS     9750          I
          -CMP19  
 COMPASS            ZR     X6,NOREF    IGNORE EMPTY FIELD                                  COMPASS     9751          I
          -CMP19  
 COMPASS            BX1    X6                                                              COMPASS     9752          I
          -CMP19  
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS     9753          I
          -CMP19  
 COMPASS            ZR     X2,NOR1     IF NOT FOUND                                        COMPASS     9754          I
          -CMP19  
 COMPASS            SX6    B1                                                              COMPASS     9755          I
          -CMP19  
 COMPASS            LX6    35                                                              COMPASS     9756          I
          -CMP19  
 COMPASS            BX6    X6+X2       SET NOREF FLAG                                      COMPASS     9757          I
          -CMP19  
 COMPASS            SA6    X3                                                              COMPASS     9758          I
          -CMP19  
 COMPASS   NOR1     SA2    QVAL                                                            COMPASS     9759          I
          -CMP19  
 COMPASS            BX1    X1+X2                                                           COMPASS     9760          I
          -CMP19  
 COMPASS            ADDWORD NRTAB                                                          COMPASS     9761          I
          -CMP19  
 COMPASS            EQ     NOREF       LOOP                                                COMPASS     9762          I
          -CMP19  
 COMPASS   NOREF    EQU    ZLIST                                                           CMP19        292     A     
 COMPASS   OCTMIC   SPACE  4                                                               COMPASS     9763     A     
 COMPASS  ***       OCTMIC - OCTAL CONVERSION.                                             COMPASS     9764     A     
 COMPASS  *                                                                                COMPASS     9765     A     
 COMPASS  *                                                                                COMPASS     9766     A     
 COMPASS  *MNAME    OCTMIC AEXP1,AEXP2                                                     COMPASS     9767     A     
 COMPASS  *         USING AN OCTAL CONVERSION, (AEXP1) IS CONVERTED INTO A                 COMPASS     9768     A     
 COMPASS  *         CHARACTER STRING.  THE OPTIONAL PARAMETER (AEXP2) DEFINES              COMPASS     9769     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 684    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         THE LENGTH OF THE RESULTING MICRO.  IF THE FIELD IS LARGER             COMPASS     9770     A     
 COMPASS  *         THAN REQUIRED, THE CHARACTERS ARE RIGHT JUSTIFIED WITH                 COMPASS     9771     A     
 COMPASS  *         LEADING ZERO FILL.  IF (AEXP2) IS BLANK, THE CHARACTER                 COMPASS     9772     A     
 COMPASS  *         STRING HAS LEADING ZERO SUPPRESSION.  A ZERO STRING                    COMPASS     9773     A     
 COMPASS  *         WILL PRODUCE ONE ZERO.  MAXIMUM LENGTH IS 10 CHARACTERS.               COMPASS     9774     A     
 COMPASS  *         (MNAME) IS THE MICRO NAME.                                             COMPASS     9775     A     
 COMPASS                                                                                   COMPASS     9776     A     
 COMPASS                                                                                   COMPASS     9777     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9778     A     
 COMPASS   OCTMIC   SX6    3                                                               COMPASS     9779     A     
 COMPASS            SX1    60                                                              COMPASS     9780     A     
 COMPASS            RJ     SMC                                                             COMPASS     9781          I
          -CPS052 
 COMPASS            RJ     SCADCON                                                         CPS052         3     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     9782     A     
 COMPASS            RJ     COCT                                                            COMPASS     9783     A     
 COMPASS            EQ     DMC1                                                            COMPASS     9784     A     
 COMPASS   OCTMIC   SPACE  4                                                               COMPASS     9785     A     
 COMPASS  **        OCTMIC - OCTAL CONVERSION.                                             COMPASS     9786     A     
 COMPASS                                                                                   COMPASS     9787     A     
 COMPASS                                                                                   COMPASS     9788     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9789     A     
 COMPASS   OCTMIC   EQU    ZLIST                                                           COMPASS     9790          I
          -CPS010 
 COMPASS   OCTMIC   EQU    DECMIC                                                          CPS010        61     A     
 COMPASS   OPDEF    SPACE  4                                                               COMPASS     9791     A     
 COMPASS  ***       OPDEF - SPECIAL MACRO FORM.                                            COMPASS     9792     A     
 COMPASS  *                                                                                COMPASS     9793     A     
 COMPASS  *                                                                                COMPASS     9794     A     
 COMPASS  *SYTX     OPDEF  P1,P2,P3                                                        COMPASS     9795     A     
 COMPASS  *         (SYTX) IS ABBREVIATED DESCRIPTION OF CP INSTRUCTION TO BE              COMPASS     9796     A     
 COMPASS  *         RECOGNIZED AS AN OPDEF CALL.  VARIABLE SUBFIELDS ARE FORMAL            COMPASS     9797     A     
 COMPASS  *         ARGUMENTS LISTED AS FOR (MACRO).  PROVIDES DESCRIPTION                 COMPASS     9798     A     
 COMPASS  *         OF MACROS IN CP MACHINE INSTRUCTION FORMAT.                            COMPASS     9799     A     
 COMPASS                                                                                   COMPASS     9800     A     
 COMPASS                                                                                   COMPASS     9801     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9802     A     
 COMPASS   OPDEF    MX0    59                                                              COMPASS     9803     A     
 COMPASS            RJ     PMACRO                                                          COMPASS     9804     A     
 COMPASS            EQ     CTL100                                                          COMPASS     9805     A     
 COMPASS   OPDEF    SPACE  4                                                               COMPASS     9806     A     
 COMPASS  **        OPDEF - SPECIAL MACRO FORM.                                            COMPASS     9807     A     
 COMPASS                                                                                   COMPASS     9808     A     
 COMPASS                                                                                   COMPASS     9809     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9810     A     
 COMPASS   OPDEF    EQU    ZLIST                                                           COMPASS     9811     A     
 COMPASS   OPSYN    SPACE  4                                                               COMPASS     9812     A     
 COMPASS  ***       OPSYN                                                                  COMPASS     9813     A     
 COMPASS  *                                                                                COMPASS     9814     A     
 COMPASS  *                                                                                COMPASS     9815     A     
 COMPASS  *NAME     OPSYN  NAME                                                            COMPASS     9816     A     
 COMPASS  *         THIS MAKES THE OPERATION CODE IN THE LOCATION FIELD                    COMPASS     9817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 685    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         SYNONYMOUS WITH THE PP INSTRUCTION, PSEUDO OPERATION,                  COMPASS     9818     A     
 COMPASS  *         OR MACRO NAME IN THE ADDRESS FIELD.                                    COMPASS     9819     A     
 COMPASS                                                                                   COMPASS     9820     A     
 COMPASS                                                                                   COMPASS     9821     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9822     A     
 COMPASS   OPSYN    SA1    OPTYPE      SAVE OPTYPE                                         COMPASS     9823     A     
 COMPASS            BX6    X1                                                              COMPASS     9824     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS     9825     A     
 COMPASS            SA1    BADLOC      CHECK LOCATION FIELD                                COMPASS     9826     A     
 COMPASS            SA2    LOCSYM                                                          COMPASS     9827     A     
 COMPASS            SB7    LERR                                                            COMPASS     9828     A     
 COMPASS            NZ     X1,OPS1     IF BAD LOCATION                                     COMPASS     9829     A     
 COMPASS            ZR     X2,OPS1     IF NO LOCATION SYMBOL                               COMPASS     9830     A     
 COMPASS            RJ     SCITEM                                                          COMPASS     9831          I
          -CPS126 
 COMPASS            RJ     SCLIST                                                  CPS126  CPS126         5     A     
 COMPASS            SB7    AERR                                                            COMPASS     9832     A     
 COMPASS            ZR     X6,OPS1     IF ADDRESS FIELD EMPTY                              COMPASS     9833     A     
 COMPASS            BX1    X6                                                              COMPASS     9834     A     
 COMPASS            RJ     TLUOP       FIND EQUIVALANCE                                    COMPASS     9835     A     
 COMPASS            SB7    AERR                                                            COMPASS     9836     A     
 COMPASS            ZR     X6,OPS1     IF ADDRESS FIELD NOT DEFINED                        COMPASS     9837     A     
 COMPASS            MX0    1           SET OPSYN BIT                                       COMPASS     9838          I
          -CMP64G 
 COMPASS            LX0    48                                                              COMPASS     9839          I
          -CMP64G 
 COMPASS            BX2    X6+X0       DEFINE NEW INSTRUCTION                              COMPASS     9840          I
          -CMP64G 
 COMPASS            BX2    X6                                                              CMP64G       137     A     
 COMPASS            SX0    B1          SET PROGRAM-DEFINED FLAG                            CMP64G       138     A     
 COMPASS            AX2    57                                                              CMP64G       139     A     
 COMPASS            BX3    X2+X0                                                           CMP64G       140     A     
 COMPASS   +        LX0    47                                                              CMP64G       141     A     
 COMPASS            NZ     X3,*+1      IF NOT A MACRO                                      CMP64G       142     A     
 COMPASS            LX0    57-47                                                           CMP64G       143     A     
 COMPASS   +        BX2    X6+X0                                                           CMP64G       144     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS     9841     A     
 COMPASS            RJ     ENTOP                                                           COMPASS     9842     A     
 COMPASS            EQ     CTL400      RETURN                                              COMPASS     9843     A     
 COMPASS   OPS1     SX6    B1          SET ERROR FLAG                                      COMPASS     9844     A     
 COMPASS            SA6    B7                                                              COMPASS     9845     A     
 COMPASS            SA6    EFLG                                                            COMPASS     9846     A     
 COMPASS            EQ     CTL400      RETURN                                              COMPASS     9847     A     
 COMPASS   OPSYN    SPACE  4                                                               COMPASS     9848     A     
 COMPASS  **        OPSYN - OPERATION SYNONYMOUS.                                          COMPASS     9849     A     
 COMPASS                                                                                   COMPASS     9850     A     
 COMPASS                                                                                   COMPASS     9851     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9852     A     
 COMPASS   OPSYN    EQU    ZLIST                                                           COMPASS     9853     A     
 COMPASS   ORG      SPACE  4                                                               COMPASS     9854     A     
 COMPASS  ***       ORG - ORIGIN.                                                          COMPASS     9855     A     
 COMPASS  *                                                                                COMPASS     9856     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 686    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS     9857     A     
 COMPASS  *         ORG    REXP                                                            COMPASS     9858     A     
 COMPASS  *         RESET ORIGIN AND LOCATION COUNTERS.  SYMBOLS IN (REXP)                 COMPASS     9859     A     
 COMPASS  *         MUST BE DEFINED PREVIOUSLY.  (ORG) MAY CAUSE A CHANGE IN               COMPASS     9860     A     
 COMPASS  *         THE USE BLOCK.                                                         COMPASS     9861     A     
 COMPASS                                                                                   COMPASS     9862     A     
 COMPASS                                                                                   COMPASS     9863     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9864     A     
 COMPASS   ORG      SX6    B1+B1                                                           COMPASS     9865     A     
 COMPASS            SX1    21                                                              COMPASS     9866     A     
 COMPASS            RJ     SCADCON     EVALUATE ADDRESS FIELD                              COMPASS     9867     A     
 COMPASS            SA2    EXREL                                                           COMPASS     9868          I
          -CMP30  
 COMPASS   ORG1     SA2    EXREL                                                           CMP30       3159     A     
 COMPASS            SA3    UI+1                                                            COMPASS     9869     A     
 COMPASS            IX6    X2-X3                                                           COMPASS     9870          I
          -RSM4159
 COMPASS            SB7    X6-2        FORBID ORG INTO LITERALS                            COMPASS     9871          I
          -RSM4159
 COMPASS            SB7    X2-3        FORBID ORG INTO LITERALS                            RSM4159       11     A     
 COMPASS            AX2    8           COMPLAIN IF NEGATIVE RELOCATION                     COMPASS     9872     A     
 COMPASS            IX1    X2+X1                                                           COMPASS     9873     A     
 COMPASS   +        ZR     B7,*+1                                                          COMPASS     9874          I
          -CMP30  
 COMPASS            ZR     X1,ORG1     IF NO ERRORS                                        COMPASS     9875          I
          -CMP30  
 COMPASS            SX6    B1                                                              COMPASS     9876          I
          -CMP30  
 COMPASS            SA6    AERR        NOTE ERROR                                          COMPASS     9877          I
          -CMP30  
 COMPASS            SA6    EFLG                                                            COMPASS     9878          I
          -CMP30  
 COMPASS            EQ     CTL70                                                           COMPASS     9879          I
          -CMP30  
 COMPASS            SX7    B0          CLEAR CONDITIONAL LOAD FLAG                         CMP30       3160     A     
 COMPASS            ZR     B7,ERA                                                          CMP30       3161     A     
 COMPASS            NZ     X1,ERA      IF ERRORS                                           CMP30       3162     A     
 COMPASS            SA1    EXVAL       EXPRESSION VALUE                                    CPS186         4     A     
 COMPASS            MI     X1,ERA      IF NOT POSITIVE ADDRESS                             CPS186         5     A     
 COMPASS                                                                                   COMPASS     9880     A     
 COMPASS   ORG1     SA2    A2                                                              COMPASS     9881          I
          -CMP30  
 COMPASS   ORG2     SA2    A2                                                              CMP30       3163     A     
 COMPASS            NZ     X2,*+1                                                          COMPASS     9882     A     
 COMPASS            SX2    X3                                                              COMPASS     9883     A     
 COMPASS            SA7    P1TEMPC                                                         CMP30       3164     A     
 COMPASS            BX6    X2                                                              COMPASS     9884     A     
 COMPASS            LX3    X2,B1                                                           COMPASS     9885          I
          -CMP30  
 COMPASS            IX4    X6+X3                                                           COMPASS     9886          I
          -CMP30  
 COMPASS            SA2    O.USETAB                                                        COMPASS     9887          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 687    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            IX1    X4+X4                                                           COMPASS     9888          I
          -CMP30  
 COMPASS            LX2    2                                                               CMP30       3165     A     
 COMPASS            SA1    O.USETAB                                                        CMP30       3166     A     
 COMPASS            SA3    UI                                                              RSM4159       12     A     
 COMPASS            IX1    X1+X3       BASE ADDRESS OF BLOCK GROUP                         RSM4159       13     A     
 COMPASS            SB7    X2-4                                                            COMPASS     9889     A     
 COMPASS            SA2    B7+X1                                                           COMPASS     9890     A     
 COMPASS            BX7    X2                                                              COMPASS     9891     A     
 COMPASS            SA6    P1TEMPB                                                         COMPASS     9892          I
          -CMP30  
 COMPASS            SA6    A7-B1                                                           CMP30       3167     A     
 COMPASS            SA7    A6-B1                                                           COMPASS     9893     A     
 COMPASS            RJ     USES        CREATE USTACK ENTRY                                 COMPASS     9894     A     
 COMPASS            RJ     USER        SWITCH TO NEW BLOCK                                 COMPASS     9895     A     
 COMPASS            RJ     YFOUP       FORCE UPPER                                         COMPASS     9896     A     
 COMPASS            SA1    EXVAL       AND RESET ORIGINS FOR NEW BLOCK                     COMPASS     9897     A     
 COMPASS            BX6    X1                                                              COMPASS     9898     A     
 COMPASS            SA6    ORGCTR                                                          COMPASS     9899     A     
 COMPASS            SA1    A6+B1                                                           COMPASS     9900          I
          -CMP30  
 COMPASS            BX7    X1                                                              COMPASS     9901          I
          -CMP30  
 COMPASS            SA6    LOCCTR                                                          COMPASS     9902     A     
 COMPASS            SA7    A6+B1                                                           COMPASS     9903          I
          -CMP30  
 COMPASS            SA1    FLAG                                                            CMP30       3168     A     
 COMPASS            SA2    O.USETAB                                                        CMP30       3169     A     
 COMPASS            SA3    P1TEMPC                                                         CMP30       3170     A     
 COMPASS            SA4    UI                                                              RSM4159       14     A     
 COMPASS            IX2    X2+X4       BASE ADDRESS OF BLOCK GROUP                         RSM4159       15     A     
 COMPASS            SX5    X1                                                              CMP30       3171     A     
 COMPASS            LX5    2                                                               CMP30       3172     A     
 COMPASS            SB7    X2-3                                                            CMP30       3173     A     
 COMPASS            SA4    X5+B7                                                           CMP30       3174     A     
 COMPASS            MX0    1                                                               CMP30       3175     A     
 COMPASS            BX6    -X0*X1      CLEAR CONDITIONAL LOADING INDICATOR                 CMP30       3176     A     
 COMPASS            BX7    -X0*X4                                                          CMP30       3177     A     
 COMPASS            BX6    X3+X6       SET INDICATOR IN USETAB ENTRY AND                   CMP30       3178     A     
 COMPASS            BX7    X3+X7       IN FLAG, IF *ORGC*                                  CMP30       3179     A     
 COMPASS            SA6    A1                                                              CMP30       3180     A     
 COMPASS            SA7    A4                                                              CMP30       3181     A     
 COMPASS            BX6    X3          SET/CLEAR CONDITIONAL LOAD FLAG                     CMP30       3182     A     
 COMPASS            SA6    CLF                                                             CMP30       3183     A     
 COMPASS            EQ     CTL70                                                           COMPASS     9904     A     
 COMPASS   ORG      SPACE  4                                                               COMPASS     9905     A     
 COMPASS  **        ORG - ORIGIN.                                                          COMPASS     9906     A     
 COMPASS                                                                                   COMPASS     9907     A     
 COMPASS                                                                                   COMPASS     9908     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9909     A     
 COMPASS   ORG      SX6    B1+B1                                                           COMPASS     9910     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 688    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    21                                                              COMPASS     9911     A     
 COMPASS            RJ     SCADCON                                                         COMPASS     9912     A     
 COMPASS            SA2    EFLG                                                            COMPASS     9913     A     
 COMPASS            BX1    X1+X2                                                           COMPASS     9914     A     
 COMPASS            NZ     X1,ZLIST    QUIT IF ANY ERRORS                                  COMPASS     9915     A     
 COMPASS            RJ     USER        RESET TO NEW BLOCK                                  COMPASS     9916     A     
 COMPASS            RJ     ZFOUP       FORCE UPPER                                         COMPASS     9917     A     
 COMPASS            SA1    EXVAL                                                           COMPASS     9918     A     
 COMPASS            SA2    ORGCTR                                                 S028 457 CPS028       346     A     
 COMPASS            BX6    X1                                                              COMPASS     9919     A     
 COMPASS            IX7    X1-X2                                                  S028 459 CPS028       347     A     
 COMPASS            SA6    ORGCTR      RESET COUNTERS                                      COMPASS     9920     A     
 COMPASS            SA7    P2TEMP                                                 S028 461 CPS028       348     A     
 COMPASS            SA6    LOCCTR                                                          COMPASS     9921     A     
 COMPASS            RJ     RESORG      RESET ORIGIN ON NEW ORIGIN                          COMPASS     9922     A     
 COMPASS            SA1    P2TEMP                                                 S028 463 CPS028       349     A     
 COMPASS            PL     X1,ZLLA     IF NOT ORG BACKWARD                        S028 464 CPS028       350     A     
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODE                             S028 465 CPS028       351     A     
 COMPASS            RJ     DLAST       DUMP LINK AND FILL TABLES                  S028 466 CPS028       352     A     
 COMPASS   ORG1     EQ     ZLLA                                                            COMPASS     9923          I
          -CMP30  
 COMPASS            EQ     ZLLA                                                            CMP30       3184     A     
 COMPASS   ORGC     SPACE  4                                                               CMP30       3185     A     
 COMPASS  ***       ORGC - CONDITIONAL ORIGIN.                                             CMP30       3186     A     
 COMPASS  *                                                                                CMP30       3187     A     
 COMPASS  *                                                                                CMP30       3188     A     
 COMPASS  *         ORGC   REXP                                                            CMP30       3189     A     
 COMPASS  *         RESET ORIGIN AND LOCATION COUNTERS.  SYMBOLS IN (REXP)                 CMP30       3190     A     
 COMPASS  *         MUST BE DEFINED PREVIOUSLY.  IN AN ABSOLUTE ASSEMBLY, OR               CMP30       3191     A     
 COMPASS  *         IF (REXP) IS NOT RELATIVE TO A COMMON BLOCK, (ORGC) IS                 CMP30       3192     A     
 COMPASS  *         TREATED AS (ORG).  OTHERWISE, SUBSEQUENT INSTRUCTION/DATA              CMP30       3193     A     
 COMPASS  *         WORDS WILL BE SKIPPED BY THE LOADER IF THE COMMON BLOCK                CMP30       3194     A     
 COMPASS  *         WAS FIRST DECLARED BY AN EARLIER SUBPROGRAM.                           CMP30       3195     A     
 COMPASS                                                                                   CMP30       3196     A     
 COMPASS                                                                                   CMP30       3197     A     
 COMPASS            QUAL   PASS1                                                           CMP30       3198     A     
 COMPASS   ORGC     SA1    ABSFG                                                           CMP30       3199     A     
 COMPASS            SX6    2                                                               CMP30       3200     A     
 COMPASS            NZ     X1,ORG      IF ABSOLUTE ASSEMBLY                                CMP30       3201     A     
 COMPASS            SX1    21                                                              CMP30       3202     A     
 COMPASS            RJ     SCADCON     EVALUATE ADDRESS FIELD                              CMP30       3203     A     
 COMPASS            SA2    EXREL                                                           CMP30       3204     A     
 COMPASS            SA3    UI+1                                                            CMP30       3205     A     
 COMPASS            MX7    0                                                               CMP30       3206     A     
 COMPASS            ZR     X2,ORG2     IF ABSOLUTE                                         CMP30       3207     A     
 COMPASS            SB7    B1+B1                                                           CMP30       3208     A     
 COMPASS            LX5    X2,B7                                                           CMP30       3209          I
          -RSM4159
 COMPASS            SA4    O.USETAB                                                        CMP30       3210     A     
 COMPASS            SA5    UI                                                              RSM4159       16     A     
 COMPASS            IX4    X4+X5       BASE ADDRESS OF BLOCK GROUP                         RSM4159       17     A     
 COMPASS            LX5    X2,B7                                                           RSM4159       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/28. 19.11.32.      PAGE 689    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX2    8           CHECK FOR NEGATIVE RELOCATION                       CMP30       3211     A     
 COMPASS            BX1    X1+X2                                                           CMP30       3212     A     
 COMPASS            NZ     X1,ERA                                                          CMP30       3213     A     
 COMPASS            IX5    X4+X5                                                           CMP30       3214     A     
 COMPASS            SA4    X5-2                                                            CMP30       3215     A     
 COMPASS            ZR     X4,ORG1     IF NOT A COMMON BLOCK                               CMP30       3216     A     
 COMPASS            MX7    1           SET CONDITIONAL LOAD FLAG                           CMP30       3217     A     
 COMPASS            EQ     ORG2                                                            CMP30       3218     A     
 COMPASS   ORGC     SPACE  4                                                               CMP30       3219     A     
 COMPASS  **        ORGC - CONDITIONAL ORIGIN.                                             CMP30       3220     A     
 COMPASS                                                                                   CMP30       3221     A     
 COMPASS                                                                                   CMP30       3222     A     
 COMPASS            QUAL   PASS2                                                           CMP30       3223     A     
 COMPASS   ORGC     EQU    ORG                                                             CMP30       3224     A     
 COMPASS   PERIPH   SPACE  4                                                               COMPASS     9924     A     
 COMPASS  ***       PERIPH - PP ASSEMBLY.                                                  COMPASS     9925     A     
 COMPASS  *                                                                                COMPASS     9926     A     
 COMPASS  *                                                                                COMPASS     9927     A     
 COMPASS  *         PERIPH CHAR                                                            COMPASS     9928     A     
 COMPASS  *         PERIPH DECLARES THE PROGRAM TO BE A PP PROGRAM AND ABSOLUTE.           COMPASS     9929     A     
 COMPASS  *         THE RULES STATED UNDER ABS APPLY.                                      COMPASS     9930     A     
 COMPASS  *         IF (CHAR) IS (J), ASSEMBLE LOW CORE PP JUMPS AS (TAG - *).             COMPASS     9931     A     
 COMPASS  *         IF (CHAR) IS BLANK, ASSEMBLE LOW CORE PP JUMPS AS JUMP                 COMPASS     9932     A     
 COMPASS  *         TO TAG.                                                                COMPASS     9933     A     
 COMPASS                                                                                   COMPASS     9934     A     
 COMPASS                                                                                   COMPASS     9935     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9936     A     
 COMPASS   PERIPH   SA1    CHAR                                                            COMPASS     9937     A     
 COMPASS            SX1    X1-1RJ                                                          COMPASS     9938     A     
 COMPASS            SX6    B0                                                              COMPASS     9939     A     
 COMPASS            NZ     X1,PER1     IF NOT J                                            COMPASS     9940     A     
 COMPASS            SX6    B1                                                              COMPASS     9941     A     
 COMPASS   PER1     SA6    PPJUMP                                                          COMPASS     9942     A     
 COMPASS            SX6    B1          SET FLAGS FOR PP ASSEMBLY                           COMPASS     9943     A     
 COMPASS            SX7    12                                                              COMPASS     9944     A     
 COMPASS            SA6    MACHINE     SET FLAG FOR MACHINE TYPE                           COMPASS     9945     A     
 COMPASS            SA7    LWORD       SET WORD LENGTH TO 12                               COMPASS     9946     A     
 COMPASS            SA7    POSCTR      REVISE POSITION COUNTER TO 12                       COMPASS     9947     A     
 COMPASS            SX6    4                                                               CPSA281      298     A     
 COMPASS            SA6    PPBYT                                                           CPSA281      299     A     
 COMPASS            SX6    B1+B1                                                           COMPASS     9948     A     
 COMPASS            SA6    NCHARS      SET NUMBER OF CHARACTERS TO 2                       COMPASS     9949     A     
 COMPASS            LX7    24          RESET BLOCK COUNTERS                                COMPASS     9950     A     
 COMPASS            SA1    O.USETAB                                                        COMPASS     9951     A     
 COMPASS            SA2    L.USETAB                                                        COMPASS     9952     A     
 COMPASS   PERIPH1  SA7    X1+B1                                                           COMPASS     9953     A     
 COMPASS            SX2    X2-6                                                            COMPASS     9954          I
          -CMP30  
 COMPASS            SX1    X1+6                                                            COMPASS     9955          I
          -CMP30  
 COMPASS            SX2    X2-4                                                            CMP30       3225     A     
 COMPASS            SX1    X1+4                                                            CMP30       3226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 690    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X2,PERIPH1                                                      COMPASS     9956     A     
 COMPASS            SA1    MTYPE                                                           CMP30       3227     A     
 COMPASS            SA2    PPTYPE                                                          CMP30       3228     A     
 COMPASS            NZ     X1,ABS      IF *MACHINE* ALREADY SPECIFIED                      CMP30       3229     A     
 COMPASS            SX6    X2+B1                                                           CMP30       3230     A     
 COMPASS            SX7    X2+1R6                                                          CMP30       3231     A     
 COMPASS            SA6    A1          SET MTYPE = 1 (PERIPH) OR 2 (PPU)                   CMP30       3232     A     
 COMPASS            LX7    6                                                               CMP30       3233     A     
 COMPASS            SA7    VALID       SET VALID = 6 (PERIPH) OR 7 (PPU)                   CMP30       3234     A     
 COMPASS            EQ     ABS                                                             COMPASS     9957          I
          -CPS026 
 COMPASS            SA1    PSIM                                                            CPS026        44     A     
 COMPASS            SX3    6000B                                                           CPS026        45     A     
 COMPASS            ZR     X2,PER2     IF MACHINE = 6                                      CPS026        46     A     
 COMPASS            BX6    -X3*X1      INCLUDE 60B,61B INSTRUCTIONS                        CPS026        47          I
          -CPSA297
 COMPASS            BX6    -X3*X1      EXCLUDE 60B,61B INSTRUCTIONS                        CPSA297       57     A     
 COMPASS            SA6    A1                                                              CPS026        48     A     
 COMPASS            EQ     ABS                                                             CPS026        49     A     
 COMPASS   PER2     BX6    X1+X3       INCLUDE 60B,61B CODES IN MASK                       CPS026        50     A     
 COMPASS            SA6    A1                                                              CPS026        51     A     
 COMPASS            EQ     ABS                                                             CPS026        52     A     
 COMPASS   PERIPH   SPACE  4                                                               COMPASS     9958     A     
 COMPASS  **        PERIPH - PP ASSEMBLY.                                                  COMPASS     9959     A     
 COMPASS                                                                                   COMPASS     9960     A     
 COMPASS                                                                                   COMPASS     9961     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9962     A     
 COMPASS   PERIPH   EQU    ZLIST                                                           COMPASS     9963     A     
 COMPASS   PPU      SPACE  4                                                               COMPASS     9964     A     
 COMPASS  ***       PPU - 7600 PP ASSEMBLY.                                                COMPASS     9965     A     
 COMPASS                                                                                   COMPASS     9966     A     
 COMPASS                                                                                   COMPASS     9967     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9968     A     
 COMPASS   PPU      SX6    B1          SET FLAG FOR 7600 PP ASSEMBLY                       COMPASS     9969     A     
 COMPASS            SA6    PPTYPE                                                          COMPASS     9970     A     
 COMPASS            EQ     PERIPH                                                          COMPASS     9971     A     
 COMPASS   PPU      SPACE  4                                                               COMPASS     9972     A     
 COMPASS  **        PPU - 7600 PP ASSEMBLY.                                                COMPASS     9973     A     
 COMPASS                                                                                   COMPASS     9974     A     
 COMPASS                                                                                   COMPASS     9975     A     
 COMPASS            QUAL   PASS2                                                           COMPASS     9976     A     
 COMPASS   PPU      EQU    ZLIST                                                           COMPASS     9977     A     
 COMPASS   POS      SPACE  4                                                               COMPASS     9978     A     
 COMPASS  ***       POS - POSITION COUNTER.                                                COMPASS     9979     A     
 COMPASS  *                                                                                COMPASS     9980     A     
 COMPASS  *                                                                                COMPASS     9981     A     
 COMPASS  *         POS    AEXP                                                            COMPASS     9982     A     
 COMPASS  *         SET POSITION COUNTER OF (AEXP).  (AEXP) MUST BE BETWEEN 0              COMPASS     9983     A     
 COMPASS  *         AND 60 IN VALUE AND PREVIOUSLY DEFINED.                                COMPASS     9984     A     
 COMPASS                                                                                   COMPASS     9985     A     
 COMPASS                                                                                   COMPASS     9986     A     
 COMPASS            QUAL   PASS1                                                           COMPASS     9987     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 691    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   POS      SX6    3                                                               COMPASS     9988     A     
 COMPASS            SX1    6                                                               COMPASS     9989     A     
 COMPASS            RJ     SMC                                                             COMPASS     9990     A     
 COMPASS            SA4    EXVAL                                                           COMPASS     9991     A     
 COMPASS            NZ     X1,CTL70    IF ERROR IN EXPRESSION                              COMPASS     9992     A     
 COMPASS            SA1    LWORD                                                           COMPASS     9993     A     
 COMPASS            IX6    X1-X4                                                           COMPASS     9994     A     
 COMPASS            BX6    X4+X6                                                           COMPASS     9995     A     
 COMPASS            PL     X6,POS1     IF 0 @ POSITION @ LWORD                             COMPASS     9996     A     
 COMPASS            SX6    B1          SET ERROR FLAG                                      COMPASS     9997     A     
 COMPASS            SA6    EFLG                                                            COMPASS     9998     A     
 COMPASS            SA6    AERR                                                            COMPASS     9999     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10000     A     
 COMPASS   POS1     BX6    X4                                                              COMPASS    10001     A     
 COMPASS            SA6    POSCTR                                                          COMPASS    10002     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10003     A     
 COMPASS   POS      SPACE  4                                                               COMPASS    10004     A     
 COMPASS  **        POS - POSITION COUNTER.                                                COMPASS    10005     A     
 COMPASS                                                                                   COMPASS    10006     A     
 COMPASS                                                                                   COMPASS    10007     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10008     A     
 COMPASS   POS      SX6    3                                                               COMPASS    10009     A     
 COMPASS            SX1    6                                                               COMPASS    10010     A     
 COMPASS            RJ     SMC                                                             COMPASS    10011     A     
 COMPASS            SA1    EXVAL                                                           COMPASS    10012     A     
 COMPASS            SA4    EFLG                                                            COMPASS    10013     A     
 COMPASS            NZ     X4,ZLIST    IF ERRORS                                           COMPASS    10014     A     
 COMPASS            BX6    X1                                                              COMPASS    10015     A     
 COMPASS            SA6    POSCTR                                                          COMPASS    10016     A     
 COMPASS            SX2    36          OUTPUT OCTAL POSITION                               COMPASS    10017     A     
 COMPASS            SX3    2                                                               COMPASS    10018     A     
 COMPASS            RJ     PACKO                                                           COMPASS    10019     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10020     A     
 COMPASS   PPOP     SPACE  4                                                               COMPASS    10021     A     
 COMPASS  ***       PPOP - DEFINE PP OPERATION CODE.                                       COMPASS    10022     A     
 COMPASS  *                                                                                COMPASS    10023     A     
 COMPASS  *                                                                                COMPASS    10024     A     
 COMPASS  *NAME     PPOP   CTL,VAL                                                         COMPASS    10025          I
          -CMP30  
 COMPASS  *NAME     PPOP   CTL,VAL,TYP                                                     CMP30       3235     A     
 COMPASS  *         (NAME) = MNEMONIC NAME.                                                COMPASS    10026     A     
 COMPASS  *         (CTL) = 1 - 24-BIT WITH 12-BIT ADDRESS AND NO INDEXING.                COMPASS    10027     A     
 COMPASS  *                 2 - 12-BIT WITH SIGNED RELATIVE ADDRESS                        COMPASS    10028     A     
 COMPASS  *                     OR ABSOLUTE ADDRESS (UJN).                                 COMPASS    10029     A     
 COMPASS  *                 3 - 24-BIT WITH 18-BIT ADDRESS (LDC).                          COMPASS    10030     A     
 COMPASS  *                 4 - 12-BIT WITH 6-BIT ADDRESS (LDN).                           COMPASS    10031     A     
 COMPASS  *                 5 - 24-BIT WITH 12-BIT ADDRESS AND OPTIONAL                    COMPASS    10032     A     
 COMPASS  *                     INDEXING (LDM).                                            COMPASS    10033     A     
 COMPASS  *                 6 - 12-BIT WITH SIGNED RELATIVE ADDRESS (SHN).                 COMPASS    10034     A     
 COMPASS  *                 7 - 24-BIT WITH 12-BIT ADDRESS AND REQUIRED                    COMPASS    10035     A     
 COMPASS  *                     SECOND FIELD (FNC).                                        COMPASS    10036     A     
 COMPASS  *         (VAL) = 12-BIT OPERATION CODE VALUE.                                   COMPASS    10037     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 692    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         (TYP) = 6 OR 7 TO RESTRICT INSTRUCTION TO 6000 OR 7000.                CMP30       3236     A     
 COMPASS                                                                                   COMPASS    10038     A     
 COMPASS                                                                                   COMPASS    10039     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10040     A     
 COMPASS   PPOP     SX6    3           READ CTL                                            COMPASS    10041          I
          -F4820  
 COMPASS            SX1    3                                                               COMPASS    10042          I
          -F4820  
 COMPASS            RJ     SCADCON                                                         COMPASS    10043          I
          -F4820  
 COMPASS            SA1    EXVAL                                                           COMPASS    10044          I
          -F4820  
 COMPASS            SX6    3           READ VAL                                            COMPASS    10045          I
          -F4820  
 COMPASS            BX7    X1                                                              COMPASS    10046          I
          -F4820  
 COMPASS            SX1    12                                                              COMPASS    10047          I
          -F4820  
 COMPASS            SA7    P1TEMPA                                                         COMPASS    10048          I
          -F4820  
 COMPASS   PPOP     SX7    100040B     SET PP AND OPSYN                                    F4820        667     A     
 COMPASS   PPOP1    SX6    3           READ CTL                                            F4820        668     A     
 COMPASS            LX7    42                                                              F4820        669     A     
 COMPASS            SX1    X6                                                              F4820        670     A     
 COMPASS            SA7    P1TEMP                                                          F4820        671     A     
 COMPASS            RJ     SCADCON                                                         F4820        672     A     
 COMPASS            SA1    EXVAL                                                           F4820        673     A     
 COMPASS            SA2    P1TEMP                                                          F4820        674     A     
 COMPASS            BX7    X1                                                              F4820        675     A     
 COMPASS            SX1    12          READ VAL                                            F4820        676     A     
 COMPASS            LX2    3                                                               F4820        677     A     
 COMPASS            SA7    P1TEMPA                                                         F4820        678     A     
 COMPASS   +        PL     X2,*+1      IF PPOP                                             F4820        679     A     
 COMPASS            SX1    16                                                              F4820        680     A     
 COMPASS            SX6    3                                                               F4820        681     A     
 COMPASS            RJ     SCADCON                                                         COMPASS    10049     A     
 COMPASS            SA1    BADLOC                                                          COMPASS    10050          I
          -CMP30  
 COMPASS            SA1    EXVAL                                                           CMP30       3237     A     
 COMPASS            SX6    3           READ TYP                                            CMP30       3238     A     
 COMPASS            BX7    X1                                                              CMP30       3239     A     
 COMPASS            SX1    3                                                               CMP30       3240     A     
 COMPASS            SA7    P1TEMPB                                                         CMP30       3241     A     
 COMPASS            RJ     SCADCON                                                         CMP30       3242     A     
 COMPASS            SA2    P1TEMP                                                          F4820        682     A     
 COMPASS            LX2    3                                                               F4820        683     A     
 COMPASS            SX4    B0                                                              F4820        684     A     
 COMPASS            NG     X2,PPOP2    IF BCU                                              F4820        685     A     
 COMPASS            SA1    EXVAL       GET TYP                                             CMP30       3243     A     
 COMPASS            SX4    B0                                                              CMP30       3244          I
          -F4820  
 COMPASS            SB7    X1-6                                                            CMP30       3245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 693    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     B7,PPOP2    IF NOT 6 OR 7, ASSUME 0                             CMP30       3246     A     
 COMPASS            GT     B7,B1,PPOP2                                                     CMP30       3247     A     
 COMPASS            SX4    B7+B1                                                           CMP30       3248     A     
 COMPASS            LX4    3                                                               CMP30       3249     A     
 COMPASS   PPOP2    SA1    BADLOC                                                          CMP30       3250     A     
 COMPASS            SX6    B1                                                              COMPASS    10051     A     
 COMPASS            ZR     X1,PPOP1    IF NO LOCATION ERROR                                COMPASS    10052          I
          -F4820  
 COMPASS            ZR     X1,PPOP3    IF NO LOCATION ERROR                                F4820        686     A     
 COMPASS            SA6    LERR                                                            COMPASS    10053     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10054     A     
 COMPASS   PPOP1    SA1    P1TEMPA                                                         COMPASS    10055          I
          -F4820  
 COMPASS   PPOP3    SA1    P1TEMPA                                                         F4820        687     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    10056          I
          -CMP30  
 COMPASS            SA2    A1+B1                                                           CMP30       3251     A     
 COMPASS            SA3    EFLG                                                            COMPASS    10057     A     
 COMPASS            SX6    100040B     SET PP AND OPSYN                                    COMPASS    10058          I
          -F4820  
 COMPASS            MX0    -3                                                              COMPASS    10059     A     
 COMPASS            BX1    -X0*X1                                                          COMPASS    10060     A     
 COMPASS            SA5    P1TEMP                                                          F4820        688     A     
 COMPASS            LX5    3                                                               F4820        689     A     
 COMPASS   +        NG     X5,*+1      IF BCOP                                             F4820        690     A     
 COMPASS            ZR     X1,ERA      IF CTL = 0                                          CMP27         17     A     
 COMPASS            BX1    X4+X1                                                           CMP30       3252     A     
 COMPASS            SA4    A1-B1                                                           F4820        691     A     
 COMPASS            LX1    27                                                              COMPASS    10061     A     
 COMPASS            MX0    -12                                                             COMPASS    10062          I
          -F4820  
 COMPASS            BX2    -X0*X2                                                          COMPASS    10063          I
          -F4820  
 COMPASS            BX1    X1+X2                                                           COMPASS    10064          I
          -F4820  
 COMPASS            LX6    42                                                              COMPASS    10065          I
          -F4820  
 COMPASS            IX2    X1+X6                                                           COMPASS    10066          I
          -F4820  
 COMPASS            IX6    X1+X4                                                           F4820        692     A     
 COMPASS            LX4    3                                                               F4820        693     A     
 COMPASS   +        MX0    -12                                                             F4820        694     A     
 COMPASS            PL     X4,*+1      IF PPOP                                             F4820        695     A     
 COMPASS            MX0    -16                                                             F4820        696     A     
 COMPASS            BX2    -X0*X2                                                          F4820        697     A     
 COMPASS            IX2    X6+X2                                                           F4820        698     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    10067     A     
 COMPASS            NZ     X3,CTL70    IF ERROR                                            COMPASS    10068     A     
 COMPASS            RJ     ENTOP                                                           COMPASS    10069     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS    10070     A     
 COMPASS   PPOP     SPACE  4                                                               COMPASS    10071     A     
 COMPASS  **        PPOP - DEFINE PP OPERATION CODE.                                       COMPASS    10072     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 694    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    10073     A     
 COMPASS                                                                                   COMPASS    10074     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10075     A     
 COMPASS   PPOP     EQU    ZLIST                                                           COMPASS    10076     A     
 COMPASS   PURGDEF  SPACE  4                                                               CMP6           1     A     
 COMPASS  ***       PURGDEF - PURGE CPU OPCODE.                                            CMP6           2     A     
 COMPASS  *                                                                                CMP6           3     A     
 COMPASS  *                                                                                CMP6           4     A     
 COMPASS  *         PURGDEF SYNTAX                                                         CMP6           5     A     
 COMPASS  *         (SYNTAX) IS THE SYNTAX OF A CPU OPCODE.                                CMP6           6     A     
 COMPASS  *         THE SPECIFIED OPCODE IS PURGED FROM THE OP-CODE TABLE                  CMP6           7     A     
 COMPASS  *         FOR THE REMAINDER OF THE CURRENT ASSEMBLY.                             CMP6           8     A     
 COMPASS                                                                                   CMP6           9     A     
 COMPASS                                                                                   CMP6          10     A     
 COMPASS            QUAL   PASS1                                                           CMP6          11     A     
 COMPASS   PURGDEF  SA2    COLUMN      ASSEMBLE SYNTAX                                     CMP6          12     A     
 COMPASS            SA1    X2+CARD-1                                                       CMP6          13     A     
 COMPASS            RJ     SOS                                                             CMP6          14     A     
 COMPASS            ZR     X6,CTL400   IF SYNTAX ERROR                                     CMP6          15     A     
 COMPASS            SA1    P1TEMP      PURGE OPCODE                                        CMP6          16     A     
 COMPASS            RJ     PGO                                                             CMP6          17     A     
 COMPASS            EQ     CTL400                                                          CMP6          18     A     
 COMPASS   PURGDEF  SPACE  4                                                               CMP6          19     A     
 COMPASS  **        PURGDEF - PURGE CPU OPCODE.                                            CMP6          20     A     
 COMPASS                                                                                   CMP6          21     A     
 COMPASS                                                                                   CMP6          22     A     
 COMPASS            QUAL   PASS2                                                           CMP6          23     A     
 COMPASS   PURGDEF  EQU    ZLIST                                                           CMP6          24     A     
 COMPASS   PURGMAC  SPACE  4                                                               COMPASS    10077     A     
 COMPASS  ***       PURGMAC - PURGE MACRO.                                                 COMPASS    10078     A     
 COMPASS  *                                                                                COMPASS    10079     A     
 COMPASS  *                                                                                COMPASS    10080     A     
 COMPASS  *         PURGMAC NAME1,NAME2,...,NAMEN                                          COMPASS    10081     A     
 COMPASS  *         PURGMAC NAME                                                           COMPASS    10082     A     
 COMPASS  *         (NAMEI) IS THE MACRO, PSEUDO, OR PP INSTRUCTION NAME.                  COMPASS    10083     A     
 COMPASS  *         THE SPECIFIED OPERATION IS PURGED FROM THE OP-CODE                     COMPASS    10084     A     
 COMPASS  *         TABLE FOR THE REMAINDER OF THE CURRENT ASSEMBLY.                       COMPASS    10085     A     
 COMPASS                                                                                   COMPASS    10086     A     
 COMPASS                                                                                   COMPASS    10087     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10088     A     
 COMPASS   PURGMAC  RJ     SCITEM                                                          COMPASS    10089          I
          -CPS202 
 COMPASS  PURGMAC   RJ     SCLIST      SCAN ITEM                                           CPS202         5     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS    10090     A     
 COMPASS            ZR     X6,PUR2     IF NO ADDRESS FIELD                                 COMPASS    10091          I
          -CMP6   
 COMPASS            BX1    X6          LOOK UP OP-CODE                                     COMPASS    10092          I
          -CMP6   
 COMPASS            RJ     TLUOP                                                           COMPASS    10093          I
          -CMP6   
 COMPASS            ZR     X6,PUR2     IF NO MACRO                                         COMPASS    10094          I
          -CMP6   
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 695    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A2-B1       FETCH LINK                                          COMPASS    10095          I
          -CMP6   
 COMPASS            MX0    12                                                              COMPASS    10096          I
          -CMP6   
 COMPASS            SA5    O.OPTAB                                                         COMPASS    10097          I
          -CMP6   
 COMPASS            BX4    X0*X1                                                           COMPASS    10098          I
          -CMP6   
 COMPASS            ZR     X4,PUR1     IF NO LINK                                          COMPASS    10099          I
          -CMP6   
 COMPASS            LX4    13                                                              COMPASS    10100          I
          -CMP6   
 COMPASS            IX5    X5+X4                                                           COMPASS    10101          I
          -CMP6   
 COMPASS            SX4    X5+2*NOPCT-2                                                    COMPASS    10102          I
          -CMP6   
 COMPASS            SA3    X4          FETCH LINKED ENTRY                                  COMPASS    10103          I
          -CMP6   
 COMPASS            SA4    A3+B1                                                           COMPASS    10104          I
          -CMP6   
 COMPASS            SA6    A4          INTERCHANGE ENTRIES                                 COMPASS    10105          I
          -CMP6   
 COMPASS            BX7    X1                                                              COMPASS    10106          I
          -CMP6   
 COMPASS            SA7    A3                                                              COMPASS    10107          I
          -CMP6   
 COMPASS            BX6    X3                                                              COMPASS    10108          I
          -CMP6   
 COMPASS            LX7    X4                                                              COMPASS    10109          I
          -CMP6   
 COMPASS            SA6    A1                                                              COMPASS    10110          I
          -CMP6   
 COMPASS            SA7    A2                                                              COMPASS    10111          I
          -CMP6   
 COMPASS            EQ     PUR2        LOOP                                                COMPASS    10112          I
          -CMP6   
 COMPASS   PUR1     SX6    A1          SET OPCODE INDEX                                    COMPASS    10113          I
          -CMP6   
 COMPASS            IX6    X6-X5                                                           COMPASS    10114          I
          -CMP6   
 COMPASS            SA6    P1TEMPA                                                         COMPASS    10115          I
          -CMP6   
 COMPASS            MANAGE OPTAB,2                                                         COMPASS    10116          I
          -CMP6   
 COMPASS            SA1    P1TEMPA                                                         COMPASS    10117          I
          -CMP6   
 COMPASS            IX1    X2+X1                                                           COMPASS    10118          I
          -CMP6   
 COMPASS            IX5    X2+X3                                                           COMPASS    10119          I
          -CMP6   
 COMPASS            SA1    X1          MOVE ENTRY TO END OF TABLE                          COMPASS    10120          I
          -CMP6   
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 696    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    A1+B1                                                           COMPASS    10121          I
          -CMP6   
 COMPASS            MX6    0                                                               COMPASS    10122          I
          -CMP6   
 COMPASS            SA6    A1                                                              COMPASS    10123          I
          -CMP6   
 COMPASS            SA6    A2                                                              COMPASS    10124          I
          -CMP6   
 COMPASS            BX6    X1                                                              COMPASS    10125          I
          -CMP6   
 COMPASS            LX7    X2                                                              COMPASS    10126          I
          -CMP6   
 COMPASS            SA6    X5-2                                                            COMPASS    10127          I
          -CMP6   
 COMPASS            SA7    A6+B1                                                           COMPASS    10128          I
          -CMP6   
 COMPASS   PUR2     SA1    CHAR        CHECK NEXT CHARACTER                                COMPASS    10129          I
          -CMP6   
 COMPASS            SB7    X1-1R,                                                          COMPASS    10130          I
          -CMP6   
 COMPASS            ZR     B7,PURGMAC  IF NOT END OF LIST                                  COMPASS    10131          I
          -CMP6   
 COMPASS   PUR3     MX7    0           CLEAR OP-CODE ERROR                                 COMPASS    10132          I
          -CMP6   
 COMPASS            SA7    OERR                                                            COMPASS    10133          I
          -CMP6   
 COMPASS            EQ     CTL400      RETURN                                              COMPASS    10134          I
          -CMP6   
 COMPASS            BX1    X6          PURGE OPCODE                                        CMP6          25     A     
 COMPASS            RJ     PGO                                                             CMP6          26     A     
 COMPASS            SA1    CHAR                                                            CMP6          27     A     
 COMPASS            SB7    X1-1R,                                                          CMP6          28          I
          -CPS202 
 COMPASS            NZ     B7,CTL400   IF END OF LIST                                      CMP6          29          I
          -CPS202 
 COMPASS            SA1    COLUMN      ADVANCE COLUMN                                      CMP6          30          I
          -CPS202 
 COMPASS            SX6    X1+B1                                                           CMP6          31          I
          -CPS202 
 COMPASS            SA6    A1                                                              CMP6          32          I
          -CPS202 
 COMPASS            SB7    X1-1R                                                           CPS202         6     A     
 COMPASS            ZR     B7,CTL400   IF END OF LIST                                      CPS202         7     A     
 COMPASS            EQ     PURGMAC                                                         CMP6          33     A     
 COMPASS   PURGMAC  SPACE  4                                                               COMPASS    10135     A     
 COMPASS  **        PURGMAC - PURGE MACRO.                                                 COMPASS    10136     A     
 COMPASS                                                                                   COMPASS    10137     A     
 COMPASS                                                                                   COMPASS    10138     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10139     A     
 COMPASS   PURGMAC  EQU    ZLIST                                                           COMPASS    10140     A     
 COMPASS   QUAL     SPACE  4                                                               COMPASS    10141     A     
 COMPASS  ***       QUAL - SET SYMBOL QUALIFIER.                                           COMPASS    10142     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 697    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS    10143     A     
 COMPASS  *                                                                                COMPASS    10144     A     
 COMPASS  *         QUAL   NAME                                                            COMPASS    10145          I
          -CMP30  
 COMPASS  *MNAME    QUAL   NAME                                                            CMP30       3253     A     
 COMPASS  *MNAME    QUAL   *                                                               CMP30       3254     A     
 COMPASS  *         (NAME) IS THE SYMBOL QUALIFIER NAME.  ALL SYMBOLS DEFINED              COMPASS    10146     A     
 COMPASS  *         AFTER THE OCCURRENCE OF A (QUAL) MUST BE REFERENCED FROM               COMPASS    10147     A     
 COMPASS  *         OUTSIDE THE QUAL BLOCK AS (/NAME/SYMBOL).  IF (NAME) IS                COMPASS    10148     A     
 COMPASS  *         BLANK, THE FOLLOWING SYMBOLS ARE GLOBAL.  QUALIFIED SYMBOL             COMPASS    10149     A     
 COMPASS  *         NAMES MAY BE THE SAME AS OTHER QUALIFIED OR GLOBAL SYMBOLS.            COMPASS    10150     A     
 COMPASS  *         WHEN A SYMBOL IS REFERENCED, A CHECK IS MADE FIRST FOR THE             COMPASS    10151     A     
 COMPASS  *         QUALIFIED SYMBOL, THEN THE GLOBAL SYMBOL.                              COMPASS    10152     A     
 COMPASS  *         AN ASTERISK CAUSES RETURN TO THE PREVIOUS QUALIFIER.                   CMP30       3255     A     
 COMPASS  *         IF (MNAME) IS PRESENT, SAVE THE CURRENT QUALIFIER NAME IN              CMP30       3256     A     
 COMPASS  *         THE MICRO MNAME.                                                       CMP30       3257     A     
 COMPASS                                                                                   COMPASS    10153     A     
 COMPASS                                                                                   COMPASS    10154     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10155     A     
 COMPASS   QUAL     RJ     SCITEM                                                          COMPASS    10156          I
          -CMP30  
 COMPASS            SX7    X6-1R*                                                          COMPASS    10157          I
          -CMP30  
 COMPASS            SA2    QVAL                                                            COMPASS    10158          I
          -CMP30  
 COMPASS            ZR     X7,QAL1     IF QUAL *                                           COMPASS    10159          I
          -CMP30  
 COMPASS            BX7    X2                                                              COMPASS    10160          I
          -CMP30  
 COMPASS            LX1    X6                                                              COMPASS    10161          I
          -CMP30  
 COMPASS            SA7    SQUAL                                                           COMPASS    10162          I
          -CMP30  
 COMPASS   QUAL     SA2    LOCSYM                                                          CMP30       3258     A     
 COMPASS            ZR     X2,QUAL1    IF NO MICRO NAME                                    CMP30       3259     A     
 COMPASS            SA1    QUALMIC                                                         CMP30       3260     A     
 COMPASS            SX6    B1                                                              CMP30       3261     A     
 COMPASS            BX7    X1                                                              CMP30       3262     A     
 COMPASS   +        ZR     X1,*+1      IF CURRENT QUALIFIER IS BLANK                       CMP30       3263     A     
 COMPASS            SX6    B1+B1                                                           CMP30       3264     A     
 COMPASS   +        SA7    RELVEC                                                          CMP30       3265     A     
 COMPASS            RJ     EMT         ENTER MICRO TABLE                                   CMP30       3266     A     
 COMPASS   QUAL1    RJ     SCITEM                                                          CMP30       3267     A     
 COMPASS            SB7    X6-1R*                                                          CMP30       3268     A     
 COMPASS            BX1    X6                                                              CMP30       3269     A     
 COMPASS            ZR     B7,QUAL4    IF QUAL *                                           CMP30       3270     A     
 COMPASS            RJ     SQV                                                             COMPASS    10163     A     
 COMPASS            SA2    QVAL+1      GET OLD QUALIFIER AND                               CMP30       3271     A     
 COMPASS            SA1    QUALSTK     PUSH DOWN QUAL STACK                                CMP30       3272     A     
 COMPASS            LX2    12                                                              CMP30       3273     A     
 COMPASS            BX6    X2                                                              CMP30       3274     A     
 COMPASS            RJ     PUSH                                                            CMP30       3275     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 698    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    QVAL        GET NEW CURRENT QUALIFIER                           CMP30       3276     A     
 COMPASS            BX6    X2                                                              CMP30       3277     A     
 COMPASS   QUAL2    LX6    12                                                              CMP30       3278     A     
 COMPASS            SA1    O.QVTAB                                                         CMP30       3279     A     
 COMPASS            MX7    0                                                               CMP30       3280     A     
 COMPASS            ZR     X6,QUAL3    IF NULL QUALIFIER                                   CMP30       3281     A     
 COMPASS            SB7    X6-1                                                            CMP30       3282     A     
 COMPASS            SA3    X1+B7                                                           CMP30       3283     A     
 COMPASS            MX0    12          LEFT JUSTIFY QUAL NAME                              CMP30       3284     A     
 COMPASS            BX3    -X0*X3      ANDS OFF THE NOREF BIT                              CPS0263        5     A     
 COMPASS            SX7    10                                                              CMP30       3285     A     
 COMPASS   +        BX2    X0*X3                                                           CMP30       3286     A     
 COMPASS            LX3    6                                                               CMP30       3287     A     
 COMPASS            SX7    X7-1        COUNT CHARACTERS                                    CMP30       3288     A     
 COMPASS            ZR     X2,*-1                                                          CMP30       3289     A     
 COMPASS            BX7    X3+X7                                                           CMP30       3290     A     
 COMPASS   QUAL3    SA7    QUALMIC     STORE CURRENT QUAL MICRO                            CMP30       3291     A     
 COMPASS            EQ     CTL70       RETURN                                              COMPASS    10164     A     
 COMPASS                                                                                   COMPASS    10165     A     
 COMPASS  *         PROCESS QUAL *.                                                        COMPASS    10166     A     
 COMPASS                                                                                   COMPASS    10167     A     
 COMPASS   QAL1     SA1    SQUAL                                                           COMPASS    10168          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    10169          I
          -CMP30  
 COMPASS            SA6    QVAL                                                            COMPASS    10170          I
          -CMP30  
 COMPASS            EQ     CTL70       RETURN                                              COMPASS    10171          I
          -CMP30  
 COMPASS   QUAL4    SA1    QUALSTK     PUSH UP QUAL STACK                                  CMP30       3292     A     
 COMPASS            RJ     PULL                                                            CMP30       3293     A     
 COMPASS            LX6    -12                                                             CMP30       3294     A     
 COMPASS            SA6    QVAL                                                            CMP30       3295     A     
 COMPASS            EQ     QUAL2                                                           CMP30       3296     A     
 COMPASS   QUAL     SPACE  4                                                               COMPASS    10172     A     
 COMPASS  **        QUAL - SET SYMBOL QUALIFIER.                                           COMPASS    10173     A     
 COMPASS                                                                                   COMPASS    10174     A     
 COMPASS                                                                                   COMPASS    10175     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10176     A     
 COMPASS   QUAL     RJ     SCITEM                                                          COMPASS    10177     A     
 COMPASS            SX7    X6-1R*                                                          COMPASS    10178     A     
 COMPASS            SA2    QVAL                                                            COMPASS    10179          I
          -CMP30  
 COMPASS            ZR     X7,QAL1     IF QUAL *                                           COMPASS    10180     A     
 COMPASS            BX7    X2                                                              COMPASS    10181          I
          -CMP30  
 COMPASS            LX1    X6                                                              COMPASS    10182     A     
 COMPASS            SA7    SQUAL                                                           COMPASS    10183          I
          -CMP30  
 COMPASS            RJ     SQV                                                             COMPASS    10184     A     
 COMPASS            SA2    QVAL+1                                                          CMP30       3297     A     
 COMPASS            SA1    QUALSTK     PUSH DOWN QUAL STACK                                CMP30       3298     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 699    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX2    12                                                              CMP30       3299     A     
 COMPASS            BX6    X2                                                              CMP30       3300     A     
 COMPASS            RJ     PUSH                                                            CMP30       3301     A     
 COMPASS            EQ     QAL2                                                            COMPASS    10185     A     
 COMPASS                                                                                   COMPASS    10186     A     
 COMPASS  *         PROCESS QUAL *.                                                        COMPASS    10187     A     
 COMPASS                                                                                   COMPASS    10188     A     
 COMPASS   QAL1     SA1    SQUAL                                                           COMPASS    10189          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    10190          I
          -CMP30  
 COMPASS   QAL1     SA1    QUALSTK     PUSH UP QUAL STACK                                  CMP30       3302     A     
 COMPASS            RJ     PULL                                                            CMP30       3303     A     
 COMPASS            LX6    -12                                                             CMP30       3304     A     
 COMPASS            SA6    QVAL                                                            COMPASS    10191     A     
 COMPASS   QAL2     SA2    O.QVTAB                                                         COMPASS    10192     A     
 COMPASS            SA1    QVAL                                                            COMPASS    10193     A     
 COMPASS            ZR     X1,QAL3     IF BLANK QUAL                                       COMPASS    10194     A     
 COMPASS            LX1    12                                                              COMPASS    10195     A     
 COMPASS            IX2    X2+X1                                                           COMPASS    10196     A     
 COMPASS            SA1    X2-1                                                            COMPASS    10197     A     
 COMPASS            MX6    -48                                                             CMP19        293     A     
 COMPASS            BX1    -X6*X1                                                          CMP19        294     A     
 COMPASS   QAL3     RJ     LJUST                                                           COMPASS    10198     A     
 COMPASS            SA7    QNAME                                                           COMPASS    10199          I
          -CPS028 
 COMPASS            SA6    QNAME       STORE IN SUBTITLE LINE                     S028 468 CPS028       353     A     
 COMPASS            EQ     ZLIST       RETURN                                              COMPASS    10200     A     
 COMPASS   REP      SPACE  4                                                               COMPASS    10201     A     
 COMPASS  ***       REP - DATA GENERATION.                                                 COMPASS    10202     A     
 COMPASS  *                                                                                COMPASS    10203     A     
 COMPASS  *                                                                                COMPASS    10204     A     
 COMPASS  *         REP    P1/EXP,P2/EXP,,,P5/EXP                                          COMPASS    10205     A     
 COMPASS  *         GENERATE REPLICATION TABLES FOR THE RELOCATABLE LOADER.                COMPASS    10206     A     
 COMPASS  *         EACH SUB-FIELD CONTAINS A LETTER, A / AND AN EXPRESSION.               COMPASS    10207     A     
 COMPASS  *             (S/REXP) SOURCE ADDRESS.                                           COMPASS    10208     A     
 COMPASS  *             (D/REXP) DESTINATION ADDRESS.                                      COMPASS    10209     A     
 COMPASS  *             (C/AEXP) REPLICATION COUNT.                                        COMPASS    10210     A     
 COMPASS  *             (B/AEXP) CODE BLOCK SIZE.                                          COMPASS    10211     A     
 COMPASS  *             (I/AEXP) INCREMENT.                                                COMPASS    10212     A     
 COMPASS                                                                                   COMPASS    10213     A     
 COMPASS                                                                                   COMPASS    10214     A     
 COMPASS            SEG    PSEUDO-OP PROCESSING (R-Z).                                     CMP30       3305     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10215     A     
 COMPASS   REP      EQ     REPI                                                            COMPASS    10216          I
          -CMP30  
 COMPASS   REP      SA1    ABSFG                                                           CMP30       3306     A     
 COMPASS            NZ     X1,CTL80    COMPLAIN IF NOT RELOCATABLE                         CMP30       3307     A     
 COMPASS            EQ     CTL70       PERFORM MOST PROCESSING IN PASS 2                   CMP30       3308     A     
 COMPASS   REP      SPACE  4                                                               COMPASS    10217     A     
 COMPASS  **        REP - DATA GENERATION.                                                 COMPASS    10218     A     
 COMPASS                                                                                   COMPASS    10219     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 700    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    10220     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10221     A     
 COMPASS   REP      MX7    0                                                               COMPASS    10222     A     
 COMPASS   ZREP     SA7    P2TEMP      SET REP TYPE                                        COMPASS    10223     A     
 COMPASS            MX6    0                                                               COMPASS    10224     A     
 COMPASS            SX7    B1                                                              COMPASS    10225          I
          -CMP30  
 COMPASS            SA5    ABSFG                                                           COMPASS    10226     A     
 COMPASS            NZ     X5,ZLIST    QUIT IF REP IS ILLEGAL HERE                         COMPASS    10227     A     
 COMPASS            SA6    OPADS       CLEAR ACCUMULATION CELLS                            COMPASS    10228     A     
 COMPASS            SA7    SUPREF                                                          COMPASS    10229          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    10230     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    10231     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    10232     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    10233     A     
 COMPASS   ZREP1    SA1    CHAR                                                            COMPASS    10234     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    10235     A     
 COMPASS            ZR     B7,ZREP10   IF DONE WITH ADDRESS FIELD                          COMPASS    10236     A     
 COMPASS            RJ     SCITEM      GET IDENTIFICATION CHARACTER                        COMPASS    10237     A     
 COMPASS            SB7    X1-1R/      CHECK FOR SLASH SEPARATOR                           COMPASS    10238     A     
 COMPASS            SB6    X6-2                                                            COMPASS    10239          I
          -CMP30  
 COMPASS            SB5    X6-4                                                            COMPASS    10240          I
          -CMP30  
 COMPASS            SB6    X6-1RB                                                          CMP30       3309     A     
 COMPASS            SB5    X6-1RD                                                          CMP30       3310     A     
 COMPASS            SB4    X6-1RI                                                          COMPASS    10241     A     
 COMPASS            SB3    X6-1RS                                                          COMPASS    10242     A     
 COMPASS            NZ     B7,ZREPER   SLASH NOT TERMINATOR                                COMPASS    10243     A     
 COMPASS            RJ     GETCH       THROW AWAY THE SLASH                                COMPASS    10244     A     
 COMPASS            SX1    15                                                              CMP30       3311     A     
 COMPASS            ZR     B6,ZREPB    B = BLOCK SIZE                                      COMPASS    10245     A     
 COMPASS            SX1    18                                                              COMPASS    10246     A     
 COMPASS            EQ     B6,B1,ZREPC C = COUNT                                           COMPASS    10247     A     
 COMPASS            ZR     B5,ZREPD    D = DESTINATION                                     COMPASS    10248          I
          -CMP30  
 COMPASS            ZR     B4,ZREPI    I = INCREMENT                                       COMPASS    10249     A     
 COMPASS            SX1    21                                                              CMP30       3312     A     
 COMPASS            ZR     B5,ZREPD    D = DESTINATION                                     CMP30       3313     A     
 COMPASS            ZR     B3,ZREPS    S = SOURCE                                          COMPASS    10250     A     
 COMPASS   ZREPER   SX6    B1                                                              COMPASS    10251     A     
 COMPASS            SA6    AERR                                                            COMPASS    10252     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10253     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10254     A     
 COMPASS   ZREPB    SX1    15                                                              COMPASS    10255          I
          -CMP30  
 COMPASS            SX6    3                                                               COMPASS    10256          I
          -CMP30  
 COMPASS   ZREPB    SX6    3                                                               CMP30       3314     A     
 COMPASS            RJ     SMC                                                             COMPASS    10257     A     
 COMPASS            SB7    B0                                                              COMPASS    10258     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 701    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ZREPXX   NZ     X1,ZREPER   COMPLAIN IF ANY ERRORS                              COMPASS    10259     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    10260     A     
 COMPASS            SA3    A2+B1       CONVERT RELOCATION                                  COMPASS    10261     A     
 COMPASS            SB6    X3-401B                                                         COMPASS    10262     A     
 COMPASS            SB5    X3-2                                                            COMPASS    10263     A     
 COMPASS            NG     B5,ZREPXX1                                                      COMPASS    10264     A     
 COMPASS            SX3    X3+B1                                                           COMPASS    10265     A     
 COMPASS            NG     B6,ZREPXX1                                                      COMPASS    10266     A     
 COMPASS            SX3    2                                                               COMPASS    10267     A     
 COMPASS            NZ     B6,ZREPER                                                       COMPASS    10268     A     
 COMPASS   ZREPXX1  LX3    18                                                              COMPASS    10269          I
          -CMP30  
 COMPASS   ZREPXX1  LX3    24                                                              CMP30       3315     A     
 COMPASS            BX6    X2+X3                                                           COMPASS    10270     A     
 COMPASS            SA6    OPADS+B7                                                        COMPASS    10271     A     
 COMPASS            EQ     ZREP1                                                           COMPASS    10272     A     
 COMPASS                                                                                   COMPASS    10273     A     
 COMPASS  *         PROCESS COUNT.                                                         COMPASS    10274     A     
 COMPASS                                                                                   COMPASS    10275     A     
 COMPASS   ZREPC    SX6    3                                                               COMPASS    10276     A     
 COMPASS            RJ     SMC                                                             COMPASS    10277     A     
 COMPASS            SB7    1                                                               COMPASS    10278     A     
 COMPASS            EQ     ZREPXX                                                          COMPASS    10279     A     
 COMPASS                                                                                   COMPASS    10280     A     
 COMPASS  *         PROCESS DESTINATION.                                                   COMPASS    10281     A     
 COMPASS                                                                                   COMPASS    10282     A     
 COMPASS   ZREPD    SX6    2                                                               COMPASS    10283     A     
 COMPASS            RJ     SCADCON                                                         COMPASS    10284     A     
 COMPASS            SB7    2                                                               COMPASS    10285     A     
 COMPASS            EQ     ZREPXX                                                          COMPASS    10286     A     
 COMPASS                                                                                   COMPASS    10287     A     
 COMPASS  *         PROCESS INCREMENT.                                                     COMPASS    10288     A     
 COMPASS                                                                                   COMPASS    10289     A     
 COMPASS   ZREPI    SX6    3                                                               COMPASS    10290     A     
 COMPASS            RJ     SMC                                                             COMPASS    10291     A     
 COMPASS            SB7    3                                                               COMPASS    10292     A     
 COMPASS            EQ     ZREPXX                                                          COMPASS    10293     A     
 COMPASS                                                                                   COMPASS    10294     A     
 COMPASS  *         PROCESS SOURCE.                                                        COMPASS    10295     A     
 COMPASS                                                                                   COMPASS    10296     A     
 COMPASS   ZREPS    SX6    2                                                               COMPASS    10297     A     
 COMPASS            RJ     SCADCON                                                         COMPASS    10298     A     
 COMPASS            SB7    4                                                               COMPASS    10299     A     
 COMPASS            EQ     ZREPXX                                                          COMPASS    10300     A     
 COMPASS                                                                                   COMPASS    10301     A     
 COMPASS   ZREP10   SA1    P2TEMP                                                          COMPASS    10302     A     
 COMPASS   +        ZR     X1,*+1                                                          COMPASS    10303          I
          -CMP30  
 COMPASS            RJ     DBSSZ       IF IMMEDIATE REP, DUMP BSSZ CODING                  COMPASS    10304          I
          -CMP30  
 COMPASS            SX3    4300B                                                           COMPASS    10305          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 702    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    P2TEMP                                                          COMPASS    10306          I
          -CMP30  
 COMPASS            LX3    12                                                              COMPASS    10307          I
          -CMP30  
 COMPASS            SX7    B1+B1                                                           COMPASS    10308          I
          -CMP30  
 COMPASS            BX6    X3+X7                                                           COMPASS    10309          I
          -CMP30  
 COMPASS            LX6    36                                                              COMPASS    10310          I
          -CMP30  
 COMPASS            IX6    X6+X1       SET L FIELD TO 1 IF INSTANT REP                     COMPASS    10311          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    10312          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    10313          I
          -CMP30  
 COMPASS            SA1    OPADS                                                           COMPASS    10314          I
          -CMP30  
 COMPASS            SA3    A1+B1                                                           COMPASS    10315          I
          -CMP30  
 COMPASS            LX1    27                                                              COMPASS    10316          I
          -CMP30  
 COMPASS            LX3    27+15                                                           COMPASS    10317          I
          -CMP30  
 COMPASS            BX6    X1+X3                                                           COMPASS    10318          I
          -CMP30  
 COMPASS            SA1    A3+B1                                                           COMPASS    10319          I
          -CMP30  
 COMPASS            BX7    X1+X6                                                           COMPASS    10320          I
          -CMP30  
 COMPASS            SA3    A1+B1                                                           COMPASS    10321          I
          -CMP30  
 COMPASS            SA4    A3+B1                                                           COMPASS    10322          I
          -CMP30  
 COMPASS            LX3    27                                                              COMPASS    10323          I
          -CMP30  
 COMPASS            BX6    X4+X3                                                           COMPASS    10324          I
          -CMP30  
 COMPASS            SA6    P2TEMP                                                          COMPASS    10325          I
          -CMP30  
 COMPASS            ZR     X1,ZREP13   IF DEFERRED (REP)                                   CMP30       3316     A     
 COMPASS            PL     X1,ZREP12   IF INSTANT UNCONDITIONAL (REPI)                     CMP30       3317     A     
 COMPASS            SA2    OPADS+2                                                         CMP30       3318     A     
 COMPASS   +        NZ     X2,*+1      IF DESTINATION ADDRESS NON-ZERO                     CMP30       3319     A     
 COMPASS            SA2    OPADS+4                                                         CMP30       3320     A     
 COMPASS            SX6    B1                                                              CMP30       3321     A     
 COMPASS            AX2    24          GET DESTINATION RELOCATION                          CMP30       3322     A     
 COMPASS            IX4    X2-X6                                                           CMP30       3323     A     
 COMPASS            AX3    X4,B1                                                           CMP30       3324     A     
 COMPASS            ZR     X3,ZREP11   IF NOT A COMMON BLOCK, CHANGE TO REPI               CMP30       3325     A     
 COMPASS            SA3    LLB                                                             CMP30       3326     A     
 COMPASS            LX4    24                                                              CMP30       3327     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 703    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX5    X4-X3                                                           CMP30       3328     A     
 COMPASS            LX2    12                                                              CMP30       3329     A     
 COMPASS            ZR     X5,ZREP11   IF LCM LOCAL BLOCK                                  CMP30       3330     A     
 COMPASS            BX6    X6+X2                                                           CMP30       3331     A     
 COMPASS   ZREP11   SA6    A1                                                              CMP30       3332     A     
 COMPASS   ZREP12   RJ     DBSSZ       DUMP BSSZ CODING IF REPC OR REPI                    CMP30       3333     A     
 COMPASS   ZREP13   SA1    OPADS+2     CHECK SOURCE AND DESTINATION ADDRESS RANGES         CMP30       3334     A     
 COMPASS            SA2    OPADS+4                                                         CMP30       3335     A     
 COMPASS            MX0    17-24                                                           CMP30       3336     A     
 COMPASS            BX5    X1+X2                                                           CMP30       3337     A     
 COMPASS            SA3    P2TEMP      HEADER WORD                                         CMP30       3338     A     
 COMPASS            AX5    17                                                              CMP30       3339     A     
 COMPASS            BX7    -X0*X5                                                          CMP30       3340     A     
 COMPASS            SX4    2                                                               CMP30       3341     A     
 COMPASS            SX5    4300B       REPL TABLE IDENTIFIER                               CMP30       3342     A     
 COMPASS            LX4    36                                                              CMP30       3343     A     
 COMPASS            BX3    X4+X3                                                           CMP30       3344     A     
 COMPASS            ZR     X7,ZREP14   IF BOTH ADDRESSES LESS THAN 2**17                   CMP30       3345     A     
 COMPASS                                                                                   CMP30       3346     A     
 COMPASS            SX5    4700B       XREPL TABLE IDENTIFIER                              CMP30       3347     A     
 COMPASS            LX5    48                                                              CMP30       3348     A     
 COMPASS            BX6    X5+X3                                                           CMP30       3349     A     
 COMPASS            SA6    A3          STORE HEADER WORD                                   CMP30       3350     A     
 COMPASS            SA4    A1-B1       COUNT                                               CMP30       3351     A     
 COMPASS            SA3    A1+B1       INCREMENT                                           CMP30       3352     A     
 COMPASS            SA5    A4-B1       BLOCK SIZE                                          CMP30       3353     A     
 COMPASS            LX4    12                                                              CMP30       3354     A     
 COMPASS            LX3    33                                                              CMP30       3355     A     
 COMPASS            BX7    X4+X5                                                           CMP30       3356     A     
 COMPASS            IX6    X3+X2       FIRST WORD - INCREMENT AND SOURCE                   CMP30       3357     A     
 COMPASS            LX7    33                                                              CMP30       3358     A     
 COMPASS            BX7    X7+X1       SECOND WORD - COUNT, BLOCK SIZE, DEST               CMP30       3359     A     
 COMPASS            EQ     ZREP15                                                          CMP30       3360     A     
 COMPASS                                                                                   CMP30       3361     A     
 COMPASS   ZREP14   LX5    48          REPL TABLE                                          CMP30       3362     A     
 COMPASS            BX6    X5+X3                                                           CMP30       3363     A     
 COMPASS            SA6    A3          STORE HEADER WORD                                   CMP30       3364     A     
 COMPASS            SA4    A1-B1       COUNT                                               CMP30       3365     A     
 COMPASS            SA3    A1+B1       INCREMENT                                           CMP30       3366     A     
 COMPASS            SA5    A4-B1       BLOCK SIZE                                          CMP30       3367     A     
 COMPASS            SX6    X1                                                              CMP30       3368          I
          -CPS028 
 COMPASS            SX7    X2                                                              CMP30       3369          I
          -CPS028 
 COMPASS            SX7    X1                                                     S028 470 CPS028       354     A     
 COMPASS            SX6    X2                                                     S028 471 CPS028       355     A     
 COMPASS            AX1    24                                                              CMP30       3370     A     
 COMPASS            AX2    24                                                              CMP30       3371     A     
 COMPASS            LX4    15                                                              CMP30       3372     A     
 COMPASS            LX3    9                                                               CMP30       3373     A     
 COMPASS            BX3    X3+X2                                                           CMP30       3374     A     
 COMPASS            IX4    X4+X5                                                           CMP30       3375     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 704    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX3    18                                                              CMP30       3376     A     
 COMPASS            BX6    X3+X6       FIRST WORD - INCREMENT AND SOURCE                   CMP30       3377     A     
 COMPASS            LX4    9                                                               CMP30       3378     A     
 COMPASS            BX5    X4+X1                                                           CMP30       3379     A     
 COMPASS            LX5    18                                                              CMP30       3380     A     
 COMPASS            BX7    X5+X7       SECOND WORD - COUNT, BLOCK SIZE, DEST               CMP30       3381     A     
 COMPASS                                                                                   CMP30       3382     A     
 COMPASS   ZREP15   SA6    A6+B1                                                           CMP30       3383     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    10326     A     
 COMPASS            WRITEW B,A6,2                                                          COMPASS    10327          I
          -CMP30  
 COMPASS                                                                                   CMP30       3384     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3385     A     
 COMPASS            WRITEW B,A6-B1,3   WRITE REPL TABLE                                    CMP30       3386     A     
 COMPASS   RM       ELSE                                                                   CMP30       3387     A     
 COMPASS            SA2    B                                                               CMP30       3388     A     
 COMPASS            ZR     X2,ZLIST    IF NO BINARY FILE                                   CMP30       3389     A     
 COMPASS            SA1    B-1                                                             CMP30       3390     A     
 COMPASS            NZ     X1,ZREP20   IF NOT *W* RECORDS                                  CMP30       3391     A     
 COMPASS            PUT    B,P2TEMP,30                                                     CMP30       3392     A     
 COMPASS            EQ     ZLIST                                                           CMP30       3393     A     
 COMPASS   ZREP20   PUTP   B,P2TEMP,30                                                     CMP30       3394     A     
 COMPASS   RM       ENDIF                                                                  CMP30       3395     A     
 COMPASS                                                                                   CMP30       3396     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10328     A     
 COMPASS   REPC     SPACE  4                                                               CMP30       3397     A     
 COMPASS  ***       REPC - DATA GENERATION.                                                CMP30       3398     A     
 COMPASS  *                                                                                CMP30       3399     A     
 COMPASS  *                                                                                CMP30       3400     A     
 COMPASS  *         REPC   P1/EXP,P2/EXP,,,P5/EXP                                          CMP30       3401     A     
 COMPASS  *         GENERATE CONDITIONAL REPLICATION TABLES FOR THE RELOCATING             CMP30       3402     A     
 COMPASS  *         LOADER.  EACH SUB-FIELD CONTAINS A LETTER, A / AND AN                  CMP30       3403     A     
 COMPASS  *         EXPRESSION.                                                            CMP30       3404     A     
 COMPASS  *              (S/REXP) SOURCE ADDRESS.                                          CMP30       3405     A     
 COMPASS  *              (D/REXP) DESTINATION ADDRESS.                                     CMP30       3406     A     
 COMPASS  *              (C/AEXP) REPLICATION COUNT.                                       CMP30       3407     A     
 COMPASS  *              (B/AEXP) CODE BLOCK SIZE.                                         CMP30       3408     A     
 COMPASS  *              (I/AEXP) INCREMENT.                                               CMP30       3409     A     
 COMPASS                                                                                   CMP30       3410     A     
 COMPASS                                                                                   CMP30       3411     A     
 COMPASS            QUAL   PASS1                                                           CMP30       3412     A     
 COMPASS   REPC     EQU    REP                                                             CMP30       3413     A     
 COMPASS   REPC     SPACE  4                                                               CMP30       3414     A     
 COMPASS  **        REPC - DATA GENERATION.                                                CMP30       3415     A     
 COMPASS                                                                                   CMP30       3416     A     
 COMPASS                                                                                   CMP30       3417     A     
 COMPASS            QUAL   PASS2                                                           CMP30       3418     A     
 COMPASS   REPC     SX7    -B1                                                             CMP30       3419     A     
 COMPASS            EQ     ZREP                                                            CMP30       3420     A     
 COMPASS   REPI     SPACE  4                                                               COMPASS    10329     A     
 COMPASS  ***       REPI - DATA GENERATION.                                                COMPASS    10330     A     
 COMPASS  *                                                                                COMPASS    10331     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 705    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS    10332     A     
 COMPASS  *         REPI   P1/EXP,P2/EXP,,,P5/EXP                                          COMPASS    10333     A     
 COMPASS  *         GENERATE INSTANT REPLICATION TABLES FOR THE RELOCATABLE                COMPASS    10334     A     
 COMPASS  *         LOADER EACH SUB-FIELD CONTAINS A LETTER, A / AND AN                    COMPASS    10335     A     
 COMPASS  *         EXPRESSION.                                                            COMPASS    10336     A     
 COMPASS  *             (S/REXP) SOURCE ADDRESS.                                           COMPASS    10337     A     
 COMPASS  *             (D/REXP) DESTINATION ADDRESS.                                      COMPASS    10338     A     
 COMPASS  *             (C/AEXP) REPLICATION COUNT.                                        COMPASS    10339     A     
 COMPASS  *             (B/AEXP) CODE BLOCK SIZE.                                          COMPASS    10340     A     
 COMPASS  *             (I/AEXP) INCREMENT.                                                COMPASS    10341     A     
 COMPASS                                                                                   COMPASS    10342     A     
 COMPASS                                                                                   COMPASS    10343     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10344     A     
 COMPASS   REPI     SA1    ABSFG                                                           COMPASS    10345          I
          -CMP30  
 COMPASS            NZ     X1,CTL80    COMPLAIN IF NOT RELOCATABLE                         COMPASS    10346          I
          -CMP30  
 COMPASS            EQ     CTL70       PERFORM MOST PROCESSING IN PASS 2                   COMPASS    10347          I
          -CMP30  
 COMPASS   REPI     EQU    REP                                                             CMP30       3421     A     
 COMPASS   REPI     SPACE  4                                                               COMPASS    10348     A     
 COMPASS  **        REPI - DATA GENERATION.                                                COMPASS    10349     A     
 COMPASS                                                                                   COMPASS    10350     A     
 COMPASS                                                                                   COMPASS    10351     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10352     A     
 COMPASS   REPI     SX7    B1                                                              COMPASS    10353     A     
 COMPASS            EQ     ZREP                                                            COMPASS    10354     A     
 COMPASS   RMT      SPACE  4                                                               COMPASS    10355     A     
 COMPASS  ***       RMT - SAVE CODE.                                                       COMPASS    10356     A     
 COMPASS  *                                                                                COMPASS    10357     A     
 COMPASS  *                                                                                COMPASS    10358     A     
 COMPASS  *NAME     RMT                                                                    COMPASS    10359     A     
 COMPASS  *         INSTRUCTIONS UP TO THE NEXT (RMT) PSEUDO INSTRUCTION                   COMPASS    10360     A     
 COMPASS  *         ARE SAVED FOR LATER ASSEMBLY.                                          COMPASS    10361     A     
 COMPASS  *         (NAME) = NAME OF LABELED REMOTE GROUP.                                 COMPASS    10362     A     
 COMPASS                                                                                   COMPASS    10363     A     
 COMPASS                                                                                   COMPASS    10364     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10365     A     
 COMPASS   RMT      SX6    B1          SET TEXT DEFINITION FLAG                            COMPASS    10366     A     
 COMPASS            MX7    0           CLEAR PUSHUP FLAG                                   COMPASS    10367     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS    10368     A     
 COMPASS            SA7    PUSHUP                                                          COMPASS    10369     A     
 COMPASS            SA1    BADLOC                                                          COMPASS    10370     A     
 COMPASS            SX6    B1                                                              COMPASS    10371     A     
 COMPASS            SX7    RMTAB                                                           COMPASS    10372     A     
 COMPASS            ZR     X1,RMT1     IF NO LOCATION ERROR                                COMPASS    10373     A     
 COMPASS            SA6    LERR                                                            COMPASS    10374     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10375     A     
 COMPASS   RMT1     SA1    LOCSYM                                                          COMPASS    10376     A     
 COMPASS            SA7    P1TEMP                                                          COMPASS    10377     A     
 COMPASS            ZR     X1,RMT2     IF UNLABELED RMT                                    COMPASS    10378     A     
 COMPASS            SX7    LRMTAB                                                          COMPASS    10379     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 706    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A7                                                              COMPASS    10380     A     
 COMPASS            ADDWORD X7                                                             COMPASS    10381     A     
 COMPASS   RMT2     RJ     CWI         WRITE RMT CARD                                      COMPASS    10382     A     
 COMPASS            RJ     INPUT1      READ DEFINITION CARD                                COMPASS    10383     A     
 COMPASS            NZ     X1,RMT4     IF PUSHUP OCCURRED                                  COMPASS    10384     A     
 COMPASS            RJ     SETUP                                                           COMPASS    10385     A     
 COMPASS            SA1    STYPE       CHECK CARD TYPE                                     COMPASS    10386     A     
 COMPASS            SA2    IOP                                                             COMPASS    10387     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS    10388     A     
 COMPASS            ZR     B7,RMT2     IF COMMENT CARD                                     COMPASS    10389     A     
 COMPASS            SX3    3RRMT                                                           COMPASS    10390     A     
 COMPASS            SX4    3REND                                                           COMPASS    10391     A     
 COMPASS            IX6    X2-X3                                                           COMPASS    10392     A     
 COMPASS            BX7    X2-X4                                                           COMPASS    10393     A     
 COMPASS            ZR     X7,END      JUMP IF END CARD                                    COMPASS    10394     A     
 COMPASS            ZR     X6,RMT3     IF TERMINATING RMT CARD                             COMPASS    10395     A     
 COMPASS            SA1    P1TEMP      PACK CARD INTO RMT TABLE                            COMPASS    10396     A     
 COMPASS            PCARD  X1                                                              COMPASS    10397     A     
 COMPASS            EQ     RMT2        LOOP                                                COMPASS    10398     A     
 COMPASS   RMT3     RJ     CWI         WRITE TERMINATING RMT CARD                          COMPASS    10399     A     
 COMPASS            MX6    0                                                               COMPASS    10400     A     
 COMPASS            SA6    TXTFLG      CLEAR TEXT FLAG                                     COMPASS    10401     A     
 COMPASS            EQ     CTL100                                                          COMPASS    10402     A     
 COMPASS                                                                                   COMPASS    10403     A     
 COMPASS  *         ENTRY OF ILLEGAL NESTING OF RMT.                                       COMPASS    10404     A     
 COMPASS                                                                                   COMPASS    10405     A     
 COMPASS   RMT4     SX6    B1          SET *E* ERROR                                       COMPASS    10406     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10407     A     
 COMPASS            SA6    EERR                                                            COMPASS    10408     A     
 COMPASS            EQ     RMT3                                                            COMPASS    10409     A     
 COMPASS   RMT      SPACE  4                                                               COMPASS    10410     A     
 COMPASS  **        RMT - SAVE CODE.                                                       COMPASS    10411     A     
 COMPASS                                                                                   COMPASS    10412     A     
 COMPASS                                                                                   COMPASS    10413     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10414     A     
 COMPASS   RMT      EQU    ZLIST                                                           COMPASS    10415     A     
 COMPASS   R=       SPACE  4                                                               COMPASS    10416     A     
 COMPASS  ***       R= - CONDITIONAL SET INSTRUCTION.                                      COMPASS    10417     A     
 COMPASS  *                                                                                COMPASS    10418     A     
 COMPASS  *                                                                                COMPASS    10419     A     
 COMPASS  *SYM      R=     REG,EXP                                                         COMPASS    10420     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER.                   COMPASS    10421     A     
 COMPASS  *         IF (REG) AND (EXP) ARE IDENTICAL, NO CODE IS GENERATED.                COMPASS    10422     A     
 COMPASS  *         IF (EXP) HAS A VALUE OF ZERO, A SET (REG) TO B0 IS GENERATED.          COMPASS    10423     A     
 COMPASS  *         IF (B1=1) OR (B7=1) PSEUDO HAS BEEN CALLED, A 15-BIT SET               COMPASS    10424     A     
 COMPASS  *         (REG) INSTRUCTION WILL BE GENERATED IF (EXP) = -1, 0, 1,               COMPASS    10425     A     
 COMPASS  *         OR 2.  OTHERWISE, A SET (REG) TO (EXP) IS GENERATED.                   COMPASS    10426     A     
 COMPASS  *         THIS PSEUDO IS USED INSIDE A MACRO DEFINITION TO SPEED UP              COMPASS    10427     A     
 COMPASS  *         THE GENERATION OF MORE OPTIMUM CODE.                                   COMPASS    10428     A     
 COMPASS                                                                                   COMPASS    10429     A     
 COMPASS                                                                                   COMPASS    10430     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10431     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 707    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   R=       SA1    COLUMN                                                          COMPASS    10432     A     
 COMPASS            SA1    X1+CARD-1                                                       COMPASS    10433     A     
 COMPASS            SX6    1R                                                              COMPASS    10434     A     
 COMPASS            LX1    12                                                              COMPASS    10435     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    10436     A     
 COMPASS            LX2    6                                                               COMPASS    10437     A     
 COMPASS            BX1    X1+X6                                                           COMPASS    10438     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    10439     A     
 COMPASS            SA4    A3+B1                                                           COMPASS    10440     A     
 COMPASS            BX1    X1+X2                                                           COMPASS    10441     A     
 COMPASS            LX4    12                                                              COMPASS    10442     A     
 COMPASS            SA5    A4+B1                                                           COMPASS    10443     A     
 COMPASS            SA2    A5+B1                                                           COMPASS    10444     A     
 COMPASS            LX5    6                                                               COMPASS    10445     A     
 COMPASS            BX4    X4+X5                                                           COMPASS    10446     A     
 COMPASS            SX3    X3-1R,                                                          COMPASS    10447     A     
 COMPASS            BX4    X4+X2                                                           COMPASS    10448     A     
 COMPASS            NZ     X3,REQ4     IF NOT *,* SEPARATOR                                COMPASS    10449     A     
 COMPASS            BX6    X4-X1                                                           COMPASS    10450     A     
 COMPASS            NZ     X6,REQ.1    IF FIELDS ARE NOT =                                 COMPASS    10451          I
          -CMP111 
 COMPASS            SA1    LOCSYM                                                          COMPASS    10452          I
          -CMP111 
 COMPASS            ZR     X6,REQ.2    IF FIELDS EQUAL                                     CMP111         1     A     
 COMPASS            SA3    REQC                                                            CMP111         2     A     
 COMPASS            SX6    3RB1                                                            CMP111         3     A     
 COMPASS            ZR     X3,REQ.1    IF B1=1 NOT DEFINED                                 CMP111         4     A     
 COMPASS            SX7    X3-REQA+1                                                       CMP111         5     A     
 COMPASS            ZR     X7,REQ.3    IF B1=1 DEFINED                                     CMP111         6     A     
 COMPASS            SX6    3RB7        B7=1 DEFINED                                        CMP111         7     A     
 COMPASS   REQ.3    BX3    X1-X6                                                           CMP111         8     A     
 COMPASS            NZ     X3,REQ.1    IF B1 OR B7 NOT FIRST SUBFIELD                      CMP111         9     A     
 COMPASS            SX7    2R1                                                             CMP111        10     A     
 COMPASS            AX4    6                                                               CMP111        11     A     
 COMPASS            IX3    X7-X4                                                           CMP111        12     A     
 COMPASS            NZ     X3,REQ.1    IF 1 NOT SECOND SUBFIELD                            CMP111        13     A     
 COMPASS   REQ.2    SA1    LOCSYM                                                          CMP111        14     A     
 COMPASS            ZR     X1,CTL300   IF NO LOCATION SYMBOL                               COMPASS    10453     A     
 COMPASS            SA1    LWORD                                                           COMPASS    10454     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS    10455     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10456     A     
 COMPASS   REQ.1    SX6    B1          WRITE AS A MICRO                                    COMPASS    10457     A     
 COMPASS            SA6    MICFLG                                                          COMPASS    10458     A     
 COMPASS            RJ     CWI                                                             COMPASS    10459     A     
 COMPASS            SX6    B0                                                              COMPASS    10460     A     
 COMPASS            SA6    MICFLG                                                          COMPASS    10461     A     
 COMPASS            SA6    SQLGN                                                           COMPASS    10462     A     
 COMPASS            SA3    COL         CHANGE PSEUDO TO SET INSTRUCTION                    COMPASS    10463     A     
 COMPASS            SX7    1RS                                                             COMPASS    10464     A     
 COMPASS            SA7    X3+CARD                                                         COMPASS    10465     A     
 COMPASS            SA1    CHAR                                                            COMPASS    10466     A     
 COMPASS            BX7    X1                                                              COMPASS    10467     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 708    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A7+B1                                                           COMPASS    10468     A     
 COMPASS            RJ     GETCH                                                           COMPASS    10469     A     
 COMPASS            BX7    X1                                                              COMPASS    10470     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    10471     A     
 COMPASS            RJ     GETCH                                                           COMPASS    10472     A     
 COMPASS            SX7    1R                                                              COMPASS    10473     A     
 COMPASS            RJ     GETCH                                                           COMPASS    10474     A     
 COMPASS            SA1    COLUMN                                                          COMPASS    10475     A     
 COMPASS            BX6    X1                                                              COMPASS    10476     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS    10477     A     
 COMPASS            SA7    X1+CARD-2                                                       COMPASS    10478     A     
 COMPASS            SA7    A7-B1                                                           COMPASS    10479          I
          -CMP064 
 COMPASS            SA7    A7-B1                                                           COMPASS    10480          I
          -CMP064 
 COMPASS            SA1    COL                                                             CMP064         1     A     
 COMPASS            SX3    X1+CARD+3                                                       CMP064         2     A     
 COMPASS   REQ.4    SA7    A7-B1       STORE BLANKS TO OP CODE FIELD                       CMP064         3     A     
 COMPASS            SX2    A7                                                              CMP064         4     A     
 COMPASS            IX6    X2-X3                                                           CMP064         5     A     
 COMPASS            NZ     X6,REQ.4                                                        CMP064         6     A     
 COMPASS            SX1    18          CHECK SECOND SUBFIELD                               COMPASS    10481     A     
 COMPASS            SX6    3                                                               COMPASS    10482     A     
 COMPASS            RJ     SCADCON                                                         COMPASS    10483     A     
 COMPASS            SX6    B0                                                              COMPASS    10484     A     
 COMPASS            SA6    AERR                                                            COMPASS    10485     A     
 COMPASS            SA6    UERR                                                            COMPASS    10486     A     
 COMPASS            NZ     X1,CTL110   IF NOT CONSTANT                                     COMPASS    10487     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    10488     A     
 COMPASS            SA1    P1TEMP                                                          COMPASS    10489     A     
 COMPASS            SX7    1R                                                              COMPASS    10490     A     
 COMPASS            SA7    X1+CARD-2                                                       COMPASS    10491     A     
 COMPASS            SA4    REQC        CHECK ADDRESS FIELD                                 COMPASS    10492     A     
 COMPASS   +        SA3    REQB-1                                                          COMPASS    10493     A     
 COMPASS            MX0    42                                                              COMPASS    10494     A     
 COMPASS            ZR     X4,REQ1     IF B1=1 NOT DEFINED                                 COMPASS    10495     A     
 COMPASS            SA3    X4                                                              COMPASS    10496     A     
 COMPASS   REQ1     SA3    A3+B1                                                           COMPASS    10497     A     
 COMPASS            BX6    X2-X3                                                           COMPASS    10498     A     
 COMPASS            ZR     X3,CTL110   IF NOT SPECIAL TYPE                                 COMPASS    10499     A     
 COMPASS            BX6    -X0*X6                                                          COMPASS    10500     A     
 COMPASS            NZ     X6,REQ1     LOOP FOR SPECIAL FORMAT                             COMPASS    10501     A     
 COMPASS            MX0    54                                                              COMPASS    10502     A     
 COMPASS   REQ2     LX3    6                                                               COMPASS    10503     A     
 COMPASS            BX7    -X0*X3                                                          COMPASS    10504     A     
 COMPASS            ZR     X7,REQ3     IF END OF SPECIAL TYPE                              COMPASS    10505     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    10506     A     
 COMPASS            EQ     REQ2        LOOP                                                COMPASS    10507     A     
 COMPASS   REQ3     SX6    A7-CARD+1   SET LAST COLUMN                                     COMPASS    10508     A     
 COMPASS            SA1    LASTCOL                                                         COMPASS    10509     A     
 COMPASS            IX7    X6-X1                                                           COMPASS    10510     A     
 COMPASS            NG     X7,CTL110   IF LAST COLUMN NOT GREATER                          COMPASS    10511     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 709    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A1                                                              COMPASS    10512     A     
 COMPASS            MX7    0                                                               CMP12         14     A     
 COMPASS            SX6    X6-2                                                            CMP12         15     A     
 COMPASS   +        SX6    X6-71       RECALCULATE CARD COUNT                              CMP12         16     A     
 COMPASS            SX7    X7+B1                                                           CMP12         17     A     
 COMPASS            PL     X6,*-1                                                          CMP12         18     A     
 COMPASS            SA7    CCT                                                             CMP12         19     A     
 COMPASS            EQ     CTL110      CONTINUE                                            COMPASS    10513     A     
 COMPASS                                                                                   COMPASS    10514     A     
 COMPASS  *         ADDRESS ERROR FOUND.                                                   COMPASS    10515     A     
 COMPASS                                                                                   COMPASS    10516     A     
 COMPASS   REQ4     SX6    B1                                                              COMPASS    10517     A     
 COMPASS            SA6    AERR                                                            COMPASS    10518     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10519     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10520     A     
 COMPASS                                                                                   COMPASS    10521     A     
 COMPASS   REQA     VFD    42/4L-B1 ,18/-1                                                 COMPASS    10522     A     
 COMPASS            VFD    42/3LB1 ,18/1                                                   COMPASS    10523     A     
 COMPASS            VFD    42/6LB1+B1 ,18/2                                                COMPASS    10524     A     
 COMPASS   REQB     VFD    42/3LB0 ,18/                                                    COMPASS    10525     A     
 COMPASS            DATA   0                                                               COMPASS    10526     A     
 COMPASS                                                                                   COMPASS    10527     A     
 COMPASS   REQD     VFD    42/4L-B7 ,18/-1                                                 COMPASS    10528     A     
 COMPASS            VFD    42/3LB7 ,18/1                                                   COMPASS    10529     A     
 COMPASS            VFD    42/6LB7+B7 ,18/2                                                COMPASS    10530     A     
 COMPASS            VFD    42/3LB0 ,18/                                                    COMPASS    10531     A     
 COMPASS            DATA   0                                                               COMPASS    10532     A     
 COMPASS   R=       SPACE  4                                                               COMPASS    10533     A     
 COMPASS  **        R= - CONDITIONAL SET INSTRUCTION.                                      COMPASS    10534     A     
 COMPASS                                                                                   COMPASS    10535     A     
 COMPASS                                                                                   COMPASS    10536     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10537     A     
 COMPASS   R=       SA2    LOCSYM                                                          COMPASS    10538     A     
 COMPASS            SA1    LWORD                                                           COMPASS    10539     A     
 COMPASS            ZR     X2,ZLIST    IF NO LOCATION SYMBOL                               COMPASS    10540     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS    10541     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10542     A     
 COMPASS   SEG      SPACE  4                                                               COMPASS    10543     A     
 COMPASS  ***       SEG - OUTPUT BINARY SEGMENT.                                           COMPASS    10544     A     
 COMPASS  *                                                                                COMPASS    10545     A     
 COMPASS  *                                                                                COMPASS    10546     A     
 COMPASS  *         SEG                                                                    COMPASS    10547     A     
 COMPASS  *         SEG IS USED IN ABSOLUTE CP CODE TO OUTPUT A PARTIAL BINARY             COMPASS    10548     A     
 COMPASS  *         OF A PROGRAM.  THIS ALLOWS A PROGRAM TO ASSEMBLE IN LESS               COMPASS    10549     A     
 COMPASS  *         CORE THAN IF THE ENTIRE BINARY IS OUTPUT AT THE END OF                 COMPASS    10550     A     
 COMPASS  *         THE ASSEMBLY.                                                          COMPASS    10551     A     
 COMPASS                                                                                   COMPASS    10552     A     
 COMPASS                                                                                   COMPASS    10553     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10554     A     
 COMPASS   SEG      SA1    ABSFG       CHECK FOR ABSOLUTE CP CODE                          COMPASS    10555     A     
 COMPASS            SA2    MACHINE                                                         COMPASS    10556     A     
 COMPASS            BX6    -X2*X1                                                          COMPASS    10557     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 710    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X6,SEG1     IF ABSOLUTE CP CODE                                 COMPASS    10558     A     
 COMPASS            SX6    B1                                                              COMPASS    10559     A     
 COMPASS            SA6    OERR                                                            COMPASS    10560     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10561     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10562     A     
 COMPASS   SEG1     RJ     YFUALL      FORCE ALL BLOCKS UPPER                              COMPASS    10563     A     
 COMPASS            RJ     RSL         RECORD SEGMENT LENGTH                               COMPASS    10564     A     
 COMPASS            RJ     RSS         RECORD SEGMENT START                                COMPASS    10565     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10566     A     
 COMPASS   SEG      SPACE  4                                                               COMPASS    10567     A     
 COMPASS  **        SEG - OUTPUT BINARY SEGMENT.                                           COMPASS    10568     A     
 COMPASS                                                                                   COMPASS    10569     A     
 COMPASS                                                                                   COMPASS    10570     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10571     A     
 COMPASS   SEG      SA1    ABSFG       CHECK FOR ABSOLUTE CP CODE                          COMPASS    10572     A     
 COMPASS            SA2    MACHINE                                                         COMPASS    10573     A     
 COMPASS            BX6    -X2*X1                                                          COMPASS    10574     A     
 COMPASS            ZR     X6,ZLIST    IF NOT ABSOLUTE CP                                  COMPASS    10575     A     
 COMPASS            RJ     ZFUALL      FORCE ALL BLOCKS UPPER                              COMPASS    10576     A     
 COMPASS            RJ     DLAST                                                           COMPASS    10577          I
          -CP13226
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODE                                      CP13226        4     A     
 COMPASS            RJ     DDUMP                                                           COMPASS    10578     A     
 COMPASS            SA1    ORGCTR                                                          COMPASS    10579     A     
 COMPASS            BX6    X1                                                              COMPASS    10580     A     
 COMPASS            SA6    ORGBASE                                                         COMPASS    10581     A     
 COMPASS            RJ     SBL         SET BINARY LENGTH                                   COMPASS    10582     A     
 COMPASS            EQ     SEG1                                                            COMPASS    10583          I
          -CPS012 
 COMPASS            RJ     DLT         DUMP LITERAL TABLE                                  CPS012         1     A     
 COMPASS            JP     ZLIST       RETURN                                              CPS012         2     A     
 COMPASS   SEGMENT  SPACE  4                                                               COMPASS    10584     A     
 COMPASS  ***       SEGMENT - OUTPUT BINARY SEGMENT.                                       COMPASS    10585     A     
 COMPASS  *                                                                                COMPASS    10586     A     
 COMPASS  *                                                                                COMPASS    10587     A     
 COMPASS  *NAME     SEGMENT ORIGIN,ENTRY                                                   COMPASS    10588          I
          -CPS010 
 COMPASS  * NAME    SEGMENT ORIGIN,ENTRY,L1,L2                                             CPS010        62     A     
 COMPASS  *         SEGMENT TERMINATES ONE SEGMENT OF CODE.  THE ACCUMULATED               COMPASS    10589     A     
 COMPASS  *         BINARY IS WRITTEN OUT AND A NEW BINARY IS STARTED.                     COMPASS    10590     A     
 COMPASS  *         (NAME) IS THE NAME OF THE (1,0) OVERLAY GENERATED.                     COMPASS    10591          I
          -CPS010 
 COMPASS  *         (NAME) IS THE NAME OF THE OVERLAY GENERATED.                           CPS010        63     A     
 COMPASS  *         (ORIGIN) IS USED TO SPECIFY THE ORIGIN OF THE ROUTINE.                 COMPASS    10592     A     
 COMPASS  *         FOR A CENTRAL PROCESSOR ABSOLUTE PROGRAM, (ENTRY) SPECIFIES            COMPASS    10593     A     
 COMPASS  *         THE ENTRY POINT.                                                       COMPASS    10594          I
          -CPS010 
 COMPASS  *         THE ENTRY POINT, AND (L1) AND (L2) ARE THE OVERLAY LEVEL               CPS010        64     A     
 COMPASS  *         NUMBERS - IF OMITTED, LEVEL (1,0) IS ASSUMED.                          CPS010        65     A     
 COMPASS                                                                                   COMPASS    10595     A     
 COMPASS                                                                                   COMPASS    10596     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10597     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 711    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SEGMENT  RJ     YFUALL      FORCE ALL BLOCKS UPPER                              COMPASS    10598     A     
 COMPASS            SA1    ABSFG                                                           COMPASS    10599     A     
 COMPASS            ZR     X1,CTL70    IF RELOCATABLE CP CODE                              COMPASS    10600     A     
 COMPASS            RJ     RSL         RECORD SEGMENT LENGTH                               COMPASS    10601     A     
 COMPASS            RJ     RSS         RECORD SEGMENT START                                COMPASS    10602     A     
 COMPASS            SA1    LOCSYM      VERIFY SEGMENT NAME                                 COMPASS    10603     A     
 COMPASS            BX6    X1                                                              COMPASS    10604     A     
 COMPASS            RJ     VFYLINK                                                         COMPASS    10605     A     
 COMPASS            ZR     X7,CTL70                                                        COMPASS    10606          I
          -CPS002 
 COMPASS            ZR     X7,SEG2     IF NO ERROR                                S002  51 CPS002        37     A     
 COMPASS            SX6    B1                                                              COMPASS    10607     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10608     A     
 COMPASS            SA6    LERR                                                            COMPASS    10609     A     
 COMPASS   SEG2     RJ     DIM         DISPLAY IDENT MESSAGE                      S002  53 CPS002        38     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10610     A     
 COMPASS   SEGMENT  SPACE  4                                                               COMPASS    10611     A     
 COMPASS  **        SEGMENT - OUTPUT BINARY SEGMENT.                                       COMPASS    10612     A     
 COMPASS                                                                                   COMPASS    10613     A     
 COMPASS                                                                                   COMPASS    10614     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10615     A     
 COMPASS   SEGMENT  RJ     ZFUALL      FORCE ALL BLOCKS UPPER                              COMPASS    10616     A     
 COMPASS            RJ     DLAST       DUMP COMMON, EXT, REP, BSSZ CODE                    COMPASS    10617          I
          -CP13226
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODE                                      CP13226        5     A     
 COMPASS            RJ     DLAST       DUMP COMMON, EXT, REP CODE                          CP13226        6     A     
 COMPASS            SA1    ABSFG                                                           COMPASS    10618     A     
 COMPASS            ZR     X1,ZLIST    EXIT IF RELOCATABLE CP CODE                         COMPASS    10619     A     
 COMPASS            RJ     DDUMP                                                           COMPASS    10620     A     
 COMPASS            WRITER B           TERMINATE BINARY I/O                                COMPASS    10621          I
          -CMP30  
 COMPASS            SX1    18                                                              COMPASS    10622          I
          -CMP30  
 COMPASS            SA1    B                                                               CMP30       3422     A     
 COMPASS            ZR     X1,SEG0     IF NO BINARY FILE                                   CMP30       3423     A     
 COMPASS            WEOR   B           TERMINATE BINARY I/O                                CMP30       3424     A     
 COMPASS   SEG0     SX1    18                                                              CMP30       3425          I
          -CPS002 
 COMPASS            RJ     SCAD        LOOK FOR NEW ORG BASE                               COMPASS    10623          I
          -CPS002 
 COMPASS            MX0    42                                                              COMPASS    10624          I
          -CPS002 
 COMPASS            SA1    EXVAL                                                           COMPASS    10625          I
          -CPS002 
 COMPASS            BX6    -X0*X1                                                          COMPASS    10626          I
          -CPS002 
 COMPASS            SA6    ORGBASE                                                         COMPASS    10627          I
          -CPS002 
 COMPASS            SX1    18                                                              COMPASS    10628          I
          -CPS002 
 COMPASS            RJ     SCAD        GET ENTRY POINT FOR SEGMENT                         COMPASS    10629          I
          -CPS002 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 712    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX0    42                                                              COMPASS    10630          I
          -CPS002 
 COMPASS            SA1    EXVAL                                                           COMPASS    10631          I
          -CPS002 
 COMPASS            BX6    -X0*X1                                                          COMPASS    10632          I
          -CPS002 
 COMPASS            SA6    SEGEPT      SET SEGMENT ENTRY POINT                             COMPASS    10633          I
          -CPS002 
 COMPASS            SA1    LOCSYM      DUMP PRELIMINARY STUFF                              COMPASS    10634          I
          -CPS002 
 COMPASS            SX2    100B                                                            COMPASS    10635          I
          -CPS002 
 COMPASS   SEG0     SA1    LOCSYM      DUMP PRELIMINARY STUFF                     S002  55 CPS002        39     A     
 COMPASS            BX6    X1                                                     S002  56 CPS002        40     A     
 COMPASS            RJ     VFYLINK     VERIFY SEGMENT NAME                        S002  57 CPS002        41     A     
 COMPASS            SA6    P2TEMP                                                 S002  58 CPS002        42     A     
 COMPASS            SX6    0100B       SET DEFAULT (1,0) OVERLAY                  S002  59 CPS002        43     A     
 COMPASS            SX1    B1                                                     S002  60 CPS002        44     A     
 COMPASS            RJ     SIC         SCAN IDENT CARD                            S002  61 CPS002        45     A     
 COMPASS            SA1    P2TEMP                                                 S002  62 CPS002        46     A     
 COMPASS            SA2    A1+B1       DUMP IDENT TABLE                           S002  63 CPS002        47     A     
 COMPASS            RJ     DFIRST                                                          COMPASS    10636     A     
 COMPASS            SA1    DKNAM       DISPLAY IDENT MESSAGE                      S002  65 CPS002        48     A     
 COMPASS            RJ     DIM                                                    S002  66 CPS002        49     A     
 COMPASS   SEG1     SA1    O.USETAB    CHECK LITERAL TABLE                                 COMPASS    10637          I
          -CPS012 
 COMPASS            SA2    UI                                                              COMPASS    10638          I
          -CPS012 
 COMPASS            IX1    X1+X2                                                           COMPASS    10639          I
          -CPS012 
 COMPASS            SA1    X1+14                                                           COMPASS    10640          I
          -CMP30  
 COMPASS            SA1    X1+2*4+2                                                        CMP30       3426          I
          -CPS012 
 COMPASS            SX1    X1          ORGCTR OF LITERAL TABLE                             COMPASS    10641          I
          -CPS012 
 COMPASS            SA2    ORGBASE                                                         COMPASS    10642          I
          -CPS012 
 COMPASS            SA3    O.MEMORY                                                        COMPASS    10643          I
          -CPS012 
 COMPASS            IX5    X1-X2                                                           COMPASS    10644          I
          -CPS012 
 COMPASS            NG     X5,ZLIST    IF LITERAL TABLE DUMPED                             COMPASS    10645          I
          -CPS012 
 COMPASS            IX3    X3+X5                                                           COMPASS    10646          I
          -CPS012 
 COMPASS            SA2    L.MEMORY                                                        COMPASS    10647          I
          -CPS012 
 COMPASS            IX5    X5-X2                                                           COMPASS    10648          I
          -CPS012 
 COMPASS            PL     X5,ZLIST    IF LITERALS NOT IN THIS SEGMENT                     COMPASS    10649          I
          -CPS012 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 713    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    O.LITAB                                                         COMPASS    10650          I
          -CPS012 
 COMPASS            SA4    LI                                                              COMPASS    10651          I
          -CPS012 
 COMPASS            SA5    A4+B1                                                           COMPASS    10652          I
          -CPS012 
 COMPASS            IX2    X2+X4                                                           COMPASS    10653          I
          -CPS012 
 COMPASS            IX1    X5-X4                                                           COMPASS    10654          I
          -CPS012 
 COMPASS            ZR     X1,ZLIST    IF LITERAL TABLE EMPTY                              COMPASS    10655          I
          -CPS012 
 COMPASS            RJ     MOVE                                                            COMPASS    10656          I
          -CPS012 
 COMPASS            RJ     DLT         DUMP LITERAL TABLE                                  CPS012         3     A     
 COMPASS            EQ     ZLIST       AND QUIT                                            COMPASS    10657     A     
 COMPASS   SET      SPACE  4                                                               COMPASS    10658     A     
 COMPASS  ***       SET                                                                    COMPASS    10659     A     
 COMPASS  *                                                                                COMPASS    10660     A     
 COMPASS  *                                                                                COMPASS    10661     A     
 COMPASS  *SYM      SET    EXP                                                             COMPASS    10662     A     
 COMPASS  *         (SYM) IS REDEFINED TO THE VALUE OF THE ADDRESS EXPRESSION.             COMPASS    10663     A     
 COMPASS                                                                                   COMPASS    10664     A     
 COMPASS                                                                                   COMPASS    10665     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10666     A     
 COMPASS   SET      SA1    LIBFLG                                                          COMPASS    10667     A     
 COMPASS            LX6    X1,B1                                                           COMPASS    10668     A     
 COMPASS            SX6    X6+B1                                                           COMPASS    10669     A     
 COMPASS   EQU1     SA6    P1TEMP      SAVE SET FLAG                                       COMPASS    10670     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    10671     A     
 COMPASS            NZ     X1,EQU3     IF LOCATION FIELD PRESENT                           COMPASS    10672     A     
 COMPASS            SX7    B1                                                              COMPASS    10673     A     
 COMPASS            SA7    EFLG                                                            COMPASS    10674     A     
 COMPASS            SA7    W6ERR                                                           COMPASS    10675     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10676     A     
 COMPASS   EQU3     SX6    B1          EVALUATE ADDRESS FIELD                              COMPASS    10677     A     
 COMPASS            SX1    21                                                              COMPASS    10678     A     
 COMPASS            RJ     SCADCON                                                         COMPASS    10679     A     
 COMPASS            SA1    EXSTOP                                                          COMPASS    10680     A     
 COMPASS            ZR     X1,EQU4     IF NO EXTRA FIELDS                                  COMPASS    10681     A     
 COMPASS            SX6    B1                                                              COMPASS    10682     A     
 COMPASS            SA6    W8ERR                                                           COMPASS    10683     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10684     A     
 COMPASS   EQU4     SA2    EXVAL                                                           COMPASS    10685     A     
 COMPASS            SA3    EXREL                                                           COMPASS    10686     A     
 COMPASS            SA4    EXEXT       GET PROPERTIES OF EXPRESSION                        COMPASS    10687     A     
 COMPASS            SA1    AERR                                                            COMPASS    10688     A     
 COMPASS            SA5    UERR                                                            COMPASS    10689     A     
 COMPASS            BX6    X1+X5                                                           COMPASS    10690     A     
 COMPASS            SA5    P1TEMP                                                          COMPASS    10691     A     
 COMPASS            NZ     X6,EQU2     IF ERRORS IN ADDRESS                                COMPASS    10692     A     
 COMPASS            RJ     YDEFLOC                                                         COMPASS    10693     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 714    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     CTL70                                                           COMPASS    10694     A     
 COMPASS   EQU2     SX6    B1          POST SET/EQU ERROR                                  COMPASS    10695     A     
 COMPASS            SA6    W2ERR                                                           COMPASS    10696     A     
 COMPASS            SX6    B0          CLEAR OUT FATAL ERROR FLAGS                         COMPASS    10697     A     
 COMPASS            SA6    A1                                                              COMPASS    10698     A     
 COMPASS            SA6    UERR                                                            COMPASS    10699     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10700     A     
 COMPASS   SET      SPACE  4                                                               COMPASS    10701     A     
 COMPASS  **        SET - SYMBOL REDEFINITION.                                             COMPASS    10702     A     
 COMPASS                                                                                   COMPASS    10703     A     
 COMPASS                                                                                   COMPASS    10704     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10705     A     
 COMPASS   SET      SX6    B1          SET REDEFINITION BIT                                COMPASS    10706     A     
 COMPASS                                                                                   COMPASS    10707     A     
 COMPASS  *         MAIN PROCESSOR FOR SET AND EQU.                                        COMPASS    10708     A     
 COMPASS                                                                                   COMPASS    10709     A     
 COMPASS   SETEQU   SA6    P2TEMP                                                          COMPASS    10710     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    10711     A     
 COMPASS            ZR     X1,ZLIST    QUIT IF NO LOCSYM                                   COMPASS    10712     A     
 COMPASS            SA2    W2ERR       CHECK FOR ANY PASS 1 ERRORS                         COMPASS    10713     A     
 COMPASS            SA3    DERR                                                            CPS010        66     A     
 COMPASS            SX6    B1                                                              COMPASS    10714     A     
 COMPASS            BX2    X2+X3                                                           CPS010        67     A     
 COMPASS            NZ     X2,ZLIST    IF ERRORS                                           COMPASS    10715     A     
 COMPASS            BX2    X1                                                              COMPASS    10716          I
          -CMP19  
 COMPASS            AX2    36                                                              COMPASS    10717          I
          -CMP19  
 COMPASS            SB7    X2-2R'?                                                         COMPASS    10718          I
          -CMP19  
 COMPASS            ZR     B7,SET1     IF INVENTED SYMBOL                                  COMPASS    10719          I
          -CMP19  
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS    10720          I
          -CMP19  
 COMPASS            ZR     X2,SET1     IF NOT FOUND                                        COMPASS    10721          I
          -CMP19  
 COMPASS            SX1    1RD         USAGE = D                                           COMPASS    10722          I
          -CMP19  
 COMPASS            RJ     ENTREF      ENTER REFERENCE TABLE                               COMPASS    10723          I
          -CMP19  
 COMPASS   SET1     SX6    B1                                                              COMPASS    10724          I
          -CMP19  
 COMPASS            SX1    21                                                              COMPASS    10725     A     
 COMPASS            RJ     SCADCON     EVALUATE ADDRESS FIELD                              COMPASS    10726     A     
 COMPASS            SA1    EXVAL                                                           COMPASS    10727          I
          -CMP19  
 COMPASS            SX2    36                                                              COMPASS    10728          I
          -CMP19  
 COMPASS            MX0    -21                                                             COMPASS    10729          I
          -CMP19  
 COMPASS            BX1    -X0*X1                                                          COMPASS    10730          I
          -CMP19  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 715    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX3    0                                                               COMPASS    10731          I
          -CMP19  
 COMPASS            RJ     PACKOR      CALL PACKOR(EXVAL,36,7)                             COMPASS    10732          I
          -CMP19  
 COMPASS            SA5    P2TEMP      REDEFINITION BIT                                    COMPASS    10733     A     
 COMPASS            ZR     X5,ZLIST    EXIT IF EQU                                         COMPASS    10734          I
          -CMP19  
 COMPASS            SA2    EXVAL                                                           COMPASS    10735     A     
 COMPASS            SA3    A2+B1       EXREL                                               COMPASS    10736     A     
 COMPASS            SA4    A3+B1       EXEXT                                               COMPASS    10737     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    10738     A     
 COMPASS            RJ     ZDEFSYM                                                         COMPASS    10739     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10740     A     
 COMPASS   SKIP     SPACE  4                                                               COMPASS    10741     A     
 COMPASS  ***       SKIP - UNCONDITIONALLY SKIP CODE.                                      COMPASS    10742     A     
 COMPASS  *                                                                                COMPASS    10743     A     
 COMPASS  *                                                                                COMPASS    10744     A     
 COMPASS  *NAME     SKIP   LNCT                                                            COMPASS    10745     A     
 COMPASS  *         OPTIONAL (LNCT) IS NUMBER OF LINES TO SKIP.  (NAME) IS                 COMPASS    10746     A     
 COMPASS  *         INSTRUCTION BRACKET NAME.                                              COMPASS    10747     A     
 COMPASS                                                                                   COMPASS    10748     A     
 COMPASS                                                                                   COMPASS    10749     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10750     A     
 COMPASS   SKIP     EQU    IFXXNO                                                          COMPASS    10751     A     
 COMPASS   SKIP     SPACE  4                                                               COMPASS    10752     A     
 COMPASS  **        SKIP - UNCONDITIONALLY SKIP CODE.                                      COMPASS    10753     A     
 COMPASS                                                                                   COMPASS    10754     A     
 COMPASS                                                                                   COMPASS    10755     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10756     A     
 COMPASS   SKIP     EQU    ZLIST                                                           COMPASS    10757     A     
 COMPASS   SPACE    SPACE  4                                                               COMPASS    10758     A     
 COMPASS  ***       SPACE - SKIP LINE.                                                     COMPASS    10759     A     
 COMPASS  *                                                                                COMPASS    10760     A     
 COMPASS  *                                                                                COMPASS    10761     A     
 COMPASS  *NAME     SPACE  AEXP1,AEXP2                                                     COMPASS    10762     A     
 COMPASS  *         SKIP NUMBER OF LINES INDICATED BY (AEXP1).  GUARANTEE                  COMPASS    10763     A     
 COMPASS  *         (AEXP1 + AEXP2) LINES ON THIS PAGE.  (NAME) IS THE                     COMPASS    10764     A     
 COMPASS  *         NEW SUB-SUBTITLE, PRINTED AT THE BEGINNING OF THE NEXT PAGE.           COMPASS    10765     A     
 COMPASS                                                                                   COMPASS    10766     A     
 COMPASS                                                                                   COMPASS    10767     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10768     A     
 COMPASS   SPACE    EQU    CTL300                                                          COMPASS    10769     A     
 COMPASS   SPACE    SPACE  4                                                               COMPASS    10770     A     
 COMPASS  **        SPACE - SKIP LINE.                                                     COMPASS    10771     A     
 COMPASS                                                                                   COMPASS    10772     A     
 COMPASS                                                                                   COMPASS    10773     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10774     A     
 COMPASS   SPACE    RJ     ZTLIST      CHECK FOR LISTINGS                                  COMPASS    10775     A     
 COMPASS            SX1    18                                                              COMPASS    10776     A     
 COMPASS            SX6    3                                                               COMPASS    10777     A     
 COMPASS            RJ     SMC                                                             COMPASS    10778     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    10779     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 716    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X2                                                              COMPASS    10780     A     
 COMPASS            SA6    P2TEMP                                                          COMPASS    10781     A     
 COMPASS            SX1    18                                                              COMPASS    10782     A     
 COMPASS            SX6    3                                                               COMPASS    10783     A     
 COMPASS            RJ     SMC                                                             COMPASS    10784     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    10785     A     
 COMPASS            SA4    P2TEMP                                                          COMPASS    10786     A     
 COMPASS            SA3    LPCNT                                                           COMPASS    10787     A     
 COMPASS            IX2    X2+X4                                                           COMPASS    10788     A     
 COMPASS            IX6    X2+X3                                                           COMPASS    10789     A     
 COMPASS            SB7    X6-PAGESIZ                                                      COMPASS    10790          I
          -F4810A 
 COMPASS            SA2    CP.PS       PAGE SIZE                                   F4810A  F4810A       332     A     
 COMPASS            IX3    X6-X2                                                   F4810A  F4810A       333     A     
 COMPASS            SX6    B1                                                              COMPASS    10791     A     
 COMPASS            SA6    CTYPE                                                           COMPASS    10792     A     
 COMPASS            PL     B7,SPC1     IF BIG SPACE MAKE EJECT                             COMPASS    10793          I
          -F4810A 
 COMPASS            PL     X3,SPC1     IF BIG SPACE MAKE EJECT                     F4810A  F4810A       334     A     
 COMPASS            RJ     LISTER                                                          COMPASS    10794     A     
 COMPASS            SA1    P2TEMP                                                          COMPASS    10795     A     
 COMPASS            BX0    X1                                                              COMPASS    10796     A     
 COMPASS            RJ     LBL         LIST BLANK LINES                                    COMPASS    10797     A     
 COMPASS            EQ     Z100        RETURN                                              COMPASS    10798     A     
 COMPASS   SPC1     SX7    PAGESIZ+5                                                       COMPASS    10799          I
          -F4810A 
 COMPASS   SPC1     SX7    X2+5        FORCE EJECT                                 F4810A  F4810A       335     A     
 COMPASS            SA7    LPCNT       CAUSE EJECT                                         COMPASS    10800     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10801     A     
 COMPASS   SST      SPACE  4                                                               COMPASS    10802     A     
 COMPASS  ***       SST - SYSTEM SYMBOL TABLE.                                             COMPASS    10803     A     
 COMPASS  *                                                                                COMPASS    10804     A     
 COMPASS  *                                                                                COMPASS    10805     A     
 COMPASS  *         SST    SYM1,SYM2,,,SYMN                                                COMPASS    10806     A     
 COMPASS  *         DEFINES SYSTEM SYMBOLS FROM THE SYSTEM FILE AS IF THEY                 COMPASS    10807     A     
 COMPASS  *         HAD BEEN DEFINED BY THE ROUTINE.  (SYMI) DENOTES SYMBOLS               COMPASS    10808     A     
 COMPASS  *         THAT SHOULD NOT BE DEFINED.                                            COMPASS    10809     A     
 COMPASS                                                                                   COMPASS    10810     A     
 COMPASS                                                                                   COMPASS    10811     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10812     A     
 COMPASS   SST      SX6    B0                                                              COMPASS    10813          I
          -CMP30  
 COMPASS   SST      SA1    LCMSYM                                                          CMP30       3427     A     
 COMPASS            ZR     X1,SST0     IF SYSTEM SYMBOLS NOT IN LCM                        CMP30       3428     A     
 COMPASS            AX1    30                                                              CMP30       3429     A     
 COMPASS            MANAGE SSYMS,X1    ALLOCATE TABLE IN SCM                               CMP30       3430     A     
 COMPASS            SA1    LCMSYM                                                          CMP30       3431     A     
 COMPASS            RJ     RLC         COPY TABLE TO SCM                                   CMP30       3432     A     
 COMPASS   SST0     SX6    B0                                                              CMP30       3433     A     
 COMPASS            SA6    P1TEMPA                                                         COMPASS    10814          I
          -CMP25  
 COMPASS            SA1    QVAL                                                            CMP25         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/28. 19.11.32.      PAGE 717    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    P1TEMP                                                          CMP25         35     A     
 COMPASS            SA6    A6+B1       P1TEMPA                                             CMP25         36     A     
 COMPASS            SA6    A6+B1       P1TEMPB                                             CMP25         37     A     
 COMPASS            BX7    X1                                                              CMP25         38     A     
 COMPASS            SA6    A1          SET BLANK QUALIFIER                                 CMP25         39     A     
 COMPASS            SA7    A1+B1                                                           CMP25         40     A     
 COMPASS   SST1     SA1    CHAR                                                            COMPASS    10815     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    10816     A     
 COMPASS            ZR     B7,SST2     IF END OF LIST                                      COMPASS    10817          I
          -CMP25  
 COMPASS            ZR     B7,SST7     IF END OF LIST                                      CMP25         41     A     
 COMPASS            RJ     SCLIST      FETCH NEXT ITEM                                     COMPASS    10818     A     
 COMPASS            ZR     X6,SST1     IGNORE EMPTY FIELD                                  COMPASS    10819     A     
 COMPASS            SA1    P1TEMPA                                                         COMPASS    10820          I
          -CMP25  
 COMPASS            SA1    P1TEMP                                                          CMP25         42     A     
 COMPASS            SA6    X1+RELVEC   STORE SYMBOL NAME                                   COMPASS    10821     A     
 COMPASS            SX7    X1+B1                                                           COMPASS    10822     A     
 COMPASS            SA7    A1                                                              COMPASS    10823     A     
 COMPASS            EQ     SST1        LOOP                                                COMPASS    10824     A     
 COMPASS   SST2     SA1    L.SSYMS     CHECK FOR TABLE PRESENT                             COMPASS    10825          I
          -CMP25  
 COMPASS            ZR     X1,CTL70    IF EMPTY                                            COMPASS    10826          I
          -CMP25  
 COMPASS   SST3     SX6    X1-2        DECREMENT COUNT                                     COMPASS    10827          I
          -CMP25  
 COMPASS            SA6    P1TEMP                                                          COMPASS    10828          I
          -CMP25  
 COMPASS            SA1    O.SSYMS                                                         COMPASS    10829          I
          -CMP25  
 COMPASS            IX2    X1+X6                                                           COMPASS    10830          I
          -CMP25  
 COMPASS            SA1    X2                                                              COMPASS    10831          I
          -CMP25  
 COMPASS            SA2    P1TEMPA                                                         COMPASS    10832          I
          -CMP25  
 COMPASS   SST3     SA2    O.SSYMS                                                         CMP25         43     A     
 COMPASS            IX1    X1+X2                                                           CMP25         44     A     
 COMPASS            SA1    X1          NEXT SYSTEM SYMBOL                                  CMP25         45     A     
 COMPASS            SA2    P1TEMP                                                          CMP25         46     A     
 COMPASS            SA6    A2+B1                                                           CMP25         47     A     
 COMPASS   SST4     ZR     X2,SST5     IF END OF IGNORE TABLE                              COMPASS    10833     A     
 COMPASS            SA4    X2+RELVEC-1                                                     CMP25         48     A     
 COMPASS            SX2    X2-1                                                            COMPASS    10834     A     
 COMPASS            SA3    X2+RELVEC                                                       COMPASS    10835          I
          -CMP25  
 COMPASS            IX6    X1-X3                                                           COMPASS    10836          I
          -CMP25  
 COMPASS            BX6    X1-X4                                                           CMP25         49     A     
 COMPASS            NZ     X6,SST4     IF NOT IGNORED                                      COMPASS    10837     A     
 COMPASS            EQ     SST6                                                            COMPASS    10838     A     
 COMPASS   SST5     SA2    A1+B1                                                           COMPASS    10839     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 718    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX3    0                                                               COMPASS    10840     A     
 COMPASS            BX4    X4-X4                                                           COMPASS    10841     A     
 COMPASS            MX5    1           SET SST BIT                                         COMPASS    10842     A     
 COMPASS            BX6    X2                                                              CMP30       3434     A     
 COMPASS            AX6    36-3        POSITION SYSTEXT ORDINAL                            CMP30       3435     A     
 COMPASS            BX5    X5+X6                                                           CMP30       3436     A     
 COMPASS            RJ     YDEFSYM                                                         COMPASS    10843     A     
 COMPASS   SST6     SA1    P1TEMP                                                          COMPASS    10844          I
          -CMP25  
 COMPASS            NZ     X1,SST3     LOOP TO END OF TABLE                                COMPASS    10845          I
          -CMP25  
 COMPASS            NZ     X6,SST6     IF BAD SYMBOL                                       CMP25         50     A     
 COMPASS            SA1    SSTCNT                                                          CMP25         51     A     
 COMPASS            SX6    X1+B1       BUMP DEFINED SYSTEM SYMBOL COUNT                    CMP25         52     A     
 COMPASS            SA6    A1                                                              CMP25         53     A     
 COMPASS            EQ     SST7                                                            CMP25         54     A     
 COMPASS   SST6     SA1    O.SSYMS     CLOSE UP SYSTEM SYMBOL TABLE SO                     CMP25         55     A     
 COMPASS            SA2    P1TEMPA     IT CONTAINS ONLY IGNORED ENTRIES                    CMP25         56     A     
 COMPASS            SA3    A2+B1                                                           CMP25         57     A     
 COMPASS            SB7    X1                                                              CMP25         58          I
          -CMP041 
 COMPASS            SB7    X1-2                                                            CMP041        26     A     
 COMPASS            SA1    X2+B7                                                           CMP25         59     A     
 COMPASS            SA2    A1+B1                                                           CMP25         60     A     
 COMPASS            SX4    X3+2                                                            CMP041        27     A     
 COMPASS            NO                                                                     CMP041        28     A     
 COMPASS            BX6    X1                                                              CMP25         61     A     
 COMPASS            LX7    X2                                                              CMP25         62     A     
 COMPASS            SA6    X3+B7                                                           CMP25         63          I
          -CMP041 
 COMPASS            SA6    X4+B7                                                           CMP041        29     A     
 COMPASS            SA7    A6+B1                                                           CMP25         64     A     
 COMPASS            SX6    X3+2                                                            CMP25         65          I
          -CMP041 
 COMPASS            BX6    X4                                                              CMP041        30     A     
 COMPASS            SA6    A3                                                              CMP25         66     A     
 COMPASS   SST7     SA1    P1TEMPA                                                         CMP25         67     A     
 COMPASS            SA2    L.SSYMS                                                         CMP25         68     A     
 COMPASS            SX6    X1+2                                                            CMP25         69     A     
 COMPASS            IX2    X1-X2                                                           CMP25         70     A     
 COMPASS            NZ     X2,SST3     LOOP TO END OF SYSTEM SYMBOL TABLE                  CMP25         71     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       263     A     
 COMPASS            SA1    P1TEMPB                                                         CMP25         72     A     
 COMPASS            SA2    LCMSYM                                                          CMP30       3437     A     
 COMPASS            SA3    QVAL+1      STORE NEW L.SSYMS AND                               CMP25         73     A     
 COMPASS            BX6    X1          RESTORE QUALIFIER                                   CMP25         74     A     
 COMPASS            LX7    X3                                                              CMP25         75     A     
 COMPASS            SA6    A2                                                              CMP25         76          I
          -CMP042 
 COMPASS            SA6    L.SSYMS                                                         CMP042       264     A     
 COMPASS            SA7    A3-B1                                                           CMP25         77     A     
 COMPASS            ZR     X2,CTL300   IF SYSTEM SYMBOLS NOT IN LCM                        CMP30       3438     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 719    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX6    0                                                               CMP30       3439     A     
 COMPASS            SA6    A6          CLEAR SCM TABLE                                     CMP30       3440     A     
 COMPASS            SA6    SSTCNT                                                          CMP30       3441     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS    10846     A     
 COMPASS   SST      SPACE  4                                                               COMPASS    10847     A     
 COMPASS  **        SST -SYSTEM SYMBOL TABLE.                                              COMPASS    10848     A     
 COMPASS                                                                                   COMPASS    10849     A     
 COMPASS                                                                                   COMPASS    10850     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10851     A     
 COMPASS   SST      EQU    ZLIST                                                           COMPASS    10852     A     
 COMPASS   STEXT    SPACE  4                                                               COMPASS    10853     A     
 COMPASS  ***       STEXT - GENERATE A SYSTEXT RECORD.                                     COMPASS    10854     A     
 COMPASS  *                                                                                COMPASS    10855     A     
 COMPASS  *                                                                                COMPASS    10856     A     
 COMPASS  *RNAME    STEXT                                                                  COMPASS    10857     A     
 COMPASS  *         GENERATE A SYSTEMS TEXT RECORD FOR THIS PROGRAM.  ALL SYMBOLS          COMPASS    10858     A     
 COMPASS  *         AND ALL PROGRAM MACROS ARE WRITTEN IN AN OVERLAY FORMAT AT             COMPASS    10859     A     
 COMPASS  *         THE END OF PASS1.  THIS RECORD CAN BE LOADED BY COMPASS.               COMPASS    10860     A     
 COMPASS  *         IF (RNAME) IS NON-BLANK, THE SYSTEXT RECORD IS WRITTEN                 COMPASS    10861     A     
 COMPASS  *         WITH NAME (RNAME) AND THE NORMAL BINARY FROM THE PROGRAM               COMPASS    10862     A     
 COMPASS  *         IS GENERATED.                                                          COMPASS    10863     A     
 COMPASS                                                                                   COMPASS    10864     A     
 COMPASS                                                                                   COMPASS    10865     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10866     A     
 COMPASS   STEXT    SA1    LOCSYM                                                          COMPASS    10867     A     
 COMPASS            SA2    BADLOC                                                          COMPASS    10868     A     
 COMPASS            ZR     X2,STX1     IF LOCATION NOT BAD                                 COMPASS    10869     A     
 COMPASS            SX6    B1                                                              COMPASS    10870     A     
 COMPASS            SA6    LERR                                                            COMPASS    10871     A     
 COMPASS            SA6    EFLG                                                            COMPASS    10872     A     
 COMPASS   STX1     NZ     X1,STX2     IF ALTERNATE RECORD OUTPUT                          COMPASS    10873     A     
 COMPASS            SA1    IDNAM                                                           COMPASS    10874     A     
 COMPASS   STX2     RJ     LJUST                                                           COMPASS    10875     A     
 COMPASS            SA7    SYNAME                                                          COMPASS    10876     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10877     A     
 COMPASS   STEXT    SPACE  4                                                               COMPASS    10878     A     
 COMPASS  **        STEXT - GENERATE A SYSTEXT RECORD.                                     COMPASS    10879     A     
 COMPASS                                                                                   COMPASS    10880     A     
 COMPASS                                                                                   COMPASS    10881     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10882     A     
 COMPASS   STEXT    SA1    LOCSYM                                                          COMPASS    10883     A     
 COMPASS            ZR     X1,ZLIST    IF NO ALTERNATE NAME                                COMPASS    10884     A     
 COMPASS            MX6    0                                                               COMPASS    10885     A     
 COMPASS            SA6    SYNAME                                                          COMPASS    10886     A     
 COMPASS            EQ     ZLIST       RETURN                                              COMPASS    10887     A     
 COMPASS   STOPDUP  SPACE  4                                                               COMPASS    10888     A     
 COMPASS  ***       STOPDUP - STOP DUPLICATION.                                            COMPASS    10889     A     
 COMPASS  *                                                                                COMPASS    10890     A     
 COMPASS  *                                                                                COMPASS    10891     A     
 COMPASS  *         STOPDUP                                                                COMPASS    10892     A     
 COMPASS  *         STOPS DUPLICATION AT END OF CURRENT ITERATION.                         COMPASS    10893     A     
 COMPASS                                                                                   COMPASS    10894     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 720    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    10895     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10896     A     
 COMPASS   STOPDUP  SA1    ECHFLG                                                          COMPASS    10897     A     
 COMPASS            SA2    O.STACK                                                         COMPASS    10898     A     
 COMPASS            ZR     X1,CTL300   IGNORE IF NOT DUPLICATING                           COMPASS    10899     A     
 COMPASS            SA3    L.STACK     SEARCH FOR TOP-MOST DUPLICATION                     COMPASS    10900     A     
 COMPASS   STOPDUP1 SX3    X3-4                                                            COMPASS    10901     A     
 COMPASS            SB7    X2+B1                                                           COMPASS    10902     A     
 COMPASS            SA4    B7+X3       FETCH SECOND STACK WORD                             COMPASS    10903     A     
 COMPASS            AX4    56                                                              COMPASS    10904     A     
 COMPASS            SB6    X4-5                                                            COMPASS    10905     A     
 COMPASS            ZR     B6,STOPDUP2 IF ECHO                                             COMPASS    10906     A     
 COMPASS            SB6    X4-2                                                            COMPASS    10907     A     
 COMPASS            NZ     B6,STOPDUP1 NOT FOUND                                           COMPASS    10908     A     
 COMPASS   STOPDUP2 SA1    A4+B1                                                           COMPASS    10909     A     
 COMPASS            MX6    1                                                               COMPASS    10910     A     
 COMPASS            BX6    X6+X1                                                           COMPASS    10911     A     
 COMPASS            SA6    A1                                                              COMPASS    10912     A     
 COMPASS            EQ     CTL300      RETURN                                              COMPASS    10913     A     
 COMPASS   STOPDUP  SPACE  4                                                               COMPASS    10914     A     
 COMPASS  **        STOPDUP - STOP DUPLICATION.                                            COMPASS    10915     A     
 COMPASS                                                                                   COMPASS    10916     A     
 COMPASS                                                                                   COMPASS    10917     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10918     A     
 COMPASS   STOPDUP  EQU    ZLIST                                                           COMPASS    10919     A     
 COMPASS   TITLE    SPACE  4                                                               COMPASS    10920     A     
 COMPASS  ***       TITLE - TITLING.                                                       COMPASS    10921     A     
 COMPASS  *                                                                                COMPASS    10922     A     
 COMPASS  *                                                                                COMPASS    10923     A     
 COMPASS  *NAME     TITLE  STRING                                                          COMPASS    10924     A     
 COMPASS  *         FIRST TITLE STRING IN SUBPROGRAM IS LISTED ON EVERY PAGE               COMPASS    10925     A     
 COMPASS  *         SUBSEQUENT (TITLE)S ARE SUBTITLES WHICH CAUSE AN EJECT BEFORE          COMPASS    10926     A     
 COMPASS  *         LISTING.  THE TITLE STRING BEGINS IMMEDIATELY AFTER THE                COMPASS    10927     A     
 COMPASS  *         PSEUDO OPERATION CODE AND CONTINUES FOR 62 COLUMNS OR TO THE           COMPASS    10928     A     
 COMPASS  *         END-OF-STATEMENT.  (NAME) IS THE SUB-SUBTITLE PRINTED AT               COMPASS    10929     A     
 COMPASS  *         THE BEGINNING OF THE NEW PAGE.                                         COMPASS    10930     A     
 COMPASS                                                                                   COMPASS    10931     A     
 COMPASS                                                                                   COMPASS    10932     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10933     A     
 COMPASS   TITLE    SA5    TITFG       CHECK IF THIS IS FIRST TITLE                        COMPASS    10934     A     
 COMPASS            NZ     X5,CTL70    EXIT IF NOT FIRST TITLE                             COMPASS    10935          I
          -CMP036 
 COMPASS            SX6    B1          SET TITLE FLAG                                      COMPASS    10936          I
          -CMP036 
 COMPASS            SA6    A5                                                              COMPASS    10937          I
          -CMP036 
 COMPASS            SA4    LIBFLG      NOT WITHIN XTEXT                           P036  34 CMP036        18     A     
 COMPASS            BX6    X4+X5                                                  P036  35 CMP036        19     A     
 COMPASS            SX7    B1                                                     P036  36 CMP036        20     A     
 COMPASS            NZ     X6,CTL70    IF NOT MAIN TITLE                          P036  37 CMP036        21     A     
 COMPASS            SA7    A5          SET TITLE FLAG                             P036  38 CMP036        22     A     
 COMPASS            SA1    TITBUF      SET NEW TITLE                                       COMPASS    10938     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 721    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     SNT                                                             COMPASS    10939     A     
 COMPASS            EQ     CTL70                                                           COMPASS    10940     A     
 COMPASS   TITLE    SPACE  4                                                               COMPASS    10941     A     
 COMPASS  **        TITLE - TITLING.                                                       COMPASS    10942     A     
 COMPASS                                                                                   COMPASS    10943     A     
 COMPASS                                                                                   COMPASS    10944     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10945     A     
 COMPASS   TITLE    SA3    TITFG                                                           COMPASS    10946     A     
 COMPASS            ZR     X3,TIT1     IF THIS IS MASTER TITLE                             COMPASS    10947          I
          -CMP036 
 COMPASS            SA1    SUBTIT      SET NEW TITLE                                       COMPASS    10948          I
          -CMP036 
 COMPASS            RJ     SNT                                                             COMPASS    10949          I
          -CMP036 
 COMPASS   TIT1     SA3    TITFG       SET TITLE FLAG                                      COMPASS    10950          I
          -CMP036 
 COMPASS            SX6    B1                                                              COMPASS    10951          I
          -CMP036 
 COMPASS            SA6    A3                                                              COMPASS    10952          I
          -CMP036 
 COMPASS            ZR     X3,TIT2     IF MAIN TITLE                                       COMPASS    10953          I
          -CMP036 
 COMPASS            SA4    LIBFLG                                                 P036  40 CMP036        23     A     
 COMPASS            BX6    X3+X4                                                  P036  41 CMP036        24     A     
 COMPASS            SX7    B1                                                     P036  42 CMP036        25     A     
 COMPASS            NZ     X6,TIT1     IF NOT MAIN TITLE                          P036  43 CMP036        26     A     
 COMPASS            SA7    A3                                                     P036  44 CMP036        27     A     
 COMPASS            SA7    CTYPE                                                  P036  45 CMP036        28     A     
 COMPASS            EQ     ZLIST                                                  P036  46 CMP036        29     A     
 COMPASS   TIT1     SA1    SUBTIT      SET NEW SUBTITLE                           P036  47 CMP036        30     A     
 COMPASS            RJ     SNT                                                    P036  48 CMP036        31     A     
 COMPASS            NZ     X6,Z100     IF IN XTEXT AND LIST X IS OFF              P036  49 CMP036        32     A     
 COMPASS            RJ     TLIST       TEST FOR LISTING                                    COMPASS    10954     A     
 COMPASS            SA1    LPCNT       CAUSE PAGE EJECT                                    COMPASS    10955     A     
 COMPASS            SA2    PSIZE                                                           COMPASS    10956          I
          -CPSA181
 COMPASS            SA2    NEJF        *N* CONTROLLED PAGE SIZE                            CPSA181       22     A     
 COMPASS            IX7    X1+X2                                                           COMPASS    10957     A     
 COMPASS            SA7    A1                                                              COMPASS    10958     A     
 COMPASS            NZ     X2,ZLIST    IF EJECT                                            COMPASS    10959     A     
 COMPASS            SX0    4           LIST 4 LINES                                        COMPASS    10960     A     
 COMPASS            RJ     LBL                                                             COMPASS    10961     A     
 COMPASS            EQ     ZLIST       RETURN                                              COMPASS    10962     A     
 COMPASS   TIT2     SX6    B1                                                              COMPASS    10963          I
          -CMP036 
 COMPASS            SA6    CTYPE                                                           COMPASS    10964          I
          -CMP036 
 COMPASS            EQ     ZLIST                                                           COMPASS    10965          I
          -CMP036 
 COMPASS   TTL      SPACE  4                                                               COMPASS    10966     A     
 COMPASS  ***       TTL - MAIN TITLE.                                                      COMPASS    10967     A     
 COMPASS  *                                                                                COMPASS    10968     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 722    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS    10969     A     
 COMPASS  *NAME     TTL    STRING                                                          COMPASS    10970     A     
 COMPASS  *         RESETS MAIN TITLE TO (STRING).  SUBTITLE IS CLEARED.                   COMPASS    10971     A     
 COMPASS  *         (NAME) IS THE NEW SUB-SUBTITLE.                                        COMPASS    10972     A     
 COMPASS                                                                                   COMPASS    10973     A     
 COMPASS                                                                                   COMPASS    10974     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    10975     A     
 COMPASS   TTL      EQU    CTL70                                                           COMPASS    10976     A     
 COMPASS   TTL      SPACE  4                                                               COMPASS    10977     A     
 COMPASS  **        TTL - MAIN TITLE.                                                      COMPASS    10978     A     
 COMPASS                                                                                   COMPASS    10979     A     
 COMPASS                                                                                   COMPASS    10980     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    10981     A     
 COMPASS   TTL      SA1    TITBUF                                                          COMPASS    10982     A     
 COMPASS            RJ     SNT         SET NEW TITLE                                       COMPASS    10983     A     
 COMPASS            NZ     X6,Z100     IF IN XTEXT AND LIST X IS OFF              P036  52 CMP036        33     A     
 COMPASS            SX6    B1          SET MASTER TITLE FLAG                               COMPASS    10984     A     
 COMPASS            SA6    TITFG                                                           COMPASS    10985     A     
 COMPASS            SA1    =1H         CLEAR SUB-TITLE BUFFER                              COMPASS    10986     A     
 COMPASS            SX2    SUBTIT                                                          COMPASS    10987     A     
 COMPASS            SX3    SUBTIT+SUBTITL+1                                                COMPASS    10988     A     
 COMPASS            RJ     PRESET                                                          COMPASS    10989     A     
 COMPASS            RJ     TLIST       TEST LISTING                                        COMPASS    10990     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    10991     A     
 COMPASS   USE      SPACE  4                                                               COMPASS    10992     A     
 COMPASS  ***       USE - BLOCK ASSIGNMENT.                                                COMPASS    10993     A     
 COMPASS  *                                                                                COMPASS    10994     A     
 COMPASS  *                                                                                COMPASS    10995     A     
 COMPASS  *         USE    NAME                                                            COMPASS    10996     A     
 COMPASS  *         ASSEMBLE FOLLOWING INSTRUCTIONS IN BLOCK (NAME).                       COMPASS    10997     A     
 COMPASS  *                                                                                COMPASS    10998     A     
 COMPASS  *           BLOCKNAME        TYPE                                                COMPASS    10999     A     
 COMPASS  *                                                                                COMPASS    11000     A     
 COMPASS  *              0             NORMAL SUBPROGRAM                                   COMPASS    11001     A     
 COMPASS  *              BLANK         NORMAL SUBPROGRAM                                   COMPASS    11002     A     
 COMPASS  *              *             BLOCK PRIOR TO LATEST USE/USELCM/ORG/ORGC           CMP30       3442     A     
 COMPASS  *              //            BLANK COMMON                                        COMPASS    11003     A     
 COMPASS  *              *             BLOCK PRIOR TO CURRENT USE OR ORG                   COMPASS    11004          I
          -CMP30  
 COMPASS  *              /NAME/        LABELED COMMON                                      COMPASS    11005     A     
 COMPASS  *              NAME          NAMED LOCAL                                         COMPASS    11006     A     
 COMPASS                                                                                   COMPASS    11007     A     
 COMPASS                                                                                   COMPASS    11008     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11009     A     
 COMPASS   USE      SB2    B0          COMMONALITY INDICATOR                               COMPASS    11010          I
          -CMP30  
 COMPASS   USE      MX6    0                                                               CMP30       3443     A     
 COMPASS            SA6    P1TEMP      CLEAR LCM FLAG                                      CMP30       3444     A     
 COMPASS   USEL     SB2    B0          COMMONALITY INDICATOR                               CMP30       3445     A     
 COMPASS            SB3    B0          BLOCK NUMBER COUNTER                                COMPASS    11011     A     
 COMPASS            SA1    CHAR                                                            COMPASS    11012     A     
 COMPASS            SB7    X1-1R/      CHECK FOR COMMON DECLARATION                        COMPASS    11013     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 723    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     B7,*+2                                                          COMPASS    11014     A     
 COMPASS            SB2    B1          SET COMMON FLAG                                     COMPASS    11015     A     
 COMPASS            RJ     GETCH       AND THROW AWAY THE SLASH                            COMPASS    11016     A     
 COMPASS            RJ     SCLIST      SCAN OFF NAME                                       COMPASS    11017     A     
 COMPASS            NZ     X6,*+1      CHANGE EMPTY NAME TO BLANK                          COMPASS    11018          I
          -CMP30  
 COMPASS            SX6    1R                                                              COMPASS    11019          I
          -CMP30  
 COMPASS            SB7    X6-1R0                                                          COMPASS    11020     A     
 COMPASS   +        NZ     B7,*+1      CHANGE 0 NAME TO BLANK                              COMPASS    11021          I
          -CMP30  
 COMPASS            ZR     X6,USE8     CHANGE EMPTY OR 0 NAME TO BLANK                     CMP30       3446     A     
 COMPASS            NZ     B7,USE9                                                         CMP30       3447     A     
 COMPASS   USE8     SA1    P1TEMP      ERROR IF USELCM 0 OR BLANK                          CMP30       3448     A     
 COMPASS            SX6    1R                                                              COMPASS    11022     A     
 COMPASS   +        ZR     B2,USE6     IF NOT COMMON                                       COMPASS    11023          I
          -CMP30  
 COMPASS            MI     X1,USEA                                                         CMP30       3449     A     
 COMPASS   USE9     ZR     B2,USE6     IF NOT COMMON                                       CMP30       3450     A     
 COMPASS            MX0    -6                                                              COMPASS    11024     A     
 COMPASS            BX1    -X0*X6                                                          COMPASS    11025     A     
 COMPASS            SX1    X1-1R/                                                          COMPASS    11026     A     
 COMPASS            ZR     X1,USE7     IF TRAILING BLANK                                   COMPASS    11027          I
          -CMP30  
 COMPASS            SX7    B1                                                              COMPASS    11028          I
          -CMP30  
 COMPASS            ZR     X1,USE7     IF TRAILING SLASH                                   CMP30       3451     A     
 COMPASS   USEA     SX7    B1                                                              CMP30       3452     A     
 COMPASS            SA7    EFLG                                                            COMPASS    11029     A     
 COMPASS            SA7    AERR                                                            COMPASS    11030     A     
 COMPASS            EQ     USE6                                                            COMPASS    11031     A     
 COMPASS   USE7     AX6    6                                                               COMPASS    11032     A     
 COMPASS   USE6     SB7    X6-1R*      CHECK FOR USE *                                     COMPASS    11033     A     
 COMPASS            ZR     B7,USEPR                                                        COMPASS    11034     A     
 COMPASS            SA6    P1TEMP      SAVE BLOCK NAME                                     COMPASS    11035          I
          -CMP30  
 COMPASS            SA1    P1TEMP                                                          CMP30       3453     A     
 COMPASS            BX6    X6-X1       COMPLEMENT NAME IF LCM                              CMP30       3454     A     
 COMPASS            SX7    B2                                                              COMPASS    11036     A     
 COMPASS            SA6    A1          SAVE BLOCK NAME                                     CMP30       3455     A     
 COMPASS            SA7    A6+B1       AND COMMONALITY                                     COMPASS    11037     A     
 COMPASS   USEL     SA2    O.USETAB    SEARCH FOR BLOCK NAME                               COMPASS    11038          I
          -CMP30  
 COMPASS            SA2    O.USETAB    SEARCH FOR BLOCK NAME                               CMP30       3456     A     
 COMPASS            SA3    L.USETAB                                                        COMPASS    11039     A     
 COMPASS            SA1    UI                                                              COMPASS    11040     A     
 COMPASS            IX2    X2+X1                                                           COMPASS    11041     A     
 COMPASS            IX3    X3-X1                                                           COMPASS    11042     A     
 COMPASS            SB6    -6                                                              COMPASS    11043          I
          -CMP30  
 COMPASS            SB6    -4                                                              CMP30       3457     A     
 COMPASS            SA2    X2                                                              COMPASS    11044     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 724    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X3+B6                                                           COMPASS    11045     A     
 COMPASS   USE3     BX4    X2-X6       TEST BLOCK                                          COMPASS    11046     A     
 COMPASS            SA2    A2-B6                                                           COMPASS    11047     A     
 COMPASS            SB7    B7+B6                                                           COMPASS    11048     A     
 COMPASS            SB3    B3+B1                                                           COMPASS    11049     A     
 COMPASS            ZR     X4,USE5     IF NAME FOUND IN TABLE                              COMPASS    11050          I
          -CMP30  
 COMPASS            NZ     X4,USE4                                                         CMP30       3458     A     
 COMPASS            PL     X4,USE5     IF NAME FOUND IN TABLE                              CMP30       3459     A     
 COMPASS   USE4     PL     B7,USE3     KEEP LOOKING                                        COMPASS    11051     A     
 COMPASS            SA1    UI+1        NEW BLOCK NUMBER                                    COMPASS    11052          I
          -CPS176 
 COMPASS            SX7    X1+B3                                                           COMPASS    11053          I
          -CPS176 
 COMPASS            SB4    X7-255                                                          COMPASS    11054          I
          -CMP1     -CPS176 
 COMPASS            SB4    X7-256                                                          CMP1           4          I
          -CPS176 
 COMPASS            SA7    P1TEMPB                                                         COMPASS    11055          I
          -CPS176 
 COMPASS            PL     B4,USEF     IF THIS IS 255TH BLOCK                              COMPASS    11056          I
          -CMP26    -CPS176 
 COMPASS            PL     B4,USEF     IF THIS IS 256TH BLOCK                              CMP26         29          I
          -CPS176 
 COMPASS            SA7    USECNT      UPDATE COUNT OF USED BLOCKS                         COMPASS    11057          I
          -CPS176 
 COMPASS            SA7    A1+B1                                                           CMP30       3460          I
          -CPS176 
 COMPASS            SB4    B1+B1                                                           CPS176         5     A     
 COMPASS            AX7    B4,X1       NUMBER OF BLOCKS PRIOR TO PRESENT GROUP.            CPS176         6     A     
 COMPASS            SA1    UI+1        PRESENT BLOCK NUMBER.                               CPS176         7     A     
 COMPASS            SX6    X1+B3       NEW BLOCK NUMBER.                                   CPS176         8     A     
 COMPASS            SA6    P1TEMPB     SAVE NEW BLOCK NUMBER.                              CPS176         9     A     
 COMPASS            IX1    X6-X7       NEW BLOCK NUMBER IN PRESENT BLOCK GROUP.            CPS176        10          I
          -RSM4159
 COMPASS            SB4    X1-256                                                          CPS176        11          I
          -RSM4159
 COMPASS            SB4    X6-256                                                          RSM4159       19     A     
 COMPASS            PL     B4,USEF     IF 256TH BLOCK IN PRESENT BLOCK GROUP.              CPS176        12     A     
 COMPASS            SA6    USECNT      UPDATE COUNT OF USED BLOCKS.                        CPS176        13          I
          -RSM4159
 COMPASS            SA6    A1+B1                                                           CPS176        14     A     
 COMPASS                                                                                   CPS176        15     A     
 COMPASS            MANAGE USETAB,-B6  AUGMENT USETAB FOR NEW BLOCK                        COMPASS    11058     A     
 COMPASS            SB7    X3-6                                                            COMPASS    11059          I
          -CMP30  
 COMPASS            SB7    X3-4                                                            CMP30       3461     A     
 COMPASS            SA3    P1TEMP      RECLAIM BLOCK NAME                                  COMPASS    11060     A     
 COMPASS            SA4    A3+B1       AND COMMONALITY                                     COMPASS    11061     A     
 COMPASS            BX6    X3                                                              COMPASS    11062     A     
 COMPASS            LX7    X4                                                              COMPASS    11063     A     
 COMPASS            SA6    X2+B7                                                           COMPASS    11064     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 725    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    LWORD                                                           COMPASS    11065     A     
 COMPASS            BX6    X3                                                              COMPASS    11066     A     
 COMPASS            LX6    24                                                              COMPASS    11067     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    11068     A     
 COMPASS            SA7    A6+B1       BLOCK COUNTER AND COMMONALITY                       COMPASS    11069     A     
 COMPASS            MX6    0                                                               COMPASS    11070     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    11071     A     
 COMPASS            MANAGE RVTAB,1*1   AUGMENT RVTAB FOR NEW BLOCK                         CPS2672       32     A     
 COMPASS            SB7    X3-1*1      PRESET NEW ENTRY TO ZERO                            CPS2672       33     A     
 COMPASS            MX6    0                                                               CPS2672       34     A     
 COMPASS            SA6    X2+B7                                                           CPS2672       35     A     
 COMPASS            EQ     USE1                                                            COMPASS    11072     A     
 COMPASS   USE5     SA3    A2-4        FETCH THIRD WORD OF BLOCK                           COMPASS    11073          I
          -CMP30  
 COMPASS   USE5     SA3    A2-2        FETCH COMMONALITY OF USETAB ENTRY                   CMP30       3462     A     
 COMPASS            SA1    P1TEMP+1    FETCH COMMON FLAG                                   COMPASS    11074     A     
 COMPASS            BX4    X3-X1       CHECK IF COMMON FLAG SET                            COMPASS    11075     A     
 COMPASS            LX4    59                                                              COMPASS    11076     A     
 COMPASS            PL     X4,USEOLD   USE OLD BLOCK                                       COMPASS    11077     A     
 COMPASS            EQ     USE4                                                            COMPASS    11078     A     
 COMPASS                                                                                   COMPASS    11079     A     
 COMPASS  *         ENTRY ON USE FOR OLD BLOCK NAME.                                       COMPASS    11080     A     
 COMPASS                                                                                   COMPASS    11081     A     
 COMPASS   USEOLD   SB4    B3-B1                                                           COMPASS    11082     A     
 COMPASS            NE     B4,B1,USEOLD1 IF NOT 0 BLOCK                                    COMPASS    11083     A     
 COMPASS            SA4    ABSFG                                                           COMPASS    11084     A     
 COMPASS            ZR     X4,USEOLD1                                                      COMPASS    11085     A     
 COMPASS            SA2    A2-B6                                                           COMPASS    11086     A     
 COMPASS            SB3    B3-B1                                                           COMPASS    11087     A     
 COMPASS   USEOLD1  SA2    A2-4        FETCH COMMONALITY                                   COMPASS    11088          I
          -CMP30  
 COMPASS   USEOLD1  SA2    A2-2        FETCH COMMONALITY                                   CMP30       3463     A     
 COMPASS            SA1    UI+1                                                            COMPASS    11089     A     
 COMPASS            SB3    B3-B1                                                           COMPASS    11090     A     
 COMPASS            SX6    X1+B3                                                           COMPASS    11091     A     
 COMPASS            SX7    B2                                                              COMPASS    11092     A     
 COMPASS            BX7    X7+X2                                                           COMPASS    11093     A     
 COMPASS            SA6    P1TEMPB                                                         COMPASS    11094     A     
 COMPASS            SA7    A6-B1                                                           COMPASS    11095     A     
 COMPASS                                                                                   COMPASS    11096     A     
 COMPASS  *         ALL USE-S EXCEPT USE *.                                                COMPASS    11097     A     
 COMPASS                                                                                   COMPASS    11098     A     
 COMPASS   USE1     RJ     USES        CREATE USTACK ENTRY                                 COMPASS    11099     A     
 COMPASS                                                                                   COMPASS    11100     A     
 COMPASS  *         USE * REJOINS HERE.                                                    COMPASS    11101     A     
 COMPASS                                                                                   COMPASS    11102     A     
 COMPASS   USE2     RJ     USER        SWITCH TO NEW BLOCK                                 COMPASS    11103     A     
 COMPASS            EQ     CTL70                                                           COMPASS    11104     A     
 COMPASS                                                                                   COMPASS    11105     A     
 COMPASS  *         ENTRY ON USE *.                                                        COMPASS    11106     A     
 COMPASS                                                                                   COMPASS    11107     A     
 COMPASS   USEPR    SA2    O.USTACK                                                        COMPASS    11108          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 726    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS   USEPR    RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       265          I
          -CMP30  
 COMPASS            SA2    O.USTACK                                                        CMP042       266          I
          -CMP30  
 COMPASS            SA3    L.USTACK                                                        COMPASS    11109          I
          -CMP30  
 COMPASS            SB7    X3-1                                                            COMPASS    11110          I
          -CMP30  
 COMPASS            SA4    X2+B7       FETCH INDEX OF OLD ENTRY                            COMPASS    11111          I
          -CMP30  
 COMPASS            BX6    X4                                                              COMPASS    11112          I
          -CMP30  
 COMPASS            NZ     X3,USEPR1   JUMP IF AN OLD BLOCK EXISTED                        COMPASS    11113          I
          -CMP30  
 COMPASS   USEPR    SA1    USESTK      PUSH UP USE STACK                                   CMP30       3464     A     
 COMPASS            RJ     PULL                                                            CMP30       3465     A     
 COMPASS            NZ     X6,USEPR1   IF STACK WAS NOT EMPTY                              CMP30       3466     A     
 COMPASS            SA4    ABSFG       SUPPLY BLOCK 2-ABSFG                                COMPASS    11114     A     
 COMPASS            SA5    UI+1                                                            COMPASS    11115     A     
 COMPASS            SX5    X5+B1                                                           COMPASS    11116     A     
 COMPASS            IX6    X5-X4                                                           COMPASS    11117     A     
 COMPASS            SB7    B0                                                              COMPASS    11118          I
          -CMP30  
 COMPASS   USEPR1   SA6    P1TEMPB     STORE NEW BLOCK NUMBER                              COMPASS    11119     A     
 COMPASS            SX7    B7          DECREMENT USTACK                                    COMPASS    11120          I
          -CMP30  
 COMPASS            IX4    X6+X6                                                           COMPASS    11121          I
          -CMP30  
 COMPASS            LX5    X4,B1                                                           COMPASS    11122          I
          -CMP30  
 COMPASS            SA7    A3          RESET USTACK LENGTH                                 COMPASS    11123          I
          -CMP30  
 COMPASS            IX4    X5+X4       FETCH OLD COMMONALITY                               COMPASS    11124          I
          -CMP30  
 COMPASS            LX6    2                                                               CMP30       3467     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS    11125     A     
 COMPASS            SA4    UI                                                              RSM4159       20     A     
 COMPASS            IX2    X2+X4       BASE ADDRESS OF BLOCK GROUP                         RSM4159       21     A     
 COMPASS            SB7    X4-4                                                            COMPASS    11126          I
          -CMP30  
 COMPASS            SB7    X6-2        COMMONALITY                                         CMP30       3468     A     
 COMPASS            SA4    X2+B7                                                           COMPASS    11127     A     
 COMPASS            SX6    B2                                                              COMPASS    11128     A     
 COMPASS            BX7    X6+X4                                                           COMPASS    11129     A     
 COMPASS            SA7    A6-B1                                                           COMPASS    11130     A     
 COMPASS            EQ     USE2                                                            COMPASS    11131     A     
 COMPASS   USELCM   SPACE  4                                                               COMPASS    11132     A     
 COMPASS  ***       USELCM - BLOCK ASSIGNMENT.                                             COMPASS    11133     A     
 COMPASS  *                                                                                COMPASS    11134     A     
 COMPASS  *                                                                                COMPASS    11135     A     
 COMPASS  *         USELCM NAME                                                            COMPASS    11136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 727    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         ASSEMBLE FOLLOWING INSTRUCTIONS INTO LCM BLOCK (NAME).                 COMPASS    11137     A     
 COMPASS  *                                                                                CMP30       3469     A     
 COMPASS  *           BLOCKNAME        TYPE                                                CMP30       3470     A     
 COMPASS  *                                                                                CMP30       3471     A     
 COMPASS  *              0             ERROR                                               CMP30       3472     A     
 COMPASS  *              BLANK         ERROR                                               CMP30       3473     A     
 COMPASS  *              *             BLOCK PRIOR TO LATEST USE/USELCM/ORG/ORGC           CMP30       3474     A     
 COMPASS  *              //            LCM BLANK COMMON                                    CMP30       3475     A     
 COMPASS  *              /NAME/        LCM LABELED COMMON                                  CMP30       3476     A     
 COMPASS  *              NAME          LCM NAMED LOCAL                                     CMP30       3477     A     
 COMPASS                                                                                   COMPASS    11138     A     
 COMPASS                                                                                   COMPASS    11139     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11140     A     
 COMPASS   USELCM   SA1    MACHINE                                                         COMPASS    11141     A     
 COMPASS            NZ     X1,CTL80    *O* ERROR IF PP                                     COMPASS    11142     A     
 COMPASS            RJ     SCLIST      SCAN OFF NAME                                       COMPASS    11143          I
          -CMP30  
 COMPASS            ZR     X6,ERA      IF BLANK NAME                                       COMPASS    11144          I
          -CMP30  
 COMPASS            SB7    X6-1R*                                                          COMPASS    11145          I
          -CMP30  
 COMPASS            ZR     B7,USEPR    IF USELCM *                                         COMPASS    11146          I
          -CMP30  
 COMPASS            BX6    -X6                                                             COMPASS    11147          I
          -CMP30  
 COMPASS            SX7    B1          SET COMMON TYPE                                     COMPASS    11148          I
          -CMP30  
 COMPASS            SA6    P1TEMP      SAVE BLOCK NAME                                     COMPASS    11149          I
          -CMP30  
 COMPASS            SA7    A6+B1                                                           COMPASS    11150          I
          -CMP30  
 COMPASS            MX6    60                                                              CMP30       3478     A     
 COMPASS            SA6    P1TEMP      SET LCM FLAG                                        CMP30       3479     A     
 COMPASS            EQ     USEL                                                            COMPASS    11151     A     
 COMPASS   USE      SPACE  4                                                               COMPASS    11152     A     
 COMPASS  **        USE - BLOCK ASSIGNMENT.                                                COMPASS    11153     A     
 COMPASS                                                                                   COMPASS    11154     A     
 COMPASS                                                                                   COMPASS    11155     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11156     A     
 COMPASS   USE      RJ     USER                                                            COMPASS    11157     A     
 COMPASS            EQ     ZLIST                                                           COMPASS    11158     A     
 COMPASS   USELCM   SPACE  4                                                               COMPASS    11159     A     
 COMPASS  **        USELCM - BLOCK ASSIGNMENT.                                             COMPASS    11160     A     
 COMPASS                                                                                   COMPASS    11161     A     
 COMPASS                                                                                   COMPASS    11162     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11163     A     
 COMPASS   USELCM   SA1    AERR                                                            COMPASS    11164     A     
 COMPASS            NZ     X1,ZLIST    IF ERROR IN PASS 1                                  COMPASS    11165     A     
 COMPASS            EQ     USE                                                             COMPASS    11166     A     
 COMPASS   USES     SPACE  4                                                               COMPASS    11167     A     
 COMPASS  **        USES - CREATE STACK ENTRY FOR USE AND ORG PSEUDOS IN USTACK.           COMPASS    11168          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 728    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         STORES CURRENT VALUE OF ORGCTR+1 INTO USTACK AND TRUNCATES             COMPASS    11169          I
          -CMP30  
 COMPASS  *         SIZE OF USTACK TO 50 ENTRIES.                                          COMPASS    11170          I
          -CMP30  
 COMPASS  **        USES - CREATE PUSHDOWN STACK ENTRY FOR USE AND ORG PSEUDOS.            CMP30       3480     A     
 COMPASS                                                                                   COMPASS    11171     A     
 COMPASS                                                                                   COMPASS    11172     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11173     A     
 COMPASS   USES     PS                 RETURN EXIT                                         COMPASS    11174     A     
 COMPASS            MANAGE USTACK,1                                                        COMPASS    11175          I
          -CMP30  
 COMPASS            SB7    X3-1                                                            COMPASS    11176          I
          -CMP30  
 COMPASS            SA1    ORGCTR+1                                                        COMPASS    11177          I
          -CMP30  
 COMPASS   +        NZ     X1,*+1                                                          COMPASS    11178          I
          -CMP30  
 COMPASS            SA1    UI+1                                                            COMPASS    11179          I
          -CMP30  
 COMPASS   +        BX6    X1                                                              COMPASS    11180          I
          -CMP30  
 COMPASS            SB6    B7-50                                                           COMPASS    11181          I
          -CMP30  
 COMPASS            SA6    X2+B7       STORE OLD BLOCK NUMBER                              COMPASS    11182          I
          -CMP30  
 COMPASS            NG     B6,USES     AND EXIT IF LESS THAN 50 ENTRIES                    COMPASS    11183          I
          -CMP30  
 COMPASS            SX6    X2+B1       ADJUST USTACK TO KEEP LAST 50                       COMPASS    11184          I
          -CMP30  
 COMPASS            SX7    B7          ENTRIES                                             COMPASS    11185          I
          -CMP30  
 COMPASS            SA6    A2                                                              COMPASS    11186          I
          -CMP30  
 COMPASS            SA7    A3                                                              COMPASS    11187          I
          -CMP30  
 COMPASS            SA2    ORGCTR+1                                                        CMP30       3481     A     
 COMPASS            SA1    USESTK                                                          CMP30       3482     A     
 COMPASS   +        NZ     X2,*+1      IF NOT ABSOLUTE                                     CMP30       3483     A     
 COMPASS            SA2    UI+1                                                            CMP30       3484     A     
 COMPASS   +        BX6    X2                                                              CMP30       3485     A     
 COMPASS            RJ     PUSH        PUSH DOWN USE STACK                                 CMP30       3486     A     
 COMPASS            EQ     USES                                                            COMPASS    11188     A     
 COMPASS   USER     SPACE  4                                                               COMPASS    11189     A     
 COMPASS  **        USER - SWITCH TO NEW BLOCK FOR USE/ORG.                                COMPASS    11190     A     
 COMPASS  *         ENTRY  OLD BLOCK INFORMATION IN ACTIVE CELLS NOTED BELOW.              COMPASS    11191     A     
 COMPASS  *                (P1TEMPB) = NEW BLOCK NUMBER.                                   COMPASS    11192     A     
 COMPASS  *                (P1TEMPA) = NEW BLOCKS COMMONALITY.                             COMPASS    11193     A     
 COMPASS  *         CELLS WHICH ARE RECORDED AND RE-SET ARE...                             COMPASS    11194     A     
 COMPASS  *         ORGCTR                   ORGCTR+1                                      COMPASS    11195     A     
 COMPASS  *         LOCCTR                   LOCCTR+1   (NOT RECORDED, JUST SET)           COMPASS    11196     A     
 COMPASS  *         NFOUP                    POSCTR                                        COMPASS    11197     A     
 COMPASS  *         ALSO CREATES FLAG FOR COMMUNICATION WITH ZUSER IN PASS 2.              COMPASS    11198     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 729    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         FLAG (59-24) = OLD BLOCK NUMBER.                                       COMPASS    11199          I
          -CMP30  
 COMPASS  *         FLAG (59)    = CONDITIONAL LOAD FLAG.                                  CMP30       3487     A     
 COMPASS  *         FLAG (58-24) = OLD BLOCK NUMBER.                                       CMP30       3488     A     
 COMPASS  *         FLAG (23-00) = NEW BLOCK NUMBER.                                       COMPASS    11200     A     
 COMPASS                                                                                   COMPASS    11201     A     
 COMPASS                                                                                   COMPASS    11202     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11203     A     
 COMPASS   USER     PS                 RETURN EXIT                                         COMPASS    11204     A     
 COMPASS            SA1    ORGCTR+1    OLD BLOCK NUMBER                                    COMPASS    11205     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS    11206     A     
 COMPASS            NZ     X1,*+1      CHANGE ABSOLUTE ORIGIN TO 1                         COMPASS    11207     A     
 COMPASS            SA1    UI+1                                                            COMPASS    11208     A     
 COMPASS   +        SA3    P1TEMPB     NEW BLOCK NUMBER                                    COMPASS    11209     A     
 COMPASS            SA4    UI                                                              RSM4159       22     A     
 COMPASS            IX2    X2+X4       BASE ADDRESS OF BLOCK GROUP                         RSM4159       23     A     
 COMPASS            LX1    24                                                              COMPASS    11210     A     
 COMPASS            BX6    X1+X3                                                           COMPASS    11211     A     
 COMPASS            LX4    X1,B1                                                           COMPASS    11212          I
          -CMP30  
 COMPASS            IX1    X4+X1                                                           COMPASS    11213          I
          -CMP30  
 COMPASS            SA6    FLAG                                                            COMPASS    11214     A     
 COMPASS            AX1    23                                                              COMPASS    11215          I
          -CMP30  
 COMPASS            SB6    X1          INDEX+6 OF OLD USETAB ENTRY                         COMPASS    11216          I
          -CMP30  
 COMPASS            SX2    X2-5                                                            COMPASS    11217          I
          -CMP30  
 COMPASS            LX6    X3,B1                                                           COMPASS    11218          I
          -CMP30  
 COMPASS            IX4    X6+X6                                                           COMPASS    11219          I
          -CMP30  
 COMPASS            IX1    X4+X6                                                           COMPASS    11220          I
          -CMP30  
 COMPASS            SB5    X1                                                              COMPASS    11221          I
          -CMP30  
 COMPASS            AX1    24-2                                                            CMP30       3489     A     
 COMPASS            SB6    X1          INDEX+4 OF OLD USETAB ENTRY                         CMP30       3490     A     
 COMPASS            SX2    X2-3                                                            CMP30       3491     A     
 COMPASS            LX3    2                                                               CMP30       3492     A     
 COMPASS            SB5    X3          INDEX+4 OF NEW USETAB ENTRY                         CMP30       3493     A     
 COMPASS            SA4    NFOUP                                                           COMPASS    11222     A     
 COMPASS            SA5    POSCTR                                                          COMPASS    11223     A     
 COMPASS            SA1    ORGCTR      ORIGIN COUNTER VALUE                                COMPASS    11224     A     
 COMPASS            LX4    3+20                                                            COMPASS    11225     A     
 COMPASS            BX6    X4+X1                                                           COMPASS    11226     A     
 COMPASS            SA4    CLF         CONDITIONAL LOAD FLAG                               CMP30       3494     A     
 COMPASS            BX0    X5                                                              COMPASS    11227     A     
 COMPASS            LX5    24                                                              COMPASS    11228     A     
 COMPASS            BX6    X6+X4                                                           CMP30       3495     A     
 COMPASS            IX7    X5+X6                                                           COMPASS    11229     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 730    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    X2+B6       STORE OLD COUNTERS                                  COMPASS    11230     A     
 COMPASS            SA5    A7+2        FETCH OLD MAXIMUM BLOCK SIZE                        COMPASS    11231     A     
 COMPASS            SA4    LWORD                                                           COMPASS    11232     A     
 COMPASS            AX3    2                                                               CMP30       3496     A     
 COMPASS            IX6    X0-X4                                                           COMPASS    11233     A     
 COMPASS   +        SX4    B1                                                              COMPASS    11234     A     
 COMPASS            ZR     X6,*+1      IF POSITION COUNTER = LWGRD                         COMPASS    11235     A     
 COMPASS            IX1    X1+X4       INCREMENT ORGCTR                                    COMPASS    11236     A     
 COMPASS            IX7    X5-X1                                                           COMPASS    11237     A     
 COMPASS            BX6    X1                                                              COMPASS    11238     A     
 COMPASS   +        SX1    B1                                                              COMPASS    11239     A     
 COMPASS            PL     X7,*+1                                                          COMPASS    11240     A     
 COMPASS            SA6    A5          STORE NEW MAXIMUM BLOCK SIZE                        COMPASS    11241     A     
 COMPASS   +        SA2    X2+B5       PICK UP NEW COUNTERS                                COMPASS    11242     A     
 COMPASS            SA5    UI+1                                                            COMPASS    11243     A     
 COMPASS   +        IX7    X3-X5                                                           COMPASS    11244     A     
 COMPASS            NZ     X7,*+1                                                          COMPASS    11245     A     
 COMPASS            SX3    B0          CHANGE BLOCK 1 TO ABSOLUTE ORIGIN                   COMPASS    11246     A     
 COMPASS            SA4    FLAG                                                            CMP30       3497     A     
 COMPASS            MX0    1                                                               CMP30       3498     A     
 COMPASS            BX7    X0*X2                                                           CMP30       3499     A     
 COMPASS            IX6    X7+X4                                                           CMP30       3500     A     
 COMPASS            SA7    CLF         NEW CONDITIONAL LOAD FLAG                           CMP30       3501     A     
 COMPASS            SA6    A4                                                              CMP30       3502     A     
 COMPASS            BX7    X3                                                              COMPASS    11247     A     
 COMPASS            MX0    39                                                              COMPASS    11248     A     
 COMPASS            BX6    -X0*X2                                                          COMPASS    11249     A     
 COMPASS            SA7    A1+B1       NEW ORGCTR RELOCATION                               COMPASS    11250     A     
 COMPASS            SA6    A1          NEW ORGCTR VALUE                                    COMPASS    11251     A     
 COMPASS            AX2    23                                                              COMPASS    11252     A     
 COMPASS            SA7    LOCCTR+1                                                        COMPASS    11253     A     
 COMPASS            SA6    A7-B1                                                           COMPASS    11254     A     
 COMPASS            AX3    X2,B1                                                           CMP30       3503     A     
 COMPASS            BX7    X2*X1                                                           COMPASS    11255     A     
 COMPASS            AX6    X2,B1                                                           COMPASS    11256          I
          -CMP30  
 COMPASS            SX6    X3                                                              CMP30       3504     A     
 COMPASS            SA7    NFOUP       NEW NFOUP                                           COMPASS    11257     A     
 COMPASS            SA6    POSCTR      NEW POSCTR                                          COMPASS    11258     A     
 COMPASS            EQ     USER                                                            COMPASS    11259     A     
 COMPASS                                                                                   COMPASS    11260     A     
 COMPASS  *         ENTRY ON USETAB OVERFLOW.                                              COMPASS    11261     A     
 COMPASS                                                                                   COMPASS    11262     A     
 COMPASS   USEF     SX6    B1          NOTE ERROR                                          COMPASS    11263     A     
 COMPASS            SA6    EFLG                                                            COMPASS    11264     A     
 COMPASS            SA6    FERR                                                            COMPASS    11265     A     
 COMPASS            SA1    ORGCTR      AND CREATE NULL USE                                 COMPASS    11266     A     
 COMPASS            BX6    X1                                                              COMPASS    11267     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    11268     A     
 COMPASS            LX7    X2                                                              COMPASS    11269     A     
 COMPASS            SA6    LOCCTR                                                          COMPASS    11270     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    11271     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 731    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX2    24                                                              COMPASS    11272     A     
 COMPASS            BX6    X2+X7                                                           COMPASS    11273     A     
 COMPASS            SA6    FLAG                                                            COMPASS    11274     A     
 COMPASS            EQ     CTL70                                                           COMPASS    11275     A     
 COMPASS   USER     SPACE  4                                                               COMPASS    11276     A     
 COMPASS  **        USER - SWITCH TO NEW BLOCK FOR USE/ORG/END.                            COMPASS    11277     A     
 COMPASS  *         ENTRY  INFORMATION ASSUMED IN FLAG.                                    COMPASS    11278     A     
 COMPASS  *         USER SWAPS THE FOLLOWING INFORMATION FOR THE TWO BLOCKS.               COMPASS    11279     A     
 COMPASS  *                                                                                COMPASS    11280     A     
 COMPASS  *                ORGCTR            ORGCTR+1                                      COMPASS    11281     A     
 COMPASS  *                LOCCTR            LOCCTR+1  (NOT SAVED)                         COMPASS    11282     A     
 COMPASS  *                POSCTR            NFOUP                                         COMPASS    11283     A     
 COMPASS  *                BINWORD           BINREL                                        COMPASS    11284     A     
 COMPASS  *                MINORG            MAXORG  (SET, NOT SAVED)                      COMPASS    11285          I
          -CMP30  
 COMPASS  *                MINORG     CLF    MAXORG  (SET, NOT SAVED)                      CMP30       3505     A     
 COMPASS  *         ALSO FORCES MAXORG = 0 IF GOING TO COMMON BLOCK (NAME = 0).            COMPASS    11286     A     
 COMPASS  *                IN RELOCATABLE ASSEMBLY TO CATCH BLANK COMMON                   COMPASS    11287     A     
 COMPASS  *         RESETS BINARY ORIGIN (RESORG).                                         COMPASS    11288     A     
 COMPASS                                                                                   COMPASS    11289     A     
 COMPASS                                                                                   COMPASS    11290     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11291     A     
 COMPASS   USER     PS                 RETURN EXIT                                         COMPASS    11292     A     
 COMPASS            SA1    FLAG        STORE CURRENT INFORMATION IN USETAB                 COMPASS    11293     A     
 COMPASS            AX1    22                                                              COMPASS    11294          I
          -CMP30  
 COMPASS            AX0    X1,B1                                                           COMPASS    11295          I
          -CMP30  
 COMPASS            IX3    X0+X1                                                           COMPASS    11296          I
          -CMP30  
 COMPASS            SX1    X3-6                                                            COMPASS    11297          I
          -CMP30  
 COMPASS            SB2    B1+B1                                                           COMPASS    11298          I
          -CMP30  
 COMPASS            SA2    O.USETAB                                                        COMPASS    11299          I
          -CMP30  
 COMPASS            SB7    X2                                                              COMPASS    11300          I
          -CMP30  
 COMPASS            IX6    X2+X1       O.USETAB + CURRENT BLOCK NUMBER                     COMPASS    11301          I
          -CMP30  
 COMPASS            MX4    39                                                              COMPASS    11302          I
          -CMP30  
 COMPASS            SA3    POSCTR      FORM WORD 2 OF USETAB - POSCTR                      COMPASS    11303          I
          -CMP30  
 COMPASS            LX3    1                                                               COMPASS    11304          I
          -CMP30  
 COMPASS            SA5    NFOUP                                                           COMPASS    11305          I
          -CMP30  
 COMPASS            BX7    X5+X3                                                           COMPASS    11306          I
          -CMP30  
 COMPASS            LX7    23                                                              COMPASS    11307          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 732    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    ORGCTR                                                          COMPASS    11308          I
          -CMP30  
 COMPASS            BX5    -X4*X3                                                          COMPASS    11309          I
          -CMP30  
 COMPASS            BX7    X7+X5                                                           COMPASS    11310          I
          -CMP30  
 COMPASS            SA7    X6+B1       STORE IT IN USETAB(2)                               COMPASS    11311          I
          -CMP30  
 COMPASS            SA3    BINWORD                                                         COMPASS    11312          I
          -CMP30  
 COMPASS            BX7    X3                                                              COMPASS    11313          I
          -CMP30  
 COMPASS            SA7    A7+B2       STORE BINWORD IN USETAB(4)                          COMPASS    11314          I
          -CMP30  
 COMPASS            SA3    BINREL                                                          COMPASS    11315          I
          -CMP30  
 COMPASS            BX7    X3                                                              COMPASS    11316          I
          -CMP30  
 COMPASS            SA7    A7+B1       STORE BINREL IN USETAB(5)                           COMPASS    11317          I
          -CMP30  
 COMPASS  *                                                                                COMPASS    11318          I
          -CMP30  
 COMPASS            SA3    A1          GET NEW BLOCK INFORMATION FROM USETAB               COMPASS    11319          I
          -CMP30  
 COMPASS            LX0    X3,B1                                                           COMPASS    11320          I
          -CMP30  
 COMPASS            IX1    X3+X0                                                           COMPASS    11321          I
          -CMP30  
 COMPASS            LX0    X1,B1                                                           COMPASS    11322          I
          -CMP30  
 COMPASS            SX3    X0-6                                                            COMPASS    11323          I
          -CMP30  
 COMPASS            IX6    X2+X3       O.USETAB + NEW BLOCK NR                             COMPASS    11324          I
          -CMP30  
 COMPASS            SA1    X6+B1       SECOND WORD OF USETAB ENTRY                         COMPASS    11325          I
          -CMP30  
 COMPASS            BX6    -X4*X1      BITS 20-0                                           COMPASS    11326          I
          -CMP30  
 COMPASS            MX7    59                                                              COMPASS    11327          I
          -CMP30  
 COMPASS            SA6    ORGCTR      SET ORGCTR                                          COMPASS    11328          I
          -CMP30  
 COMPASS            SA6    LOCCTR      SET LOCCTR                                          COMPASS    11329          I
          -CMP30  
 COMPASS            AX1    23          BIT 23                                              COMPASS    11330          I
          -CMP30  
 COMPASS            BX7    -X7*X1                                                          COMPASS    11331          I
          -CMP30  
 COMPASS            SA7    NFOUP       SET NFOUP                                           COMPASS    11332          I
          -CMP30  
 COMPASS            AX7    X1,B1                                                           COMPASS    11333          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 733    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    POSCTR      SET POSCTR                                          COMPASS    11334          I
          -CMP30  
 COMPASS            SA1    A1+B1       3RD WORD OF USETAB ENTRY                            COMPASS    11335          I
          -CMP30  
 COMPASS            BX2    -X4*X1      BITS 20-0  BASE VALUE                               COMPASS    11336          I
          -CMP30  
 COMPASS            AX1    24          BITS 32-24   RELOCATION                             COMPASS    11337          I
          -CMP30  
 COMPASS            BX7    X1                                                              COMPASS    11338          I
          -CMP30  
 COMPASS            SA7    A6+B1       SET LOCCTR(2)                                       COMPASS    11339          I
          -CMP30  
 COMPASS            SA7    ORGCTR+1    SET ORGCTR(2)                                       COMPASS    11340          I
          -CMP30  
 COMPASS            BX6    X2                                                              COMPASS    11341          I
          -CMP30  
 COMPASS            SA1    A1+B1       4TH WORD OF USETAB ENTRY                            COMPASS    11342          I
          -CMP30  
 COMPASS            BX7    X1                                                              COMPASS    11343          I
          -CMP30  
 COMPASS            SA6    MINORG      SET MINORG                                          COMPASS    11344          I
          -CMP30  
 COMPASS            SA1    A1+B1       5TH WORD OF USETAB ENTRYP                           COMPASS    11345          I
          -CMP30  
 COMPASS            SA7    BINWORD     SET BINARY WORD                                     COMPASS    11346          I
          -CMP30  
 COMPASS            BX7    X1                                                              COMPASS    11347          I
          -CMP30  
 COMPASS            SA1    A1+B1       6TH WORD OF USETAB ENTRY                            COMPASS    11348          I
          -CMP30  
 COMPASS            SA7    BINREL                                                          COMPASS    11349          I
          -CMP30  
 COMPASS            BX7    -X4*X1                                                          COMPASS    11350          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    11351          I
          -CMP30  
 COMPASS            SA7    MAXORG      SET MAXORG                                          COMPASS    11352          I
          -CMP30  
 COMPASS            SA2    A1-5        1ST WORD OF USETAB ENTRY                            COMPASS    11353          I
          -CMP30  
 COMPASS            SA2    O.USETAB                                                        CMP30       3506     A     
 COMPASS            SA3    UI                                                              RSM4159       24     A     
 COMPASS            IX2    X2+X3       BASE ADDRESS OF BLOCK GROUP                         RSM4159       25     A     
 COMPASS            LX1    -24+2                                                           CMP30       3507     A     
 COMPASS            SB7    X1-3                                                            CMP30       3508     A     
 COMPASS            MX0    -21                                                             CMP30       3509     A     
 COMPASS            SA3    BINREL      FORM SECOND WORD OF USETAB ENTRY -                  CMP30       3510     A     
 COMPASS            SA4    POSCTR      BINREL, POSCTR, NFOUP, AND ORGCTR                   CMP30       3511     A     
 COMPASS            SA5    NFOUP                                                           CMP30       3512     A     
 COMPASS            LX3    18                                                              CMP30       3513     A     
 COMPASS            BX7    X3+X4                                                           CMP30       3514     A     
 COMPASS            SA4    ORGCTR                                                          CMP30       3515     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 734    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX7    1                                                               CMP30       3516     A     
 COMPASS            BX6    X7+X5                                                           CMP30       3517     A     
 COMPASS            BX7    -X0*X4                                                          CMP30       3518     A     
 COMPASS            LX6    23                                                              CMP30       3519     A     
 COMPASS            SA4    BINWORD     FOURTH WORD OF USETAB ENTRY - BINWORD               CMP30       3520     A     
 COMPASS            BX6    X6+X7                                                           CMP30       3521     A     
 COMPASS            SA5    ABSFG                                                           CMP30       3522     A     
 COMPASS            BX7    X4                                                              CMP30       3523     A     
 COMPASS            SA6    X2+B7                                                           CMP30       3524     A     
 COMPASS            SA7    A6+2                                                            CMP30       3525     A     
 COMPASS            LX1    24-2                                                            CMP30       3526     A     
 COMPASS            NZ     X5,USER1    IF ABSOLUTE ASSEMBLY                                CMP30       3527     A     
 COMPASS            SA3    A3+B1                                                           CMP30       3528     A     
 COMPASS            SA4    A3+B1                                                           CMP30       3529     A     
 COMPASS            SA5    O.RELTAB    SAVE PARTIAL BINARY RELOCATION                      CMP30       3530     A     
 COMPASS            SX7    B7-B1       IN RELTAB ENTRY                                     CMP30       3531     A     
 COMPASS            AX7    1                                                               CMP30       3532     A     
 COMPASS            SB7    X7                                                              CMP30       3533     A     
 COMPASS            BX6    X3                                                              CMP30       3534     A     
 COMPASS            LX7    X4                                                              CMP30       3535     A     
 COMPASS            SA6    X5+B7                                                           CMP30       3536     A     
 COMPASS            SA7    A6+B1                                                           CMP30       3537     A     
 COMPASS            SB7    X1-1        GET NEW PARTIAL BINARY RELOCATION                   CMP30       3538     A     
 COMPASS            SB7    B7+B7                                                           CMP30       3539     A     
 COMPASS            SA5    X5+B7                                                           CMP30       3540     A     
 COMPASS            SA4    A5+B1                                                           CMP30       3541     A     
 COMPASS            BX6    X5                                                              CMP30       3542     A     
 COMPASS            LX7    X4                                                              CMP30       3543     A     
 COMPASS            SA6    A3                                                              CMP30       3544     A     
 COMPASS            SA7    A3+B1                                                           CMP30       3545     A     
 COMPASS   USER1    SX3    X1-1        GET NEW BLOCK INFORMATION FROM USETAB               CMP30       3546     A     
 COMPASS            LX3    2                                                               CMP30       3547     A     
 COMPASS            SB7    X3+B1                                                           CMP30       3548     A     
 COMPASS            SA1    X2+B7       SECOND WORD OF USETAB ENTRY -                       CMP30       3549     A     
 COMPASS            BX6    -X0*X1      BINREL, POSCTR, NFOUP, ORGCTR                       CMP30       3550     A     
 COMPASS            AX1    23                                                              CMP30       3551     A     
 COMPASS            SA6    ORGCTR                                                          CMP30       3552     A     
 COMPASS            MX4    -1                                                              CMP30       3553     A     
 COMPASS            SA6    LOCCTR                                                          CMP30       3554     A     
 COMPASS            BX7    -X4*X1                                                          CMP30       3555     A     
 COMPASS            AX1    1                                                               CMP30       3556     A     
 COMPASS            SA7    NFOUP                                                           CMP30       3557     A     
 COMPASS            SX6    X1                                                              CMP30       3558     A     
 COMPASS            AX1    18                                                              CMP30       3559     A     
 COMPASS            SX7    X1                                                              CMP30       3560     A     
 COMPASS            SA6    POSCTR                                                          CMP30       3561     A     
 COMPASS            SA7    BINREL                                                          CMP30       3562     A     
 COMPASS            SA1    A1+B1       THIRD WORD OF USETAB ENTRY                          CMP30       3563     A     
 COMPASS            SA2    A1+B1       FOURTH WORD OF USETAB ENTRY - BINWORD               CMP30       3564     A     
 COMPASS            MX4    -8                                                              CMP30       3565     A     
 COMPASS            BX6    -X0*X1                                                          CMP30       3566     A     
 COMPASS            LX7    X2                                                              CMP30       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/28. 19.11.32.      PAGE 735    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    MINORG                                                          CMP30       3568     A     
 COMPASS            SA7    BINWORD                                                         CMP30       3569     A     
 COMPASS            AX1    24                                                              CMP30       3570     A     
 COMPASS            BX6    -X4*X1                                                          CMP30       3571     A     
 COMPASS            AX1    9                                                               CMP30       3572     A     
 COMPASS            BX7    X1                                                              CMP30       3573     A     
 COMPASS            SA6    ORGCTR+1                                                        CMP30       3574     A     
 COMPASS            SA7    MAXORG                                                          CMP30       3575     A     
 COMPASS            SA6    LOCCTR+1                                                        CMP30       3576     A     
 COMPASS            SA2    A1-2        FIRST WORD OF USETAB ENTRY - BLOCK NAME             CMP30       3577     A     
 COMPASS            MX6    0                                                               CMP30       3578     A     
 COMPASS            SA1    ABSFG                                                           COMPASS    11354     A     
 COMPASS            PL     X2,ZUSR1    IF NOT LCM                                          COMPASS    11355     A     
 COMPASS            BX2    -X2                                                             COMPASS    11356     A     
 COMPASS            ZR     X1,ZUSR3    IF RELOCATABLE                                      COMPASS    11357          I
          -CPSA070
 COMPASS            SA6    A7          SET MAXORG = 0                                      COMPASS    11358          I
          -CPSA070
 COMPASS            NZ     X1,ZUSR1A   IF ABSOLUTE                                 CPSA070 CPSA070        5     A     
 COMPASS            NZ     X2,ZUSR3    IF NOT BLANK COMMON                         CPSA070 CPSA070        6     A     
 COMPASS            SX2    2R//                                                    CPSA070 CPSA070        7     A     
 COMPASS            SA6    A7+         SET MAXORG = 0                              CPSA070 CPSA070        8     A     
 COMPASS            EQ     ZUSR3                                                   CPSA070 CPSA070        9     A     
 COMPASS                                                                           CPSA070 CPSA070       10     A     
 COMPASS   ZUSR1A   SA6    A7+         SET MAXORG = 0                              CPSA070 CPSA070       11     A     
 COMPASS   ZUSR1    NZ     X2,ZUSR2    IF NOT BLANK COMMON                                 COMPASS    11359     A     
 COMPASS            SX2    2R//                                                            COMPASS    11360     A     
 COMPASS            NZ     X1,ZUSR3    IF ABSOLUTE                                         COMPASS    11361     A     
 COMPASS            SA6    A7          SET MAXORG = 0                                      COMPASS    11362     A     
 COMPASS   ZUSR2    SX6    A2-B7       CHECK BLOCK NUMBER                                  COMPASS    11363          I
          -CMP30  
 COMPASS   ZUSR2    SA4    O.USETAB                                                        CMP30       3579     A     
 COMPASS            SA3    UI                                                              COMPASS    11364     A     
 COMPASS            IX4    X4+X3       BASE ADDRESS OF BLOCK GROUP                         RSM4159       26     A     
 COMPASS            IX6    X6-X3                                                           COMPASS    11365          I
          -CMP30  
 COMPASS            SX6    X6-18                                                           COMPASS    11366          I
          -CMP30  
 COMPASS            SB7    X4+3*4                                                          CMP30       3580     A     
 COMPASS            SX5    A2-B7                                                           CMP30       3581     A     
 COMPASS            IX6    X5-X3                                                           CMP30       3582     A     
 COMPASS            PL     X6,ZUSR3    IF NOT PROGRAM* OR ABSOLUTE*                        COMPASS    11367     A     
 COMPASS            MX2    0                                                               COMPASS    11368     A     
 COMPASS   ZUSR3    BX1    X2          SET BLOCK NAME IN SUB-SUBTITLE                      COMPASS    11369     A     
 COMPASS            RJ     LJUST                                                           COMPASS    11370     A     
 COMPASS            SA6    UNAME                                                           COMPASS    11371     A     
 COMPASS            RJ     DBSSZ                                                           COMPASS    11372     A     
 COMPASS            SA1    FLAG        RESET CONDITIONAL LOAD FLAG                         CMP30       3583     A     
 COMPASS            MX4    1                                                               CMP30       3584     A     
 COMPASS            BX6    X4*X1                                                           CMP30       3585     A     
 COMPASS            SA6    CLF                                                             CMP30       3586     A     
 COMPASS            EQ     USER                                                            COMPASS    11373     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 736    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   VFD      SPACE  4                                                               COMPASS    11374     A     
 COMPASS  ***       VFD - FIELD DEFINITION.                                                COMPASS    11375     A     
 COMPASS  *                                                                                COMPASS    11376     A     
 COMPASS  *                                                                                COMPASS    11377     A     
 COMPASS  *SYM      VFD    ITEM1/EXP1,ITEM2/EXP2,,,,ITEMN/EXPN                             COMPASS    11378     A     
 COMPASS  *         (SYM) IN THE LOCATION FIELD ASSIGNS THE SUBFIELDS BEGINNING            COMPASS    11379     A     
 COMPASS  *         IN A NEW WORD.  A *-* IN THE LOCATION FIELD POSITIONS                  COMPASS    11380     A     
 COMPASS  *         THE COUNTER AT THE NEXT QUARTER WORD BOUNDARY IN A CP                  COMPASS    11381     A     
 COMPASS  *         ASSEMBLY.  (ITEM) IS A SINGLE FIELD BIT COUNT, PREVIOUSLY              COMPASS    11382     A     
 COMPASS  *         DEFINED AND ABSOLUTE, MAXIMUM VALUE OF 60.  IF (EXP) IS                COMPASS    11383     A     
 COMPASS  *         NOT ABSOLUTE, THE FIELD MUST BE AT LEAST 18 BITS LONG, ENDING          COMPASS    11384     A     
 COMPASS  *         AT BIT NUMBER 0, 15, OR 30.                                            COMPASS    11385     A     
 COMPASS                                                                                   COMPASS    11386     A     
 COMPASS                                                                                   COMPASS    11387     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11388     A     
 COMPASS   VFD      SA2    LOCSYM                                                          COMPASS    11389          I
          -CPSA288
 COMPASS   VFD      SA1    LWORD       SET FIELD SIZE FOR GENERATED DATA                   CPSA288      106     A     
 COMPASS            SA2    VWORD        = LWORD FOR ALL ASSEMBLIES EXCEPT FOR              CPSA288      107     A     
 COMPASS            IX6    X1-X2          180 PPU ASSEMBLIES WITH *S* OPTION               CPSA288      108     A     
 COMPASS            SA6    WWORD                                                           CPSA288      109     A     
 COMPASS   VFD.0    SA2    LOCSYM      COMMON CODE FOR *VFD* AND *VFDL*                    CPSA288      110     A     
 COMPASS            SA3    NFOUP                                                           COMPASS    11390     A     
 COMPASS            BX2    X3+X2                                                           COMPASS    11391     A     
 COMPASS            ZR     X2,VFD1                                                         COMPASS    11392     A     
 COMPASS            MX1    0                                                               COMPASS    11393     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS    11394     A     
 COMPASS   VFD1     SX6    B0                                                              COMPASS    11395     A     
 COMPASS            SX7    B1                                                              COMPASS    11396     A     
 COMPASS            SA6    FLAG        CUMULANT FIELD COUNT                                COMPASS    11397     A     
 COMPASS            SA7    P1TEMP      ERROR FLAG                                          COMPASS    11398     A     
 COMPASS   VFD2     SA1    CHAR                                                            COMPASS    11399     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    11400     A     
 COMPASS            ZR     B7,VFD3     QUIT ON BLANK                                       COMPASS    11401     A     
 COMPASS            MX6    0                                                               COMPASS    11402     A     
 COMPASS            SA6    EXERR                                                           COMPASS    11403     A     
 COMPASS            SA1    MBASE       SET NUMBER BASE                                     COMPASS    11404     A     
 COMPASS            BX6    X1                                                              COMPASS    11405     A     
 COMPASS            SA1    NBASE       SAVE NUMBER BASE                                    COMPASS    11406     A     
 COMPASS            SA6    A1                                                              COMPASS    11407     A     
 COMPASS            BX6    X1                                                              COMPASS    11408     A     
 COMPASS            SA6    VFDA                                                            COMPASS    11409     A     
 COMPASS            SX1    15                                                              COMPASS    11410     A     
 COMPASS            RJ     YEVITEM     EVALUATE BIT COUNT                                  COMPASS    11411     A     
 COMPASS            SA2    VFDA        RESTORE NUMBER BASE                                 COMPASS    11412     A     
 COMPASS            BX6    X2                                                              COMPASS    11413     A     
 COMPASS            SA6    NBASE                                                           COMPASS    11414     A     
 COMPASS            SA2    ELREL                                                           COMPASS    11415     A     
 COMPASS            SA3    A2+B1       ELEXT  GUARANTEE ABSOLUTE RESULT                    COMPASS    11416     A     
 COMPASS            IX2    X2+X3                                                           COMPASS    11417     A     
 COMPASS            SA4    A3+B1       ELREG                                               COMPASS    11418     A     
 COMPASS            BX2    X2+X4                                                           COMPASS    11419     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 737    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    B1                                                              COMPASS    11420     A     
 COMPASS   +        ZR     X2,*+1                                                          COMPASS    11421     A     
 COMPASS            SA6    EXERR       COMPLAIN IF NOT ABSOLUTE                            COMPASS    11422     A     
 COMPASS            SA2    ELVAL                                                           COMPASS    11423     A     
 COMPASS            SX3    61                                                              COMPASS    11424     A     
 COMPASS            SB6    X1-1R/      CHECK FOR SLASH                                     COMPASS    11425     A     
 COMPASS            IX4    X2-X3       CHECK FOR EXCESSIVELY LONG                          COMPASS    11426     A     
 COMPASS   +        ZR     X2,*+1      OR NEGATIVE                                         CMP041        31     A     
 COMPASS            MI     X2,*+2                                                          CMP041        32     A     
 COMPASS   +        PL     X4,*+1      VFD BIT COUNT                                       COMPASS    11427     A     
 COMPASS            ZR     B6,*+2                                                          COMPASS    11428     A     
 COMPASS            SA6    EXERR                                                           COMPASS    11429     A     
 COMPASS   +        SA5    P1TEMP                                                          COMPASS    11430     A     
 COMPASS            SA3    EXERR                                                           COMPASS    11431     A     
 COMPASS            LX6    X5          ERROR FLAG                                          COMPASS    11432     A     
 COMPASS   +        ZR     X3,*+1                                                          COMPASS    11433     A     
 COMPASS            SX6    B0          SET ERROR FLAG                                      COMPASS    11434     A     
 COMPASS            SA6    A5                                                              COMPASS    11435     A     
 COMPASS            SA5    FLAG                                                            COMPASS    11436     A     
 COMPASS            IX7    X5+X6       UP FIELD COUNT                                      COMPASS    11437     A     
 COMPASS            SA7    A5                                                              COMPASS    11438     A     
 COMPASS            LX6    59                                                              COMPASS    11439     A     
 COMPASS            AX6    59                                                              COMPASS    11440     A     
 COMPASS            BX1    X6*X2                                                           COMPASS    11441     A     
 COMPASS            RJ     UPPOS       CALL UPPOS(VFD BIT COUNT)                           COMPASS    11442          I
          -CPSA288
 COMPASS            RJ     GETCH       THROW AWAY SLASH                                    COMPASS    11443          I
          -CPSA288
 COMPASS            MX0    59                                                              CPSA288      111     A     
 COMPASS            SA5    POSCTR      (X2) = MIN(POSCTR,WWORD)                            CPSA288      112     A     
 COMPASS            SA4    WWORD                                                           CPSA288      113     A     
 COMPASS            IX2    X4-X5                                                           CPSA288      114     A     
 COMPASS            BX5    X5-X4                                                           CPSA288      115     A     
 COMPASS            AX2    59                                                              CPSA288      116     A     
 COMPASS            BX5    -X2*X5                                                          CPSA288      117     A     
 COMPASS            BX2    X5-X4                                                           CPSA288      118     A     
 COMPASS            IX6    X2-X1       REDUCE POSITION COUNTER BY FIELD WIDTH              CPSA288      119     A     
 COMPASS            SA6    A5                                                              CPSA288      120     A     
 COMPASS            SA3    WWORD       WORD LENGTH TO USE FOR VFD                          CPSA288      121     A     
 COMPASS   VFD2A    PL     X6,VFD2B    IF STILL IN THIS WORD                               CPSA288      122     A     
 COMPASS            SA4    ORGCTR      ADVANCE ORIGIN AND LOCATION COUNTERS                CPSA288      123     A     
 COMPASS            SA5    LOCCTR                                                          CPSA288      124     A     
 COMPASS            IX6    X6+X3                                                           CPSA288      125     A     
 COMPASS            IX7    X4-X0                                                           CPSA288      126     A     
 COMPASS            SA7    A4                                                              CPSA288      127     A     
 COMPASS            IX7    X5-X0                                                           CPSA288      128     A     
 COMPASS            SA7    A5                                                              CPSA288      129     A     
 COMPASS            SA6    A6                                                              CPSA288      130     A     
 COMPASS            EQ     VFD2A       LOOP UNTIL *POSCTR* POSITIVE                        CPSA288      131     A     
 COMPASS                                                                                   CPSA288      132     A     
 COMPASS   VFD2B    RJ     GETCH       THROW AWAY SLASH                                    CPSA288      133     A     
 COMPASS            SA1    ELVAL                                                           COMPASS    11444     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 738    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     SCAD        SKIP OVER ADDRESS FIELD                             COMPASS    11445     A     
 COMPASS            SA1    POSCTR                                                          CPS010        68     A     
 COMPASS            NZ     X1,VFD2     IF NOT END OF WORD                                  CPS010        69     A     
 COMPASS            RJ     YFOUP                                                           CPS010        70     A     
 COMPASS            EQ     VFD2                                                            COMPASS    11446     A     
 COMPASS   VFD3     SA2    P1TEMP                                                          COMPASS    11447     A     
 COMPASS            SX6    B1                                                              COMPASS    11448     A     
 COMPASS            NZ     X2,CTL65                                                        COMPASS    11449     A     
 COMPASS            SA6    VERR        STORE V ERROR                                       COMPASS    11450     A     
 COMPASS            SA6    EFLG                                                            COMPASS    11451     A     
 COMPASS            EQ     CTL65                                                           COMPASS    11452     A     
 COMPASS                                                                                   COMPASS    11453     A     
 COMPASS   VFDA     DATA   0                                                               COMPASS    11454     A     
 COMPASS   VFD      SPACE  4                                                               COMPASS    11455     A     
 COMPASS  **        VFD - FIELD DEFINITION.                                                COMPASS    11456     A     
 COMPASS                                                                                   COMPASS    11457     A     
 COMPASS                                                                                   COMPASS    11458     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11459     A     
 COMPASS   VFD      SA1    NFOUP       CHECK IF LOCATION TERM NEEDS PROCESSING             COMPASS    11460          I
          -CPSA288
 COMPASS   VFD      SA1    LWORD       SET *LWORD* TO FIELD SIZE TO USE FOR VFD            CPSA288      134     A     
 COMPASS            SA2    VWORD        = ACTUAL WORD SIZE FOR ALL ASSEMBLIES              CPSA288      135     A     
 COMPASS            IX7    X1-X2          EXCEPT 180 PPUS WITH *S* OPTION                  CPSA288      136     A     
 COMPASS            BX6    X1          SAVE ACTUAL WORD SIZE IN *WWORD*                    CPSA288      137     A     
 COMPASS            SA6    WWORD                                                           CPSA288      138     A     
 COMPASS            SA7    A1                                                              CPSA288      139     A     
 COMPASS            SA5    POSCTR      SET POSCTR = MIN(POSCTR,LWORD)                      CPSA288      140     A     
 COMPASS            IX3    X7-X5                                                           CPSA288      141     A     
 COMPASS            BX5    X5-X7                                                           CPSA288      142     A     
 COMPASS            AX3    59                                                              CPSA288      143     A     
 COMPASS            BX5    -X3*X5                                                          CPSA288      144     A     
 COMPASS            BX7    X5-X7                                                           CPSA288      145     A     
 COMPASS            SA7    A5                                                              CPSA288      146     A     
 COMPASS   VFD.0    SA1    NFOUP       CHECK IF LOCATION TERM NEEDS PROCESSING             CPSA288      147     A     
 COMPASS            SA2    LOCSYM                                                          COMPASS    11461     A     
 COMPASS            SA3    POSCTR                                                          COMPASS    11462     A     
 COMPASS            SA4    LWORD                                                           COMPASS    11463     A     
 COMPASS            BX1    X2+X1                                                           COMPASS    11464     A     
 COMPASS            IX3    X4-X3                                                           COMPASS    11465     A     
 COMPASS            MX6    0                                                               COMPASS    11466     A     
 COMPASS            SX7    B1                                                              COMPASS    11467     A     
 COMPASS            SA6    P2TEMP      FIELD COUNT                                         COMPASS    11468     A     
 COMPASS            SA7    A6+B1       LISTING FLAG                                        COMPASS    11469     A     
 COMPASS   +        ZR     X3,*+1                                                          COMPASS    11470     A     
 COMPASS            ZR     X1,*+1+1                                                        COMPASS    11471     A     
 COMPASS            MX1    0                                                               COMPASS    11472     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS    11473     A     
 COMPASS   ZVFD1    MX6    0           NEW EXPRESSION                                      COMPASS    11474     A     
 COMPASS            SA2    POSCTR                                                          COMPASS    11475     A     
 COMPASS            BX7    X2                                                              COMPASS    11476     A     
 COMPASS            SA6    OPVAL       CLEAR WORD VALUE                                    COMPASS    11477     A     
 COMPASS            SA7    P2TEMPB     SAVE STARTING BIT NUMBER                            COMPASS    11478     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 739    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ZVFD2    SA1    CHAR        CHECK FOR END OF VFD                                COMPASS    11479     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    11480     A     
 COMPASS            ZR     B7,ZVFD7                                                        COMPASS    11481     A     
 COMPASS            SA1    MBASE       SET NUMBER BASE                                     COMPASS    11482     A     
 COMPASS            BX6    X1                                                              COMPASS    11483     A     
 COMPASS            SA1    NBASE       SAVE NUMBER BASE                                    COMPASS    11484     A     
 COMPASS            SA6    A1                                                              COMPASS    11485     A     
 COMPASS            BX6    X1                                                              COMPASS    11486     A     
 COMPASS            SA6    ZVFDA                                                           COMPASS    11487     A     
 COMPASS            SX1    15                                                              COMPASS    11488     A     
 COMPASS            RJ     ZEVITEM     EVALUATE BIT COUNT                                  COMPASS    11489     A     
 COMPASS            SA2    ZVFDA       RESTORE NUMBER BASE                                 COMPASS    11490     A     
 COMPASS            BX6    X2                                                              COMPASS    11491     A     
 COMPASS            SA6    NBASE                                                           COMPASS    11492     A     
 COMPASS            SA2    P2TEMP      INCREMENT FIELD COUNT                               COMPASS    11493     A     
 COMPASS            SX6    X2+B1                                                           COMPASS    11494     A     
 COMPASS            SX7    B1                                                              COMPASS    11495     A     
 COMPASS            SA6    A2                                                              COMPASS    11496     A     
 COMPASS            SA7    A2+B1       SET LIST FLAG                                       COMPASS    11497     A     
 COMPASS            SA3    FLAG        CHECK IF STILL VALID FIELD                          COMPASS    11498     A     
 COMPASS            IX4    X3-X6                                                           COMPASS    11499     A     
 COMPASS            MX7    0                                                               COMPASS    11500     A     
 COMPASS   +        PL     X4,*+1                                                          COMPASS    11501     A     
 COMPASS            SA7    ELVAL       CLEAR OUT FIELD WIDTH                               COMPASS    11502     A     
 COMPASS            RJ     GETCH       THROW AWAY SLASH                                    COMPASS    11503     A     
 COMPASS            SA1    ELVAL                                                           COMPASS    11504     A     
 COMPASS            BX6    X1          SAVE FIELD WIDTH                                    COMPASS    11505     A     
 COMPASS            SA6    P2TEMPC                                                         COMPASS    11506     A     
 COMPASS            RJ     SCAD        SCAN ADDRESS FIELD                                  COMPASS    11507     A     
 COMPASS            SA5    EXREG       CHECK FOR A REGISTER                                COMPASS    11508     A     
 COMPASS            SX6    B1                                                              COMPASS    11509     A     
 COMPASS            ZR     X5,ZVFD3A                                                       COMPASS    11510     A     
 COMPASS            SA6    AERR        *** REGISTER IN VFD FIELD                           COMPASS    11511     A     
 COMPASS            SA6    EFLG                                                            COMPASS    11512     A     
 COMPASS   ZVFD3A   SA3    P2TEMPC     MASK OUT EXPRESSION                                 COMPASS    11513     A     
 COMPASS            SA4    EXVAL                                                           COMPASS    11514     A     
 COMPASS            SB6    59                                                              COMPASS    11515     A     
 COMPASS            GT     B7,B6,ZVFD3                                                     COMPASS    11516          I
          -CMP30  
 COMPASS            SB7    X3                                                              COMPASS    11517     A     
 COMPASS            GT     B7,B6,ZVFD3 IF 60-BIT FIELD                                     CMP30       3587     A     
 COMPASS            MX0    1                                                               COMPASS    11518     A     
 COMPASS            SB6    B6-B7                                                           COMPASS    11519     A     
 COMPASS            AX0    X0,B6                                                           COMPASS    11520     A     
 COMPASS            BX6    -X0*X4                                                          COMPASS    11521     A     
 COMPASS            SA6    A4          ADDRESS FIELD VALUE                                 COMPASS    11522     A     
 COMPASS   ZVFD3    SA2    POSCTR                                                          COMPASS    11523     A     
 COMPASS            SA3    P2TEMPC                                                         COMPASS    11524          I
          -CMP30  
 COMPASS            IX7    X2-X3                                                           COMPASS    11525     A     
 COMPASS            PL     X7,ZVFD4    IF FIELD WILL FIT INTO THIS WORD                    COMPASS    11526     A     
 COMPASS            BX7    -X7         PROCESS HIGH-ORDER BITS                             COMPASS    11527     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 740    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X7                                                              COMPASS    11528          I
          -CMP30  
 COMPASS            SA4    A4+B1       EXREL                                               CMP30       3588     A     
 COMPASS            SA5    A4+B1       EXEXT                                               CMP30       3589     A     
 COMPASS            BX6    X4+X5                                                           CMP30       3590     A     
 COMPASS            ZR     X6,ZVFD3B   IF ABSOLUTE FIELD                                   CMP30       3591     A     
 COMPASS            SX6    B1                                                              CMP30       3592     A     
 COMPASS            SA6    AERR        REL/EXT FIELD MAY NOT CROSS WORD BOUNDARY           CMP30       3593     A     
 COMPASS            SA6    EFLG                                                            CMP30       3594     A     
 COMPASS   ZVFD3B   SB7    X7                                                              CMP30       3595     A     
 COMPASS            SA7    A3          STORE REDUCED FIELD WIDTH                           COMPASS    11529     A     
 COMPASS            SA4    EXVAL                                                           COMPASS    11530     A     
 COMPASS            SA5    OPVAL                                                           COMPASS    11531     A     
 COMPASS            AX1    X4,B7                                                           COMPASS    11532     A     
 COMPASS            MX0    1           CLEAR POSSIBLE OVERFLOW                             COMPASS    11533     A     
 COMPASS            SB6    B7-B1                                                           COMPASS    11534     A     
 COMPASS            AX0    X0,B6                                                           COMPASS    11535     A     
 COMPASS            BX1    -X0*X1                                                          COMPASS    11536     A     
 COMPASS            BX6    X5+X1                                                           COMPASS    11537     A     
 COMPASS            SA7    A3                                                              COMPASS    11538          I
          -CMP30  
 COMPASS            SA6    A5                                                              COMPASS    11539     A     
 COMPASS            MX7    0                                                               COMPASS    11540     A     
 COMPASS            BX1    X6                                                              COMPASS    11541     A     
 COMPASS            SA7    A2                                                              COMPASS    11542     A     
 COMPASS            SX2    36                                                              COMPASS    11543     A     
 COMPASS            SX5    B1+B1                                                           COMPASS    11544          I
          -F4820  
 COMPASS            SA3    P2TEMPB                                                         COMPASS    11545          I
          -F4820  
 COMPASS            SX4    3                                                               COMPASS    11546          I
          -F4820  
 COMPASS            SA3    PPTYPE                                                          F4820        699     A     
 COMPASS   +        SX5    B1+B1                                                           F4820        700     A     
 COMPASS            PL     X3,ZVFD3C   IF NOT HEX LISTING                                  F4820        701     A     
 COMPASS            SX6    X3+2                                                            CPSA197       31     A     
 COMPASS            MI     X6,ZVFD3C   IF NOT HEX LISTING.                                 CPSA197       32     A     
 COMPASS            SX5    X5+B1                                                           F4820        702     A     
 COMPASS            SX3    X3+B1                                                           F4820        703     A     
 COMPASS            LX3    1                                                               F4820        704     A     
 COMPASS            IX2    X2+X3                                                           F4820        705     A     
 COMPASS   ZVFD3C   SA3    P2TEMPB                                                         F4820        706     A     
 COMPASS            SB5    X3                                                              CPSA288      148     A     
 COMPASS            SX4    X5+B1                                                           F4820        707     A     
 COMPASS            IX3    X3+X5       ROUND UP                                            COMPASS    11547     A     
 COMPASS            IX3    X3/X4                                                           COMPASS    11548     A     
 COMPASS            SA4    MACHINE                                                         COMPASS    11549     A     
 COMPASS   +        ZR     X4,*+1                                                          COMPASS    11550          I
          -CPSA288
 COMPASS            SX2    25          CORRECT FOR PP LISTINGS                             COMPASS    11551          I
          -F4820  
 COMPASS            SX2    X2-11       CORRECT FOR PP LISTINGS                             F4820        708          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 741    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA288
 COMPASS            RJ     PACKO       CALL PACKO(OPVAL,36-11*MACH,NBIT/3)                 COMPASS    11552          I
          -CPSA288
 COMPASS            ZR     X4,ZVFD3D   IF CPU                                              CPSA288      149     A     
 COMPASS            SX2    X2-11       ADJUST COLUMN FOR PP LISTINGS                       CPSA288      150     A     
 COMPASS            SA4    LWORD                                                           CPSA288      151     A     
 COMPASS            SA5    WWORD                                                           CPSA288      152     A     
 COMPASS            IX5    X4-X5                                                           CPSA288      153     A     
 COMPASS            ZR     X5,ZVFD3D   IF NOT USING ONLY LOWER 12 BITS IN WORD             CPSA288      154     A     
 COMPASS            SB5    B5-12                                                           CPSA288      155     A     
 COMPASS            NZ     B5,ZVFD3D   IF LINE NOT BEGUN AT TOP OF WORD                    CPSA288      156     A     
 COMPASS            SX3    X3+2        SET TO SHOW TWO LEADING ZEROS                       CPSA288      157     A     
 COMPASS   ZVFD3D   RJ     PACKO       CALL PACKO (OPVAL, 36-11*MACH, NBIT/3)              CPSA288      158     A     
 COMPASS            SA1    OPVAL                                                           COMPASS    11553     A     
 COMPASS            SA2    P2TEMPB                                                         COMPASS    11554     A     
 COMPASS            SX3    B0                                                              COMPASS    11555     A     
 COMPASS            BX4    X3                                                              COMPASS    11556     A     
 COMPASS            RJ     BINOUT                                                          COMPASS    11557     A     
 COMPASS            SX6    B0          CLEAR DETAIL FLAG                                   COMPASS    11558     A     
 COMPASS            SA6    DETFLG                                                          COMPASS    11559     A     
 COMPASS            RJ     LISTERG     LIST THE LINE                                       COMPASS    11560     A     
 COMPASS            MX6    0                                                               COMPASS    11561     A     
 COMPASS            SA6    LOCSYM                                                          COMPASS    11562     A     
 COMPASS            SA6    OPVAL                                                           COMPASS    11563     A     
 COMPASS            BX1    X6                                                              COMPASS    11564     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS    11565     A     
 COMPASS            SA1    POSCTR                                                          COMPASS    11566     A     
 COMPASS            BX6    X1                                                              COMPASS    11567     A     
 COMPASS            SA6    P2TEMPB     RESET POSITION ORIGIN                               COMPASS    11568     A     
 COMPASS            EQ     ZVFD3A      RETURN FOR LOW ORDER PART                           COMPASS    11569     A     
 COMPASS                                                                                   COMPASS    11570     A     
 COMPASS   ZVFD4    SA7    A2          ROOM LEFT IN WORD FOR THIS SUBFIELD                 COMPASS    11571     A     
 COMPASS            SB7    X7          SHIFT LEFT INTO POSITION                            COMPASS    11572     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    11573     A     
 COMPASS            SA3    OPVAL                                                           COMPASS    11574     A     
 COMPASS            LX4    X2,B7                                                           COMPASS    11575     A     
 COMPASS            BX6    X4+X3       OR INTO VALUE                                       COMPASS    11576     A     
 COMPASS            SA6    A3                                                              COMPASS    11577     A     
 COMPASS            SA2    EXREL       CHECK FOR RELOCATABLE FIELDS                        COMPASS    11578     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    11579     A     
 COMPASS            BX4    X2+X3                                                           COMPASS    11580     A     
 COMPASS            ZR     X4,ZVFD5    IF ABSOLUTE FIELD                                   COMPASS    11581          I
          -CMP30  
 COMPASS            SA2    P2TEMPC     VERIFY RELOCATABLIITY OF FIELD                      COMPASS    11582          I
          -CMP30  
 COMPASS            SA3    POSCTR                                                          COMPASS    11583          I
          -CMP30  
 COMPASS            SB7    X2-18                                                           COMPASS    11584          I
          -CMP30  
 COMPASS            NG     B7,ZVFD4A   FIELD NOT LONG ENOUGH FOR RELOCAT.                  COMPASS    11585          I
          -CMP30  
 COMPASS            ZR     X3,ZVFD6    POSCTR = 0                                          COMPASS    11586          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 742    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SB7    X3-15                                                           COMPASS    11587          I
          -CMP30  
 COMPASS            SB6    X3-30                                                           COMPASS    11588          I
          -CMP30  
 COMPASS            ZR     B7,ZVFD6    POSCTR = 15                                         COMPASS    11589          I
          -CMP30  
 COMPASS            ZR     B6,ZVFD6    POSCTR = 30                                         COMPASS    11590          I
          -CMP30  
 COMPASS   ZVFD4A   SX6    B1          COMPLAIN                                            COMPASS    11591          I
          -CMP30  
 COMPASS            SA6    AERR                                                            COMPASS    11592          I
          -CMP30  
 COMPASS            SA6    EFLG                                                            COMPASS    11593          I
          -CMP30  
 COMPASS   ZVFD5    SA2    POSCTR      CHECK FOR BOTTOM OF WORD                            COMPASS    11594          I
          -CMP30  
 COMPASS            NZ     X4,ZVFD6    IF NOT ABSOLUTE FIELD                               CMP30       3596     A     
 COMPASS            SA2    POSCTR      CHECK FOR BOTTOM OF WORD                            CMP30       3597     A     
 COMPASS            NZ     X2,ZVFD2                                                        COMPASS    11595     A     
 COMPASS   ZVFD6    SA1    POSCTR      OUTPUT VALUES AT BOTTOM OF WORD OR                  COMPASS    11596     A     
 COMPASS            MX0    58          AT RELOCATABLE FIELD                                COMPASS    11597     A     
 COMPASS            SB2    X1                                                              COMPASS    11598     A     
 COMPASS            IX2    X1/X0                                                           COMPASS    11599     A     
 COMPASS            SA3    MACHINE                                                         COMPASS    11600     A     
 COMPASS            SA4    PPTYPE                                                          F4820        709     A     
 COMPASS   +        ZR     X3,*+1                                                          COMPASS    11601     A     
 COMPASS            SX2    X2-11                                                           COMPASS    11602     A     
 COMPASS            SA3    P2TEMPB                                                         COMPASS    11603     A     
 COMPASS            SB5    X3                                                              CPSA288      159     A     
 COMPASS            SA5    OPVAL                                                           COMPASS    11604     A     
 COMPASS            SA1    A1                                                              COMPASS    11605     A     
 COMPASS            IX3    X3-X1                                                           COMPASS    11606     A     
 COMPASS            SX2    X2+36                                                           COMPASS    11607     A     
 COMPASS            SX3    X3+2        ROUND UP                                            COMPASS    11608          I
          -F4820  
 COMPASS   +        SX1    B1+B1                                                           F4820        710     A     
 COMPASS            PL     X4,ZVFD6B   IF NOT HEX LISTING                                  F4820        711     A     
 COMPASS            SX6    X4+2                                                            CPSA197       33     A     
 COMPASS            MI     X6,ZVFD6B   IF NOT HEX LISTING.                                 CPSA197       34     A     
 COMPASS            SX1    X1+B1                                                           F4820        712     A     
 COMPASS            SX4    X4+B1                                                           F4820        713     A     
 COMPASS            LX4    1                                                               F4820        714     A     
 COMPASS            IX2    X2+X4                                                           F4820        715     A     
 COMPASS   ZVFD6B   IX3    X3+X1       ROUND UP                                            F4820        716     A     
 COMPASS            SX0    X1+B1                                                           F4820        717          I
          -CPS0329
 COMPASS            SX4    X1+B1       NUMBER OF BITS PER DIGIT                            CPS0329        6     A     
 COMPASS            SX0    3           PREPARE VALUE FOR LISTING.                  CPSA094 CPSA094        5     A     
 COMPASS            SX1    B2          NUMBER OF BITS LEFT AFTER THIS EXPRESSION.  CPSA094 CPSA094        6     A     
 COMPASS            IX1    X1/X0       NUMBER OF EMPTY COLUMNS LEFT.               CPSA094 CPSA094        7     A     
 COMPASS            SX0    3           DETERMINE NO. OF BITS TO SHIFT RIGHT.       CPSA094 CPSA094        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/28. 19.11.32.      PAGE 743    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX1    X1*X0       NUMBER OF BITS TO SHIFT RIGHT TO PREPARE    CPSA094 CPSA094        9     A     
 COMPASS            SB7    X1           FOR ENTRY OF VALUE INTO *OCTAL* AREA.      CPSA094 CPSA094       10     A     
 COMPASS            AX1    X5,B7       SHIFT INTO POSITION FOR LISTING.            CPSA094 CPSA094       11     A     
 COMPASS            AX1    X5,B2                                                           COMPASS    11609          I
          -CPS076X
 COMPASS            SX0    3                                                               COMPASS    11610          I
          -F4820  
 COMPASS            BX4    X0                                                              CPS076X        6          I
          -CPSA094
 COMPASS            IX3    X3/X0                                                           COMPASS    11611          I
          -CPS0329
 COMPASS            IX3    X3/X4       SET NUMBER OF DIGITS                                CPS0329        7     A     
 COMPASS            RJ     PACKOR                                                          COMPASS    11612          I
          -CPS076X
 COMPASS            SX7    20          DETERMINE THE NO. OF BITS TO SHIFT RIGHT.           CPS076X        7          I
          -CPSA094
 COMPASS            IX7    X7-X3       THIS IS (20-NO. OF COLS. BEING LISTED)*3.           CPS076X        8          I
          -CPSA094
 COMPASS            IX7    X7*X4       OPVAL WILL BE SHIFTED RIGHT BY THIS NUMBER,         CPS076X        9          I
          -CPSA094
 COMPASS            SB7    X7          PACKED INTO *OCTAL* AREA AND LATER LISTED.          CPS076X       10          I
          -CPSA094
 COMPASS            AX1    X5,B7       RIGHT JUSTIFY THE VALUE TO BE LISTED.               CPS076X       11          I
          -CPSA094
 COMPASS            RJ     PACKOR      PACK OCTAL DIGITS AND RELOCATION INDICATOR.         CPS076X       12          I
          -CPSA288
 COMPASS            SA4    LWORD                                                           CPSA288      160     A     
 COMPASS            SA5    WWORD                                                           CPSA288      161     A     
 COMPASS            IX5    X4-X5                                                           CPSA288      162     A     
 COMPASS            ZR     X5,ZVFD6C   IF NOT USING ONLY LOWER 12 BITS IN WORD             CPSA288      163     A     
 COMPASS            SB5    B5-12                                                           CPSA288      164     A     
 COMPASS            NZ     B5,ZVFD6C   IF LINE NOT BEGUN AT TOP OF WORD                    CPSA288      165     A     
 COMPASS            SX3    X3+2        SET TO SHOW TWO LEADING ZEROS                       CPSA288      166     A     
 COMPASS   ZVFD6C   RJ     PACKOR      PACK OCTAL DIGITS AND RELOCATION INDICATOR          CPSA288      167     A     
 COMPASS            SA1    POSCTR      OUTPUT BINARY VALUES                                COMPASS    11613     A     
 COMPASS            SA2    P2TEMPB                                                         COMPASS    11614     A     
 COMPASS            SA3    EXREL                                                           COMPASS    11615     A     
 COMPASS            SA4    A3+B1                                                           COMPASS    11616     A     
 COMPASS            SB7    X1                                                              CMP30       3598     A     
 COMPASS            SA5    OPVAL                                                           COMPASS    11617     A     
 COMPASS            MX6    0                                                               COMPASS    11618          I
          -CMP30  
 COMPASS            BX7    X3+X4                                                           CMP30       3599     A     
 COMPASS            IX2    X2-X1                                                           COMPASS    11619     A     
 COMPASS            SB7    X1                                                              COMPASS    11620          I
          -CMP30  
 COMPASS            ZR     X7,ZVFD6A   IF ABSOLUTE FIELD                                   CMP30       3600     A     
 COMPASS            SA1    A2+B1                                                           CMP30       3601     A     
 COMPASS            IX6    X2-X1                                                           CMP30       3602     A     
 COMPASS            ZR     X6,ZVFD6A   IF NO PRECEDING ABSOLUTE FIELD                      CMP30       3603     A     
 COMPASS            SA4    POSCTR                                                          CMP30       3604     A     
 COMPASS            AX5    B7                                                              CMP30       3605     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 744    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX2    X6                                                              CMP30       3606     A     
 COMPASS            SB7    X1                                                              CMP30       3607     A     
 COMPASS            IX6    X4+X1                                                           CMP30       3608     A     
 COMPASS            SX3    B0                                                              CMP30       3609     A     
 COMPASS            BX4    X4-X4                                                           CMP30       3610     A     
 COMPASS            AX1    X5,B7                                                           CMP30       3611     A     
 COMPASS            SA6    A4                                                              CMP30       3612     A     
 COMPASS            RJ     BINOUT      OUTPUT ABSOLUTE FIELD                               CMP30       3613     A     
 COMPASS            SA1    POSCTR                                                          CMP30       3614     A     
 COMPASS            SA2    P2TEMPC                                                         CMP30       3615     A     
 COMPASS            SA3    EXREL                                                           CMP30       3616     A     
 COMPASS            SA4    A3+B1                                                           CMP30       3617     A     
 COMPASS            IX7    X1-X2                                                           CMP30       3618     A     
 COMPASS            SA5    OPVAL                                                           CMP30       3619     A     
 COMPASS            SB7    X7                                                              CMP30       3620     A     
 COMPASS            SA7    A1                                                              CMP30       3621     A     
 COMPASS   ZVFD6A   BX6    X6-X6                                                           CMP30       3622     A     
 COMPASS            AX1    X5,B7                                                           COMPASS    11621     A     
 COMPASS            SA6    P2TEMPA                                                         COMPASS    11622     A     
 COMPASS            RJ     BINOUT                                                          COMPASS    11623     A     
 COMPASS            SX6    B0          CLEAR DETAIL FLAG                                   COMPASS    11624     A     
 COMPASS            SA6    DETFLG                                                          COMPASS    11625     A     
 COMPASS            RJ     LISTERG                                                         COMPASS    11626     A     
 COMPASS            SA1    POSCTR                                                          COMPASS    11627     A     
 COMPASS            NZ     X1,ZVFD1                                                        COMPASS    11628     A     
 COMPASS            RJ     ZPRLOC      PROCESS LOCATION AT TOP OF WORD                     COMPASS    11629     A     
 COMPASS            EQ     ZVFD1                                                           COMPASS    11630     A     
 COMPASS                                                                                   COMPASS    11631     A     
 COMPASS   ZVFD7    SA2    P2TEMPA     FINISH OFF VFD PROCESSING                           COMPASS    11632     A     
 COMPASS            NZ     X2,ZVFD8    IF NOT END OF STATEMENT                             COMPASS    11633     A     
 COMPASS            SX1    1R          CLEAR OCTAL ADDRESS                                 COMPASS    11634     A     
 COMPASS            SX2    OCTAL+8                                                         COMPASS    11635     A     
 COMPASS            SX3    OCTAL+14                                                        COMPASS    11636     A     
 COMPASS            RJ     PRESET                                                          COMPASS    11637     A     
 COMPASS            SA3    VWORD                                                           CPSA288      168     A     
 COMPASS            ZR     X3,Z100     IF NOT CIPPU  ,S                                    CPSA288      169     A     
 COMPASS            SA4    WWORD       RESTORE *LWORD* TO ACTUAL WORD SIZE                 CPSA288      170     A     
 COMPASS            BX7    X4                                                              CPSA288      171     A     
 COMPASS            SA7    LWORD                                                           CPSA288      172     A     
 COMPASS            SA7    POSCTR      RESET POSITION COUNTER TO UPPER                     CPSA288      173     A     
 COMPASS            EQ     Z100                                                            COMPASS    11638     A     
 COMPASS   ZVFD8    SA1    POSCTR                                                          COMPASS    11639     A     
 COMPASS            SX7    3                                                               COMPASS    11640          I
          -F4820  
 COMPASS            SA4    PPTYPE                                                          F4820        718     A     
 COMPASS   +        SB5    B1+B1                                                           F4820        719     A     
 COMPASS            SX2    36                                                              F4820        720     A     
 COMPASS            PL     X4,ZVFD8A   IF NOT HEX ASSEMBLY                                 F4820        721     A     
 COMPASS            SB7    X4+2                                                            CPSA213       27     A     
 COMPASS            MI     B7,ZVFD8A   IF NOT HEX ASSEMBLY.                                CPSA213       28     A     
 COMPASS            SX4    X4+B1                                                           F4820        722     A     
 COMPASS            LX4    1                                                               F4820        723     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 745    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX2    X2+X4                                                           F4820        724     A     
 COMPASS            SB5    B5+B1                                                           F4820        725     A     
 COMPASS   ZVFD8A   SX7    B5+B1                                                           F4820        726     A     
 COMPASS            IX0    X1/X7                                                           COMPASS    11641     A     
 COMPASS            SA5    OPVAL                                                           COMPASS    11642     A     
 COMPASS            LX2    X0,B1                                                           COMPASS    11643          I
          -F4820  
 COMPASS            IX3    X2+X0                                                           COMPASS    11644          I
          -F4820  
 COMPASS            SX7    B5+B1                                                           F4820        727     A     
 COMPASS            DX3    X0*X7                                                           F4820        728     A     
 COMPASS            UX0    X0                                                              F4820        729     A     
 COMPASS            SB6    X3                                                              COMPASS    11645     A     
 COMPASS            AX1    X5,B6       POSITION VALUE                                      COMPASS    11646     A     
 COMPASS            SX2    36                                                              COMPASS    11647          I
          -F4820  
 COMPASS            SA3    MACHINE                                                         COMPASS    11648     A     
 COMPASS   +        ZR     X3,*+1                                                          COMPASS    11649     A     
 COMPASS            SX2    25                                                              COMPASS    11650          I
          -F4820  
 COMPASS            SX2    X2-11                                                           F4820        730     A     
 COMPASS            IX2    X2-X0                                                           COMPASS    11651     A     
 COMPASS            SA3    P2TEMPB                                                         COMPASS    11652     A     
 COMPASS            SB3    X3                                                              CPSA288      174     A     
 COMPASS            SX4    X3+2                                                            COMPASS    11653          I
          -F4820  
 COMPASS            SX7    3                                                               COMPASS    11654          I
          -F4820  
 COMPASS            SX4    X3+B5                                                           F4820        731     A     
 COMPASS            SX7    B5+B1                                                           F4820        732     A     
 COMPASS            IX3    X4/X7                                                           COMPASS    11655     A     
 COMPASS            IX3    X3-X0                                                           COMPASS    11656     A     
 COMPASS            RJ     PACKO                                                           COMPASS    11657          I
          -CPSA288
 COMPASS            SA4    LWORD                                                           CPSA288      175     A     
 COMPASS            SA5    WWORD                                                           CPSA288      176     A     
 COMPASS            IX5    X4-X5                                                           CPSA288      177     A     
 COMPASS            ZR     X5,ZVFD8B   IF NOT USING ONLY LOWER 12 BITS IN WORD             CPSA288      178     A     
 COMPASS            SB3    B3-12                                                           CPSA288      179     A     
 COMPASS            NZ     B3,ZVFD8B   IF LINE NOT BEGUN AT TOP OF WORD                    CPSA288      180     A     
 COMPASS            SX3    X3+2        SET TO SHOW TWO LEADING ZEROS                       CPSA288      181     A     
 COMPASS   ZVFD8B   RJ     PACKO       PACK OCTAL DIGITS                                   CPSA288      182     A     
 COMPASS            SA1    POSCTR                                                          COMPASS    11658     A     
 COMPASS            SB7    X1                                                              COMPASS    11659     A     
 COMPASS            SA4    OPVAL                                                           COMPASS    11660     A     
 COMPASS            SA3    P2TEMPB                                                         COMPASS    11661     A     
 COMPASS            IX2    X3-X1                                                           COMPASS    11662     A     
 COMPASS            AX1    X4,B7                                                           COMPASS    11663     A     
 COMPASS            MX3    0                                                               COMPASS    11664     A     
 COMPASS            BX4    X3                                                              COMPASS    11665     A     
 COMPASS            RJ     BINOUT                                                          COMPASS    11666     A     
 COMPASS            SX6    B0          CLEAR DETAIL FLAG                                   COMPASS    11667     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 746    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    DETFLG                                                          COMPASS    11668     A     
 COMPASS            SA4    WWORD       RESTORE *LWORD* TO ACTUAL WORD SIZE                 CPSA288      183     A     
 COMPASS            BX7    X4                                                              CPSA288      184     A     
 COMPASS            SA7    LWORD                                                           CPSA288      185     A     
 COMPASS            EQ     ZLISTG                                                          COMPASS    11669     A     
 COMPASS                                                                                   COMPASS    11670     A     
 COMPASS   ZVFDA    DATA   0                                                               COMPASS    11671     A     
 COMPASS   VFDL     SPACE  4,10                                                            CPSA288      186     A     
 COMPASS  ***       VFDL - FIELD DEFINITION.                                               CPSA288      187     A     
 COMPASS  *                                                                                CPSA288      188     A     
 COMPASS  *                                                                                CPSA288      189     A     
 COMPASS  *SYM      VFDL   ITEM1/EXP1,ITEM2/EXP2,...,ITEMN/EXPN                            CPSA288      190     A     
 COMPASS  *         LEGAL ONLY FOR 180 PPU ASSEMBLIES.  SAME AS VFD, EXCEPT IT             CPSA288      191     A     
 COMPASS  *         OVERRIDES THE 12-BIT FIELD SIZE SPECIFIED FOR 180 PPU                  CPSA288      192     A     
 COMPASS  *         ASSEMBLIES BY (CIPPU  ,S).                                             CPSA288      193     A     
 COMPASS                                                                                   CPSA288      194     A     
 COMPASS            QUAL   PASS1                                                           CPSA288      195     A     
 COMPASS   VFDL     SA1    PPTYPE                                                          CPSA288      196     A     
 COMPASS            SX1    X1+3                                                            CPSA288      197     A     
 COMPASS            ZR     X1,VFDL1    IF 180 PPU ASSEMBLY                                 CPSA288      198     A     
 COMPASS            SX6    B1          *VFDL* ILLEGAL, POST O-ERROR                        CPSA288      199     A     
 COMPASS            SA6    EFLG                                                            CPSA288      200     A     
 COMPASS            SA6    OERR                                                            CPSA288      201     A     
 COMPASS   VFDL1    SA1    LWORD       SET WORD SIZE ALWAYS USE FULL WORD                  CPSA288      202     A     
 COMPASS            BX6    X1                                                              CPSA288      203     A     
 COMPASS            SA6    WWORD                                                           CPSA288      204     A     
 COMPASS            EQ     VFD.0       GO TO COMMON *VFD* PROCESSING                       CPSA288      205     A     
 COMPASS            SPACE  4,10                                                            CPSA288      206     A     
 COMPASS  **        VFDL - FIELD DEFINITION.                                               CPSA288      207     A     
 COMPASS                                                                                   CPSA288      208     A     
 COMPASS                                                                                   CPSA288      209     A     
 COMPASS            QUAL   PASS2                                                           CPSA288      210     A     
 COMPASS   VFDL     SA1    LWORD       SET WORD SIZE TO ALWAYS USE FULL WORD               CPSA288      211     A     
 COMPASS            BX6    X1                                                              CPSA288      212     A     
 COMPASS            SA6    WWORD                                                           CPSA288      213     A     
 COMPASS            EQ     VFD.0       GO TO COMMON *VFD* PROCESSING                       CPSA288      214     A     
 COMPASS   XREF     SPACE  4                                                               COMPASS    11672     A     
 COMPASS  ***       XREF - SET TYPE OF CROSS REFERENCE DESIRED.                            COMPASS    11673     A     
 COMPASS  *                                                                                COMPASS    11674     A     
 COMPASS  *                                                                                COMPASS    11675     A     
 COMPASS  *         XREF   CHAR                                                            COMPASS    11676     A     
 COMPASS  *         (CHAR) = P SET PAGE/LINE CROSS REFERENCE.                              COMPASS    11677     A     
 COMPASS  *                  A SET ADDRESS CROSS REFERENCE.                                COMPASS    11678     A     
 COMPASS  *                  B SET BOTH PAGE/LINE AND ADDRESS.                             COMPASS    11679     A     
 COMPASS                                                                                   COMPASS    11680     A     
 COMPASS                                                                                   COMPASS    11681     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11682     A     
 COMPASS   XREF     SA1    CHAR                                                            COMPASS    11683     A     
 COMPASS            SB3    X1-1RA                                                          COMPASS    11684     A     
 COMPASS            NZ     B3,XREF1    IF NOT ADDRESS                                      COMPASS    11685     A     
 COMPASS            SX6    B0          SET ADDRESS                                         COMPASS    11686     A     
 COMPASS            EQ     XREF3                                                           COMPASS    11687     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 747    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   XREF1    SB3    X1-1RB                                                          COMPASS    11688     A     
 COMPASS            NZ     B3,XREF2    IF NOT BOTH                                         COMPASS    11689     A     
 COMPASS            SX6    B1          SET BOTH                                            COMPASS    11690     A     
 COMPASS            EQ     XREF3                                                           COMPASS    11691     A     
 COMPASS   XREF2    SX6    -B1         SET PAGE/LINE                                       COMPASS    11692     A     
 COMPASS   XREF3    SA6    XR                                                              COMPASS    11693     A     
 COMPASS            EQ     CTL300                                                          COMPASS    11694     A     
 COMPASS   XREF     SPACE  4                                                               COMPASS    11695     A     
 COMPASS  **        XREF - SET TYPE OF CROSS REFERENCE DESIRED.                            COMPASS    11696     A     
 COMPASS                                                                                   COMPASS    11697     A     
 COMPASS                                                                                   COMPASS    11698     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11699     A     
 COMPASS   XREF     EQU    ZLIST                                                           COMPASS    11700     A     
 COMPASS   XTEXT    SPACE  4                                                               COMPASS    11701          I
          -CMP20  
 COMPASS  ***       XTEXT - EXTERNAL INPUT.                                                COMPASS    11702          I
          -CMP20  
 COMPASS  *                                                                                COMPASS    11703          I
          -CMP20  
 COMPASS  *                                                                                COMPASS    11704          I
          -CMP20  
 COMPASS  *FILE     XTEXT  RNAME                                                           COMPASS    11705          I
          -CMP20  
 COMPASS  *         ASSEMBLES SOURCE STATEMENTS OR (MODIFY) COMMON DECKS FROM              COMPASS    11706          I
          -CMP20  
 COMPASS  *         (FILE) STARTING AT (RNAME).  AN END-OF-RECORD CONDITION                COMPASS    11707          I
          -CMP20  
 COMPASS  *         TERMINATES ASSEMBLY OF THE (MODIFY) COMMON DECKS.                      COMPASS    11708          I
          -CMP20  
 COMPASS  *         AN END-OF-RECORD OR AN (END) CARD TERMINATES ASSEMBLY OF               COMPASS    11709          I
          -CMP20  
 COMPASS  *         TEXT.  IF (FILE) IS BLANK FILE (OPL) IS ASSUMED.                       COMPASS    11710          I
          -CMP20  
 COMPASS  *         IF (RNAME) IS BLANK,  ASSEMBLY STARTS FROM THE CURRENT                 COMPASS    11711          I
          -CMP20  
 COMPASS  *         FILE POSITION.                                                         COMPASS    11712          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11713          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11714          I
          -CMP20  
 COMPASS            QUAL   PASS1                                                           COMPASS    11715          I
          -CMP20  
 COMPASS   XTEXT    SA1    B                                                               COMPASS    11716          I
          -CMP20  
 COMPASS            ZR     X1,*+2                                                          COMPASS    11717          I
          -CMP20  
 COMPASS            RECALL B                                                               COMPASS    11718          I
          -CMP20  
 COMPASS            SA1    X                                                               COMPASS    11719          I
          -CMP20  
 COMPASS            ZR     X1,*+2                                                          COMPASS    11720          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 748    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS            RECALL X                                                               COMPASS    11721          I
          -CMP20  
 COMPASS            SA2    BADLOC                                                          COMPASS    11722          I
          -CMP20  
 COMPASS            SA3    LOCSYM                                                          COMPASS    11723          I
          -CMP20  
 COMPASS            NZ     X2,XTEXTER  COMPLAIN IF BAD LOCATION SYMBOL                     COMPASS    11724          I
          -CMP20  
 COMPASS            NZ     X3,XTX1     IF FILE NAME                                        COMPASS    11725          I
          -CMP20  
 COMPASS            SA3    XNAME       SET DEFAULT FILE NAME                               COMPASS    11726          I
          -CMP20  
 COMPASS            MX0    6                                                               COMPASS    11727          I
          -CMP20  
 COMPASS   +        LX3    6           RIGHT JUSTIFY FILE NAME                             COMPASS    11728          I
          -CMP20  
 COMPASS            BX6    X0*X3                                                           COMPASS    11729          I
          -CMP20  
 COMPASS            NZ     X6,*                                                            COMPASS    11730          I
          -CMP20  
 COMPASS   XTX1     MX0    18                                                              COMPASS    11731          I
          -CMP20  
 COMPASS            BX4    X3*X0                                                           COMPASS    11732          I
          -CMP20  
 COMPASS            NZ     X4,XTEXTER  IF GREATER THAN 7 CHARACTERS                        COMPASS    11733          I
          -CMP20  
 COMPASS            MX0    12          LEFT JUSTIFY FILE NAME                              COMPASS    11734          I
          -CMP20  
 COMPASS            BX6    X3          SAVE FILE NAME FOR SEQUENCE FIELDS                  COMPASS    11735          I
          -CMP20  
 COMPASS            SA6    P1TEMPA                                                         COMPASS    11736          I
          -CMP20  
 COMPASS   +        BX6    X0*X3                                                           COMPASS    11737          I
          -CMP20  
 COMPASS            LX3    6                                                               COMPASS    11738          I
          -CMP20  
 COMPASS            ZR     X6,*                                                            COMPASS    11739          I
          -CMP20  
 COMPASS            SX1    B1                                                              COMPASS    11740          I
          -CMP20  
 COMPASS            BX6    X1+X3                                                           COMPASS    11741          I
          -CMP20  
 COMPASS            SA6    X                                                               COMPASS    11742          I
          -CMP20  
 COMPASS            PL     X6,XTEXT1   IF FILE NAME NON-NUMERIC                            COMPASS    11743          I
          -CMP20  
 COMPASS   XTEXTER  SX6    B1                                                              COMPASS    11744          I
          -CMP20  
 COMPASS            SA6    EFLG                                                            COMPASS    11745          I
          -CMP20  
 COMPASS            SA6    LERR        POST BAD LOCATION SYMBOL                            COMPASS    11746          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 749    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS            EQ     CTL70                                                           COMPASS    11747          I
          -CMP20  
 COMPASS   XTEXT1   REWIND X                                                               COMPASS    11748          I
          -CMP20  
 COMPASS            RJ     SCITEM      GET RECORD NAME                                     COMPASS    11749          I
          -CMP20  
 COMPASS            ZR     X6,XTEXT1A  IF NO NAME                                          COMPASS    11750          I
          -CMP20  
 COMPASS            MX0    12          LEFT JUSTIFY NAME                                   COMPASS    11751          I
          -CMP20  
 COMPASS   +        BX3    X0*X6                                                           COMPASS    11752          I
          -CMP20  
 COMPASS            LX6    6                                                               COMPASS    11753          I
          -CMP20  
 COMPASS            ZR     X3,*                                                            COMPASS    11754          I
          -CMP20  
 COMPASS            SA6    P1TEMPB                                                         COMPASS    11755          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11756          I
          -CMP20  
 COMPASS  *         READ RANDOM INDEX AND SEARCH FOR RECORD.                               COMPASS    11757          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11758          I
          -CMP20  
 COMPASS            SKIPEI X           READ INDEX                                          COMPASS    11759          I
          -CMP20  
 COMPASS            SKIPB  X,2                                                             COMPASS    11760          I
          -CMP20  
 COMPASS            READ   X                                                               COMPASS    11761          I
          -CMP20  
 COMPASS   XTX2     READW  X,VALUES,1                                                      COMPASS    11762          I
          -CMP20  
 COMPASS            ZR     X1,XTX12    IF NOT EOR READ                                     COMPASS    11763          I
          -CMP20  
 COMPASS            EVICT  X,R                                                             COMPASS    11764          I
          -CMP20  
 COMPASS            ASSIGN X                                                               COMPASS    11765          I
          -CMP20  
 COMPASS            SA1    X           CHECK ERROR RESPONSE                                COMPASS    11766          I
          -CMP20  
 COMPASS            SX2    X1                                                              COMPASS    11767          I
          -CMP20  
 COMPASS            AX2    10                                                              COMPASS    11768          I
          -CMP20  
 COMPASS            NZ     X2,XTEXTU   IF NO OPL FILE                                      COMPASS    11769          I
          -CMP20  
 COMPASS            SKIPEI X           READ INDEX                                          COMPASS    11770          I
          -CMP20  
 COMPASS            SKIPB  X,2                                                             COMPASS    11771          I
          -CMP20  
 COMPASS            READ   X2                                                              COMPASS    11772          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 750    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS   XTX11    READW  X,VALUES,1                                                      COMPASS    11773          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTU   IF EOR READ                                         COMPASS    11774          I
          -CMP20  
 COMPASS   XTX12    SA1    VALUES      CHECK FOR 7700 TABLE                                COMPASS    11775          I
          -CMP20  
 COMPASS            LX1    18                                                              COMPASS    11776          I
          -CMP20  
 COMPASS            SX7    X1-770000B                                                      COMPASS    11777          I
          -CMP20  
 COMPASS            NZ     X7,XTX3     IF NOT 7700 TABLE                                   COMPASS    11778          I
          -CMP20  
 COMPASS            LX1    6           SKIP 7700 TABLE                                     COMPASS    11779          I
          -CMP20  
 COMPASS            READW  X,VALUES,X1                                                     COMPASS    11780          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTU   IF EOR READ                                         COMPASS    11781          I
          -CMP20  
 COMPASS            EQ     XTX11       READ NEXT TABLE                                     COMPASS    11782          I
          -CMP20  
 COMPASS   XTX3     SX7    X1-700000B                                                      COMPASS    11783          I
          -CMP20  
 COMPASS            NZ     X7,XTEXTU   IF NOT OPLD                                         COMPASS    11784          I
          -CMP20  
 COMPASS            SA1    A1                                                              COMPASS    11785          I
          -CMP20  
 COMPASS            SX6    X1          SET TABLE LENGTH                                    COMPASS    11786          I
          -CMP20  
 COMPASS            SA6    P1TEMP                                                          COMPASS    11787          I
          -CMP20  
 COMPASS            SA1    P1TEMPB                                                         COMPASS    11788          I
          -CMP20  
 COMPASS            BX0    X1          SEARCH FOR RECORD NAME                              COMPASS    11789          I
          -CMP20  
 COMPASS            SA5    P1TEMP                                                          COMPASS    11790          I
          -CMP20  
 COMPASS   XTX4     READW  X,VALUES,2  CHECK RECORD NAME                                   COMPASS    11791          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTU   IF RECORD NOT FOUND                                 COMPASS    11792          I
          -CMP20  
 COMPASS            SA1    VALUES                                                          COMPASS    11793          I
          -CMP20  
 COMPASS            BX6    X1-X0                                                           COMPASS    11794          I
          -CMP20  
 COMPASS            SX5    X5-2                                                            COMPASS    11795          I
          -CMP20  
 COMPASS            ZR     X6,XTEXT1B  IF RECORD FOUND                                     COMPASS    11796          I
          -CMP20  
 COMPASS            SX4    7                                                               COMPASS    11797          I
          -CMP20  
 COMPASS            BX6    X6-X4                                                           COMPASS    11798          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 751    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS            ZR     X6,XTEXT1B  IF RECORD FOUND                                     COMPASS    11799          I
          -CMP20  
 COMPASS            PL     X5,XTX4     LOOP                                                COMPASS    11800          I
          -CMP20  
 COMPASS   XTEXTU   SX6    B1          POST U ERROR TO WARN OF UNFOUND RECORD              COMPASS    11801          I
          -CMP20  
 COMPASS            SA6    EFLG                                                            COMPASS    11802          I
          -CMP20  
 COMPASS            SA6    UERR        RECORD                                              COMPASS    11803          I
          -CMP20  
 COMPASS   XTEXTQ   REWIND X           CLOSE THE FILE                                      COMPASS    11804          I
          -CMP20  
 COMPASS            EQ     CTL70                                                           COMPASS    11805          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11806          I
          -CMP20  
 COMPASS   XTEXT1B  RECALL X           SET RANDOM ADDRESS                                  COMPASS    11807          I
          -CMP20  
 COMPASS            SA2    VALUES+1                                                        COMPASS    11808          I
          -CMP20  
 COMPASS            BX6    X2                                                              COMPASS    11809          I
          -CMP20  
 COMPASS            SA6    X+6                                                             COMPASS    11810          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11811          I
          -CMP20  
 COMPASS  *         READ RECORD.                                                           COMPASS    11812          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11813          I
          -CMP20  
 COMPASS   XTEXT1A  MX6    0                                                               COMPASS    11814          I
          -CMP20  
 COMPASS            SA6    VALUES+9                                                        COMPASS    11815          I
          -CMP20  
 COMPASS            SA2    L.LASTAB                                                        COMPASS    11816          I
          -CMP20  
 COMPASS            BX6    X2                                                              COMPASS    11817          I
          -CMP20  
 COMPASS            SA6    P1TEMP                                                          COMPASS    11818          I
          -CMP20  
 COMPASS            RJ     CWI                                                             COMPASS    11819          I
          -CMP20  
 COMPASS            SA1    X+1         SET IN = OUT = FIRST                                COMPASS    11820          I
          -CMP20  
 COMPASS            SX6    X1                                                              COMPASS    11821          I
          -CMP20  
 COMPASS            SA6    A1+B1                                                           COMPASS    11822          I
          -CMP20  
 COMPASS            SA6    A6+B1                                                           COMPASS    11823          I
          -CMP20  
 COMPASS            READ   X           READ HEADER                                         COMPASS    11824          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 752    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS            READC  X,VALUES,9                                                      COMPASS    11825          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTU   IF EOR OR EOF                                       CMP4           1          I
          -CMP20  
 COMPASS            SA1    VALUES      CHECK IF OPLC                                       COMPASS    11826          I
          -CMP20  
 COMPASS            LX1    18                                                              COMPASS    11827          I
          -CMP20  
 COMPASS            SX6    X1-770000B                                                      COMPASS    11828          I
          -CMP20  
 COMPASS            NZ     X6,XTX10    IF NOT 7700 TABLE                                   COMPASS    11829          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11830          I
          -CMP20  
 COMPASS  *         READ MODIFY COMMON DECK.                                               COMPASS    11831          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11832          I
          -CMP20  
 COMPASS            LX1    6                                                               COMPASS    11833          I
          -CMP20  
 COMPASS            READW  X,VALUES,X1 SKIP 7700 TABLE                                     COMPASS    11834          I
          -CMP20  
 COMPASS            READW  X,VALUES,1                                                      COMPASS    11835          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTF   IF NO DATA                                          COMPASS    11836          I
          -CMP20  
 COMPASS            SA2    VALUES                                                          COMPASS    11837          I
          -CMP20  
 COMPASS            LX2    18                                                              COMPASS    11838          I
          -CMP20  
 COMPASS            SX6    X2-700200B                                                      COMPASS    11839          I
          -CMP20  
 COMPASS            NZ     X6,XTEXTF   IF FUNNY DATA                                       COMPASS    11840          I
          -CMP20  
 COMPASS            LX2    42                                                              COMPASS    11841          I
          -CMP20  
 COMPASS            SX5    X2                                                              COMPASS    11842          I
          -CMP20  
 COMPASS            ZR     X5,XTX6     IF NO CORRECTION IDENT TABLE                        COMPASS    11843          I
          -CMP20  
 COMPASS   XTX5     READW  X,VALUES,1  SKIP CORRECTION IDENT TABLE                         COMPASS    11844          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTF   IF EOR                                              COMPASS    11845          I
          -CMP20  
 COMPASS            SX5    X5-1                                                            COMPASS    11846          I
          -CMP20  
 COMPASS            NZ     X5,XTX5     LOOP                                                COMPASS    11847          I
          -CMP20  
 COMPASS   XTX6     MANAGE LASTAB,14   GET TABLE SPACE                                     COMPASS    11848          I
          -CMP20  
 COMPASS   XTX7     READC  X,VALUES,NLITS  SKIP CORRECTION HISTORY BYTES                   COMPASS    11849          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 753    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS            NZ     X1,XTX9     IF EOR                                              COMPASS    11850          I
          -CMP20  
 COMPASS            SA1    VALUES                                                          COMPASS    11851          I
          -CMP20  
 COMPASS            NG     X1,XTX8     IF CARD IS ACTIVE                                   COMPASS    11852          I
          -CMP20  
 COMPASS            READC  X,VALUES,14 SKIP CARD                                           COMPASS    11853          I
          -CMP20  
 COMPASS            EQ     XTX7                                                            COMPASS    11854          I
          -CMP20  
 COMPASS   XTX8     READC  X,VALUES,14 READ CARD INTO TABLE                                COMPASS    11855          I
          -CMP20  
 COMPASS            RJ     PTC         PACK TEXT CARD                                      COMPASS    11856          I
          -CMP20  
 COMPASS            EQ     XTX7        LOOP                                                COMPASS    11857          I
          -CMP20  
 COMPASS   XTX9     MANAGE LASTAB,-14                                                      COMPASS    11858          I
          -CMP20  
 COMPASS            EQ     XTEXT3                                                          COMPASS    11859          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11860          I
          -CMP20  
 COMPASS  *         READ TEXT.                                                             COMPASS    11861          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11862          I
          -CMP20  
 COMPASS   XTX10    MX0    -18                                                             COMPASS    11863          I
          -CMP20  
 COMPASS            SA1    VALUES                                                          COMPASS    11864          I
          -CMP20  
 COMPASS            BX6    -X0*X1                                                          COMPASS    11865          I
          -CMP20  
 COMPASS            NZ     X6,XTEXT2   IF NOT TEXT FORMAT                                  COMPASS    11866          I
          -CMP20  
 COMPASS            READC  X,VALUES,9  READ FIRST LINE                                     COMPASS    11867          I
          -CMP20  
 COMPASS            NZ     X1,XTEXTU   IF EOR OR EOF                                       CMP4           2          I
          -CMP20  
 COMPASS   XTEXT2   SX2    X                                                               COMPASS    11868          I
          -CMP20  
 COMPASS            SA0    VALUES                                                          COMPASS    11869          I
          -CMP20  
 COMPASS            RJ     CRCARD      READ STATEMENT                                      COMPASS    11870          I
          -CMP20  
 COMPASS            RJ     SETUP                                                           COMPASS    11871          I
          -CMP20  
 COMPASS            SA2    IOP                                                             COMPASS    11872          I
          -CMP20  
 COMPASS            SX3    3REND                                                           COMPASS    11873          I
          -CMP20  
 COMPASS            BX6    X2-X3                                                           COMPASS    11874          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 754    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS            ZR     X6,XTEXT3                                                       COMPASS    11875          I
          -CMP20  
 COMPASS            MX6    0                                                               COMPASS    11876          I
          -CMP20  
 COMPASS            SA6    SQLGN                                                           COMPASS    11877          I
          -CMP20  
 COMPASS            PCARD  LASTAB                                                          COMPASS    11878          I
          -CMP20  
 COMPASS            EQ     XTEXT2                                                          COMPASS    11879          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11880          I
          -CMP20  
 COMPASS  *         PROCESS END OF TEXT.                                                   COMPASS    11881          I
          -CMP20  
 COMPASS                                                                                   COMPASS    11882          I
          -CMP20  
 COMPASS   XTEXT3   SX1    1RT                                                             COMPASS    11883          I
          -CMP20  
 COMPASS            LX1    54                                                              COMPASS    11884          I
          -CMP20  
 COMPASS            ADDWORD LASTAB                                                         COMPASS    11885          I
          -CMP20  
 COMPASS            SA1    P1TEMP                                                          COMPASS    11886          I
          -CMP20  
 COMPASS            SX2    4                                                               COMPASS    11887          I
          -CMP20  
 COMPASS            SA4    P1TEMPA     XTEXT FILE NAME                                     COMPASS    11888          I
          -CMP20  
 COMPASS            MX5    0                                                               COMPASS    11889          I
          -CMP20  
 COMPASS            BX3    X1                                                              COMPASS    11890          I
          -CMP20  
 COMPASS            RJ     PUSHDOWN                                                        COMPASS    11891          I
          -CMP20  
 COMPASS            SX6    B1                                                              COMPASS    11892          I
          -CMP20  
 COMPASS            SA6    LIBFLG                                                          COMPASS    11893          I
          -CMP20  
 COMPASS            EQ     CTL100                                                          COMPASS    11894          I
          -CMP20  
 COMPASS   XTEXTF   SX6    B1          POST OVERFLOW ERROR                                 COMPASS    11895          I
          -CMP20  
 COMPASS            SA6    FERR        SINCE NO ROOM FOR INDEX                             COMPASS    11896          I
          -CMP20  
 COMPASS            SA6    EFLG                                                            COMPASS    11897          I
          -CMP20  
 COMPASS            EQ     XTEXTQ                                                          COMPASS    11898          I
          -CMP20  
 COMPASS   XTEXT    SPACE  4                                                               CMP20         77     A     
 COMPASS  ***       XTEXT - EXTERNAL INPUT.                                                CMP20         78     A     
 COMPASS  *                                                                                CMP20         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/28. 19.11.32.      PAGE 755    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                CMP20         80     A     
 COMPASS  *FILE     XTEXT  RNAME                                                           CMP20         81     A     
 COMPASS  *         ASSEMBLES SOURCE STATEMENTS FROM RECORD (RNAME) OF (FILE).             CMP20         82     A     
 COMPASS  *         IF (FILE) IS BLANK, THE FILE SPECIFIED BY THE (X) PARAMETER            CMP20         83     A     
 COMPASS  *         ON THE COMPASS CONTROL CARD IS USED.  IF (RNAME) IS BLANK,             CMP20         84     A     
 COMPASS  *         THE FIRST RECORD IN THE FILE IS READ.  OTHERWISE, (FILE)               CMP20         85     A     
 COMPASS  *         MUST BE A RANDOM FILE, WITH A NAME INDEX, ON A MASS STORAGE            CMP20         86     A     
 COMPASS  *         DEVICE.  THE CARD IMAGES IN THE RECORD MAY BE COMPRESSED OR            CMP20         87     A     
 COMPASS  *         NOT.  (FILE) MAY BE AN UPDATE OR MODIFY PROGRAM                        CMP20         88          I
          -CMP26  
 COMPASS  *         LIBRARY FILE, IN WHICH CASE (RNAME) MUST BE A COMMON DECK.             CMP20         89          I
          -CMP26  
 COMPASS  *         NOT.  (FILE) MAY BE AN UPDATE OR MODIFY PROGRAM LIBRARY                CMP26         30     A     
 COMPASS  *         FILE, IN WHICH CASE (RNAME) MUST BE A COMMON DECK.  IN ALL             CMP26         31     A     
 COMPASS  *         CASES, READING STOPS, AND INPUT FROM THE PREVIOUS SOURCE IS            CMP26         32     A     
 COMPASS  *         RESUMED, AT END OF SCOPE LOGICAL RECORD OR A COMPASS (END)             CMP26         33     A     
 COMPASS  *         STATEMENT, WHICHEVER COMES FIRST.  THE (END) STATEMENT DOES            CMP26         34     A     
 COMPASS  *         NOT TERMINATE THE ASSEMBLY, BUT ONLY STOPS (XTEXT) READING.            CMP26         35     A     
 COMPASS                                                                                   CMP20         90     A     
 COMPASS                                                                                   CMP20         91     A     
 COMPASS            QUAL   PASS1                                                           CMP20         92     A     
 COMPASS   XTEXT    RECALL B                                                               CMP20         93          I
          -CMP30  
 COMPASS   XTEXT    BSS    0                                                               CMP30       3623     A     
 COMPASS                                                                                   CMP30       3624     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3625     A     
 COMPASS            RECALL B                                                               CMP30       3626     A     
 COMPASS            RECALL X                                                               CMP20         94     A     
 COMPASS   RM       ELSE                                                                   CMP30       3627          I
          -CPSA115
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       3628          I
          -CPS028   -CPSA115
 COMPASS   RM       IFEQ   CP#RM,6                                                S028 473 CPS028       356          I
          -CPSA115
 COMPASS            FETCH  B,OC,X2                                                         CMP30       3629          I
          -CPSA115
 COMPASS            SX3    X2-#YES#                                                        CMP30       3630          I
          -CPSA115
 COMPASS            NZ     X3,XTX0     IF BINARY FILE NOT OPEN                             CMP30       3631          I
          -CPSA115
 COMPASS            CLOSEM B,N                                                             CMP30       3632          I
          -CPSA115
 COMPASS   XTX0     CHECK  X                                                               CMP30       3633          I
          -CPSA115
 COMPASS   RM       ENDIF                                                                  CMP30       3634     A     
 COMPASS                                                                                   CMP30       3635     A     
 COMPASS            RJ     CRL         CHECK RECURSION LIMIT                      S004  17 CPS004         6     A     
 COMPASS            SA2    BADLOC                                                          CMP20         95     A     
 COMPASS            SA3    LOCSYM                                                          CMP20         96     A     
 COMPASS            NZ     X2,XTX2     IF BAD LOCATION SYMBOL                              CMP20         97     A     
 COMPASS            NZ     X3,XTX1     IF FILE NAME                                        CMP20         98     A     
 COMPASS            SA3    XNAME       SET DEFAULT FILE NAME                               CMP20         99          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 756    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA3    CP.XNAME    USE DEFAULT FILE NAME                               CMP30       3636     A     
 COMPASS            MX0    6                                                               CMP20        100     A     
 COMPASS   +        LX3    6           RIGHT JUSTIFY FILE NAME                             CMP20        101     A     
 COMPASS            BX6    X0*X3                                                           CMP20        102     A     
 COMPASS            NZ     X6,*        LOOP                                                CMP20        103     A     
 COMPASS   XTX1     MX0    18                                                              CMP20        104     A     
 COMPASS            BX4    X3*X0                                                           CMP20        105     A     
 COMPASS            NZ     X4,XTX2     IF GREATER THAN 7 CHARACTERS                        CMP20        106     A     
 COMPASS            MX0    12          LEFT JUSTIFY FILE NAME                              CMP20        107     A     
 COMPASS            BX6    X3          SAVE FILE NAME FOR SEQUENCE FIELDS                  CMP20        108     A     
 COMPASS            SA6    P1TEMPA                                                         CMP20        109     A     
 COMPASS   +        BX6    X0*X3                                                           CMP20        110     A     
 COMPASS            LX3    6                                                               CMP20        111     A     
 COMPASS            ZR     X6,*        LOOP                                                CMP20        112     A     
 COMPASS            SX1    B1                                                              CMP20        113     A     
 COMPASS            BX6    X1+X3                                                           CMP20        114     A     
 COMPASS            SA6    X                                                               CMP20        115          I
          -CMP30  
 COMPASS            SA6    XTF                                                             CMP30       3637     A     
 COMPASS                                                                                   CMP30       3638     A     
 COMPASS            IFNE   CP#RM,0,2                                                       CMP30       3639     A     
 COMPASS            LX7    X3                                                              CMP30       3640     A     
 COMPASS            SA7    XDUM                                                            CMP30       3641     A     
 COMPASS                                                                                   CMP30       3642     A     
 COMPASS            PL     X6,XTX3     IF FILE NAME NON-NUMERIC                            CMP20        116     A     
 COMPASS   XTX2     SX6    B1                                                              CMP20        117     A     
 COMPASS            SA6    EFLG                                                            CMP20        118     A     
 COMPASS            SA6    LERR        POST BAD LOCATION SYMBOL                            CMP20        119     A     
 COMPASS            EQ     CTL70                                                           CMP20        120     A     
 COMPASS                                                                                   CMP30       3643     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3644     A     
 COMPASS   XTX3     REWIND X                                                               CMP20        121     A     
 COMPASS            SA1    AMODE                                                           CMP24         60          I
          -CMP30  
 COMPASS            MX7    0           SAVE AND CLEAR AMODE                                CMP24         61          I
          -CMP30  
 COMPASS   RM       ELSE                                                                   CMP30       3645     A     
 COMPASS   XTX3     SX1    LXDUM       INITIALIZE FILE INFORMATION TABLE                   CMP30       3646     A     
 COMPASS            SX2    XDUM                                                            CMP30       3647     A     
 COMPASS            SX3    X                                                               CMP30       3648     A     
 COMPASS            RJ     MOVE                                                            CMP30       3649     A     
 COMPASS   RM       ENDIF                                                                  CMP30       3650     A     
 COMPASS                                                                                   CMP30       3651     A     
 COMPASS            SA1    CP.IFORM    SAVE AND CLEAR INPUT FORMAT                         CMP30       3652     A     
 COMPASS            SA2    EOFINP      AND END OF INPUT FLAG                               CMP30       3653     A     
 COMPASS            BX6    X1                                                              CMP24         62     A     
 COMPASS            SA7    A1                                                              CMP24         63          I
          -CMP30  
 COMPASS            LX7    X2                                                              CMP30       3654     A     
 COMPASS            SA6    P1TEMPD                                                         CMP24         64     A     
 COMPASS            SA7    A6+B1                                                           CMP30       3655     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 757    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX6    0                                                               CMP30       3656     A     
 COMPASS            SA6    A1                                                              CMP30       3657     A     
 COMPASS            SA6    A2                                                              CMP30       3658     A     
 COMPASS            RJ     SCITEM      GET RECORD NAME                                     CMP20        122     A     
 COMPASS            MX7    0           CLEAR UPDATE FLAG                                   CMP20        123          I
          -CMP24  
 COMPASS            SA7    P1TEMPC                                                         CMP20        124          I
          -CMP24  
 COMPASS            ZR     X6,XTX14    IF NO NAME                                          CMP20        125          I
          -CMP30  
 COMPASS            ZR     X6,XTX13A   IF NO NAME                                          CMP30       3659     A     
 COMPASS            MX0    12          LEFT JUSTIFY NAME                                   CMP20        126     A     
 COMPASS   +        BX3    X0*X6                                                           CMP20        127     A     
 COMPASS            LX6    6                                                               CMP20        128     A     
 COMPASS            ZR     X3,*        LOOP                                                CMP20        129     A     
 COMPASS            SA6    P1TEMPB                                                         CMP20        130     A     
 COMPASS                                                                                   CMP20        131     A     
 COMPASS  *         READ RANDOM INDEX AND SEARCH FOR RECORD.                               CMP20        132     A     
 COMPASS                                                                                   CMP20        133     A     
 COMPASS            IFNE   CP#RM,0,1                                                       CMP30       3660          I
          -CPS028 
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       3661          I
          -CPS028 
 COMPASS   DM       IFNE   CP#RM,7                                                S028 475 CPS028       357     A     
 COMPASS                                                                                   CMP30       3662     A     
 COMPASS            RJ     MTD         MAKE ROOM FOR INDEX                                 CMP20        134     A     
 COMPASS            SA1    P1TEMPB     (X0) = RECORD NAME                                  CMP20        135          I
          -CMP30  
 COMPASS            SA2    O.MEMORY                                                        CMP20        136     A     
 COMPASS            SA3    O.ENDTAB                                                        CMP20        137     A     
 COMPASS            BX0    X1                                                              CMP20        138          I
          -CMP30  
 COMPASS            IX3    X3-X2       NUMBER OF WORDS                                     CMP20        139     A     
 COMPASS            SB7    X3-10000B                                                       CMP20        140     A     
 COMPASS            NG     B7,XTX4     IF LESS THAN 10000 WORDS                            CMP20        141     A     
 COMPASS            SX3    10000B                                                          CMP20        142     A     
 COMPASS   XTX4     SX3    X3-1                                                            CMP20        143     A     
 COMPASS            MX7    0           CLEAR INDEX AREA                                    CMP20        144     A     
 COMPASS            SB7    X3                                                              CMP20        145     A     
 COMPASS            LX3    18                                                              CMP20        146     A     
 COMPASS            SA7    X2                                                              CMP20        147     A     
 COMPASS            BX6    X3+X2                                                           CMP20        148     A     
 COMPASS   +        SB7    B7-B1                                                           CMP20        149     A     
 COMPASS            SA7    A7+B1                                                           CMP20        150     A     
 COMPASS            NZ     B7,*        LOOP                                                CMP20        151     A     
 COMPASS                                                                                   CMP30       3663          I
          -CPSA115
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3664          I
          -CPSA115
 COMPASS                                                                                   CMP30       3665          I
          -CPSA115
 COMPASS            SA6    X+7         STORE INDEX AREA POINTERS IN FET                    CMP20        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/28. 19.11.32.      PAGE 758    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            OPEN   X,READ,R    READ INDEX                                          CMP20        153     A     
 COMPASS            SA0    VALUES      (A0) = VALUES                                       CMP20        154     A     
 COMPASS            SA1    X2+B1       RESET RANDOM BIT IN FET                             CMP20        155     A     
 COMPASS            SX2    B1                                                              CMP20        156     A     
 COMPASS            LX2    47                                                              CMP20        157     A     
 COMPASS            BX6    X1+X2                                                           CMP20        158     A     
 COMPASS            SA6    A1                                                              CMP20        159     A     
 COMPASS            SA5    X+7         (X5) = INDEX POINTERS                               CMP20        160          I
          -CMP30  
 COMPASS                                                                                   CMP30       3666          I
          -CPSA115
 COMPASS   RM       ELSE                                                                   CMP30       3667          I
          -CPSA115
 COMPASS                                                                                   CMP30       3668          I
          -CPSA115
 COMPASS            SA6    XTF+7       STORE INDEX AREA POINTERS IN FET                    CMP30       3669          I
          -CPSA115
 COMPASS            FETCH  X,FWB,X6                                                        CMP30       3670          I
          -CPSA115
 COMPASS            SX2    B1                                                              CMP30       3671          I
          -CPSA115
 COMPASS            SX3    3                                                               CMP30       3672          I
          -CPSA115
 COMPASS            LX2    47                                                              CMP30       3673          I
          -CPSA115
 COMPASS            LX3    18                                                              CMP30       3674          I
          -CPSA115
 COMPASS            BX6    X6+X2       SET RANDOM BIT                                      CMP30       3675          I
          -CPSA115
 COMPASS            BX6    X6+X3       AND FET LENGTH                                      CMP30       3676          I
          -CPSA115
 COMPASS            SA6    XTF+1       FIRST                                               CMP30       3677          I
          -CPSA115
 COMPASS            SX6    X6                                                              CMP30       3678          I
          -CPSA115
 COMPASS            SA6    A6+B1       IN                                                  CMP30       3679          I
          -CPSA115
 COMPASS            SA6    A6+B1       OUT                                                 CMP30       3680          I
          -CPSA115
 COMPASS            SX7    X6+BBUFL                                                        CMP30       3681          I
          -CPSA115
 COMPASS            SA7    A6+B1       LIMIT                                               CMP30       3682          I
          -CPSA115
 COMPASS            SX2    XTF         OPEN   XTF,READ,R                                   CMP30       3683          I
          -CPSA115
 COMPASS            SX7    -100B                                                           CMP30       3684          I
          -CPSA115
 COMPASS            RJ     =XOPE=                                                          CMP30       3685          I
          -CPSA115
 COMPASS            SA1    X2+B1                                                           CMP30       3686          I
          -CPSA115
 COMPASS                                                                                   CMP30       3687          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 759    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA115
 COMPASS   RM       ENDIF                                                                  CMP30       3688          I
          -CPSA115
 COMPASS                                                                                   CMP30       3689          I
          -CPSA115
 COMPASS            SA5    XTF+7       (X5) = INDEX POINTERS                               CMP30       3690     A     
 COMPASS            SA3    X5                                                              CMP20        161     A     
 COMPASS            LX1    59-47                                                           CMP20        162     A     
 COMPASS            BX4    X1*X3                                                           CMP20        163     A     
 COMPASS            AX3    48                                                              CMP20        164     A     
 COMPASS            PL     X4,XTX8     IF NOT NAME INDEX OR NOT RANDOM FILE                CMP20        165     A     
 COMPASS            SX3    X3-777000B                                                      CMP20        166     A     
 COMPASS            SA4    P1TEMPB                                                         CMP30       3691     A     
 COMPASS            ZR     X3,XTX6     IF UPDATE PROGRAM LIBRARY                           CMP20        167     A     
 COMPASS                                                                                   CMP30       3692     A     
 COMPASS  *         SEARCH SCOPE RANDOM FILE INDEX.                                        CMP30       3693     A     
 COMPASS                                                                                   CMP30       3694     A     
 COMPASS            AX5    18                                                              CMP20        168     A     
 COMPASS            SA3    A3+B1                                                           CMP20        169     A     
 COMPASS            SB2    B1+B1                                                           CMP20        170     A     
 COMPASS            SB3    X5                                                              CMP20        171     A     
 COMPASS   XTX5     SB3    B3-B2       SEARCH INDEX                                        CMP20        172     A     
 COMPASS            BX1    X3-X0                                                           CMP20        173          I
          -CMP30  
 COMPASS            BX2    X3-X4                                                           CMP30       3695     A     
 COMPASS            NO                                                                     CMP20        174     A     
 COMPASS            SA3    A3+B2                                                           CMP20        175     A     
 COMPASS            NG     B3,XTEXTU   IF NAME NOT IN INDEX                                CMP20        176     A     
 COMPASS            NZ     X1,XTX5     LOOP                                                CMP20        177          I
          -CMP30  
 COMPASS            NZ     X2,XTX5     LOOP                                                CMP30       3696     A     
 COMPASS            SA3    A3-B1       SET RECORD ADDRESS IN FET                           CMP20        178     A     
 COMPASS                                                                                   CMP30       3697          I
          -CPSA115
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3698          I
          -CPSA115
 COMPASS            BX6    X3                                                              CMP20        179     A     
 COMPASS            SA6    X+6                                                             CMP20        180     A     
 COMPASS            EQ     XTX14                                                           CMP20        181     A     
 COMPASS   RM       ELSE                                                                   CMP30       3699          I
          -CPSA115
 COMPASS            SX6    #ZT#        SET RECORD TYPE *Z*                                 CMP30       3700          I
          -CPSA115
 COMPASS            EQ     XTX13       GO SET WORD ADDRESS                                 CMP30       3701          I
          -CPSA115
 COMPASS   RM       ENDIF                                                                  CMP30       3702          I
          -CPSA115
 COMPASS                                                                                   CMP30       3703     A     
 COMPASS   DM       ELSE                                                                   CMP30       3704     A     
 COMPASS                                                                                   CMP30       3705     A     
 COMPASS            OPENM  X,INPUT,E                                                       CMP30       3706     A     
 COMPASS            FETCH  X,RT,X1                                                         CMP30       3707     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 760    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            FETCH  X,BT,X2                                                         CMP30       3708     A     
 COMPASS            SX3    X1-#WT#                                                         CMP30       3709     A     
 COMPASS            BX4    X2+X3                                                           CMP30       3710     A     
 COMPASS            NZ     X4,XTEXTU   IF BLOCKED, OR RECORD TYPE NOT *W*                  CMP30       3711     A     
 COMPASS            SKIPBL X,1                                                             CMP30       3712     A     
 COMPASS            GETP   X,VALUES,30 READ LAST RECORD                                    CMP30       3713          I
          -CPS172 
 COMPASS            GETP   X,VALUES,50 READ SCOPE2 HEADER AND RANDOM INDEX                 CPS172         5     A     
 COMPASS            FETCH  X,FP,X4                                                         CMP30       3714     A     
 COMPASS            SX0    EOD                                                             CMP30       3715     A     
 COMPASS            SA1    =7LDIRECT$                                                      CMP30       3716     A     
 COMPASS            SA2    VALUES                                                          CMP30       3717     A     
 COMPASS            BX3    X0*X4                                                           CMP30       3718     A     
 COMPASS            SX5    VALUES+2                                                        CMP30       3719     A     
 COMPASS            BX4    X1-X2                                                           CMP30       3720     A     
 COMPASS            BX6    X3+X4                                                           CMP30       3721     A     
 COMPASS            NZ     X6,XTX8     IF NOT UPDATE PROGRAM LIBRARY                       CMP30       3722     A     
 COMPASS                                                                                   CMP30       3723     A     
 COMPASS   DM       ENDIF                                                                  CMP30       3724     A     
 COMPASS                                                                                   CMP20        182     A     
 COMPASS  *         SEARCH UPDATE PROGRAM LIBRARY DECK LIST.                               CMP20        183     A     
 COMPASS                                                                                   CMP20        184     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3725     A     
 COMPASS                                                                                   CMP30       3726     A     
 COMPASS   XTX6     SA3    X5          DECK LIST RECORD ADDRESS AND LENGTH                 CMP20        185     A     
 COMPASS            LX1    47-59                                                           CMP20        186     A     
 COMPASS            SX6    X1          SET IN = OUT = FIRST                                CMP20        187     A     
 COMPASS            BX7    X3                                                              CMP20        188     A     
 COMPASS            SA6    A1+B1                                                           CMP20        189     A     
 COMPASS            SA7    A5-B1       STORE RANDOM ADDRESS IN FET                         CMP20        190     A     
 COMPASS            AX3    30                                                              CMP20        191          I
          -CMP24  
 COMPASS            SA6    A6+B1                                                           CMP20        192     A     
 COMPASS            SA3    A3+2        MASTER CONTROL CHARACTER                            CPS172         6     A     
 COMPASS            SA1    =0LCOMDECK                                                      CPS172         7     A     
 COMPASS            MX0    -6          (P1TEMPC) = *COMDECK                                CPS172         8     A     
 COMPASS            BX3    -X0*X3      WHERE * IS MASTER                                   CPS172         9     A     
 COMPASS            BX6    X1+X3       CONTROL CHARACTER                                   CPS172        10     A     
 COMPASS            LX6    -6                                                              CPS172        11     A     
 COMPASS            SA6    P1TEMPC                                                         CPS172        12     A     
 COMPASS            BX0    X4          (X0) = RECORD NAME                                  CMP30       3727     A     
 COMPASS            READ   X                                                               CMP20        193     A     
 COMPASS            READW  X2,A0,2     IGNORE FIRST ENTRY                                  CMP20        194     A     
 COMPASS            NZ     X1,XTEXTU   IF EOR                                              CMP20        195     A     
 COMPASS            MX5    42          (X5) = 42-BIT MASK                                  CMP20        196          I
          -CMP24  
 COMPASS            MX5    54          (X5) = NINE-CHARACTER MASK                          CMP24         65     A     
 COMPASS   XTX7     READW  X2,A0,2                                                         CMP20        197     A     
 COMPASS            SA3    A0                                                              CMP20        198     A     
 COMPASS            NZ     X1,XTEXTU   IF EOR                                              CMP20        199     A     
 COMPASS            BX6    X3-X0                                                           CMP20        200     A     
 COMPASS            BX6    X5*X6                                                           CMP20        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/28. 19.11.32.      PAGE 761    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X6,XTX7     LOOP                                                CMP20        202     A     
 COMPASS            SX6    B1          SET UPDATE FLAG                                     CMP20        203          I
          -CMP24  
 COMPASS            SA6    P1TEMPC                                                         CMP20        204          I
          -CMP24  
 COMPASS            SX6    -B1         SET AMODE = -1 (UPDATE COMMON DECK)                 CMP24         66          I
          -CMP30  
 COMPASS            SA6    AMODE                                                           CMP24         67          I
          -CMP30  
 COMPASS            SX6    -B1         CP.IFORM = -1 (UPDATE COMMON DECK)                  CMP30       3728     A     
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CMP30       3729     A     
 COMPASS            EQ     XTX13                                                           CMP20        205     A     
 COMPASS                                                                                   CMP30       3730     A     
 COMPASS   RM       ELSE                                                                   CMP30       3731     A     
 COMPASS                                                                                   CMP30       3732     A     
 COMPASS   XTX6     SA3    X5          DECK LIST RECORD ADDRESS AND LENGTH                 CMP30       3733          I
          -CPS172 
 COMPASS   XTX6     SA3    X5+2        MASTER CONTROL CHARACTER                            CPS172        13     A     
 COMPASS            SA1    =0LCOMDECK                                                      CPS172        14     A     
 COMPASS            MX0    -6          (P1TEMPC) = *COMDECK                                CPS172        15     A     
 COMPASS            BX3    -X0*X3      WHERE * IS MASTER                                   CPS172        16     A     
 COMPASS            BX6    X1+X3       CONTROL CHARACTER                                   CPS172        17     A     
 COMPASS            LX6    -6                                                              CPS172        18     A     
 COMPASS            SA6    P1TEMPC                                                         CPS172        19     A     
 COMPASS            SA3    X5          DECK LIST RECORD ADDRESS AND LENGTH                 CPS172        20     A     
 COMPASS            MX0    -30                                                             CMP30       3734     A     
 COMPASS            BX6    -X0*X3                                                          CMP30       3735     A     
 COMPASS                                                                                   CMP30       3736          I
          -CPSA115
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       3737          I
          -CPS028   -CPSA115
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 477 CPS028       358          I
          -CPSA115
 COMPASS            LX6    6           COMPUTE WORD ADDRESS                                CMP30       3738          I
          -CPSA115
 COMPASS            MX5    -6                                                              CMP30       3739          I
          -CPSA115
 COMPASS            IX6    X6+X5       PRU NO.*64 - 63                                     CMP30       3740          I
          -CPSA115
 COMPASS            SA6    P1TEMPC                                                         CMP30       3741          I
          -CPSA115
 COMPASS            SX6    #ST#        SET RECORD TYPE *S*                                 CMP30       3742          I
          -CPSA115
 COMPASS            RJ     XTXWA       OPEN WORD ADDRESSABLE FILE                          CMP30       3743          I
          -CPSA115
 COMPASS            SA2    P1TEMPC                                                         CMP30       3744          I
          -CPSA115
 COMPASS            STORE  X,WA=X2     SET WORD ADDRESS OF DECK LIST                       CMP30       3745          I
          -CPSA115
 COMPASS   DM       ELSE                                                                   CMP30       3746          I
          -CPSA115
 COMPASS            POSITION X,X6                                                          CMP30       3747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 762    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DM       ENDIF                                                                  CMP30       3748          I
          -CPSA115
 COMPASS                                                                                   CMP30       3749          I
          -CPSA115
 COMPASS            GETP   X,VALUES,20 IGNORE FIRST ENTRY                                  CMP30       3750     A     
 COMPASS            FETCH  X,FP,X4                                                         CMP30       3751     A     
 COMPASS            SX5    EOD                                                             CMP30       3752     A     
 COMPASS            BX3    X4*X5                                                           CMP30       3753     A     
 COMPASS            NZ     X3,XTEXTU   IF END OF DATA                                      CMP30       3754     A     
 COMPASS   XTX7     GETP   X,VALUES,20                                                     CMP30       3755     A     
 COMPASS            FETCH  X,FP,X4                                                         CMP30       3756     A     
 COMPASS            SX5    EOD                                                             CMP30       3757     A     
 COMPASS            BX2    X4*X5                                                           CMP30       3758     A     
 COMPASS            NZ     X2,XTEXTU   IF END OF DATA                                      CMP30       3759     A     
 COMPASS            MX5    54                                                              CMP30       3760     A     
 COMPASS            SA3    VALUES                                                          CMP30       3761     A     
 COMPASS            SA1    P1TEMPB     RECORD NAME                                         CMP30       3762     A     
 COMPASS            BX6    X3-X1                                                           CMP30       3763     A     
 COMPASS            BX6    X5*X6                                                           CMP30       3764     A     
 COMPASS            NZ     X6,XTX7     LOOP                                                CMP30       3765     A     
 COMPASS            SX6    -B1         CP.IFORM = -1 (UPDATE COMMON DECK)                  CMP30       3766     A     
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CMP30       3767     A     
 COMPASS            MX0    -30                                                             CMP30       3768     A     
 COMPASS            SA1    A3+B1                                                           CMP30       3769     A     
 COMPASS            BX1    -X0*X1                                                          CMP30       3770     A     
 COMPASS                                                                                   CMP30       3771          I
          -CPSA115
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       3772          I
          -CPS028   -CPSA115
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 479 CPS028       359          I
          -CPSA115
 COMPASS            LX1    6                                                               CMP30       3773          I
          -CPSA115
 COMPASS            MX5    -6                                                              CMP30       3774          I
          -CPSA115
 COMPASS            IX6    X6+X5       PRU NO.*64 - 63                                     CMP30       3775          I
          -CPSA115
 COMPASS            STORE  X,WA=X1     SET WORD ADDRESS                                    CMP30       3776          I
          -CPSA115
 COMPASS   DM       ELSE                                                                   CMP30       3777          I
          -CPSA115
 COMPASS            POSITION X,X1                                                          CMP30       3778     A     
 COMPASS   DM       ENDIF                                                                  CMP30       3779          I
          -CPSA115
 COMPASS                                                                                   CMP30       3780          I
          -CPSA115
 COMPASS            EQ     XTX14                                                           CMP30       3781     A     
 COMPASS                                                                                   CMP30       3782     A     
 COMPASS  *         RECORD INDEXED FILE OR MODIFY PROGRAM LIBRARY.                         CMP30       3783     A     
 COMPASS                                                                                   CMP30       3784     A     
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       3785          I
          -CPS028 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 763    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 481 CPS028       360          I
          -CPSA115
 COMPASS                                                                                   CMP30       3786          I
          -CPSA115
 COMPASS   XTX8     SX2    XTF         REWIND XTF                                          CMP30       3787          I
          -CPSA115
 COMPASS            SX7    50B                                                             CMP30       3788          I
          -CPSA115
 COMPASS            RJ     =XCIO=                                                          CMP30       3789          I
          -CPSA115
 COMPASS            SX7    -10B        READ   X2,R                                         CMP30       3790          I
          -CPSA115
 COMPASS            RJ     =XCIO=                                                          CMP30       3791          I
          -CPSA115
 COMPASS            SA2    XTF+2       IN                                                  CMP30       3792          I
          -CPSA115
 COMPASS            SA3    A2+B1       OUT                                                 CMP30       3793          I
          -CPSA115
 COMPASS            IX4    X2-X3                                                           CMP30       3794          I
          -CPSA115
 COMPASS            ZR     X4,XTEXTU   IF NO DATA READ                                     CMP30       3795          I
          -CPSA115
 COMPASS            SA3    X3                                                              CMP30       3796          I
          -CPSA115
 COMPASS            MX0    6                                                               CMP30       3797          I
          -CPSA115
 COMPASS            BX4    X0*X3                                                           CMP30       3798          I
          -CPSA115
 COMPASS            IX3    X4-X0                                                           CMP30       3799          I
          -CPSA115
 COMPASS            ZR     X3,XTX9     IF MODIFY OLDPL                                     CMP30       3800          I
          -CPSA115
 COMPASS            LX4    6                                                               CMP30       3801          I
          -CPSA115
 COMPASS            SX2    X4-70B                                                          CMP30       3802          I
          -CPSA115
 COMPASS            NG     X2,XTEXTU   IF NOT RECORD INDEXED                               CMP30       3803          I
          -CPSA115
 COMPASS                                                                                   CMP30       3804          I
          -CPSA115
 COMPASS  *         RECORD INDEXED FILE.                                                   CMP30       3805          I
          -CPSA115
 COMPASS                                                                                   CMP30       3806          I
          -CPSA115
 COMPASS            SX6    #WT#        SET RECORD TYPE *W*                                 CMP30       3807          I
          -CPSA115
 COMPASS            RJ     XTXWA       OPEN WORD ADDRESSABLE FILE                          CMP30       3808          I
          -CPSA115
 COMPASS            GET    X,VALUES,10,,1                                                  CMP30       3809          I
          -CPSA115
 COMPASS            SA2    VALUES                                                          CMP30       3810          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 764    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       3811          I
          -CPSA115
 COMPASS   DM       ELSE                                                                   CMP30       3812          I
          -CPSA115
 COMPASS                                                                                   CMP30       3813          I
          -CPSA115
 COMPASS   XTX8     REWINDM X                                                              CMP30       3814     A     
 COMPASS            GET    X,VALUES,10 READ RECORD INDEX POINTER                           CMP30       3815     A     
 COMPASS            SA2    VALUES                                                          CMP30       3816     A     
 COMPASS            MX0    6                                                               CMP30       3817     A     
 COMPASS            BX4    X0*X2                                                           CMP30       3818     A     
 COMPASS            LX4    6                                                               CMP30       3819     A     
 COMPASS            SX5    X4-70B                                                          CMP30       3820     A     
 COMPASS            MI     X5,XTEXTU   IF NOT RECORD INDEXED                               CMP30       3821     A     
 COMPASS                                                                                   CMP30       3822          I
          -CPSA115
 COMPASS   DM       ENDIF                                                                  CMP30       3823          I
          -CPSA115
 COMPASS                                                                                   CMP30       3824          I
          -CPSA115
 COMPASS            MX0    -33                                                             CMP30       3825     A     
 COMPASS            BX3    -X0*X2      WORD ADDRESS OF INDEX                               CMP30       3826     A     
 COMPASS            MX0    -24                                                             CMP30       3827     A     
 COMPASS            LX2    -33                                                             CMP30       3828     A     
 COMPASS            BX7    -X0*X2                                                          CMP30       3829     A     
 COMPASS            MX4    -1                                                              CMP30       3830     A     
 COMPASS            IX6    X7+X4                                                           CMP30       3831     A     
 COMPASS            SA6    VALUES      LENGTH OF INDEX                                     CMP30       3832     A     
 COMPASS            NG     X6,XTEXTU   IF ZERO LENGTH INDEX                                CMP30       3833     A     
 COMPASS                                                                                   CMP30       3834          I
          -CPSA115
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       3835          I
          -CPS028   -CPSA115
 COMPASS            IFEQ   CP#RM,6,2                                              S028 483 CPS028       361          I
          -CPSA115
 COMPASS            STORE  X,WA=X3                                                         CMP30       3836          I
          -CPSA115
 COMPASS            SKIP   1                                                               CMP30       3837          I
          -CPSA115
 COMPASS            POSITION X,X3                                                          CMP30       3838     A     
 COMPASS                                                                                   CMP30       3839          I
          -CPSA115
 COMPASS            FETCH  X,FP,X3                                                         CMP30       3840     A     
 COMPASS            SX3    X3-#EOI#                                                        CMP30       3841     A     
 COMPASS            ZR     X3,XTEXTU   IF EMPTY FILE                                       CMP30       3842     A     
 COMPASS            GETP   X,VALUES+1,10     READ HEADER WORD                              CMP30       3843     A     
 COMPASS            SA1    VALUES+1                                                        CMP30       3844     A     
 COMPASS            PL     X1,XTEXTU   IF NOT NAME INDEX                                   CMP30       3845     A     
 COMPASS   XTX8A    SA2    VALUES                                                          CMP30       3846     A     
 COMPASS            SX4    B1+B1                                                           CMP30       3847     A     
 COMPASS            IX6    X2-X4                                                           CMP30       3848     A     
 COMPASS            SA6    A2                                                              CMP30       3849     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 765    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X2,XTEXTU   IF END OF INDEX                                     CMP30       3850     A     
 COMPASS            GETP   X,VALUES+1,20                                                   CMP30       3851     A     
 COMPASS            SA3    P1TEMPB     RECORD NAME                                         CMP30       3852     A     
 COMPASS            SA4    VALUES+1                                                        CMP30       3853     A     
 COMPASS            BX2    X3-X4                                                           CMP30       3854     A     
 COMPASS            NZ     X2,XTX8A    LOOP                                                CMP30       3855     A     
 COMPASS            SA3    A4+B1                                                           CMP30       3856     A     
 COMPASS            MX0    -33                                                             CMP30       3857     A     
 COMPASS            BX6    -X0*X3      WORD ADDRESS OF REQUEST RECORD                      CMP30       3858     A     
 COMPASS                                                                                   CMP30       3859          I
          -CPSA115
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       3860          I
          -CPS028   -CPSA115
 COMPASS            IFEQ   CP#RM,6,2                                              S028 485 CPS028       362          I
          -CPSA115
 COMPASS            STORE  X,WA=X6                                                         CMP30       3861          I
          -CPSA115
 COMPASS            SKIP   1                                                               CMP30       3862          I
          -CPSA115
 COMPASS            POSITION X,X6                                                          CMP30       3863     A     
 COMPASS                                                                                   CMP30       3864          I
          -CPSA115
 COMPASS            EQ     XTX14                                                           CMP30       3865     A     
 COMPASS                                                                                   CMP30       3866     A     
 COMPASS   RM       ENDIF                                                                  CMP30       3867     A     
 COMPASS                                                                                   CMP20        206     A     
 COMPASS  *         CHECK FOR MODIFY INDEX.                                                CMP20        207     A     
 COMPASS                                                                                   CMP20        208     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3868     A     
 COMPASS                                                                                   CMP30       3869     A     
 COMPASS   XTX8     SKIPEI X           READ INDEX                                          CMP20        209     A     
 COMPASS            SKIPB  X2,2                                                            CMP20        210     A     
 COMPASS            READ   X2                                                              CMP20        211     A     
 COMPASS            SX6    -2          SET AMODE = -2 (MODIFY COMMON DECK)                 CMP24         68          I
          -CMP30  
 COMPASS            SA6    AMODE                                                           CMP24         69          I
          -CMP30  
 COMPASS            SX6    -2          CP.IFORM = -2 (MODIFY COMMON DECK)                  CMP30       3870     A     
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CMP30       3871     A     
 COMPASS   XTX9     READW  X2,A0,1                                                         CMP20        212     A     
 COMPASS            NZ     X1,XTEXTU   IF EOR READ                                         CMP20        213     A     
 COMPASS   XTX10    SA1    A0          CHECK FOR 7700 TABLE                                CMP20        214     A     
 COMPASS            LX1    18                                                              CMP20        215     A     
 COMPASS            SX7    X1-770000B                                                      CMP20        216     A     
 COMPASS            MX5    0                                                               CMP20        217     A     
 COMPASS            NZ     X7,XTX11    IF NOT 7700 TABLE                                   CMP20        218     A     
 COMPASS            LX1    6           SKIP 7700 TABLE                                     CMP20        219     A     
 COMPASS            READW  X2,A0,X1                                                        CMP20        220     A     
 COMPASS            NZ     X1,XTEXTU   IF EOR READ                                         CMP20        221     A     
 COMPASS            EQ     XTX9        READ NEXT TABLE                                     CMP20        222     A     
 COMPASS   XTX11    SX7    X1-700000B                                                      CMP20        223     A     
 COMPASS            NZ     X7,XTEXTU   IF NOT OPLD                                         CMP20        224     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 766    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA4    P1TEMPB                                                         CMP30       3872     A     
 COMPASS            BX0    X4                                                              CMP30       3873     A     
 COMPASS   XTX12    READW  X2,A0,2     CHECK RECORD NAME                                   CMP20        225     A     
 COMPASS            NZ     X1,XTEXTU   IF RECORD NOT FOUND                                 CMP20        226     A     
 COMPASS            SA1    A0                                                              CMP20        227     A     
 COMPASS            BX6    X1-X0                                                           CMP20        228     A     
 COMPASS            ZR     X6,XTX13    IF RECORD FOUND                                     CMP20        229     A     
 COMPASS            MX4    -3                                                              CMP20        230     A     
 COMPASS            BX6    -X4-X6                                                          CMP20        231     A     
 COMPASS            NZ     X6,XTX12    IF RECORD NOT FOUND                                 CMP20        232     A     
 COMPASS                                                                                   CMP30       3874          I
          -CPSA115
 COMPASS   RM       ELSE                                                                   CMP30       3875          I
          -CPSA115
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       3876          I
          -CPS028   -CPSA115
 COMPASS   RM       IFEQ   CP#RM,6                                                S028 487 CPS028       363          I
          -CPSA115
 COMPASS                                                                                   CMP30       3877          I
          -CPSA115
 COMPASS   XTX9     SX2    XTF         SKIPEI XTF                                          CMP30       3878          I
          -CPSA115
 COMPASS            MX1    -18                                                             CMP30       3879          I
          -CPSA115
 COMPASS            LX1    18                                                              CMP30       3880          I
          -CPSA115
 COMPASS            BX2    -X1+X2                                                          CMP30       3881          I
          -CPSA115
 COMPASS            SX7    240B                                                            CMP30       3882          I
          -CPSA115
 COMPASS            RJ     =XCIO=                                                          CMP30       3883          I
          -CPSA115
 COMPASS            SX1    B1+B1       SKIPB  X2,2                                         CMP30       3884          I
          -CPSA115
 COMPASS            LX1    18                                                              CMP30       3885          I
          -CPSA115
 COMPASS            BX2    X1+X2                                                           CMP30       3886          I
          -CPSA115
 COMPASS            SX7    640B                                                            CMP30       3887          I
          -CPSA115
 COMPASS            RJ     =XCIO=                                                          CMP30       3888          I
          -CPSA115
 COMPASS            SX6    -2          CP.IFORM = -2 (MODIFY COMMON DECK)                  CMP30       3889          I
          -CPSA115
 COMPASS           SA6    CP.IFORM    SET INPUT FORMAT                                     CMP30       3890          I
          -CPS028   -CPSA115
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                           S028 489 CPS028       364          I
          -CPSA115
 COMPASS            SA3    XTF+7       INDEX POINTERS                                      CMP30       3891          I
          -CPSA115
 COMPASS            SX6    X3                                                              CMP30       3892          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 767    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    X2+B1       FIRST                                               CMP30       3893          I
          -CPSA115
 COMPASS            SA6    A6+B1       IN                                                  CMP30       3894          I
          -CPSA115
 COMPASS            SA6    A6+B1       OUT                                                 CMP30       3895          I
          -CPSA115
 COMPASS            AX3    18                                                              CMP30       3896          I
          -CPSA115
 COMPASS            BX7    X3+X6                                                           CMP30       3897          I
          -CPSA115
 COMPASS            SA7    A6+B1                                                           CMP30       3898          I
          -CPSA115
 COMPASS            SX7    -10B        READ   X2,R                                         CMP30       3899          I
          -CPSA115
 COMPASS            RJ     =XCIO=                                                          CMP30       3900          I
          -CPSA115
 COMPASS            SA2    XTF+2       IN                                                  CMP30       3901          I
          -CPSA115
 COMPASS            SA3    A2+B1       OUT                                                 CMP30       3902          I
          -CPSA115
 COMPASS            IX4    X2-X3       NUMBER OF WORDS IN BUFFER                           CMP30       3903          I
          -CPSA115
 COMPASS            ZR     X4,XTEXTU   IF NO DATA                                          CMP30       3904          I
          -CPSA115
 COMPASS            SX4    X4-1                                                            CMP30       3905          I
          -CPSA115
 COMPASS   XTX10    SA1    X3                                                              CMP30       3906          I
          -CPSA115
 COMPASS            LX1    18                                                              CMP30       3907          I
          -CPSA115
 COMPASS            SX7    X1-770000B                                                      CMP30       3908          I
          -CPSA115
 COMPASS            NZ     X7,XTX11    IF NOT 7700 TABLE                                   CMP30       3909          I
          -CPSA115
 COMPASS            LX1    6                                                               CMP30       3910          I
          -CPSA115
 COMPASS            SX2    X1+B1       WORD COUNT                                          CMP30       3911          I
          -CPSA115
 COMPASS            IX4    X4-X2                                                           CMP30       3912          I
          -CPSA115
 COMPASS            IX3    X3+X2                                                           CMP30       3913          I
          -CPSA115
 COMPASS            PL     X4,XTX10    TRY NEXT TABLE                                      CMP30       3914          I
          -CPSA115
 COMPASS            EQ     XTEXTU      IF END OF DATA                                      CMP30       3915          I
          -CPSA115
 COMPASS   XTX11    SX7    X1-700000B                                                      CMP30       3916          I
          -CPSA115
 COMPASS            SX4    X4-1                                                            CMP30       3917          I
          -CPSA115
 COMPASS            NZ     X7,XTEXTU   IF NOT OPLD                                         CMP30       3918          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 768    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X4,XTEXTU   IF END OF DATA                                      CMP30       3919          I
          -CPSA115
 COMPASS            MX0    -3                                                              CMP30       3920          I
          -CPSA115
 COMPASS            SA1    A1+B1                                                           CMP30       3921          I
          -CPSA115
 COMPASS            SA3    P1TEMPB     RECORD NAME                                         CMP30       3922          I
          -CPSA115
 COMPASS   XTX12    SX4    X4-2                                                            CMP30       3923          I
          -CPSA115
 COMPASS            BX5    X1-X3                                                           CMP30       3924          I
          -CPSA115
 COMPASS            NG     X4,XTEXTU   IF RECORD NOT FOUND                                 CMP30       3925          I
          -CPSA115
 COMPASS            SA1    A1+2                                                            CMP30       3926          I
          -CPSA115
 COMPASS            ZR     X5,XTX12A   IF RECORD FOUND                                     CMP30       3927          I
          -CPSA115
 COMPASS            BX6    -X0-X5                                                          CMP30       3928          I
          -CPSA115
 COMPASS            NZ     X6,XTX12    IF RECORD NOT FOUND                                 CMP30       3929          I
          -CPSA115
 COMPASS   XTX12A   SA3    A1-B1                                                           CMP30       3930          I
          -CPSA115
 COMPASS            SX6    #ST#        SET RECORD TYPE *S*                                 CMP30       3931          I
          -CPSA115
 COMPASS                                                                                   CMP30       3932          I
          -CPSA115
 COMPASS   RM       ENDIF                                                                  CMP30       3933          I
          -CPSA115
 COMPASS                                                                                   CMP20        233     A     
 COMPASS  *         SET RANDOM ADDRESS.                                                    CMP20        234     A     
 COMPASS                                                                                   CMP20        235     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3934          I
          -CPSA115
 COMPASS                                                                                   CMP30       3935          I
          -CPSA115
 COMPASS   XTX13    RECALL X                                                               CMP20        236     A     
 COMPASS            SA2    A0+B1                                                           CMP20        237     A     
 COMPASS            BX6    X2                                                              CMP20        238     A     
 COMPASS            SA6    X+6                                                             CMP20        239     A     
 COMPASS   XTX13A   BSS    0                                                               CMP30       3936     A     
 COMPASS                                                                                   CMP30       3937     A     
 COMPASS   RM       ELSE                                                                   CMP30       3938     A     
 COMPASS                                                                                   CMP30       3939     A     
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       3940          I
          -CPS028 
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 491 CPS028       365          I
          -CPSA115
 COMPASS   XTX13    MX0    -30         COMPUTE WORD ADDRESS                                CMP30       3941          I
          -CPSA115
 COMPASS            BX1    -X0*X3                                                          CMP30       3942          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 769    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA115
 COMPASS            LX1    6                                                               CMP30       3943          I
          -CPSA115
 COMPASS            MX5    -6                                                              CMP30       3944          I
          -CPSA115
 COMPASS            IX7    X1+X5       PRU NO.*64 - 63                                     CMP30       3945          I
          -CPSA115
 COMPASS            SA7    P1TEMPC                                                         CMP30       3946          I
          -CPSA115
 COMPASS            RJ     XTXWA       OPEN WORD ADDRESSABLE FILE                          CMP30       3947          I
          -CPSA115
 COMPASS            SA2    P1TEMPC                                                         CMP30       3948          I
          -CPSA115
 COMPASS            STORE  X,WA=X2     SET WORD ADDRESS                                    CMP30       3949          I
          -CPSA115
 COMPASS            EQ     XTX14                                                           CMP30       3950          I
          -CPSA115
 COMPASS   DM       ENDIF                                                                  CMP30       3951          I
          -CPSA115
 COMPASS                                                                                   CMP30       3952     A     
 COMPASS   XTX13A   OPENM  X,INPUT,R   OPEN FOR SEQUENTIAL                                 CMP30       3953     A     
 COMPASS                                                                                   CMP30       3954     A     
 COMPASS   RM       ENDIF                                                                  CMP30       3955     A     
 COMPASS                                                                                   CMP20        240     A     
 COMPASS  *         READ RECORD.                                                           CMP20        241     A     
 COMPASS                                                                                   CMP20        242     A     
 COMPASS   XTX14    MX6    0                                                               CMP20        243     A     
 COMPASS            SA6    VALUES+9                                                        CMP20        244     A     
 COMPASS            SA2    L.LASTAB                                                        CMP20        245     A     
 COMPASS            BX6    X2                                                              CMP20        246     A     
 COMPASS            SA6    P1TEMP                                                          CMP20        247     A     
 COMPASS            RJ     CWI                                                             CMP20        248          I
          -CMP24  
 COMPASS            SA1    X+1         SET IN = OUT = FIRST                                CMP20        249          I
          -CMP30  
 COMPASS            SA1    XTF+1       SET IN = OUT = FIRST                                CMP30       3956     A     
 COMPASS            SX6    X1                                                              CMP20        250     A     
 COMPASS            SA6    A1+B1                                                           CMP20        251     A     
 COMPASS            SA6    A6+B1                                                           CMP20        252     A     
 COMPASS            SX2    X                                                               CMP30       3957     A     
 COMPASS            SA0    VALUES                                                          CMP20        253     A     
 COMPASS            READ   X           READ HEADER                                         CMP20        254          I
          -CMP30  
 COMPASS            SA1    P1TEMPC                                                         CMP20        255          I
          -CMP24    -CMP30  
 COMPASS            NZ     X1,XTX22    IF UPDATE OLDPL                                     CMP20        256          I
          -CMP24    -CMP30  
 COMPASS            READC  X2,A0,9                                                         CMP20        257          I
          -CMP24    -CMP30  
 COMPASS            NZ     X1,XTEXTU   IF EOR OR EOF                                       CMP20        258          I
          -CMP24    -CMP30  
 COMPASS            SA1    AMODE                                                           CMP24         70          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 770    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS                                                                                   CMP30       3958     A     
 COMPASS            IFEQ   CP#RM,0,1                                                       CMP30       3959     A     
 COMPASS            READ   X2          READ HEADER                                         CMP30       3960     A     
 COMPASS                                                                                   CMP30       3961     A     
 COMPASS            SA1    CP.IFORM                                                        CMP30       3962     A     
 COMPASS                                                                                   CMP30       3963     A     
 COMPASS            IFNE   CP#RM,0,1                                                       CMP30       3964          I
          -CPS028 
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       3965          I
          -CPS028 
 COMPASS   RM       IFNE   CP#RM,7                                                S028 493 CPS028       366     A     
 COMPASS            PL     X1,XTX15    IF NOT A PROGRAM LIBRARY FILE                       CMP24         71     A     
 COMPASS            LX1    59                                                              CMP24         72     A     
 COMPASS            PL     X1,XTX19    IF UPDATE                                           CMP24         73     A     
 COMPASS            EQ     XTX16       MODIFY                                              CMP24         74     A     
 COMPASS   RM       ELSE                                                                   CMP30       3966     A     
 COMPASS            MI     X1,XTX19    IF UPDATE PROGRAM LIBRARY                           CMP30       3967     A     
 COMPASS   RM       ENDIF                                                                  CMP30       3968     A     
 COMPASS                                                                                   CMP24         75     A     
 COMPASS  *         READ FROM A NON-PROGRAM-LIBRARY FILE.                                  CMP24         76     A     
 COMPASS                                                                                   CMP24         77     A     
 COMPASS   XTX15    READC  X2,A0,9     READ FIRST CARD OR 7700 HEADER WORD                 CMP24         78          I
          -CMP30  
 COMPASS            SA3    A0                                                              CMP24         79          I
          -CMP30  
 COMPASS            NZ     X1,XTX22    IF EMPTY RECORD                                     CMP24         80          I
          -CMP30  
 COMPASS            LX3    18                                                              CMP24         81          I
          -CMP30  
 COMPASS            SX4    X3-770000B                                                      CMP24         82          I
          -CMP30  
 COMPASS            NZ     X4,XTX20    IF NOT 7700                                         CMP24         83          I
          -CMP30  
 COMPASS            LX3    6                                                               CMP24         84          I
          -CMP30  
 COMPASS            SX6    B1+B1       AMODE = +2 (UPDATE COMPRESSED COMPILE FILE)         CMP24         85          I
          -CMP30  
 COMPASS            SX3    X3                                                              CMP24         86          I
          -CMP30  
 COMPASS   +        ZR     X3,*+1      IF ZERO WORD COUNT                                  CMP24         87          I
          -CMP30  
 COMPASS            SX6    B1          AMODE = +1 (MODIFY COMPRESSED COMPILE FILE)         CMP24         88          I
          -CMP30  
 COMPASS            SA6    AMODE                                                           CMP24         89          I
          -CMP30  
 COMPASS            RJ     RNC         READ FIRST CARD                                     CMP24         90          I
          -CMP30  
 COMPASS   XTX15    RJ     CIF         CHECK INPUT FORMAT                                  CMP30       3969     A     
 COMPASS            SA1    EOFINP                                                          CMP30       3970     A     
 COMPASS            SA3    CP.IFORM                                                        CMP30       3971     A     
 COMPASS            NZ     X1,XTX22    IF NO DATA                                          CMP30       3972     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 771    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X3,XTX20    IF NOT COMPRESSED SOURCE INPUT                      CMP30       3973     A     
 COMPASS            EQ     XTX21                                                           CMP24         91     A     
 COMPASS                                                                                   CMP24         92     A     
 COMPASS  *         READ MODIFY COMMON DECK.                                               CMP24         93     A     
 COMPASS                                                                                   CMP24         94     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       3974     A     
 COMPASS                                                                                   CMP30       3975     A     
 COMPASS   XTX16    READC  X2,A0,9     READ HEADER                                         CMP24         95     A     
 COMPASS            NZ     X1,XTEXTU   IF EMPTY RECORD                                     CMP24         96     A     
 COMPASS            SA1    A0          CHECK IF OPLC                                       CMP20        259     A     
 COMPASS            LX1    18                                                              CMP20        260     A     
 COMPASS            SX6    X1-770000B                                                      CMP20        261     A     
 COMPASS            NZ     X6,XTX20    IF NOT 7700 TABLE                                   CMP20        262          I
          -CMP24  
 COMPASS                                                                                   CMP20        263          I
          -CMP24  
 COMPASS  *         READ MODIFY COMMON DECK.                                               CMP20        264          I
          -CMP24  
 COMPASS                                                                                   CMP20        265          I
          -CMP24  
 COMPASS            NZ     X6,XTEXTU   IF NOT 7700 HEADER                                  CMP24         97     A     
 COMPASS            LX1    6                                                               CMP20        266     A     
 COMPASS            READW  X2,A0,X1    SKIP 7700 TABLE                                     CMP20        267     A     
 COMPASS            MX6    0                                                               CMP24         98          I
          -CP114  
 COMPASS            SA1    B6-B1                                                           CP114         13     A     
 COMPASS            SB7    X1-64B      CHECK LAST WORD OF 7700 TABLE                       CP114         14     A     
 COMPASS            NZ     B7,XTX16A   IF NOT 64 CHARACTER SET                             CP114         15     A     
 COMPASS            SX7    -4          CP.IFORM = -4 (MODIFY COMDECK, 64 CHAR SET)         CP114         16     A     
 COMPASS            SA7    CP.IFORM    SET INPUT FORMAT                                    CP114         17     A     
 COMPASS   XTX16A   MX6    0                                                               CP114         18     A     
 COMPASS            SA6    VALUES+9                                                        CMP24         99     A     
 COMPASS            READW  X2,A0,1                                                         CMP20        268     A     
 COMPASS            NZ     X1,XTEXTF   IF NO DATA                                          CMP20        269     A     
 COMPASS            SA1    A0                                                              CMP20        270     A     
 COMPASS            SX5    X1                                                              CMP20        271     A     
 COMPASS            LX1    18                                                              CMP20        272     A     
 COMPASS            SX6    X1-700200B                                                      CMP20        273     A     
 COMPASS            NZ     X6,XTEXTF   IF FUNNY DATA                                       CMP20        274     A     
 COMPASS            ZR     X5,XTX16    IF NO CORRECTION IDENT TABLE                        CMP20        275          I
          -CMP24  
 COMPASS   XTX15    READW  X2,A0,1     SKIP CORRECTION IDENT TABLE                         CMP20        276          I
          -CMP24  
 COMPASS            ZR     X5,XTX18    IF NO CORRECTION IDENT TABLE                        CMP24        100     A     
 COMPASS   XTX17    READW  X2,A0,1     SKIP CORRECTION IDENT TABLE                         CMP24        101     A     
 COMPASS            NZ     X1,XTEXTF   IF EOR                                              CMP20        277     A     
 COMPASS            SX5    X5-1                                                            CMP20        278     A     
 COMPASS            NZ     X5,XTX15    LOOP                                                CMP20        279          I
          -CMP24  
 COMPASS   XTX16    MANAGE LASTAB,14   GET TABLE SPACE                                     CMP20        280          I
          -CMP24  
 COMPASS   XTX17    SA0    VALUES                                                          CMP20        281          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 772    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            SX2    X                                                               CMP20        282          I
          -CMP24  
 COMPASS            READC  X2,A0,NLITS SKIP CORRECTION HISTORY BYTES                       CMP20        283          I
          -CMP24  
 COMPASS            NZ     X1,XTX27    IF EOR                                              CMP20        284          I
          -CMP24  
 COMPASS            SA5    A0                                                              CMP20        285          I
          -CMP24  
 COMPASS            READC  X2,A0,14    READ COMPRESSED CARD                                CMP20        286          I
          -CMP24  
 COMPASS            PL     X5,XTX17    IF CARD NOT ACTIVE                                  CMP20        287          I
          -CMP24  
 COMPASS            RJ     PTC         PACK TEXT CARD                                      CMP20        288          I
          -CMP24  
 COMPASS            EQ     XTX17       LOOP                                                CMP20        289          I
          -CMP24  
 COMPASS            NZ     X5,XTX17    LOOP                                                CMP24        102     A     
 COMPASS   XTX18    RJ     RNC         READ FIRST ACTIVE CARD                              CMP24        103     A     
 COMPASS            EQ     XTX21                                                           CMP24        104     A     
 COMPASS                                                                                   CMP30       3976          I
          -CPSA115
 COMPASS   RM       ELSE                                                                   CMP30       3977          I
          -CPSA115
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       3978          I
          -CPS028   -CPSA115
 COMPASS   RM       IFEQ   CP#RM,6                                                S028 495 CPS028       367          I
          -CPSA115
 COMPASS                                                                                   CMP30       3979          I
          -CPSA115
 COMPASS   XTX16    GETP   X,VALUES,10 READ HEADER WORD                                    CMP30       3980          I
          -CPSA115
 COMPASS            FETCH  X,FP,X4                                                         CMP30       3981          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       3982          I
          -CPSA115
 COMPASS            SA1    VALUES                                                          CMP30       3983          I
          -CPSA115
 COMPASS            BX6    X0*X4                                                           CMP30       3984          I
          -CPSA115
 COMPASS            NZ     X6,XTEXTU   IF NO DATA                                          CMP30       3985          I
          -CPSA115
 COMPASS            LX1    18                                                              CMP30       3986          I
          -CPSA115
 COMPASS            SX6    X1-770000B                                                      CMP30       3987          I
          -CPSA115
 COMPASS            NZ     X6,XTEXTU   IF NOT 7700 HEADER                                  CMP30       3988          I
          -CPSA115
 COMPASS            LX1    6                                                               CMP30       3989          I
          -CPSA115
 COMPASS            SX5    X1          WORD COUNT                                          CMP30       3990          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 773    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX6    X5+X5                                                           CMP30       3991          I
          -CPSA115
 COMPASS            LX5    3           MULTIPLY BY 10                                      CMP30       3992          I
          -CPSA115
 COMPASS            IX3    X5+X6                                                           CMP30       3993          I
          -CPSA115
 COMPASS            GETP   X,VALUES,X3 SKIP 7700 TABLE                                     CMP30       3994          I
          -CP114    -CPSA115
 COMPASS            GETP   X,VALUES,10 READ NEXT HEADER WORD                               CMP30       3995          I
          -CP114    -CPSA115
 COMPASS            GETP   X,VALUES+1,X3  READ 7700 TABLE                                  CP114         19          I
          -CPSA115
 COMPASS            SA1    VALUES                                                          CP114         20          I
          -CPSA115
 COMPASS            LX1    24                                                              CP114         21          I
          -CPSA115
 COMPASS            SA1    VALUES+X1   CHECK LAST WORD OF 7700 TABLE                       CP114         22          I
          -CPSA115
 COMPASS            SB7    X1-64B                                                          CP114         23          I
          -CPSA115
 COMPASS            NZ     B7,XTX16A   IF NOT 64 CHARACTER SET                             CP114         24          I
          -CPSA115
 COMPASS            SX6    -4          CP.IFORM = -4 (MODIFY COMDECK, 64 CHAR SET)         CP114         25          I
          -CPSA115
 COMPASS            SA6    CP.IFORM    SET INPUT FORMAT                                    CP114         26          I
          -CPSA115
 COMPASS   XTX16A   GETP   X,VALUES,10 READ NEXT HEADER WORD                               CP114         27          I
          -CPSA115
 COMPASS            FETCH  X,FP,X4                                                         CMP30       3996          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       3997          I
          -CPSA115
 COMPASS            SA1    VALUES                                                          CMP30       3998          I
          -CPSA115
 COMPASS            BX6    X0*X4                                                           CMP30       3999          I
          -CPSA115
 COMPASS            NZ     X6,XTEXTF   IF END OF DATA                                      CMP30       4000          I
          -CPSA115
 COMPASS            SX7    X1                                                              CMP30       4001          I
          -CPSA115
 COMPASS            LX1    18                                                              CMP30       4002          I
          -CPSA115
 COMPASS            SX6    X1-700200B                                                      CMP30       4003          I
          -CPSA115
 COMPASS            NZ     X6,XTEXTF   IF FUNNY DATA                                       CMP30       4004          I
          -CPSA115
 COMPASS            ZR     X7,XTX18    IF NO CORRECTION IDENT TABLE                        CMP30       4005          I
          -CPSA115
 COMPASS   XTX17    SA7    T6RM1                                                           CMP30       4006          I
          -CPSA115
 COMPASS            GETP   X,VALUES,10 SKIP CORRECTION IDENT TABLE                         CMP30       4007          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 774    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            FETCH  X,FP,X4                                                         CMP30       4008          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       4009          I
          -CPSA115
 COMPASS            SA1    T6RM1       COUNT WORDS                                         CMP30       4010          I
          -CPSA115
 COMPASS            BX6    X0*X4                                                           CMP30       4011          I
          -CPSA115
 COMPASS            SX7    X1-1                                                            CMP30       4012          I
          -CPSA115
 COMPASS            NZ     X6,XTEXTF   IF END OF DATA                                      CMP30       4013          I
          -CPSA115
 COMPASS            NZ     X7,XTX17    LOOP                                                CMP30       4014          I
          -CPSA115
 COMPASS   XTX18    RJ     RNC         READ FIRST ACTIVE CARD                              CMP30       4015          I
          -CPSA115
 COMPASS            EQ     XTX21                                                           CMP30       4016          I
          -CPSA115
 COMPASS                                                                                   CMP30       4017     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4018     A     
 COMPASS                                                                                   CMP24        105     A     
 COMPASS  *         READ UPDATE COMMON DECK.                                               CMP24        106     A     
 COMPASS                                                                                   CMP24        107     A     
 COMPASS   XTX19    RJ     RNC         READ FIRST ACTIVE CARD                              CMP24        108     A     
 COMPASS            SA1    EOFINP                                                          CMP24        109     A     
 COMPASS            SA5    X0                                                              CMP24        110     A     
 COMPASS            MX3    7*6+4                                                           CMP24        111          I
          -CPS172 
 COMPASS            MX3    8*6                                                             CPS172        21     A     
 COMPASS            NZ     X1,XTEXTU   IF NO ACTIVE CARDS                                  CMP24        112     A     
 COMPASS            SA4    =8LCOMDECK=                                                     CMP24        113          I
          -CPS172 
 COMPASS            LX5    6                                                               CMP24        114          I
          -CPS172 
 COMPASS            SA4    P1TEMPC     =8L*COMDECK WHERE * IS                              CPS172        22     A     
 COMPASS            BX1    -X3*X5      MASTER CONTROL CHARACTER                            CPS172        23     A     
 COMPASS            BX5    X3*X5                                                           CMP24        115     A     
 COMPASS            BX5    X4-X5                                                           CMP24        116     A     
 COMPASS            NZ     X5,XTEXTU   IF NOT *COMDECK                                     CMP24        117     A     
 COMPASS            AX1    6                                                               CPS172        24     A     
 COMPASS            SX5    X1-1R       TEST NINTH CHARACTER                                CPS172        25     A     
 COMPASS            AX5    6                                                               CPS172        26     A     
 COMPASS            BX1    X1*X5                                                           CPS172        27     A     
 COMPASS            NZ     X1,XTEXTU   IF NOT 00B NOR 55B-77B                              CPS172        28     A     
 COMPASS            RJ     RNC         SKIP *COMDECK CARD                                  CMP24        118     A     
 COMPASS            EQ     XTX21                                                           CMP24        119     A     
 COMPASS                                                                                   CMP20        290     A     
 COMPASS  *         READ TEXT.                                                             CMP20        291     A     
 COMPASS                                                                                   CMP20        292     A     
 COMPASS   XTX20    MX0    -18                                                             CMP20        293          I
          -CMP30  
 COMPASS   XTX20    BSS    0                                                               CMP30       4019     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 775    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       4020     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4021     A     
 COMPASS            MX0    -18                                                             CMP30       4022     A     
 COMPASS            SA1    A0                                                              CMP20        294     A     
 COMPASS            BX6    -X0*X1                                                          CMP20        295     A     
 COMPASS            NZ     X6,XTX21    IF NOT TEXT FORMAT                                  CMP20        296     A     
 COMPASS            READC  X2,A0,9     READ FIRST LINE                                     CMP20        297     A     
 COMPASS            NZ     X1,XTEXTU   IF EOR OR EOF                                       CMP20        298          I
          -CMP24  
 COMPASS            NZ     X1,XTX22    IF EOR                                              CMP24        120     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4023     A     
 COMPASS                                                                                   CMP30       4024     A     
 COMPASS   XTX21    SX2    X                                                               CMP20        299          I
          -CMP029 
 COMPASS   XTX21    RJ     CWI         WRITE *XTEXT* TO INTERMEDIATE                       CMP029        86          I
          -CP114  
 COMPASS   XTX21    SA1    CP.IFORM    RESTORE INPUT FORMAT                                CP114         28     A     
 COMPASS            SA2    P1TEMPD                                                         CP114         29     A     
 COMPASS            BX6    X1                                                              CP114         30     A     
 COMPASS            LX7    X2          SAVE NEW FORMAT                                     CP114         31     A     
 COMPASS            SA6    A2                                                              CP114         32     A     
 COMPASS            SA7    A1                                                              CP114         33     A     
 COMPASS            RJ     CWI         WRITE *XTEXT* TO INTERMEDIATE                       CP114         34     A     
 COMPASS            SA1    P1TEMPD                                                         CP114         35     A     
 COMPASS            SA2    CP.IFORM                                                        CP114         36     A     
 COMPASS            BX6    X1          SET NEW INPUT FORMAT                                CP114         37     A     
 COMPASS            LX7    X2                                                              CP114         38     A     
 COMPASS            SA6    A2                                                              CP114         39     A     
 COMPASS            SA7    A1                                                              CP114         40     A     
 COMPASS   XTX21A   SX2    X                                                               CMP029        87     A     
 COMPASS            SA0    VALUES                                                          CMP20        300     A     
 COMPASS            RJ     CRCARD      READ STATEMENT                                      CMP20        301          I
          -CMP24  
 COMPASS            RJ     RNS         READ NEXT STATEMENT                                 CMP24        121     A     
 COMPASS            RJ     SETUP                                                           CMP20        302     A     
 COMPASS            SA2    IOP                                                             CMP20        303     A     
 COMPASS            SX3    3REND                                                           CMP20        304     A     
 COMPASS            BX6    X2-X3                                                           CMP20        305     A     
 COMPASS            ZR     X6,XTX28    IF *END*                                            CMP20        306          I
          -CMP24  
 COMPASS            MX6    0                                                               CMP20        307          I
          -CMP24  
 COMPASS            SA6    SQLGN                                                           CMP20        308          I
          -CMP24  
 COMPASS            ZR     X6,XTX22    IF *END* STATEMENT                                  CMP24        122          I
          -CMP029 
 COMPASS            ZR     X6,XTX22A   IF *END* STATEMENT                                  CMP029        88     A     
 COMPASS            PCARD  LASTAB                                                          CMP20        309     A     
 COMPASS            EQ     XTX21       LOOP                                                CMP20        310          I
          -CMP029 
 COMPASS            EQ     XTX21A      LOOP                                                CMP029        89     A     
 COMPASS                                                                                   CMP20        311          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 776    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS  *         READ UPDATE COMMON DECK.                                               CMP20        312          I
          -CMP24  
 COMPASS                                                                                   CMP20        313          I
          -CMP24  
 COMPASS   XTX22    MANAGE LASTAB,14                                                       CMP20        314          I
          -CMP24  
 COMPASS            SA0    VALUES                                                          CMP20        315          I
          -CMP24  
 COMPASS            SX2    X                                                               CMP20        316          I
          -CMP24  
 COMPASS            READW  X2,A0,1     READ *COMDECK CARD                                  CMP20        317          I
          -CMP24  
 COMPASS            SA5    A0                                                              CMP20        318          I
          -CMP24  
 COMPASS            MX3    1                                                               CMP20        319          I
          -CMP24  
 COMPASS            LX3    -1                                                              CMP20        320          I
          -CMP24  
 COMPASS            BX5    -X3*X5      SET INACTIVE                                        CMP20        321          I
          -CMP24  
 COMPASS            EQ     XTX24                                                           CMP20        322          I
          -CMP24  
 COMPASS   XTX23    SX2    X                                                               CMP20        323          I
          -CMP24  
 COMPASS            SA0    VALUES                                                          CMP20        324          I
          -CMP24  
 COMPASS            READW  X2,A0,1     READ CONTROL WORD                                   CMP20        325          I
          -CMP24  
 COMPASS            SA5    A0                                                              CMP20        326          I
          -CMP24  
 COMPASS   XTX24    NZ     X1,XTX27    IF EOR                                              CMP20        327          I
          -CMP24  
 COMPASS            BX3    X5                                                              CMP20        328          I
          -CMP24  
 COMPASS   XTX25    NG     X3,XTX26    IF END OF CHB-S                                     CMP20        329          I
          -CMP24  
 COMPASS            READW  X2,A0,1     SKIP CHB                                            CMP20        330          I
          -CMP24  
 COMPASS            SA3    A0                                                              CMP20        331          I
          -CMP24  
 COMPASS            ZR     X1,XTX25    IF NOT EOR                                          CMP20        332          I
          -CMP24  
 COMPASS            EQ     XTX27                                                           CMP20        333          I
          -CMP24  
 COMPASS   XTX26    LX5    24          READ CARD INTO TABLE                                CMP20        334          I
          -CMP24  
 COMPASS            READW  X2,A0,X5                                                        CMP20        335          I
          -CMP24  
 COMPASS            LX5    -23                                                             CMP20        336          I
          -CMP24  
 COMPASS            PL     X5,XTX23    IF CARD INACTIVE                                    CMP20        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/28. 19.11.32.      PAGE 777    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            MX6    0                                                               CMP20        338          I
          -CMP24  
 COMPASS            SA6    B6                                                              CMP20        339          I
          -CMP24  
 COMPASS            RJ     PTC         PACK TEXT CARD                                      CMP20        340          I
          -CMP24  
 COMPASS            EQ     XTX23       LOOP                                                CMP20        341          I
          -CMP24  
 COMPASS                                                                                   CMP20        342          I
          -CMP24  
 COMPASS  *         PROCESS END OF COMMON DECK.                                            CMP20        343          I
          -CMP24  
 COMPASS                                                                                   CMP20        344          I
          -CMP24  
 COMPASS   XTX27    MANAGE LASTAB,-14                                                      CMP20        345          I
          -CMP24  
 COMPASS                                                                                   CMP20        346     A     
 COMPASS  *         PROCESS END OF TEXT.                                                   CMP20        347     A     
 COMPASS                                                                                   CMP20        348     A     
 COMPASS   XTX28    SX1    1RT                                                             CMP20        349          I
          -CMP24  
 COMPASS   XTX22    SX1    1RT                                                             CMP24        123          I
          -CMP029 
 COMPASS   XTX22    RJ     CWI         EMPTY RECORD - WRITE *XTEXT* TO INTER               CMP029        90          I
          -CP114  
 COMPASS   XTX22    SA1    P1TEMPD     EMPTY RECORD - RESTORE INPUT FORMAT                 CP114         41     A     
 COMPASS            BX6    X1                                                              CP114         42     A     
 COMPASS            SA6    CP.IFORM                                                        CP114         43     A     
 COMPASS            RJ     CWI         WRITE *XTEXT* TO INTERMEDIATE                       CP114         44     A     
 COMPASS   XTX22A   SX1    1RT                                                             CMP029        91     A     
 COMPASS            LX1    54                                                              CMP20        350     A     
 COMPASS            ADDWORD LASTAB                                                         CMP20        351     A     
 COMPASS            SA1    P1TEMPD     RESTORE AMODE                                       CMP24        124          I
          -CMP30  
 COMPASS            SA1    P1TEMPD     RESTORE INPUT FORMAT AND END OF INPUT FLAG          CMP30       4025     A     
 COMPASS            SA2    A1+B1                                                           CMP30       4026     A     
 COMPASS            BX6    X1                                                              CMP24        125     A     
 COMPASS            SA6    AMODE                                                           CMP24        126          I
          -CMP30  
 COMPASS            LX7    X2                                                              CMP30       4027     A     
 COMPASS            SA6    CP.IFORM                                                        CMP30       4028     A     
 COMPASS            SA7    EOFINP                                                          CMP30       4029     A     
 COMPASS            RJ     CWI         WRITE *XTEXT* TO INTERMEDIATE                       CMP24        127          I
          -CMP029 
 COMPASS            SA1    P1TEMP                                                          CMP20        352     A     
 COMPASS            SX2    4                                                               CMP20        353     A     
 COMPASS            SA4    P1TEMPA     XTEXT FILE NAME                                     CMP20        354     A     
 COMPASS            MX5    0                                                               CMP20        355     A     
 COMPASS            BX3    X1                                                              CMP20        356     A     
 COMPASS            RJ     PUSHDOWN                                                        CMP20        357     A     
 COMPASS            SA1    XLEV        INCREMENT XTEXT LEVEL                      P036  54 CMP036        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/28. 19.11.32.      PAGE 778    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    B1                                                              CMP20        358     A     
 COMPASS            SX7    X1+B1                                                  P036  56 CMP036        35     A     
 COMPASS            SA6    LIBFLG                                                          CMP20        359     A     
 COMPASS            SA7    A1                                                     P036  58 CMP036        36     A     
 COMPASS                                                                                   CMP30       4030     A     
 COMPASS            IFNE   CP#RM,0,1                                                       CMP30       4031     A     
 COMPASS            CLOSEM X,R                                                             CMP30       4032     A     
 COMPASS                                                                                   CMP30       4033     A     
 COMPASS            EQ     CTL100                                                          CMP20        360     A     
 COMPASS                                                                                   CMP20        361     A     
 COMPASS  *         POST *F* ERROR.                                                        CMP20        362     A     
 COMPASS                                                                                   CMP20        363     A     
 COMPASS   XTEXTF   SX6    B1          POST OVERFLOW ERROR                                 CMP20        364          I
          -CMP26  
 COMPASS            SA6    FERR        SINCE NO ROOM FOR INDEX                             CMP20        365          I
          -CMP26  
 COMPASS            SA6    EFLG                                                            CMP20        366          I
          -CMP26  
 COMPASS   XTEXTF   SX6    B1                                                              CMP26         36     A     
 COMPASS            SA6    FERR        FUNNY DATA                                          CMP26         37     A     
 COMPASS            EQ     XTEXTQ                                                          CMP20        367     A     
 COMPASS                                                                                   CMP20        368     A     
 COMPASS  *         POST *U* ERROR.                                                        CMP20        369     A     
 COMPASS                                                                                   CMP20        370     A     
 COMPASS   XTEXTU   SX6    B1          POST U ERROR TO WARN OF UNFOUND RECORD              CMP20        371          I
          -CMP26  
 COMPASS            SA6    EFLG                                                            CMP20        372          I
          -CMP26  
 COMPASS            SA6    UERR        RECORD                                              CMP20        373          I
          -CMP26  
 COMPASS   XTEXTU   SX6    B1                                                              CMP26         38     A     
 COMPASS            SA6    UERR        UNFOUND RECORD                                      CMP26         39     A     
 COMPASS                                                                                   CMP20        374     A     
 COMPASS  *         CLOSE THE FILE.                                                        CMP20        375     A     
 COMPASS                                                                                   CMP20        376     A     
 COMPASS   XTEXTQ   REWIND X                                                               CMP20        377          I
          -CMP26  
 COMPASS   XTEXTQ   SA6    EFLG                                                            CMP26         40     A     
 COMPASS                                                                                   CMP30       4034     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       4035     A     
 COMPASS            REWIND X                                                               CMP26         41     A     
 COMPASS            SA1    P1TEMPD     RESTORE AMODE                                       CMP24        128          I
          -CMP30  
 COMPASS            ELSE   1                                                               CMP30       4036     A     
 COMPASS            CLOSEM X,R                                                             CMP30       4037     A     
 COMPASS                                                                                   CMP30       4038     A     
 COMPASS            SA1    P1TEMPD     RESTORE INPUT FORMAT AND END OF INPUT FLAG          CMP30       4039     A     
 COMPASS            SA2    A1+B1                                                           CMP30       4040     A     
 COMPASS            BX6    X1                                                              CMP24        129     A     
 COMPASS            SA6    AMODE                                                           CMP24        130          I
          -CMP30  
 COMPASS            LX7    X2                                                              CMP30       4041     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 779    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    CP.IFORM                                                        CMP30       4042     A     
 COMPASS            SA7    EOFINP                                                          CMP30       4043     A     
 COMPASS            EQ     CTL70                                                           CMP20        378     A     
 COMPASS   XTEXT    SPACE  4                                                               CMP30       4044     A     
 COMPASS   RM       IFNE   CP#RM,0                                                         CMP30       4045     A     
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       4046          I
          -CPS028 
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 497 CPS028       368          I
          -CPSA115
 COMPASS                                                                                   CMP30       4047          I
          -CPSA115
 COMPASS                                                                                   CMP30       4048          I
          -CPSA115
 COMPASS  **        XTXWA - OPEN WORD ADDRESSABLE FILE FOR XTEXT INPUT.                    CMP30       4049          I
          -CPSA115
 COMPASS  *         ENTRY  (X6) = RECORD TYPE.                                             CMP30       4050          I
          -CPSA115
 COMPASS                                                                                   CMP30       4051          I
          -CPSA115
 COMPASS                                                                                   CMP30       4052          I
          -CPSA115
 COMPASS   XTXWA    PS                 RETURN EXIT                                         CMP30       4053          I
          -CPSA115
 COMPASS            SA6    T6RM1       SAVE RECORD TYPE                                    CMP30       4054          I
          -CPSA115
 COMPASS            STORE  X,RT=X6                                                         CMP30       4055          I
          -CPSA115
 COMPASS            STORE  X,FO=WA                                                         CMP30       4056          I
          -CPSA115
 COMPASS            OPENM  X,INPUT,N                                                       CMP30       4057          I
          -CPSA115
 COMPASS            FETCH  X,RT,X4                                                         CMP30       4058          I
          -CPSA115
 COMPASS            SA3    T6RM1                                                           CMP30       4059          I
          -CPSA115
 COMPASS            IX2    X3-X4                                                           CMP30       4060          I
          -CPSA115
 COMPASS            NZ     X2,XTXW1    IF RECORD TYPE CHANGED BY *FILE* CARD               CMP30       4061          I
          -CPSA115
 COMPASS            FETCH  X,FO,X4                                                         CMP30       4062          I
          -CPSA115
 COMPASS            SX3    X4-#WA#                                                         CMP30       4063          I
          -CPSA115
 COMPASS            ZR     X3,XTXWA    IF FILE ORG. NOT CHANGED BY *FILE* CARD             CMP30       4064          I
          -CPSA115
 COMPASS   XTXW1    CLOSEM X,N                                                             CMP30       4065          I
          -CPSA115
 COMPASS            STORE  X,FO=WA     FORCE FILE ORGANIZATION                             CMP30       4066          I
          -CPSA115
 COMPASS            SA3    T6RM1                                                           CMP30       4067          I
          -CPSA115
 COMPASS            STORE  X,RT=X3     FORCE RECORD TYPE                                   CMP30       4068          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 780    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA115
 COMPASS            OPENM  X,INPUT,N                                                       CMP30       4069          I
          -CPSA115
 COMPASS            EQ     XTXWA       RETURN                                              CMP30       4070          I
          -CPSA115
 COMPASS                                                                                   CMP30       4071          I
          -CPSA115
 COMPASS   DM       ENDIF                                                                  CMP30       4072          I
          -CPSA115
 COMPASS                                                                                   CMP30       4073          I
          -CPSA115
 COMPASS                                                                                   CMP30       4074     A     
 COMPASS  **        DUMMY FIT FOR RE-INITIALIZING XTEXT FIT.                               CMP30       4075     A     
 COMPASS                                                                                   CMP30       4076     A     
 COMPASS                                                                                   CMP30       4077     A     
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       4078          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 499 CPS028       369          I
          -CPSA115
 COMPASS   XDUM     FILE   FO=SQ,BT=C,RT=Z,MRL=100,CM=YES,LT=UL,WSA=VALUES,FET=XTF         CMP30       4079          I
          -CPSA115
 COMPASS  ,,BFS=BBUFL                                                                      CMP30       4080          I
          -CPS028   -CPSA115
 COMPASS            SKIP   1                                                               CMP30       4081          I
          -CPS028   -CPSA115
 COMPASS  ,,BFS=BBUFL,ERL=1                                                       S028 501 CPS028       370          I
          -CPSA115
 COMPASS            IFEQ   CP#RM,7,1                                              S028 502 CPS028       371          I
          -CPSA115
 COMPASS   XDUM     FILE   FO=SQ,BT=,RT=W,MRL=5120,CM=NO,WSA=VALUES,PD=INPUT               CMP30       4082     A     
 COMPASS   LXDUM    EQU    *-XDUM                                                          CMP30       4083     A     
 COMPASS                                                                                   CMP30       4084     A     
 COMPASS                                                                                   CMP30       4085     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4086     A     
 COMPASS   XTEXT    SPACE  4                                                               COMPASS    11899     A     
 COMPASS  **        XTEXT - EXTERNAL INPUT.                                                COMPASS    11900     A     
 COMPASS                                                                                   COMPASS    11901     A     
 COMPASS                                                                                   COMPASS    11902     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11903     A     
 COMPASS   XTEXT    EQU    ZLLA                                                            COMPASS    11904     A     
 COMPASS   BLANK    SPACE  4                                                               COMPASS    11905     A     
 COMPASS  ***       BLANK OPERATION CODE.                                                  COMPASS    11906     A     
 COMPASS  *                                                                                COMPASS    11907     A     
 COMPASS  *                                                                                COMPASS    11908     A     
 COMPASS  *SYM                                                                             COMPASS    11909     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE LOCATION COUNTER,                   COMPASS    11910     A     
 COMPASS  *         AND ONE WORD IS ZEROED AND RESERVED.                                   COMPASS    11911     A     
 COMPASS  *         IF (SYM) IS MISSING, THIS CARD IS IGNORED.                             COMPASS    11912     A     
 COMPASS                                                                                   COMPASS    11913     A     
 COMPASS                                                                                   COMPASS    11914     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11915     A     
 COMPASS   BLNKOP   SA2    LOCSYM                                                          COMPASS    11916     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 781    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X2,BLNKOP1                                                      COMPASS    11917     A     
 COMPASS            PL     X2,CTL300                                                       COMPASS    11918     A     
 COMPASS   BLNKOP1  SB7    X2-1R+                                                          COMPASS    11919     A     
 COMPASS            ZR     B7,CTL70                                                        COMPASS    11920     A     
 COMPASS            EQ     B7,B1,CTL70                                                     COMPASS    11921     A     
 COMPASS            SX6    B1          SET FIRST CARD GROUP FLAG                           COMPASS    11922     A     
 COMPASS            SA6    IFCDGP                                                          COMPASS    11923     A     
 COMPASS            SA1    LWORD                                                           COMPASS    11924     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS    11925     A     
 COMPASS            SA1    LWORD                                                           COMPASS    11926     A     
 COMPASS            RJ     UPPOS                                                           COMPASS    11927     A     
 COMPASS            EQ     CTL70                                                           COMPASS    11928     A     
 COMPASS   BLANK    SPACE  4                                                               COMPASS    11929     A     
 COMPASS  **        BLANK OPERATION CODE.                                                  COMPASS    11930     A     
 COMPASS                                                                                   COMPASS    11931     A     
 COMPASS                                                                                   COMPASS    11932     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    11933     A     
 COMPASS   BLNKOP   SA2    LOCSYM                                                          COMPASS    11934     A     
 COMPASS            ZR     X2,ZLIST    EXIT IF NO LOCATION FIELD ENTRY                     COMPASS    11935     A     
 COMPASS            SA1    LWORD                                                           COMPASS    11936     A     
 COMPASS            SB2    X2-1R+                                                          COMPASS    11937     A     
 COMPASS            ZR     B2,ZLIST    EXIT IF SINGLE + OR - (WARNING                      COMPASS    11938     A     
 COMPASS            EQ     B1,B2,ZLIST FLAG SET IN PASS 1)                                 COMPASS    11939     A     
 COMPASS            RJ     ZPRLOC                                                          COMPASS    11940     A     
 COMPASS            SA4    MACHINE                                                         COMPASS    11941     A     
 COMPASS            SX2    36                                                              COMPASS    11942     A     
 COMPASS   +        SX3    20                                                              COMPASS    11943     A     
 COMPASS            ZR     X4,*+2                                                          COMPASS    11944     A     
 COMPASS            SX2    25                                                              COMPASS    11945     A     
 COMPASS            SX3    4                                                               COMPASS    11946          I
          -CPSA281
 COMPASS            SA3    PPBYT                                                           CPSA281      300     A     
 COMPASS            SX1    B0          CALL PACKO WITH 0, 36-11*MACHINE,                   COMPASS    11947     A     
 COMPASS            RJ     PACKO       21-16*MACHINE                                       COMPASS    11948     A     
 COMPASS            SX6    B1                                                              COMPASS    11949     A     
 COMPASS            BX5    X6                                                              CPS062        37     A     
 COMPASS            SA6    FLAG        SAVE FOR PASS 2                                     CPS062        38     A     
 COMPASS            SA6    EXVAL                                                           COMPASS    11950     A     
 COMPASS            SA6    IFCDGP      SET FIRST CARD GROUP FLAG                           COMPASS    11951     A     
 COMPASS            EQ     BSSZ5       GO PRETEND ITS BSSZ 1                               COMPASS    11952     A     
 COMPASS   =        SPACE  4                                                               COMPASS    11953     A     
 COMPASS  ***       = - SYMBOL DEFINITION.                                                 COMPASS    11954     A     
 COMPASS  *                                                                                COMPASS    11955          I
          -CPSA097
 COMPASS  *                                                                                COMPASS    11956     A     
 COMPASS  *SYM      =      EXP                                                             COMPASS    11957     A     
 COMPASS  *         (SYM) IS ASSIGNED THE VALUE OF THE ADDRESS EXPRESSION.                 COMPASS    11958     A     
 COMPASS                                                                                   COMPASS    11959     A     
 COMPASS                                                                                   COMPASS    11960     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11961     A     
 COMPASS  * =       EQU    EQU                                                             COMPASS    11962     A     
 COMPASS   AUT      TITLE  PASS 1 SUBROUTINES.                                             COMPASS    11963     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 782    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        AUT - ALLOCATE USE TABLE.                                              COMPASS    11964     A     
 COMPASS  *         ALLOCATES THE FIRST THREE USE BLOCKS.  THESE                           COMPASS    11965     A     
 COMPASS  *         BLOCKS ARE /ABSOLUTE*/, / /, AND /LITERALS*/.                          COMPASS    11966     A     
 COMPASS  *         COUNTERS SET ARE -                                                     COMPASS    11967     A     
 COMPASS  *                (UI) = USE TABLE INDEX.                                         COMPASS    11968     A     
 COMPASS  *                (UI+1) = BASE USE BLOCK.                                        COMPASS    11969          I
          -CMP30  
 COMPASS  *                (UI+1) = FIRST BLOCK NUMBER.                                    CMP30       4087     A     
 COMPASS  *                (LI) = LITERAL BLOCK INDEX.                                     COMPASS    11970     A     
 COMPASS  *                (DI) = DEFAULT SYMBOL INDEX.                                    CMP17         13     A     
 COMPASS                                                                                   COMPASS    11971     A     
 COMPASS                                                                                   COMPASS    11972     A     
 COMPASS            USE    SUBS                                                            COMPASS    11973     A     
 COMPASS            SEG    PASS 1 SUBROUTINES.                                             COMPASS    11974          I
          -CMP30  
 COMPASS            SEG    PASS 1 SUBROUTINES (A-P).                                       CMP30       4088     A     
 COMPASS            QUAL   PASS1                                                           COMPASS    11975     A     
 COMPASS   AUT      PS                 RETURN EXIT                                         COMPASS    11976     A     
 COMPASS            SA1    L.USETAB    SET NEW USE INDEX                                   COMPASS    11977     A     
 COMPASS            SA2    L.LITAB     SET NEW LITERAL INDEX                               COMPASS    11978     A     
 COMPASS            SA3    L.SLITS     SET NEW DEFAULT SYMBOL INDEX                        CMP17         14     A     
 COMPASS            BX6    X1                                                              COMPASS    11979     A     
 COMPASS            LX7    X2                                                              COMPASS    11980     A     
 COMPASS            SA6    UI                                                              COMPASS    11981     A     
 COMPASS            SA7    LI                                                              COMPASS    11982     A     
 COMPASS            MX6    0           CALCULATE USE INDEX                                 COMPASS    11983          I
          -CMP17  
 COMPASS            BX6    X3                                                              CMP17         15     A     
 COMPASS            SA6    DI                                                              CMP17         16     A     
 COMPASS            MX7    0           CALCULATE USE INDEX                                 CMP17         17          I
          -CMP30  
 COMPASS   +        SX1    X1-6                                                            COMPASS    11984          I
          -CMP30  
 COMPASS            SX6    X6+B1                                                           COMPASS    11985          I
          -CMP17    -CMP30  
 COMPASS            SX7    X7+B1                                                           CMP17         18          I
          -CMP30  
 COMPASS            PL     X1,*-1      LOOP                                                COMPASS    11986          I
          -CMP30  
 COMPASS            AX1    2           SET NEW USE NUMBER                                  CMP30       4089          I
          -RSM4159
 COMPASS            SX7    X1+B1                                                           CMP30       4090          I
          -RSM4159
 COMPASS            SX7    B1          SET NEW USE NUMBER                                  RSM4159       27     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    11987          I
          -CMP17  
 COMPASS            SX6    X6+2                                                            COMPASS    11988          I
          -CMP17  
 COMPASS            SX6    X7+2                                                            CMP17         19     A     
 COMPASS            SA7    UI+1                                                            CMP17         20     A     
 COMPASS            SA6    USECNT                                                          COMPASS    11989          I
          -RSM4159
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 783    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MANAGE USETAB,6*3  ALLOCATE 3 BLOCKS                                   COMPASS    11990          I
          -CMP30  
 COMPASS            SB5    6           PRESET FIRST 3 BLOCKS - ABS, 0, LIT                 COMPASS    11991          I
          -CMP30  
 COMPASS            SA6    A7+B1                                                           CMP30       4091     A     
 COMPASS            MANAGE USETAB,3*4  ALLOCATE 3 BLOCKS                                   CMP30       4092     A     
 COMPASS            SB5    4           PRESET FIRST 3 BLOCKS - ABS, 0, LIT                 CMP30       4093     A     
 COMPASS            SA1    LWORD       SET POSITION COUNTER                                COMPASS    11992     A     
 COMPASS            IX2    X2+X3                                                           COMPASS    11993     A     
 COMPASS            SB7    X2-6*3      SET BASE ADDRESS                                    COMPASS    11994          I
          -CMP30  
 COMPASS            SB7    X2-3*4      BASE ADDRESS                                        CMP30       4094     A     
 COMPASS            BX6    X1                                                              COMPASS    11995     A     
 COMPASS            LX6    24                                                              COMPASS    11996     A     
 COMPASS            SX7    B0                                                              COMPASS    11997     A     
 COMPASS            SA6    B7+B1                                                           COMPASS    11998     A     
 COMPASS            SA6    A6+B5                                                           COMPASS    11999     A     
 COMPASS            SA6    A6+B5                                                           COMPASS    12000     A     
 COMPASS            MX6    0           STORE TYPE = 0                                      COMPASS    12001     A     
 COMPASS            SA7    B7+2                                                            COMPASS    12002     A     
 COMPASS            SA6    A7+B1       CLEAR MAXIMUM BLOCK SIZE                            COMPASS    12003     A     
 COMPASS            SA7    A7+B5                                                           COMPASS    12004     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    12005     A     
 COMPASS            SA7    A7+B5                                                           COMPASS    12006     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    12007     A     
 COMPASS            SA1    =9RLITERALS*                                                    COMPASS    12008     A     
 COMPASS            SA2    =9RABSOLUTE*                                                    COMPASS    12009     A     
 COMPASS            BX6    X2                                                              COMPASS    12010     A     
 COMPASS            SX7    1R                                                              COMPASS    12011     A     
 COMPASS            SA6    B7                                                              COMPASS    12012     A     
 COMPASS            SA7    A6+B5                                                           COMPASS    12013     A     
 COMPASS            BX6    X1                                                              COMPASS    12014     A     
 COMPASS            SA6    A7+B5                                                           COMPASS    12015     A     
 COMPASS            SA1    USESTK      CLEAR USE STACK                                     CMP30       4095     A     
 COMPASS            SX2    MSTACK                                                          CMP30       4096     A     
 COMPASS            MX0    30                                                              CMP30       4097     A     
 COMPASS            BX3    X0*X1                                                           CMP30       4098     A     
 COMPASS            IX6    X3+X2                                                           CMP30       4099     A     
 COMPASS            SA6    A1                                                              CMP30       4100     A     
 COMPASS            MANAGE RVTAB,3*1   ALLOCATE 1ST 3 RVTAB ENTRIES                        CPS2672       36     A     
 COMPASS            SB7    X3-3*1      PRESET THEM TO ZERO                                 CPS2672       37     A     
 COMPASS            MX6    0                                                               CPS2672       38     A     
 COMPASS            SA6    X2+B7                                                           CPS2672       39     A     
 COMPASS            SA6    A6+B1                                                           CPS2672       40     A     
 COMPASS            SA6    A6+B1                                                           CPS2672       41     A     
 COMPASS            EQ     AUT         RETURN                                              COMPASS    12016     A     
 COMPASS   AVO      SPACE  4                                                               COMPASS    12017     A     
 COMPASS  **        AVO - ADVANCE OVERLAY.                                                 COMPASS    12018     A     
 COMPASS                                                                                   COMPASS    12019     A     
 COMPASS                                                                                   COMPASS    12020     A     
 COMPASS   AVO      PS                 RETURN EXIT                                         COMPASS    12021     A     
 COMPASS            SA1    L.USETAB    SET NEW USE INDEX                                   COMPASS    12022     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 784    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    L.EPTAB     SET NEW EPTAB INDEX                                 COMPASS    12023     A     
 COMPASS            SA3    L.LITAB     SET NEW LITAB INDEX                                 CMP17         21     A     
 COMPASS            SA4    L.SLITS     SET NEW SLITS INDEX                                 CMP17         22     A     
 COMPASS            BX6    X1                                                              COMPASS    12024     A     
 COMPASS            LX7    X2                                                              COMPASS    12025     A     
 COMPASS            SA3    L.LITAB     SET NEW LITAB INDEX                                 COMPASS    12026          I
          -CMP17  
 COMPASS            SA6    UI                                                              COMPASS    12027     A     
 COMPASS            SA7    EI                                                              COMPASS    12028     A     
 COMPASS            BX6    X3                                                              COMPASS    12029     A     
 COMPASS            LX7    X4                                                              CMP17         23     A     
 COMPASS            SA6    LI                                                              COMPASS    12030     A     
 COMPASS            SA7    DI                                                              CMP17         24     A     
 COMPASS            MX7    0           SET NEW USE NUMBER                                  COMPASS    12031          I
          -CMP30  
 COMPASS   AVO1     SX1    X1-6                                                            COMPASS    12032          I
          -CMP30  
 COMPASS            SX7    X7+B1                                                           COMPASS    12033          I
          -CMP30  
 COMPASS            PL     X1,AVO1     LOOP                                                COMPASS    12034          I
          -CMP30  
 COMPASS            AX1    2           SET NEW USE NUMBER                                  CMP30       4101          I
          -RSM4159
 COMPASS            SX7    X1+B1                                                           CMP30       4102          I
          -RSM4159
 COMPASS            SX7    B1          SET NEW USE NUMBER                                  RSM4159       28     A     
 COMPASS            SA7    UI+1                                                            COMPASS    12035     A     
 COMPASS            EQ     AVO         RETURN                                              COMPASS    12036     A     
 COMPASS   COB      SPACE  4                                                               COMPASS    12037     A     
 COMPASS  **        COB - CLOSE OUT BLOCKS.                                                COMPASS    12038     A     
 COMPASS                                                                                   COMPASS    12039     A     
 COMPASS                                                                                   COMPASS    12040     A     
 COMPASS   COB      PS                 RETURN EXIT                                         COMPASS    12041     A     
 COMPASS            RJ     YFOUP       CLOSE OUT ALL BLOCKS                                COMPASS    12042     A     
 COMPASS            RJ     RSL         RECORD SEGMENT LENGTH                               COMPASS    12043     A     
 COMPASS            SA1    ORGCTR+1                                                        COMPASS    12044     A     
 COMPASS            NZ     X1,COB1     CORRECT FOR ZERO BLOCK NUMBER                       COMPASS    12045     A     
 COMPASS            SA1    UI+1                                                            COMPASS    12046     A     
 COMPASS            BX6    X1                                                              COMPASS    12047     A     
 COMPASS            SA6    ORGCTR+1                                                        COMPASS    12048     A     
 COMPASS   COB1     LX2    X1,B1       6*RELOCATION                                        COMPASS    12049          I
          -CMP30  
 COMPASS            IX3    X2+X2                                                           COMPASS    12050          I
          -CMP30  
 COMPASS            IX4    X2+X3                                                           COMPASS    12051          I
          -CMP30  
 COMPASS            SB6    X4-5                                                            COMPASS    12052          I
          -CMP30  
 COMPASS   COB1     LX1    2                                                               CMP30       4103     A     
 COMPASS            SB6    X1-3                                                            CMP30       4104     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS    12053     A     
 COMPASS            SA1    UI                                                              RSM4159       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/28. 19.11.32.      PAGE 785    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX2    X1+X2       BASE ADDRESS OF BLOCK GROUP                         RSM4159       30     A     
 COMPASS            SA1    ORGCTR                                                          COMPASS    12054     A     
 COMPASS            MX0    -21                                                             COMPASS    12055     A     
 COMPASS            SA3    LWORD                                                           COMPASS    12056     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    12057     A     
 COMPASS            LX3    24                                                              COMPASS    12058     A     
 COMPASS            IX7    X6+X3                                                           COMPASS    12059     A     
 COMPASS            SA7    X2+B6       NOTE LENGTH AND POSITION                            COMPASS    12060     A     
 COMPASS            RJ     YFUALL                                                          COMPASS    12061     A     
 COMPASS            SA1    O.USETAB    CORRECT BLOCK LENGTHS FOR MAXIMUM                   COMPASS    12062     A     
 COMPASS            SA2    L.USETAB                                                        COMPASS    12063     A     
 COMPASS            SA3    UI                                                              COMPASS    12064     A     
 COMPASS            IX1    X1+X3                                                           COMPASS    12065     A     
 COMPASS            IX2    X2-X3                                                           COMPASS    12066     A     
 COMPASS            SB6    6                                                               COMPASS    12067          I
          -CMP30  
 COMPASS            SB7    X2-6                                                            COMPASS    12068          I
          -CMP30  
 COMPASS            SB6    4                                                               CMP30       4105     A     
 COMPASS            SB7    X2-4                                                            CMP30       4106     A     
 COMPASS            SA0    X1+2                                                            COMPASS    12069     A     
 COMPASS            MX0    39                                                              COMPASS    12070     A     
 COMPASS   COB2     SA1    A0-B1       LAST ORGCTR VALUE                                   COMPASS    12071     A     
 COMPASS            SA2    A0+B1       MAXIMUM ORGCTR VALUE                                COMPASS    12072     A     
 COMPASS            BX3    -X0*X1                                                          COMPASS    12073     A     
 COMPASS            IX4    X2-X3                                                           COMPASS    12074     A     
 COMPASS            BX6    X1                                                              COMPASS    12075     A     
 COMPASS            NG     X4,COB3                                                         COMPASS    12076     A     
 COMPASS            IX6    X4+X6                                                           COMPASS    12077     A     
 COMPASS   COB3     SB7    B7-B6                                                           COMPASS    12078     A     
 COMPASS            SA0    A0+B6                                                           COMPASS    12079     A     
 COMPASS            SA6    A1                                                              COMPASS    12080     A     
 COMPASS            PL     B7,COB2     LOOP                                                COMPASS    12081     A     
 COMPASS            EQ     COB         RETURN                                              COMPASS    12082     A     
 COMPASS   CRL      SPACE  4                                                      S004  19 CPS004         7     A     
 COMPASS  **        CRL - CHECK RECURSION LIMIT.                                  S004  20 CPS004         8     A     
 COMPASS  *         IF LIMIT IS ABOUT TO BE EXCEEDED, POST *F* ERROR              S004  21 CPS004         9     A     
 COMPASS  *         AND SET (CRLF) = 1.                                           S004  22 CPS004        10     A     
 COMPASS                                                                          S004  23 CPS004        11     A     
 COMPASS                                                                          S004  24 CPS004        12     A     
 COMPASS   CRL      PS                 RETURN EXIT                                S004  25 CPS004        13     A     
 COMPASS            SA1    L.STACK                                                S004  26 CPS004        14     A     
 COMPASS            SB7    X1-4*"LIMRECUR"                                        S004  27 CPS004        15     A     
 COMPASS            MI     B7,CRL      IF NOT EXCEEDED                            S004  28 CPS004        16     A     
 COMPASS            SX6    B1                                                     S004  29 CPS004        17     A     
 COMPASS            SA6    CRLF        SET FLAG FOR /PASS2/CRL                    S004  30 CPS004        18     A     
 COMPASS            SA6    EFLG                                                   S004  31 CPS004        19     A     
 COMPASS            SA6    FERR        POST *F* ERROR                             S004  32 CPS004        20     A     
 COMPASS            JP     CRL                                                    S004  33 CPS004        21     A     
 COMPASS   CRC      SPACE  4                                                               COMPASS    12083          I
          -CMP24  
 COMPASS  **        CRC - CREATE STATEMENT FROM CARDS.                                     COMPASS    12084          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 786    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS  *         ENTRY  (X2) = FET POINTER FOR INPUT FILE.                              COMPASS    12085          I
          -CMP24  
 COMPASS  *                (A0) = CARD BUFFER AREA (9-WORD AREA WITH 0 AS 10TH).           COMPASS    12086          I
          -CMP24  
 COMPASS  *         EXIT   (A0) = CARD BUFFER AREA.                                        COMPASS    12087          I
          -CMP24  
 COMPASS  *                (CARD) = STRING BUFFER BLANK FILLED.                            COMPASS    12088          I
          -CMP24  
 COMPASS  *                (LASTCOL) = INDEX OF LAST CHARACTER.                            COMPASS    12089          I
          -CMP24  
 COMPASS  *                (CCT) = CARD COUNT.                                             COMPASS    12090          I
          -CMP24  
 COMPASS  *                (EDITFG) = MICRO/CONCATENATION FLAG.                            COMPASS    12091          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12092          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12093          I
          -CMP24  
 COMPASS   CRC      PS                 RETURN EXIT                                         COMPASS    12094          I
          -CMP24  
 COMPASS            SA5    A0          STORE SEQUENCE NUMBER                               COMPASS    12095          I
          -CMP24  
 COMPASS            SX6    1R          CLEAR STYPE                                         COMPASS    12096          I
          -CMP24  
 COMPASS            BX7    X5                                                              COMPASS    12097          I
          -CMP24  
 COMPASS            SA6    CARD-1                                                          COMPASS    12098          I
          -CMP24  
 COMPASS            SA7    SEQ                                                             COMPASS    12099          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12100          I
          -CMP24  
 COMPASS  *         UNPACK CARD INTO STRING BUFFER.                                        COMPASS    12101          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12102          I
          -CMP24  
 COMPASS            SA5    A5+B1                                                           COMPASS    12103          I
          -CMP24  
 COMPASS            SX7    B0                                                              COMPASS    12104          I
          -CMP24  
 COMPASS            SB7    10                                                              COMPASS    12105          I
          -CMP24  
 COMPASS            RJ     UPC         UNPACK CARD                                         COMPASS    12106          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12107          I
          -CMP24  
 COMPASS  *         END OF LINE PROCESSING.                                                COMPASS    12108          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12109          I
          -CMP24  
 COMPASS            SA7    EDITFG                                                          COMPASS    12110          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 787    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            SA4    LASTCOL                                                         COMPASS    12111          I
          -CMP24  
 COMPASS            SX7    A6-CARD+1                                                       COMPASS    12112          I
          -CMP24  
 COMPASS            IX4    X4-X7                                                           COMPASS    12113          I
          -CMP24  
 COMPASS            SA7    A4                                                              COMPASS    12114          I
          -CMP24  
 COMPASS            LX7    X6                                                              COMPASS    12115          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    12116          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    12117          I
          -CMP24  
 COMPASS   CRC1     SX4    X4-2        CLEAR TO END OF CARD                                COMPASS    12118          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    12119          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    12120          I
          -CMP24  
 COMPASS            PL     X4,CRC1     LOOP                                                COMPASS    12121          I
          -CMP24  
 COMPASS            MX0    48          SQUEEZE COSY CARD                                   COMPASS    12122          I
          -CMP24  
 COMPASS            MX4    54                                                              COMPASS    12123          I
          -CMP24  
 COMPASS            SA1    A0+B1                                                           COMPASS    12124          I
          -CMP24  
 COMPASS            MX3    42                                                              COMPASS    12125          I
          -CMP24  
 COMPASS            SB6    SQIMAGE+10                                                      COMPASS    12126          I
          -CMP24  
 COMPASS            SB7    -10                                                             COMPASS    12127          I
          -CMP24  
 COMPASS            SX6    1R          SET STYPE                                           COMPASS    12128          I
          -CMP24  
 COMPASS            SA5    CARD                                                            COMPASS    12129          I
          -CMP24  
 COMPASS            SX7    X5-1R*                                                          COMPASS    12130          I
          -CMP24  
 COMPASS            NZ     X7,CRC2     IF NOT COMMENT                                      COMPASS    12131          I
          -CMP24  
 COMPASS            SX6    1R*                                                             COMPASS    12132          I
          -CMP24  
 COMPASS   CRC2     BX7    X4*X1                                                           COMPASS    12133          I
          -CMP24  
 COMPASS            BX7    X6+X7                                                           COMPASS    12134          I
          -CMP24  
 COMPASS            LX7    54                                                              COMPASS    12135          I
          -CMP24  
 COMPASS            BX6    -X4*X1                                                          COMPASS    12136          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 788    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            BX1    -X0*X1                                                          COMPASS    12137          I
          -CMP24  
 COMPASS            ZR     X1,CRC3     IF END OF INPUT LINE                                COMPASS    12138          I
          -CMP24  
 COMPASS            SA1    A1+B1                                                           COMPASS    12139          I
          -CMP24  
 COMPASS   CRC3     SA7    B6+B7                                                           COMPASS    12140          I
          -CMP24  
 COMPASS            SB7    B7+B1                                                           COMPASS    12141          I
          -CMP24  
 COMPASS            BX5    -X3*X7                                                          COMPASS    12142          I
          -CMP24  
 COMPASS            ZR     X5,CRC4     IF END OF OUTPUT LINE                               COMPASS    12143          I
          -CMP24  
 COMPASS            NZ     B7,CRC2     LOOP                                                COMPASS    12144          I
          -CMP24  
 COMPASS   CRC4     SX6    B7+10                                                           COMPASS    12145          I
          -CMP24  
 COMPASS            SA6    SQLGN                                                           COMPASS    12146          I
          -CMP24  
 COMPASS            RJ     RNC         READ NEXT CARD                                      COMPASS    12147          I
          -CMP24  
 COMPASS            SX7    B1          SET CARD COUNT                                      COMPASS    12148          I
          -CMP24  
 COMPASS            SA7    CCT                                                             COMPASS    12149          I
          -CMP24  
 COMPASS            SA5    A0+B1       CHECK FOR CONTINUE CARD                             COMPASS    12150          I
          -CMP24  
 COMPASS            MX0    60-6                                                            COMPASS    12151          I
          -CMP24  
 COMPASS            LX5    6                                                               COMPASS    12152          I
          -CMP24  
 COMPASS            BX6    -X0*X5                                                          COMPASS    12153          I
          -CMP24  
 COMPASS            SX7    X6-1R,                                                          COMPASS    12154          I
          -CMP24  
 COMPASS            NZ     X7,CRC      IF NO CONTINUATION                                  COMPASS    12155          I
          -CMP24  
 COMPASS            SA7    SQLGN                                                           COMPASS    12156          I
          -CMP24  
 COMPASS            SX7    CARD+72                                                         COMPASS    12157          I
          -CMP24  
 COMPASS            SA7    CRCA                                                            COMPASS    12158          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12159          I
          -CMP24  
 COMPASS  *         PROCESS CONTINUE CARD.                                                 COMPASS    12160          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12161          I
          -CMP24  
 COMPASS   CRC5     SA1    CCT                                                             COMPASS    12162          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 789    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            SB7    X1-NCARDS                                                       COMPASS    12163          I
          -CMP24  
 COMPASS            ZR     B7,CRC      IF LIMIT OF CONTINUE CARDS                          COMPASS    12164          I
          -CMP24  
 COMPASS            SA3    X7-1                                                            COMPASS    12165          I
          -CMP24  
 COMPASS            BX6    X3                                                              COMPASS    12166          I
          -CMP24  
 COMPASS            SA6    A3                                                              COMPASS    12167          I
          -CMP24  
 COMPASS            SA1    EDITFG                                                          COMPASS    12168          I
          -CMP24  
 COMPASS            BX7    X1                                                              COMPASS    12169          I
          -CMP24  
 COMPASS            SB7    9                                                               COMPASS    12170          I
          -CMP24  
 COMPASS            RJ     UPC         UNPACK CARD                                         COMPASS    12171          I
          -CMP24  
 COMPASS            SA7    EDITFG                                                          COMPASS    12172          I
          -CMP24  
 COMPASS            SX7    A6-CARD+1                                                       COMPASS    12173          I
          -CMP24  
 COMPASS            SA7    LASTCOL                                                         COMPASS    12174          I
          -CMP24  
 COMPASS            SA1    CCT                                                             COMPASS    12175          I
          -CMP24  
 COMPASS            SX6    X1+B1                                                           COMPASS    12176          I
          -CMP24  
 COMPASS            SA6    A1                                                              COMPASS    12177          I
          -CMP24  
 COMPASS            RJ     RNC         READ NEXT CARD                                      COMPASS    12178          I
          -CMP24  
 COMPASS            SA5    A0+B1       CHECK FOR CONTINUE                                  COMPASS    12179          I
          -CMP24  
 COMPASS            MX0    60-6                                                            COMPASS    12180          I
          -CMP24  
 COMPASS            LX5    6                                                               COMPASS    12181          I
          -CMP24  
 COMPASS            BX6    -X0*X5                                                          COMPASS    12182          I
          -CMP24  
 COMPASS            SB7    X6-1R,                                                          COMPASS    12183          I
          -CMP24  
 COMPASS            NZ     B7,CRC      IF END OF CONTINUE                                  COMPASS    12184          I
          -CMP24  
 COMPASS            SA1    CRCA                                                            COMPASS    12185          I
          -CMP24  
 COMPASS            SX7    X1+71                                                           COMPASS    12186          I
          -CMP24  
 COMPASS            SA7    A1                                                              COMPASS    12187          I
          -CMP24  
 COMPASS            EQ     CRC5        LOOP FOR NEXT CARD                                  COMPASS    12188          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 790    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS                                                                                   COMPASS    12189          I
          -CMP24  
 COMPASS   CRCA     DATA   0           STARTING CARD COLUMN                                COMPASS    12190          I
          -CMP24  
 COMPASS   CRCARD   SPACE  4                                                               COMPASS    12191          I
          -CMP24  
 COMPASS  **        CRCARD - CREATE STATEMENT FROM CARDS.                                  COMPASS    12192          I
          -CMP24  
 COMPASS  *         ENTRY  (X2) = FET ADDRESS.                                             COMPASS    12193          I
          -CMP24  
 COMPASS  *                (A0) = CARD BUFFER AREA (9-WORD AREA WITH 0 AS 10TH).           COMPASS    12194          I
          -CMP24  
 COMPASS  *         EXIT   (A0) = CARD  BUFFER AREA.                                       COMPASS    12195          I
          -CMP24  
 COMPASS  *                (CARD) = STRING BUFFER BLANK FILLED.                            COMPASS    12196          I
          -CMP24  
 COMPASS  *                (LASTCOL) = INDEX OF LAST CHARACTER.                            COMPASS    12197          I
          -CMP24  
 COMPASS  *                (CCT) = CARD COUNT.                                             COMPASS    12198          I
          -CMP24  
 COMPASS  *                (EDITFG) = MICRO/CONCATENATION FLAG.                            COMPASS    12199          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12200          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12201          I
          -CMP24  
 COMPASS   CRCARD   PS                 RETURN EXIT                                         COMPASS    12202          I
          -CMP24  
 COMPASS            SX7    B0          CLEAR CARD COUNT                                    COMPASS    12203          I
          -CMP24  
 COMPASS            SA7    CCT                                                             COMPASS    12204          I
          -CMP24  
 COMPASS            SB2    CARD        SET COLUMN COUNT                                    COMPASS    12205          I
          -CMP24  
 COMPASS            SX6    1R          CLEAR STYPE                                         COMPASS    12206          I
          -CMP24  
 COMPASS            SA6    CARD-1                                                          COMPASS    12207          I
          -CMP24  
 COMPASS            SA7    SQLGN       CLEAR SQUEEZE FLAG                                  COMPASS    12208          I
          -CMP24  
 COMPASS            SA5    A0                                                              COMPASS    12209          I
          -CMP24  
 COMPASS            SB7    10                                                              COMPASS    12210          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12211          I
          -CMP24  
 COMPASS  *         UNPACK CARD INTO STRING BUFFER.                                        COMPASS    12212          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12213          I
          -CMP24  
 COMPASS   CSC1     RJ     UPC         UNPACK CARD                                         COMPASS    12214          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 791    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS                                                                                   COMPASS    12215          I
          -CMP24  
 COMPASS  *         END OF LINE PROCESSING.                                                COMPASS    12216          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12217          I
          -CMP24  
 COMPASS   CSC2     SA7    EDITFG      SAVE EDIT FLAG                                      COMPASS    12218          I
          -CMP24  
 COMPASS            SX7    B2+72       SET END OF CARD                                     COMPASS    12219          I
          -CMP24  
 COMPASS            SA7    CSCA                                                            COMPASS    12220          I
          -CMP24  
 COMPASS            SB7    X7+19       CLEAR TO END OF SEQUENCE FIELD                      COMPASS    12221          I
          -CMP24  
 COMPASS            SB7    A6-B7                                                           COMPASS    12222          I
          -CMP24  
 COMPASS   CSC3     SB7    B7+B1                                                           COMPASS    12223          I
          -CMP24  
 COMPASS            SA6    A6+B1                                                           COMPASS    12224          I
          -CMP24  
 COMPASS            NG     B7,CSC3     LOOP                                                COMPASS    12225          I
          -CMP24  
 COMPASS            SB7    8           PREPARE TO COLLECT SEQUENCE FIELDS                  COMPASS    12226          I
          -CMP24  
 COMPASS            MX6    0                                                               COMPASS    12227          I
          -CMP24  
 COMPASS            SA3    X7                                                              COMPASS    12228          I
          -CMP24  
 COMPASS   CSC4     LX6    6           COLLECT COL. 73-80                                  COMPASS    12229          I
          -CMP24  
 COMPASS            SB7    B7-B1                                                           COMPASS    12230          I
          -CMP24  
 COMPASS            BX6    X6+X3                                                           COMPASS    12231          I
          -CMP24  
 COMPASS            SA3    A3+B1                                                           COMPASS    12232          I
          -CMP24  
 COMPASS            NZ     B7,CSC4     LOOP                                                COMPASS    12233          I
          -CMP24  
 COMPASS            MX7    0                                                               COMPASS    12234          I
          -CMP24  
 COMPASS            SB7    B3                                                              COMPASS    12235          I
          -CMP24  
 COMPASS   CSC5     LX7    6           COLLECT COL. 81-90                                  COMPASS    12236          I
          -CMP24  
 COMPASS            SB7    B7-B1                                                           COMPASS    12237          I
          -CMP24  
 COMPASS            BX7    X7+X3                                                           COMPASS    12238          I
          -CMP24  
 COMPASS            SA3    A3+B1                                                           COMPASS    12239          I
          -CMP24  
 COMPASS            NZ     B7,CSC5     LOOP                                                COMPASS    12240          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 792    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            SA1    CCT         INCREMENT CARD COUNT                                COMPASS    12241          I
          -CMP24  
 COMPASS            LX0    X1,B1                                                           COMPASS    12242          I
          -CMP24  
 COMPASS            SA6    SEQ+X0                                                          COMPASS    12243          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    12244          I
          -CMP24  
 COMPASS            SX6    X1+B1                                                           COMPASS    12245          I
          -CMP24  
 COMPASS            SA6    A1                                                              COMPASS    12246          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12247          I
          -CMP24  
 COMPASS  *         READ NEXT CARD.                                                        COMPASS    12248          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12249          I
          -CMP24  
 COMPASS            RJ     RCARD                                                           COMPASS    12250          I
          -CMP24  
 COMPASS            SA1    A0          CHECK FOR CONTINUE                                  COMPASS    12251          I
          -CMP24  
 COMPASS            MX4    54                                                              COMPASS    12252          I
          -CMP24  
 COMPASS            LX1    6                                                               COMPASS    12253          I
          -CMP24  
 COMPASS            BX6    -X4*X1                                                          COMPASS    12254          I
          -CMP24  
 COMPASS            SB7    X6-1R,                                                          COMPASS    12255          I
          -CMP24  
 COMPASS            ZR     B7,CSC7     IF CONTINUE CARD                                    COMPASS    12256          I
          -CMP24  
 COMPASS   CSC6     SX1    1R          CLEAR SEQUENCE FIELD                                COMPASS    12257          I
          -CMP24  
 COMPASS            SA4    LASTCOL                                                         COMPASS    12258          I
          -CMP24  
 COMPASS            SA2    CSCA                                                            COMPASS    12259          I
          -CMP24  
 COMPASS            SX7    X2-CARD+1                                                       COMPASS    12260          I
          -CMP24  
 COMPASS            SX4    X4+CARD-1                                                       COMPASS    12261          I
          -CMP24  
 COMPASS            SX3    X2+18                                                           COMPASS    12262          I
          -CMP24  
 COMPASS   +        IX5    X3-X4                                                           COMPASS    12263          I
          -CMP24  
 COMPASS            PL     X5,*+1                                                          COMPASS    12264          I
          -CMP24  
 COMPASS            BX3    X4                                                              COMPASS    12265          I
          -CMP24  
 COMPASS            SA7    A4                                                              COMPASS    12266          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 793    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            RJ     PRESET                                                          COMPASS    12267          I
          -CMP24  
 COMPASS            EQ     CRCARD                                                          COMPASS    12268          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12269          I
          -CMP24  
 COMPASS  *         PROCESS CONTINUE CARD.                                                 COMPASS    12270          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12271          I
          -CMP24  
 COMPASS   CSC7     SA1    CCT                                                             COMPASS    12272          I
          -CMP24  
 COMPASS            SA3    CSCA                                                            COMPASS    12273          I
          -CMP24  
 COMPASS            SX7    X1-NCARDS                                                       COMPASS    12274          I
          -CMP24  
 COMPASS            ZR     X7,CSC6     IF LIMIT OF CONTINUE CARDS                          COMPASS    12275          I
          -CMP24  
 COMPASS            SA5    X3-1        SET (A6) TO LAST CHARACTER                          COMPASS    12276          I
          -CMP24  
 COMPASS            SA1    EDITFG                                                          COMPASS    12277          I
          -CMP24  
 COMPASS            BX7    X1                                                              COMPASS    12278          I
          -CMP24  
 COMPASS            BX6    X5                                                              COMPASS    12279          I
          -CMP24  
 COMPASS            SA6    A5                                                              COMPASS    12280          I
          -CMP24  
 COMPASS            SB2    A5          (B2) = FIRST CHARACTER POSITION                     COMPASS    12281          I
          -CMP24  
 COMPASS            SA5    A0                                                              COMPASS    12282          I
          -CMP24  
 COMPASS            LX5    6                                                               COMPASS    12283          I
          -CMP24  
 COMPASS            SB7    9                                                               COMPASS    12284          I
          -CMP24  
 COMPASS            EQ     CSC1        LOOP                                                COMPASS    12285          I
          -CMP24  
 COMPASS                                                                                   COMPASS    12286          I
          -CMP24  
 COMPASS   CSCA     DATA   0           LAST COLUMN ADDRESS                                 COMPASS    12287          I
          -CMP24  
 COMPASS   CWI      SPACE  4                                                               COMPASS    12288     A     
 COMPASS  **        CWI - CONDITIONAL WRITE INTERMEDIATE.                                  COMPASS    12289     A     
 COMPASS  *         WRITE INTERMEDIATE ONLY IF LINE WILL LIST IN PASS 2.                   COMPASS    12290     A     
 COMPASS                                                                                   COMPASS    12291     A     
 COMPASS                                                                                   COMPASS    12292     A     
 COMPASS   CWI      PS                 RETURN EXIT                                         COMPASS    12293     A     
 COMPASS            SA1    /PASS2/RISA                                                     COMPASS    12294     A     
 COMPASS            SA3    EFLG                                                            COMPASS    12295     A     
 COMPASS            NZ     X3,CWI2     IF ERROR FLAG SET                                   COMPASS    12296     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 794    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    30                                                              COMPASS    12297     A     
 COMPASS   CWI1     AX2    X1,B7                                                           COMPASS    12298     A     
 COMPASS            SA3    X1                                                              COMPASS    12299     A     
 COMPASS            SA4    X2                                                              COMPASS    12300     A     
 COMPASS            BX0    -X3*X4                                                          COMPASS    12301     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    12302     A     
 COMPASS            ZR     X0,CWI1     IF LIST TEST DOESNT FAIL                            COMPASS    12303     A     
 COMPASS            SX6    A1-/PASS2/RISA-/PASS2/RISAL                                     COMPASS    12304     A     
 COMPASS            NZ     X6,CWI      IF LINE WILL NOT LIST                               COMPASS    12305     A     
 COMPASS   CWI2     RJ     WINTER      WRITE INTERMEDIATE                                  COMPASS    12306     A     
 COMPASS            EQ     CWI         RETURN                                              COMPASS    12307     A     
 COMPASS   DSL      SPACE  4                                                               COMPASS    12308     A     
 COMPASS  **        DSL - DEFINE SYMBOL LITERALS.                                          COMPASS    12309     A     
 COMPASS  *         USES   P1TEMP, P1TEMPA.                                                COMPASS    12310          I
          -CMP19  
 COMPASS  *         USES   P1TEMP, P1TEMPA, P1TEMPB.                                       CMP19        295          I
          -CP154  
 COMPASS  *         USES   P1TEMP, P1TEMPA, P1TEMPB, P1TEMPC.                              CP154         13     A     
 COMPASS                                                                                   COMPASS    12311     A     
 COMPASS                                                                                   COMPASS    12312     A     
 COMPASS   DSL7     SA1    QVAL+1      RESTORE QUALIFIER                                   CMP19        296     A     
 COMPASS            BX6    X1                                                              CMP19        297     A     
 COMPASS            SA6    A1-B1                                                           CMP19        298     A     
 COMPASS                                                                                   CMP19        299     A     
 COMPASS   DSL      PS                 RETURN EXIT                                         COMPASS    12313     A     
 COMPASS            SA1    L.SLITS                                                         COMPASS    12314          I
          -CMP19  
 COMPASS   DSL1     SX6    X1-1                                                            COMPASS    12315          I
          -CMP19  
 COMPASS            ZR     X1,DSL      IF SYMBOL LITERALS COMPLETE                         COMPASS    12316          I
          -CMP19  
 COMPASS            SA2    QVAL                                                            CMP19        300     A     
 COMPASS            SA3    LOCSYM                                                          CMP19        301     A     
 COMPASS            SA1    L.SLITS                                                         CMP19        302     A     
 COMPASS            BX7    X2                                                              CMP19        303     A     
 COMPASS            SA7    A2+B1                                                           CMP19        304     A     
 COMPASS            BX6    X2+X3       SAVE POSSIBLY QUALIFIED END CARD SYMBOL             CMP19        305     A     
 COMPASS            SA6    P1TEMPB                                                         CMP19        306     A     
 COMPASS   DSL1     SA2    DI                                                              CMP19        307     A     
 COMPASS            SX6    X1-1                                                            CMP19        308     A     
 COMPASS            IX2    X2-X1                                                           CMP19        309     A     
 COMPASS            ZR     X2,DSL7     IF SYMBOL LITERALS COMPLETE                         CMP19        310     A     
 COMPASS            SA6    P1TEMP      SAVE INDEXING COUNT                                 COMPASS    12317     A     
 COMPASS            SA1    O.SLITS     FETCH NEXT LITERALS                                 COMPASS    12318          I
          -CMP19  
 COMPASS            SB7    X1                                                              COMPASS    12319          I
          -CMP19  
 COMPASS            SA2    X6+B7                                                           COMPASS    12320          I
          -CMP19  
 COMPASS            SA2    O.SLITS     FETCH NEXT LITERAL                                  CMP19        311     A     
 COMPASS            SB7    X6                                                              CMP19        312     A     
 COMPASS            SA2    X2+B7                                                           CMP19        313     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 795    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X2,DSL3     IF DEFINED                                          COMPASS    12321     A     
 COMPASS            MX0    12                                                              COMPASS    12322     A     
 COMPASS            BX1    -X0*X2                                                          COMPASS    12323     A     
 COMPASS            AX2    48                                                              COMPASS    12324          I
          -CMP19  
 COMPASS            MX0    9           SET QUALIFIER                                       CMP19        314     A     
 COMPASS            LX0    -3                                                              CMP19        315     A     
 COMPASS            BX7    X0*X2                                                           CMP19        316     A     
 COMPASS            AX2    57                                                              CMP19        317     A     
 COMPASS            SA7    QVAL                                                            CMP19        318     A     
 COMPASS            BX6    X2                                                              COMPASS    12325     A     
 COMPASS            SA6    A6+B1       STORE TYPE FLAG                                     COMPASS    12326     A     
 COMPASS            SA4    LOCSYM      CHECK IF THIS IS END CARD SYMBOL                    COMPASS    12327          I
          -CMP19  
 COMPASS            SA4    P1TEMPB     CHECK IF THIS IS END CARD SYMBOL                    CMP19        319     A     
 COMPASS            BX5    X1-X4                                                           COMPASS    12328     A     
 COMPASS            BX5    X5-X7                                                           CMP19        320     A     
 COMPASS            ZR     X5,DSL3                                                         COMPASS    12329     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS    12330     A     
 COMPASS            SA4    P1TEMPA                                                         COMPASS    12331     A     
 COMPASS            NZ     X2,DSL3     IF SYMBOL IS ALREADY DEFINED                        COMPASS    12332          I
          -CMP19  
 COMPASS            LX2    59-30                                                           CMP19        321     A     
 COMPASS            NG     X2,DSL3     IF SYMBOL IS ALREADY DEFINED                        CMP19        322     A     
 COMPASS            SB7    X4          TYPE FLAG                                           COMPASS    12333     A     
 COMPASS            SX0    B1                                                              COMPASS    12334     A     
 COMPASS            JP     DSL2-1+B7   JUMP ACCORDING TO TYPE OF LITERAL                   COMPASS    12335          I
          -CP154  
 COMPASS            JP     DSL2+B7     JUMP ACCORDING TO TYPE OF LITERAL                   CP154         14     A     
 COMPASS                                                                                   COMPASS    12336     A     
 COMPASS                                                                                   COMPASS    12337     A     
 COMPASS   DSL2     BSS    0                                                               COMPASS    12338     A     
 COMPASS                                                                                   CP154         15     A     
 COMPASS   +        MX6    1           =Y LITERAL (WEAK EXTERNAL)                          CP154         16     A     
 COMPASS            EQ     DSL6                                                            CP154         17     A     
 COMPASS                                                                                   COMPASS    12339     A     
 COMPASS   +        SA2    O.USETAB    =S LITERAL                                          COMPASS    12340     A     
 COMPASS            EQ     DSL4                                                            COMPASS    12341     A     
 COMPASS                                                                                   COMPASS    12342     A     
 COMPASS   +        SA2    L.EXTAB     EXT (=X TYPE)                                       COMPASS    12343          I
          -CP154  
 COMPASS   +        MX6    0           =X LITERAL (STRONG EXTERNAL)                        CP154         18     A     
 COMPASS            EQ     DSL6                                                            COMPASS    12344     A     
 COMPASS                                                                                   CPS0253       11     A     
 COMPASS   DSL2A    SX6    B1                                                              CPS0253       12     A     
 COMPASS            SA6    EFLG                                                            CPS0253       13     A     
 COMPASS            SA6    FERR                                                            CPS0253       14     A     
 COMPASS                                                                                   COMPASS    12345     A     
 COMPASS                                                                                   COMPASS    12346     A     
 COMPASS  *         MULTIPLE OR ALREADY DEFINED.                                           COMPASS    12347     A     
 COMPASS                                                                                   COMPASS    12348     A     
 COMPASS   DSL3     SA1    P1TEMP      MULTIPLE OR ALREADY DEFINED                         COMPASS    12349     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 796    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     DSL1                                                            COMPASS    12350     A     
 COMPASS                                                                                   COMPASS    12351     A     
 COMPASS  *         =S SYMBOL LITERAL.                                                     COMPASS    12352     A     
 COMPASS                                                                                   COMPASS    12353     A     
 COMPASS   DSL4     SA2    X2+7        FETCH LENGTH OF 0 BLOCK                             COMPASS    12354          I
          -CMP19  
 COMPASS            SX3    B1+B1                                                           COMPASS    12355          I
          -CMP19  
 COMPASS   DSL4     SA3    UI                                                              CMP19        323     A     
 COMPASS            SA4    A3+B1                                                           CMP19        324     A     
 COMPASS            IX2    X2+X3                                                           CMP19        325     A     
 COMPASS            SX3    X4+B1       RELOCATION = 0 BLOCK                                CMP19        326     A     
 COMPASS            SA2    X2+7        FETCH LENGTH OF 0 BLOCK                             CMP19        327          I
          -CMP30  
 COMPASS            SA2    X2+4+1      FETCH LENGTH OF 0 BLOCK                             CMP30       4107     A     
 COMPASS            MX4    0                                                               COMPASS    12356     A     
 COMPASS            BX5    X5-X5                                                           COMPASS    12357     A     
 COMPASS            IX6    X2+X0       AUGMENT LENGTH                                      COMPASS    12358     A     
 COMPASS            SA6    A2                                                              COMPASS    12359     A     
 COMPASS            RJ     YDEFSYM     DEFINE SYMBOL                                       COMPASS    12360     A     
 COMPASS   DSL5     SA1    P1TEMP      MARK SYMBOL AS DEFINED BY COMPASS                   COMPASS    12361     A     
 COMPASS            SA2    O.SLITS                                                         COMPASS    12362     A     
 COMPASS            SB7    X2                                                              COMPASS    12363          I
          -CMP19  
 COMPASS            SA2    X1+B7                                                           COMPASS    12364          I
          -CMP19  
 COMPASS            SB7    X1                                                              CMP19        328     A     
 COMPASS            SA2    X2+B7                                                           CMP19        329     A     
 COMPASS            MX0    1                                                               COMPASS    12365     A     
 COMPASS            BX6    X2+X0                                                           COMPASS    12366     A     
 COMPASS            SA6    X1+B7                                                           COMPASS    12367          I
          -CMP19  
 COMPASS            SA6    A2                                                              CMP19        330     A     
 COMPASS            EQ     DSL1        LOOP                                                COMPASS    12368     A     
 COMPASS                                                                                   COMPASS    12369     A     
 COMPASS  *         =X SYMBOL LITERAL.                                                     COMPASS    12370     A     
 COMPASS                                                                                   COMPASS    12371     A     
 COMPASS   DSL6     SA4    ABSFG       COMPLAIN IF                                         COMPASS    12372          I
          -CP154  
 COMPASS   DSL6     SA2    L.EXTAB                                                         CP154         19     A     
 COMPASS            SA6    P1TEMPC                                                         CP154         20     A     
 COMPASS            SA4    ABSFG       COMPLAIN IF                                         CP154         21     A     
 COMPASS            NZ     X4,DSL3     ABSOLUTE PROGRAM                                    COMPASS    12373     A     
 COMPASS            BX6    X1                                                              COMPASS    12374     A     
 COMPASS            RJ     VFYLINK                                                         COMPASS    12375     A     
 COMPASS            NZ     X7,DSL3     IF INAPPROPRIATE AS A LINKAGE SYMBOL                COMPASS    12376     A     
 COMPASS            SA3    L.EXTAB                                                         CPS0253       15     A     
 COMPASS            SX3    X3-777B                                                         CPS0253       16     A     
 COMPASS            PL     X3,DSL2A    IF EXCEEDS 511 EXTERNALS                            CPS0253       17     A     
 COMPASS            SX4    X2+B1                                                           COMPASS    12377     A     
 COMPASS            BX2    X2-X2                                                           COMPASS    12378     A     
 COMPASS            MX3    0                                                               COMPASS    12379     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 797    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX5    B0                                                              COMPASS    12380     A     
 COMPASS            MX7    0                                                               CMP19        331     A     
 COMPASS            SA7    QVAL        SET QUALIFIER                                       CMP19        332     A     
 COMPASS            RJ     YDEFSYM     DEFINE AS EXTERNAL SYMBOL                           COMPASS    12381     A     
 COMPASS            SA2    P1TEMPC     RECLAIM WEAK-EXT BIT                                CP154         22     A     
 COMPASS            BX1    X1+X2                                                           CP154         23     A     
 COMPASS            ADDWORD EXTAB      ADD ENTRY TO EXTERNAL TABLE                         COMPASS    12382     A     
 COMPASS            EQ     DSL5                                                            COMPASS    12383     A     
 COMPASS   EDIT     SPACE  4                                                               COMPASS    12384     A     
 COMPASS  **        EDIT - EDIT STATEMENT TO REMOVE MICROS/CONCATENATION.                  COMPASS    12385     A     
 COMPASS  *         EDIT IS A NULL FUNCTION IF (EDITFG) IS POSITIVE, OR IF CARD            COMPASS    12386     A     
 COMPASS  *         IS A COMMENT.  OTHERWISE, EDIT WILL SCAN THE CARD CHECKING             COMPASS    12387     A     
 COMPASS  *         FOR *_* AND *"* MARKS.  THE CARD IS WRITTEN ON THE                     COMPASS    12388     A     
 COMPASS  *         INTERMEDIATE (MICFLG = 1) AND A NEW CARD IS CREATED.                   COMPASS    12389     A     
 COMPASS  *         EXIT   (CCT) = CARD COUNT.                                             COMPASS    12390     A     
 COMPASS  *                (LASTCOL) = INDEX OF LAST CHARACTER.                            COMPASS    12391     A     
 COMPASS                                                                                   COMPASS    12392     A     
 COMPASS                                                                                   COMPASS    12393     A     
 COMPASS   EDIT     PS                 RETURN EXIT                                         COMPASS    12394     A     
 COMPASS            SA2    EDITFG                                                          COMPASS    12395     A     
 COMPASS            PL     X2,EDIT     IF NO EDITING                                       COMPASS    12396     A     
 COMPASS            SA1    CARD                                                            COMPASS    12397     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS    12398     A     
 COMPASS            ZR     B7,EDIT     IF COMMENT CARD                                     COMPASS    12399     A     
 COMPASS            SA4    LASTCOL     CHECK FOR CONCATENATION AND MICRO MARKS             COMPASS    12400     A     
 COMPASS            SX2    B1                                                              COMPASS    12401     A     
 COMPASS            SB3    X4                                                              COMPASS    12402          I
          -CMP64G 
 COMPASS            SB7    X1                                                              COMPASS    12403          I
          -CMP64G 
 COMPASS            MX6    0                                                               COMPASS    12404          I
          -CMP64G 
 COMPASS   EDT1     LX3    X2,B7                                                           COMPASS    12405          I
          -CMP64G 
 COMPASS            SB3    B3-B1                                                           COMPASS    12406          I
          -CMP64G 
 COMPASS            SA1    A1+B1                                                           COMPASS    12407          I
          -CMP64G 
 COMPASS            SB7    X1                                                              CMP64G       145     A     
 COMPASS            LX4    -1                                                              CMP64G       146     A     
 COMPASS            BX6    X6-X6                                                           CMP64G       147     A     
 COMPASS            SA5    A1+B1                                                           CMP64G       148     A     
 COMPASS            SB3    X4                                                              CMP64G       149     A     
 COMPASS            PL     X4,EDT1     IF (LASTCOL) IS EVEN                                CMP64G       150     A     
 COMPASS            SA1    A1+B1                                                           CMP64G       151     A     
 COMPASS            SA5    A5+B1                                                           CMP64G       152     A     
 COMPASS            LX3    X2,B7                                                           CMP64G       153     A     
 COMPASS            BX6    X6+X3                                                           CMP64G       154     A     
 COMPASS            SB7    X1                                                              CMP64G       155     A     
 COMPASS   EDT1     SA1    A5+B1                                                           CMP64G       156     A     
 COMPASS            LX3    X2,B7                                                           CMP64G       157     A     
 COMPASS            SB3    B3-B1                                                           CMP64G       158     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 798    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X6+X3                                                           CMP64G       159     A     
 COMPASS            SB7    X5                                                              CMP64G       160     A     
 COMPASS            LX3    X2,B7                                                           CMP64G       161     A     
 COMPASS            SA5    A1+B1                                                           CMP64G       162     A     
 COMPASS            BX6    X6+X3                                                           COMPASS    12408     A     
 COMPASS            SB7    X1                                                              COMPASS    12409     A     
 COMPASS            PL     B3,EDT1     IF NOT END OF CARD                                  COMPASS    12410          I
          -CMP12  
 COMPASS            GE     B3,B1,EDT1  IF NOT END OF CARD                                  CMP12         20     A     
 COMPASS            LX6    59-MICMARK                                                      COMPASS    12411     A     
 COMPASS            NG     X6,EDT6     IF MICRO MARK                                       COMPASS    12412     A     
 COMPASS            LX6    60+MICMARK-CONCAT                                               COMPASS    12413     A     
 COMPASS            PL     X6,EDIT     IF NO CONCATENATION MARK                            COMPASS    12414     A     
 COMPASS                                                                                   COMPASS    12415     A     
 COMPASS  *         REMOVE CONCATENATION MARK ONLY.                                        COMPASS    12416     A     
 COMPASS                                                                                   COMPASS    12417     A     
 COMPASS            SX6    B1          WRITE CARD ON INTERMEDIATE                          COMPASS    12418     A     
 COMPASS            SA6    MICFLG                                                          COMPASS    12419     A     
 COMPASS            RJ     CWI                                                             COMPASS    12420     A     
 COMPASS            SA4    LASTCOL                                                         COMPASS    12421     A     
 COMPASS            SA1    STYPE                                                           COMPASS    12422     A     
 COMPASS            SB2    -CONCAT                                                         COMPASS    12423     A     
 COMPASS            SB3    X4+CARD                                                         COMPASS    12424          I
          -CMP12  
 COMPASS            SB3    X4+CARD-1   (B3) = LWA OF STATEMENT                             CMP12         21     A     
 COMPASS            SB4    X4                                                              COMPASS    12425     A     
 COMPASS            BX6    X1                                                              COMPASS    12426     A     
 COMPASS            SA6    STYPE                                                           COMPASS    12427     A     
 COMPASS   EDT2     SA1    A1+B1       REMOVE CONCATENATION                                COMPASS    12428     A     
 COMPASS            SB4    B4-B1                                                           COMPASS    12429     A     
 COMPASS            SX7    X1+B2                                                           COMPASS    12430     A     
 COMPASS            BX6    X1                                                              COMPASS    12431     A     
 COMPASS            ZR     X7,EDT2     IF CONCATENATION                                    COMPASS    12432     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12433     A     
 COMPASS            PL     B4,EDT2     LOOP TO END OF CARD                                 COMPASS    12434          I
          -CMP12  
 COMPASS            GE     B4,B1,EDT2  LOOP TO END OF CARD                                 CMP12         22     A     
 COMPASS                                                                                   COMPASS    12435     A     
 COMPASS  *         PROCESS END OF CARD.                                                   COMPASS    12436     A     
 COMPASS                                                                                   COMPASS    12437     A     
 COMPASS   EDT3     SB5    A6                                                              COMPASS    12438     A     
 COMPASS            SB6    A6                                                              COMPASS    12439     A     
 COMPASS            SB7    A6                                                              COMPASS    12440          I
          -CMP12  
 COMPASS            SX7    A6-CARD+1                                                       COMPASS    12441     A     
 COMPASS   +        NZ     X7,*+1      IF NOT ALL BLANKS                                   CMP27         18     A     
 COMPASS            SX7    B1                                                              CMP27         19     A     
 COMPASS            SA7    LASTCOL                                                         COMPASS    12442     A     
 COMPASS            SX6    1R                                                              COMPASS    12443     A     
 COMPASS            GE     B7,B3,EDT4  IF STORE IS PAST PREVIOUS LAST COLUMN               COMPASS    12444          I
          -CMP12  
 COMPASS            GE     B6,B3,EDT4  IF NEW (LASTCOL) \ OLD (LASTCOL)                    CMP12         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/28. 19.11.32.      PAGE 799    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    B3                                                              COMPASS    12445     A     
 COMPASS   EDT4     SB6    B6+B1       CLEAR TO END OF CARD                                COMPASS    12446          I
          -CMP12  
 COMPASS   +        SB6    B6+B1       CLEAR TO END OF CARD                                CMP12         24     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12447     A     
 COMPASS            LT     B6,B7,EDT4                                                      COMPASS    12448          I
          -CMP12  
 COMPASS            MX6    0                                                               COMPASS    12449          I
          -CMP12  
 COMPASS            LT     B6,B3,*                                                         CMP12         25     A     
 COMPASS   EDT4     MX6    0                                                               CMP12         26     A     
 COMPASS            SA6    SQLGN                                                           COMPASS    12450     A     
 COMPASS            SA6    MICFLG                                                          COMPASS    12451     A     
 COMPASS            SX7    B0          COUNT NUMBER OF CARDS                               COMPASS    12452     A     
 COMPASS            SB6    71                                                              COMPASS    12453     A     
 COMPASS            SB5    B5-CARD-1                                                       COMPASS    12454          I
          -CMP12  
 COMPASS            SB5    B5-CARD                                                         CMP12         27     A     
 COMPASS   EDT5     SB5    B5-B6                                                           COMPASS    12455     A     
 COMPASS            SX7    X7+B1                                                           COMPASS    12456     A     
 COMPASS            GT     B5,EDT5     LOOP                                                COMPASS    12457     A     
 COMPASS            SA7    CCT                                                             COMPASS    12458     A     
 COMPASS            SX5    X7-1                                                            COMPASS    12459     A     
 COMPASS            ZR     X5,EDIT     RETURN                                              COMPASS    12460     A     
 COMPASS            SA1    SEQ         COPY SEQUENCE FIELDS                                COMPASS    12461     A     
 COMPASS            SA2    CP.IFORM                                                        CPS213         5     A     
 COMPASS            LX2    59-0                                                            CPS213         6     A     
 COMPASS            PL     X2,EDT5.2   IF NOT MODIFY FORMAT                                CPS213         7     A     
 COMPASS            BX6    X1                                                              CPS213         8     A     
 COMPASS            SA6    A1                                                              CPS213         9     A     
 COMPASS   EDT5.1   SA6    A6+1        COPY ONE WORD MODIFY SEQUENCE NUMBERS               CPS213        10     A     
 COMPASS            SX5    X5-1                                                            CPS213        11     A     
 COMPASS            NZ     X5,EDT5.1   LOOP                                                CPS213        12     A     
 COMPASS            EQ     EDIT        RETURN                                              CPS213        13     A     
 COMPASS                                                                                   CPS213        14     A     
 COMPASS   EDT5.2   BSS    0           COPY TWO WORD UPDATE SEQUENCE FIELDS                CPS213        15     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    12462     A     
 COMPASS            BX6    X1                                                              COMPASS    12463     A     
 COMPASS            LX7    X2                                                              COMPASS    12464     A     
 COMPASS            SA7    A2                                                              COMPASS    12465     A     
 COMPASS   +        SA6    A7+B1                                                           COMPASS    12466     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    12467     A     
 COMPASS            SX5    X5-1                                                            COMPASS    12468     A     
 COMPASS            NZ     X5,*-1      LOOP                                                COMPASS    12469     A     
 COMPASS            EQ     EDIT        RETURN                                              COMPASS    12470     A     
 COMPASS                                                                                   COMPASS    12471     A     
 COMPASS  *         REMOVE CONCATENATION AND REPLACE MICROS.                               COMPASS    12472     A     
 COMPASS                                                                                   COMPASS    12473     A     
 COMPASS   EDT6     SX6    B1          WRITE CARD ON INTERMEDIATE                          COMPASS    12474     A     
 COMPASS            SA6    MICFLG                                                          COMPASS    12475     A     
 COMPASS            RJ     CWI                                                             COMPASS    12476     A     
 COMPASS            SX0    2074B       PACK CARD REMOVING CONCATENATION                    COMPASS    12477          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 800    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS                                                                                   CMP64G       163     A     
 COMPASS  *         PACK CARD REMOVING CONCATENATION.                                      CMP64G       164     A     
 COMPASS                                                                                   CMP64G       165     A     
 COMPASS            SB7    60                                                              CMP64G       166     A     
 COMPASS            SA1    STYPE                                                           COMPASS    12478     A     
 COMPASS            SA4    LASTCOL                                                         COMPASS    12479     A     
 COMPASS            SB2    CONCAT                                                          COMPASS    12480     A     
 COMPASS            SB5    X4+B1                                                           COMPASS    12481     A     
 COMPASS            SB6    NCARDS                                                          COMPASS    12482          I
          -CMP64G 
 COMPASS            LX0    48                                                              COMPASS    12483          I
          -CMP64G 
 COMPASS            UX6    B7,X0                                                           COMPASS    12484          I
          -CMP64G 
 COMPASS            SB4    6                                                               COMPASS    12485          I
          -CMP64G 
 COMPASS            SB6    6                                                               CMP64G       167     A     
 COMPASS            BX6    X6-X6                                                           CMP64G       168     A     
 COMPASS            PX0    X6,B7                                                           CMP64G       169     A     
 COMPASS            SB4    B5                                                              CMP64G       170     A     
 COMPASS            SA6    SQIMAGE                                                         COMPASS    12486     A     
 COMPASS                                                                                   COMPASS    12487     A     
 COMPASS   EDT7     LX5    X6,B4                                                           COMPASS    12488          I
          -CMP64G 
 COMPASS            BX6    X5+X1                                                           COMPASS    12489          I
          -CMP64G 
 COMPASS   EDT7     LX6    6           PACK CHARACTER                                      CMP64G       171     A     
 COMPASS            SB7    B7-B6                                                           CMP64G       172     A     
 COMPASS            BX6    X6+X1                                                           CMP64G       173     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    12490     A     
 COMPASS            SB7    B7-B4                                                           COMPASS    12491          I
          -CMP64G 
 COMPASS   EDT8     NZ     B7,EDT9     IF NOT END OF CARD                                  COMPASS    12492          I
          -CMP64G 
 COMPASS   EDT8     NZ     B7,EDT9     IF WORD NOT FULL                                    CMP64G       174     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12493     A     
 COMPASS            UX6    B7,X0                                                           COMPASS    12494          I
          -CMP64G 
 COMPASS            UX6,B7 X0                                                              CMP64G       175     A     
 COMPASS   EDT9     SB5    B5-B1                                                           COMPASS    12495     A     
 COMPASS            SB3    X1                                                              COMPASS    12496     A     
 COMPASS            ZR     B5,EDT10    IF END OF CARD                                      COMPASS    12497     A     
 COMPASS            NE     B3,B2,EDT7  IF NOT CONCATENATION                                COMPASS    12498     A     
 COMPASS            SB4    B4-B1                                                           CMP64G       176     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    12499     A     
 COMPASS            EQ     EDT8        LOOP                                                COMPASS    12500          I
          -CMP64G 
 COMPASS            EQ     EDT9        LOOP                                                CMP64G       177     A     
 COMPASS   EDT10    LX6    X6,B7                                                           COMPASS    12501     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12502     A     
 COMPASS                                                                                   COMPASS    12503     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 801    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         UNPACK CARD AND REPLACE MICROS.                                        COMPASS    12504     A     
 COMPASS                                                                                   COMPASS    12505     A     
 COMPASS            SA0    10                                                              COMPASS    12506     A     
 COMPASS            SB3    X4+CARD     (B3) = LAST COLUMN POINTER                          COMPASS    12507          I
          -CMP12  
 COMPASS            SB3    X4+CARD-1   (B3) = LWA OF STATEMENT                             CMP12         28     A     
 COMPASS            SA1    SQIMAGE+1                                                       COMPASS    12508     A     
 COMPASS            MX0    54                                                              COMPASS    12509     A     
 COMPASS            LX1    6                                                               COMPASS    12510     A     
 COMPASS            SB2    -MICMARK                                                        COMPASS    12511     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    12512     A     
 COMPASS            SB7    A0-B1                                                           COMPASS    12513     A     
 COMPASS            SA6    STYPE                                                           COMPASS    12514     A     
 COMPASS            SB5    71*NCARDS                                                       COMPASS    12515     A     
 COMPASS            EQ     EDT12                                                           COMPASS    12516     A     
 COMPASS   EDT11    SB5    B5-B1                                                           COMPASS    12517          I
          -CMP64G 
 COMPASS            NG     B5,EDT12    IF PAST END OF CARD AREA                            COMPASS    12518          I
          -CMP64G 
 COMPASS   EDT11    NG     B5,EDT12    IF PAST END OF CARD AREA                            CMP64G       178     A     
 COMPASS            SB5    B5-B1                                                           CMP64G       179     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12519     A     
 COMPASS   EDT12    LX1    6                                                               COMPASS    12520     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    12521     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    12522     A     
 COMPASS            SX7    X6+B2                                                           COMPASS    12523          I
          -CMP64G 
 COMPASS            SB4    B4-B1                                                           CMP64G       180     A     
 COMPASS   +        NZ     B7,*+1      IF NOT END OF WORD                                  COMPASS    12524     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    12525     A     
 COMPASS            SB7    A0                                                              COMPASS    12526     A     
 COMPASS   +        ZR     X6,EDT3     IF END OF CARD                                      COMPASS    12527          I
          -CMP64G 
 COMPASS   +        SX7    X6+B2                                                           CMP64G       181     A     
 COMPASS            ZR     B4,EDT3     IF END OF CARD                                      CMP64G       182     A     
 COMPASS            NZ     X7,EDT11    IF NOT MICRO MARK                                   COMPASS    12528     A     
 COMPASS                                                                                   COMPASS    12529     A     
 COMPASS  *         COMPILE MICRO NAME.                                                    COMPASS    12530     A     
 COMPASS                                                                                   COMPASS    12531     A     
 COMPASS            SA4    A6                                                              COMPASS    12532     A     
 COMPASS            SB5    B5-B1                                                           COMPASS    12533          I
          -CMP64G 
 COMPASS   EDT13    NG     B5,EDT14    IF PAST END OF CARD AREA                            COMPASS    12534     A     
 COMPASS            SB5    B5-B1                                                           CMP64G       183     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12535     A     
 COMPASS   EDT14    SB7    B7-B1                                                           COMPASS    12536     A     
 COMPASS            LX1    6                                                               COMPASS    12537     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    12538     A     
 COMPASS            SB6    X6+B2                                                           COMPASS    12539          I
          -CMP64G 
 COMPASS            SB4    B4-B1                                                           CMP64G       184     A     
 COMPASS            NZ     B7,EDT15    IF NOT END OF WORD                                  COMPASS    12540     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 802    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A1+B1                                                           COMPASS    12541     A     
 COMPASS            SB7    A0                                                              COMPASS    12542     A     
 COMPASS   EDT15    ZR     X6,EDT3     IF END OF CARD                                      COMPASS    12543          I
          -CMP64G 
 COMPASS   EDT15    ZR     B4,EDT3     IF END OF CARD                                      CMP64G       185     A     
 COMPASS            LX7    6                                                               COMPASS    12544     A     
 COMPASS            SB6    X6+B2                                                           CMP64G       186     A     
 COMPASS            BX7    X7+X6                                                           COMPASS    12545     A     
 COMPASS            NZ     B6,EDT13    IF NOT MICRO MARK                                   COMPASS    12546     A     
 COMPASS                                                                                   COMPASS    12547     A     
 COMPASS  *         SEARCH FOR MICRO.                                                      COMPASS    12548     A     
 COMPASS                                                                                   COMPASS    12549     A     
 COMPASS            AX7    6                                                               COMPASS    12550     A     
 COMPASS            SA3    L.MICTAB                                                        CMP64G       187          I
          -CMP30  
 COMPASS            MX6    12                                                              COMPASS    12551          I
          -CMP18    -CMP30  
 COMPASS            BX5    X6*X7                                                           COMPASS    12552          I
          -CMP18    -CMP30  
 COMPASS            SA2    O.MICTAB                                                        COMPASS    12553          I
          -CMP30  
 COMPASS            SB4    A0                                                              COMPASS    12554          I
          -CMP18    -CMP30  
 COMPASS            MX5    12                                                              CMP18         90          I
          -CMP30  
 COMPASS            SA3    L.MICTAB                                                        CMP18         91          I
          -CMP64G   -CMP30  
 COMPASS            SB6    X3-1                                                            CMP64G       188          I
          -CMP30  
 COMPASS            SX3    B4                                                              CMP64G       189          I
          -CMP30  
 COMPASS            BX5    X5*X7                                                           CMP18         92          I
          -CMP30  
 COMPASS            SX3    B4          SAVE (B4)                                           CMP30       4108     A     
 COMPASS            MX2    12                                                              CMP30       4109     A     
 COMPASS            BX5    X2*X7                                                           CMP30       4110     A     
 COMPASS            SB4    B1                                                              CMP18         93     A     
 COMPASS            NZ     X5,EDT17    IF NAME > 8 CHARACTERS                              COMPASS    12555     A     
 COMPASS            SA3    L.MICTAB                                                        COMPASS    12556          I
          -CMP18  
 COMPASS            SB6    X3-2                                                            COMPASS    12557          I
          -CMP18  
 COMPASS            ZR     X7,EDT18    IF EMPTY MICRO NAME                                 CMP18         94     A     
 COMPASS            PX7    X7,B1                                                           CMP18         95          I
          -CMP30  
 COMPASS            SB6    X3-1                                                            CMP18         96          I
          -CMP64G   -CMP30  
 COMPASS            SA7    X2                                                              COMPASS    12558          I
          -CMP30  
 COMPASS            SA2    X2+B6                                                           COMPASS    12559          I
          -CMP30  
 COMPASS   EDT16    BX6    X7-X2       SEARCH MICRO TABLE                                  COMPASS    12560          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 803    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP18    -CMP30  
 COMPASS            SA2    A2-1                                                            COMPASS    12561          I
          -CMP18    -CMP30  
 COMPASS            SB6    B6-B1                                                           COMPASS    12562          I
          -CMP18    -CMP30  
 COMPASS            UX7    X7                                                              CMP18         97          I
          -CMP30  
 COMPASS   EDT16    UX6,B4 X2                                                              CMP18         98          I
          -CMP30  
 COMPASS            BX6    X6-X7                                                           CMP18         99          I
          -CMP30  
 COMPASS            SA2    A2-B4                                                           CMP18        100          I
          -CMP30  
 COMPASS            SB6    B6-B4                                                           CMP18        101          I
          -CMP30  
 COMPASS            NZ     X6,EDT16    LOOP                                                COMPASS    12563          I
          -CMP30  
 COMPASS            PL     B6,EDT18    IF MICRO FOUND                                      COMPASS    12564          I
          -CMP30  
 COMPASS            RJ     TLUMIC      LOOK UP MICRO                                       CMP30       4111     A     
 COMPASS            MX0    -6          SET UP MASK                                         CPS192         6     A     
 COMPASS            NZ     B4,EDT18    IF FOUND                                            CMP30       4112     A     
 COMPASS                                                                                   COMPASS    12565     A     
 COMPASS  *         POST MICRO ERROR.                                                      COMPASS    12566     A     
 COMPASS                                                                                   COMPASS    12567     A     
 COMPASS   EDT17    SX7    B1                                                              COMPASS    12568     A     
 COMPASS            SB4    X3+B1                                                           CMP64G       190          I
          -CPSA175
 COMPASS            SB4    X3                                                              CPSA175        5     A     
 COMPASS            SX6    -B2                                                             COMPASS    12569     A     
 COMPASS            SA7    W9ERR                                                           COMPASS    12570     A     
 COMPASS            SA7    EFLG                                                            COMPASS    12571     A     
 COMPASS            EQ     EDT11                                                           COMPASS    12572     A     
 COMPASS                                                                                   COMPASS    12573     A     
 COMPASS  *         REPLACE MICRO NAME.                                                    COMPASS    12574     A     
 COMPASS                                                                                   COMPASS    12575     A     
 COMPASS   EDT18    SX7    A6-B3                                                           COMPASS    12576     A     
 COMPASS            NG     X7,EDT19    IF NOT PAST LAST COLUMN                             COMPASS    12577     A     
 COMPASS            SB3    A6                                                              COMPASS    12578     A     
 COMPASS   EDT19    LX6    X4                                                              COMPASS    12579     A     
 COMPASS            SB6    A4                                                              COMPASS    12580          I
          -CMP18  
 COMPASS            SB6    A6-B6                                                           COMPASS    12581          I
          -CMP18  
 COMPASS            SB5    B5+B6                                                           COMPASS    12582          I
          -CMP18  
 COMPASS            SB5    A4-CARD+1-71*NCARDS                                             CMP18        102     A     
 COMPASS            SB6    B4-B1       NUMBER OF VALUE WORDS                               CMP18        103     A     
 COMPASS            SA6    A4                                                              COMPASS    12583     A     
 COMPASS            SA2    A2+2                                                            COMPASS    12584          I
          -CMP18  
 COMPASS            EQ     EDT21                                                           COMPASS    12585          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 804    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP18  
 COMPASS   EDT20    SB5    B5-B1                                                           COMPASS    12586          I
          -CMP18  
 COMPASS            NG     B5,EDT21    IF PAST END OF CARD AREA                            COMPASS    12587          I
          -CMP18  
 COMPASS            SB5    -B5                                                             CMP18        104     A     
 COMPASS            SA2    A2+B1       FIRST VALUE WORD                                    CMP18        105     A     
 COMPASS            SB4    A0                                                              CMP18        106     A     
 COMPASS            ZR     B6,EDT12    IF VALUE IS NULL                                    CMP18        107          I
          -CMP64G 
 COMPASS            ZR     B6,EDT23    IF VALUE IS NULL                                    CMP64G       191     A     
 COMPASS            GT     B6,B1,EDT22 IF MORE THAN ONE VALUE WORD                         CMP18        108     A     
 COMPASS   EDT20    BX6    -X0*X2                                                          CMP18        109     A     
 COMPASS            SB4    X6+B1                                                           CMP18        110     A     
 COMPASS            EQ     EDT22                                                           CMP18        111     A     
 COMPASS   EDT21    NG     B5,EDT22    IF PAST END OF CARD AREA                            CMP18        112     A     
 COMPASS            SB5    B5-B1                                                           CMP18        113     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12588     A     
 COMPASS   EDT21    SB4    B4-B1                                                           COMPASS    12589          I
          -CMP18  
 COMPASS            LX2    6                                                               COMPASS    12590          I
          -CMP18  
 COMPASS   EDT22    LX2    6                                                               CMP18        114     A     
 COMPASS            SB4    B4-B1                                                           CMP18        115     A     
 COMPASS            NO                                                                     CMP18        116     A     
 COMPASS            BX6    -X0*X2                                                          COMPASS    12591     A     
 COMPASS            NZ     B4,EDT22    IF NOT END OF WORD                                  COMPASS    12592          I
          -CMP18  
 COMPASS            NZ     B4,EDT21    IF NOT END OF WORD                                  CMP18        117     A     
 COMPASS            EQ     B6,B1,EDT12 IF END OF LAST WORD                                 CMP18        118          I
          -CMP64G 
 COMPASS            EQ     B6,B1,EDT23 IF END OF LAST WORD                                 CMP64G       192     A     
 COMPASS            SB6    B6-B1                                                           CMP18        119     A     
 COMPASS            SB4    A0                                                              COMPASS    12593     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    12594     A     
 COMPASS   EDT22    NZ     X6,EDT20    IF NOT END OF REPLACEMENT                           COMPASS    12595          I
          -CMP18  
 COMPASS            EQ     EDT12       CONTINUE                                            COMPASS    12596          I
          -CMP18  
 COMPASS            GT     B6,B1,EDT21 IF NOT LAST WORD                                    CMP18        120     A     
 COMPASS            NG     B5,EDT20    IF PAST END OF CARD AREA                            CMP18        121     A     
 COMPASS            SB5    B5-B1                                                           CMP18        122     A     
 COMPASS            SA6    A6+B1                                                           CMP18        123     A     
 COMPASS            EQ     EDT20                                                           CMP18        124     A     
 COMPASS   EDT23    SB4    X3                                                              CMP64G       193     A     
 COMPASS            EQ     EDT12                                                           CMP64G       194     A     
 COMPASS                                                                                   COMPASS    12597     A     
 COMPASS                                                                                   COMPASS    12598     A     
 COMPASS            IFGE   CONCAT,MICMARK,2                                                COMPASS    12599          I
          -CMP26  
 COMPASS   EX       SET    CONCAT-MICMARK                                                  COMPASS    12600          I
          -CMP26  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 805    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   EDITM    VFD    1/,MICMARK/1,EX/1,$/                                            COMPASS    12601          I
          -CMP26  
 COMPASS            IFLT   CONCAT,MICMARK,2                                                COMPASS    12602          I
          -CMP26  
 COMPASS   EX       SET    MICMARK-CONCAT                                                  COMPASS    12603          I
          -CMP26  
 COMPASS   EDITM    VFD    1/,CONCAT/1,EX/1,$/                                             COMPASS    12604          I
          -CMP26  
 COMPASS   EDITM    BSS    0                                                               CMP26         42     A     
 COMPASS            POS    60-MICMARK                                                      CMP26         43     A     
 COMPASS            VFD    1/1                                                             CMP26         44     A     
 COMPASS            POS    60-CONCAT                                                       CMP26         45     A     
 COMPASS            VFD    1/1                                                             CMP26         46     A     
 COMPASS            POS    0                                                               CMP26         47     A     
 COMPASS   EMT      SPACE  4                                                               COMPASS    12605     A     
 COMPASS  **        EMT - ENTER MICRO TABLE.                                               COMPASS    12606     A     
 COMPASS  *         ENTRY  (X6) = NUMBER OF WORDS IN MICRO.                                COMPASS    12607     A     
 COMPASS  *                (RELVEC+1) = MICRO.                                             COMPASS    12608          I
          -CMP18  
 COMPASS  *                (RELVEC) = MICRO.                                               CMP18        125     A     
 COMPASS                                                                                   COMPASS    12609     A     
 COMPASS                                                                                   COMPASS    12610     A     
 COMPASS   EMT      PS                 RETURN EXIT                                         COMPASS    12611     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS    12612     A     
 COMPASS            SA5    LOCSYM                                                          COMPASS    12613     A     
 COMPASS            SA2    BADLOC                                                          COMPASS    12614     A     
 COMPASS            ZR     X5,EMT5     IF BAD LOCATION                                     COMPASS    12615     A     
 COMPASS            NZ     X2,EMT5                                                         COMPASS    12616     A     
 COMPASS            SA2    O.MICTAB    SEARCH FOR MICRO                                    COMPASS    12617     A     
 COMPASS            SA4    L.MICTAB                                                        COMPASS    12618     A     
 COMPASS            BX6    X5                                                              COMPASS    12619          I
          -CMP18  
 COMPASS            SB7    X4                                                              COMPASS    12620          I
          -CMP18  
 COMPASS            SA6    RELVEC                                                          COMPASS    12621          I
          -CMP18  
 COMPASS            ZR     B7,EMT2     IF MICTAB EMPTY                                     COMPASS    12622          I
          -CMP18  
 COMPASS            SB7    X6                                                              CMP18        126     A     
 COMPASS            SB2    X4-1                                                            CMP18        127     A     
 COMPASS            PX6    X5,B7                                                           CMP18        128     A     
 COMPASS            SA6    RELVEC-1+B7 STORE NAME AND LENGTH                               CMP18        129     A     
 COMPASS            SA6    X2                                                              COMPASS    12623     A     
 COMPASS            SB2    B7-2                                                            COMPASS    12624          I
          -CMP18  
 COMPASS   EMT1     SA3    X2+B2       SEARCH TABLE                                        COMPASS    12625     A     
 COMPASS            SB2    B2-B1                                                           COMPASS    12626          I
          -CMP18  
 COMPASS            BX1    X5-X3                                                           COMPASS    12627          I
          -CMP18  
 COMPASS            UX1,B7 X3                                                              CMP18        130     A     
 COMPASS            BX1    X1-X5                                                           CMP18        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/28. 19.11.32.      PAGE 806    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB2    B2-B7                                                           CMP18        132     A     
 COMPASS            NZ     X1,EMT1     IF NAME NOT FOUND                                   COMPASS    12628     A     
 COMPASS            PL     B2,EMT3     IF NAME FOUND                                       COMPASS    12629          I
          -CMP18  
 COMPASS            NG     B2,EMT2     IF NAME NOT IN TABLE                                CMP18        133          I
          -CMP042 
 COMPASS            MI     B2,EMT3     IF NAME NOT IN TABLE                                CMP042       267     A     
 COMPASS            IX1    X2+X4                                                           CMP18        134     A     
 COMPASS            SX2    A3+B1                                                           CMP18        135     A     
 COMPASS            SB7    -B7                                                             CMP18        136     A     
 COMPASS            IX1    X1-X2                                                           CMP18        137     A     
 COMPASS            SX7    X4+B7                                                           CMP18        138     A     
 COMPASS            SX3    X2+B7                                                           CMP18        139     A     
 COMPASS            SA7    A4          REDUCE MICRO TABLE LENGTH                           CMP18        140          I
          -CMP042 
 COMPASS            SA7    P1TEMPA                                                         CMP042       268     A     
 COMPASS            ZR     X1,EMT2                                                         CMP18        141     A     
 COMPASS            RJ     MOVE        ELIMINATE OLD DEFINITION                            CMP18        142     A     
 COMPASS   EMT2     SA1    P1TEMP      GET ROOM FOR MICRO                                  COMPASS    12630          I
          -CMP042 
 COMPASS   EMT2     RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       269     A     
 COMPASS            SA1    P1TEMPA                                                         CMP042       270     A     
 COMPASS            BX6    X1          REDUCE MICRO TABLE LENGTH                           CMP042       271     A     
 COMPASS            SA6    L.MICTAB                                                        CMP042       272     A     
 COMPASS   EMT3     SA1    P1TEMP      GET ROOM FOR MICRO                                  CMP042       273     A     
 COMPASS            MANAGE MICTAB,X1                                                       COMPASS    12631     A     
 COMPASS            SA1    P1TEMP      STORE MICRO                                         COMPASS    12632     A     
 COMPASS            IX4    X2+X3                                                           COMPASS    12633     A     
 COMPASS            SX2    RELVEC                                                          COMPASS    12634     A     
 COMPASS            IX3    X4-X1                                                           COMPASS    12635     A     
 COMPASS            RJ     MOVE                                                            COMPASS    12636     A     
 COMPASS            EQ     EMT                                                             COMPASS    12637     A     
 COMPASS   EMT3     MX0    54          ELIMINATE OLD DEFINITION                            COMPASS    12638          I
          -CMP18  
 COMPASS            SX3    A3                                                              COMPASS    12639          I
          -CMP18  
 COMPASS            SA2    A3                                                              COMPASS    12640          I
          -CMP18  
 COMPASS            SB2    B2+B1                                                           COMPASS    12641          I
          -CMP18  
 COMPASS   EMT4     BX4    -X0*X2      SEARCH FOR END OF MICRO                             COMPASS    12642          I
          -CMP18  
 COMPASS            SB7    B7-B1                                                           COMPASS    12643          I
          -CMP18  
 COMPASS            SA2    A2+B1                                                           COMPASS    12644          I
          -CMP18  
 COMPASS            NZ     X4,EMT4                                                         COMPASS    12645          I
          -CMP18  
 COMPASS            SX7    B7          SET MICRO TABLE LENGTH                              COMPASS    12646          I
          -CMP18  
 COMPASS            SA7    A4                                                              COMPASS    12647          I
          -CMP18  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 807    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX2    A2                                                              COMPASS    12648          I
          -CMP18  
 COMPASS            SX1    B7-B2                                                           COMPASS    12649          I
          -CMP18  
 COMPASS            RJ     MOVE                                                            COMPASS    12650          I
          -CMP18  
 COMPASS            EQ     EMT2                                                            COMPASS    12651          I
          -CMP18  
 COMPASS   EMT5     SX6    B1          SET L-ERROR                                         COMPASS    12652     A     
 COMPASS            SA6    EFLG                                                            COMPASS    12653     A     
 COMPASS            SA6    LERR                                                            COMPASS    12654     A     
 COMPASS            EQ     CTL70                                                           COMPASS    12655     A     
 COMPASS   GSM      SPACE  4                                                               COMPASS    12656     A     
 COMPASS  **        GSM - GENERATE SYSTEMS MACRO TEXT.                                     COMPASS    12657     A     
 COMPASS                                                                                   COMPASS    12658     A     
 COMPASS                                                                                   COMPASS    12659     A     
 COMPASS   GSM      PS                 RETURN EXIT                                         COMPASS    12660     A     
 COMPASS            SA1    SYNAME                                                          COMPASS    12661     A     
 COMPASS            SA2    B                                                               CMP30       4113     A     
 COMPASS            ZR     X1,GSM      IF NO SYSTEXT GENERATION                            COMPASS    12662     A     
 COMPASS            ZR     X2,GSM      IF NO BINARY FILE                                   CMP30       4114     A     
 COMPASS                                                                                   CMP30       4115          I
          -CPSA134
 COMPASS   RM       IFNE   CP#RM,0                                                         CMP30       4116          I
          -CPSA134
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       4117          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      137          I
          -CPSA134
 COMPASS            SKIP                                                                   F7540CP      138          I
          -CPSA134
 COMPASS   X        ELSE                                                                   F7540CP      139          I
          -CPSA134
 COMPASS            FETCH  B,OC,X2                                                         CMP30       4118          I
          -CPSA134
 COMPASS            SX6    X2-#YES#                                                        CMP30       4119          I
          -CPSA134
 COMPASS            ZR     X6,GSM0A    IF FILE IS OPEN                                     CMP30       4120          I
          -CPSA134
 COMPASS            OPENM  B,OUTPUT,N                                                      CMP30       4121          I
          -CPSA134
 COMPASS            SA1    SYNAME                                                          CMP30       4122          I
          -CPSA134
 COMPASS   GSM0A    BSS    0                                                               CMP30       4123          I
          -CPSA134
 COMPASS   X        ENDIF                                                                  F7540CP      140          I
          -CPSA134
 COMPASS   RM       ENDIF                                                                  CMP30       4124          I
          -CPSA134
 COMPASS                                                                                   CMP30       4125          I
          -CPSA134
 COMPASS            SA2    ERCNT                                                           COMPASS    12663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 808    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X2,GSM      IF ERRORS                                           COMPASS    12664          I
          -CMP20  
 COMPASS            NZ     X2,GSM5     IF ERRORS                                           CMP20        379          I
          -CMP30  
 COMPASS            SA4    DATE        GENERATE IDENT TABLE                                COMPASS    12665          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    12666          I
          -CMP30  
 COMPASS            NZ     X2,GSM15    IF ERRORS                                           CMP30       4126     A     
 COMPASS            SA3    PRFX+6                                                          CMP30       4127     A     
 COMPASS            MX0    30                                                              CMP30       4128     A     
 COMPASS            BX6    X1          DECK NAME                                           CMP30       4129     A     
 COMPASS            SA4    =1HT                                                            CMP30       4130     A     
 COMPASS            BX3    X0*X3                                                           CMP30       4131     A     
 COMPASS            LX7    X4                                                              COMPASS    12667     A     
 COMPASS            BX4    -X0*X4                                                          CMP30       4132     A     
 COMPASS            SA6    DPBA+1                                                          COMPASS    12668     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    12669          I
          -CMP30  
 COMPASS            WRITEW B,DPBA,17B                                                      COMPASS    12670          I
          -CMP30  
 COMPASS            WRITEW B,(=50000101BS36),1                                             COMPASS    12671          I
          -CMP30  
 COMPASS            SA7    A3+B1       DECK TYPE = T                                       CMP30       4133     A     
 COMPASS            BX6    X3+X4                                                           CMP30       4134     A     
 COMPASS            SA6    A3          TARGET, VALID, *F = BLANKS                          CMP30       4135     A     
 COMPASS            SB4    PRFXC                                                           CMP30       4136     A     
 COMPASS            SB5    PRFXC+7                                                         CMP30       4137     A     
 COMPASS            MX6    0                                                               CMP30       4138     A     
 COMPASS   +        SA6    B4          CLEAR PRFX COMMENT AREA                             CMP30       4139     A     
 COMPASS            SB4    B4+B1                                                           CMP30       4140     A     
 COMPASS            LT     B4,B5,*                                                         CMP30       4141     A     
 COMPASS            SA4    L.SEGTAB    FIND COMMENT TEXT IN IDTAB                          CMP30       4142     A     
 COMPASS            SA3    O.IDTAB                                                         CMP30       4143     A     
 COMPASS            SB7    X3                                                              CMP30       4144     A     
 COMPASS            MX0    -12                                                             CMP30       4145     A     
 COMPASS            SX5    X4-5                                                            CMP30       4146     A     
 COMPASS            SA2    L.IDTAB                                                         CMP30       4147     A     
 COMPASS            MI     X5,*+2      IF ONLY ONE SEGMENT                                 CMP30       4148     A     
 COMPASS   +        SA4    O.SEGTAB                                                        CMP30       4149     A     
 COMPASS            SA2    X4+5                                                            CMP30       4150     A     
 COMPASS   +        SB4    PRFXC                                                           CMP30       4151     A     
 COMPASS            SB6    X3+B1                                                           CMP30       4152     A     
 COMPASS            SB7    B7+X2                                                           CMP30       4153     A     
 COMPASS   +        SA1    B6          FIND END OF COMPRESSED IDENT STATEMENT              CMP30       4154     A     
 COMPASS            BX6    -X0*X1                                                          CMP30       4155     A     
 COMPASS            SB6    B6+B1                                                           CMP30       4156     A     
 COMPASS            NZ     X6,*-1                                                          CMP30       4157     A     
 COMPASS   +        GE     B6,B7,GSM0  IF END OF COMMENT TEXT                              CMP30       4158     A     
 COMPASS            SA1    B6                                                              CMP30       4159     A     
 COMPASS            SB6    B6+B1                                                           CMP30       4160     A     
 COMPASS            BX6    X1                                                              CMP30       4161     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 809    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    B4                                                              CMP30       4162     A     
 COMPASS            SB4    B4+B1                                                           CMP30       4163     A     
 COMPASS            LT     B4,B5,*-2   IF PRFX TABLE NOT FULL                              CMP30       4164     A     
 COMPASS   GSM0     SA1    =50000101BS36                                                   CMP30       4165     A     
 COMPASS            BX6    X1                                                              CMP30       4166     A     
 COMPASS            SA6    OVLHDR                                                          CMP30       4167     A     
 COMPASS                                                                                   CMP30       4168     A     
 COMPASS            IFEQ   CP#RM,0,1                                                       CMP30       4169     A     
 COMPASS            WRITEW B,PRFX,LPRFX+1                                                  CMP30       4170     A     
 COMPASS                                                                                   CMP30       4171     A     
 COMPASS            SA1    L.SYMTAB    GENERATE SYSTEM SYMBOL TABLE                        COMPASS    12672     A     
 COMPASS            MANAGE DUPTAB,X1+B1                                                    COMPASS    12673     A     
 COMPASS            SB7    X3-1                                                            COMPASS    12674     A     
 COMPASS            SA7    X2                                                              COMPASS    12675     A     
 COMPASS            SB6    X2                                                              COMPASS    12676     A     
 COMPASS            SA4    O.SYMTAB                                                        COMPASS    12677     A     
 COMPASS            SB4    X4+B7                                                           COMPASS    12678     A     
 COMPASS            MX0    12                                                              COMPASS    12679     A     
 COMPASS            MX1    60-21                                                           COMPASS    12680     A     
 COMPASS            SB2    B1+B1                                                           COMPASS    12681     A     
 COMPASS            SA5    =36777BS21                                                      COMPASS    12682     A     
 COMPASS            SB5    59-30                                                  S028 504 CPS028       372     A     
 COMPASS            SB3    -2R'?                                                           CP096A       434     A     
 COMPASS                                                                                   COMPASS    12683     A     
 COMPASS  *         TRANSFER SYMBOLS FROM SYMTAB TO DUPTAB.                                COMPASS    12684     A     
 COMPASS                                                                                   COMPASS    12685     A     
 COMPASS   GSM1     ZR     B7,GSM2     IF END OF SYMBOL TABLE                              COMPASS    12686     A     
 COMPASS            SA2    B4-B7                                                           COMPASS    12687          I
          -CP096A 
 COMPASS            SX7    B4-B7                                                           CP096A       435     A     
 COMPASS            RX2    X7                                                              CP096A       436     A     
 COMPASS            SB7    B7-B2                                                           COMPASS    12688     A     
 COMPASS            ZR     X2,GSM1     IF NO SYMBOL                                        COMPASS    12689     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    12690          I
          -CP096A 
 COMPASS            SX7    X7+B1                                                           CP096A       437     A     
 COMPASS            RX3    X7                                                              CP096A       438     A     
 COMPASS            BX6    X0*X2                                                           COMPASS    12691     A     
 COMPASS            NZ     X6,GSM1     IF QUALIFIED SYMBOL                                 COMPASS    12692     A     
 COMPASS            BX6    X2                                                              COMPASS    12693     A     
 COMPASS   +        LX2    6           LEFT JUSTIFY SYMBOL                                 COMPASS    12694          I
          -CMP19  
 COMPASS            BX4    X0*X2                                                           COMPASS    12695          I
          -CMP19  
 COMPASS            ZR     X4,*        LOOP                                                COMPASS    12696          I
          -CMP19  
 COMPASS            AX2    42                                                              COMPASS    12697          I
          -CMP19  
 COMPASS            AX2    36                                                              CMP19        333     A     
 COMPASS            SX4    X2-2R'?                                                         COMPASS    12698          I
          -CP096A 
 COMPASS            SX4    X2+B3                                                           CP096A       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/28. 19.11.32.      PAGE 810    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A7+B1                                                           CP096A       440     A     
 COMPASS            ZR     X4,GSM1     IF LOCAL SYMBOL                                     COMPASS    12699     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    12700          I
          -CP096A 
 COMPASS            BX4    X5*X3                                                           COMPASS    12701     A     
 COMPASS            LX7    X3,B5                                                  S028 506 CPS028       373     A     
 COMPASS            NZ     X4,GSM1     IF SET, EXTERNAL, RELOCATABLE, OR XTEXT             COMPASS    12702     A     
 COMPASS            PL     X7,GSM1     IF NOT DEFINED                             S028 508 CPS028       374     A     
 COMPASS            BX7    -X1*X3                                                          COMPASS    12703     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    12704     A     
 COMPASS            EQ     GSM1        LOOP                                                COMPASS    12705     A     
 COMPASS   GSM2     SX6    A7-B6                                                           COMPASS    12706     A     
 COMPASS            SA6    B6                                                              COMPASS    12707     A     
 COMPASS                                                                                   CMP30       4172     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4173     A     
 COMPASS            WRITEW B,B6,X6+B1                                                      COMPASS    12708     A     
 COMPASS   RM       ELSE                                                                   CMP30       4174     A     
 COMPASS            SA1    L.MICTAB                                                        CMP30       4175     A     
 COMPASS            SX2    X6+B1       SYMBOL TABLE LENGTH                                 CMP30       4176     A     
 COMPASS            IX3    X2+X2                                                           CMP30       4177     A     
 COMPASS            LX2    3           MULTIPLY BY TEN                                     CMP30       4178     A     
 COMPASS            IX6    X2+X3                                                           CMP30       4179     A     
 COMPASS            SA6    T6RM1       SAVE IT                                             CMP30       4180     A     
 COMPASS            IX2    X1+X1                                                           CMP30       4181     A     
 COMPASS            LX1    3           MULTIPLY MICRO TABLE LENGTH BY TEN                  CMP30       4182     A     
 COMPASS            IX7    X1+X2                                                           CMP30       4183     A     
 COMPASS            SA7    A6+B1       SAVE IT TOO                                         CMP30       4184     A     
 COMPASS            SX3    10*LPRFX+10 ADD LENGTH OF PRFX + OVERLAY HEADER                 CMP30       4185     A     
 COMPASS            IX5    X6+X7                                                           CMP30       4186     A     
 COMPASS            SA1    B-1                                                    S028 510 CPS028       375     A     
 COMPASS            IX4    X5+X3                                                           CMP30       4187     A     
 COMPASS   +        ZR     X1,*+1      IF RECORD TYPE W                           S028 512 CPS028       376     A     
 COMPASS            SX4    0                                                      S028 513 CPS028       377     A     
 COMPASS            STORE  B,RL=X4                                                         CMP30       4188     A     
 COMPASS            PUTP   B,PRFX,X3                                                       CMP30       4189     A     
 COMPASS            SA3    T6RM1                                                           CMP30       4190     A     
 COMPASS            SA2    O.DUPTAB                                                        CMP30       4191     A     
 COMPASS            PUTP   B,X2,X3                                                         CMP30       4192     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4193     A     
 COMPASS                                                                                   CMP30       4194     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       274     A     
 COMPASS            SX6    B0                                                              COMPASS    12709     A     
 COMPASS            SA6    L.DUPTAB                                                        COMPASS    12710     A     
 COMPASS            SA1    L.MACDEF    OUTPUT LENGTH OF MACRO SKELETON TABLE               COMPASS    12711          I
          -CMP043 
 COMPASS            SA5    LSYSMAC                                                         COMPASS    12712          I
          -CMP043 
 COMPASS            IX6    X1-X5                                                           COMPASS    12713          I
          -CMP043 
 COMPASS            SA6    P1TEMP                                                          COMPASS    12714          I
          -CMP043 
 COMPASS            WRITEW B,A6,1                                                          COMPASS    12715          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 811    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP043 
 COMPASS            SA1    O.MACDEF    WRITE SYSTEM MACRO TABLE                            COMPASS    12716          I
          -CMP043 
 COMPASS            SA2    P1TEMP                                                          COMPASS    12717          I
          -CMP043 
 COMPASS            IX6    X1+X5                                                           COMPASS    12718          I
          -CMP043 
 COMPASS            WRITEW B,X6,X2                                                         COMPASS    12719          I
          -CMP043 
 COMPASS                                                                                   COMPASS    12720     A     
 COMPASS  *         WRITE MICRO TABLE.                                                     COMPASS    12721     A     
 COMPASS                                                                                   COMPASS    12722     A     
 COMPASS            SA1    L.MICTAB                                                        COMPASS    12723          I
          -CMP043 
 COMPASS            SX6    X1-1                                                            COMPASS    12724          I
          -CMP043 
 COMPASS            SA6    P1TEMP                                                          COMPASS    12725          I
          -CMP043 
 COMPASS            WRITEW B,A6,1                                                          COMPASS    12726          I
          -CMP043 
 COMPASS            SA1    O.MICTAB                                                        COMPASS    12727          I
          -CMP043 
 COMPASS            SA3    L.MICTAB                                                        COMPASS    12728          I
          -CMP043 
 COMPASS            WRITEW X2,X1+B1,X3-1                                                   COMPASS    12729          I
          -CMP043 
 COMPASS            SA1    L.OPTAB     GENERATE MACRO NAME TABLE                           COMPASS    12730          I
          -CMP043 
 COMPASS            MANAGE DUPTAB,X1+B1                                                    COMPASS    12731          I
          -CMP043 
 COMPASS            SB6    X2                                                              COMPASS    12732          I
          -CMP043 
 COMPASS            SB7    X3-1                                                            COMPASS    12733          I
          -CMP043 
 COMPASS            MX1    1                                                               COMPASS    12734          I
          -CMP043   -CMP64G 
 COMPASS            SX1    B1                                                              CMP64G       195          I
          -CMP043 
 COMPASS            SA4    O.OPTAB                                                         COMPASS    12735          I
          -CMP043 
 COMPASS            SA7    X2                                                              COMPASS    12736          I
          -CMP043 
 COMPASS            SB4    X4+B7                                                           COMPASS    12737          I
          -CMP043 
 COMPASS            SA5    LSYSMAC                                                         COMPASS    12738          I
          -CMP043 
 COMPASS            MX0    12                                                              COMPASS    12739          I
          -CMP043 
 COMPASS            LX1    60-2                                                            COMPASS    12740          I
          -CMP043   -CMP64G 
 COMPASS            SB2    B1+B1                                                           COMPASS    12741          I
          -CMP043 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 812    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB5    57                                                              COMPASS    12742          I
          -CMP043 
 COMPASS            SB4    B4+B1                                                           COMPASS    12743          I
          -CMP043 
 COMPASS            LX4    X1,B5                                                           CMP64G       196          I
          -CMP043 
 COMPASS            BX5    X4+X5                                                           CMP64G       197          I
          -CMP043 
 COMPASS                                                                                   COMPASS    12744          I
          -CMP043 
 COMPASS  *         TRANSFER PROGRAM MACROS TO DUPTAB.                                     COMPASS    12745          I
          -CMP043 
 COMPASS                                                                                   COMPASS    12746          I
          -CMP043 
 COMPASS   GSM3     ZR     B7,GSM4     IF END OF OPERATION TABLE                           COMPASS    12747          I
          -CMP043 
 COMPASS            SA2    B4-B7                                                           COMPASS    12748          I
          -CMP043 
 COMPASS            SB7    B7-B2                                                           COMPASS    12749          I
          -CMP043 
 COMPASS            AX6    X2,B5                                                           COMPASS    12750          I
          -CMP043 
 COMPASS            BX7    X1+X6                                                           COMPASS    12751          I
          -CMP043   -CMP64G 
 COMPASS            BX7    X6+X4                                                           CMP64G       198          I
          -CMP043 
 COMPASS            NZ     X7,GSM3     IF NOT PROGRAM MACRO                                COMPASS    12752          I
          -CMP043 
 COMPASS            SA3    A2-B1                                                           COMPASS    12753          I
          -CMP043 
 COMPASS            BX6    -X0*X3                                                          COMPASS    12754          I
          -CMP043 
 COMPASS            IX7    X2-X5                                                           COMPASS    12755          I
          -CMP043 
 COMPASS            LX2    12                                                              COMPASS    12756          I
          -CMP043   -CMP64G 
 COMPASS            NG     X2,GSM3     IF OPDEF                                            COMPASS    12757          I
          -CMP043   -CMP64G 
 COMPASS            BX7    -X1*X7                                                          COMPASS    12758          I
          -CMP043   -CMP64G 
 COMPASS            SA6    A7+B1                                                           COMPASS    12759          I
          -CMP043 
 COMPASS            SA7    A6+B1                                                           COMPASS    12760          I
          -CMP043 
 COMPASS            NZ     B7,GSM3     IF NOT END OF OPERATION TABLE                       COMPASS    12761          I
          -CMP043 
 COMPASS   GSM4     SX6    A7-B6       WRITE MACRO NAME TABLE                              COMPASS    12762          I
          -CMP043 
 COMPASS            SA6    B6                                                              COMPASS    12763          I
          -CMP043 
 COMPASS            WRITEW B,B6,X6+B1                                                      COMPASS    12764          I
          -CMP043 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 813    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       275          I
          -CMP043 
 COMPASS            SX6    B0                                                              COMPASS    12765          I
          -CMP043 
 COMPASS            SA6    L.DUPTAB                                                        COMPASS    12766          I
          -CMP043 
 COMPASS            WRITER B                                                               COMPASS    12767          I
          -CMP20    -CMP043 
 COMPASS   GSM5     WRITER B                                                               CMP20        380          I
          -CMP043 
 COMPASS            SA2    L.MICTAB                                                        CMP043         3          I
          -CMP30  
 COMPASS            SA1    O.MICTAB                                                        CMP043         4          I
          -CMP30  
 COMPASS            SX6    X2-1                                                            CMP043         5          I
          -CMP30  
 COMPASS            SA6    X1                                                              CMP043         6          I
          -CMP30  
 COMPASS            WRITEW B,X1,X2                                                         CMP043         7          I
          -CMP30  
 COMPASS            SA3    L.MICTAB                                                        CMP30       4195     A     
 COMPASS            SA2    O.MICTAB                                                        CMP30       4196     A     
 COMPASS            SA6    A3                                                     S028 515 CPS028       378     A     
 COMPASS            SX6    X3-1                                                            CMP30       4197     A     
 COMPASS            SA6    X2          STORE WORD COUNT                                    CMP30       4198     A     
 COMPASS                                                                                   CMP30       4199     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       4200     A     
 COMPASS            WRITEW B,X2,X3                                                         CMP30       4201     A     
 COMPASS            ELSE   2                                                               CMP30       4202     A     
 COMPASS            SA3    T6RM2       GET CHARACTER COUNT                                 CMP30       4203     A     
 COMPASS            PUTP   B,X2,X3                                                         CMP30       4204     A     
 COMPASS                                                                                   CMP043         8     A     
 COMPASS  *         GENERATE MACRO NAME TABLE.                                             CMP043         9     A     
 COMPASS                                                                                   CMP043        10     A     
 COMPASS            SA1    L.OPTAB     MAKE ROOM FOR TABLE                                 CMP043        11     A     
 COMPASS            MANAGE TEMTAB,X1+B1                                                    CMP043        12     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP043        13     A     
 COMPASS            SA1    O.OPTAB                                                         CMP043        14     A     
 COMPASS            SA2    O.TEMTAB                                                        CMP043        15     A     
 COMPASS            SB2    B1+B1                                                           CMP043        16     A     
 COMPASS            SB5    X1                                                              CMP043        17     A     
 COMPASS            SB6    X1+NOPCT*2-2                                                    CMP043        18     A     
 COMPASS            SB7    X2+B1                                                           CMP043        19     A     
 COMPASS            MX0    12                                                              CMP043        20     A     
 COMPASS   GSM3     GT     B5,B6,GSM9  IF LAST HASH CHAIN FINISHED                         CMP043        21     A     
 COMPASS            SA1    B5          GET FIRST OPTAB ENTRY IN CHAIN                      CMP043        22     A     
 COMPASS            SA2    B5+B1                                                           CMP043        23     A     
 COMPASS            SB5    B5+B2       BUMP CHAIN NUMBER                                   CMP043        24     A     
 COMPASS            BX5    X0*X1                                                           CMP043        25     A     
 COMPASS            ZR     X1,GSM3     IF NULL CHAIN                                       CMP043        26     A     
 COMPASS   GSM4     BX3    X2                                                              CMP043        27     A     
 COMPASS            LX2    59-47                                                           CMP043        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/28. 19.11.32.      PAGE 814    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX4    B1                                                              CMP043        29     A     
 COMPASS            BX7    X3          INSPECT OPCODE TYPE                                 CMP043        30     A     
 COMPASS            AX3    57                                                              CMP043        31     A     
 COMPASS            IX6    X1-X5                                                           CMP043        32     A     
 COMPASS            BX4    X3+X4                                                           CMP043        33     A     
 COMPASS            LX5    13                                                              CMP043        34     A     
 COMPASS            ZR     X4,GSM6A    IF SYSTEM OR PROGRAM MACRO                          CMP043        35     A     
 COMPASS            MI     X2,GSM6     IF PROGRAM-DEFINED NON-MACRO                        CMP043        36     A     
 COMPASS   GSM5     ZR     X5,GSM3     IF END OF HASH CHAIN                                CMP043        37     A     
 COMPASS            SA1    B6+X5       GET NEXT ENTRY IN CHAIN                             CMP043        38     A     
 COMPASS            SA2    A1+B1                                                           CMP043        39     A     
 COMPASS            SX4    B1                                                              CMP043        40          I
          -CPS118X
 COMPASS            BX5    X0*X1                                                           CMP043        41     A     
 COMPASS            LX4    38          CHECK DUP FLAG                                      CMP043        42          I
          -CPS118X
 COMPASS            BX3    X4*X2                                                           CMP043        43          I
          -CPS118X
 COMPASS            ZR     X3,GSM4     IF NOT A DUPLICATE OPCODE                           CMP043        44          I
          -CPS118X
 COMPASS            BX7    X2-X4                                                           CMP043        45          I
          -CPS118X
 COMPASS            LX5    13                                                              CMP043        46          I
          -CPS118X
 COMPASS            SA7    A2          CLEAR DUP FLAG                                      CMP043        47          I
          -CPS118X
 COMPASS            EQ     GSM5        IGNORE THIS ENTRY                                   CMP043        48          I
          -CPS118X
 COMPASS            EQ     GSM4                                                            CPS118X        5     A     
 COMPASS   GSM6     SX4    B1          CLEAR PROGRAM-DEFINED FLAG                          CMP043        49     A     
 COMPASS            LX4    47                                                              CMP043        50     A     
 COMPASS            EQ     GSM7                                                            CMP043        51     A     
 COMPASS   GSM6A    SX4    B1          CLEAR PROGRAM MACRO FLAG                            CMP043        52     A     
 COMPASS            NZ     X3,GSM5     IF SYSTEM MACRO, IGNORE IT                          CMP043        53     A     
 COMPASS            LX4    57                                                              CMP043        54     A     
 COMPASS   GSM7     BX7    -X4*X7      STORE OPCODE ENTRY INTO TEMTAB                      CMP043        55     A     
 COMPASS            SA6    B7                                                              CMP043        56          I
          -CPS118X
 COMPASS            SA7    B7+B1                                                           CMP043        57          I
          -CPS118X
 COMPASS            LX3    X6          SEARCH HASH CHAIN FOR DUPLICATES                    CMP043        58          I
          -CPS118X
 COMPASS            BX6    X5                                                              CMP043        59          I
          -CPS118X
 COMPASS            SB7    B7+B2                                                           CMP043        60          I
          -CPS118X
 COMPASS   GSM8     ZR     X6,GSM5     IF END OF CHAIN                                     CMP043        61          I
          -CPS118X
 COMPASS            SA1    B6+X6                                                           CMP043        62          I
          -CPS118X
 COMPASS            BX6    X0*X1                                                           CMP043        63          I
          -CPS118X
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 815    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX4    X1-X6       LOOK AT NEXT                                        CMP043        64          I
          -CPS118X
 COMPASS            NO                                                                     CMP043        65          I
          -CPS118X
 COMPASS            LX6    13                                                              CMP043        66          I
          -CPS118X
 COMPASS            BX4    X3-X4                                                           CMP043        67          I
          -CPS118X
 COMPASS            NZ     X4,GSM8     IF NOT SAME OPCODE NAME                             CMP043        68          I
          -CPS118X
 COMPASS            SA2    A1+B1                                                           CMP043        69          I
          -CPS118X
 COMPASS            SX4    B1                                                              CMP043        70          I
          -CPS118X
 COMPASS            LX4    38          SET DUPLICATE FLAG                                  CMP043        71          I
          -CPS118X
 COMPASS            BX7    X2+X4                                                           CMP043        72          I
          -CPS118X
 COMPASS            NO                                                                     CMP043        73          I
          -CPS118X
 COMPASS            SA7    A2                                                              CMP043        74          I
          -CPS118X
 COMPASS            EQ     GSM8                                                            CMP043        75          I
          -CPS118X
 COMPASS            SB4    A1          SAVE ADDRESS OF CURRENT ENTRY                       CPS118X        6     A     
 COMPASS            SA1    B5-B2       RESCAN CHAIN TO SEARCH FOR DUPLICATES               CPS118X        7     A     
 COMPASS   GSM8     SB3    A1                                                              CPS118X        8     A     
 COMPASS            EQ     B3,B4,GSM8A IF CURRENT ENTRY                                    CPS118X        9     A     
 COMPASS            BX3    X0*X1                                                           CPS118X       10     A     
 COMPASS            IX2    X1-X3       REMOVE HASH LINK                                    CPS118X       11     A     
 COMPASS            LX3    13                                                              CPS118X       12     A     
 COMPASS            BX2    X6-X2                                                           CPS118X       13     A     
 COMPASS            SA1    B6+X3       GET NEXT TO COMPARE WITH CURRENT                    CPS118X       14     A     
 COMPASS            NZ     X2,GSM8     IF NOT DUPLICATE, LOOP                              CPS118X       15     A     
 COMPASS            EQ     GSM5        DUPLICATE FOUND, IGNORE CURRENT ENTRY               CPS118X       16     A     
 COMPASS   GSM8A    SA6    B7          NO DUPLICATE FOUND, STORE                           CPS118X       17     A     
 COMPASS            SA7    B7+B1       CURRENT ENTRY IN TEMTAB                             CPS118X       18     A     
 COMPASS            SB7    B7+B2                                                           CPS118X       19     A     
 COMPASS            EQ     GSM5                                                            CPS118X       20     A     
 COMPASS   GSM9     SA1    O.TEMTAB    STORE WORD COUNT IN FIRST WORD                      CMP043        76     A     
 COMPASS            SB6    X1                                                              CMP043        77     A     
 COMPASS            SX6    B7-B6                                                           CMP043        78     A     
 COMPASS            SX7    X6-1                                                            CMP043        79     A     
 COMPASS            SA6    L.TEMTAB    REDUCE TABLE SIZE                                   CMP043        80     A     
 COMPASS            SA7    X1                                                              CMP043        81     A     
 COMPASS                                                                                   CMP043        82     A     
 COMPASS  *         GENERATE MACRO DEFINITION TABLE.                                       CMP043        83     A     
 COMPASS                                                                                   CMP043        84     A     
 COMPASS            SX0    B1                                                              CMP043        85     A     
 COMPASS            BX2    X7                                                              CMP043        86     A     
 COMPASS            MX1    -18                                                    S028 522 CPS028       379     A     
 COMPASS            SB7    57                                                              CMP043        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/28. 19.11.32.      PAGE 816    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX0    38                                                              CMP043        88     A     
 COMPASS            AX6    X0,B1                                                  S028 524 CPS028       380     A     
 COMPASS            BX1    X1-X6       (X1) = MASK TO CLEAR LCM BIT AND ADDRESS   S028 525 CPS028       381     A     
 COMPASS   GSM10    SA3    X2+B6       SEARCH MACRO NAME TABLE                             CMP043        89     A     
 COMPASS            ZR     X2,GSM14    IF END OF TABLE                                     CMP043        90     A     
 COMPASS            AX4    X3,B7                                                           CMP043        91     A     
 COMPASS            SX5    X4+B1                                                           CMP043        92     A     
 COMPASS            SX2    X2-2                                                            CMP043        93     A     
 COMPASS            BX6    X0*X3                                                           CMP043        94     A     
 COMPASS            NZ     X5,GSM10    IF NOT A MACRO                                      CMP043        95     A     
 COMPASS            ZR     X6,GSM11    IF NOT ALREADY ADJUSTED                             CMP043        96     A     
 COMPASS            BX6    -X0*X3                                                          CMP043        97     A     
 COMPASS            SA6    A3          CLEAR FLAG BIT                                      CMP043        98     A     
 COMPASS            EQ     GSM10                                                           CMP043        99     A     
 COMPASS   GSM11    SA4    L.DUPTAB    CHECK FOR SYNONYMS                                  CMP043       100     A     
 COMPASS            SX5    X3                                                              CMP043       101          I
          -CPS028 
 COMPASS            IX6    X3-X5                                                           CMP043       102          I
          -CPS028 
 COMPASS            BX6    X1*X3                                                  S028 527 CPS028       382     A     
 COMPASS            IX7    X6+X4       ADJUST TEXT POINTER                                 CMP043       103     A     
 COMPASS            SX5    X2                                                              CMP043       104     A     
 COMPASS            SA7    A3                                                              CMP043       105     A     
 COMPASS            BX7    X0+X7                                                           CMP043       106     A     
 COMPASS   GSM12    ZR     X5,GSM13    IF END OF TABLE                                     CMP043       107     A     
 COMPASS            SA4    X5+B6                                                           CMP043       108     A     
 COMPASS            BX6    X3-X4                                                           CMP043       109     A     
 COMPASS            SX5    X5-2                                                            CMP043       110     A     
 COMPASS            NZ     X6,GSM12    IF NOT SYNONYMOUS                                   CMP043       111     A     
 COMPASS            SA7    A4          SET FLAG BIT                                        CMP043       112     A     
 COMPASS            EQ     GSM12                                                           CMP043       113     A     
 COMPASS   GSM13    SX6    X2          SAVE POINTERS                                       CMP043       114     A     
 COMPASS            AX7    39                                                              CMP043       115     A     
 COMPASS            SA6    P1TEMP      P1TEMP  = TEMTAB INDEX                              CMP043       116     A     
 COMPASS            SA7    A6+B1       P1TEMPA = TEXT WORD COUNT                           CMP043       117     A     
 COMPASS            SX6    X3          P1TEMPB = TEXT FWA IN MACDEF                        CMP043       118          I
          -CPS028 
 COMPASS            BX6    -X1*X3      P1TEMPB = TEXT FWA IN MACDEF OR LCM        S028 529 CPS028       383     A     
 COMPASS            SA6    A7+B1                                                           CMP043       119     A     
 COMPASS            MANAGE DUPTAB,X7   MAKE ROOM FOR TEXT                                  CMP043       120     A     
 COMPASS            IX7    X2+X3                                                           CMP043       121     A     
 COMPASS            SA1    P1TEMPA                                                         CMP043       122     A     
 COMPASS            SA2    A1+B1                                                           CMP043       123     A     
 COMPASS            LX2    59-37                                                  S028 531 CPS028       384     A     
 COMPASS            PL     X2,GSM13A   IF IN MACDEF                               S028 532 CPS028       385     A     
 COMPASS            LX2    37-59                                                  S028 533 CPS028       386     A     
 COMPASS            SX3    X1                                                     S028 534 CPS028       387     A     
 COMPASS            BX1    X2                                                     S028 535 CPS028       388     A     
 COMPASS            IX2    X7-X3                                                  S028 536 CPS028       389     A     
 COMPASS            RJ     RLC         MOVE TEXT FROM LCM TO DUPTAB               S028 537 CPS028       390     A     
 COMPASS            EQ     GSM13B                                                 S028 538 CPS028       391     A     
 COMPASS   GSM13A   LX2    37-59                                                  S028 539 CPS028       392     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 817    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    O.MACDEF                                                        CMP043       124     A     
 COMPASS            SX1    X1                                                              CMP043       125     A     
 COMPASS            IX2    X2+X3                                                           CMP043       126     A     
 COMPASS            IX3    X7-X1                                                           CMP043       127     A     
 COMPASS            RJ     MOVE        MOVE TEXT FROM MACDEF TO DUPTAB                     CMP043       128     A     
 COMPASS            SA1    O.TEMTAB                                                        CMP043       129          I
          -CPS028 
 COMPASS   GSM13B   SA1    O.TEMTAB                                               S028 541 CPS028       393     A     
 COMPASS            SA2    P1TEMP                                                          CMP043       130     A     
 COMPASS            SX0    B1                                                              CMP043       131     A     
 COMPASS            SB7    57                                                              CMP043       132     A     
 COMPASS            SB6    X1                                                              CMP043       133     A     
 COMPASS            MX1    -18                                                    S028 543 CPS028       394     A     
 COMPASS            LX0    38                                                              CMP043       134     A     
 COMPASS            AX6    X0,B1                                                  S028 545 CPS028       395     A     
 COMPASS            BX1    X1-X6                                                  S028 546 CPS028       396     A     
 COMPASS            NZ     X2,GSM10    IF NOT END OF MACRO NAME TABLE                      CMP043       135     A     
 COMPASS                                                                                   CMP043       136     A     
 COMPASS  *         WRITE MACRO TABLES.                                                    CMP043       137     A     
 COMPASS                                                                                   CMP043       138     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4205     A     
 COMPASS                                                                                   CMP30       4206     A     
 COMPASS   GSM14    WRITEW B,L.DUPTAB,1                                                    CMP043       139     A     
 COMPASS            SA3    O.DUPTAB                                                        CMP043       140     A     
 COMPASS            SA4    L.DUPTAB                                                        CMP043       141     A     
 COMPASS            WRITEW X2,X3,X4    WRITE MACRO DEFINITION TABLE                        CMP043       142     A     
 COMPASS            SA3    O.TEMTAB                                                        CMP043       143     A     
 COMPASS            SA4    L.TEMTAB                                                        CMP043       144     A     
 COMPASS            WRITEW X2,X3,X4    WRITE MACRO NAME TABLE                              CMP043       145     A     
 COMPASS            WRITER X2                                                              CMP043       146          I
          -CMP30  
 COMPASS                                                                                   CMP30       4207     A     
 COMPASS   RM       ELSE                                                                   CMP30       4208     A     
 COMPASS                                                                                   CMP30       4209     A     
 COMPASS   GSM14    SA5    L.DUPTAB                                                        CMP30       4210     A     
 COMPASS            SA4    L.TEMTAB                                                        CMP30       4211     A     
 COMPASS            SX3    X5+B1       MACRO DEFS SIZE + 1 FOR HEADER WORD                 CMP30       4212     A     
 COMPASS            IX2    X3+X4                                                           CMP30       4213     A     
 COMPASS            IX7    X2+X2                                                           CMP30       4214     A     
 COMPASS            LX2    3                                                               CMP30       4215     A     
 COMPASS            SA1    B-1                                                    S028 517 CPS028       397     A     
 COMPASS            IX4    X2+X7                                                           CMP30       4216     A     
 COMPASS   +        ZR     X1,*+1      IF RECORD TYPE W                           S028 519 CPS028       398     A     
 COMPASS            SX4    0                                                      S028 520 CPS028       399     A     
 COMPASS            STORE  B,RL=X4                                                         CMP30       4217     A     
 COMPASS            PUTP   B,L.DUPTAB,10                                                   CMP30       4218     A     
 COMPASS            SA5    L.DUPTAB                                                        CMP30       4219     A     
 COMPASS            ZR     X5,GSM14A   IF NO MACRO DEFINITIONS                    S028 548 CPS028       400     A     
 COMPASS            IX7    X5+X5                                                           CMP30       4220     A     
 COMPASS            LX5    3                                                               CMP30       4221     A     
 COMPASS            IX3    X5+X7                                                           CMP30       4222     A     
 COMPASS            SA2    O.DUPTAB                                                        CMP30       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/28. 19.11.32.      PAGE 818    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PUTP   B,X2,X3     DUMP MACRO DEFINITION TABLE                         CMP30       4224     A     
 COMPASS            SA5    L.TEMTAB                                                        CMP30       4225          I
          -CPS028 
 COMPASS   GSM14A   SA5    L.TEMTAB                                               S028 550 CPS028       401     A     
 COMPASS            IX7    X5+X5                                                           CMP30       4226     A     
 COMPASS            LX5    3                                                               CMP30       4227     A     
 COMPASS            IX3    X5+X7                                                           CMP30       4228     A     
 COMPASS            SA2    O.TEMTAB                                                        CMP30       4229     A     
 COMPASS            PUTP   B,X2,X3     DUMP MACRO NAME TABLE                               CMP30       4230     A     
 COMPASS                                                                                   CMP30       4231     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4232     A     
 COMPASS                                                                                   CMP30       4233     A     
 COMPASS   GSM15    WEOR   B                                                               CMP30       4234     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP043       147     A     
 COMPASS            SX6    B0                                                              CMP043       148     A     
 COMPASS            SA6    L.DUPTAB                                                        CMP043       149     A     
 COMPASS            SA6    L.TEMTAB                                                        CMP043       150     A     
 COMPASS            EQ     GSM         RETURN                                              COMPASS    12768     A     
 COMPASS   INPUT1   SPACE  4                                                               COMPASS    12769     A     
 COMPASS  **        INPUT1 - PASS 1 INPUT ROUTINE.                                         COMPASS    12770     A     
 COMPASS  *         INPUT1 CREATES NEXT STATEMENT, EITHER BY UNPACKING FROM THE            COMPASS    12771     A     
 COMPASS  *         TABLE DICTATED BY THE TOP-MOST STACK ENTRY, OR BY CALLING              COMPASS    12772     A     
 COMPASS  *         CRCARD OR CRC TO CREATE A STATEMENT FROM THE INPUT FILE.               COMPASS    12773          I
          -CMP041 
 COMPASS  *         RNS TO READ NEXT STATEMENT FROM THE SOURCE INPUT FILE.                 CMP041        33     A     
 COMPASS  *             INPUT1 ALSO CLEARS OUT...                                          COMPASS    12774     A     
 COMPASS  *                SQLGN             TO PERMIT PACKING OF STATEMENT.               COMPASS    12775     A     
 COMPASS  *                ERFLAGS           TO CLEAR HANGING ERROR FLAGS.                 COMPASS    12776     A     
 COMPASS  *                FLAG              TO MINIMIZE INTERMEDIATE USAGE OF IT.         COMPASS    12777     A     
 COMPASS  *                OPTYPE      TO AVOID CONFUSION IN *WINTER*.                     CMP24        131          I
          -CMP029 
 COMPASS  *                OPTYPE            TO AVOID CONFUSION IN *WINTER*.               CMP029        92     A     
 COMPASS  *         INPUT1 WILL COMPLAIN IF RECURSION DEPTH IS TOO BIG.                    COMPASS    12778     A     
 COMPASS  *         EXIT   (X1) " 0 IF PUSHUP OCCURRED.                                    COMPASS    12779     A     
 COMPASS                                                                                   COMPASS    12780     A     
 COMPASS                                                                                   COMPASS    12781     A     
 COMPASS   INPUT1   PS                 RETURN EXIT                                         COMPASS    12782     A     
 COMPASS            SA1    L.STACK     CHECK ON SOURCE OF INPUT                            COMPASS    12783          I
          -CPS004 
 COMPASS            ZR     X1,IN4      IF NORMAL INPUT                                     COMPASS    12784          I
          -CPS004 
 COMPASS            SA2    AMODE                                                           COMPASS    12785          I
          -CMP24  
 COMPASS            AX1    2                                                               COMPASS    12786          I
          -CPS004 
 COMPASS            SB7    X1-"LIMRECUR" CHECK FOR EXCESSIVE RECURSION                     COMPASS    12787          I
          -CPS004 
 COMPASS            PL     B7,INPF                                                         COMPASS    12788          I
          -CPS004 
 COMPASS            ZR     X2,INP1     IF NOT A-MODE                                       COMPASS    12789          I
          -CMP24  
 COMPASS            SA2    L.STACK                                                         COMPASS    12790          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 819    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            SA4    O.STACK                                                         COMPASS    12791          I
          -CMP24  
 COMPASS            SB4    X2-3                                                            COMPASS    12792          I
          -CMP24  
 COMPASS            SA3    X4+B4       GET SECOND WORD OF STACK                            COMPASS    12793          I
          -CMP24  
 COMPASS            SA4    A3+2                                                            COMPASS    12794          I
          -CMP24  
 COMPASS            BX6    X4+X1                                                           COMPASS    12795          I
          -CMP24  
 COMPASS            SA6    SEQ                                                             COMPASS    12796          I
          -CMP24  
 COMPASS            EQ     INP2                                                            COMPASS    12797          I
          -CMP24  
 COMPASS   INP1     RJ     CONDEC                                                          COMPASS    12798          I
          -CMP24  
 COMPASS            LX6    24                                                              COMPASS    12799          I
          -CMP24  
 COMPASS            SA2    L.STACK                                                         COMPASS    12800     A     
 COMPASS            SA1    O.STACK                                                         COMPASS    12801     A     
 COMPASS            ZR     X2,IN4      IF NORMAL INPUT                            S004  37 CPS004        22     A     
 COMPASS            SB4    X2-3                                                            COMPASS    12802     A     
 COMPASS            SA3    X1+B4       GET SECOND WORD OF STACK                            COMPASS    12803     A     
 COMPASS            SA1    A3-B1       GET CURRENT WORD POINTER                            CMP24        132     A     
 COMPASS            MX0    42                                                              CMP24        133     A     
 COMPASS            SA4    A3+2                                                            COMPASS    12804     A     
 COMPASS            SA5    =3R                                                             CMP24        134     A     
 COMPASS            BX6    X0*X1                                                           CMP24        135     A     
 COMPASS            LX7    X4                                                              COMPASS    12805     A     
 COMPASS            BX6    X6+X5                                                           CMP24        136     A     
 COMPASS            SA7    SEQ         STORE MACRO NAME                                    COMPASS    12806     A     
 COMPASS            SA6    A7+B1       STORE LEVEL NUMBER                                  COMPASS    12807     A     
 COMPASS            SB7    NCARDS-1                                                        COMPASS    12808          I
          -CMP24  
 COMPASS   IN1A     SA7    A6+B1                                                           COMPASS    12809          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    12810          I
          -CMP24  
 COMPASS            SB7    B7-B1                                                           COMPASS    12811          I
          -CMP24  
 COMPASS            NZ     B7,IN1A                                                         COMPASS    12812          I
          -CMP24  
 COMPASS   INP2     AX3    56          LOOK AT TYPE                                        COMPASS    12813          I
          -CMP24  
 COMPASS            AX3    56          LOOK AT TYPE                                        CMP24        137     A     
 COMPASS            SB4    X3          SAVE TYPE OF STACK ENTRY                            COMPASS    12814     A     
 COMPASS            SA1    A3-B1       GET CURRENT WORD POINTERS                           COMPASS    12815          I
          -CMP24  
 COMPASS            SX1    X1                                                              CMP24        138     A     
 COMPASS            JP     *+B4        JUMP ON TYPE OF STACK ENTRY                         COMPASS    12816     A     
 COMPASS                                                                                   COMPASS    12817     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 820    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        EQ     INMAC       MACRO DEFINITION                                    COMPASS    12818     A     
 COMPASS   +        EQ     INDUP       DUPTAB                                              COMPASS    12819     A     
 COMPASS   +        EQ     INRMT       REMOTE TABLE INPUT                                  COMPASS    12820     A     
 COMPASS   +        EQ     INLIB       LIBRARY TABLE INPUT                                 COMPASS    12821     A     
 COMPASS   +        EQ     INECH       ECHO TABLE INPUT                                    COMPASS    12822     A     
 COMPASS                                                                                   COMPASS    12823     A     
 COMPASS  *         INPUT FROM ECHTAB.                                                     COMPASS    12824     A     
 COMPASS                                                                                   COMPASS    12825     A     
 COMPASS   INECH    SA2    O.ECHTAB                                                        COMPASS    12826     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    12827     A     
 COMPASS            RJ     UCARD                                                           COMPASS    12828     A     
 COMPASS            SA1    O.ECHTAB                                                        COMPASS    12829     A     
 COMPASS            EQ     IN2                                                             COMPASS    12830     A     
 COMPASS                                                                                   COMPASS    12831     A     
 COMPASS  *         INPUT FROM LASTAB.                                                     COMPASS    12832     A     
 COMPASS                                                                                   COMPASS    12833     A     
 COMPASS   INLIB    SA2    O.LASTAB                                                        COMPASS    12834     A     
 COMPASS            IX1    X2+X1                                                           COMPASS    12835     A     
 COMPASS            RJ     UCARD                                                           COMPASS    12836     A     
 COMPASS            SA1    O.LASTAB                                                        COMPASS    12837     A     
 COMPASS            EQ     IN2                                                             COMPASS    12838     A     
 COMPASS                                                                                   COMPASS    12839     A     
 COMPASS  *         INPUT FROM REMOTE ASSEMBLY TABLE  (RASTAB).                            COMPASS    12840     A     
 COMPASS                                                                                   COMPASS    12841     A     
 COMPASS   INRMT    SA2    O.RASTAB                                                        COMPASS    12842     A     
 COMPASS            IX1    X2+X1       CONSTRUCT ADDRESS                                   COMPASS    12843     A     
 COMPASS            RJ     UCARD       UNPACK CARD                                         COMPASS    12844     A     
 COMPASS            SA1    O.RASTAB                                                        COMPASS    12845     A     
 COMPASS   IN2      IX7    X6-X1       UNBIAS NEXT AVAILABLE ADDRESS                       COMPASS    12846          I
          -CMP24  
 COMPASS            MX6    1                                                               COMPASS    12847          I
          -CMP24  
 COMPASS            SA2    L.STACK     STORE IT BACK IN FIRST WORD                         COMPASS    12848          I
          -CMP24  
 COMPASS            SB5    X2-4        OF LAST STACK ENTRY                                 COMPASS    12849          I
          -CMP24  
 COMPASS            SA1    O.STACK                                                         COMPASS    12850          I
          -CMP24  
 COMPASS            SA7    X1+B5       STORE UN-BIASED ADDRESS BACK IN STACK               COMPASS    12851          I
          -CMP24  
 COMPASS   IN2      SA2    L.STACK                                                         CMP24        139     A     
 COMPASS            SA3    O.STACK                                                         CMP24        140     A     
 COMPASS            SB5    X2-4                                                            CMP24        141     A     
 COMPASS            SA2    X3+B5                                                           CMP24        142     A     
 COMPASS            SA4    A2+B1                                                           CMP64G       199     A     
 COMPASS            IX7    X6-X1       UNBIAS FWA OF NEXT CARD                             CMP24        143     A     
 COMPASS            MX6    1                                                               CMP24        144     A     
 COMPASS            SX3    X2          STORE BACK INTO FIRST WORD OF STACK ENTRY           CMP24        145     A     
 COMPASS            IX3    X2-X3                                                           CMP24        146     A     
 COMPASS            BX7    X3+X7                                                           CMP24        147     A     
 COMPASS            AX4    56                                                              CMP64G       200     A     
 COMPASS            SA6    EDITFG      SET FLAG TO CAUSE EDIT SCAN                         COMPASS    12852     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 821    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A2                                                              CMP24        148     A     
 COMPASS            MX6    0           CLEAR SQUEEZE FLAG                                  COMPASS    12853     A     
 COMPASS            SA6    SQLGN                                                           COMPASS    12854     A     
 COMPASS            SA3    STYPE                                                           COMPASS    12855     A     
 COMPASS            SB4    B4-2                                                            COMPASS    12856          I
          -CMP64G 
 COMPASS            SB4    X4-2                                                            CMP64G       201     A     
 COMPASS            SB7    X3-1RT                                                          COMPASS    12857     A     
 COMPASS            NZ     B7,INP5     IF NOT A *T* TERMINATOR                             COMPASS    12858     A     
 COMPASS            ZR     B4,IN3A     IF DUP ENTRY                                        COMPASS    12859     A     
 COMPASS            SB4    B4-3                                                            COMPASS    12860     A     
 COMPASS            NZ     B4,IN3      IF NOT ECHO                                         COMPASS    12861     A     
 COMPASS            RJ     ITE         ITERATE ECHO                                        COMPASS    12862     A     
 COMPASS            ZR     X1,INPUT1+1 READ NEXT CARD                                      COMPASS    12863          I
          -CMP64G 
 COMPASS            ZR     X2,INPUT1+1 IF NOT DONE, GO READ NEXT CARD                      CMP64G       202     A     
 COMPASS   IN3      RJ     PUSHUP      ELSE PUSH STACK UP, RETURN FOR                      COMPASS    12864     A     
 COMPASS            EQ     INPUT1+1    NEXT CARD                                           COMPASS    12865     A     
 COMPASS   IN3A     SA4    A7+2        FETCH DUPLICATION CONTROL                           COMPASS    12866     A     
 COMPASS            MX0    42                                                              CMP24        149     A     
 COMPASS            BX7    X0*X7                                                           CMP24        150     A     
 COMPASS            NG     X4,IN3      IF STOPDUP IN EFFECT                                COMPASS    12867     A     
 COMPASS            SX7    X4          SIZE OF DUPTAB AT START OF DUP                      COMPASS    12868          I
          -CMP24  
 COMPASS            SX5    X4          SIZE OF DUPTAB AT START OF DUP                      CMP24        151     A     
 COMPASS            SX3    B1                                                              COMPASS    12869     A     
 COMPASS            SA7    A7          RESET TABLE LENGTHS                                 COMPASS    12870          I
          -CMP24  
 COMPASS            BX7    X7+X5       RESET POINTER TO FIRST CARD                         CMP24        152     A     
 COMPASS            LX3    18                                                              COMPASS    12871     A     
 COMPASS            SA7    A7                                                              CMP24        153     A     
 COMPASS            IX6    X4-X3       DECREMENT DUP COUNT                                 COMPASS    12872     A     
 COMPASS            SA6    A4          RESTORE DECREMENTED 3RD WORD                        COMPASS    12873     A     
 COMPASS            AX4    19          TEST FOR END OF DUPLICATION                         COMPASS    12874     A     
 COMPASS            ZR     X4,IN3      QUIT IF END OF DUP                                  COMPASS    12875     A     
 COMPASS            EQ     INPUT1+1    ELSE GET NEXT CARD                                  COMPASS    12876     A     
 COMPASS                                                                                   COMPASS    12877     A     
 COMPASS  *         INPUT FROM MACRO.                                                      COMPASS    12878     A     
 COMPASS                                                                                   COMPASS    12879     A     
 COMPASS   INMAC    SA2    O.MACDEF                                                        COMPASS    12880     A     
 COMPASS            IX1    X2+X1                                                           COMPASS    12881     A     
 COMPASS            RJ     UCARD                                                           COMPASS    12882     A     
 COMPASS            SA1    O.MACDEF                                                        COMPASS    12883     A     
 COMPASS            EQ     IN2         GO UNBIAS NEXT ADDRESS                              COMPASS    12884     A     
 COMPASS                                                                                   COMPASS    12885     A     
 COMPASS  *         INPUT FROM DUPLICATION (DUPTAB).                                       COMPASS    12886     A     
 COMPASS                                                                                   COMPASS    12887     A     
 COMPASS   INDUP    SA2    O.DUPTAB                                                        COMPASS    12888     A     
 COMPASS            IX1    X2+X1                                                           COMPASS    12889     A     
 COMPASS            RJ     UCARD                                                           COMPASS    12890     A     
 COMPASS            SA1    O.DUPTAB                                                        COMPASS    12891     A     
 COMPASS            EQ     IN2         AND GO TO UNBIAS RESULTANT ADDRESS                  COMPASS    12892     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 822    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    12893     A     
 COMPASS  *         IRP EXIT.                                                              COMPASS    12894     A     
 COMPASS                                                                                   COMPASS    12895     A     
 COMPASS   INP5     NE     B7,B1,INP1XX IF NOT IRP                                         COMPASS    12896     A     
 COMPASS            RJ     ITP         ITERATE IN PROTOTYPE                                COMPASS    12897     A     
 COMPASS            EQ     INPUT1+1    READ NEXT CARD                                      COMPASS    12898     A     
 COMPASS                                                                                   COMPASS    12899     A     
 COMPASS  *         NORMAL INPUT.                                                          COMPASS    12900     A     
 COMPASS                                                                                   COMPASS    12901     A     
 COMPASS   IN4      SX2    I                                                               COMPASS    12902     A     
 COMPASS            SA3    AMODE                                                           COMPASS    12903          I
          -CMP24  
 COMPASS            SA0    INBUF                                                           COMPASS    12904          I
          -CMP30  
 COMPASS            SA0    CP.CARD                                                         CMP30       4235     A     
 COMPASS            ZR     X3,INP4     IF NOT AMODE                                        COMPASS    12905          I
          -CMP24  
 COMPASS            RJ     CRC                                                             COMPASS    12906          I
          -CMP24  
 COMPASS            EQ     INP1XX                                                          COMPASS    12907          I
          -CMP24  
 COMPASS   INP4     RJ     CRCARD                                                          COMPASS    12908          I
          -CMP24  
 COMPASS            RJ     RNS         READ NEXT STATEMENT                                 CMP24        154     A     
 COMPASS            SA1    SEQ                                                             CMP30       4236     A     
 COMPASS            SA2    A1+B1                                                           CMP30       4237     A     
 COMPASS            BX6    X1                                                              CMP30       4238     A     
 COMPASS            LX7    X2                                                              CMP30       4239     A     
 COMPASS            SA6    SEQMIC      STORE NEW SEQUENCE MICRO                            CMP30       4240     A     
 COMPASS            SA7    A6+B1                                                           CMP30       4241     A     
 COMPASS                                                                                   COMPASS    12909     A     
 COMPASS  *         EXIT FROM INPUT.                                                       COMPASS    12910     A     
 COMPASS                                                                                   COMPASS    12911     A     
 COMPASS   INP1XX   SX6    B0          CLEAR ERROR FLAG                                    COMPASS    12912     A     
 COMPASS            SA6    EXERR                                                           COMPASS    12913     A     
 COMPASS            SA6    ERFLAGS                                                         COMPASS    12914     A     
 COMPASS            MX7    0                                                               COMPASS    12915     A     
 COMPASS            SB7    LERFLAGS-1                                                      COMPASS    12916     A     
 COMPASS            SA1    PUSHUP                                                          COMPASS    12917     A     
 COMPASS   +        SB7    B7-B1                                                           COMPASS    12918     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    12919     A     
 COMPASS            NZ     B7,*                                                            COMPASS    12920     A     
 COMPASS            SA7    FLAG                                                            COMPASS    12921     A     
 COMPASS            SA6    MACHFLG                                                         CPSA140       12     A     
 COMPASS            SA6    OPTYPE      CLEAR OPTYPE                                        CMP24        155     A     
 COMPASS            EQ     INPUT1      AND EXIT                                            COMPASS    12922     A     
 COMPASS                                                                                   COMPASS    12923          I
          -CPS004 
 COMPASS  *         RECURSION DEPTH EXCEEDED.                                              COMPASS    12924          I
          -CPS004 
 COMPASS                                                                                   COMPASS    12925          I
          -CPS004 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 823    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   INPF     MESSAGE (=C* RECURSION DEPTH EXCEEDED "LIMRECUR".*)                    COMPASS    12926          I
          -CPS004 
 COMPASS            SX6    4                                                               COMPASS    12927          I
          -CPS004 
 COMPASS            SA6    L.STACK                                                         COMPASS    12928          I
          -CPS004 
 COMPASS            EQ     IN3         AND CANCEL ALL STACK ENTRIES                        COMPASS    12929          I
          -CPS004 
 COMPASS   ITE      SPACE  4                                                               COMPASS    12930     A     
 COMPASS  **        ITE - ITERATE ECHO PARAMETERS.                                         COMPASS    12931     A     
 COMPASS  *         ENTRY  (A7) = STACK ADDRESS.                                           COMPASS    12932     A     
 COMPASS  *         EXIT   (X1) = 1 IF END OF ECHO.                                        COMPASS    12933          I
          -CMP64G 
 COMPASS  *         EXIT   (X2) = 1 IF END OF ECHO.                                        CMP64G       203     A     
 COMPASS                                                                                   COMPASS    12934     A     
 COMPASS                                                                                   COMPASS    12935     A     
 COMPASS   ITE      PS                 RETURN EXIT                                         COMPASS    12936     A     
 COMPASS            SA1    A7+B1                                                           COMPASS    12937          I
          -CMP64G 
 COMPASS            SA2    A1+B1       READ 2ND STACK WORD                                 COMPASS    12938          I
          -CMP64G 
 COMPASS            NG     X2,ITE2     IF STOPDUP IN EFFECT                                COMPASS    12939          I
          -CMP64G 
 COMPASS            SX6    X1                                                              COMPASS    12940          I
          -CMP64G 
 COMPASS            SA2    L.MARDIS                                                        COMPASS    12941          I
          -CMP64G 
 COMPASS            IX1    X2-X6                                                           COMPASS    12942          I
          -CMP64G 
 COMPASS            SA2    A7+B1                                                           CMP64G       204     A     
 COMPASS            SA3    A2+B1       READ SECOND STACK WORD                              CMP64G       205     A     
 COMPASS            MI     X3,ITE2     IF STOPDUP IN EFFECT                                CMP64G       206     A     
 COMPASS            SX6    X2                                                              CMP64G       207     A     
 COMPASS            SA3    L.MARDIS                                                        CMP64G       208     A     
 COMPASS            IX2    X3-X6                                                           CMP64G       209     A     
 COMPASS            SA6    ITEA                                                            COMPASS    12943     A     
 COMPASS            ZR     X1,ITE2     IF NO ARGUMENTS                                     COMPASS    12944          I
          -CMP64G 
 COMPASS            ZR     X2,ITE2     IF NO ARGUMENTS                                     CMP64G       210     A     
 COMPASS   ITE1     SA4    ITEA                                                            COMPASS    12945     A     
 COMPASS            SA2    L.MARDIS                                                        COMPASS    12946     A     
 COMPASS            SX6    X4+B1                                                           COMPASS    12947     A     
 COMPASS            SA6    A4                                                              COMPASS    12948     A     
 COMPASS            IX1    X2-X4                                                           COMPASS    12949          I
          -CMP64G 
 COMPASS            ZR     X1,ITE      IF END OF ARGUMENTS                                 COMPASS    12950          I
          -CMP64G 
 COMPASS            IX2    X2-X4                                                           CMP64G       211     A     
 COMPASS            ZR     X2,ITE      IF END OF ARGUMENTS                                 CMP64G       212     A     
 COMPASS            RJ     SIA         SKIP ITERATIVE ARGUMENTS                            COMPASS    12951     A     
 COMPASS            NZ     X6,ITE1     IF NOT END OF ARGUMENT LIST                         COMPASS    12952     A     
 COMPASS   ITE2     SX1    B1                                                              COMPASS    12953          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 824    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS   ITE2     SX2    B1                                                              CMP64G       213     A     
 COMPASS            EQ     ITE         RETURN                                              COMPASS    12954     A     
 COMPASS                                                                                   COMPASS    12955     A     
 COMPASS   ITEA     DATA   0           ARGUMENT INDEX                                      COMPASS    12956     A     
 COMPASS   ITP      SPACE  4                                                               COMPASS    12957     A     
 COMPASS  **        ITP - ITERATE IN PROTOTYPE.                                            COMPASS    12958     A     
 COMPASS  *         ENTRY  (A7) = STACK ADDRESS.                                           COMPASS    12959     A     
 COMPASS  *                (X7) = UPDATED WORD 1 OF STACK ENTRY.                           CMP64G       214     A     
 COMPASS  *                (X1) = FWA OF TEXT TABLE.                                       CMP64G       215     A     
 COMPASS                                                                                   COMPASS    12960     A     
 COMPASS                                                                                   COMPASS    12961     A     
 COMPASS   ITP      PS                 RETURN EXIT                                         COMPASS    12962     A     
 COMPASS            SA4    A7+2        CHECK IRP PARAMETERS                                COMPASS    12963     A     
 COMPASS            ZR     X4,ITP1     IF START OF IRP                                     COMPASS    12964     A     
 COMPASS            RJ     SIA         SKIP ITERATIVE ARGUMENT                             COMPASS    12965     A     
 COMPASS            NZ     X6,ITP      IF END OF ITERATION                                 COMPASS    12966          I
          -CMP64G 
 COMPASS            SA6    A7+2                                                            COMPASS    12967          I
          -CMP64G 
 COMPASS            NZ     X6,ITP      IF NOT END OF ITERATION                             CMP64G       216     A     
 COMPASS            SA6    A7+2        CLEAR IRP SWITCH                                    CMP64G       217     A     
 COMPASS            EQ     ITP         RETURN                                              CMP64G       218     A     
 COMPASS                                                                                   COMPASS    12968     A     
 COMPASS  *         START NEW IRP.                                                         COMPASS    12969     A     
 COMPASS                                                                                   COMPASS    12970     A     
 COMPASS   ITP1     SA1    CARD                                                            COMPASS    12971          I
          -CMP64G 
 COMPASS            SB7    X1-1R                                                           COMPASS    12972          I
          -CMP64G 
 COMPASS            ZR     B7,ITP      IF TERMINATING IRP                                  COMPASS    12973          I
          -CMP64G 
 COMPASS   ITP1     SA3    CARD        PARAMETER NUMBER                                    CMP64G       219     A     
 COMPASS            SA2    A7+B1                                                           COMPASS    12974     A     
 COMPASS            IX2    X1+X2                                                           COMPASS    12975          I
          -CMP64G 
 COMPASS            IX2    X3+X2                                                           CMP64G       220     A     
 COMPASS            SA5    O.MARDIS                                                        CMP64G       221     A     
 COMPASS            SX2    X2-1                                                            COMPASS    12976     A     
 COMPASS            SA1    O.MARDIS                                                        COMPASS    12977          I
          -CMP64G 
 COMPASS            SA3    O.MARGS                                                         CMP64G       222          I
          -CMP165 
 COMPASS            SB5    10                                                              COMPASS    12978          I
          -CMP165 
 COMPASS            SB2    X1                                                              COMPASS    12979          I
          -CMP64G 
 COMPASS            SB2    X5                                                              CMP64G       223     A     
 COMPASS            SA2    B2+X2       READ ARGUMENT POINTER                               COMPASS    12980     A     
 COMPASS            SB7    X3                                                              CMP64G       224          I
          -CMP165 
 COMPASS            SA3    X2+B7       READ ARGUMENT VALUE                                 CMP64G       225          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 825    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP165 
 COMPASS            BX6    X2                                                              COMPASS    12981          I
          -CMP165 
 COMPASS            LX6    18                                                              COMPASS    12982          I
          -CMP165 
 COMPASS            BX2    X2+X6                                                           COMPASS    12983          I
          -CMP165 
 COMPASS            MX6    1           PACK ARGUMENT POINTERS                              COMPASS    12984          I
          -CMP165 
 COMPASS            BX6    X6+X2                                                           COMPASS    12985          I
          -CMP64G 
 COMPASS            MI     X3,ITP2                                                         CMP64G       226          I
          -CMP165 
 COMPASS            ZR     X3,ITP3     IF EMPTY ARGUMENT                                   CMP64G       227          I
          -CMP165 
 COMPASS   ITP2     BX6    X6+X2                                                           CMP64G       228          I
          -CMP165 
 COMPASS            PX6    X6,B5                                                           COMPASS    12986          I
          -CMP165 
 COMPASS            UX6,B7 X2          SETUP ITERATIVE DESCRIPTOR WORD...                  CMP165        37     A     
 COMPASS            SB7    -B7                                                             CMP165        38     A     
 COMPASS            PX6    B7          - CHARACTER COUNT                                   CMP165        39     A     
 COMPASS            LX6    59-41                                                           CMP165        40     A     
 COMPASS            PX6    B0          CHARACTER OFFSET                                    CMP165        41     A     
 COMPASS            LX6    41-29                                                           CMP165        42     A     
 COMPASS            PX6    B0          WORD OFFSET                                         CMP165        43     A     
 COMPASS            LX6    29-59                                                           CMP165        44     A     
 COMPASS            ZR     B7,ITP3     IF EMPTY ARGUMENT                                   CMP165        45     A     
 COMPASS            SA6    A2                                                              COMPASS    12987     A     
 COMPASS            SA1    A7          PACK STACK WORD                                     COMPASS    12988          I
          -CMP64G 
 COMPASS            SX1    X7          PACK STACK WORD                                     CMP64G       229     A     
 COMPASS            SX6    A2-B2                                                           COMPASS    12989     A     
 COMPASS            SX1    X1                                                              CMP24        156          I
          -CMP64G 
 COMPASS            LX1    18                                                              COMPASS    12990     A     
 COMPASS            BX6    X6+X1                                                           COMPASS    12991     A     
 COMPASS            SA6    A4                                                              COMPASS    12992     A     
 COMPASS            EQ     ITP         RETURN                                              CMP64G       230     A     
 COMPASS                                                                                   CMP64G       231     A     
 COMPASS  *         EMPTY ARGUMENT, SKIP TO SECOND IRP.                                    CMP64G       232     A     
 COMPASS                                                                                   CMP64G       233     A     
 COMPASS   ITP3     IX1    X7+X1       NEXT CARD ADDRESS                                   CMP64G       234     A     
 COMPASS            SA1    X1                                                              CMP64G       235     A     
 COMPASS            MX0    -12                                                             CMP64G       236     A     
 COMPASS            SX3    1LU+0001B   LOOK FOR U-CARD WITH COLON IN COLUMN 1              CMP64G       237     A     
 COMPASS            SX2    B1                                                              CMP64G       238     A     
 COMPASS            LX3    42                                                              CMP64G       239     A     
 COMPASS   ITP4     BX6    -X0*X1                                                          CMP64G       240     A     
 COMPASS            IX7    X7+X2                                                           CMP64G       241     A     
 COMPASS            NO                                                                     CMP64G       242     A     
 COMPASS            SA1    A1+B1                                                           CMP64G       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/28. 19.11.32.      PAGE 826    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X6,ITP4     IF NOT END OF STATEMENT                             CMP64G       244     A     
 COMPASS            BX6    X1-X3                                                           CMP64G       245     A     
 COMPASS            NZ     X6,ITP4     IF NOT SECOND IRP                                   CMP64G       246     A     
 COMPASS            IX7    X7+X2                                                           CMP64G       247     A     
 COMPASS            SA7    A7          UPDATE CARD POINTER IN STACK                        CMP64G       248     A     
 COMPASS            SA6    A7+2        CLEAR IRP SWITCH                                    CMP64G       249     A     
 COMPASS            EQ     ITP         RETURN                                              COMPASS    12993     A     
 COMPASS   MACALL   SPACE  4                                                               COMPASS    12994     A     
 COMPASS  **        MACALL - PROCESS MACRO/OPDEF CALL (NOT RJ SUBROUTINE).                 COMPASS    12995     A     
 COMPASS  *         ENTRY  (MACRO) (B7) " 0.                                               COMPASS    12996     A     
 COMPASS  *                (OPDEF) (B7) = 0.                                               COMPASS    12997     A     
 COMPASS  *                        (X1) = OPERATION SYNTAX SCAN.                           COMPASS    12998     A     
 COMPASS  *                                                                                COMPASS    12999     A     
 COMPASS  *         SCRATCH CELL USAGE.                                                    COMPASS    13000     A     
 COMPASS  *                                                                                COMPASS    13001     A     
 COMPASS  *                P1TEMP            LOCATION ARGUMENT FLAG.                       COMPASS    13002     A     
 COMPASS  *                P1TEMPA           TOTAL PARAMETER COUNT.                        COMPASS    13003     A     
 COMPASS  *                P1TEMPB           LOCAL PARAMETER COUNT.                        COMPASS    13004     A     
 COMPASS  *                P1TEMPC           MACRO FLAG (B7 ON ENTRY).                     COMPASS    13005     A     
 COMPASS  *                P1TEMPD           SYNTAX (X1 ON ENTRY).                         COMPASS    13006     A     
 COMPASS  *                P1TEMPE           MACROE FLAG.                                  COMPASS    13007          I
          -CMP029 
 COMPASS                                                                                   COMPASS    13008     A     
 COMPASS                                                                                   COMPASS    13009     A     
 COMPASS   MACALL   SX7    B7          ENTRY                                               COMPASS    13010     A     
 COMPASS            SA5    OPTYPE                                                          COMPASS    13011     A     
 COMPASS            MX0    54                                                              COMPASS    13012          I
          -CPS028 
 COMPASS            BX6    X1                                                              COMPASS    13013     A     
 COMPASS            SX2    B1                                                              COMPASS    13014          I
          -CPS028 
 COMPASS            SA6    P1TEMPD     SET UP INFORMATION CELLS                            COMPASS    13015          I
          -CPS028 
 COMPASS            SA7    A6-B1                                                           COMPASS    13016          I
          -CPS028 
 COMPASS            SA7    P1TEMPC     SAVE MACRO/OPDEF FLAG                      S028 553 CPS028       402     A     
 COMPASS            SA6    A7+B1       SAVE SYNTAX                                S028 554 CPS028       403     A     
 COMPASS            LX5    59-37                                                  S028 555 CPS028       404     A     
 COMPASS            PL     X5,MCL0     IF TEXT NOT IN LCM                         S028 556 CPS028       405     A     
 COMPASS            AX5    39-60+59-37                                            S028 557 CPS028       406     A     
 COMPASS            MANAGE MACDEF,X5   MAKE ROOM IN MACDEF TABLE                  S028 558 CPS028       407     A     
 COMPASS            SA5    OPTYPE                                                 S028 559 CPS028       408     A     
 COMPASS            IX2    X2+X3                                                  S028 560 CPS028       409     A     
 COMPASS            MX0    -18                                                    S028 561 CPS028       410     A     
 COMPASS            BX1    -X0*X5      LCM ADDRESS                                S028 562 CPS028       411     A     
 COMPASS            BX6    X0*X5                                                  S028 563 CPS028       412     A     
 COMPASS            LX5    -39                                                    S028 564 CPS028       413     A     
 COMPASS            SX4    X5          WORD COUNT                                 S028 565 CPS028       414     A     
 COMPASS            SX7    1RT                                                    S028 566 CPS028       415     A     
 COMPASS            IX0    X3-X4                                                  S028 567 CPS028       416     A     
 COMPASS            LX7    42                                                     S028 568 CPS028       417     A     
 COMPASS            BX6    X6+X0       INSERT MACDEF INDEX INTO OPTYPE            S028 569 CPS028       418     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 827    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX7    X7+X4                                                  S028 570 CPS028       419     A     
 COMPASS            SA6    A5                                                     S028 571 CPS028       420     A     
 COMPASS            LX7    12          ADD T-CARD WITH WORD COUNT IN BITS 29-12   S028 572 CPS028       421     A     
 COMPASS            SA7    X2-1                                                   S028 573 CPS028       422     A     
 COMPASS            SX3    X5-1        WORD COUNT - 1                             S028 574 CPS028       423     A     
 COMPASS            IX2    X2-X4                                                  S028 575 CPS028       424     A     
 COMPASS            RJ     RLC         MOVE TEXT FROM LCM TO MACDEF               S028 576 CPS028       425     A     
 COMPASS   MCL0     SA5    OPTYPE                                                 S028 577 CPS028       426     A     
 COMPASS            SX2    B1                                                     S028 578 CPS028       427     A     
 COMPASS            MX0    -6                                                     S028 579 CPS028       428     A     
 COMPASS            SX1    X5                                                              COMPASS    13017     A     
 COMPASS            AX5    18                                                              COMPASS    13018     A     
 COMPASS            BX6    X2*X5                                                           COMPASS    13019     A     
 COMPASS            AX5    1                                                               COMPASS    13020     A     
 COMPASS            BX7    -X0*X5                                                          COMPASS    13021     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS    13022     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    13023     A     
 COMPASS            AX5    6                                                               COMPASS    13024     A     
 COMPASS            BX6    -X0*X5                                                          COMPASS    13025     A     
 COMPASS            LX5    -7                                                              COMPASS    13026     A     
 COMPASS            SA6    A7+B1                                                           CMP029        93     A     
 COMPASS            PL     X5,MCL01    IF NOT MACROE                                       COMPASS    13027     A     
 COMPASS            IX1    X1+X7                                                           COMPASS    13028          I
          -CMP029 
 COMPASS            IX1    X1-X6                                                           COMPASS    13029          I
          -CMP029 
 COMPASS            SA3    P1TEMP                                                          COMPASS    13030          I
          -CMP029 
 COMPASS            IX1    X1-X3                                                           COMPASS    13031          I
          -CMP029 
 COMPASS            IX4    X7-X6       MOVE KEYWORDS TO RELVEC+64                          CMP029        94     A     
 COMPASS            SA3    P1TEMP                                                          CMP029        95     A     
 COMPASS            SA2    O.MACDEF                                                        CMP029        96     A     
 COMPASS            SB2    X1                                                              CMP029        97     A     
 COMPASS            IX1    X4-X3                                                           CMP029        98     A     
 COMPASS            SX2    X2+B2                                                           CMP029        99     A     
 COMPASS            SB2    B2+X1                                                           CMP029       100     A     
 COMPASS            SX3    RELVEC+64                                                       CMP029       101     A     
 COMPASS            RJ     MOVE                                                            CMP029       102     A     
 COMPASS            SX1    B2                                                              CMP029       103     A     
 COMPASS            SX2    B1                                                              CMP029       104          I
          -CPS004 
 COMPASS   MCL01    MX3    0                                                               COMPASS    13032          I
          -CPS004 
 COMPASS   MCL01    SA2    L.MARGS     SAVE PARAMETERS FOR LATER PUSHDOWN CALL    S004  40 CPS004        23     A     
 COMPASS            SA3    L.MARDIS                                               S004  41 CPS004        24     A     
 COMPASS            SA4    IOP                                                             COMPASS    13033     A     
 COMPASS            MX5    0                                                               COMPASS    13034          I
          -CMP029 
 COMPASS            SA6    A7+B1                                                           COMPASS    13035          I
          -CMP029 
 COMPASS            BX5    X5-X5                                                           CMP029       105          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 828    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS004 
 COMPASS            RJ     PUSHDOWN    ENTER STACK                                         COMPASS    13036          I
          -CPS004 
 COMPASS            BX6    X1                                                     S004  43 CPS004        25     A     
 COMPASS            LX7    X2                                                     S004  44 CPS004        26     A     
 COMPASS            SA6    MCLA                                                   S004  45 CPS004        27     A     
 COMPASS            SA7    A6+B1                                                  S004  46 CPS004        28     A     
 COMPASS            BX6    X3                                                     S004  47 CPS004        29     A     
 COMPASS            LX7    X4                                                     S004  48 CPS004        30     A     
 COMPASS            SA6    A7+B1                                                  S004  49 CPS004        31     A     
 COMPASS            SA7    A6+B1                                                  S004  50 CPS004        32     A     
 COMPASS                                                                                   COMPASS    13037     A     
 COMPASS  *         SCAN OFF PARAMETERS.                                                   COMPASS    13038     A     
 COMPASS                                                                                   COMPASS    13039     A     
 COMPASS            SA1    P1TEMP      CHECK ON LOCATION TYPE                              COMPASS    13040     A     
 COMPASS            ZR     X1,MCL10                                                        COMPASS    13041     A     
 COMPASS            SA1    L.MARGS     STORE DESCRIPTOR WORD                               COMPASS    13042          I
          -CMP165 
 COMPASS            ADDWORD MARDIS                                                         COMPASS    13043          I
          -CMP165 
 COMPASS            MANAGE MARGS,2     GET ROOM FOR LOCATION SYMBOL                        COMPASS    13044          I
          -CMP165 
 COMPASS            SB7    X3-2                                                            COMPASS    13045          I
          -CMP165 
 COMPASS            MANAGE MARGS,1     GET ROOM FOR LOCATION SYMBOL                        CMP165        46     A     
 COMPASS            SB7    X3-1                                                            CMP165        47     A     
 COMPASS            SA3    LOCSYM                                                          COMPASS    13046     A     
 COMPASS            MX0    6                                                               COMPASS    13047     A     
 COMPASS            SB6    B0                                                              CMP165        48     A     
 COMPASS            MI     X3,MCL1A    IF LOCATION SYMBOL NON-EMPTY                        CMP165        49     A     
 COMPASS            ZR     X3,MCL1                                                         COMPASS    13048     A     
 COMPASS   MCL1A    BX4    X3*X0                                                           COMPASS    13049     A     
 COMPASS            LX3    6                                                               COMPASS    13050     A     
 COMPASS            SB6    B6-1        COUNT CHARACTERS                                    CMP165        50     A     
 COMPASS            ZR     X4,MCL1A                                                        COMPASS    13051     A     
 COMPASS            LX3    54                                                              COMPASS    13052     A     
 COMPASS            SB6    11+B6                                                           CMP165        51     A     
 COMPASS   MCL1     BX6    X3                                                              COMPASS    13053     A     
 COMPASS            MX7    0                                                               COMPASS    13054          I
          -CMP165 
 COMPASS            SX1    B7          SETUP ARGUMENT DESCRIPTOR WORD                      CMP165        52     A     
 COMPASS            SA6    X2+B7                                                           COMPASS    13055     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    13056          I
          -CMP165 
 COMPASS            PX1    B6                                                              CMP165        53     A     
 COMPASS            ADDWORD MARDIS                                                         CMP165        54     A     
 COMPASS            SA1    P1TEMPA     REDUCE PARAMETER COUNT                              COMPASS    13057     A     
 COMPASS            SX6    X1-1                                                            COMPASS    13058     A     
 COMPASS            SA6    A1                                                              COMPASS    13059     A     
 COMPASS            EQ     MCL15                                                           COMPASS    13060     A     
 COMPASS   MCL10    SX1    B0          PROCESS LOCATION FIELD                              COMPASS    13061     A     
 COMPASS            SA2    LOCSYM                                                          COMPASS    13062     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 829    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   +        ZR     X2,*+1      AVOID PRLOC IF NO LOCSYM                            COMPASS    13063     A     
 COMPASS            RJ     YPRLOC                                                          COMPASS    13064     A     
 COMPASS            SA2    P1TEMPC     MACRO FLAG                                          COMPASS    13065     A     
 COMPASS            ZR     X2,MCLO     IF OPDEF EXPANSION REQUIRED                         COMPASS    13066     A     
 COMPASS   MCL15    SA1    OPTYPE                                                          COMPASS    13067     A     
 COMPASS            LX1    -32                                                             COMPASS    13068     A     
 COMPASS            NG     X1,MCLE     IF MACROE EXPANSION                                 COMPASS    13069     A     
 COMPASS   MCL20    SA1    P1TEMPA     GET PARAMETER COUNT                                 COMPASS    13070     A     
 COMPASS            ZR     X1,MCL60    JUMP IF DONE                                        COMPASS    13071     A     
 COMPASS            SA1    L.MARGS     STORE DESCRIPTOR WORD                               COMPASS    13072          I
          -CMP165 
 COMPASS            ADDWORD MARDIS                                                         COMPASS    13073          I
          -CMP165 
 COMPASS            SA1    P1TEMPA                                                         COMPASS    13074          I
          -CMP165 
 COMPASS            SA2    A1+B1                                                           COMPASS    13075     A     
 COMPASS            IX0    X2-X1                                                           COMPASS    13076     A     
 COMPASS            NG     X0,MCL30    JUMP IF THIS IS A NON-LOCAL PARAMETER               COMPASS    13077     A     
 COMPASS            SA1    INVENT      AUGMENT INVENTION NUMBER                            COMPASS    13078     A     
 COMPASS            SB7    B0                                                              COMPASS    13079     A     
 COMPASS            MX0    54                                                              COMPASS    13080     A     
 COMPASS            SX3    B1                                                              COMPASS    13081     A     
 COMPASS            IX1    X3+X1                                                           COMPASS    13082     A     
 COMPASS   MCL21    AX4    X1,B7                                                           COMPASS    13083     A     
 COMPASS            BX3    -X0*X4                                                          COMPASS    13084     A     
 COMPASS            SX4    1R9+1                                                           COMPASS    13085     A     
 COMPASS            IX3    X4-X3                                                           COMPASS    13086     A     
 COMPASS            NZ     X3,MCL22                                                        COMPASS    13087     A     
 COMPASS            SX3    66B         PROPOGATE OVERFLOW                                  COMPASS    13088     A     
 COMPASS            LX4    X3,B7                                                           COMPASS    13089     A     
 COMPASS            IX1    X4+X1                                                           COMPASS    13090     A     
 COMPASS            SB7    B7+6                                                            COMPASS    13091     A     
 COMPASS            EQ     MCL21                                                           COMPASS    13092     A     
 COMPASS   MCL22    BX6    X1                                                              COMPASS    13093     A     
 COMPASS            SA6    A1                                                              COMPASS    13094     A     
 COMPASS            SA1    INVENT      STORE INVENTED SYMBOL                               COMPASS    13095          I
          -CMP165 
 COMPASS            LX1    12                                                              COMPASS    13096     A     
 COMPASS            ADDWORD MARGS                                                          COMPASS    13097     A     
 COMPASS   MCL23    SA1    P1TEMPA     DOWN REMAINING PARAMETER COUNT                      COMPASS    13098          I
          -CMP165 
 COMPASS            SA1    L.MARGS     SETUP ARGUMENT DESCRIPTOR WORD                      CMP165        55     A     
 COMPASS            SB7    8           FOR LOCAL SYMBOL                                    CMP165        56     A     
 COMPASS            SX2    X1-1                                                            CMP165        57     A     
 COMPASS            PX1    X2,B7                                                           CMP165        58     A     
 COMPASS   MCL23    ADDWORD MARDIS     STORE DESCRIPTOR WORD                               CMP165        59     A     
 COMPASS            SA1    P1TEMPA                                                         CMP165        60     A     
 COMPASS            SX6    X1-1                                                            COMPASS    13099     A     
 COMPASS            SA6    A1                                                              COMPASS    13100     A     
 COMPASS            EQ     MCL20                                                           COMPASS    13101     A     
 COMPASS   MCL30    RJ     PMA         PROCESS MACRO ARGUMENTS                             COMPASS    13102     A     
 COMPASS            EQ     MCL23                                                           COMPASS    13103     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 830    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   MCLE     SPACE  4                                                               COMPASS    13104     A     
 COMPASS  **        MCLE - MACROE EXPANSION.                                               COMPASS    13105     A     
 COMPASS  *         ENTRY  (P1TEMPA) = TOTAL PARAMETER COUNT.                              COMPASS    13106     A     
 COMPASS  *                (P1TEMPB) = LOCAL PARAMETER COUNT.                              COMPASS    13107     A     
 COMPASS  *         USES   (P1TEMPD) = FORMAL PARAMETER COUNT.                             COMPASS    13108     A     
 COMPASS  *                (P1TEMPE) = CURRENT KEYWORD INDEX.                              CMP165        61     A     
 COMPASS                                                                                   COMPASS    13109     A     
 COMPASS                                                                                   COMPASS    13110     A     
 COMPASS   MCLE     SA1    P1TEMPA     MOVE ARGUMENT LIST TO MARDIS                        COMPASS    13111          I
          -CMP029 
 COMPASS   MCLE     SA1    P1TEMPA     PRESET ALL KEYWORD ARGUMENTS TO NULLS               CMP029       106     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    13112     A     
 COMPASS            IX6    X1-X2                                                           COMPASS    13113     A     
 COMPASS            SA6    P1TEMPD                                                         COMPASS    13114     A     
 COMPASS            MANAGE MARDIS,X6                                                       COMPASS    13115     A     
 COMPASS            SA1    P1TEMPD                                                         COMPASS    13116     A     
 COMPASS            IX3    X2+X3                                                           COMPASS    13117     A     
 COMPASS            SB7    X3                                                              COMPASS    13118          I
          -CMP029 
 COMPASS            SA2    O.MACDEF                                                        COMPASS    13119          I
          -CMP029 
 COMPASS            SA4    OPTYPE                                                          COMPASS    13120          I
          -CMP029 
 COMPASS            IX4    X4+X2                                                           COMPASS    13121          I
          -CMP029 
 COMPASS            IX1    X3-X1                                                           COMPASS    13122          I
          -CMP029 
 COMPASS            SB6    X1                                                              COMPASS    13123          I
          -CMP029 
 COMPASS            SA1    X4                                                              COMPASS    13124          I
          -CMP029 
 COMPASS            SA5    L.MARGS                                                         COMPASS    13125          I
          -CMP029 
 COMPASS            EQ     B6,B7,MCLE2 IF END OF PARAMETERS                                COMPASS    13126          I
          -CMP029 
 COMPASS   MCLE1    LX1    18                                                              COMPASS    13127          I
          -CMP029 
 COMPASS            IX6    X1+X5                                                           COMPASS    13128          I
          -CMP029 
 COMPASS            SA1    A1+B1                                                           COMPASS    13129          I
          -CMP029 
 COMPASS            SA6    B6                                                              COMPASS    13130          I
          -CMP029 
 COMPASS            SB6    B6+B1                                                           COMPASS    13131          I
          -CMP029 
 COMPASS            NE     B6,B7,MCLE1 LOOP                                                COMPASS    13132          I
          -CMP029 
 COMPASS   MCLE2    MX1    0           CREATE NULL ARGUMENT                                COMPASS    13133          I
          -CMP029 
 COMPASS            IX2    X3-X1                                                           CMP029       107     A     
 COMPASS            SA1    L.MARGS                                                         CMP029       108          I
          -CMP165 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 831    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    B0                                                              CMP165        62     A     
 COMPASS            PX1    B0                                                              CMP165        63     A     
 COMPASS            RJ     PRESET                                                          CMP029       109     A     
 COMPASS            MX1    0           CREATE NULL ARGUMENT                                CMP029       110          I
          -CMP165 
 COMPASS            ADDWORD MARGS                                                          COMPASS    13134          I
          -CMP165 
 COMPASS                                                                                   COMPASS    13135     A     
 COMPASS  *         ISOLATE FORMAL PARAMETER.                                              COMPASS    13136     A     
 COMPASS                                                                                   COMPASS    13137     A     
 COMPASS   MCLE3    MX6    0           ISOLATE FORMAL PARAMETER                            COMPASS    13138     A     
 COMPASS            SA6    P1TEMPA                                                         COMPASS    13139     A     
 COMPASS            RJ     PMACF                                                           COMPASS    13140          I
          -CMP029 
 COMPASS            NZ     X6,MCLE4    IF NAME FOUND                                       COMPASS    13141          I
          -CMP029 
 COMPASS            SA1    CHAR                                                            COMPASS    13142          I
          -CMP029 
 COMPASS            SB7    X1-1R                                                           COMPASS    13143          I
          -CMP029 
 COMPASS            NZ     B7,MCLE3    LOOP FOR GOOD PARAMETER                             COMPASS    13144          I
          -CMP029 
 COMPASS            EQ     MCLE9       ERROR                                               COMPASS    13145          I
          -CMP029 
 COMPASS   MCLE4    SA1    P1TEMPD     CHECK PARAMETER                                     COMPASS    13146          I
          -CMP029 
 COMPASS            SA3    O.MARDIS                                                        COMPASS    13147          I
          -CMP029 
 COMPASS            SA2    L.MARDIS                                                        COMPASS    13148          I
          -CMP029 
 COMPASS            IX3    X3+X2                                                           COMPASS    13149          I
          -CMP029 
 COMPASS            SB7    X3                                                              COMPASS    13150          I
          -CMP029 
 COMPASS            IX1    X3-X1                                                           COMPASS    13151          I
          -CMP029 
 COMPASS            SB6    X1                                                              COMPASS    13152          I
          -CMP029 
 COMPASS            LX6    18                                                              COMPASS    13153          I
          -CMP029 
 COMPASS            MX0    42                                                              COMPASS    13154          I
          -CMP029 
 COMPASS            SA1    B6                                                              COMPASS    13155          I
          -CMP029 
 COMPASS   MCLE5    EQ     B6,B7,MCLE9 IF PARAMETER NOT FOUND                              COMPASS    13156          I
          -CMP029 
 COMPASS            BX2    X0*X1                                                           COMPASS    13157          I
          -CMP029 
 COMPASS            IX5    X2-X6                                                           COMPASS    13158          I
          -CMP029 
 COMPASS            SB6    B6+B1                                                           COMPASS    13159          I
          -CMP029 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 832    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A1+B1                                                           COMPASS    13160          I
          -CMP029 
 COMPASS            NZ     X5,MCLE5    LOOP                                                COMPASS    13161          I
          -CMP029 
 COMPASS            SA2    L.MARGS     STORE INDEX                                         COMPASS    13162          I
          -CMP029 
 COMPASS            BX6    X2                                                              COMPASS    13163          I
          -CMP029 
 COMPASS            SA6    B6-B1                                                           COMPASS    13164          I
          -CMP029 
 COMPASS   MCLE4    RJ     PMACF                                                           CMP029       111     A     
 COMPASS            ZR     X6,MCLE9A   IF EMPTY OR INVALID OR DUPLICATE                    CMP029       112     A     
 COMPASS            SA1    COLUMN                                                          CPS254         4     A     
 COMPASS            SA2    X1+CARD-1-1                                                     CPS254         5     A     
 COMPASS            SX1    X2-1R=                                                          CPS254         6     A     
 COMPASS            NZ     X1,MCLE9    IF SEPARATOR NOT =                                  CPS254         7     A     
 COMPASS            SA2    P1TEMPD     LOOKUP IN KEYWORD LIST                              CMP029       113     A     
 COMPASS            SA1    RELVEC+64                                                       CMP029       114     A     
 COMPASS            SB7    X2+B1                                                           CMP029       115     A     
 COMPASS            SB7    -B7                                                             CMP029       116          I
          -CMP165 
 COMPASS            SX7    -B7                                                             CMP165        64     A     
 COMPASS   MCLE5    BX3    X1-X6                                                           CMP029       117     A     
 COMPASS            SB7    B7+B1                                                           CMP029       118          I
          -CMP165 
 COMPASS            NO                                                                     CMP029       119          I
          -CMP165 
 COMPASS            SX7    X7+1                                                            CMP165        65     A     
 COMPASS            SA1    A1+B1                                                           CMP029       120     A     
 COMPASS            PL     B7,MCLE9    IF PARAMETER NOT FOUND                              CMP029       121          I
          -CMP165 
 COMPASS            PL     X7,MCLE9    IF KEYWORD NOT FOUND                                CMP165        66     A     
 COMPASS            NZ     X3,MCLE5    LOOP                                                CMP029       122     A     
 COMPASS            SA7    P1TEMPE                                                         CMP165        67     A     
 COMPASS            RJ     PMA         PACK MACRO ARGUMENT                                 CMP165        68     A     
 COMPASS            BX6    X1                                                              CMP165        69     A     
 COMPASS            SA1    O.MARDIS                                                        CMP029       123     A     
 COMPASS            SA2    L.MARDIS                                                        CMP029       124     A     
 COMPASS            SA3    L.MARGS                                                         CMP029       125          I
          -CMP165 
 COMPASS            SA3    P1TEMPE                                                         CMP165        70     A     
 COMPASS            IX4    X1+X2                                                           CMP029       126     A     
 COMPASS            BX6    X3                                                              CMP029       127          I
          -CMP165 
 COMPASS            SB7    X3                                                              CMP165        71     A     
 COMPASS            SA6    X4+B7       STORE POINTER TO VALUE                              CMP029       128     A     
 COMPASS            RJ     PMA         PACK MACRO ARGUMENT                                 COMPASS    13165          I
          -CMP165 
 COMPASS            SA1    CHAR        CHECK FOR END OF FIELD                              COMPASS    13166     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    13167     A     
 COMPASS            NZ     B7,MCLE3    LOOP TO END OF CALL                                 COMPASS    13168          I
          -CMP029 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 833    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   MCLE6    SA1    P1TEMPD     CLEAR KEY FIELDS                                    COMPASS    13169          I
          -CMP029 
 COMPASS            SA2    O.MARDIS                                                        COMPASS    13170          I
          -CMP029 
 COMPASS            SA3    L.MARDIS                                                        COMPASS    13171          I
          -CMP029 
 COMPASS            MX0    -18                                                             COMPASS    13172          I
          -CMP029 
 COMPASS            IX2    X2+X3                                                           COMPASS    13173          I
          -CMP029 
 COMPASS            SB7    X2                                                              COMPASS    13174          I
          -CMP029 
 COMPASS            IX1    X2-X1                                                           COMPASS    13175          I
          -CMP029 
 COMPASS            SB6    X1                                                              COMPASS    13176          I
          -CMP029 
 COMPASS            EQ     B6,B7,MCLE8 IF END OF PARAMETERS                                COMPASS    13177          I
          -CMP029 
 COMPASS   MCLE7    SA1    B6                                                              COMPASS    13178          I
          -CMP029 
 COMPASS            BX6    -X0*X1                                                          COMPASS    13179          I
          -CMP029 
 COMPASS            SB6    B6+B1                                                           COMPASS    13180          I
          -CMP029 
 COMPASS            SA6    A1                                                              COMPASS    13181          I
          -CMP029 
 COMPASS            NE     B6,B7,MCLE7 LOOP                                                COMPASS    13182          I
          -CMP029 
 COMPASS            NZ     B7,MCLE4    LOOP TO END OF CALL                                 CMP029       129     A     
 COMPASS   MCLE8    SA1    P1TEMPB     SET COUNT TO LOCAL PARAMETERS                       COMPASS    13183     A     
 COMPASS            BX6    X1                                                              COMPASS    13184     A     
 COMPASS            SA6    A1-B1                                                           COMPASS    13185     A     
 COMPASS            EQ     MCL20       EXIT                                                COMPASS    13186     A     
 COMPASS                                                                                   COMPASS    13187     A     
 COMPASS  *         ERROR IN EXPANSION.                                                    COMPASS    13188          I
          -CMP029 
 COMPASS  *         BAD FORMAL PARAMETER NAME.                                             CMP029       130     A     
 COMPASS                                                                                   COMPASS    13189     A     
 COMPASS   MCLE9    SX6    B1                                                              COMPASS    13190          I
          -CMP029 
 COMPASS            SA6    EFLG                                                            COMPASS    13191          I
          -CMP029 
 COMPASS            SA6    W4ERR                                                           COMPASS    13192          I
          -CMP029 
 COMPASS            EQ     MCLE6                                                           COMPASS    13193          I
          -CMP029 
 COMPASS   MCLE9    SX6    B1          SET *4* ERROR                                       CMP029       131     A     
 COMPASS            SA6    W4ERR                                                           CMP029       132     A     
 COMPASS            SA6    EFLG                                                            CMP029       133     A     
 COMPASS   MCLE9A   RJ     PMACE       SKIP VALUE                                          CMP029       134     A     
 COMPASS            NZ     X7,MCLE4    IF NOT END OF CARD                                  CMP029       135     A     
 COMPASS            EQ     MCLE8                                                           CMP029       136     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 834    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   MCLO    SPACE  4                                                                COMPASS    13194     A     
 COMPASS  **        MCLO - OPDEF EXPANSION.                                                COMPASS    13195     A     
 COMPASS  *                                                                                COMPASS    13196     A     
 COMPASS  *         ADDITIONAL TEMPORARY STORAGE USED BY OPDEF EXPANSIONS.                 COMPASS    13197     A     
 COMPASS  *                                                                                COMPASS    13198     A     
 COMPASS  *                OPADS             WORD ACCUMULATION FOR ADDRESS.                COMPASS    13199          I
          -CMP165 
 COMPASS  *                OPADS+1           WORD INDEX FOR ABOVE.                         COMPASS    13200          I
          -CMP165 
 COMPASS  *                OPADS+2           BYTE INDEX FOR ABOVE.                         COMPASS    13201          I
          -CMP165 
 COMPASS  *                OPADS+3           COLUMN RESET WITH OPERATOR.                   COMPASS    13202          I
          -CMP165 
 COMPASS  *                OPADS+4           COLUMN RESET WITHOUT OPERATOR.                COMPASS    13203          I
          -CMP165 
 COMPASS  *                OPADS+1     WORD INDEX FOR ADDRESS ACCUMULATION.                CMP165        72     A     
 COMPASS  *                OPADS+2     BIT POSITION AND CHAR COUNT FOR ADDRESS.            CMP165        73     A     
 COMPASS  *                OPADS+3     COLUMN RESET WITH OPERATOR.                         CMP165        74     A     
 COMPASS  *                OPADS+4     COLUMN RESET WITHOUT OPERATOR.                      CMP165        75     A     
 COMPASS                                                                                   COMPASS    13204     A     
 COMPASS                                                                                   COMPASS    13205     A     
 COMPASS   MCLO     SA1    COL         RESET TO OP-CODE REGISTER                           COMPASS    13206     A     
 COMPASS            SA2    P1TEMPD     AND PREPARE SYNTAX WORD                             CMP9          28     A     
 COMPASS            SX6    X1+B1                                                           COMPASS    13207     A     
 COMPASS            BX7    X2                                                              CMP9          29     A     
 COMPASS            SA6    COLUMN                                                          COMPASS    13208     A     
 COMPASS            LX7    24                                                              CMP9          30     A     
 COMPASS            SX6    B0          CLEAR VARIABLE FIELD FLAG                           CMP9          31     A     
 COMPASS            SA7    A2                                                              CMP9          32     A     
 COMPASS            SA6    MCLOA                                                           CMP9          33     A     
 COMPASS            RJ     GETCH                                                           COMPASS    13209     A     
 COMPASS            SB7    X1-2                                                            COMPASS    13210     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS    13211     A     
 COMPASS            ZR     B6,MCLO1    IF X                                                COMPASS    13212     A     
 COMPASS            GE     B7,B1,MCLO2 IF NOT A REGISTER                                   COMPASS    13213          I
          -CPS216 
 COMPASS            LT     B7,B1,MCLO1 IF *A* OR *B*                                       CPS216         6     A     
 COMPASS            RJ     GETCH                                                           CPS216         7     A     
 COMPASS            EQ     MCLO2                                                           CPS216         8     A     
 COMPASS                                                                                   CPS216         9     A     
 COMPASS   MCLO1    RJ     MCLOR       PACK REGISTER                                       COMPASS    13214     A     
 COMPASS   MCLO2    SA1    COL+1       GO BACK TO ADDRESS FIELD                            COMPASS    13215          I
          -CMP9   
 COMPASS            BX6    X1                                                              COMPASS    13216          I
          -CMP9   
 COMPASS            SA6    COLUMN                                                          COMPASS    13217          I
          -CMP9   
 COMPASS            SA1    P1TEMPD     PREPARE SYNTAX WORD                                 COMPASS    13218          I
          -CMP9   
 COMPASS            BX6    X1                                                              COMPASS    13219          I
          -CMP9   
 COMPASS            LX6    24                                                              COMPASS    13220          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 835    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP9   
 COMPASS            SA6    A1                                                              COMPASS    13221          I
          -CMP9   
 COMPASS   MCLO2    SB7    X1-1R,                                                          CMP9          34     A     
 COMPASS            ZR     B7,MCLO2A                                                       CMP9          35     A     
 COMPASS                                                                                   CMP9          36     A     
 COMPASS  *         ENTRY ON NEW FIELD.                                                    CMP9          37     A     
 COMPASS                                                                                   CMP9          38     A     
 COMPASS            SA1    MCLOA                                                           CMP9          39     A     
 COMPASS            SA2    COL+1                                                           CMP9          40     A     
 COMPASS            NZ     X1,MCLO9    IF END OF VARIABLE FIELD                            CMP9          41     A     
 COMPASS            BX6    X2                                                              CMP9          42     A     
 COMPASS            SA6    A1          END OF OPCODE FIELD, RESET SCAN                     CMP9          43     A     
 COMPASS            SA6    COLUMN      TO BEGINNING OF VARIABLE FIELD                      CMP9          44     A     
 COMPASS                                                                                   COMPASS    13222     A     
 COMPASS  *         ENTRY ON NEW SUBFIELD.                                                 COMPASS    13223     A     
 COMPASS                                                                                   COMPASS    13224     A     
 COMPASS   MCLO2A   SX6    10          PREPARE COUNTERS FOR ADDRESSES                      COMPASS    13225          I
          -CMP165 
 COMPASS            SA6    OPADS+2                                                         COMPASS    13226          I
          -CMP165 
 COMPASS            MX7    0                                                               COMPASS    13227          I
          -CMP165 
 COMPASS            SA7    A6-B1                                                           COMPASS    13228          I
          -CMP165 
 COMPASS            SA7    A7-B1                                                           COMPASS    13229          I
          -CMP165 
 COMPASS   MCLO2A   SX6    B0          PREPARE COUNTERS FOR ADDRESSES                      CMP165        76     A     
 COMPASS            SA6    OPADS+1                                                         CMP165        77     A     
 COMPASS            PX7    X6,B0                                                           CMP165        78     A     
 COMPASS            SA7    A6+B1                                                           CMP165        79     A     
 COMPASS            RJ     GETCH                                                           COMPASS    13230     A     
 COMPASS   MCLO3    SA1    CHAR                                                            COMPASS    13231     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    13232     A     
 COMPASS            ZR     B7,MCLO8    IF END OF ADDRESS FIELD                             COMPASS    13233     A     
 COMPASS            EQ     B7,B1,MCLO8                                                     COMPASS    13234     A     
 COMPASS            SA2    COLUMN                                                          COMPASS    13235     A     
 COMPASS            BX6    X2                                                              COMPASS    13236     A     
 COMPASS            SX3    3600B       MASK FOR + - * /                                    COMPASS    13237          I
          -CPS010 
 COMPASS            SB7    X1+12                                                           COMPASS    13238          I
          -CPS010 
 COMPASS            SX3    360000B     MASK FOR  +-*/&                                     CPS010        71     A     
 COMPASS            SB7    X1+6                                                            CPS010        72     A     
 COMPASS            PX3    X3                                                              CPS010        73     A     
 COMPASS            SA6    OPADS+3     SAVE COLUMN                                         COMPASS    13239     A     
 COMPASS            LX3    X3,B7                                                           COMPASS    13240     A     
 COMPASS   +        PL     X3,*+1                                                          COMPASS    13241     A     
 COMPASS            RJ     GETCH                                                           COMPASS    13242     A     
 COMPASS            SA2    COLUMN                                                          COMPASS    13243     A     
 COMPASS            BX6    X2                                                              COMPASS    13244     A     
 COMPASS            SA6    OPADS+4                                                         COMPASS    13245     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 836    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     YEVITEM     EVALUATE ITEM                                       COMPASS    13246     A     
 COMPASS            SA1    ELREG                                                           COMPASS    13247     A     
 COMPASS            ZR     X1,MCLO6    IF NOT REGISTER                                     COMPASS    13248     A     
 COMPASS            SA2    OPADS+4     GO BACK TO START OF REGISTER                        COMPASS    13249     A     
 COMPASS            SX6    X2-1                                                            COMPASS    13250     A     
 COMPASS            SA6    COLUMN                                                          COMPASS    13251     A     
 COMPASS            RJ     GETCH                                                           COMPASS    13252     A     
 COMPASS            RJ     MCLOR       PACK REGISTER                                       COMPASS    13253     A     
 COMPASS            EQ     MCLO3                                                           COMPASS    13254     A     
 COMPASS   MCLO6    SA2    COLUMN                                                          COMPASS    13255     A     
 COMPASS            SA3    OPADS+3     GO BACK TO OPERATOR PREC. ELEMENT                   COMPASS    13256     A     
 COMPASS            SX6    X3-1                                                            COMPASS    13257     A     
 COMPASS            SB2    X2                                                              COMPASS    13258     A     
 COMPASS            SA6    A2                                                              COMPASS    13259     A     
 COMPASS   MCLO6A   RJ     GETCH                                                           COMPASS    13260     A     
 COMPASS            SA2    COLUMN                                                          COMPASS    13261     A     
 COMPASS            SB3    X2                                                              COMPASS    13262     A     
 COMPASS            EQ     B2,B3,MCLO3 IF AT END OF ELEMENT                                COMPASS    13263     A     
 COMPASS            SA2    OPADS       ADD CHARACTER TO ADDRESS                            COMPASS    13264          I
          -CMP165 
 COMPASS            SA2    OPADS+1     ADD CHARACTER TO ADDRESS                            CMP165        80     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    13265     A     
 COMPASS            LX2    6                                                               COMPASS    13266          I
          -CMP165 
 COMPASS            BX6    X2+X1                                                           COMPASS    13267          I
          -CMP165 
 COMPASS            SA6    A2                                                              COMPASS    13268          I
          -CMP165 
 COMPASS            SA4    A3+B1                                                           COMPASS    13269          I
          -CMP165 
 COMPASS            SX7    X4-1                                                            COMPASS    13270          I
          -CMP165 
 COMPASS            SA7    A4                                                              COMPASS    13271          I
          -CMP165 
 COMPASS            NZ     X7,MCLO6A                                                       COMPASS    13272          I
          -CMP165 
 COMPASS            SA6    RELVEC+X3                                                       COMPASS    13273          I
          -CMP165 
 COMPASS            SA7    A2                                                              COMPASS    13274          I
          -CMP165 
 COMPASS            SX6    X3+B1                                                           COMPASS    13275          I
          -CMP165 
 COMPASS            SX7    10                                                              COMPASS    13276          I
          -CMP165 
 COMPASS            SA6    A3                                                              COMPASS    13277          I
          -CMP165 
 COMPASS            SA7    A4                                                              COMPASS    13278          I
          -CMP165 
 COMPASS            UX7,B7 X3                                                              CMP165        81     A     
 COMPASS            SA4    RELVEC-1+X2                                                     CMP165        82     A     
 COMPASS            ZR     B7,MCLO7    IF AT END OF WORD                                   CMP165        83     A     
 COMPASS            SB7    B7-6                                                            CMP165        84     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 837    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    X3+B1       COUNT CHARACTERS                                    CMP165        85     A     
 COMPASS            LX1    B7                                                              CMP165        86     A     
 COMPASS            PX7    B7                                                              CMP165        87     A     
 COMPASS            BX6    X4+X1       INSERT NEW CHARACTER                                CMP165        88     A     
 COMPASS            SA7    A3                                                              CMP165        89     A     
 COMPASS            SA6    A4                                                              CMP165        90     A     
 COMPASS            EQ     MCLO6A      LOOP                                                CMP165        91     A     
 COMPASS   MCLO7    SB7    60-6                                                            CMP165        92     A     
 COMPASS            SX7    X2+B1       ADVANCE WORD INDEX                                  CMP165        93     A     
 COMPASS            LX6    X1,B7                                                           CMP165        94     A     
 COMPASS            SA7    A2                                                              CMP165        95     A     
 COMPASS            SX3    X3+B1       COUNT CHARACTERS                                    CMP165        96     A     
 COMPASS            SA6    RELVEC-1+X7                                                     CMP165        97     A     
 COMPASS            PX7    X3,B7                                                           CMP165        98     A     
 COMPASS            SA7    A3                                                              CMP165        99     A     
 COMPASS            EQ     MCLO6A                                                          COMPASS    13279     A     
 COMPASS                                                                                   COMPASS    13280     A     
 COMPASS  *         MOVE ADDRESS                                                           COMPASS    13281          I
          -CMP26  
 COMPASS  *         MOVE ADDRESS.                                                          CMP26         48     A     
 COMPASS                                                                                   COMPASS    13282     A     
 COMPASS   MCLO8    SA5    P1TEMPD     CHECK IF THIS SUBFIELD HAS AN ADDR                  COMPASS    13283     A     
 COMPASS            LX5    7                                                               COMPASS    13284     A     
 COMPASS            LX6    X5,B1                                                           COMPASS    13285     A     
 COMPASS            SA6    A5                                                              COMPASS    13286     A     
 COMPASS            PL     X5,MCLO8A                                                       COMPASS    13287     A     
 COMPASS            SA1    OPADS                                                           COMPASS    13288          I
          -CMP165 
 COMPASS            SA2    A1+B1                                                           COMPASS    13289          I
          -CMP165 
 COMPASS            SA3    A2+B1       BIND OFF ADDRESS                                    COMPASS    13290          I
          -CMP165 
 COMPASS            SB6    X3                                                              COMPASS    13291          I
          -CMP165 
 COMPASS            BX6    X1                                                              COMPASS    13292          I
          -CMP165 
 COMPASS   +        SB6    B6-B1                                                           COMPASS    13293          I
          -CMP165 
 COMPASS            LX6    6                                                               COMPASS    13294          I
          -CMP165 
 COMPASS            NZ     B6,*                                                            COMPASS    13295          I
          -CMP165 
 COMPASS            SA6    RELVEC+X2                                                       COMPASS    13296          I
          -CMP165 
 COMPASS            SX7    X2+B1                                                           COMPASS    13297          I
          -CMP165 
 COMPASS            SA7    A2                                                              COMPASS    13298          I
          -CMP165 
 COMPASS            SA1    L.MARGS                                                         COMPASS    13299     A     
 COMPASS            SA2    OPADS+2     SETUP ARGUMENT DESCRIPTOR WORD                      CMP165       100     A     
 COMPASS            SB7    X2                                                              CMP165       101     A     
 COMPASS            PX1    B7                                                              CMP165       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/28. 19.11.32.      PAGE 838    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ADDWORD MARDIS                                                         COMPASS    13300     A     
 COMPASS            SA1    OPADS+1                                                         COMPASS    13301     A     
 COMPASS            MANAGE MARGS,X1                                                        COMPASS    13302     A     
 COMPASS            IX2    X3+X2                                                           COMPASS    13303     A     
 COMPASS            SA1    OPADS+1                                                         COMPASS    13304     A     
 COMPASS            IX3    X2-X1                                                           COMPASS    13305     A     
 COMPASS            SX2    RELVEC                                                          COMPASS    13306     A     
 COMPASS            RJ     MOVE                                                            COMPASS    13307     A     
 COMPASS   MCLO8A   SA1    CHAR        TEST FOR END OF SUBFIELD ONLY                       COMPASS    13308     A     
 COMPASS            SB7    X1-1R,                                                          COMPASS    13309          I
          -CMP9   
 COMPASS            ZR     B7,MCLO2A                                                       COMPASS    13310          I
          -CMP9   
 COMPASS            SX6    B0          CLEAR OUT OP CODE ERRORS                            COMPASS    13311          I
          -CMP9   
 COMPASS            EQ     MCLO2                                                           CMP9          45     A     
 COMPASS                                                                                   CMP9          46     A     
 COMPASS  *         END OF VARIABLE FIELD.                                                 CMP9          47     A     
 COMPASS                                                                                   CMP9          48     A     
 COMPASS   MCLO9    SX6    B0          CLEAR OUT OPCODE ERRORS                             CMP9          49     A     
 COMPASS            SA6    AERR                                                            COMPASS    13312     A     
 COMPASS            SA6    UERR                                                            COMPASS    13313     A     
 COMPASS            SA2    P1TEMPB                                                         COMPASS    13314     A     
 COMPASS            BX6    X2          CHECK IF THERE ARE ANY LOCALS TO                    COMPASS    13315     A     
 COMPASS            SA6    A2-B1       GENERATE                                            COMPASS    13316     A     
 COMPASS            NZ     X2,MCL20                                                        COMPASS    13317     A     
 COMPASS                                                                                   COMPASS    13318     A     
 COMPASS  *         END OF EXPANSION.                                                      COMPASS    13319     A     
 COMPASS                                                                                   COMPASS    13320     A     
 COMPASS   MCL60    SA1    P1TEMP                                                          COMPASS    13321          I
          -CPS004 
 COMPASS   MCL60    RJ     CRL         CHECK RECURSION LIMIT                      S004  52 CPS004        33     A     
 COMPASS            SA1    P1TEMP                                                 S004  53 CPS004        34     A     
 COMPASS            MX6    2           CREATE OPTYPE FOR INTERMEDIATE                      COMPASS    13322     A     
 COMPASS            LX1    57                                                              COMPASS    13323     A     
 COMPASS            BX6    X1+X6                                                           COMPASS    13324     A     
 COMPASS            SA2    OPTYPE                                                          COMPASS    13325     A     
 COMPASS            BX7    X2                                                              COMPASS    13326     A     
 COMPASS            SA6    A2                                                              COMPASS    13327     A     
 COMPASS            SA7    A1                                                              COMPASS    13328     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    13329     A     
 COMPASS            ZR     X1,MCL61    IF NO LOCATION SYMBOL                               COMPASS    13330     A     
 COMPASS            RJ     WINTER                                                          COMPASS    13331     A     
 COMPASS            EQ     MCL62                                                           COMPASS    13332     A     
 COMPASS   MCL61    RJ     CWI                                                             COMPASS    13333     A     
 COMPASS   MCL62    SX6    B1                                                              COMPASS    13334          I
          -CPS004 
 COMPASS   MCL62    SA1    MCLA        RECALL PUSHDOWN PARAMETERS                 S004  55 CPS004        35     A     
 COMPASS            SX2    B1                                                     S004  56 CPS004        36     A     
 COMPASS            SA3    A1+B1                                                  S004  57 CPS004        37     A     
 COMPASS            SA5    A3+B1                                                  S004  58 CPS004        38     A     
 COMPASS            SA4    A5+B1                                                  S004  59 CPS004        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/28. 19.11.32.      PAGE 839    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     PUSHDOWN    ADD STACK ENTRY                            S004  60 CPS004        40     A     
 COMPASS            SA6    MACFLG                                                          COMPASS    13335          I
          -CMP029 
 COMPASS            SA2    P1TEMP                                                          COMPASS    13336     A     
 COMPASS            SX6    B1                                                     S004  62 CPS004        41     A     
 COMPASS            LX2    2                                                               COMPASS    13337     A     
 COMPASS            MX7    0                                                               COMPASS    13338          I
          -CMP029 
 COMPASS            NG     X2,CTL100                                                       COMPASS    13339          I
          -CMP029 
 COMPASS            SA6    SYSFLG                                                          COMPASS    13340          I
          -CMP029 
 COMPASS            SA7    MACFLG                                                          COMPASS    13341          I
          -CMP029 
 COMPASS            PL     X2,MCL63    IF SYSTEM MACRO                                     CMP029       137     A     
 COMPASS            SA6    MACFLG                                                          CMP029       138     A     
 COMPASS            EQ     CTL100                                                          CMP029       139     A     
 COMPASS   MCL63    SA6    SYSFLG                                                          CMP029       140     A     
 COMPASS            EQ     CTL100      AND BACK FOR GENERAL PROCESSING                     COMPASS    13342     A     
 COMPASS                                                                                   CMP9          50     A     
 COMPASS   MCLA     BSS    4           PUSHDOWN PARAMETERS                        S004  64 CPS004        42     A     
 COMPASS   MCLOA    DATA   0           ZERO IN OPCODE FIELD, NZ IN VARIABLE FIELD          CMP9          51     A     
 COMPASS   MCLS     SPACE  4                                                               COMPASS    13343     A     
 COMPASS  **        MCLS - STORE NEXT MACRO CHARACTER.                                     COMPASS    13344     A     
 COMPASS                                                                                   COMPASS    13345     A     
 COMPASS                                                                                   COMPASS    13346     A     
 COMPASS   MCLS     PS                 RETURN EXIT                                         COMPASS    13347     A     
 COMPASS            LX7    6           ACCUMULATE CHARACTER                                COMPASS    13348     A     
 COMPASS            SB6    B6-B1                                                           COMPASS    13349     A     
 COMPASS            SB3    B3+B1       BUMP CHARACTER COUNT                                CMP165       103     A     
 COMPASS            BX7    X1+X7                                                           COMPASS    13350     A     
 COMPASS            NZ     B6,MCLS                                                         COMPASS    13351     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    13352     A     
 COMPASS            SB6    10                                                              COMPASS    13353     A     
 COMPASS            MX7    0                                                               COMPASS    13354     A     
 COMPASS            EQ     MCLS                                                            COMPASS    13355     A     
 COMPASS   MCLOR    SPACE  4                                                               COMPASS    13356     A     
 COMPASS  **        MCLOR - PACK REGISTER.                                                 COMPASS    13357     A     
 COMPASS  *         USES   P1TEMPC.                                                        CMP165       104     A     
 COMPASS                                                                                   COMPASS    13358     A     
 COMPASS                                                                                   COMPASS    13359     A     
 COMPASS   MCLOR    PS                 RETURN EXIT                                         COMPASS    13360     A     
 COMPASS            SA1    L.MARGS     STORE DESCRIPTOR WORD                               COMPASS    13361          I
          -CMP165 
 COMPASS            ADDWORD MARDIS                                                         COMPASS    13362          I
          -CMP165 
 COMPASS            RJ     GETCH                                                           COMPASS    13363     A     
 COMPASS            SB2    X1-1R.                                                          COMPASS    13364     A     
 COMPASS   +        NZ     B2,*+1                                                          COMPASS    13365     A     
 COMPASS            RJ     GETCH                                                           COMPASS    13366     A     
 COMPASS            RJ     SCITEM                                                          COMPASS    13367     A     
 COMPASS            MX7    6                                                               COMPASS    13368     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 840    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X6,*+2                                                          COMPASS    13369          I
          -CMP165 
 COMPASS   +        LX6    6                                                               COMPASS    13370          I
          -CMP165 
 COMPASS            BX4    X7*X6                                                           COMPASS    13371          I
          -CMP165 
 COMPASS            ZR     X4,*                                                            COMPASS    13372          I
          -CMP165 
 COMPASS            BX1    X6          STORE REGISTER                                      COMPASS    13373          I
          -CMP165 
 COMPASS            SB3    B0                                                              CMP165       105     A     
 COMPASS            ZR     X6,MCLOR2                                                       CMP165       106     A     
 COMPASS   MCLOR1   BX4    X7*X6       LEFT JUSTIFY AND COUNT CHARACTERS                   CMP165       107     A     
 COMPASS            LX6    6                                                               CMP165       108     A     
 COMPASS            SB3    B3-1                                                            CMP165       109     A     
 COMPASS            ZR     X4,MCLOR1                                                       CMP165       110     A     
 COMPASS            LX6    -6                                                              CMP165       111     A     
 COMPASS            SB3    11+B3                                                           CMP165       112     A     
 COMPASS   MCLOR2   SA2    L.MARGS     SETUP ARGUMENT DESCRIPTOR WORD                      CMP165       113     A     
 COMPASS            BX1    X6                                                              CMP165       114     A     
 COMPASS            PX6    X2,B3                                                           CMP165       115     A     
 COMPASS            SA6    P1TEMPC                                                         CMP165       116     A     
 COMPASS            ADDWORD MARGS                                                          COMPASS    13374     A     
 COMPASS            SA1    P1TEMPC                                                         CMP165       117     A     
 COMPASS            ADDWORD MARDIS                                                         CMP165       118     A     
 COMPASS            SA1    CHAR                                                            COMPASS    13375     A     
 COMPASS            EQ     MCLOR                                                           COMPASS    13376     A     
 COMPASS   PCARD    SPACE  4                                                               COMPASS    13377     A     
 COMPASS  **        PCARD - PACK CARD INTO TABLE.                                          COMPASS    13378     A     
 COMPASS  *         ENTRY  (X1) = TABLE NAME.                                              COMPASS    13379     A     
 COMPASS                                                                                   COMPASS    13380     A     
 COMPASS                                                                                   COMPASS    13381     A     
 COMPASS   PCARD    PS                 RETURN EXIT                                         COMPASS    13382     A     
 COMPASS            BX6    X1          SAVE TALLE ID                                       COMPASS    13383     A     
 COMPASS            SA6    PCARDT                                                          COMPASS    13384     A     
 COMPASS            RJ     SQUEEZE     SQUEEZE CARD                                        COMPASS    13385     A     
 COMPASS            SA1    SQLGN       AUGMENT TABLE                                       COMPASS    13386     A     
 COMPASS            SA2    PCARDT      BY AMOUNT OF SQUEEZED IMAGE                         COMPASS    13387     A     
 COMPASS            MANAGE X2,X1                                                           COMPASS    13388     A     
 COMPASS            SA1    SQLGN       LENGTH OF COMPRESSED IMAGE                          COMPASS    13389     A     
 COMPASS            IX3    X2+X3                                                           COMPASS    13390     A     
 COMPASS            IX3    X3-X1                                                           COMPASS    13391     A     
 COMPASS            SX2    SQIMAGE                                                         COMPASS    13392     A     
 COMPASS            RJ     MOVE        MOVE IMAGE FROM SQIMAGE TO TABLE                    COMPASS    13393     A     
 COMPASS            EQ     PCARD                                                           COMPASS    13394     A     
 COMPASS                                                                                   COMPASS    13395     A     
 COMPASS   PCARDT   DATA   0           TEMPORARY STORAGE                                   COMPASS    13396     A     
 COMPASS   PDC      SPACE  4                                                               COMPASS    13397     A     
 COMPASS  **        PDC - PROCESS DEFINITION CARD.                                         COMPASS    13398     A     
 COMPASS  *         FORMAL PARAMETER SEPARATORS ARE +-*/()$= ,."_                          COMPASS    13399     A     
 COMPASS  *         ENTRY  (SQIMAGE) = PACKED IMAGE OF CARD.                               COMPASS    13400     A     
 COMPASS  *                (P1TEMPA) = TOTAL PARAMETER COUNT.                              COMPASS    13401     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 841    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (RELVEC) = PARAMETER NAMES.                                     COMPASS    13402     A     
 COMPASS  *         EXIT   (CARD) = STRING BUFFER WITH PARAMETER MARKS.                    COMPASS    13403     A     
 COMPASS                                                                                   COMPASS    13404     A     
 COMPASS                                                                                   COMPASS    13405     A     
 COMPASS   PDC      PS                 RETURN EXIT                                         COMPASS    13406     A     
 COMPASS            IFEQ   IP.CSET,IP.C64.1                                                CPS0267        5     A     
 COMPASS            SA3    =607776000000000001B DELIMITER MASK                             COMPASS    13407     A     
 COMPASS            ELSE                                                                   CPS0267        6     A     
 COMPASS            SA3    =707776000000000001B                                            CPS0267        7     A     
 COMPASS            ENDIF                                                                  CPS0267        8     A     
 COMPASS            SB6    9                                                               COMPASS    13408     A     
 COMPASS            SX4    B6                                                              COMPASS    13409     A     
 COMPASS            SA1    SQIMAGE     PACKED IMAGE                                        COMPASS    13410     A     
 COMPASS            MX0    -6                                                              COMPASS    13411     A     
 COMPASS            SB5    -71*NCARDS+3 LIMITING COLUMN COUNT                              COMPASS    13412     A     
 COMPASS            SA0    STYPE+71*NCARDS-3                                               COMPASS    13413     A     
 COMPASS                                                                                   COMPASS    13414     A     
 COMPASS  *         ENTRY FOR NEW POTENTIAL SUBSTITUTABLE ARGUMENT.                        COMPASS    13415     A     
 COMPASS                                                                                   COMPASS    13416     A     
 COMPASS   PDC1     SB4    B5          RESET ADDRESS IN CASE IF ARGUMENT                   COMPASS    13417     A     
 COMPASS            MX5    0                                                               COMPASS    13418     A     
 COMPASS                                                                                   COMPASS    13419     A     
 COMPASS  *         ENTRY FOR NEXT CHARACTER.                                              COMPASS    13420     A     
 COMPASS                                                                                   COMPASS    13421     A     
 COMPASS   PDC2     LX1    6                                                               COMPASS    13422     A     
 COMPASS            BX6    -X0*X1      ISOLATE NEW CHARACTER                               COMPASS    13423     A     
 COMPASS            SB7    X6                                                              COMPASS    13424     A     
 COMPASS            AX7    X3,B7                                                           COMPASS    13425     A     
 COMPASS   +        GE     B6,B1,*+1   IF STILL CHARACTERS IN WORD                         COMPASS    13426     A     
 COMPASS            SB6    X4+B1                                                           CMP64G       250     A     
 COMPASS            SA1    A1+B1       FETCH NEW WORD                                      COMPASS    13427     A     
 COMPASS            SB6    X4+B1                                                           COMPASS    13428          I
          -CMP64G 
 COMPASS   +        SB6    B6-B1                                                           COMPASS    13429          I
          -CMP64G 
 COMPASS            LX7    59                                                              COMPASS    13430          I
          -CMP64G 
 COMPASS   +        LX7    59                                                              CMP64G       251     A     
 COMPASS            SB6    B6-B1                                                           CMP64G       252     A     
 COMPASS            NG     X7,PDC3     IF THIS IS A DELIMITER                              COMPASS    13431     A     
 COMPASS   +        PL     B5,*+1      IF ROOM REMAINS IN CARD                             COMPASS    13432     A     
 COMPASS            SA6    A0+B5       STORE CHARACTER                                     COMPASS    13433     A     
 COMPASS            SB5    B5+B1       UP COLUMN COUNT                                     COMPASS    13434     A     
 COMPASS            LX5    6                                                               COMPASS    13435     A     
 COMPASS            BX5    X6+X5       OR INTO POTENTIAL PARAMETER NAME                    COMPASS    13436     A     
 COMPASS            EQ     PDC2        AND LOOP                                            COMPASS    13437     A     
 COMPASS                                                                                   COMPASS    13438     A     
 COMPASS  *         DELIMITER FOUND.                                                       COMPASS    13439     A     
 COMPASS                                                                                   COMPASS    13440     A     
 COMPASS   PDC3     SA2    P1TEMPA     TOTAL PARAMETER COUNT                               COMPASS    13441     A     
 COMPASS            SB2    X2-1                                                            COMPASS    13442     A     
 COMPASS            ZR     X2,PDC5     IF NOT PARAMETERS                                   COMPASS    13443     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 842    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    RELVEC                                                          COMPASS    13444     A     
 COMPASS   PDC4     BX7    X2-X5                                                           COMPASS    13445     A     
 COMPASS            SB2    B2-B1                                                           COMPASS    13446     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    13447     A     
 COMPASS            ZR     X7,PDC6     IF PARAMETER FOUND                                  COMPASS    13448     A     
 COMPASS            PL     B2,PDC4                                                         COMPASS    13449     A     
 COMPASS   PDC5     ZR     B7,PDC7     PROCESS DELIMITER... IF BLANK MARK                  COMPASS    13450     A     
 COMPASS            PL     B5,PDC1     IF CARD EXHAUSTED                                   COMPASS    13451     A     
 COMPASS            SA6    A0+B5       STORE DELIMITER                                     COMPASS    13452     A     
 COMPASS            SB5    B5+B1                                                           COMPASS    13453     A     
 COMPASS            EQ     PDC1                                                            COMPASS    13454     A     
 COMPASS                                                                                   COMPASS    13455     A     
 COMPASS  *         PARAMETER FOUND.                                                       COMPASS    13456     A     
 COMPASS                                                                                   COMPASS    13457     A     
 COMPASS   PDC6     BX7    -X0         GET A 77                                            COMPASS    13458     A     
 COMPASS            SB5    B4+2        UPDATE COLUMN NO                                    COMPASS    13459     A     
 COMPASS            PL     B5,PDC1     IF OUT OF RANGE                                     COMPASS    13460     A     
 COMPASS            SA7    A0+B4       STORE 77 (PARAMETER MARK)                           COMPASS    13461     A     
 COMPASS            SX7    A2-RELVEC   STORE PARAMETER NUMBER                              COMPASS    13462     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    13463     A     
 COMPASS            SA7    P1TEMP                                                          COMPASS    13464          I
          -CMP64G 
 COMPASS            EQ     PDC5        GO PROCESS DELIMITER                                COMPASS    13465     A     
 COMPASS                                                                                   COMPASS    13466     A     
 COMPASS  *         00 CHARACTER.                                                          COMPASS    13467     A     
 COMPASS                                                                                   COMPASS    13468     A     
 COMPASS   PDC7     LX1    6           FETCH NEXT CHARACTER                                COMPASS    13469     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    13470     A     
 COMPASS            SB7    X6                                                              COMPASS    13471     A     
 COMPASS   +        GE     B6,B1,*+1                                                       COMPASS    13472     A     
 COMPASS            SB6    X4+B1                                                           COMPASS    13473     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    13474     A     
 COMPASS   +        SB6    B6-B1                                                           COMPASS    13475     A     
 COMPASS            BX6    X6-X6                                                           CMP64G       253     A     
 COMPASS            ZR     B7,PDC8     IF END OF CARD                                      COMPASS    13476     A     
 COMPASS            EQ     B7,B1,PDC5  IF 0001 (COLON), GO STORE 00                        CMP64G       254     A     
 COMPASS            SX6    1R          STORE BLANKS OUT TO END OF CARD                     COMPASS    13477     A     
 COMPASS            SA6    A0+B5                                                           COMPASS    13478     A     
 COMPASS            SB2    B5+B7                                                           COMPASS    13479     A     
 COMPASS            SB2    B2+B1                                                           COMPASS    13480     A     
 COMPASS            PL     B2,PDC1     IF OUT OF BOUNDS                                    COMPASS    13481     A     
 COMPASS   +        SB7    B7-B1                                                           COMPASS    13482     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    13483     A     
 COMPASS            NZ     B7,*                                                            COMPASS    13484     A     
 COMPASS            SB5    B2                                                              COMPASS    13485     A     
 COMPASS            EQ     PDC1                                                            COMPASS    13486     A     
 COMPASS                                                                                   COMPASS    13487     A     
 COMPASS  *         END OF CARD.                                                           COMPASS    13488     A     
 COMPASS                                                                                   COMPASS    13489     A     
 COMPASS   PDC8     SX6    1R          BLANK OUT REMAINDER OF CARD                         COMPASS    13490     A     
 COMPASS            SA1    LASTCOL                                                         CMP12         29     A     
 COMPASS            SA6    A0+B5                                                           COMPASS    13491     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 843    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    A6-STYPE-1                                                      COMPASS    13492     A     
 COMPASS            SB6    X1                                                              CMP12         30     A     
 COMPASS   +        NZ     X7,*+1      IF NOT ALL BLANKS                                   CMP27         20     A     
 COMPASS            SX7    B1                                                              CMP27         21     A     
 COMPASS            SA7    LASTCOL     UPDATE LASTCOL                                      COMPASS    13493     A     
 COMPASS            SB7    X7                                                              CMP12         31     A     
 COMPASS            MX7    0                                                               COMPASS    13494     A     
 COMPASS   +        SB5    B5+B1                                                           COMPASS    13495          I
          -CMP12  
 COMPASS   +        SB7    B7+B1                                                           CMP12         32     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    13496     A     
 COMPASS            NG     B5,*                                                            COMPASS    13497          I
          -CMP12  
 COMPASS            LT     B7,B6,*                                                         CMP12         33     A     
 COMPASS            SA7    SQLGN       PERMIT REPACKING                                    COMPASS    13498     A     
 COMPASS            EQ     PDC         RETURN                                              COMPASS    13499     A     
 COMPASS   PEC      SPACE  4                                                               COMPASS    13500     A     
 COMPASS  **        PEC - PROCESS END CARD.                                                COMPASS    13501     A     
 COMPASS  *         ENTRY  (X1) = NAME OF ENDX CARD.                                       COMPASS    13502     A     
 COMPASS  *                (P1TEMPE) = BRACKET NAME.                                       COMPASS    13503     A     
 COMPASS  *         EXIT   (P1TEMPD) = 1 IF ENDX CARD FOUND.                               COMPASS    13504     A     
 COMPASS                                                                                   COMPASS    13505     A     
 COMPASS                                                                                   COMPASS    13506     A     
 COMPASS   PEC      PS                 RETURN EXIT                                         COMPASS    13507     A     
 COMPASS            BX6    X1                                                              COMPASS    13508     A     
 COMPASS            SA6    PECA                                                            COMPASS    13509     A     
 COMPASS            MX6    0                                                               COMPASS    13510     A     
 COMPASS            SA6    P1TEMPD     CLEAR ENDM FLAG                                     COMPASS    13511     A     
 COMPASS   PEC1     RJ     SQUEEZE     WRITE DEFINITION CARD                               COMPASS    13512     A     
 COMPASS            SA2    IOP                                                             COMPASS    13513     A     
 COMPASS            SX0    3REND                                                           COMPASS    13514     A     
 COMPASS            IX0    X2-X0                                                           COMPASS    13515     A     
 COMPASS            ZR     X0,END      IF *END* CARD                                       COMPASS    13516          I
          -CPS0320
 COMPASS            ZR     X0,PEC5     IF *END* CARD                                       CPS0320        6     A     
 COMPASS            RJ     CWI                                                             COMPASS    13517     A     
 COMPASS            MX6    0           CLEAR PARAMETER NUMBER                              COMPASS    13518          I
          -CMP64G 
 COMPASS            SA6    P1TEMP                                                          COMPASS    13519          I
          -CMP64G 
 COMPASS            SA1    STYPE                                                           COMPASS    13520     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS    13521     A     
 COMPASS            ZR     B7,PEC4     IF COMMENTS CARD                                    COMPASS    13522     A     
 COMPASS            SA2    IOP                                                             COMPASS    13523     A     
 COMPASS            SA1    PECA                                                            COMPASS    13524     A     
 COMPASS            IX0    X2-X1                                                           COMPASS    13525     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    13526     A     
 COMPASS            NZ     X0,PEC      IF NOT ENDX CARD                                    COMPASS    13527     A     
 COMPASS            SA2    P1TEMPE                                                         COMPASS    13528     A     
 COMPASS            BX0    X2-X1                                                           COMPASS    13529     A     
 COMPASS            ZR     X1,PEC2                                                         COMPASS    13530     A     
 COMPASS            NZ     X0,PEC                                                          COMPASS    13531     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 844    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PEC2     SX6    1R          CLEAR LOCATION SYMBOL                               COMPASS    13532          I
          -CMP64G 
 COMPASS   PEC2     SA1    CARD        CLEAR LOCATION FIELD                                CMP64G       255     A     
 COMPASS            SX6    1R                                                              CMP64G       256     A     
 COMPASS            SX7    B1                                                              COMPASS    13533     A     
 COMPASS            SA1    CARD                                                            COMPASS    13534          I
          -CMP64G 
 COMPASS            SA6    A1          CLEAR COLUMN 1                                      COMPASS    13535     A     
 COMPASS            SA7    P1TEMPD                                                         COMPASS    13536     A     
 COMPASS   PEC3     SA1    A1+B1                                                           COMPASS    13537     A     
 COMPASS            BX7    X1-X6                                                           COMPASS    13538     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    13539     A     
 COMPASS            NZ     X7,PEC3                                                         COMPASS    13540     A     
 COMPASS            SA7    SQLGN       CLEAR COMPRESSION INDICATOR                         COMPASS    13541     A     
 COMPASS            RJ     SQUEEZE     REPACK CARD WITH BLANKED LOCSYM                     COMPASS    13542     A     
 COMPASS            EQ     PEC         RETURN                                              COMPASS    13543     A     
 COMPASS                                                                                   COMPASS    13544     A     
 COMPASS  *         SKIP COMMENT CARD.                                                     COMPASS    13545     A     
 COMPASS                                                                                   COMPASS    13546     A     
 COMPASS   PEC4     RJ     INPUT1                                                          COMPASS    13547     A     
 COMPASS            RJ     SETUP                                                           COMPASS    13548     A     
 COMPASS            EQ     PEC1        LOOP                                                COMPASS    13549     A     
 COMPASS                                                                                   COMPASS    13550     A     
 COMPASS  *         END CARD.                                                              CPS0320        7     A     
 COMPASS                                                                                   CPS0320        8     A     
 COMPASS   PEC5     SA1    IOP         *END*                                               CPS0320        9     A     
 COMPASS            RJ     TLUOP       MAKE SURE OPTYPE IS SET CORRECTLY                   CPS0320       10     A     
 COMPASS            EQ     END                                                             CPS0320       11     A     
 COMPASS   PECA     DATA   0           NAME OF ENDX CARD                                   COMPASS    13551     A     
 COMPASS   PMA      SPACE  4                                                               COMPASS    13552     A     
 COMPASS  **        PMA - PROCESS MACRO ARGUMENTS.                                         COMPASS    13553     A     
 COMPASS  *         ENTRY  (CARD) = ARGUMENTS SEPARATED BY *,*.                            COMPASS    13554     A     
 COMPASS  *         EXIT   (MARGS) = PACKED ARGUMENT.                                      COMPASS    13555     A     
 COMPASS  *                (X1) = ARGUMENT DESCRIPTOR WORD FOR MARDIS TABLE.               CMP165       119     A     
 COMPASS  *         USES   P1TEMPC.                                                        COMPASS    13556     A     
 COMPASS  *         CALLS  MCLS.                                                           COMPASS    13557     A     
 COMPASS                                                                                   COMPASS    13558     A     
 COMPASS                                                                                   COMPASS    13559     A     
 COMPASS   PMA      PS                 RETURN EXIT                                         COMPASS    13560     A     
 COMPASS            SB6    10                                                              COMPASS    13561     A     
 COMPASS            SA7    RELVEC                                                          COMPASS    13562          I
          -CMP029 
 COMPASS            SA7    RELVEC+128                                                      CMP029       141     A     
 COMPASS            SB2    B0          PREPARE TO STORE CHARACTER STRINGS                  COMPASS    13563     A     
 COMPASS            SB3    B0                                                              CMP165       120     A     
 COMPASS            SX7    B0                                                              COMPASS    13564     A     
 COMPASS            SA1    CHAR                                                            COMPASS    13565     A     
 COMPASS            SB7    X1-1R(                                                          COMPASS    13566     A     
 COMPASS            ZR     B7,PMA5     IF OPEN PAREN                                       COMPASS    13567     A     
 COMPASS   PMA1     SB7    X1-1R                                                           COMPASS    13568     A     
 COMPASS            ZR     B7,PMA7                                                         COMPASS    13569     A     
 COMPASS            EQ     B7,B1,PMA6                                                      COMPASS    13570     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 845    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     MCLS        STORE CHARACTER                                     COMPASS    13571     A     
 COMPASS   PMA2     RJ     GETCH       GET NEXT ONE                                        COMPASS    13572     A     
 COMPASS            EQ     PMA1                                                            COMPASS    13573     A     
 COMPASS   PMA3     SB7    B7+B7                                                           COMPASS    13574     A     
 COMPASS            SX3    B1-B7                                                           COMPASS    13575     A     
 COMPASS            SB2    B2+X3                                                           COMPASS    13576     A     
 COMPASS   PMA4     NG     B2,PMA2     IF OUT OF BRACKETS                                  COMPASS    13577     A     
 COMPASS            RJ     MCLS                                                            COMPASS    13578     A     
 COMPASS   PMA5     RJ     GETCH                                                           COMPASS    13579     A     
 COMPASS            SB7    X1-1R(                                                          COMPASS    13580     A     
 COMPASS            ZR     B7,PMA3     IF OPEN PAREN                                       COMPASS    13581     A     
 COMPASS            EQ     B7,B1,PMA3  IF CLOSE PREN                                       COMPASS    13582     A     
 COMPASS            RJ     MCLS        STORE CHARACTER                                     COMPASS    13583     A     
 COMPASS            PL     X2,PMA5     IF STILL WITHIN RANGE OF CARD                       COMPASS    13584     A     
 COMPASS   PMA6     RJ     GETCH                                                           COMPASS    13585     A     
 COMPASS   PMA7     MX1    0                                                               COMPASS    13586          I
          -CMP165 
 COMPASS            RJ     MCLS                                                            COMPASS    13587          I
          -CMP165 
 COMPASS            SB5    B6-10                                                           COMPASS    13588          I
          -CMP165 
 COMPASS            NZ     B5,PMA7                                                         COMPASS    13589          I
          -CMP165 
 COMPASS   PMA7     SB7    B6-10                                                           CMP165       121     A     
 COMPASS            ZR     B7,PMA8     IF NO PARTIAL WORD                                  CMP165       122     A     
 COMPASS            SB7    B6+B6                                                           CMP165       123     A     
 COMPASS            SB6    B6+B7                                                           CMP165       124     A     
 COMPASS            SB7    B6+B6       LEFT JUSTIFY CHARACTERS IN LAST WORD                CMP165       125     A     
 COMPASS            LX7    B7                                                              CMP165       126     A     
 COMPASS            SA7    A7+B1                                                           CMP165       127     A     
 COMPASS            SX6    A7-RELVEC   SIZE OF ACTUAL PARAMETER                            COMPASS    13590          I
          -CMP029 
 COMPASS            SX6    A7-RELVEC-128  WORD COUNT OF ARGUMENT                           CMP029       142          I
          -CMP165 
 COMPASS   PMA8     SX1    A7-RELVEC-128  WORD COUNT OF ARGUMENT                           CMP165       128     A     
 COMPASS            PX6    X1,B3                                                           CMP165       129     A     
 COMPASS            SA6    P1TEMPC                                                         COMPASS    13591     A     
 COMPASS            MANAGE MARGS,X6                                                        COMPASS    13592          I
          -CMP165 
 COMPASS            MANAGE MARGS,X1                                                        CMP165       130     A     
 COMPASS            SA1    P1TEMPC     SIZE OF PARAMETER                                   COMPASS    13593     A     
 COMPASS            UX1,B3                                                                 CMP165       131     A     
 COMPASS            IX4    X3-X1                                                           COMPASS    13594     A     
 COMPASS            PX6    X4,B3                                                           CMP165       132     A     
 COMPASS            IX3    X2+X4                                                           COMPASS    13595     A     
 COMPASS            SX2    RELVEC+1                                                        COMPASS    13596          I
          -CMP029 
 COMPASS            SX2    RELVEC+129                                                      CMP029       143     A     
 COMPASS            SA6    A1                                                              CMP165       133     A     
 COMPASS            RJ     MOVE                                                            COMPASS    13597     A     
 COMPASS            SA1    P1TEMPC     (X1) = DESCRIPTOR WORD                              CMP165       134     A     
 COMPASS            EQ     PMA         RETURN                                              COMPASS    13598     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 846    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PMACE    SPACE  4                                                               CMP029       144     A     
 COMPASS  **        PMACE - SKIP ARGUMENT VALUE.                                           CMP029       145     A     
 COMPASS  *         CALLED BY *ECHO* AND *MCLE* AFTER AN EMPTY, INVALID, OR                CMP029       146     A     
 COMPASS  *         DUPLICATE FORMAL PARAMETER NAME IS SCANNED.  SKIPS                     CMP029       147     A     
 COMPASS  *         TO END OF ARGUMENT VALUE.                                              CMP029       148     A     
 COMPASS  *         EXIT   (X7) = 0 IF END OF CARD.                                        CMP029       149     A     
 COMPASS                                                                                   CMP029       150     A     
 COMPASS                                                                                   CMP029       151     A     
 COMPASS   PMACEX   SB7    X1-1R                                                           CMP029       152     A     
 COMPASS            ZR     B7,PMACE    IF COMMA FOLLOWED BY BLANK                          CMP029       153     A     
 COMPASS                                                                                   CMP029       154     A     
 COMPASS   PMACE0   SX7    A1-CARD+1                                                       CMP029       155     A     
 COMPASS            BX6    X1                                                              CMP029       156     A     
 COMPASS            SA7    COLUMN      STORE UPDATED COLUMN POINTER                        CMP029       157     A     
 COMPASS            SA6    CHAR                                                            CMP029       158     A     
 COMPASS                                                                                   CMP029       159     A     
 COMPASS   PMACE    PS                 RETURN EXIT                                         CMP029       160     A     
 COMPASS            SA4    COLUMN                                                          CMP029       161     A     
 COMPASS            SA1    CARD-2+X4   GET SEPARATOR FOLLOWING NAME                        CMP029       162     A     
 COMPASS            MX7    0                                                               CMP029       163     A     
 COMPASS            SB5    -1R                                                             CMP029       164     A     
 COMPASS            SB6    B0                                                              CMP029       165     A     
 COMPASS            SB7    X1-1R,                                                          CMP029       166     A     
 COMPASS            SA1    A1+B1                                                           CMP029       167     A     
 COMPASS            ZR     B7,PMACEX   IF COMMA                                            CMP029       168     A     
 COMPASS            SB7    X1-1R(      LOOK AT CHARACTER THAT FOLLOWS SEPARATOR            CMP029       169     A     
 COMPASS            NZ     B7,PMACE1   IF NOT LEFT PAREN                                   CMP029       170     A     
 COMPASS            SA2    LASTCOL                                                         CMP029       171     A     
 COMPASS            SA1    A1+B1                                                           CMP029       172     A     
 COMPASS            IX2    X4-X2                                                           CMP029       173     A     
 COMPASS            EQ     PMACE3                                                          CMP029       174     A     
 COMPASS                                                                                   CMP029       175     A     
 COMPASS   PMACE1   SB7    X1+B5                                                           CMP029       176     A     
 COMPASS            SA1    A1+B1                                                           CMP029       177     A     
 COMPASS            ZR     B7,PMACE    IF BLANK                                            CMP029       178     A     
 COMPASS            NE     B7,B1,PMACE1  IF NOT COMMA                                      CMP029       179     A     
 COMPASS            EQ     PMACE0      RETURN                                              CMP029       180     A     
 COMPASS                                                                                   CMP029       181     A     
 COMPASS   PMACE2   SB7    B7+B7                                                           CMP029       182     A     
 COMPASS            SX3    B1-B7                                                           CMP029       183     A     
 COMPASS            SB6    B6+X3       UPDATE PAREN LEVEL                                  CMP029       184     A     
 COMPASS            SA1    A1+B1                                                           CMP029       185     A     
 COMPASS            MI     B6,PMACE1   IF OUT OF PARENS                                    CMP029       186     A     
 COMPASS            SX2    X2+B1                                                           CMP029       187     A     
 COMPASS   PMACE3   SB7    X1-1R(                                                          CMP029       188     A     
 COMPASS            ZR     B7,PMACE2   IF LEFT PAREN                                       CMP029       189     A     
 COMPASS            EQ     B7,B1,PMACE2  IF RIGHT PAREN                                    CMP029       190     A     
 COMPASS            SX2    X2+B1                                                           CMP029       191     A     
 COMPASS            SA1    A1+B1                                                           CMP029       192     A     
 COMPASS            MI     X2,PMACE3   IF NOT END OF CARD                                  CMP029       193     A     
 COMPASS            EQ     PMACE       RETURN                                              CMP029       194     A     
 COMPASS   PMACF    SPACE  4                                                               COMPASS    13599     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 847    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        PMACF - ISOLATE FORMAL PARAMETER.                                      COMPASS    13600     A     
 COMPASS  *         THIS ROUTINE CATCHES ILLEGAL NAMES, DUPLICATED NAMES                   COMPASS    13601     A     
 COMPASS  *         AND ADDS TO THE LIST IN RELVEC.                                        COMPASS    13602     A     
 COMPASS  *         EXIT   (X6) = PARAMETER NAME.                                          COMPASS    13603     A     
 COMPASS                                                                                   COMPASS    13604     A     
 COMPASS                                                                                   COMPASS    13605     A     
 COMPASS   PMACFER  SX6    B1          POST REJECTED FORMAL PARAMETER ERROR                COMPASS    13606     A     
 COMPASS            SA6    W4ERR                                                           COMPASS    13607     A     
 COMPASS            SA6    EFLG                                                            COMPASS    13608     A     
 COMPASS   PMACFN   MX6    0                                                               COMPASS    13609     A     
 COMPASS                                                                                   COMPASS    13610     A     
 COMPASS   PMACF    PS                 RETURN EXIT                                         COMPASS    13611     A     
 COMPASS            SA1    COLUMN                                                          COMPASS    13612     A     
 COMPASS            MX3    49          ISOLATE THE FORMAL PARAMETER NAME                   COMPASS    13613     A     
 COMPASS            BX2    -X3                                                             COMPASS    13614     A     
 COMPASS            SA1    X1+CARD-1                                                       COMPASS    13615     A     
 COMPASS            LX2    12                                                              COMPASS    13616     A     
 COMPASS            BX6    X6-X6                                                           COMPASS    13617     A     
 COMPASS            SB6    X1-1R0                                                          COMPASS    13618     A     
 COMPASS            SB5    X1-1R9-1                                                        COMPASS    13619     A     
 COMPASS            EQ     PMACF1                                                          COMPASS    13620     A     
 COMPASS   PMACF1A  LX6    6                                                               COMPASS    13621     A     
 COMPASS            BX6    X1+X6                                                           COMPASS    13622     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    13623     A     
 COMPASS   PMACF1   SB7    X1                                                              COMPASS    13624     A     
 COMPASS            LX3    X2,B7                                                           COMPASS    13625     A     
 COMPASS            PL     X3,PMACF1A                                                      COMPASS    13626     A     
 COMPASS            SB7    B7-1R                                                           COMPASS    13627     A     
 COMPASS   +        ZR     B7,*+1                                                          COMPASS    13628     A     
 COMPASS            SA1    A1+B1       THROW AWAY NAME TERMINATOR                          COMPASS    13629     A     
 COMPASS            SX7    A1-CARD+1                                                       COMPASS    13630     A     
 COMPASS            SA7    COLUMN                                                          COMPASS    13631     A     
 COMPASS            BX7    X1                                                              COMPASS    13632     A     
 COMPASS            SA7    CHAR                                                            COMPASS    13633     A     
 COMPASS            ZR     X6,PMACFN                                                       COMPASS    13634     A     
 COMPASS   +        NG     B6,*+1                                                          COMPASS    13635     A     
 COMPASS            NG     B5,PMACFN                                                       COMPASS    13636          I
          -CMP029 
 COMPASS            NG     B5,PMACFER  IF FIRST CHARACTER OF NAME IS 0-9                   CMP029       195     A     
 COMPASS            SA2    P1TEMPA     FETCH PARAMETER COUNT                               COMPASS    13637     A     
 COMPASS            SA3    RELVEC      AND COMPARE WITH EXISTING PARAMETERS                COMPASS    13638     A     
 COMPASS            ZR     X2,PMACF3                                                       COMPASS    13639     A     
 COMPASS            SB7    X2-1                                                            COMPASS    13640     A     
 COMPASS   PMACF2   BX4    X3-X6                                                           COMPASS    13641     A     
 COMPASS            SA3    A3+B1                                                           COMPASS    13642     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    13643     A     
 COMPASS            ZR     X4,PMACFN   IGNORE DUPLICATED NAME                              COMPASS    13644          I
          -CMP029 
 COMPASS            ZR     X4,PMACFER  IF DUPLICATED NAME                                  CMP029       196     A     
 COMPASS            PL     B7,PMACF2                                                       COMPASS    13645     A     
 COMPASS   PMACF3   SA4    =0RENDM                                                         COMPASS    13646     A     
 COMPASS            SX0    3REND       CHECK FOR ILLEGAL NAME                              COMPASS    13647     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 848    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    =0RLOCAL                                                        COMPASS    13648     A     
 COMPASS            IX0    X6-X0                                                           COMPASS    13649     A     
 COMPASS            BX3    X6-X3                                                           COMPASS    13650     A     
 COMPASS            ZR     X0,PMACFER  IF PARAMETER NAME IS END                            COMPASS    13651     A     
 COMPASS            ZR     X3,PMACFER  IF PARAMETER NAME IS LOCAL                          COMPASS    13652     A     
 COMPASS            SX0    3RIRP                                                           COMPASS    13653     A     
 COMPASS            BX4    X6-X4                                                           COMPASS    13654     A     
 COMPASS            IX0    X6-X0                                                           COMPASS    13655     A     
 COMPASS            MX3    12                                                              COMPASS    13656     A     
 COMPASS            BX3    X6*X3                                                           COMPASS    13657     A     
 COMPASS            ZR     X0,PMACFER  IF IRP                                              COMPASS    13658     A     
 COMPASS            ZR     X4,PMACFER  IF PARAMETER NAME IS ENDM                           COMPASS    13659     A     
 COMPASS            NZ     X3,PMACFER  IF PARAMETER NAME IS OVER 8 CHARS LONG              COMPASS    13660     A     
 COMPASS            SB7    X2-63                                                           COMPASS    13661     A     
 COMPASS            PL     B7,PMACFF   IF PARAMETER COUNT WILL EXCEED 63                   COMPASS    13662     A     
 COMPASS            SX7    X2+B1                                                           COMPASS    13663     A     
 COMPASS            SA6    RELVEC+63+B7 STORE FORMAL PARAMETER NAME                        COMPASS    13664     A     
 COMPASS            SA7    A2                                                              COMPASS    13665     A     
 COMPASS            EQ     PMACF                                                           COMPASS    13666     A     
 COMPASS                                                                                   COMPASS    13667     A     
 COMPASS   PMACFF   SX6    B1          POST OVERFLOW IF MORE THAN                          COMPASS    13668     A     
 COMPASS            SA6    FERR        63 FORMAL/LOCAL PARAMETERS                          COMPASS    13669     A     
 COMPASS            SA6    EFLG                                                            COMPASS    13670     A     
 COMPASS            EQ     PMACFN                                                          COMPASS    13671     A     
 COMPASS   PMACRO   SPACE  4                                                               COMPASS    13672     A     
 COMPASS  **        PMACRO - PROCESS MACRO DEFINITION (OPDEF ALSO).                        COMPASS    13673     A     
 COMPASS  *         ENTRY  (X0) = 0 IF MACRO.                                              COMPASS    13674     A     
 COMPASS  *                (X0) < 0 IF OPDEF.                                              COMPASS    13675     A     
 COMPASS  *                (X0) = 20000 IF MACROE.                                         COMPASS    13676     A     
 COMPASS  *         SCRATCH CELL USE EXPLAINED HERE...                                     COMPASS    13677     A     
 COMPASS  *                                                                                COMPASS    13678     A     
 COMPASS  *         P1TEMP   MACRO NAME.                                                   COMPASS    13679     A     
 COMPASS  *         P1TEMPA  PARAMETER COUNT.                                              COMPASS    13680     A     
 COMPASS  *         P1TEMPB  LOCAL PARAMETER COUNT.                                        COMPASS    13681     A     
 COMPASS  *         P1TEMPC  LOCATION ARGUMENT FLAG.                                       COMPASS    13682     A     
 COMPASS  *         P1TEMPD  REQUIRED PARAMETER COUNT AND FLAG.                            COMPASS    13683     A     
 COMPASS  *         P1TEMPE  BRACKET NAME.                                                 COMPASS    13684     A     
 COMPASS  *         OPADS    USED BY OPDEF TO RECORD FORMAT.                               COMPASS    13685     A     
 COMPASS                                                                                   COMPASS    13686     A     
 COMPASS                                                                                   COMPASS    13687     A     
 COMPASS   PMACRO   PS                 RETURN EXIT                                         COMPASS    13688     A     
 COMPASS            SA1    LOCSYM      SET MACRO NAME AND BRACKET NAME                     COMPASS    13689     A     
 COMPASS            BX6    X1                                                              COMPASS    13690     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS    13691     A     
 COMPASS            MX7    0                                                               COMPASS    13692     A     
 COMPASS            SA7    A6+B1       P1TEMPA     CLEAR PARAMETER COUNT                   COMPASS    13693     A     
 COMPASS            SA7    A7+B1       P1TEMPB     LOCAL PARAMETER COUNT                   COMPASS    13694     A     
 COMPASS            SA7    A7+B1       P1TEMPC                                             COMPASS    13695     A     
 COMPASS            SA7    A7+B1       P1TEMPD                                             COMPASS    13696     A     
 COMPASS            SA6    A7+B1       BRACKET TO P1TEMPE                                  COMPASS    13697     A     
 COMPASS            SA7    PUSHUP      CLEAR PUSHUP FLAG                                   COMPASS    13698     A     
 COMPASS            PL     X0,PMAC9    IF MACRO OR MACROE                                  COMPASS    13699     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 849    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    13700     A     
 COMPASS  *         OPDEF DEFINITIONS.                                                     COMPASS    13701     A     
 COMPASS                                                                                   COMPASS    13702     A     
 COMPASS            SA1    CARD        SCAN OPERATION SYNTAX                               COMPASS    13703     A     
 COMPASS            RJ     SOS                                                             COMPASS    13704     A     
 COMPASS            ZR     X6,PMACER   IF SYNTAX ERROR                                     COMPASS    13705     A     
 COMPASS            EQ     PMAC10                                                          COMPASS    13706     A     
 COMPASS                                                                                   COMPASS    13707     A     
 COMPASS  *         MACRO DEFINITION.                                                      COMPASS    13708     A     
 COMPASS                                                                                   COMPASS    13709     A     
 COMPASS   PMAC9    BX6    X0          MACROE FLAG                                         COMPASS    13710     A     
 COMPASS            SA6    P1TEMPC                                                         COMPASS    13711     A     
 COMPASS            MX7    59                                                              COMPASS    13712     A     
 COMPASS            SA7    P1TEMPD     FP COUNT SET TO -1                                  COMPASS    13713     A     
 COMPASS            NZ     X1,PMAC10   IF LOCSYM IS MACRO NAME                             COMPASS    13714     A     
 COMPASS            SX7    X0+B1                                                           COMPASS    13715     A     
 COMPASS            SA7    P1TEMPC                                                         COMPASS    13716     A     
 COMPASS            RJ     SCLIST      GET MACRO NAME                                      COMPASS    13717     A     
 COMPASS            SA1    CHAR                                                            CMP30       4242     A     
 COMPASS            SA6    P1TEMP      AND SAVE IT                                         COMPASS    13718     A     
 COMPASS            SA6    P1TEMPE                                                         COMPASS    13719     A     
 COMPASS            RJ     PMACF       GET LOCATION PARAMETER                              COMPASS    13720          I
          -CMP029 
 COMPASS            ZR     X6,PMACL    COMPLAIN IF NO MACRO NAME AT ALL                    COMPASS    13721          I
          -CMP30  
 COMPASS            SB7    X1-1R                                                           CMP30       4243     A     
 COMPASS            ZR     B7,PMACL    IF NO MACRO NAME OR NO FIRST PARAMETER              CMP30       4244     A     
 COMPASS   PMAC10   RJ     PMACF       GET PARAMETER                                       COMPASS    13722     A     
 COMPASS            SA1    CHAR        CHECK FOR END OF FIELD                              COMPASS    13723     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    13724     A     
 COMPASS            NZ     B7,PMAC10   KEEP GOING UNTIL END OF FIELD                       COMPASS    13725     A     
 COMPASS   PMAC21   SA1    P1TEMP                                                          COMPASS    13726     A     
 COMPASS            SX6    B1                                                              COMPASS    13727     A     
 COMPASS            SX0    3REND       CHECK FOR INVALID MACRO NAMES                       COMPASS    13728     A     
 COMPASS            SA2    =0RLOCAL    THOSE BEING...                                      COMPASS    13729     A     
 COMPASS            BX0    X1-X0       (BLANK)                                             COMPASS    13730     A     
 COMPASS            BX2    X1-X2       END                                                 COMPASS    13731     A     
 COMPASS            ZR     X0,PMACL    LOCAL                                               COMPASS    13732     A     
 COMPASS            SX0    3RIRP                                                           COMPASS    13733     A     
 COMPASS            BX0    X1-X0                                                           COMPASS    13734     A     
 COMPASS            ZR     X1,PMACL                                                        COMPASS    13735     A     
 COMPASS            ZR     X2,PMACL                                                        COMPASS    13736     A     
 COMPASS            MX2    12                                                              COMPASS    13737     A     
 COMPASS            BX2    X2*X1                                                           COMPASS    13738     A     
 COMPASS            ZR     X0,PMACL    IF IRP                                              COMPASS    13739     A     
 COMPASS            NZ     X2,PMACL    IF MORE THAN 8 CHARACTERS                           COMPASS    13740     A     
 COMPASS            RJ     TLUOP       LOOK UP MACRO NAME IN OP CODE TABLE                 COMPASS    13741     A     
 COMPASS            SX7    B0          CLEAR OUT POSSIBLE OP-CODE ERROR                    COMPASS    13742     A     
 COMPASS            SA7    OERR                                                            COMPASS    13743     A     
 COMPASS            ZR     X6,PMAC30   IF NOT IN TABLE                                     COMPASS    13744     A     
 COMPASS            SA3    IFCDGP      CHECK FOR DUPLICATE MACRO DEFINITION                COMPASS    13745     A     
 COMPASS            ZR     X3,PMAC22   IF ASSEMBLY MODE NOT YET KNOWN                      COMPASS    13746     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 850    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X6,PMAC22   OR OLD WAS PSEUDO OPERATION                         COMPASS    13747     A     
 COMPASS            AX6    57                                                              COMPASS    13748     A     
 COMPASS            SA3    MACHINE                                                         COMPASS    13749     A     
 COMPASS            SB7    X6                                                              COMPASS    13750     A     
 COMPASS            BX6    X6-X3                                                           COMPASS    13751     A     
 COMPASS            GT     B7,B1,PMAC22 AGAIN, IF OLD WAS PSEUDO-OPERATION                 COMPASS    13752     A     
 COMPASS            NZ     X6,PMAC30   OR FOR SAME MACHINE,                                COMPASS    13753     A     
 COMPASS   PMAC22   SX6    B1          POST DUPLICATION WARNING FLAG                       COMPASS    13754     A     
 COMPASS            SA6    EFLG                                                            COMPASS    13755     A     
 COMPASS            SA6    W3ERR                                                           COMPASS    13756     A     
 COMPASS   PMAC30   SA1    P1TEMPA     CHECK PARAMETER COUNT IF A FIXED                    COMPASS    13757     A     
 COMPASS            SA2    A1+B1       NUMBER WAS REQUIRED (OPDEF ONLY)                    COMPASS    13758     A     
 COMPASS            IX7    X1-X2                                                           COMPASS    13759     A     
 COMPASS            SA3    P1TEMPD                                                         COMPASS    13760     A     
 COMPASS            IX6    X7-X3                                                           COMPASS    13761     A     
 COMPASS            AX3    60                                                              COMPASS    13762     A     
 COMPASS            BX5    -X3*X6                                                          COMPASS    13763     A     
 COMPASS            NZ     X5,PMACER1  WRONG NUMBER OF PARAMETERS                          COMPASS    13764     A     
 COMPASS   PMAC31   SX6    B1                                                              COMPASS    13765     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS    13766     A     
 COMPASS            RJ     CWI         WRITE CARD                                          COMPASS    13767     A     
 COMPASS            RJ     INPUT1      READ NEXT ONE                                       COMPASS    13768     A     
 COMPASS            NZ     X1,PMAC200  IF PUSHUP OCCURRED                                  COMPASS    13769          I
          -CMP64G 
 COMPASS            NZ     X1,PMAC202  IF PUSHUP OCCURRED                                  CMP64G       257     A     
 COMPASS            RJ     SETUP                                                           COMPASS    13770     A     
 COMPASS            SA2    STYPE                                                           COMPASS    13771     A     
 COMPASS            SB7    X2-1R*                                                          COMPASS    13772     A     
 COMPASS            SX3    3REND                                                           COMPASS    13773     A     
 COMPASS            ZR     B7,PMAC31   IF COMMENT S CARD                                   COMPASS    13774     A     
 COMPASS            SA4    IOP                                                             COMPASS    13775     A     
 COMPASS            BX3    X3-X4                                                           COMPASS    13776     A     
 COMPASS            ZR     X3,END      IF END OP                                           COMPASS    13777     A     
 COMPASS            SX3    X4-2R                                                           COMPASS    13778     A     
 COMPASS            NZ     X3,PMAC310  IF OP-CODE                                          COMPASS    13779     A     
 COMPASS            SA3    LOCSYM                                                          COMPASS    13780     A     
 COMPASS            ZR     X3,PMAC31   IF NO LOC FIELD                                     COMPASS    13781     A     
 COMPASS   PMAC310  SA3    =0RLOCAL                                                        COMPASS    13782     A     
 COMPASS            BX4    X3-X4                                                           COMPASS    13783     A     
 COMPASS            NZ     X4,PMAC100  IF NOT LOCAL OP                                     COMPASS    13784     A     
 COMPASS   PMAC35   RJ     PMACF       GET LOCAL NAME                                      COMPASS    13785     A     
 COMPASS            SA1    CHAR                                                            COMPASS    13786     A     
 COMPASS            SA2    P1TEMPB                                                         COMPASS    13787     A     
 COMPASS            ZR     X6,PMAC36                                                       COMPASS    13788     A     
 COMPASS            SX6    X2+B1                                                           COMPASS    13789     A     
 COMPASS            SA6    A2          UP LOCAL COUNT                                      COMPASS    13790     A     
 COMPASS   PMAC36   SB7    X1-1R                                                           COMPASS    13791     A     
 COMPASS            ZR     B7,PMAC31   IF END OF FIELD                                     COMPASS    13792     A     
 COMPASS            EQ     PMAC35                                                          COMPASS    13793     A     
 COMPASS                                                                                   COMPASS    13794     A     
 COMPASS  *         PROCESS MACRO DEFINITION CARDS.                                        COMPASS    13795     A     
 COMPASS                                                                                   COMPASS    13796     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 851    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PMAC100  SA1    P1TEMP      MACRO NAME                                          COMPASS    13797          I
          -CMP64G 
 COMPASS            SA2    A1+B1       PARAMETER COUNT                                     COMPASS    13798          I
          -CMP64G 
 COMPASS            SA3    A2+B1       LOCAL COUNT                                         COMPASS    13799          I
          -CMP64G 
 COMPASS            LX3    6                                                               COMPASS    13800          I
          -CMP64G 
 COMPASS            BX2    X3+X2                                                           COMPASS    13801          I
          -CMP64G 
 COMPASS            LX2    1                                                               COMPASS    13802          I
          -CMP64G 
 COMPASS            SA3    A3+B1       LOCATION FLAG                                       COMPASS    13803          I
          -CMP64G 
 COMPASS            SA4    L.MACDEF                                                        COMPASS    13804          I
          -CMP64G 
 COMPASS            BX2    X2+X3                                                           COMPASS    13805          I
          -CMP64G 
 COMPASS            LX2    18                                                              COMPASS    13806          I
          -CMP64G 
 COMPASS            BX3    X4+X2                                                           COMPASS    13807          I
          -CMP64G 
 COMPASS            MX4    3                                                               COMPASS    13808          I
          -CMP64G 
 COMPASS            BX2    X4+X3                                                           COMPASS    13809          I
          -CMP64G 
 COMPASS            RJ     ENTOP                                                           COMPASS    13810          I
          -CMP64G 
 COMPASS            SA3    P1TEMPC     LOCATION FLAG                                       COMPASS    13811          I
          -CMP64G 
 COMPASS            LX3    -14                                                             COMPASS    13812          I
          -CMP64G 
 COMPASS            SA2    A3-B1       LOCAL COUNT                                         COMPASS    13813          I
          -CMP64G 
 COMPASS            PL     X3,PMAC120  IF NOT MACROE                                       COMPASS    13814          I
          -CMP64G 
 COMPASS            SA1    A2-B1       PARAMETER COUNT                                     COMPASS    13815          I
          -CMP64G 
 COMPASS            IX1    X1-X2                                                           COMPASS    13816          I
          -CMP64G 
 COMPASS            LX3    14                                                              COMPASS    13817          I
          -CMP64G 
 COMPASS            SX2    B1                                                              COMPASS    13818          I
          -CMP64G 
 COMPASS            BX2    X2*X3                                                           COMPASS    13819          I
          -CMP64G 
 COMPASS            IX1    X1-X2                                                           COMPASS    13820          I
          -CMP64G 
 COMPASS            MANAGE MACDEF,X1   STORE KEY NAMES                                     COMPASS    13821          I
          -CMP64G 
 COMPASS            SA1    P1TEMPA     PARAMETER COUNT                                     COMPASS    13822          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 852    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA4    P1TEMPC     LOCATION FLAG                                       COMPASS    13823          I
          -CMP64G 
 COMPASS            MX0    -1                                                              COMPASS    13824          I
          -CMP64G 
 COMPASS            BX0    -X0*X4                                                          COMPASS    13825          I
          -CMP64G 
 COMPASS            IX1    X1-X0                                                           COMPASS    13826          I
          -CMP64G 
 COMPASS            IX3    X2+X3                                                           COMPASS    13827          I
          -CMP64G 
 COMPASS            SA2    A1+B1       LOCAL COUNT                                         COMPASS    13828          I
          -CMP64G 
 COMPASS            IX1    X1-X2                                                           COMPASS    13829          I
          -CMP64G 
 COMPASS            IX3    X3-X1                                                           COMPASS    13830          I
          -CMP64G 
 COMPASS            SX2    RELVEC                                                          COMPASS    13831          I
          -CMP64G 
 COMPASS            IX2    X2+X0                                                           COMPASS    13832          I
          -CMP64G 
 COMPASS            RJ     MOVE                                                            COMPASS    13833          I
          -CMP64G 
 COMPASS   PMAC100  SA1    P1TEMPA     TOTAL PARAMETER COUNT                               CMP64G       258     A     
 COMPASS            SA2    A1+B1       LOCAL PARAMETER COUNT                               CMP64G       259     A     
 COMPASS            SA3    A2+B1       LOCATION ARGUMENT, MACROE FLAGS                     CMP64G       260     A     
 COMPASS            SA4    L.MACDEF                                                        CMP64G       261     A     
 COMPASS            LX5    X1,B1       FORM SECOND WORD OF OPTAB                           CMP64G       262     A     
 COMPASS            BX6    X5+X3       ENTRY AND SAVE IN P1TEMPB                           CMP64G       263     A     
 COMPASS            IX7    X1-X2                                                           CMP64G       264     A     
 COMPASS            LX2    25                                                              CMP64G       265     A     
 COMPASS            SX0    B1                                                              CMP64G       266     A     
 COMPASS            BX5    X2+X4                                                           CMP64G       267     A     
 COMPASS            LX6    18                                                              CMP64G       268     A     
 COMPASS            BX2    X0*X3                                                           CMP64G       269     A     
 COMPASS            IX1    X7-X2       KEYWORD COUNT                                       CMP64G       270     A     
 COMPASS            BX5    X6+X5                                                           CMP64G       271     A     
 COMPASS            MX4    3                                                               CMP64G       272     A     
 COMPASS            SX7    B0                                                              CMP64G       273     A     
 COMPASS            BX6    X4+X5                                                           CMP64G       274     A     
 COMPASS            SA6    A2                                                              CMP64G       275     A     
 COMPASS            LX3    59-13                                                           CMP64G       276     A     
 COMPASS            SA7    A3          CLEAR IRP SWITCH (P1TEMPC)                          CMP64G       277     A     
 COMPASS            PL     X3,PMAC120  IF NOT MACROE                                       CMP64G       278     A     
 COMPASS            LX1    18                                                              CMP64G       279     A     
 COMPASS            BX6    X1+X2       KEYWORD COUNT, LOC ARG FLAG                         CMP64G       280     A     
 COMPASS            AX1    18                                                              CMP64G       281     A     
 COMPASS            SA6    A3+B1       P1TEMPD                                             CMP64G       282     A     
 COMPASS            MANAGE MACDEF,X1                                                       CMP64G       283     A     
 COMPASS            SA1    P1TEMPD     STORE KEYWORD NAMES                                 CMP64G       284     A     
 COMPASS            IX4    X2+X3                                                           CMP64G       285     A     
 COMPASS            SX2    RELVEC+X1                                                       CMP64G       286     A     
 COMPASS            AX1    18                                                              CMP64G       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/28. 19.11.32.      PAGE 853    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX3    X4-X1                                                           CMP64G       288     A     
 COMPASS            RJ     MOVE                                                            CMP64G       289     A     
 COMPASS   PMAC120  SA1    =0RENDM     PROCESS END CARD                                    COMPASS    13834     A     
 COMPASS            RJ     PEC                                                             COMPASS    13835     A     
 COMPASS            RJ     PDC         PROCESS DEFINITION CARD                             COMPASS    13836     A     
 COMPASS            SA1    IOP                                                             COMPASS    13837     A     
 COMPASS            SX0    3RIRP                                                           COMPASS    13838     A     
 COMPASS            BX0    X1-X0                                                           COMPASS    13839     A     
 COMPASS            ZR     X0,PMAC185  IF IRP                                              COMPASS    13840          I
          -CMP64G 
 COMPASS            ZR     X0,PMAC140  IF IRP                                              CMP64G       290     A     
 COMPASS            PCARD  MACDEF      PACK CARD INTO MACRO DEFINITIONS                    COMPASS    13841     A     
 COMPASS            SA1    P1TEMPD     CHECK IF THIS WAS ENDM CARD                         COMPASS    13842     A     
 COMPASS            ZR     X1,PMAC190  NO                                                  COMPASS    13843     A     
 COMPASS            SX1    1RT                                                             COMPASS    13844          I
          -CPS028 
 COMPASS   PMAC130  SA3    P1TEMPC                                                S028 581 CPS028       429     A     
 COMPASS            SX1    1LU+0001B                                              S028 582 CPS028       430     A     
 COMPASS            ZR     X3,PMAC132  IF NOT IN RANGE OF VALID IRP               S028 583 CPS028       431     A     
 COMPASS            MI     X3,PMAC132                                             S028 584 CPS028       432     A     
 COMPASS            LX1    42          PACK TERMINAL U-CARD                       S028 585 CPS028       433     A     
 COMPASS            ADDWORD MACDEF                                                S028 586 CPS028       434     A     
 COMPASS   PMAC132  SX1    1RT         PACK T-CARD                                S028 587 CPS028       435     A     
 COMPASS            MX7    0                                                               COMPASS    13845     A     
 COMPASS            LX1    54                                                              COMPASS    13846     A     
 COMPASS            SA7    TXTFLG                                                          COMPASS    13847     A     
 COMPASS            ADDWORD MACDEF     ADD TERMINATOR TO MACRO DEFINITION                  COMPASS    13848     A     
 COMPASS            SA3    L.MACDEF    ADD WORD COUNT TO OPTAB ENTRY                       CMP64G       291          I
          -CPS028 
 COMPASS            SA3    L.MACDEF    TRY TO SAVE MACRO DEFINITION TEXT IN LCM   S028 589 CPS028       436     A     
 COMPASS            SA2    P1TEMPB                                                         CMP64G       292     A     
 COMPASS            SX1    X2                                                     S028 591 CPS028       437     A     
 COMPASS            IX1    X3-X1       WORD COUNT OF TEXT                         S028 592 CPS028       438     A     
 COMPASS            BX5    X1                                                              CP096A       441     A     
 COMPASS                                                                                   CP096A       442     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CP096A       443     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                  S028 593 CPS028       439     A     
 COMPASS            MI     X6,PMAC135  IF NO ROOM IN LCM                          S028 594 CPS028       440     A     
 COMPASS   RM       ELSE                                                                   CP096A       444     A     
 COMPASS            SA4    LCMPGM      CHECK SPACE BETWEEN MACROS AND SYMTAB               CP096A       445     A     
 COMPASS            SA2    O.SYMTAB                                                        CP096A       446     A     
 COMPASS            IX4    X4+X1       NEW LWA+1 OF MACRO TEXT                             CP096A       447     A     
 COMPASS            IX6    X2-X4                                                           CP096A       448     A     
 COMPASS            PL     X6,PMAC133  IF ENOUGH ROOM                                      CP096A       449     A     
 COMPASS            SX0    X4+777B                                                         CP096A       450     A     
 COMPASS            AX0    9           ROUND UP SPACE NEEDED                               CP096A       451     A     
 COMPASS            LX0    9                                                               CP096A       452     A     
 COMPASS            IX1    X0-X2                                                           CP096A       453     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CP096A       454     A     
 COMPASS            MI     X6,ILC      IF NO ROOM IN LCM                                   CP096A       455     A     
 COMPASS            SA2    O.SYMTAB                                                        CP096A       456     A     
 COMPASS            SA1    L.SYMTAB                                                        CP096A       457     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 854    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X0          SET NEW SYMBOL TABLE FWA                            CP096A       458     A     
 COMPASS            LX3    X0                                                              CP096A       459     A     
 COMPASS            SA6    A2                                                              CP096A       460     A     
 COMPASS            RJ     MVL         MOVE SYMBOL TABLE UP                                CP096A       461     A     
 COMPASS   PMAC133  BSS    0                                                               CP096A       462     A     
 COMPASS   RM       ENDIF                                                                  CP096A       463     A     
 COMPASS                                                                                   CP096A       464     A     
 COMPASS            SA2    P1TEMPB     CHANGE OPTAB ENTRY                         S028 595 CPS028       441     A     
 COMPASS            SX0    B1                                                     S028 596 CPS028       442     A     
 COMPASS            BX5    X1                                                     S028 597 CPS028       443          I
          -CP096A 
 COMPASS            LX0    37          SET LCM BIT                                S028 598 CPS028       444     A     
 COMPASS            SX7    X2                                                     S028 599 CPS028       445     A     
 COMPASS            IX4    X2-X7                                                  S028 600 CPS028       446     A     
 COMPASS            SA3    O.MACDEF                                               S028 601 CPS028       447     A     
 COMPASS            BX4    X4+X0                                                  S028 602 CPS028       448     A     
 COMPASS            IX1    X6-X1       LCM FWA OF TEXT                            S028 603 CPS028       449          I
          -CP096A 
 COMPASS            SA1    LCMPGM      LCM FWA OF TEXT                                     CP096A       465     A     
 COMPASS            IX2    X3+X7                                                  S028 604 CPS028       450     A     
 COMPASS            LX3    X5                                                     S028 605 CPS028       451     A     
 COMPASS            BX6    X4+X1                                                  S028 606 CPS028       452     A     
 COMPASS            SA6    A2                                                     S028 607 CPS028       453     A     
 COMPASS            IX6    X1+X3       UPDATE LWA+1 OF MACRO TEXT                          CP096A       466     A     
 COMPASS            SA6    A1                                                              CP096A       467     A     
 COMPASS            RJ     WLC         MOVE TEXT FROM MACDEF TO LCM               S028 608 CPS028       454     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                    S028 609 CPS028       455     A     
 COMPASS            SA7    L.MACDEF    DELETE TEXT FROM MACDEF                    S028 610 CPS028       456     A     
 COMPASS            BX1    X5                                                     S028 611 CPS028       457     A     
 COMPASS   PMAC135  SA2    P1TEMPB     ADD WORD COUNT TO OPTAB ENTRY              S028 612 CPS028       458     A     
 COMPASS            LX1    39                                                     S028 613 CPS028       459     A     
 COMPASS            BX2    X2+X1                                                  S028 614 CPS028       460     A     
 COMPASS            SA1    P1TEMP                                                          CMP64G       293     A     
 COMPASS            SX4    X2                                                              CMP64G       294          I
          -CPS028 
 COMPASS            IX4    X3-X4                                                           CMP64G       295          I
          -CPS028 
 COMPASS            LX4    39                                                              CMP64G       296          I
          -CPS028 
 COMPASS            BX2    X2+X4                                                           CMP64G       297          I
          -CPS028 
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CMP64G       298     A     
 COMPASS            SA1    PUSHUP                                                 S028 617 CPS028       461     A     
 COMPASS            NZ     X1,CTL105   IF PUSHUP OCCURRED                         S028 618 CPS028       462     A     
 COMPASS            EQ     PMACRO                                                          COMPASS    13849     A     
 COMPASS                                                                                   COMPASS    13850     A     
 COMPASS  *         PROCESS IRP.                                                           COMPASS    13851     A     
 COMPASS                                                                                   COMPASS    13852     A     
 COMPASS   PMAC185  SX1    1RU                                                             COMPASS    13853          I
          -CMP64G 
 COMPASS            LX1    54                                                              COMPASS    13854          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 855    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ADDWORD MACDEF                                                         COMPASS    13855          I
          -CMP64G 
 COMPASS            PCARD  MACDEF                                                          COMPASS    13856          I
          -CMP64G 
 COMPASS            SA1    P1TEMP                                                          COMPASS    13857          I
          -CMP64G 
 COMPASS            SX1    1RU*100B+X1                                                     COMPASS    13858          I
          -CMP64G 
 COMPASS            LX1    48                                                              COMPASS    13859          I
          -CMP64G 
 COMPASS            ADDWORD MACDEF                                                         COMPASS    13860          I
          -CMP64G 
 COMPASS   PMAC140  SA1    P1TEMPC                                                         CMP64G       299     A     
 COMPASS            NZ     X1,PMAC146  IF SECOND IRP OF A PAIR                             CMP64G       300     A     
 COMPASS            PCARD  MACDEF      FIRST OF A PAIR, PACK INTO MACDEF                   CMP64G       301     A     
 COMPASS            RJ     SETUP                                                           CMP64G       302     A     
 COMPASS            SA1    COL+1       CHECK FOR VALID ADDRESS FIELD                       CMP64G       303     A     
 COMPASS            SA1    CARD+X1                                                         CMP64G       304     A     
 COMPASS            SB7    X1-77B                                                          CMP64G       305     A     
 COMPASS            SA3    P1TEMPB                                                         CMP64G       306     A     
 COMPASS            NZ     B7,PMAC142  IF NOT A PARAMETER MARK                             CMP64G       307          I
          -CMP109 
 COMPASS            NZ     B7,PMAC190  IF NOT A PARAMETER MARK                             CMP109         1     A     
 COMPASS            AX3    25                                                              CMP64G       308     A     
 COMPASS            SA2    A3-B1                                                           CMP64G       309     A     
 COMPASS            MX0    -6                                                              CMP64G       310     A     
 COMPASS            BX4    -X0*X3                                                          CMP64G       311     A     
 COMPASS            IX2    X2-X4       NUMBER OF SUBSTITUTABLE PARAMETERS                  CMP64G       312     A     
 COMPASS            SA1    A1+B1                                                           CMP64G       313     A     
 COMPASS            NO                                                                     CMP64G       314     A     
 COMPASS            IX2    X2-X1                                                           CMP64G       315     A     
 COMPASS            ZR     X1,PMAC142  IF PARAMETER NUMBER IS ZERO                         CMP64G       316     A     
 COMPASS            MI     X2,PMAC142  OR TOO LARGE                                        CMP64G       317     A     
 COMPASS            SA3    A1+B1                                                           CMP64G       318     A     
 COMPASS            BX6    X1                                                              CMP64G       319     A     
 COMPASS            SB7    X3-1R                                                           CMP64G       320     A     
 COMPASS            NZ     B7,PMAC142  IF NEXT CHARACTER IS NOT BLANK                      CMP64G       321     A     
 COMPASS            SX1    1RU*100B    NO ERRORS                                           CMP64G       322     A     
 COMPASS            SA6    P1TEMPC     SET IRP SWITCH                                      CMP64G       323     A     
 COMPASS            BX1    X1+X6                                                           CMP64G       324     A     
 COMPASS            LX1    48          PACK U-CARD WITH PARAMETER                          CMP64G       325     A     
 COMPASS            ADDWORD MACDEF     NUMBER IN COLUMN 1                                  CMP64G       326     A     
 COMPASS            EQ     PMAC190                                                         CMP64G       327     A     
 COMPASS   PMAC142  SX6    B1          BAD IRP CARD                                        CMP64G       328     A     
 COMPASS            SX7    -B1         (P1TEMPC) = -1                                      CMP64G       329     A     
 COMPASS            SA6    AERR        SET ADDRESS ERROR                                   CMP64G       330     A     
 COMPASS            SA7    P1TEMPC                                                         CMP64G       331     A     
 COMPASS            SA6    EFLG                                                            CMP64G       332     A     
 COMPASS            RJ     WINTER      WRITE CARD AGAIN                                    CMP64G       333     A     
 COMPASS            EQ     PMAC190                                                         CMP64G       334     A     
 COMPASS   PMAC146  SX6    B0          SECOND IRP OF A PAIR                                CMP64G       335     A     
 COMPASS            SA6    A1          CLEAR IRP SWITCH                                    CMP64G       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/28. 19.11.32.      PAGE 856    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     X1,PMAC148  IF ERRORS IN FIRST IRP                              CMP64G       337     A     
 COMPASS            SX1    1LU+0001B   PACK U-CARD WITH COLON IN COLUMN 1                  CMP64G       338     A     
 COMPASS            LX1    42                                                              CMP64G       339     A     
 COMPASS            ADDWORD MACDEF                                                         CMP64G       340     A     
 COMPASS   PMAC148  PCARD  MACDEF      PACK TERMINAL IRP INTO MACDEF                       CMP64G       341     A     
 COMPASS                                                                                   COMPASS    13861     A     
 COMPASS  *         CONTINUE TO NEXT CARD.                                                 COMPASS    13862     A     
 COMPASS                                                                                   COMPASS    13863     A     
 COMPASS   PMAC190  RJ     INPUT1                                                          COMPASS    13864     A     
 COMPASS            NZ     X1,PMAC200  IF PUSHUP OCCURRED                                  COMPASS    13865     A     
 COMPASS            RJ     SETUP                                                           COMPASS    13866     A     
 COMPASS            EQ     PMAC120                                                         COMPASS    13867     A     
 COMPASS                                                                                   COMPASS    13868     A     
 COMPASS  *         ENTRY ON ERRONEOUS MACRO DEFINITION.                                   COMPASS    13869     A     
 COMPASS                                                                                   COMPASS    13870     A     
 COMPASS   PMACL    SX6    B1          NOTE BAD MACRO NAME                                 COMPASS    13871     A     
 COMPASS            SA6    EFLG                                                            COMPASS    13872     A     
 COMPASS            SA6    LERR                                                            COMPASS    13873     A     
 COMPASS            EQ     PMACER      AND THROW DEFINITION AWAY                           COMPASS    13874     A     
 COMPASS                                                                                   COMPASS    13875     A     
 COMPASS   PMACER1  SX6    B1          NOTE ARGUMENT COUNT ERROR                           COMPASS    13876     A     
 COMPASS            SA6    EFLG                                                            COMPASS    13877     A     
 COMPASS            SA6    W5ERR                                                           COMPASS    13878     A     
 COMPASS   PMACER   RJ     CWI                                                             COMPASS    13879     A     
 COMPASS            SX6    B1                                                              CMP27         22     A     
 COMPASS            SA6    TXTFLG                                                          CMP27         23     A     
 COMPASS            RJ     INPUT1                                                          COMPASS    13880     A     
 COMPASS            NZ     X1,PMAC201  IF PUSHUP OCCURRED                                  COMPASS    13881          I
          -CMP64G 
 COMPASS            NZ     X1,PMAC202  IF PUSHUP OCCURRED                                  CMP64G       342     A     
 COMPASS            RJ     SETUP                                                           COMPASS    13882     A     
 COMPASS            SA1    IOP                                                             COMPASS    13883     A     
 COMPASS            SA2    =0RENDM                                                         COMPASS    13884     A     
 COMPASS            SX0    0REND                                                           COMPASS    13885     A     
 COMPASS            SA3    LOCSYM                                                          COMPASS    13886     A     
 COMPASS            SA4    P1TEMPE                                                         COMPASS    13887     A     
 COMPASS            IX0    X1-X0                                                           COMPASS    13888     A     
 COMPASS            BX2    X1-X2                                                           COMPASS    13889     A     
 COMPASS            ZR     X0,END                                                          COMPASS    13890     A     
 COMPASS            NZ     X2,PMACER                                                       COMPASS    13891     A     
 COMPASS            IX4    X3-X4                                                           COMPASS    13892     A     
 COMPASS   +        ZR     X3,*+1                                                          COMPASS    13893     A     
 COMPASS            NZ     X4,PMACER                                                       COMPASS    13894     A     
 COMPASS            RJ     CWI                                                             COMPASS    13895     A     
 COMPASS            MX6    0                                                               COMPASS    13896     A     
 COMPASS            SA6    TXTFLG                                                          COMPASS    13897     A     
 COMPASS            EQ     PMACRO                                                          COMPASS    13898     A     
 COMPASS                                                                                   COMPASS    13899     A     
 COMPASS  *         ENTRY ON ILLEGAL NESTING OF MACROS.                                    COMPASS    13900     A     
 COMPASS                                                                                   COMPASS    13901     A     
 COMPASS   PMAC200  SX1    1RT                                                             COMPASS    13902          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 857    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PMAC200  SA3    P1TEMPC                                                         CMP64G       343          I
          -CPS028 
 COMPASS            SX1    1LU+0001B                                                       CMP64G       344          I
          -CPS028 
 COMPASS            ZR     X3,PMAC201  IF NOT IN RANGE OF VALID IRP                        CMP64G       345          I
          -CPS028 
 COMPASS            MI     X3,PMAC201                                                      CMP64G       346          I
          -CPS028 
 COMPASS            LX1    42          PACK TERMINAL U-CARD                                CMP64G       347          I
          -CPS028 
 COMPASS            ADDWORD MACDEF                                                         CMP64G       348          I
          -CPS028 
 COMPASS   PMAC201  SX1    1RT         PACK T-CARD                                         CMP64G       349          I
          -CPS028 
 COMPASS            LX1    54                                                              COMPASS    13903          I
          -CPS028 
 COMPASS            ADDWORD MACDEF                                                         COMPASS    13904          I
          -CPS028 
 COMPASS   PMAC201  SX6    B1          SET *E* ERROR                                       COMPASS    13905          I
          -CMP64G 
 COMPASS            SA3    L.MACDEF    ADD WORD COUNT TO OPTAB ENTRY                       CMP64G       350          I
          -CPS028 
 COMPASS            SA2    P1TEMPB                                                         CMP64G       351          I
          -CPS028 
 COMPASS            SA1    P1TEMP                                                          CMP64G       352          I
          -CPS028 
 COMPASS            SX4    X2                                                              CMP64G       353          I
          -CPS028 
 COMPASS            IX4    X3-X4                                                           CMP64G       354          I
          -CPS028 
 COMPASS            LX4    39                                                              CMP64G       355          I
          -CPS028 
 COMPASS            BX2    X2+X4                                                           CMP64G       356          I
          -CPS028 
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CMP64G       357          I
          -CPS028 
 COMPASS   PMAC200  SX6    B1                                                     S028 621 CPS028       463     A     
 COMPASS            SA6    EERR        SET *E* ERROR                              S028 622 CPS028       464     A     
 COMPASS            SA6    EFLG                                                   S028 623 CPS028       465     A     
 COMPASS            EQ     PMAC130     GO ENTER OPCODE TABLE                      S028 624 CPS028       466     A     
 COMPASS   PMAC202  SX6    B1          SET *E* ERROR                                       CMP64G       358     A     
 COMPASS            MX7    0                                                               CMP64G       359     A     
 COMPASS            SA6    EFLG                                                            COMPASS    13906     A     
 COMPASS            SA7    TXTFLG      CLEAR TEXT FLAG                                     CMP64G       360     A     
 COMPASS            SA6    EERR                                                            COMPASS    13907     A     
 COMPASS            RJ     CWI         CONDITIONALLY WRITE INTERMEDIATE                    COMPASS    13908          I
          -CMP64G 
 COMPASS            MX7    0           CLEAR TEXT FLAG                                     COMPASS    13909          I
          -CMP64G 
 COMPASS            SA7    TXTFLG                                                          COMPASS    13910          I
          -CMP64G 
 COMPASS            EQ     PMACRO      RETURN                                              COMPASS    13911          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 858    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS            EQ     CTL105      GO PROCESS NEXT STATEMENT                           CMP64G       361     A     
 COMPASS   PRS      SPACE  4                                                               COMPASS    13912     A     
 COMPASS  **        PRS - PRESET CONSTANTS.                                                COMPASS    13913     A     
 COMPASS                                                                                   COMPASS    13914     A     
 COMPASS                                                                                   COMPASS    13915     A     
 COMPASS   PRS      PS                 RETURN EXIT                                         COMPASS    13916     A     
 COMPASS            SB7    LCLP1       CLEAR OUT PASS 1 CELLS                              COMPASS    13917          I
          -CMP30  
 COMPASS            SX6    B0                                                              COMPASS    13918          I
          -CMP30  
 COMPASS            BX7    X6                                                              COMPASS    13919          I
          -CMP30  
 COMPASS            SA6    CLP1                                                            COMPASS    13920          I
          -CMP30  
 COMPASS   PRS1     SB7    B7-B1                                                           COMPASS    13921          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    13922          I
          -CMP30  
 COMPASS            NE     B7,B1,PRS1  LOOP                                                COMPASS    13923          I
          -CMP30  
 COMPASS            SX2    CLP1        CLEAR OUT PASS 1 CELLS                              CMP30       4245     A     
 COMPASS            SX3    CLP1+LCLP1                                                      CMP30       4246     A     
 COMPASS            RJ     CLS                                                             CMP30       4247     A     
 COMPASS            SA6    QUALMIC                                                         CMP30       4248     A     
 COMPASS            SA7    IFCNT                                                           COMPASS    13924     A     
 COMPASS            SA6    PSIM2       RESET FOR NO PPU PREFETCH CHECKING                  CPSA297       58     A     
 COMPASS            SA6    VWORD       RESET 180 PPU *CON* AND *VFD* CONTROL               CPSA288      215     A     
 COMPASS            SA6    VALID       VALID = 0                                           CMP30       4249     A     
 COMPASS            SX7    B1          SET PASS = 1                                        CPS038         1     A     
 COMPASS            SA7    PASS                                                            CPS038         2     A     
 COMPASS            SA1    =9R                                                             CMP30       4250     A     
 COMPASS            SX7    2R                                                              CMP30       4251     A     
 COMPASS            BX6    X1                                                              CMP30       4252     A     
 COMPASS            SA7    TARGET      TARGET = TWO BLANKS                                 CMP30       4253     A     
 COMPASS            SA6    HTYPE       HTYPE = NINE BLANKS                                 CMP30       4254     A     
 COMPASS            SX6    B1+B1                                                           COMPASS    13925     A     
 COMPASS            SA6    ORGCTR+1    SET RELOCATION OF * TO 2                            COMPASS    13926     A     
 COMPASS            SA6    LOCCTR+1                                                        COMPASS    13927     A     
 COMPASS            SX7    60                                                              COMPASS    13928     A     
 COMPASS            SX6    10                                                              COMPASS    13929     A     
 COMPASS            SA7    POSCTR      POSITION COUNTER = 60                               COMPASS    13930     A     
 COMPASS            SA6    NCHARS      NUMBER OF CHARACTERS PER WORD                       COMPASS    13931     A     
 COMPASS            SA7    LWORD       LENGTH OF COMPUTER WORD                             COMPASS    13932     A     
 COMPASS            SA6    NBASE       NOMINAL NUMERIC BASE = 10                           COMPASS    13933     A     
 COMPASS            SA6    MBASE       VFD BIT BASE = 10                                   COMPASS    13934     A     
 COMPASS            SX6    12                                                              CPSA281      301     A     
 COMPASS            SA6    PPMEMSZ     PP MEMORY SIZE (ADDRESS FITS IN 12 BITS)            CPSA281      302     A     
 COMPASS            SX6    1RD         SET BASE = *D*                                      COMPASS    13935          I
          -CMP30  
 COMPASS            SA6    ABASE                                                           COMPASS    13936          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 859    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    100B+1RD                                                        CMP30       4255     A     
 COMPASS            LX6    -6                                                              CMP30       4256     A     
 COMPASS            SA6    BASEMIC     SET BASE AND CODE MICROS = *D*                      CMP30       4257     A     
 COMPASS            SA6    CODEMIC                                                         CMP30       4258     A     
 COMPASS            SX7    -B1                                                             COMPASS    13937          I
          -CPS010 
 COMPASS            SA7    XR          SET XREF TO PAGE/LINE                               COMPASS    13938          I
          -CPS010 
 COMPASS            SX7    XRDV        SET XREF DEFAULT VALUE                              CPS010        74     A     
 COMPASS            SA7    XR                                                              CPS010        75     A     
 COMPASS            SB7    LLISTOPS/2  SET LIST OPTIONS                                    COMPASS    13939     A     
 COMPASS            SA1    LISTOPS                                                         COMPASS    13940     A     
 COMPASS   PRS2     UX6    X1                                                              COMPASS    13941     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    13942     A     
 COMPASS            SA6    A1+B1                                                           COMPASS    13943     A     
 COMPASS            SA1    A6+B1                                                           COMPASS    13944     A     
 COMPASS            NZ     B7,PRS2     LOOP                                                COMPASS    13945     A     
 COMPASS            RJ     SVF         SAVE LIST FLAGS                                     COMPASS    13946          I
          -CMP30  
 COMPASS            RJ     CPS         CLEAR PUSH-DOWN STACKS                              CMP30       4259     A     
 COMPASS            SX6    BUCKET                                                          CMP042       276     A     
 COMPASS            SA6    MAXCORE     SET MAXCORE = BUCKET                                CMP042       277     A     
 COMPASS            SA1    LCMSYS                                                          CP096A       468     A     
 COMPASS            BX7    X1          RESET FWA OF PROGRAM MACRO TEXT                     CP096A       469     A     
 COMPASS            SX6    X1-201B                                                         CP096A       470     A     
 COMPASS            SA7    LCMPGM                                                          CP096A       471     A     
 COMPASS            SA7    LCMEND                                                          CP096A       472     A     
 COMPASS   +        MI     X6,*+1      IF NO SYSTEXT TABLES IN LCM                         CP096A       473     A     
 COMPASS            SA7    ALCM        INITIALIZE LCM USED FOR THIS ASSEMBLY               CP096A       474     A     
 COMPASS                                                                                   CP096A       475     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CP096A       476     A     
 COMPASS            SA1    L.SYMTAB                                                        COMPASS    13947     A     
 COMPASS            SX2    2*NSYMT                                                         COMPASS    13948     A     
 COMPASS            IX1    X2-X1                                                           COMPASS    13949     A     
 COMPASS            MANAGE SYMTAB,X1   ALLOCATE INITIAL SYMBOL TABLE                       COMPASS    13950     A     
 COMPASS            IX3    X2+X3       CLEAR IT                                            COMPASS    13951     A     
 COMPASS            MX1    0                                                               COMPASS    13952          I
          -CMP30  
 COMPASS            RJ     PRESET                                                          COMPASS    13953          I
          -CMP30  
 COMPASS            RJ     CLS                                                             CMP30       4260     A     
 COMPASS   RM       ELSE                                                                   CP096A       477     A     
 COMPASS            SX6    X7+777B     ROUND UP TO LEAVE ROOM FOR MACROS                   CP096A       478     A     
 COMPASS            AX6    9                                                               CP096A       479     A     
 COMPASS            LX6    9                                                               CP096A       480     A     
 COMPASS            SX7    2*NSYMT     SET SYMBOL TABLE POINTERS                           CP096A       481     A     
 COMPASS            SA6    O.SYMTAB                                                        CP096A       482     A     
 COMPASS            SA7    L.SYMTAB                                                        CP096A       483     A     
 COMPASS            IX2    X6+X7       MAKE ROOM FOR SYMBOL TABLE                          CP096A       484     A     
 COMPASS            IX1    X2-X1                                                           CP096A       485     A     
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                           CP096A       486     A     
 COMPASS            MI     X6,ILC      IF NO ROOM IN LCM                                   CP096A       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/28. 19.11.32.      PAGE 860    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    O.SYMTAB    CLEAR INITIAL SYMBOL TABLE                          CP096A       488     A     
 COMPASS            SX3    X2+2*NSYMT                                                      CP096A       489     A     
 COMPASS            RJ     CLL                                                             CP096A       490     A     
 COMPASS   RM       ENDIF                                                                  CP096A       491     A     
 COMPASS                                                                                   CP096A       492     A     
 COMPASS            DATE   DATE                                                            COMPASS    13954     A     
 COMPASS            CLOCK  TIME                                                            COMPASS    13955     A     
 COMPASS            SA1    L.SYSMIC    STORE SYSTEM MICROS                                 COMPASS    13956          I
          -CMP30  
 COMPASS            JDATE  P1TEMPD                                                         CMP30       4261     A     
 COMPASS            SA1    LCMOPC                                                          CMP30       4262     A     
 COMPASS            ZR     X1,PRS2A    IF OPCODE TABLE NOT IN LCM                          CMP30       4263     A     
 COMPASS            AX1    30                                                              CMP30       4264     A     
 COMPASS            MANAGE OPTAB,X1    ALLOCATE TABLE IN SCM                               CMP30       4265     A     
 COMPASS            SA1    LCMOPC                                                          CMP30       4266     A     
 COMPASS            RJ     RLC         COPY TABLE TO SCM                                   CMP30       4267     A     
 COMPASS   PRS2A    SA1    LCMMAC                                                          CMP30       4268          I
          -CPS028 
 COMPASS            ZR     X1,PRS2B    IF SYSTEM MACROS NOT IN LCM                         CMP30       4269          I
          -CPS028 
 COMPASS            AX1    30                                                              CMP30       4270          I
          -CPS028 
 COMPASS            MANAGE MACDEF,X1   ALLOCATE TABLE IN SCM                               CMP30       4271          I
          -CPS028 
 COMPASS            SA1    LCMMAC                                                          CMP30       4272          I
          -CPS028 
 COMPASS            RJ     RLC         COPY TABLE TO SCM                                   CMP30       4273          I
          -CPS028 
 COMPASS   PRS2B    SA1    LCMMIC                                                          CMP30       4274          I
          -CPS028 
 COMPASS   PRS2A    SA1    LCMMIC                                                 S028 626 CPS028       467     A     
 COMPASS            ZR     X1,PRS2C    IF SYSTEM MICROS NOT IN LCM                         CMP30       4275     A     
 COMPASS            AX1    30                                                              CMP30       4276     A     
 COMPASS            MANAGE MICTAB,X1+B1 ALLOCATE TABLE IN SCM                              CMP30       4277     A     
 COMPASS            SA1    LCMMIC                                                          CMP30       4278     A     
 COMPASS            SX2    X2+B1       ALLOW SCRATCH WORD AT START OF TABLE                CMP30       4279     A     
 COMPASS            SX3    X3-1                                                            CMP30       4280     A     
 COMPASS            RJ     RLC         COPY TABLE TO SCM                                   CMP30       4281     A     
 COMPASS            EQ     PRS3                                                            CMP30       4282     A     
 COMPASS   PRS2C    SA1    L.SYSMIC    STORE SYSTEM MICROS                                 CMP30       4283     A     
 COMPASS            MANAGE MICTAB,X1+B1                                                    COMPASS    13957     A     
 COMPASS            SX1    X3-1                                                            COMPASS    13958     A     
 COMPASS            SX3    X2+B1                                                           COMPASS    13959     A     
 COMPASS            SA2    O.SYSMIC                                                        COMPASS    13960     A     
 COMPASS            ZR     X1,PRS3     IF TABLE EMPTY                                      COMPASS    13961     A     
 COMPASS            RJ     MOVE                                                            COMPASS    13962     A     
 COMPASS   PRS3     SA1    =0RDATE     STORE DATE AND TIME MICROS                          COMPASS    13963     A     
 COMPASS            SA4    DATE                                                            COMPASS    13964     A     
 COMPASS            BX6    X1                                                              COMPASS    13965     A     
 COMPASS            LX7    X4                                                              COMPASS    13966     A     
 COMPASS            SA6    LOCSYM                                                          COMPASS    13967     A     
 COMPASS            SA7    RELVEC+1                                                        COMPASS    13968          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 861    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP18  
 COMPASS            SA7    RELVEC                                                          CMP18        143     A     
 COMPASS            MX7    0                                                               COMPASS    13969     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    13970     A     
 COMPASS            SX6    3                                                               COMPASS    13971     A     
 COMPASS            RJ     EMT                                                             COMPASS    13972     A     
 COMPASS            SA1    =0RTIME                                                         COMPASS    13973     A     
 COMPASS            SA4    TIME                                                            COMPASS    13974     A     
 COMPASS            BX6    X1                                                              COMPASS    13975     A     
 COMPASS            LX7    X4                                                              COMPASS    13976     A     
 COMPASS            SA6    LOCSYM                                                          COMPASS    13977     A     
 COMPASS            SA7    RELVEC+1                                                        COMPASS    13978          I
          -CMP18  
 COMPASS            SA7    RELVEC                                                          CMP18        144     A     
 COMPASS            SX6    3                                                               COMPASS    13979     A     
 COMPASS            RJ     EMT                                                             COMPASS    13980     A     
 COMPASS            SA4    P1TEMPD                                                         CMP30       4284     A     
 COMPASS            SA1    =0RJDATE                                                        CMP30       4285     A     
 COMPASS            SX5    5                                                               CMP30       4286     A     
 COMPASS            LX4    30                                                              CMP30       4287     A     
 COMPASS            BX6    X1                                                              CMP30       4288     A     
 COMPASS            IX7    X4+X5                                                           CMP30       4289     A     
 COMPASS            SA6    LOCSYM                                                          CMP30       4290     A     
 COMPASS            SA7    RELVEC                                                          CMP30       4291     A     
 COMPASS            SX6    B1+B1                                                           CMP30       4292     A     
 COMPASS            RJ     EMT                                                             CMP30       4293     A     
 COMPASS            SA1    =0RMODLEVEL                                                     CMP30       4294     A     
 COMPASS            SA2    CP.MODL                                                         CMP30       4295     A     
 COMPASS            BX6    X1                                                              CMP30       4296     A     
 COMPASS            MX0    6                                                               CMP30       4297     A     
 COMPASS            SA6    LOCSYM                                                          CMP30       4298     A     
 COMPASS            ZR     X2,PRS4     IF NO *ML* ARGUMENT, USE JDATE                      CMP30       4299     A     
 COMPASS            SX7    0                                                               CMP30       4300     A     
 COMPASS   +        BX3    -X0*X2      COUNT CHARACTERS                                    CMP30       4301     A     
 COMPASS            SX7    X7+1                                                            CMP30       4302     A     
 COMPASS            AX0    6                                                               CMP30       4303     A     
 COMPASS            NZ     X3,*-1                                                          CMP30       4304     A     
 COMPASS            BX7    X2+X7                                                           CMP30       4305     A     
 COMPASS            SA7    RELVEC                                                          CMP30       4306     A     
 COMPASS   PRS4     SX6    B1+B1       DEFINE *MODLEVEL* MICRO                             CMP30       4307     A     
 COMPASS            RJ     EMT                                                             CMP30       4308     A     
 COMPASS            SA1    CP.PCOM                                                         CMP30       4309     A     
 COMPASS            SA2    A1+B1                                                           CMP30       4310     A     
 COMPASS            BX6    X1                                                              CMP30       4311     A     
 COMPASS            LX7    X2                                                              CMP30       4312     A     
 COMPASS            SA1    A2+B1                                                           CMP30       4313     A     
 COMPASS            SA2    =0RPCOMMENT                                                     CMP30       4314     A     
 COMPASS            SA6    RELVEC                                                          CMP30       4315     A     
 COMPASS            SA7    A6+B1                                                           CMP30       4316     A     
 COMPASS            BX6    X1                                                              CMP30       4317     A     
 COMPASS            LX7    X2                                                              CMP30       4318     A     
 COMPASS            SA6    A7+B1                                                           CMP30       4319     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 862    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    LOCSYM                                                          CMP30       4320     A     
 COMPASS            MX6    0                                                               CMP30       4321     A     
 COMPASS            SA6    A6+B1                                                           CMP30       4322     A     
 COMPASS            SX6    5                                                               CMP30       4323     A     
 COMPASS            RJ     EMT                                                             CMP30       4324     A     
 COMPASS            SA1    DATE        STORE DATE AND TIME IN PREFIX TABLE                 CMP30       4325     A     
 COMPASS            SA2    TIME                                                            CMP30       4326     A     
 COMPASS            MX0    54                                                              CMP30       4327     A     
 COMPASS            LX1    6                                                               CMP30       4328     A     
 COMPASS            LX2    6                                                               CMP30       4329     A     
 COMPASS            BX3    X0*X1                                                           CMP30       4330     A     
 COMPASS            BX4    X0*X2                                                           CMP30       4331     A     
 COMPASS            IX5    X1-X3                                                           CMP30       4332     A     
 COMPASS            BX6    X2-X4                                                           CMP30       4333     A     
 COMPASS            BX6    X3+X6                                                           CMP30       4334     A     
 COMPASS            IX7    X4+X5                                                           CMP30       4335     A     
 COMPASS            SA6    DPBA+2                                                          CMP30       4336     A     
 COMPASS            SA7    A6+B1                                                           CMP30       4337     A     
 COMPASS            SA1    =8R'?000000 INITIALIZE INVENTED SYMBOLS                         COMPASS    13981     A     
 COMPASS            SA2    RJY         INITIALIZE SCAN JUMP                                COMPASS    13982     A     
 COMPASS            LX6    X2                                                              COMPASS    13983     A     
 COMPASS            BX7    X1                                                              COMPASS    13984     A     
 COMPASS            SA6    SCANEV                                                          COMPASS    13985     A     
 COMPASS            SA7    INVENT                                                          COMPASS    13986     A     
 COMPASS            SX6    COMCOL                                                          COMPASS    13987     A     
 COMPASS            SA6    CCOL                                                            COMPASS    13988     A     
 COMPASS            SA1    =1H                                                             COMPASS    13989     A     
 COMPASS            SX7    B1          SET PASS NUMBER                                     COMPASS    13990          I
          -CPS038 
 COMPASS            SA7    PASS                                                            COMPASS    13991          I
          -CPS038 
 COMPASS            SX2    TITBUF+1                                                        COMPASS    13992     A     
 COMPASS            SX3    TITBUF+TITBUFL+1                                                COMPASS    13993     A     
 COMPASS            RJ     PRESET                                                          COMPASS    13994     A     
 COMPASS            SX1    55B                                                             COMPASS    13995          I
          -CMP20  
 COMPASS            SX1    1R          CLEAR STRING BUFFER                                 CMP20        381     A     
 COMPASS            SX2    CARD                                                            COMPASS    13996     A     
 COMPASS            SX3    SEQ                                                             COMPASS    13997     A     
 COMPASS            RJ     PRESET                                                          COMPASS    13998     A     
 COMPASS            SX1    0                                                               COMPASS    13999          I
          -CMP30  
 COMPASS            SX2    SEQ                                                             COMPASS    14000     A     
 COMPASS            SX3    SEQ+2*NCARDS                                                    COMPASS    14001     A     
 COMPASS            RJ     PRESET                                                          COMPASS    14002          I
          -CMP30  
 COMPASS            RJ     CLS                                                             CMP30       4338     A     
 COMPASS            RJ     RCD         RESTORE CHARACTER DATA                              CPS011        73     A     
 COMPASS            EQ     PRS         RETURN                                              COMPASS    14003     A     
 COMPASS   PTC      SPACE  4                                                               COMPASS    14004          I
          -CMP24  
 COMPASS  **        PTC - PACK TEXT CARD.                                                  COMPASS    14005          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 863    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS                                                                                   COMPASS    14006          I
          -CMP24  
 COMPASS                                                                                   COMPASS    14007          I
          -CMP24  
 COMPASS   PTC      PS                 RETURN EXIT                                         COMPASS    14008          I
          -CMP24  
 COMPASS            MX0    48                                                              COMPASS    14009          I
          -CMP24  
 COMPASS            MX4    54                                                              COMPASS    14010          I
          -CMP24  
 COMPASS            SA3    O.LASTAB                                                        COMPASS    14011          I
          -CMP24  
 COMPASS            SA2    L.LASTAB                                                        COMPASS    14012          I
          -CMP24  
 COMPASS            SA1    VALUES                                                          COMPASS    14013          I
          -CMP24  
 COMPASS            IX2    X3+X2                                                           COMPASS    14014          I
          -CMP24  
 COMPASS            MX3    42                                                              COMPASS    14015          I
          -CMP24  
 COMPASS            SB6    X2                                                              COMPASS    14016          I
          -CMP24  
 COMPASS            SB7    -14                                                             COMPASS    14017          I
          -CMP24  
 COMPASS            SX6    1R          SET STYPE                                           COMPASS    14018          I
          -CMP24  
 COMPASS   PTC1     BX7    X4*X1                                                           COMPASS    14019          I
          -CMP24  
 COMPASS            BX7    X6+X7                                                           COMPASS    14020          I
          -CMP24  
 COMPASS            LX7    54                                                              COMPASS    14021          I
          -CMP24  
 COMPASS            BX6    -X4*X1                                                          COMPASS    14022          I
          -CMP24  
 COMPASS   +        BX1    -X0*X1                                                          COMPASS    14023          I
          -CMP24  
 COMPASS            ZR     X1,*+1      IF END OF INPUT LINE                                COMPASS    14024          I
          -CMP24  
 COMPASS            SA1    A1+B1                                                           COMPASS    14025          I
          -CMP24  
 COMPASS            SA7    B6+B7                                                           COMPASS    14026          I
          -CMP24  
 COMPASS            SB7    B7+B1                                                           COMPASS    14027          I
          -CMP24  
 COMPASS            BX5    -X3*X7                                                          COMPASS    14028          I
          -CMP24  
 COMPASS   +        ZR     X5,*+1      IF END OF PACKED LINE                               COMPASS    14029          I
          -CMP24  
 COMPASS            NZ     B7,PTC1     LOOP                                                COMPASS    14030          I
          -CMP24  
 COMPASS            MANAGE LASTAB,B7+14                                                    COMPASS    14031          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 864    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            EQ     PTC         RETURN                                              COMPASS    14032          I
          -CMP24  
 COMPASS   PGO      SPACE  4                                                               CMP6          34     A     
 COMPASS  **        PGO - PURGE OPCODE ENTRY.                                              CMP6          35     A     
 COMPASS  *         ENTRY  (X1) = ENTRY NAME.                                              CMP6          36     A     
 COMPASS                                                                                   CMP6          37     A     
 COMPASS                                                                                   CMP6          38     A     
 COMPASS   PGO2     MX7    0           CLEAR OPCODE ERROR                                  CMP6          39     A     
 COMPASS            SA7    OERR                                                            CMP6          40     A     
 COMPASS                                                                                   CMP6          41     A     
 COMPASS   PGO      PS                 RETURN EXIT                                         CMP6          42     A     
 COMPASS            ZR     X1,PGO      RETURN IF NO OPCODE                                 CMP6          43     A     
 COMPASS            RJ     TLUOP                                                           CMP6          44     A     
 COMPASS            ZR     X6,PGO2     IF NO MACRO                                         CMP6          45     A     
 COMPASS            SA1    A2-B1       FETCH LINK                                          CMP6          46     A     
 COMPASS            MX0    12                                                              CMP6          47     A     
 COMPASS            SA5    O.OPTAB                                                         CMP6          48     A     
 COMPASS            BX4    X0*X1                                                           CMP6          49     A     
 COMPASS            ZR     X4,PGO1     IF NO LINK                                          CMP6          50     A     
 COMPASS            LX4    13                                                              CMP6          51     A     
 COMPASS            IX5    X5+X4                                                           CMP6          52     A     
 COMPASS            SX4    X5+2*NOPCT-2                                                    CMP6          53     A     
 COMPASS            SA3    X4          FETCH LINKED ENTRY                                  CMP6          54     A     
 COMPASS            SA4    A3+B1                                                           CMP6          55     A     
 COMPASS            SA6    A4          INTERCHANGE ENTRIES                                 CMP6          56     A     
 COMPASS            BX7    X1                                                              CMP6          57     A     
 COMPASS            SA7    A3                                                              CMP6          58     A     
 COMPASS            BX6    X3                                                              CMP6          59     A     
 COMPASS            LX7    X4                                                              CMP6          60     A     
 COMPASS            SA6    A1                                                              CMP6          61     A     
 COMPASS            SA7    A2                                                              CMP6          62     A     
 COMPASS            EQ     PGO2        EXIT                                                CMP6          63     A     
 COMPASS   PGO1     SX6    A1          SET OPCODE INDEX                                    CMP6          64     A     
 COMPASS            IX6    X6-X5                                                           CMP6          65     A     
 COMPASS            SA6    P1TEMPA                                                         CMP6          66     A     
 COMPASS            MANAGE OPTAB,2                                                         CMP6          67     A     
 COMPASS            SA1    P1TEMPA                                                         CMP6          68     A     
 COMPASS            IX1    X2+X1                                                           CMP6          69     A     
 COMPASS            IX5    X2+X3                                                           CMP6          70     A     
 COMPASS            SA1    X1          MOVE ENTRY TO END OF TABLE                          CMP6          71     A     
 COMPASS            SA2    A1+B1                                                           CMP6          72     A     
 COMPASS            MX6    0                                                               CMP6          73     A     
 COMPASS            SA6    A1                                                              CMP6          74     A     
 COMPASS            SA6    A2                                                              CMP6          75     A     
 COMPASS            BX6    X1                                                              CMP6          76     A     
 COMPASS            LX7    X2                                                              CMP6          77     A     
 COMPASS            SA6    X5-2                                                            CMP6          78     A     
 COMPASS            SA7    A6+B1                                                           CMP6          79     A     
 COMPASS            EQ     PGO2        EXIT                                                CMP6          80     A     
 COMPASS   PUSHDOWN SPACE  4                                                               COMPASS    14033     A     
 COMPASS  **        PUSHDOWN - PUSH DOWN RECURSION STACK.                                  COMPASS    14034     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 865    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         ENTRY  (X1) = BYTE POINTER.                                            COMPASS    14035     A     
 COMPASS  *                (X2) = TYPE OF STACK ENTRY.                                     COMPASS    14036     A     
 COMPASS  *                (X3) = DUPCOUNT,LASTAB, OR RASTAB.                              COMPASS    14037          I
          -CPS004 
 COMPASS  *                (X3) = MARGS / RASTAB / LASTAB RESET PTR, OR DUP COUNT.S004  66 CPS004        43     A     
 COMPASS  *                (X4) = NAME.                                                    COMPASS    14038     A     
 COMPASS  *                (X5) = DUPTAB RESET QUANITY.                                    COMPASS    14039          I
          -CPS004 
 COMPASS  *                (X5) = MARDIS OR DUPTAB RESET POINTER.                 S004  68 CPS004        44     A     
 COMPASS  *         EXIT   TO CTL100 WITH STACK, TEXT TABLES, AND TXTFLG          S004  69 CPS004        45     A     
 COMPASS  *                CLEARED, IF RECURSION LIMIT EXCEEDED.                  S004  70 CPS004        46     A     
 COMPASS                                                                                   COMPASS    14040     A     
 COMPASS                                                                                   COMPASS    14041     A     
 COMPASS   PUSHDOWN PS                 RETURN EXIT                                         COMPASS    14042     A     
 COMPASS            BX6    X1          STORE ENTRY PARAMETERS                              COMPASS    14043     A     
 COMPASS            LX7    X2                                                              COMPASS    14044     A     
 COMPASS            SA6    PUSHDT                                                          COMPASS    14045     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    14046     A     
 COMPASS            BX6    X3                                                              COMPASS    14047     A     
 COMPASS            LX7    X4                                                              COMPASS    14048     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    14049     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    14050     A     
 COMPASS            BX6    X5                                                              COMPASS    14051     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    14052     A     
 COMPASS            SA1    L.STACK                                                S004  72 CPS004        47     A     
 COMPASS            SB7    X1-4*"LIMRECUR"                                        S004  73 CPS004        48     A     
 COMPASS            PL     B7,PUD3     IF RECURSION LIMIT EXCEEDED                S004  74 CPS004        49     A     
 COMPASS            MANAGE STACK,4     GET 4 WORDS FOR THE STACK                           COMPASS    14053     A     
 COMPASS            SB7    X3-4                                                            COMPASS    14054          I
          -CMP24  
 COMPASS            SX1    X3                                                              CMP24        157     A     
 COMPASS            SB3    X3-4                                                            CMP24        158     A     
 COMPASS            AX1    2           RECURSION LEVEL = L.STACK / 4                       CMP24        159     A     
 COMPASS            RJ     CONDEC      CONVERT TO DECIMAL                                  CMP24        160     A     
 COMPASS            SA3    PUSHDT      RECLAIM BYTE WORD                                   COMPASS    14055     A     
 COMPASS            BX7    X3                                                              COMPASS    14056          I
          -CMP24  
 COMPASS            SB2    -B2                                                             CMP24        161     A     
 COMPASS            SX4    1R.-1R                                                          CMP24        162     A     
 COMPASS            SA2    O.STACK                                                         CMP24        163     A     
 COMPASS            AX4    X4,B2                                                           CMP24        164     A     
 COMPASS            SB2    54+B2                                                           CMP24        165     A     
 COMPASS            MX7    42                                                              CMP24        166     A     
 COMPASS            IX6    X6+X4                                                           CMP24        167     A     
 COMPASS            LX6    X6,B2                                                           CMP24        168     A     
 COMPASS            BX7    X7*X6                                                           CMP24        169     A     
 COMPASS            BX7    X7+X3                                                           CMP24        170          I
          -CPS004 
 COMPASS            MX6    0                                                               COMPASS    14057          I
          -CPS004 
 COMPASS            SA7    B7+X2       STORE IN STACK                                      COMPASS    14058          I
          -CMP24  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 866    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    B3+X2       STORE FIRST WORD OF STACK ENTRY                     CMP24        171          I
          -CPS004 
 COMPASS            BX6    X7+X3                                                  S004  77 CPS004        50     A     
 COMPASS            SA6    X2+B3       STORE FIRST WORD OF STACK ENTRY            S004  78 CPS004        51     A     
 COMPASS            SB6    LFLG-1      PACK AWAY MODE INDICATORS                           COMPASS    14059     A     
 COMPASS            SA5    SYSFLG                                                          COMPASS    14060     A     
 COMPASS            MX6    0                                                      S004  80 CPS004        52     A     
 COMPASS   PUSHDN1  LX6    1                                                               COMPASS    14061     A     
 COMPASS            BX6    X6+X5                                                           COMPASS    14062     A     
 COMPASS            SA5    A5+B1                                                           COMPASS    14063     A     
 COMPASS            SB6    B6-B1                                                           COMPASS    14064     A     
 COMPASS            PL     B6,PUSHDN1                                                      COMPASS    14065     A     
 COMPASS            LX6    18                                                              COMPASS    14066     A     
 COMPASS            SA3    A3+B1       STACK ENTRY TYPE                           S004  82 CPS004        53     A     
 COMPASS            SA5    L.MARGS                                                         COMPASS    14067     A     
 COMPASS            SA4    L.MARDIS                                                        COMPASS    14068     A     
 COMPASS            BX6    X5+X6                                                           COMPASS    14069          I
          -CPS004 
 COMPASS            SB7    X3                                                     S004  84 CPS004        54     A     
 COMPASS            NE     B7,B1,PUD4  IF NOT MACRO/OPDEF CALL                    S004  85 CPS004        55     A     
 COMPASS            SA5    A3+B1                                                  S004  86 CPS004        56     A     
 COMPASS            SA4    PUSHDT+4                                               S004  87 CPS004        57     A     
 COMPASS            MX7    0                                                      S004  88 CPS004        58     A     
 COMPASS            SA7    A5                                                     S004  89 CPS004        59     A     
 COMPASS            SA7    A4                                                     S004  90 CPS004        60     A     
 COMPASS   PUD4     BX6    X5+X6                                                  S004  91 CPS004        61     A     
 COMPASS            LX6    18                                                              COMPASS    14070     A     
 COMPASS            BX6    X4+X6                                                           COMPASS    14071     A     
 COMPASS            SA3    A3+B1                                                           COMPASS    14072          I
          -CPS004 
 COMPASS            LX3    56                                                              COMPASS    14073     A     
 COMPASS            BX6    X6+X3                                                           COMPASS    14074     A     
 COMPASS            SA6    A7+B1       STORE SECOND WORD                                   COMPASS    14075          I
          -CPS004 
 COMPASS            SA6    A6+B1       STORE SECOND WORD                          S004  94 CPS004        62     A     
 COMPASS            SA4    A3+B1       RECLAIM DUP COUNT                                   COMPASS    14076     A     
 COMPASS            SA3    A4+B1       RECLAIM NEST NAME                                   COMPASS    14077     A     
 COMPASS            SA5    A3+B1       RECLAIM DUP RESET QUANTITY                          COMPASS    14078     A     
 COMPASS            LX4    18                                                              COMPASS    14079     A     
 COMPASS            IX6    X5+X4                                                           COMPASS    14080     A     
 COMPASS            SA6    A6+B1       STORE DUP CONTROL                                   COMPASS    14081     A     
 COMPASS            SA2    AMODE                                                           COMPASS    14082          I
          -CMP24  
 COMPASS            MX0    18                                                              COMPASS    14083          I
          -CMP24  
 COMPASS            SX1    1R                                                              COMPASS    14084     A     
 COMPASS            SB6    12                                                              COMPASS    14085          I
          -CMP24  
 COMPASS            BX7    -X0*X3                                                          COMPASS    14086          I
          -CMP24  
 COMPASS            NZ     X2,PUD2     IF A-MODE                                           COMPASS    14087          I
          -CMP24  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 867    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX0    12                                                              COMPASS    14088     A     
 COMPASS            SB6    -6                                                              COMPASS    14089          I
          -CMP24  
 COMPASS            BX7    -X0*X3                                                          COMPASS    14090     A     
 COMPASS   PUD2     LX7    6           POSITION AND FILL NAME                              COMPASS    14091     A     
 COMPASS            BX3    X0*X7                                                           COMPASS    14092     A     
 COMPASS            NZ     X3,*+2      IF FILLED                                           COMPASS    14093          I
          -CMP24  
 COMPASS   +        BX7    X7+X1                                                           COMPASS    14094          I
          -CMP24  
 COMPASS            LX7    6                                                               COMPASS    14095          I
          -CMP24  
 COMPASS            BX3    X0*X7                                                           COMPASS    14096          I
          -CMP24  
 COMPASS   +        ZR     X3,*-1                                                          COMPASS    14097          I
          -CMP24  
 COMPASS            LX7    X7,B6       ADJUST NAME                                         COMPASS    14098          I
          -CMP24  
 COMPASS            IX7    X7+X1                                                           CMP24        172     A     
 COMPASS            ZR     X3,PUD2                                                         CMP24        173     A     
 COMPASS            AX7    6                                                               CMP24        174     A     
 COMPASS            SA7    A6+B1       STORE NEST NAME                                     COMPASS    14099     A     
 COMPASS            EQ     PUSHDOWN    AND QUIT                                            COMPASS    14100     A     
 COMPASS                                                                          S004  96 CPS004        63     A     
 COMPASS  *         RECURSION LIMIT EXCEEDED.                                     S004  97 CPS004        64     A     
 COMPASS                                                                          S004  98 CPS004        65     A     
 COMPASS   PUD3     RJ     ASU         ACCUMULATE STORAGE USED                    S004  99 CPS004        66     A     
 COMPASS            MX6    0                                                      S004 100 CPS004        67     A     
 COMPASS            SX7    B0                                                     S004 101 CPS004        68     A     
 COMPASS            SA6    L.STACK     CLEAR ALL SOURCE PUSHDOWN TABLES           S004 102 CPS004        69     A     
 COMPASS            SA7    L.MARDIS                                               S004 103 CPS004        70     A     
 COMPASS            SA6    L.MARGS                                                S004 104 CPS004        71     A     
 COMPASS            SA7    L.DUPTAB                                               S004 105 CPS004        72     A     
 COMPASS            SA6    L.RASTAB                                               S004 106 CPS004        73     A     
 COMPASS            SA7    L.LASTAB                                               S004 107 CPS004        74     A     
 COMPASS            SA6    L.ECHTAB                                               S004 108 CPS004        75     A     
 COMPASS            SA7    TXTFLG      CLEAR TEXT FLAG                            S004 109 CPS004        76     A     
 COMPASS            JP     CTL100      GO READ NEXT SOURCE CARD                   S004 110 CPS004        77     A     
 COMPASS                                                                                   COMPASS    14101     A     
 COMPASS   PUSHDT   BSS    5           TEMPORARY STORAGE                                   COMPASS    14102     A     
 COMPASS   PUSHUP   SPACE  4                                                               COMPASS    14103     A     
 COMPASS  **        PUSHUP - PUSH UP RECURSION STACK.                                      COMPASS    14104     A     
 COMPASS                                                                                   COMPASS    14105     A     
 COMPASS                                                                                   COMPASS    14106     A     
 COMPASS   PUSHUP   PS                 RETURN EXIT                                         COMPASS    14107     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       278     A     
 COMPASS            SA5    L.STACK                                                         COMPASS    14108     A     
 COMPASS            SA2    O.STACK                                                         COMPASS    14109     A     
 COMPASS            SX6    X5-4                                                            COMPASS    14110     A     
 COMPASS            IX3    X6+X2                                                           COMPASS    14111     A     
 COMPASS            SA2    X3+B1                                                           COMPASS    14112     A     
 COMPASS            MX0    59                                                              COMPASS    14113     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 868    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A5          RESET STACK SIZE                                    COMPASS    14114     A     
 COMPASS            AX2    36                                                              COMPASS    14115     A     
 COMPASS            SB7    LFLG-1                                                          COMPASS    14116     A     
 COMPASS   PUSHUP1  BX6    -X0*X2      STORE MODE FLAGS                                    COMPASS    14117     A     
 COMPASS            SA6    SYSFLG+B7                                                       COMPASS    14118     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    14119     A     
 COMPASS            AX2    1                                                               COMPASS    14120     A     
 COMPASS            PL     B7,PUSHUP1                                                      COMPASS    14121     A     
 COMPASS            AX2    20-LFLG                                                         COMPASS    14122     A     
 COMPASS            SB7    X2                                                              COMPASS    14123     A     
 COMPASS            JP     *+B7                                                            COMPASS    14124     A     
 COMPASS                                                                                   COMPASS    14125     A     
 COMPASS   +        EQ     PUSHUP2     MACRO                                               COMPASS    14126     A     
 COMPASS   +        EQ     PUSHUP3     DUPTAB                                              COMPASS    14127     A     
 COMPASS   +        EQ     PUSHUP4     RMT                                                 COMPASS    14128     A     
 COMPASS   +        EQ     PUSHUP5     XTEXT                                               COMPASS    14129     A     
 COMPASS   +        SA3    A2+1        ECHO                                                COMPASS    14130     A     
 COMPASS            AX3    18                                                              COMPASS    14131     A     
 COMPASS            SX6    X3                                                              COMPASS    14132     A     
 COMPASS            SA6    L.ECHTAB                                                        COMPASS    14133     A     
 COMPASS   PUSHUP2  SA2    A2                                                              COMPASS    14134     A     
 COMPASS            SX6    X2                                                              COMPASS    14135     A     
 COMPASS            AX2    18                                                              COMPASS    14136     A     
 COMPASS            SX7    X2                                                              COMPASS    14137     A     
 COMPASS            SA6    L.MARDIS                                                        COMPASS    14138     A     
 COMPASS            SA7    L.MARGS                                                         COMPASS    14139     A     
 COMPASS            NE     B7,B1,PUSHUP  IF NOT A MACRO                           S028 628 CPS028       468     A     
 COMPASS            SA3    X3                                                     S028 629 CPS028       469     A     
 COMPASS            SA2    L.MACDEF                                               S028 630 CPS028       470     A     
 COMPASS            SA1    O.MACDEF                                               S028 631 CPS028       471     A     
 COMPASS            SB6    X3                                                     S028 632 CPS028       472     A     
 COMPASS            SB7    X2                                                     S028 633 CPS028       473     A     
 COMPASS            NE     B6,B7,PUSHUP  IF NOT AT END OF MACDEF TABLE            S028 634 CPS028       474     A     
 COMPASS            SB7    B7-B1                                                  S028 635 CPS028       475     A     
 COMPASS            SA3    X1+B7                                                  S028 636 CPS028       476     A     
 COMPASS            AX3    12          EXTRACT TEXT WORD COUNT FROM               S028 637 CPS028       477     A     
 COMPASS            SX1    X3          BITS 29-12 OF T-CARD WORD                  S028 638 CPS028       478     A     
 COMPASS            IX6    X2-X1                                                  S028 639 CPS028       479     A     
 COMPASS            SA6    A2          DELETE TEXT FROM MACDEF TABLE              S028 640 CPS028       480     A     
 COMPASS            EQ     PUSHUP                                                          COMPASS    14140     A     
 COMPASS   PUSHUP3  SA2    A2+1                                                            COMPASS    14141     A     
 COMPASS            SX6    X2                                                              COMPASS    14142     A     
 COMPASS            SA6    L.DUPTAB                                                        COMPASS    14143     A     
 COMPASS            EQ     PUSHUP                                                          COMPASS    14144     A     
 COMPASS   PUSHUP4  SA2    A2+1                                                            COMPASS    14145     A     
 COMPASS            AX2    18                                                              COMPASS    14146     A     
 COMPASS            SX6    X2                                                              COMPASS    14147     A     
 COMPASS            SA6    L.RASTAB                                                        COMPASS    14148     A     
 COMPASS            EQ     PUSHUP                                                          COMPASS    14149     A     
 COMPASS   PUSHUP5  SA2    A2+B1                                                           COMPASS    14150     A     
 COMPASS            AX2    18                                                              COMPASS    14151     A     
 COMPASS            SX6    X2                                                              COMPASS    14152     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 869    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    L.LASTAB                                                        COMPASS    14153     A     
 COMPASS            SA2    XLEV        DECREASE NESTING LEVEL                     P036  60 CMP036        37     A     
 COMPASS            SX6    X2-1                                                   P036  61 CMP036        38     A     
 COMPASS   +        NZ     X6,*+1                                                 P036  62 CMP036        39     A     
 COMPASS            SA6    LIBFLG      CLEAR XTEXT FLAG                           P036  63 CMP036        40     A     
 COMPASS   +        SA6    A2                                                     P036  64 CMP036        41     A     
 COMPASS            EQ     PUSHUP                                                          COMPASS    14154     A     
 COMPASS   RCD      SPACE  4,8                                                             CPS011        74     A     
 COMPASS  **        RCD - RESTORE CHARACTER DATA.                                          CPS011        75     A     
 COMPASS                                                                                   CPS011        76     A     
 COMPASS                                                                                   CPS011        77     A     
 COMPASS   RCD      PS                 RETURN EXIT                                         CPS011        78     A     
 COMPASS            SB7    64          RESET CODE OTHER                                    CPS011        79     A     
 COMPASS            SA1    STCA                                                            CPS011        80     A     
 COMPASS            MX0    -6                                                              CPS011        81     A     
 COMPASS            MX3    -6                                                              CPS011        82          I
          -CPSA281
 COMPASS            LX3    24                                                              CPS011        83          I
          -F4820  
 COMPASS            LX3    48                                                              F4820        733          I
          -CPSA281
 COMPASS            MX3    -8                                                              CPSA281      303     A     
 COMPASS            LX3    36                                                              CPSA281      304     A     
 COMPASS   RCD1     BX2    -X0*X1                                                          CPS011        84     A     
 COMPASS            BX6    X3*X1                                                           CPS011        85     A     
 COMPASS            SA1    A1+B1                                                           CPS011        86     A     
 COMPASS            LX2    24                                                              CPS011        87          I
          -F4820  
 COMPASS            LX2    48                                                              F4820        734          I
          -CPSA281
 COMPASS            LX2    36                                                              CPSA281      305     A     
 COMPASS            BX6    X6+X2                                                           CPS011        88     A     
 COMPASS            SB7    B7-1                                                            CPS011        89     A     
 COMPASS            SA6    A1-B1                                                           CPS011        90     A     
 COMPASS            NZ     B7,RCD1     LOOP                                                CPS011        91     A     
 COMPASS            JP     RCD         RETURN                                              CPS011        92     A     
 COMPASS                                                                                   CPSA227       18     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPSA227       19     A     
 COMPASS                                                                                   CPSA227       20     A     
 COMPASS   RIV      SPACE  4,10                                                            F4830CP       58     A     
 COMPASS  **        RIV - REDEFINE INSTRUCTIONS FOR MACHINE 8.                             F4830CP       59     A     
 COMPASS                                                                                   F4830CP       60     A     
 COMPASS                                                                                   F4830CP       61     A     
 COMPASS   RIV      PS     0           ENTRY/EXIT                                          F4830CP       62     A     
 COMPASS            RJ     MTD         MOVE TABLES DOWN                                    F4830CP       63     A     
 COMPASS            SA1    =0LAIDTEXT  SET UP *LDV* PARAMETER LIST                         F4830CP       64     A     
 COMPASS            BX6    X1                                                              F4830CP       65     A     
 COMPASS            SA6    RIVA        42/NAME,18/0                                        F4830CP       66     A     
 COMPASS   RIV1A    SA1    O.ENDTAB                                                        F4830CP       67     A     
 COMPASS            SA2    O.MEMORY                                                        F4830CP       68     A     
 COMPASS            LX1    18                                                              F4830CP       69     A     
 COMPASS            SX5    0101014B                                                        F4830CP       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/28. 19.11.32.      PAGE 870    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX5    39                                                              F4830CP       71     A     
 COMPASS            BX6    X1+X5                                                           F4830CP       72     A     
 COMPASS            BX6    X6+X2                                                           F4830CP       73     A     
 COMPASS            SA6    A6+B1       6/L1,6/L2,2/N,3/0,1/U,1/V,5/0,18/LWA,18/FWA         F4830CP       74     A     
 COMPASS            SX6    B0                                                              F4830CP       75     A     
 COMPASS            SA6    RA.LDR                                                          F4830CP       76     A     
 COMPASS            LOADREQ  RIVA                                                          CPSA259        5     A     
 COMPASS                                                                                   CPSA259        6     A     
 COMPASS   RIV2     RECALL                                                                 CPSA259        7     A     
 COMPASS            SA4    RA.LDR                                                          CPSA259        8     A     
 COMPASS            ZR     X4,RIV2                                                         CPSA259        9     A     
 COMPASS                                                                                   CPSA259       10     A     
 COMPASS            LOADREQ  RIVA                                                          F4830CP       77          I
          -CPSA227
 COMPASS                                                                                   F4830CP       78          I
          -CPSA227
 COMPASS   RM       IFNE   CP#RM,7                                                         F4830CP       79          I
          -CPSA227
 COMPASS   RIV2     RECALL                                                                 F4830CP       80          I
          -CPSA227
 COMPASS            SA4    RA.LDR                                                          F4830CP       81          I
          -CPSA227
 COMPASS            ZR     X4,RIV2                                                         F4830CP       82          I
          -CPSA227
 COMPASS   RM       ENDIF                                                                  F4830CP       83          I
          -CPSA227
 COMPASS                                                                                   F4830CP       84          I
          -CPSA227
 COMPASS            SA1    RIVA                                                            F4830CP       85     A     
 COMPASS            SX6    X1-9                                                            F4830CP       86     A     
 COMPASS            NZ     X6,RIV2A    IF LOADED, CONTINUE                                 F4830CP       87     A     
 COMPASS            SX1    0           ELSE ATTEMPT TO GET MORE FL                         F4830CP       88     A     
 COMPASS            RJ     RFL                                                             F4830CP       89     A     
 COMPASS            ZR     X3,ALC17    IF ALREADY AT MAX. FL. ABORT                        F4830CP       90     A     
 COMPASS            EQ     RIV1A       ELSE TRY AGAIN                                      F4830CP       91     A     
 COMPASS                                                                                   F4830CP       92     A     
 COMPASS   RIV2A    SA1    O.MEMORY                                                        F4830CP       93     A     
 COMPASS            SA2    L.MEMORY                                                        F4830CP       94     A     
 COMPASS            SA3    X1+B1       SSYMS LENGTH                                        F4830CP       95     A     
 COMPASS            SX3    X3+2                                                            F4830CP       96     A     
 COMPASS            IX6    X1+X3                                                           F4830CP       97     A     
 COMPASS            IX7    X2-X3                                                           F4830CP       98     A     
 COMPASS            SA3    X6          SYSMIC LENGTH                                       F4830CP       99     A     
 COMPASS            SX3    X3+1                                                            F4830CP      100     A     
 COMPASS            IX6    X6+X3                                                           F4830CP      101     A     
 COMPASS            IX7    X7-X3                                                           F4830CP      102     A     
 COMPASS            SA6    A1                                                              F4830CP      103     A     
 COMPASS            SA7    A2                                                              F4830CP      104     A     
 COMPASS            SA1    X6          MACDEF LENGTH                                       F4830CP      105     A     
 COMPASS            SX2    X1+B1                                                           F4830CP      106     A     
 COMPASS            SX3    A1                                                              F4830CP      107     A     
 COMPASS            IX3    X2+X3                                                           F4830CP      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/28. 19.11.32.      PAGE 871    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    X3          OPCODES LENGTH                                      F4830CP      109     A     
 COMPASS            IX6    X1+X2                                                           F4830CP      110     A     
 COMPASS            SX6    X6+2                                                            F4830CP      111     A     
 COMPASS            SA6    L.MEMORY    REMAINING LENGTH                                    F4830CP      112     A     
 COMPASS            ZR     X1,RIV3     IF NO MACROS                                        F4830CP      113     A     
 COMPASS            SA2    L.MACDEF                                                        F4830CP      114     A     
 COMPASS            BX7    X2                                                              F4830CP      115     A     
 COMPASS            SA7    RIVB        SAVE MACDEF INDEX                                   F4830CP      116     A     
 COMPASS            MANAGE  MACDEF,X1                                                      F4830CP      117     A     
 COMPASS            SA4    O.MEMORY                                                        F4830CP      118     A     
 COMPASS            SA1    X4          (X1) = WORD COUNT OF MACDEF                         F4830CP      119     A     
 COMPASS            SX2    X4+B1       (X2) = FWA OF MACROS                                F4830CP      120     A     
 COMPASS            SA3    O.MACDEF                                                        F4830CP      121     A     
 COMPASS            SA4    RIVB        MACDEF INDEX                                        F4830CP      122     A     
 COMPASS            IX3    X3+X4       (X3) = DESTIMATION ADDRESS                          F4830CP      123     A     
 COMPASS            RJ     MOVE        MOVE TEXT INTO MACDEF                               F4830CP      124     A     
 COMPASS   RIV3     SA4    O.MEMORY                                                        F4830CP      125     A     
 COMPASS            SA5    L.MEMORY                                                        F4830CP      126     A     
 COMPASS            SA3    X4                                                              F4830CP      127     A     
 COMPASS            SX3    X3+2        MACDEF LENGTH + 1                                   F4830CP      128     A     
 COMPASS            IX7    X4+X3                                                           F4830CP      129     A     
 COMPASS            IX6    X5-X3                                                           F4830CP      130     A     
 COMPASS            SA7    A4                                                              F4830CP      131     A     
 COMPASS            SA6    A5                                                              F4830CP      132     A     
 COMPASS            SA1    X7-1        OPCODE LENGTH                                       F4830CP      133     A     
 COMPASS            ZR     X1,RIV7     IF NO OPCODES                                       F4830CP      134     A     
 COMPASS   RIV4     SA1    X7          GET OPCODE ENTRY                                    F4830CP      135     A     
 COMPASS            SA2    A1+B1                                                           F4830CP      136     A     
 COMPASS            MX7    3                                                               F4830CP      137     A     
 COMPASS            BX3    X2*X7       EXTRACT OPCODE TYPE                                 F4830CP      138     A     
 COMPASS            LX3    3                                                               F4830CP      139     A     
 COMPASS            SX3    X3-6                                                            F4830CP      140     A     
 COMPASS            SA4    RIVB        MACDEF INDEX                                        F4830CP      141     A     
 COMPASS            ZR     X3,RIV5     IF MACRO                                            F4830CP      142     A     
 COMPASS            MX4    0                                                               F4830CP      143     A     
 COMPASS            SX7    B1                                                              F4830CP      144     A     
 COMPASS            LX7    47-0                                                            F4830CP      145     A     
 COMPASS   RIV5     BX2    X2+X7       ADD PROGRAM DEFINED FLAG                            F4830CP      146     A     
 COMPASS            IX2    X2+X4       ADD MACDEF INDEX IF PRESENT                         F4830CP      147     A     
 COMPASS            RJ     ENTOP       ENTER INTO OPCODE TABLE                             F4830CP      148     A     
 COMPASS            SA4    O.MEMORY                                                        F4830CP      149     A     
 COMPASS            SA5    L.MEMORY                                                        F4830CP      150     A     
 COMPASS            SX7    X4+2                                                            F4830CP      151     A     
 COMPASS            SX6    X5-2                                                            F4830CP      152     A     
 COMPASS            SA7    A4                                                              F4830CP      153     A     
 COMPASS            SA6    A5                                                              F4830CP      154     A     
 COMPASS            NZ     X6,RIV4     IF MORE OPCODES                                     F4830CP      155     A     
 COMPASS   RIV7     MX6    0                                                               F4830CP      156     A     
 COMPASS            SA6    L.MEMORY                                                        F4830CP      157     A     
 COMPASS            EQ     RIV         RETURN                                              F4830CP      158     A     
 COMPASS                                                                                   F4830CP      159     A     
 COMPASS   RIVA     DATA   0           *LDV* PARAMETER LIST                                F4830CP      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/28. 19.11.32.      PAGE 872    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            DATA   0                                                               F4830CP      161     A     
 COMPASS   RIVB     DATA   0           MACDEF INDEX                                        F4830CP      162     A     
 COMPASS   RM       ENDIF                                                                  CPSA227       21     A     
 COMPASS                                                                                   CPSA227       22     A     
 COMPASS   RCARD    SPACE  4                                                               COMPASS    14155          I
          -CMP24  
 COMPASS  **        RCARD - READ CARD FROM FILE.                                           COMPASS    14156          I
          -CMP24  
 COMPASS  *         ENTRY  (X2) = FET ADDRESS.                                             COMPASS    14157          I
          -CMP24  
 COMPASS  *                (A0) = FWA OF CARD BUFFER.                                      COMPASS    14158          I
          -CMP24  
 COMPASS  *         EXIT   (X2) = FET ADDRESS.                                             COMPASS    14159          I
          -CMP24  
 COMPASS                                                                                   COMPASS    14160          I
          -CMP24  
 COMPASS                                                                                   COMPASS    14161          I
          -CMP24  
 COMPASS   RCARD    PS                 RETURN EXIT                                         COMPASS    14162          I
          -CMP24  
 COMPASS            READC  X2,A0,10                                                        COMPASS    14163          I
          -CMP24  
 COMPASS            BX6    X1          SET EOR FLAG                                        COMPASS    14164          I
          -CMP24  
 COMPASS            SA6    EOFINP                                                          COMPASS    14165          I
          -CMP24  
 COMPASS            ZR     X1,RCARD    RETURN                                              COMPASS    14166          I
          -CMP24  
 COMPASS            SA1    =C* //////// END CARD MISSING.*                                 COMPASS    14167          I
          -CMP24  
 COMPASS            SA3    A1+B1                                                           COMPASS    14168          I
          -CMP24  
 COMPASS            BX6    X1                                                              COMPASS    14169          I
          -CMP24  
 COMPASS            LX7    X3                                                              COMPASS    14170          I
          -CMP24  
 COMPASS            SA6    A0                                                              COMPASS    14171          I
          -CMP24  
 COMPASS            SA7    A0+B1                                                           COMPASS    14172          I
          -CMP24  
 COMPASS            SA1    A3+B1                                                           COMPASS    14173          I
          -CMP24  
 COMPASS            BX6    X1                                                              COMPASS    14174          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    14175          I
          -CMP24  
 COMPASS            EQ     RCARD       RETURN                                              COMPASS    14176          I
          -CMP24  
 COMPASS   RNC      SPACE  4                                                               COMPASS    14177     A     
 COMPASS  **        RNC - READ NEXT CARD.                                                  COMPASS    14178     A     
 COMPASS  *         ENTRY  (X2) = FET ADDRESS.                                             COMPASS    14179          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 873    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         ENTRY  (X2) = FET/FIT ADDRESS.                                         CMP30       4339     A     
 COMPASS  *                (A0) = FWA OF CARD BUFFER.                                      COMPASS    14180     A     
 COMPASS  *         EXIT   (X2) = FET ADDRESS.                                             COMPASS    14181          I
          -CMP24  
 COMPASS  *         A0, X0, A5, X5  ARE PRESERVED.                                         COMPASS    14182          I
          -CMP24  
 COMPASS  *         EXIT   (X0) = FWA OF CARD IMAGE.                                       CMP24        175     A     
 COMPASS  *         A0, A5, X2, X5  ARE PRESERVED.                                         CMP24        176          I
          -CMP30  
 COMPASS  *                (X2) = FET/FIT ADDRESS.                                         CMP30       4340     A     
 COMPASS  *                (A0) = FWA OF CARD BUFFER.                                      CMP30       4341     A     
 COMPASS                                                                                   COMPASS    14183     A     
 COMPASS                                                                                   COMPASS    14184     A     
 COMPASS            SEG    PASS 1 SUBROUTINES (Q-Z).                                       CMP30       4342     A     
 COMPASS                                                                                   CMP30       4343     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4344     A     
 COMPASS                                                                                   CMP30       4345     A     
 COMPASS   RNC      PS                 RETURN EXIT                                         COMPASS    14185          I
          -CMP24  
 COMPASS            READW  X2,A0,1                                                         COMPASS    14186          I
          -CMP24  
 COMPASS            NZ     X1,RNC1     IF EOR                                              COMPASS    14187          I
          -CMP24    -CMP4   
 COMPASS            READC  X2,A0+B1,10                                                     COMPASS    14188          I
          -CMP24  
 COMPASS            BX6    X1          SET EOR FLAG                                        CMP4           3          I
          -CMP24  
 COMPASS            SA6    EOFINP                                                          CMP4           4          I
          -CMP24  
 COMPASS   RNC1     SX0    A0          READ NORMAL CARD (AMODE = 0)                        CMP24        177     A     
 COMPASS            READC  X2,A0,10                                                        CMP24        178          I
          -CPS146 
 COMPASS            READC  X2,A0,16                                                        CPS146         5     A     
 COMPASS                                                                                   CMP30       4346     A     
 COMPASS   RNCX     BX6    X1                                                              CMP24        179     A     
 COMPASS            SA6    EOFINP                                                          CMP24        180     A     
 COMPASS            ZR     X1,RNC      IF NOT EOR                                          COMPASS    14189     A     
 COMPASS            SA3    INPRES      IF NO INPUT, LEAVE                                  CPSA141       13     A     
 COMPASS            ZR     X3,RNC                                                          CPSA141       14     A     
 COMPASS                                                                                   CMP30       4347          I
          -CPSA115
 COMPASS            BX6    X0          ENSURE THAT *END* IS IN OPTAB                       CPSA115        6     A     
 COMPASS            SA6    RNCA        SAVE CONTENTS OF X0                                 CPSA115        7     A     
 COMPASS            SX6    A0                                                              CPSA115        8     A     
 COMPASS            SA6    A6+B1       SAVE CONTENTS OF A0                                 CPSA115        9     A     
 COMPASS            BX6    X2                                                              CPSA115       10     A     
 COMPASS            SA6    A6+B1       SAVE CONTENTS OF X2                                 CPSA115       11     A     
 COMPASS            SX1    3REND       NOT DESTROYED BY TLUOP                              CPSA115       12     A     
 COMPASS            RJ     TLUOP       SCAN OPTAB                                          CPSA115       13     A     
 COMPASS            NZ     X6,RNCX1    IF END IS IN OPTAB                                  CPSA115       14     A     
 COMPASS            SA2    ENDLOST     ELSE                                                CPSA115       15     A     
 COMPASS            RJ     ENTOP       MAKE ENTRY (X1)=END,(X2)=EQUIVALENT                 CPSA115       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/28. 19.11.32.      PAGE 874    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RNCX1    SA2    RNCA                                                            CPSA115       17     A     
 COMPASS            BX0    X2          RESTORE CONTENTS OF X0                              CPSA115       18     A     
 COMPASS            SA2    A2+B1                                                           CPSA115       19     A     
 COMPASS            SA0    X2          RESTORE CONTENTS OF A0                              CPSA115       20     A     
 COMPASS            SA2    A2+B1       RESTORE CONTENTS OF X2                              CPSA115       21     A     
 COMPASS   RNC1     SA1    =C* //////// END CARD MISSING.*                                 COMPASS    14190          I
          -CMP4   
 COMPASS            SA1    =C* //////// END CARD MISSING.*                                 CMP4           5     A     
 COMPASS            SA3    A1+B1                                                           COMPASS    14191     A     
 COMPASS            BX6    X1                                                              COMPASS    14192     A     
 COMPASS            LX7    X3                                                              COMPASS    14193     A     
 COMPASS            SA6    A0+B1                                                           COMPASS    14194          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    14195          I
          -CMP24  
 COMPASS            SA1    A3+B1                                                           COMPASS    14196          I
          -CMP24  
 COMPASS            BX6    X1                                                              COMPASS    14197          I
          -CMP24  
 COMPASS            MX7    0                                                               COMPASS    14198          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    14199          I
          -CMP24  
 COMPASS            SA7    A0                                                              COMPASS    14200          I
          -CMP24  
 COMPASS            SA6    EOFINP                                                          COMPASS    14201          I
          -CMP24    -CMP4   
 COMPASS            EQ     RNC         RETURN                                              COMPASS    14202          I
          -CMP24  
 COMPASS            SA1    A3+B1                                                           CMP24        181     A     
 COMPASS            SA6    X0                                                              CMP24        182     A     
 COMPASS            SA7    X0+B1                                                           CMP24        183     A     
 COMPASS            BX6    X1                                                              CMP24        184     A     
 COMPASS            SA6    A7+B1                                                           CMP24        185     A     
 COMPASS                                                                                   CMP30       4348     A     
 COMPASS   RNC      PS                 RETURN EXIT                                         CMP24        186     A     
 COMPASS            SA1    AMODE                                                           CMP24        187          I
          -CMP30  
 COMPASS            SA1    CP.IFORM                                                        CMP30       4349     A     
 COMPASS            ZR     X1,RNC1     IF NOT COMPRESSED                                   CMP24        188     A     
 COMPASS            PL     X1,RNC2     IF NOT COMMON DECK                                  CMP24        189     A     
 COMPASS            LX1    59                                                              CMP24        190     A     
 COMPASS            PL     X1,RNC5     IF UPDATE                                           CMP24        191     A     
 COMPASS            EQ     RNC6        MODIFY                                              CMP24        192     A     
 COMPASS   RNC2     LX1    59                                                              CMP24        193     A     
 COMPASS            MI     X1,RNC4     IF MODIFY                                           CMP24        194     A     
 COMPASS                                                                                   CMP24        195     A     
 COMPASS  *         AMODE = +2, READ UPDATE COMPRESSED TEXT.                               CMP24        196          I
          -CMP30  
 COMPASS  *         CP.IFORM = +2, READ UPDATE COMPRESSED TEXT.                            CMP30       4350     A     
 COMPASS                                                                                   CMP24        197     A     
 COMPASS            READW  X2,A0,2     GET SEQUENCE FIELD AND WORD COUNT                   CMP24        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/28. 19.11.32.      PAGE 875    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    A0+B1                                                           CMP24        199     A     
 COMPASS            MX6    0                                                               CMP24        200     A     
 COMPASS            SX0    A0+2                                                            CMP24        201     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        202     A     
 COMPASS            SB7    X3                                                              CMP24        203     A     
 COMPASS            SA6    X0+B7                                                           CMP24        204     A     
 COMPASS            READW  X2,X0,B7    READ CARD IMAGE                                     CMP24        205     A     
 COMPASS            EQ     RNCX                                                            CMP24        206     A     
 COMPASS                                                                                   CMP24        207     A     
 COMPASS  *         AMODE = +1, READ MODIFY COMPRESSED TEXT.                               CMP24        208          I
          -CMP30  
 COMPASS  *         CP.IFORM = +1, READ MODIFY COMPRESSED TEXT.                            CMP30       4351          I
          -CP114  
 COMPASS  *         CP.IFORM = +1 OR +3, READ MODIFY COMPRESSED TEXT.                      CP114         45     A     
 COMPASS                                                                                   CMP24        209     A     
 COMPASS   RNC4     READW  X2,A0+B1,1  GET SEQUENCE FIELD                                  CMP24        210     A     
 COMPASS            SX0    A0+2                                                            CMP24        211     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        212     A     
 COMPASS            READC  X2,X0,8     READ CARD IMAGE                                     CMP24        213          I
          -CP114  
 COMPASS            READC  X2,X0,12    READ CARD IMAGE                                     CP114         46     A     
 COMPASS            EQ     RNCX                                                            CMP24        214     A     
 COMPASS                                                                                   CMP24        215     A     
 COMPASS  *         AMODE = -1, READ UPDATE COMMON DECK.                                   CMP24        216          I
          -CMP30  
 COMPASS  *         CP.IFORM = -1, READ UPDATE COMMON DECK.                                CMP30       4352     A     
 COMPASS                                                                                   CMP24        217     A     
 COMPASS   RNC5     READW  X2,A0,1     READ FIRST CHB WORD                                 CMP24        218     A     
 COMPASS            SA3    A0                                                              CMP24        219     A     
 COMPASS            SX0    A0+2                                                            CMP24        220     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        221     A     
 COMPASS            MI     X3,RNC5B    IF LAST CHB WORD                                    CMP24        222     A     
 COMPASS   RNC5A    READW  X2,A0+B1,1  READ NEXT CHB WORD                                  CMP24        223     A     
 COMPASS            SA3    A0+B1                                                           CMP24        224     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        225     A     
 COMPASS            PL     X3,RNC5A    IF NOT LAST CHB WORD                                CMP24        226     A     
 COMPASS            SA3    A0                                                              CMP24        227     A     
 COMPASS   RNC5B    AX3    36                                                              CMP24        228     A     
 COMPASS            SX6    B0                                                              CMP24        229     A     
 COMPASS            SB7    X3          WORD COUNT                                          CMP24        230     A     
 COMPASS            SA6    X0+B7                                                           CMP24        231     A     
 COMPASS            READW  X2,X0,B7    READ CARD IMAGE                                     CMP24        232     A     
 COMPASS            SA3    A0                                                              CMP24        233     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        234          I
          -CMP041 
 COMPASS            LX3    59-58                                                           CMP24        235     A     
 COMPASS            MI     X3,RNCX     IF CARD IS ACTIVE                                   CMP24        236     A     
 COMPASS            ZR     X1,RNC5     IF NOT EOR                                          CMP24        237     A     
 COMPASS            EQ     RNCX                                                            CMP24        238     A     
 COMPASS                                                                                   CMP24        239     A     
 COMPASS  *         AMODE = -2, READ MODIFY COMMON DECK.                                   CMP24        240          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 876    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         CP.IFORM = -2, READ MODIFY COMMON DECK.                                CMP30       4353          I
          -CP114  
 COMPASS  *         CP.IFORM = -2 OR -4, READ MODIFY COMMON DECK.                          CP114         47     A     
 COMPASS                                                                                   CMP24        241     A     
 COMPASS   RNC6     READW  X2,A0,1     READ FIRST MHB WORD                                 CMP24        242     A     
 COMPASS            SA3    A0                                                              CMP24        243     A     
 COMPASS            SX0    A0+2                                                            CMP24        244     A     
 COMPASS            MX6    -16                                                             CMP24        245     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        246     A     
 COMPASS            BX6    -X6*X3                                                          CMP24        247     A     
 COMPASS            ZR     X6,RNC6B    IF LAST MHB WORD                                    CMP24        248     A     
 COMPASS   RNC6A    READW  X2,A0+B1,1  READ NEXT MHB WORD                                  CMP24        249     A     
 COMPASS            SA3    A0+B1                                                           CMP24        250     A     
 COMPASS            MX6    -16                                                             CMP24        251     A     
 COMPASS            NZ     X1,RNCX     IF EOR                                              CMP24        252     A     
 COMPASS            BX6    -X6*X3                                                          CMP24        253     A     
 COMPASS            NZ     X6,RNC6A    IF NOT LAST MHB WORD                                CMP24        254     A     
 COMPASS   RNC6B    READC  X2,X0,8     READ CARD IMAGE                                     CMP24        255          I
          -CP114  
 COMPASS   RNC6B    READC  X2,X0,12    READ CARD IMAGE                                     CP114         48     A     
 COMPASS            SA3    A0                                                              CMP24        256     A     
 COMPASS            MI     X3,RNCX     IF CARD IS ACTIVE                                   CMP24        257     A     
 COMPASS            ZR     X1,RNC6     IF NOT EOR                                          CMP24        258     A     
 COMPASS            EQ     RNCX                                                            CMP24        259     A     
 COMPASS                                                                                   CMP30       4354     A     
 COMPASS   RNCA     BSSZ   3           TEMPORARY STORAGE                                   CPSA115       22     A     
 COMPASS   ENDLOST  VFD    3/3,12/0,9/N.,18//PASS1/END,18//PASS2/END                       CPSA115       23     A     
 COMPASS                                                                                   CPSA115       24     A     
 COMPASS   RM       ELSE                                                                   CMP30       4355     A     
 COMPASS                                                                                   CMP30       4356     A     
 COMPASS   RNC1     SA6    A6+B1       SAVE FWA OF CARD IMAGE IN T6RM2                     CMP30       4357     A     
 COMPASS            NZ     X3,RNCX     IF NO DATA TO READ                         S028 642 CPS028       481     A     
 COMPASS            GET    X2,X6,100   READ NORMAL CARD (AMODE = 0)                        CMP30       4358          I
          -CPSA199
 COMPASS            GET    X2,X6,160   READ NORMAL CARD (AMODE = 0)                        CPSA199        8     A     
 COMPASS            SX2    A0          RESTORE FIT POINTER                                 CMP30       4359     A     
 COMPASS            FETCH  X2,FP,X3                                                        CMP30       4360     A     
 COMPASS            SX4    EOD                                                             CMP30       4361     A     
 COMPASS            BX6    X4*X3                                                           CMP30       4362     A     
 COMPASS                                                                                   CMP30       4363     A     
 COMPASS   RNCX     SA5    T6RM1       RESTORE RECORD AREA POINTERS                        CMP30       4364     A     
 COMPASS            SA1    A5+B1                                                           CMP30       4365     A     
 COMPASS            SA0    X5                                                              CMP30       4366     A     
 COMPASS            BX0    X1                                                              CMP30       4367     A     
 COMPASS            SA6    EOFINP                                                          CMP30       4368     A     
 COMPASS            SA3    INPRES      IF NO INPUT,LEAVE                                   CPSA141       15     A     
 COMPASS            ZR     X3,RNC                                                          CPSA141       16     A     
 COMPASS            ZR     X6,RNC      IF NOT END OF DATA                                  CMP30       4369     A     
 COMPASS            BX6    X0          ENSURE THAT *END* IS IN OPTAB                       CPSA115       25     A     
 COMPASS            SA6    RNCA        SAVE CONTENTS OF X0                                 CPSA115       26     A     
 COMPASS            SX6    A0                                                              CPSA115       27     A     
 COMPASS            SA6    A6+B1       SAVE CONTENTS OF A0                                 CPSA115       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/28. 19.11.32.      PAGE 877    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X2                                                              CPSA115       29     A     
 COMPASS            SA6    A6+B1       SAVE CONTENTS OF X2                                 CPSA115       30     A     
 COMPASS            SX1    3REND       NOT DESTROYED BY TLUOP                              CPSA115       31     A     
 COMPASS            RJ     TLUOP       SCAN OPTAB                                          CPSA115       32     A     
 COMPASS            NZ     X6,RNCX1    IF END IS IN OPTAB                                  CPSA115       33     A     
 COMPASS            SA2    ENDLOST     ELSE                                                CPSA115       34     A     
 COMPASS            RJ     ENTOP       MAKE ENTRY (X1)=END,(X2)=EQUIVALENT                 CPSA115       35     A     
 COMPASS   RNCX1    SA2    RNCA                                                            CPSA115       36     A     
 COMPASS            BX0    X2          RESTORE CONTENTS OF X0                              CPSA115       37     A     
 COMPASS            SA2    A2+B1                                                           CPSA115       38     A     
 COMPASS            SA0    X2          RESTORE CONTENTS OF A0                              CPSA115       39     A     
 COMPASS            SA2    A2+B1       RESTORE CONTENTS OF X2                              CPSA115       40     A     
 COMPASS            SA1    =H* //////// END CARD MISSING.*                                 CMP30       4370     A     
 COMPASS            SA3    A1+B1                                                           CMP30       4371     A     
 COMPASS            BX6    X1                                                              CMP30       4372     A     
 COMPASS            LX7    X3                                                              CMP30       4373     A     
 COMPASS            SA1    A3+B1                                                           CMP30       4374     A     
 COMPASS            SA6    X0                                                              CMP30       4375     A     
 COMPASS            SA7    X0+B1                                                           CMP30       4376     A     
 COMPASS            BX6    X1                                                              CMP30       4377     A     
 COMPASS            MX7    0                                                               CMP30       4378     A     
 COMPASS            SA6    A7+B1                                                           CMP30       4379     A     
 COMPASS            SA7    A6+B1                                                           CMP30       4380     A     
 COMPASS            STORE  X2,RL=30                                                        CMP30       4381     A     
 COMPASS                                                                                   CMP30       4382     A     
 COMPASS   RNC      PS                 RETURN EXIT                                         CMP30       4383     A     
 COMPASS            SA3    EOFINP                                                          CMP30       4384     A     
 COMPASS            SA1    CP.IFORM                                                        CMP30       4385     A     
 COMPASS            SX6    A0                                                              CMP30       4386     A     
 COMPASS            SA0    X2          SAVE FIT ADDRESS IN A0                              CMP30       4387     A     
 COMPASS            SA6    T6RM1       SAVE FWA OF CARD BUFFER IN T6RM1                    CMP30       4388     A     
 COMPASS            NZ     X3,RNCX     IF NO DATA TO READ                                  CMP30       4389          I
          -CPS028 
 COMPASS            ZR     X1,RNC1     IF NOT COMPRESSED                                   CMP30       4390     A     
 COMPASS            SX7    X6+2                                                            CMP30       4391     A     
 COMPASS            SA7    A6+B1       SAVE FWA OF CARD IMAGE IN T6RM2                     CMP30       4392     A     
 COMPASS            NZ     X3,RNCX     IF NO DATA TO READ                         S028 645 CPS028       482     A     
 COMPASS                                                                                   CMP30       4393          I
          -CPSA115
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       4394          I
          -CPS028   -CPSA115
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 647 CPS028       483          I
          -CPSA115
 COMPASS                                                                                   CMP30       4395          I
          -CPSA115
 COMPASS            PL     X1,RNC2     IF NOT COMMON DECK                                  CMP30       4396          I
          -CPSA115
 COMPASS            LX1    59                                                              CMP30       4397          I
          -CPSA115
 COMPASS            PL     X1,RNC5     IF UPDATE                                           CMP30       4398          I
          -CPSA115
 COMPASS            EQ     RNC6        MODIFY                                              CMP30       4399          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 878    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA115
 COMPASS   RNC2     LX1    59                                                              CMP30       4400          I
          -CPSA115
 COMPASS            MI     X1,RNC4     IF MODIFY                                           CMP30       4401          I
          -CPSA115
 COMPASS                                                                                   CMP30       4402          I
          -CPSA115
 COMPASS   DM       ELSE                                                                   CMP30       4403          I
          -CPSA115
 COMPASS                                                                                   CMP30       4404          I
          -CPSA115
 COMPASS            MI     X1,RNC5     IF COMMON DECK                                      CMP30       4405     A     
 COMPASS                                                                                   CMP30       4406          I
          -CPSA115
 COMPASS   DM       ENDIF                                                                  CMP30       4407          I
          -CPSA115
 COMPASS                                                                                   CMP30       4408     A     
 COMPASS  *         CP.IFORM = +2, READ UPDATE COMPRESSED TEXT.                            CMP30       4409     A     
 COMPASS                                                                                   CMP30       4410     A     
 COMPASS            GETP   X2,X6,20    GET SEQUENCE FIELD AND WORD COUNT                   CMP30       4411          I
          -CPS028 
 COMPASS                                                                                   CMP30       4412          I
          -CPS028 
 COMPASS   DM       IFC    GE, "MODEL" 75                                                  CMP30       4413          I
          -CPS028 
 COMPASS            FETCH  X2,FP,X3                                                        CMP30       4414          I
          -CPS028 
 COMPASS            FETCH  X2,PTL,X4                                                       CMP30       4415          I
          -CPS028 
 COMPASS            SX0    EOD                                                             CMP30       4416          I
          -CPS028 
 COMPASS            SX5    X6+B1                                                           CMP30       4417          I
          -CPS028 
 COMPASS            BX6    X0*X3                                                           CMP30       4418          I
          -CPS028 
 COMPASS            SX7    X4-20                                                           CMP30       4419          I
          -CPS028 
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4420          I
          -CPS028 
 COMPASS            ZR     X7,RNC3A    IF BOTH HEADER WORDS READ                           CMP30       4421          I
          -CPS028 
 COMPASS            GETP   X2,X5,10    READ SECOND HEADER WORD                             CMP30       4422          I
          -CPS028 
 COMPASS   DM       ENDIF                                                                  CMP30       4423          I
          -CPS028 
 COMPASS                                                                                   CMP30       4424          I
          -CPS028 
 COMPASS   RNC3A    SA5    T6RM1                                                           CMP30       4425          I
          -CPS028 
 COMPASS            SA3    X5+B1                                                           CMP30       4426          I
          -CPS028 
 COMPASS            SB7    X3                                                              CMP30       4427          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 879    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            SA1    X6+15       MOVE HEADER WORDS FROM END                 S028 649 CPS028       484     A     
 COMPASS            SA3    A1-B1       OF CARD IMAGE BUFFER                       S028 650 CPS028       485     A     
 COMPASS            BX7    X1                                                     S028 651 CPS028       486     A     
 COMPASS            SB7    X1+2        SET WORD COUNT TO INCLUDE TWO              S028 652 CPS028       487     A     
 COMPASS            SA7    X6+B1       HEADER WORDS FOR NEXT CARD                 S028 653 CPS028       488     A     
 COMPASS            LX6    X3                                                     S028 654 CPS028       489     A     
 COMPASS            SA6    A7-B1                                                  S028 655 CPS028       490     A     
 COMPASS            SX7    B1+B1                                                  S028 656 CPS028       491     A     
 COMPASS            RJ     RNC7        READ CARD IMAGE                                     CMP30       4428     A     
 COMPASS            EQ     RNCX                                                            CMP30       4429     A     
 COMPASS                                                                                   CMP30       4430     A     
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       4431          I
          -CPS028 
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 658 CPS028       492          I
          -CPSA115
 COMPASS                                                                                   CMP30       4432          I
          -CPSA115
 COMPASS  *         CP.IFORM = +1, READ MODIFY COMPRESSED TEXT.                            CMP30       4433          I
          -CPSA115
 COMPASS                                                                                   CMP30       4434          I
          -CPSA115
 COMPASS   RNC4     SX6    X6+B1                                                           CMP30       4435          I
          -CPSA115
 COMPASS            GETP   X2,X6,10    GET SEQUENCE FIELD                                  CMP30       4436          I
          -CPSA115
 COMPASS            SX2    A0                                                              CMP30       4437          I
          -CPSA115
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       4438          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       4439          I
          -CPSA115
 COMPASS            SA5    T6RM2                                                           CMP30       4440          I
          -CPSA115
 COMPASS            BX6    X0*X4                                                           CMP30       4441          I
          -CPSA115
 COMPASS            LX7    X5                                                              CMP30       4442          I
          -CPSA115
 COMPASS            SA3    RNCA                                                            CMP30       4443          I
          -CPSA115
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4444          I
          -CPSA115
 COMPASS   RNC4A    SA7    A3                                                              CMP30       4445          I
          -CPSA115
 COMPASS            GETP   X2,X7,10    READ NEXT WORD OF CARD IMAGE                        CMP30       4446          I
          -CPSA115
 COMPASS            SX2    A0                                                              CMP30       4447          I
          -CPSA115
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       4448          I
          -CPSA115
 COMPASS            SX5    EOD+#EOR#                                                       CMP30       4449          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 880    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    RNCA                                                            CMP30       4450          I
          -CPSA115
 COMPASS            BX6    X5*X4                                                           CMP30       4451          I
          -CPSA115
 COMPASS            MX0    -12                                                             CMP30       4452          I
          -CPSA115
 COMPASS            SA1    X3                                                              CMP30       4453          I
          -CPSA115
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4454          I
          -CPSA115
 COMPASS            BX6    -X0*X1                                                          CMP30       4455          I
          -CPSA115
 COMPASS            SX7    X3+B1                                                           CMP30       4456          I
          -CPSA115
 COMPASS            NZ     X6,RNC4A    IF NOT LAST WORD OF CARD                            CMP30       4457          I
          -CPSA115
 COMPASS            EQ     RNCX                                                            CMP30       4458          I
          -CPSA115
 COMPASS                                                                                   CMP30       4459          I
          -CPSA115
 COMPASS   DM       ENDIF                                                                  CMP30       4460          I
          -CPSA115
 COMPASS                                                                                   CMP30       4461     A     
 COMPASS  *         CP.IFORM = -1, READ UPDATE COMMON DECK.                                CMP30       4462     A     
 COMPASS                                                                                   CMP30       4463     A     
 COMPASS   RNC5     GETP   X2,X6,10    GET FIRST CHB WORD                                  CMP30       4464     A     
 COMPASS            SA5    T6RM1                                                           CMP30       4465     A     
 COMPASS            SX2    A0                                                              CMP30       4466     A     
 COMPASS            SA3    X5                                                              CMP30       4467     A     
 COMPASS   RNC5A    SX1    X5+B1                                                           CMP30       4468     A     
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       4469     A     
 COMPASS                                                                                   CMP30       4470          I
          -CPSA134
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       4471          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      141          I
          -CPSA134
 COMPASS   X        ELSE   1                                                               F7540CP      142          I
          -CPSA134
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       4472          I
          -CPSA134
 COMPASS            SKIP   1                                                               CMP30       4473          I
          -F7540CP  -CPSA134
 COMPASS            ENV    (4,5,7,8),X                                                     F7540CP      143          I
          -CPSA134
 COMPASS            SX0    EOD                                                             CMP30       4474     A     
 COMPASS   X        ENDIF                                                                  F7540CP      144          I
          -CPSA134
 COMPASS                                                                                   CMP30       4475          I
          -CPSA134
 COMPASS            BX6    X0*X4                                                           CMP30       4476     A     
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4477     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 881    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     X3,RNC5B    IF LAST CHB WORD                                    CMP30       4478     A     
 COMPASS            GETP   X2,X1,10    GET NEXT CHB WORD                                   CMP30       4479     A     
 COMPASS            SA5    T6RM1                                                           CMP30       4480     A     
 COMPASS            SX2    A0                                                              CMP30       4481     A     
 COMPASS            SA3    X5+B1                                                           CMP30       4482     A     
 COMPASS            EQ     RNC5A       LOOP                                                CMP30       4483     A     
 COMPASS                                                                                   CMP30       4484     A     
 COMPASS   RNC5B    SA5    T6RM1       GET WORD COUNT FROM FIRST CHB WORD                  CMP30       4485     A     
 COMPASS            SA3    X5                                                              CMP30       4486     A     
 COMPASS            AX3    36                                                              CMP30       4487     A     
 COMPASS            SX7    B0          NO HEADER WORDS                            S028 660 CPS028       493     A     
 COMPASS            SB7    X3                                                              CMP30       4488     A     
 COMPASS            RJ     RNC7        READ CARD IMAGE                                     CMP30       4489     A     
 COMPASS            SA5    T6RM1                                                           CMP30       4490     A     
 COMPASS            SA3    X5                                                              CMP30       4491     A     
 COMPASS            LX3    59-58                                                           CMP30       4492     A     
 COMPASS            MI     X3,RNCX     IF CARD IS ACTIVE                                   CMP30       4493     A     
 COMPASS            SX6    X5                                                              CMP30       4494     A     
 COMPASS            EQ     RNC5                                                            CMP30       4495     A     
 COMPASS                                                                                   CPSA115       41     A     
 COMPASS   ENDLOST  VFD    3/3,12/0,9/N.,18//PASS1/END,18//PASS2/END                       CPSA115       42     A     
 COMPASS                                                                                   CPSA115       43     A     
 COMPASS                                                                                   CMP30       4496          I
          -CPSA115
 COMPASS   DM       IFC    LT, "MODEL" 75                                                  CMP30       4497          I
          -CPS028   -CPSA115
 COMPASS   DM       IFEQ   CP#RM,6                                                S028 662 CPS028       494          I
          -CPSA115
 COMPASS                                                                                   CMP30       4498          I
          -CPSA115
 COMPASS  *         CP.IFORM = -2, READ MODIFY COMMON DECK.                                CMP30       4499          I
          -CPSA115
 COMPASS                                                                                   CMP30       4500          I
          -CPSA115
 COMPASS   RNC6     GETP   X2,X6,10    READ FIRST MHB WORD                                 CMP30       4501          I
          -CPSA115
 COMPASS            SA5    T6RM1                                                           CMP30       4502          I
          -CPSA115
 COMPASS            SX2    A0                                                              CMP30       4503          I
          -CPSA115
 COMPASS            SA3    X5                                                              CMP30       4504          I
          -CPSA115
 COMPASS   RNC6A    SX1    X5+B1                                                           CMP30       4505          I
          -CPSA115
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       4506          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       4507          I
          -CPSA115
 COMPASS            BX6    X0*X4                                                           CMP30       4508          I
          -CPSA115
 COMPASS            MX5    -16                                                             CMP30       4509          I
          -CPSA115
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 882    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4510          I
          -CPSA115
 COMPASS            BX6    -X5*X3                                                          CMP30       4511          I
          -CPSA115
 COMPASS            ZR     X6,RNC6B    IF LAST MHB WORD                                    CMP30       4512          I
          -CPSA115
 COMPASS            GETP   X2,X1,10    GET NEXT MHB WORD                                   CMP30       4513          I
          -CPSA115
 COMPASS            SA5    T6RM1                                                           CMP30       4514          I
          -CPSA115
 COMPASS            SX2    A0                                                              CMP30       4515          I
          -CPSA115
 COMPASS            SA3    X5+B1                                                           CMP30       4516          I
          -CPSA115
 COMPASS            EQ     RNC6A       LOOP                                                CMP30       4517          I
          -CPSA115
 COMPASS                                                                                   CMP30       4518          I
          -CPSA115
 COMPASS   RNC6B    SA5    T6RM1       GET WORD COUNT FROM FIRST MHB WORD                  CMP30       4519          I
          -CPSA115
 COMPASS            SA3    X5                                                              CMP30       4520          I
          -CPSA115
 COMPASS            MX0    -5                                                              CMP30       4521          I
          -CPSA115
 COMPASS            AX3    54                                                              CMP30       4522          I
          -CPSA115
 COMPASS            BX6    -X0*X3                                                          CMP30       4523          I
          -CPSA115
 COMPASS            SX7    B0          NO HEADER WORDS                            S028 664 CPS028       495          I
          -CPSA115
 COMPASS            SB7    X6                                                              CMP30       4524          I
          -CPSA115
 COMPASS            RJ     RNC7        READ CARD IMAGE                                     CMP30       4525          I
          -CPSA115
 COMPASS            SA5    T6RM1                                                           CMP30       4526          I
          -CPSA115
 COMPASS            SA3    X5                                                              CMP30       4527          I
          -CPSA115
 COMPASS            PL     X3,RNCX     IF CARD IS ACTIVE                                   CMP30       4528          I
          -CPSA115
 COMPASS            SX6    X5                                                              CMP30       4529          I
          -CPSA115
 COMPASS            EQ     RNC6                                                            CMP30       4530          I
          -CPSA115
 COMPASS                                                                                   CMP30       4531          I
          -CPSA115
 COMPASS   DM       ENDIF                                                                  CMP30       4532          I
          -CPSA115
 COMPASS                                                                                   CMP30       4533     A     
 COMPASS                                                                                   CMP30       4534     A     
 COMPASS  *         RNC7 - READ COMPRESSED CARD IMAGE.                                     CMP30       4535     A     
 COMPASS  *         ENTRY  (A0) = FIT ADDRESS.                                             CMP30       4536     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 883    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (B7) = WORD COUNT.                                              CMP30       4537     A     
 COMPASS  *                (X7) = HEADER WORD COUNT FOR NEXT CARD.                S028 666 CPS028       496     A     
 COMPASS  *                (T6RM2) = FWA CARD IMAGE.                                       CMP30       4538     A     
 COMPASS  *         EXIT TO RNCX IF PREMATURE END OF DATA.                                 CMP30       4539     A     
 COMPASS                                                                                   CMP30       4540     A     
 COMPASS                                                                                   CMP30       4541     A     
 COMPASS   RNC7     PS                 RETURN EXIT                                         CMP30       4542     A     
 COMPASS            SX6    B7                                                     S028 668 CPS028       497     A     
 COMPASS            SA7    RNCC        SAVE NEXT HEADER WORD COUNT                S028 669 CPS028       498     A     
 COMPASS            SA6    A7+B1       SAVE TOTAL WORD COUNT                      S028 670 CPS028       499     A     
 COMPASS            SX2    A0                                                              CMP30       4543     A     
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       4544     A     
 COMPASS                                                                                   CMP30       4545          I
          -CPSA115
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       4546          I
          -CPS028   -CPSA115
 COMPASS            IFEQ   CP#RM,6,2                                              S028 672 CPS028       500          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       4547          I
          -CPSA115
 COMPASS            SKIP   1                                                               CMP30       4548          I
          -CPSA115
 COMPASS            SX0    EOD                                                             CMP30       4549     A     
 COMPASS                                                                                   CMP30       4550          I
          -CPSA115
 COMPASS            SA5    T6RM2                                                           CMP30       4551     A     
 COMPASS            BX6    X0*X4                                                           CMP30       4552     A     
 COMPASS            SX4    B7                                                              CMP30       4553     A     
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4554     A     
 COMPASS            SX1    B7+B7                                                           CMP30       4555     A     
 COMPASS            LX4    3                                                               CMP30       4556     A     
 COMPASS            IX7    X4+X1       X7 = (B7) * 10                                      CMP30       4557     A     
 COMPASS            BX6    X6-X6                                                           CMP30       4558          I
          -CPS028 
 COMPASS            SA6    X5+B7       CLEAR WORD FOLLOWING CARD IMAGE                     CMP30       4559          I
          -CPS028 
 COMPASS   RNC7A    BX6    X5                                                              CMP30       4560     A     
 COMPASS            SA6    RNCA                                                            CMP30       4561     A     
 COMPASS            SA7    A6+B1                                                           CMP30       4562     A     
 COMPASS            GETP   X2,X6,X7    GET CARD IMAGE                                      CMP30       4563     A     
 COMPASS            SX2    A0                                                              CMP30       4564     A     
 COMPASS            FETCH  X2,FP,X4                                                        CMP30       4565     A     
 COMPASS            FETCH  X2,PTL,X3                                                       CMP30       4566     A     
 COMPASS                                                                                   CMP30       4567          I
          -CPSA115
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       4568          I
          -CPS028   -CPSA115
 COMPASS            IFEQ   CP#RM,6,2                                              S028 675 CPS028       501          I
          -CPSA115
 COMPASS            SX0    EOD+#EOR#                                                       CMP30       4569          I
          -CPSA115
 COMPASS            SKIP   1                                                               CMP30       4570          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 884    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA115
 COMPASS            SX0    EOD                                                             CMP30       4571     A     
 COMPASS                                                                                   CMP30       4572          I
          -CPSA115
 COMPASS            SA5    RNCB                                                            CMP30       4573     A     
 COMPASS            BX6    X0*X4                                                           CMP30       4574     A     
 COMPASS            IX7    X5-X3                                                           CMP30       4575     A     
 COMPASS            NZ     X6,RNCX     IF END OF DATA                                      CMP30       4576          I
          -CPS028 
 COMPASS            ZR     X7,RNC7     IF END OF CARD IMAGE, RETURN                        CMP30       4577          I
          -CPS028 
 COMPASS            NZ     X6,RNC7B    IF END OF DATA                             S028 677 CPS028       502     A     
 COMPASS            ZR     X7,RNC7C    IF END OF CARD IMAGE                       S028 678 CPS028       503     A     
 COMPASS            SX0    1S20/10+1                                                       CMP30       4578     A     
 COMPASS            SA5    A5-B1                                                           CMP30       4579     A     
 COMPASS            IX3    X3*X0                                                           CMP30       4580     A     
 COMPASS            AX3    20          X3 = NUMBER OF WORDS READ                           CMP30       4581     A     
 COMPASS            IX5    X5+X3       UPDATE RECORD ADDRESS                               CMP30       4582     A     
 COMPASS            EQ     RNC7A       LOOP                                                CMP30       4583     A     
 COMPASS   RNC7B    SA1    RNCC                                                   S028 680 CPS028       504     A     
 COMPASS            IX3    X1+X1                                                  S028 681 CPS028       505     A     
 COMPASS            LX1    3                                                      S028 682 CPS028       506     A     
 COMPASS            IX4    X1+X3                                                  S028 683 CPS028       507     A     
 COMPASS            IX5    X7-X4                                                  S028 684 CPS028       508     A     
 COMPASS            NZ     X5,RNCX     IF END OF DATA BEFORE HEADER WORDS         S028 685 CPS028       509     A     
 COMPASS   RNC7C    SA1    RNCC                                                   S028 686 CPS028       510     A     
 COMPASS            SA3    A1+B1                                                  S028 687 CPS028       511     A     
 COMPASS            SA4    T6RM2                                                  S028 688 CPS028       512     A     
 COMPASS            IX5    X3-X1                                                  S028 689 CPS028       513     A     
 COMPASS            IX3    X4+X5                                                  S028 690 CPS028       514     A     
 COMPASS            ZR     X1,RNC7D    IF NO HEADER WORDS                         S028 691 CPS028       515     A     
 COMPASS            SA1    X3                                                     S028 692 CPS028       516     A     
 COMPASS            SA5    X3+B1                                                  S028 693 CPS028       517     A     
 COMPASS            BX6    X1          MOVE HEADER WORDS TO END                   S028 694 CPS028       518     A     
 COMPASS            LX7    X5          OF CARD IMAGE BUFFER                       S028 695 CPS028       519     A     
 COMPASS            SA6    X4+12                                                  S028 696 CPS028       520     A     
 COMPASS            SA7    A6+B1                                                  S028 697 CPS028       521     A     
 COMPASS   RNC7D    BX6    X6-X6       CLEAR WORD FOLLOWING CARD IMAGE            S028 698 CPS028       522     A     
 COMPASS            SA6    X3                                                     S028 699 CPS028       523     A     
 COMPASS            EQ     RNC7        RETURN                                     S028 700 CPS028       524     A     
 COMPASS                                                                                   CMP30       4584     A     
 COMPASS   RNCA     DATA   0           TEMPORARY STORAGE                                   CMP30       4585     A     
 COMPASS   RNCB     DATA   0                                                               CMP30       4586     A     
 COMPASS   RNCC     DATA   0                                                      S028 702 CPS028       525     A     
 COMPASS   RNCD     DATA   0                                                      S028 703 CPS028       526     A     
 COMPASS                                                                                   CMP30       4587     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4588     A     
 COMPASS   RNS      SPACE  4                                                               CMP24        260     A     
 COMPASS  **        RNS - READ NEXT STATEMENT.                                             CMP24        261     A     
 COMPASS  *         ENTRY  (X2) = FET ADDRESS.                                             CMP24        262          I
          -CMP30  
 COMPASS  *         ENTRY  (X2) = FET/FIT ADDRESS.                                         CMP30       4589     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 885    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (A0) = FWA OF CARD BUFFER.                                      CMP24        263     A     
 COMPASS  *         EXIT   (CARD) = STRING BUFFER BLANK FILLED.                            CMP24        264     A     
 COMPASS  *                (CCT) = CARD COUNT.                                             CMP24        265     A     
 COMPASS  *                (EDITFG) = MICRO/CONCATENATION FLAG.                            CMP24        266     A     
 COMPASS  *                (LASTCOL) = INDEX OF LAST CHARACTER.                            CMP24        267     A     
 COMPASS  *                (SQLGN) = 0.                                                    CMP24        268     A     
 COMPASS  *                (STYPE) = BLANK OR ASTERISK.                                    CMP24        269     A     
 COMPASS  *         A0 AND X2 ARE PRESERVED.                                               CMP24        270     A     
 COMPASS                                                                                   CMP24        271     A     
 COMPASS                                                                                   CMP24        272     A     
 COMPASS   RNS      PS                 RETURN EXIT                                         CMP24        273     A     
 COMPASS            SA3    AMODE                                                           CMP24        274          I
          -CMP30  
 COMPASS                                                                                   CMP30       4590     A     
 COMPASS            IFNE   CP#RM,0,2                                                       CMP30       4591     A     
 COMPASS            FETCH  X2,RL,X1    RECORD LENGTH IN CHARACTERS                         CMP30       4592     A     
 COMPASS            SB5    X1                                                              CMP30       4593     A     
 COMPASS                                                                                   CMP30       4594     A     
 COMPASS            SA3    CP.IFORM                                                        CMP30       4595     A     
 COMPASS            SA5    A0                                                              CMP24        275     A     
 COMPASS            MX7    0                                                               CMP24        276     A     
 COMPASS            SB2    CARD                                                            CMP24        277     A     
 COMPASS            SA7    CCT         CLEAR CCT AND SQLGN                                 CMP24        278     A     
 COMPASS            SB7    10                                                              CMP24        279     A     
 COMPASS            SA7    SQLGN                                                           CMP24        280     A     
 COMPASS            ZR     X3,RNS1     IF NOT COMPRESSED INPUT                             CMP24        281     A     
 COMPASS            SA5    A0+2                                                            CMP24        282     A     
 COMPASS   RNS1     MX0    6                                                               CMP24        283     A     
 COMPASS            SX6    1R                                                              CMP24        284     A     
 COMPASS            BX0    X0*X5       EXTRACT FIRST CHARACTER                             CMP24        285     A     
 COMPASS            LX0    6                                                               CMP24        286     A     
 COMPASS            SB6    X0-1R*                                                          CMP24        287     A     
 COMPASS            NZ     B6,RNS2     IF NOT ASTERISK                                     CMP24        288     A     
 COMPASS            SX6    1R*                                                             CMP24        289     A     
 COMPASS   RNS2     SA1    EDITM                                                           CMP24        290     A     
 COMPASS            SB3    10                                                              CMP24        291     A     
 COMPASS            MX0    -6                                                              CMP24        292     A     
 COMPASS            ZR     X3,RNS5     IF UNCOMPRESSED SOURCE INPUT                        CMP24        293     A     
 COMPASS            SA6    B2-B1       STORE STYPE                                         CMP24        294     A     
 COMPASS   RNS3     LX3    59                                                              CMP24        295          I
          -CMP30  
 COMPASS   RNS3     BSS    0                                                               CMP30       4596     A     
 COMPASS                                                                                   CMP30       4597     A     
 COMPASS            IFC    GE, "MODEL" 75 ,1                                               CMP30       4598          I
          -CPS028 
 COMPASS   DM       IFEQ   CP#RM,0                                                         CMP30       4599          I
          -CPS028 
 COMPASS   DM       IFNE   CP#RM,7                                                S028 705 CPS028       527     A     
 COMPASS                                                                                   CMP30       4600     A     
 COMPASS            LX3    -1                                                              CMP30       4601          I
          -CP114  
 COMPASS            PL     X3,RNS4     IF UPDATE                                           CMP24        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/28. 19.11.32.      PAGE 886    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CP114  
 COMPASS            LX3    -2                                                              CP114         49     A     
 COMPASS            MI     X3,RNS4     IF UPDATE OR MODIFY (64)                            CP114         50     A     
 COMPASS                                                                                   CMP24        297     A     
 COMPASS  *         UNPACK MODIFY COMPRESSED CARD.                                         CMP24        298          I
          -CP114  
 COMPASS  *         UNPACK MODIFY (63 CHAR SET) COMPRESSED CARD.                           CP114         51     A     
 COMPASS                                                                                   CMP24        299     A     
 COMPASS            MX3    59                                                              CMP24        300     A     
 COMPASS            SB4    -B1                                                             CMP24        301     A     
 COMPASS            SB5    1R                                                              CMP24        302     A     
 COMPASS            EQ     RNS3C                                                           CMP24        303     A     
 COMPASS   RNS3A    LX5    6           EXTRACT NEXT CHARACTER                              CMP24        304     A     
 COMPASS            BX3    -X0*X5                                                          CMP24        305     A     
 COMPASS            ZR     X3,RNS6     IF 0000 (END OF LINE)                               CMP24        306     A     
 COMPASS   RNS3B    SX3    X3+B4                                                           CMP24        307     A     
 COMPASS            SA6    A6+B1       STORE CHARACTER                                     CMP24        308     A     
 COMPASS            PL     X3,RNS3B    IF FILLING BLANKS, LOOP                             CMP24        309     A     
 COMPASS            NZ     B7,RNS3C    IF SOURCE WORD NOT EXHAUSTED                        CMP24        310     A     
 COMPASS            SA5    A5+B1                                                           CMP24        311     A     
 COMPASS            SB7    B3                                                              CMP24        312     A     
 COMPASS   RNS3C    LX5    6                                                               CMP24        313     A     
 COMPASS            SB6    X6                                                              CMP24        314     A     
 COMPASS            BX6    -X0*X5      EXTRACT NEXT CHARACTER                              CMP24        315     A     
 COMPASS            LX4    X1,B6                                                           CMP24        316     A     
 COMPASS            SB7    B7-B1                                                           CMP24        317     A     
 COMPASS            BX7    X7+X4                                                           CMP24        318     A     
 COMPASS            NZ     X6,RNS3B    IF NOT 00                                           CMP24        319     A     
 COMPASS            SB7    B7-B1                                                           CMP24        320     A     
 COMPASS            SX6    B5                                                              CMP24        321     A     
 COMPASS            PL     B7,RNS3A    IF SOURCE WORD NOT EXHAUSTED                        CMP24        322     A     
 COMPASS            SA5    A5+B1                                                           CMP24        323     A     
 COMPASS            SB7    B3-B1                                                           CMP24        324     A     
 COMPASS            EQ     RNS3A                                                           CMP24        325     A     
 COMPASS                                                                                   CMP30       4602     A     
 COMPASS   DM       ENDIF                                                                  CMP30       4603     A     
 COMPASS                                                                                   CMP24        326     A     
 COMPASS  *         UNPACK UPDATE COMPRESSED CARD.                                         CMP24        327          I
          -CP114  
 COMPASS  *         UNPACK UPDATE OR MODIFY (64 CHAR SET) COMPRESSED CARD.                 CP114         52     A     
 COMPASS                                                                                   CMP24        328     A     
 COMPASS   RNS4     SB4    B0                                                              CMP24        329     A     
 COMPASS            SB5    1R                                                              CMP24        330     A     
 COMPASS            SB6    B5                                                              CMP24        331     A     
 COMPASS            EQ     RNS4B                                                           CMP24        332     A     
 COMPASS   RNS4A    SB4    B4-B1       STORE CHARACTER                                     CMP24        333     A     
 COMPASS            SA6    A6+B1                                                           CMP24        334     A     
 COMPASS            PL     B4,RNS4A    LOOP IF FILLING BLANKS                              CMP24        335     A     
 COMPASS   RNS4B    LX5    6                                                               CMP24        336     A     
 COMPASS            SB7    B7-B1                                                           CMP24        337     A     
 COMPASS            BX6    -X0*X5      EXTRACT NEXT CHARACTER                              CMP24        338     A     
 COMPASS            LX4    X1,B6                                                           CMP24        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/28. 19.11.32.      PAGE 887    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     B7,RNS4C    IF SOURCE WORD NOT EXHAUSTED                        CMP24        340     A     
 COMPASS            SB7    B3                                                              CMP041        34     A     
 COMPASS            SA5    A5+B1                                                           CMP24        341     A     
 COMPASS            SB7    B3                                                              CMP24        342          I
          -CMP041 
 COMPASS   RNS4C    ZR     B6,RNS4D    IF 00XX CODE                                        CMP24        343     A     
 COMPASS            SB6    X6                                                              CMP24        344     A     
 COMPASS            BX7    X7+X4                                                           CMP24        345     A     
 COMPASS            NZ     B6,RNS4A    IF NOT 00 CHARACTER, GO STORE IT                    CMP24        346     A     
 COMPASS            EQ     RNS4B       GO GET XX                                           CMP24        347     A     
 COMPASS   RNS4D    SB4    X6                                                              CMP24        348     A     
 COMPASS            SX6    B5                                                              CMP24        349     A     
 COMPASS            NO                                                                     CMP041        35     A     
 COMPASS            SB6    B5                                                              CMP24        350     A     
 COMPASS            GT     B4,B1,RNS4A IF 0002-0077 CODE, GO STORE BLANKS                  CMP24        351     A     
 COMPASS            SB4    B4-B1                                                           CMP24        352     A     
 COMPASS            MX6    0                                                               CMP24        353     A     
 COMPASS            ZR     B4,RNS4A    IF 0001 CODE, GO STORE 00 CHARACTER                 CMP24        354     A     
 COMPASS            EQ     RNS6        0000 CODE, END OF LINE                              CMP24        355     A     
 COMPASS                                                                                   CMP24        356     A     
 COMPASS  *         UNPACK UNCOMPRESSED CARD IMAGE.                                        CMP24        357     A     
 COMPASS                                                                                   CMP24        358     A     
 COMPASS   RNS5     SA3    STYPE-1     SETUP A6 AND X6                                     CMP24        359     A     
 COMPASS            BX4    X6                                                              CMP24        360     A     
 COMPASS            SB6    B0          SCOPE 2 INITIAL CARD OF STATEMENT.          CPS168  CPS168         5     A     
 COMPASS   RNS5A    LX6    X3          CONTINUATION CARDS RE-ENTER HERE                    CMP24        361     A     
 COMPASS                                                                                   CMP30       4604     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4605     A     
 COMPASS                                                                                   CMP30       4606     A     
 COMPASS            NO                                                                     CMP24        362     A     
 COMPASS            SA6    A3                                                              CMP24        363     A     
 COMPASS            BX6    X4                                                              CMP24        364     A     
 COMPASS   RNS5B    LX5    6                                                               CMP24        365     A     
 COMPASS            SB6    X6          STORE CHARACTER                                     CMP24        366          I
          -CMP041 
 COMPASS            SA6    A6+B1                                                           CMP24        367          I
          -CMP041 
 COMPASS            SA6    A6+B1       STORE CHARACTER                                     CMP041        36     A     
 COMPASS            SB6    X6                                                              CMP041        37     A     
 COMPASS            BX6    -X0*X5      EXTRACT NEXT CHARACTER                              CMP24        368     A     
 COMPASS            LX4    X1,B6                                                           CMP24        369     A     
 COMPASS            SB7    B7-B1                                                           CMP24        370     A     
 COMPASS            IX5    X5-X6       REMOVE CHARACTER FROM SOURCE WORD                   CMP24        371     A     
 COMPASS            BX7    X7+X4                                                           CMP24        372     A     
 COMPASS            NZ     B7,RNS5C    IF SOURCE WORD NOT EXHAUSTED                        CMP24        373     A     
 COMPASS            SB7    B3                                                              CMP041        38     A     
 COMPASS            SA5    A5+B1                                                           CMP24        374     A     
 COMPASS            SB7    B3                                                              CMP24        375          I
          -CMP041 
 COMPASS   RNS5C    NZ     X6,RNS5B    IF NOT 00 CHARACTER, GO STORE IT                    CMP24        376     A     
 COMPASS            NZ     X5,RNS5B    IF 00 FOLLOWED BY ANYTHING OTHER                    CMP24        377     A     
 COMPASS            MI     X5,RNS5B    THAN 00, GO STORE THE 00 CHARACTER                  CMP24        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/28. 19.11.32.      PAGE 888    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       4607     A     
 COMPASS   RM       ELSE                                                                   CMP30       4608     A     
 COMPASS                                                                                   CMP30       4609     A     
 COMPASS            SA6    A3                                                              CMP30       4610     A     
 COMPASS   +        BX6    X4                                                              CMP30       4611     A     
 COMPASS            SA6    A6+B1                                                           CMP30       4612     A     
 COMPASS            ZR     B5,RNS6     IF EMPTY LINE                                       CMP30       4613     A     
 COMPASS            GE     B5,B3,RNS5B IF AT LEAST TEN CHARACTERS                          CMP30       4614     A     
 COMPASS            SB7    B5                                                              CMP30       4615          I
          -CPS168 
 COMPASS            SB7    B5-B6       ALLOW FOR LEADING COMMA ON CONTINUATION.    CPS168  CPS168         6     A     
 COMPASS            ZR     B7,RNS6                                                         CPSA158        5     A     
 COMPASS   RNS5B    LX5    6                                                               CMP30       4616     A     
 COMPASS            BX6    -X0*X5      EXTRACT NEXT CHARACTER                              CMP30       4617     A     
 COMPASS            SB6    X6                                                              CMP30       4618     A     
 COMPASS            NO                                                                     CMP30       4619     A     
 COMPASS            LX4    X1,B6       TEST FOR EDITING CHARACTERS                         CMP30       4620     A     
 COMPASS            SB7    B7-B1                                                           CMP30       4621     A     
 COMPASS            BX7    X7+X4                                                           CMP30       4622     A     
 COMPASS            SA6    A6+B1       STORE CHARACTER                                     CMP30       4623     A     
 COMPASS            NZ     B7,RNS5B    IF SOURCE WORD NOT EXHAUSTED                        CMP30       4624     A     
 COMPASS            SB5    B5-B3                                                           CMP30       4625     A     
 COMPASS            SA5    A5+B1       GET NEXT WORD                                       CMP30       4626     A     
 COMPASS            SB7    B3                                                              CMP30       4627     A     
 COMPASS            GE     B5,B3,RNS5B IF AT LEAST TEN CHARACTERS REMAIN                   CMP30       4628     A     
 COMPASS            SB7    B5                                                              CMP30       4629     A     
 COMPASS            GT     B5,B0,RNS5B IF NOT END OF LINE                                  CMP30       4630     A     
 COMPASS                                                                                   CMP30       4631     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4632     A     
 COMPASS                                                                                   CMP24        379     A     
 COMPASS  *         FILL WITH BLANKS IF LESS THAN 90 CHARACTERS READ.                      CMP24        380     A     
 COMPASS                                                                                   CMP24        381     A     
 COMPASS   RNS6     SA7    EDITFG                                                          CMP24        382     A     
 COMPASS            SX7    B2+72                                                           CMP24        383     A     
 COMPASS            SB7    B2+89                                                           CMP24        384     A     
 COMPASS            SA7    RNSA                                                            CMP24        385     A     
 COMPASS            SB7    A6-B7                                                           CMP24        386     A     
 COMPASS            SX6    1R                                                              CMP24        387     A     
 COMPASS   +        SB7    B7+B1                                                           CMP24        388     A     
 COMPASS            SA6    A6+B1                                                           CMP24        389     A     
 COMPASS            MI     B7,*        LOOP                                                CMP24        390     A     
 COMPASS                                                                                   CMP24        391     A     
 COMPASS  *         COLLECT SEQUENCE FIELD.                                                CMP24        392     A     
 COMPASS                                                                                   CMP24        393     A     
 COMPASS            SA3    AMODE                                                           CMP24        394          I
          -CMP30  
 COMPASS            SA3    CP.IFORM                                                        CMP30       4633     A     
 COMPASS            SA1    CCT                                                             CMP24        395     A     
 COMPASS            ZR     X3,RNS7     IF UNCOMPRESSED INPUT                               CMP24        396     A     
 COMPASS            MX0    18                                                              CMP041        39     A     
 COMPASS            SA4    A0+B1                                                           CMP24        397     A     
 COMPASS            MX0    42                                                              CMP24        398          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 889    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP041 
 COMPASS            MI     X3,RNS8A    IF COMMON DECK                                      CMP24        399     A     
 COMPASS            LX3    59                                                              CMP24        400     A     
 COMPASS            MI     X3,RNS6A    IF MODIFY COMPRESSED COMPILE FILE                   CMP24        401     A     
 COMPASS                                                                                   CMP24        402     A     
 COMPASS            SA3    A0          COLUMNS 73-82                                       CMP24        403          I
          -CMP041 
 COMPASS            BX4    X0*X4       COLUMNS 83-89                                       CMP24        404          I
          -CMP041 
 COMPASS            MX0    12                                                              CMP24        405          I
          -CMP041 
 COMPASS            LX4    -12                                                             CMP24        406          I
          -CMP041 
 COMPASS            LX3    -12                                                             CMP24        407          I
          -CMP041 
 COMPASS            SX5    1R                                                              CMP24        408          I
          -CMP041 
 COMPASS            BX6    -X0*X3      COLUMNS 73-80                                       CMP24        409          I
          -CMP041 
 COMPASS            IX5    X4+X5                                                           CMP24        410          I
          -CMP041 
 COMPASS            BX7    X3-X6                                                           CMP24        411          I
          -CMP041 
 COMPASS            BX7    X7+X5       COLUMNS 81-90                                       CMP24        412          I
          -CMP041 
 COMPASS            SA3    A0          COLUMNS 74-83                                       CMP041        40     A     
 COMPASS            LX4    -18                                                             CMP041        41     A     
 COMPASS            BX7    -X0*X4      COLUMNS 84-90                                       CMP041        42     A     
 COMPASS            SX5    1R                                                              CMP041        43     A     
 COMPASS            LX3    -18                                                             CMP041        44     A     
 COMPASS            BX6    -X0*X3      COLUMNS 74-80                                       CMP041        45     A     
 COMPASS            IX4    X3-X6       COLUMNS 81-83                                       CMP041        46     A     
 COMPASS            LX5    42                                                              CMP041        47     A     
 COMPASS            BX7    X4+X7       COLUMNS 81-90                                       CMP041        48     A     
 COMPASS            IX6    X5+X6       COLUMNS 73-80                                       CMP041        49     A     
 COMPASS            EQ     RNS8                                                            CMP24        413     A     
 COMPASS                                                                                   CMP24        414     A     
 COMPASS   RNS6A    BX6    X4          STORE IDENTIFIER AND                                CMP24        415     A     
 COMPASS            SA6    SEQ+X1      BINARY SEQUENCE NUMBER                              CMP24        416     A     
 COMPASS            EQ     RNS8A                                                           CMP24        417     A     
 COMPASS                                                                                   CMP24        418     A     
 COMPASS   RNS7     SA3    X7          COLLECT COLUMNS 73-80                               CMP24        419     A     
 COMPASS            MX6    0                                                               CMP24        420     A     
 COMPASS            SB7    8                                                               CMP24        421     A     
 COMPASS   RNS7B    LX6    6                                                               CMP24        422     A     
 COMPASS            SB7    B7-B1                                                           CMP24        423     A     
 COMPASS            BX6    X6+X3                                                           CMP24        424     A     
 COMPASS            SA3    A3+B1                                                           CMP24        425     A     
 COMPASS            NZ     B7,RNS7B                                                        CMP24        426     A     
 COMPASS            MX7    0           COLLECT COLUMNS 81-90                               CMP24        427     A     
 COMPASS            SB7    B3                                                              CMP24        428     A     
 COMPASS   RNS7C    LX7    6                                                               CMP24        429     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 890    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    B7-B1                                                           CMP24        430     A     
 COMPASS            BX7    X7+X3                                                           CMP24        431     A     
 COMPASS            SA3    A3+B1                                                           CMP24        432     A     
 COMPASS            NZ     B7,RNS7C                                                        CMP24        433     A     
 COMPASS                                                                                   CMP24        434     A     
 COMPASS   RNS8     LX0    X1,B1       STORE SEQUENCE FIELD                                CMP24        435     A     
 COMPASS            SA6    SEQ+X0                                                          CMP24        436     A     
 COMPASS            SA7    A6+B1                                                           CMP24        437     A     
 COMPASS   RNS8A    SX6    X1+B1       INCREMENT CCT                                       CMP24        438     A     
 COMPASS            SA6    A1                                                              CMP24        439     A     
 COMPASS                                                                                   CMP24        440     A     
 COMPASS  *         READ NEXT CARD AND LOOP IF CONTINUATION CARD.                          CMP24        441     A     
 COMPASS                                                                                   CMP24        442     A     
 COMPASS            RJ     RNC         READ NEXT CARD                                      CMP24        443     A     
 COMPASS                                                                                   CMP30       4634     A     
 COMPASS            IFNE   CP#RM,0,2                                                       CMP30       4635     A     
 COMPASS            FETCH  X2,RL,X3                                                        CMP30       4636     A     
 COMPASS            SB5    X3                                                              CMP30       4637     A     
 COMPASS                                                                                   CMP30       4638     A     
 COMPASS            SA5    X0                                                              CMP24        444     A     
 COMPASS            MX0    6                                                               CMP24        445     A     
 COMPASS            SA4    CCT                                                             CMP24        446     A     
 COMPASS            SA1    RNSA                                                            CMP24        447     A     
 COMPASS            BX6    X0*X5       EXTRACT FIRST CHARACTER                             CMP24        448     A     
 COMPASS            LX6    6                                                               CMP24        449     A     
 COMPASS            SB6    X4-NCARDS                                                       CMP24        450     A     
 COMPASS            SB7    X6-1R,                                                          CMP24        451     A     
 COMPASS            ZR     B6,RNS9     IF TOO MANY CONTINUATION CARDS                      CMP24        452     A     
 COMPASS            NZ     B7,RNS9     IF FIRST CHARACTER NOT COMMA                        CMP24        453     A     
 COMPASS            SA3    EDITFG                                                          CMP24        454     A     
 COMPASS            SB3    10                                                              CMP24        455     A     
 COMPASS            LX5    6                                                               CMP24        456     A     
 COMPASS            SA4    X1-1                                                            CMP24        457     A     
 COMPASS            SB7    B3-B1       PREPARE TO UNPACK CONTINUATION CARD                 CMP24        458     A     
 COMPASS            BX5    X5-X6       SO THAT ITS COLUMN 2 CHARACTER                      CMP24        459     A     
 COMPASS            LX7    X3          FOLLOWS COLUMN 72 OF PREVIOUS CARD                  CMP24        460     A     
 COMPASS            SA3    AMODE                                                           CMP24        461          I
          -CMP30  
 COMPASS            SA3    CP.IFORM                                                        CMP30       4639     A     
 COMPASS            SA1    EDITM                                                           CMP24        462     A     
 COMPASS            MX0    -6                                                              CMP24        463     A     
 COMPASS            BX6    X4                                                              CMP24        464     A     
 COMPASS            SB2    A4                                                              CMP24        465     A     
 COMPASS            SA6    A4                                                              CMP24        466     A     
 COMPASS            NZ     X3,RNS3     IF COMPRESSED SOURCE INPUT                          CMP24        467     A     
 COMPASS            SA3    A4-B1                                                           CMP24        468     A     
 COMPASS            SB6    B1          SCOPE 2 COMPENSATE FOR COMMA.               CPS168  CPS168         7     A     
 COMPASS            EQ     RNS5A       IF UNCOMPRESSED SOURCE INPUT                        CMP24        469     A     
 COMPASS                                                                                   CMP24        470     A     
 COMPASS  *         END OF STATEMENT.                                                      CMP24        471     A     
 COMPASS                                                                                   CMP24        472     A     
 COMPASS   RNS9     SA4    LASTCOL     CLEAR FROM END OF THIS STATEMENT                    CMP24        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/28. 19.11.32.      PAGE 891    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    X1-CARD     TO END OF PREVIOUS STATEMENT                        CMP24        474     A     
 COMPASS            SB3    X1+18                                                           CMP24        475     A     
 COMPASS            SB4    X4+CARD                                                         CMP24        476     A     
 COMPASS            SX6    1R                                                              CMP24        477     A     
 COMPASS            SB2    X1                                                              CMP24        478     A     
 COMPASS            SA7    A4          STORE NEW LASTCOL                                   CMP24        479     A     
 COMPASS            SA6    X1                                                              CMP24        480     A     
 COMPASS            GE     B3,B4,RNS9A                                                     CMP24        481     A     
 COMPASS            SB3    B4                                                              CMP24        482     A     
 COMPASS   RNS9A    SB2    B2+B1                                                           CMP24        483     A     
 COMPASS            SA6    A6+B1                                                           CMP24        484     A     
 COMPASS            LT     B2,B3,RNS9A LOOP                                                CMP24        485     A     
 COMPASS            EQ     RNS                                                             CMP24        486     A     
 COMPASS                                                                                   CMP24        487     A     
 COMPASS   RNSA     DATA   0                                                               CMP24        488     A     
 COMPASS   RSL      SPACE  4                                                               COMPASS    14203     A     
 COMPASS  **        RSL - RECORD SEGMENT LENGTH.                                           COMPASS    14204     A     
 COMPASS                                                                                   COMPASS    14205     A     
 COMPASS                                                                                   COMPASS    14206     A     
 COMPASS   RSL      PS                 RETURN EXIT                                         COMPASS    14207     A     
 COMPASS            SA2    O.SEGTAB                                                        COMPASS    14208     A     
 COMPASS            SA3    L.SEGTAB                                                        COMPASS    14209     A     
 COMPASS            SA1    ORGCTR                                                          COMPASS    14210     A     
 COMPASS            IX3    X2+X3                                                           COMPASS    14211     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    14212     A     
 COMPASS            NZ     X2,RSL1     CHANGE ABSOLUTE ORIGIN TO 1                         COMPASS    14213     A     
 COMPASS            SA2    UI+1                                                            COMPASS    14214     A     
 COMPASS   RSL1     LX2    21                                                              COMPASS    14215     A     
 COMPASS            BX6    X1+X2                                                           COMPASS    14216     A     
 COMPASS            SA6    X3-4                                                            COMPASS    14217     A     
 COMPASS            EQ     RSL                                                             COMPASS    14218     A     
 COMPASS   RSG      SPACE  4                                                               COMPASS    14219     A     
 COMPASS  **        RSG - RELOCATE SEGMENT TABLE.                                          COMPASS    14220     A     
 COMPASS                                                                                   COMPASS    14221     A     
 COMPASS                                                                                   COMPASS    14222     A     
 COMPASS   RSG      PS                 RETURN EXIT                                         COMPASS    14223     A     
 COMPASS            SA1    O.SEGTAB                                                        COMPASS    14224     A     
 COMPASS            SA2    L.SEGTAB                                                        COMPASS    14225     A     
 COMPASS            SB6    X1                                                              COMPASS    14226     A     
 COMPASS            SB7    B6+X2                                                           COMPASS    14227     A     
 COMPASS            SA3    O.USETAB                                                        COMPASS    14228     A     
 COMPASS            SB5    X3-4                                                            COMPASS    14229          I
          -CMP30  
 COMPASS            SB4    21-2                                                            CMP30       4640     A     
 COMPASS            SB5    X3-2                                                            CMP30       4641     A     
 COMPASS            SB7    B7-4                                                            COMPASS    14230     A     
 COMPASS   RSG1     SA1    B7          FETCH SEGMENT LWA AND RELOCATION                    COMPASS    14231          I
          -CMP30  
 COMPASS            SX3    1S10-1S2                                                        CMP30       4642          I
          -CPS227 
 COMPASS            SX3    3774B       MASK FOR RELOCATION                                 CPS227         5     A     
 COMPASS            MX0    -21         FETCH SEGMENT LWA AND RELOCATION                    CMP30       4643     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 892    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    B7                                                              CMP30       4644     A     
 COMPASS            SA5    B7+2        EPTAB/LITAB INDEX                                   COMPASS    14232          I
          -CMP17  
 COMPASS   RSG2     SA4    B7+B1       USE INDEX                                           COMPASS    14233          I
          -CMP17  
 COMPASS            SA5    B7+2        SLITS/EPTAB/LITAB INDEX                             CMP17         25          I
          -CPS012 
 COMPASS            SA2    B7+B1       USETAB/IDTAB INDEX                                  CPS012         4     A     
 COMPASS            SA5    A2+B1       SLITS/EPTAB/LITAB INDEX                             CPS012         5     A     
 COMPASS   RSG2     SA4    B7+B1       USETAB/IDTAB INDEX                                  CMP17         26          I
          -CMP30  
 COMPASS   RSG1     SA4    B7+B1       USETAB/IDTAB INDEX                                  CMP30       4645          I
          -CPS012 
 COMPASS   RSG1     LX4    X2                                                              CPS012         6     A     
 COMPASS            BX7    X5                                                              COMPASS    14234     A     
 COMPASS            SA5    A4+B1                                                           COMPASS    14235          I
          -CPS012 
 COMPASS            SA5    A2+1                                                            CPS012         7     A     
 COMPASS   RSG3     MX0    -21                                                             COMPASS    14236          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    14237          I
          -CMP30  
 COMPASS            AX1    21          6*RELOCATION                                        COMPASS    14238          I
          -CMP30  
 COMPASS            LX1    1                                                               COMPASS    14239          I
          -CMP30  
 COMPASS            IX3    X1+X1                                                           COMPASS    14240          I
          -CMP30  
 COMPASS            IX1    X3+X1                                                           COMPASS    14241          I
          -CMP30  
 COMPASS            SA1    B5+X1       FETCH BLOCK ORIGIN                                  COMPASS    14242          I
          -CMP30  
 COMPASS            IX6    X6+X1       CALCULATE SEGMENT LWA                               COMPASS    14243          I
          -CMP30  
 COMPASS   RSG2     AX6    X1,B4                                                           CMP30       4646          I
          -CPS012 
 COMPASS            BX4    X3*X6                                                           CMP30       4647          I
          -CPS012 
 COMPASS            SA2    B5+X4       FETCH BLOCK ORIGIN                                  CMP30       4648          I
          -CPS012 
 COMPASS   RSG2     AX2    X1,B4       RELOCATION * 4                                      CPS012         8     A     
 COMPASS            BX6    X3*X2                                                           CPS012         9     A     
 COMPASS            SA2    B5+X6       FETCH BLOCK ORIGIN                                  CPS012        10          I
          -RSM4159
 COMPASS            BX2    X4                                                              RSM4159       31     A     
 COMPASS            AX2    18          USETAB INDEX                                        RSM4159       32     A     
 COMPASS            IX2    X2+X6                                                           RSM4159       33     A     
 COMPASS            SA2    B5+X2       FETCH BLOCK ORIGIN                                  RSM4159       34     A     
 COMPASS            IX6    X1+X2       CALCULATE SEGMENT LWA                               CMP30       4649     A     
 COMPASS            BX6    -X0*X6                                                          COMPASS    14244     A     
 COMPASS            SA6    B7                                                              COMPASS    14245     A     
 COMPASS            SA7    B7+3        EPTAB/LITAB INDEX                                   COMPASS    14246          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 893    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            SA7    B7+3        SLITS/EPTAB/LITAB INDEX                             CMP17         27     A     
 COMPASS            EQ     B6,B7,RSG   IF END OF TABLE                                     COMPASS    14247     A     
 COMPASS            SB7    B7-4                                                            COMPASS    14248     A     
 COMPASS            SA2    B7+B1                                                           COMPASS    14249     A     
 COMPASS            BX6    X4-X2                                                           COMPASS    14250     A     
 COMPASS            AX6    18                                                              COMPASS    14251     A     
 COMPASS            SA1    B7                                                              COMPASS    14252     A     
 COMPASS            ZR     X6,RSG3     IF SAME USETAB INDEX                                COMPASS    14253          I
          -CMP30  
 COMPASS            EQ     RSG2                                                            COMPASS    14254          I
          -CMP30  
 COMPASS            ZR     X6,RSG2     IF SAME USETAB INDEX                                CMP30       4650     A     
 COMPASS            EQ     RSG1                                                            CMP30       4651     A     
 COMPASS   RSS      SPACE  4                                                               COMPASS    14255     A     
 COMPASS  **        RSS - RECORD SEGMENT START.                                            COMPASS    14256     A     
 COMPASS                                                                                   COMPASS    14257     A     
 COMPASS                                                                                   COMPASS    14258     A     
 COMPASS   RSS      PS                 RETURN EXIT                                         COMPASS    14259     A     
 COMPASS            MANAGE SEGTAB,4                                                        COMPASS    14260     A     
 COMPASS            IX3    X2+X3                                                           COMPASS    14261     A     
 COMPASS            SA1    L.IDTAB                                                         COMPASS    14262     A     
 COMPASS            MX6    0                                                               COMPASS    14263     A     
 COMPASS            SA6    X3-4                                                            COMPASS    14264     A     
 COMPASS            SA2    UI                                                              COMPASS    14265     A     
 COMPASS            SA3    LI                                                              COMPASS    14266          I
          -CMP17  
 COMPASS            SA3    EI                                                              CMP17         28     A     
 COMPASS            SA4    LI                                                              CMP17         29     A     
 COMPASS            LX2    18                                                              COMPASS    14267     A     
 COMPASS            SA4    EI                                                              COMPASS    14268          I
          -CMP17  
 COMPASS            SA5    DI                                                              CMP17         30     A     
 COMPASS            BX7    X2+X1                                                           COMPASS    14269     A     
 COMPASS            LX3    18                                                              CMP17         31     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    14270     A     
 COMPASS            LX4    18                                                              COMPASS    14271          I
          -CMP17  
 COMPASS            IX7    X4+X3                                                           COMPASS    14272          I
          -CMP17  
 COMPASS            BX4    X3+X4                                                           CMP17         32     A     
 COMPASS            LX5    36                                                              CMP17         33     A     
 COMPASS            BX7    X5+X4                                                           CMP17         34     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    14273     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    14274     A     
 COMPASS            SA1    QVAL        RECORD CURRENT QUAL BLOCK                           COMPASS    14275     A     
 COMPASS            SA2    NBASE       RECORD CURRENT BASE                                 COMPASS    14276     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    14277     A     
 COMPASS            ADDWORD IDTAB                                                          COMPASS    14278     A     
 COMPASS            PCARD  IDTAB                                                           COMPASS    14279     A     
 COMPASS            EQ     RSS         RETURN                                              COMPASS    14280     A     
 COMPASS   RST      SPACE  4                                                               COMPASS    14281     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 894    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  **        RST - RELOCATE SYMBOL TABLE.                                           COMPASS    14282     A     
 COMPASS                                                                                   COMPASS    14283     A     
 COMPASS                                                                                   COMPASS    14284     A     
 COMPASS   RST      PS                 RETURN EXIT                                         COMPASS    14285     A     
 COMPASS            SA1    L.SYMTAB                                                        COMPASS    14286     A     
 COMPASS            SA2    O.SYMTAB                                                        COMPASS    14287     A     
 COMPASS            SA3    O.USETAB                                                        COMPASS    14288     A     
 COMPASS            SA4    UI                                                              RSM4159       35     A     
 COMPASS            IX3    X3+X4       BASE ADDRESS OF BLOCK GROUP                         RSM4159       36     A     
 COMPASS            SB6    X2+B1       (B6) = O.SYMTAB                                     COMPASS    14289          I
          -CMP30  
 COMPASS            SB2    B1+B1                                                           CMP30       4652     A     
 COMPASS            SB7    X1          (B7) = L.SYMTAB                                     COMPASS    14290     A     
 COMPASS            SB4    -31+59      (B4) = EXTERNAL SHIFT                               COMPASS    14291     A     
 COMPASS            SB5    X3-4        (B5) = USETAB INDEX                                 COMPASS    14292          I
          -CMP30  
 COMPASS            SB5    X3-2        (B5) = USETAB INDEX                                 CMP30       4653     A     
 COMPASS            SB6    -29+59      (B6) = RELOCATION SIGN SHIFT                        CPS008         1     A     
 COMPASS            MX0    -21         (X0) = VALUE MASK                                   COMPASS    14293     A     
 COMPASS            MX5    9                                                               COMPASS    14294          I
          -CPS008 
 COMPASS            LX5    30          (X5) = RELOCATION VALUE MASK                        COMPASS    14295          I
          -CPS008 
 COMPASS            MX5    8           (X5) = RELOCATION VALUE MASK                        CPS008         2     A     
 COMPASS            LX5    21-52                                                           CPS008         3     A     
 COMPASS            SB3    -20+59      (B3) = VALUE SHIFT                                  COMPASS    14296          I
          -CMP30  
 COMPASS            MX7    31          (X7) = RELOCATION MASK                              COMPASS    14297     A     
 COMPASS   RST1     SB7    B7-2                                                            COMPASS    14298          I
          -CMP30  
 COMPASS            NG     B7,RST      IF END OF SYMBOL TABLE                              COMPASS    14299          I
          -CMP30  
 COMPASS            SA1    B6+B7                                                           COMPASS    14300          I
          -CMP30  
 COMPASS            LX6    X1,B4                                                           COMPASS    14301          I
          -CMP30  
 COMPASS            NG     X6,RST1     IF EXTERNAL                                         COMPASS    14302          I
          -CMP30  
 COMPASS            BX4    X5*X1       EXTRACT SYMBOL RELOCATION                           COMPASS    14303          I
          -CMP30  
 COMPASS            ZR     X4,RST1     IF ABSOLUTE                                         COMPASS    14304          I
          -CMP30  
 COMPASS            MX2    -9          EXTRACT RELOCATION NUMBER                           COMPASS    14305          I
          -CMP30  
 COMPASS            LX4    -20         CALCULATE USETAB INDEX                              COMPASS    14306          I
          -CMP30  
 COMPASS            BX4    -X2*X4                                                          COMPASS    14307          I
          -CMP30  
 COMPASS            IX3    X4+X4                                                           COMPASS    14308          I
          -CMP30  
 COMPASS            LX6    -29+31      EXTEND SIGN OF RELOCATION                           COMPASS    14309          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 895    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX4    X3+X4                                                           COMPASS    14310          I
          -CMP30  
 COMPASS            SA2    B5+X4                                                           COMPASS    14311          I
          -CMP30  
 COMPASS            AX6    60                                                              COMPASS    14312          I
          -CMP30  
 COMPASS            BX3    -X0*X2      BLOCK ORIGIN                                        COMPASS    14313          I
          -CMP30  
 COMPASS            AX2    24          EXTRACT NEW RELOCATION                              COMPASS    14314          I
          -CMP30  
 COMPASS            LX2    21                                                              COMPASS    14315          I
          -CMP30  
 COMPASS            LX4    X1,B3       SIGN EXTEND EQUIVALENT                              COMPASS    14316          I
          -CMP30  
 COMPASS            AX4    -21                                                             COMPASS    14317          I
          -CMP30  
 COMPASS            BX3    X3-X6                                                           COMPASS    14318          I
          -CMP30  
 COMPASS            IX6    X3+X4       ADD IN SIGNED ORIGIN                                COMPASS    14319          I
          -CMP30  
 COMPASS            BX1    X7*X1       ISOLATE CONTROL BITS AND R SIGN                     COMPASS    14320          I
          -CMP30  
 COMPASS            BX6    -X0*X6      ISOLATE NEW EQUIVALENT                              COMPASS    14321          I
          -CMP30  
 COMPASS            IX6    X6+X1                                                           COMPASS    14322          I
          -CMP30  
 COMPASS            IX6    X6+X2                                                           COMPASS    14323          I
          -CMP30  
 COMPASS            SA6    B6+B7                                                           COMPASS    14324          I
          -CMP30  
 COMPASS            EQ     RST1        LOOP TO END OF TABLE                                COMPASS    14325          I
          -CMP30  
 COMPASS            SA1    X2-1                                                            CMP30       4654          I
          -CP096A 
 COMPASS            SX3    X2-1                                                            CP096A       493     A     
 COMPASS            RX1    X3                                                              CP096A       494     A     
 COMPASS            SB3    X3                                                              CP096A       495     A     
 COMPASS            EQ     RST2                                                            CMP30       4655     A     
 COMPASS   RST1     LX6    59-30                                                           CMP30       4656          I
          -CPS008 
 COMPASS            AX2    21+1-2      4 * BLOCK NUMBER                                    CMP30       4657          I
          -CPS008 
 COMPASS            LX3    59-20+31-59                                                     CMP30       4658          I
          -CPS008 
 COMPASS   RST1     AX2    21-2        4 * BLOCK NUMBER                                    CPS008         4     A     
 COMPASS            SA2    B5+X2       SECOND WORD OF USETAB ENTRY                         CMP30       4659     A     
 COMPASS            LX6    X1,B6                                                           CPS008         5     A     
 COMPASS            LX3    59-20+31-59                                                     CPS008         6     A     
 COMPASS            AX6    59          SIGN OF RELOCATION                                  CMP30       4660     A     
 COMPASS            BX1    X7*X1                                                           CMP30       4661     A     
 COMPASS            AX3    59-20       SIGN EXTEND RELATIVE ADDRESS                        CMP30       4662     A     
 COMPASS            BX4    -X0*X2      BLOCK ORIGIN                                        CMP30       4663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 896    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX2    24-21                                                           CMP30       4664     A     
 COMPASS            BX6    X6-X4       COMPLEMENT BLOCK ORIGIN IF NEG RELOCATION           CMP30       4665     A     
 COMPASS            BX2    X5*X2       BLOCK RELOCATION                                    CMP30       4666     A     
 COMPASS            IX3    X3+X6                                                           CMP30       4667     A     
 COMPASS            BX4    -X0*X3                                                          CMP30       4668     A     
 COMPASS            IX2    X1+X2                                                           CMP30       4669     A     
 COMPASS            BX6    X2+X4                                                           CMP30       4670     A     
 COMPASS                                                                                   CP096A       496     A     
 COMPASS   RM       IFNE   CP#RM,7                                                         CP096A       497     A     
 COMPASS            SA6    A1          RESTORE SYMBOL TABLE ENTRY                          CMP30       4671     A     
 COMPASS   RST2     SB7    B7-B2                                                           CMP30       4672     A     
 COMPASS            SA1    A1+B2       NEXT SYMBOL TABLE ENTRY                             CMP30       4673     A     
 COMPASS   RM       ELSE                                                                   CP096A       498     A     
 COMPASS            SX3    B3          RESTORE SYMBOL TABLE ENTRY                          CP096A       499     A     
 COMPASS            WX6    X3                                                              CP096A       500     A     
 COMPASS   RST2     SX3    B3+B2                                                           CP096A       501     A     
 COMPASS            RX1    X3          NEXT SYMBOL TABLE ENTRY                             CP096A       502     A     
 COMPASS            SB3    X3                                                              CP096A       503     A     
 COMPASS            SB7    B7-B2                                                           CP096A       504     A     
 COMPASS   RM       ENDIF                                                                  CP096A       505     A     
 COMPASS                                                                                   CP096A       506     A     
 COMPASS            BX6    X5*X1                                                           CMP30       4674          I
          -CPS008 
 COMPASS            BX2    X5*X1                                                           CPS008         7     A     
 COMPASS            LX3    X1,B4                                                           CMP30       4675     A     
 COMPASS            MI     B7,RST      IF END OF SYMBOL TABLE                              CMP30       4676     A     
 COMPASS            ZR     X6,RST2     IF ABSOLUTE OR NULL ENTRY                           CMP30       4677          I
          -CPS008 
 COMPASS            LX6    1                                                               CMP30       4678          I
          -CPS008 
 COMPASS            BX2    X5*X6       BLOCK NUMBER                                        CMP30       4679          I
          -CPS008 
 COMPASS            ZR     X2,RST2     IF ABSOLUTE OR NULL ENTRY                           CPS008         8     A     
 COMPASS            PL     X3,RST1     IF NOT EXTERNAL                                     CMP30       4680     A     
 COMPASS            EQ     RST2        LOOP                                                CMP30       4681     A     
 COMPASS   RUT      SPACE  4                                                               COMPASS    14326     A     
 COMPASS  **        RUT - RELOCATE USE TABLE.                                              COMPASS    14327     A     
 COMPASS  *         ENTRY  (X1) = USE TABLE INDEX.                                         COMPASS    14328     A     
 COMPASS  *         EXIT   (X0) = PROGRAM LENGTH.                                          COMPASS    14329     A     
 COMPASS                                                                                   COMPASS    14330     A     
 COMPASS                                                                                   COMPASS    14331     A     
 COMPASS   RUT      PS                 RETURN EXIT                                         COMPASS    14332     A     
 COMPASS            SA5    ABSFG                                                           COMPASS    14333     A     
 COMPASS            SA3    O.USETAB                                                        COMPASS    14334     A     
 COMPASS            SA2    L.USETAB                                                        COMPASS    14335     A     
 COMPASS            SA4    UI                                                              RSM4159       37     A     
 COMPASS            LX6    X1,B1                                                           COMPASS    14336          I
          -CMP30  
 COMPASS            IX6    X6+X1                                                           COMPASS    14337          I
          -CMP30  
 COMPASS            LX6    1                                                               COMPASS    14338          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 897    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX6    X3+X6                                                           COMPASS    14339          I
          -CMP30  
 COMPASS            SB6    X6-6                                                            COMPASS    14340          I
          -CMP30  
 COMPASS            LX1    2                                                               CMP30       4682     A     
 COMPASS            IX1    X1+X4                                                           RSM4159       38     A     
 COMPASS            IX6    X3+X1                                                           CMP30       4683     A     
 COMPASS            SB6    X6-4                                                            CMP30       4684     A     
 COMPASS            IX2    X2+X3                                                           COMPASS    14341     A     
 COMPASS            SB7    X2                                                              COMPASS    14342     A     
 COMPASS            SB4    X5+B1       ABSOLUTE FLAG + 1                                   COMPASS    14343     A     
 COMPASS            MX2    -21                                                             COMPASS    14344     A     
 COMPASS            SB3    B0                                                              COMPASS    14345     A     
 COMPASS            SA3    =R/PROGRAM*/ SET UP REAL BLOCK NAMES                            COMPASS    14346     A     
 COMPASS            SA4    =R/ABSOLUTE*/                                                   COMPASS    14347     A     
 COMPASS            BX6    X3                                                              COMPASS    14348     A     
 COMPASS            LX7    X4                                                              COMPASS    14349     A     
 COMPASS            SA6    B6+6                                                            COMPASS    14350          I
          -CMP30  
 COMPASS            SA6    B6+4                                                            CMP30       4685     A     
 COMPASS            SA7    B6                                                              COMPASS    14351     A     
 COMPASS            BX0    X0-X0       PROGRAM LENGTH                                      COMPASS    14352     A     
 COMPASS            SB5    6                                                               COMPASS    14353          I
          -CMP30  
 COMPASS            SB5    33                                                              CMP30       4686     A     
 COMPASS            EQ     B4,B1,RUT1  IF RELOCATABLE                                      COMPASS    14354     A     
 COMPASS            SA6    A7                                                              COMPASS    14355     A     
 COMPASS   RUT1     SA1    B6+B1       FETCH BLOCK LENGTH                                  COMPASS    14356     A     
 COMPASS            SA3    A1+B1       TYPE FLAG                                           COMPASS    14357     A     
 COMPASS            SA4    B6          CHECK NAME                                          COMPASS    14358     A     
 COMPASS            SB2    B3+B4       ABSFG + 1 + INDEX                                   COMPASS    14359     A     
 COMPASS            BX1    -X2*X1                                                          COMPASS    14360     A     
 COMPASS   +        NE     B4,B1,*+1   IF ABSOLUTE ASSEMBLY                                COMPASS    14361     A     
 COMPASS            NZ     X3,RUT3     IF COMMON BLOCK                                     COMPASS    14362     A     
 COMPASS            NG     X4,RUT5     IF LCM BLOCK IN ABSOLUTE ASSEMBLY                   COMPASS    14363     A     
 COMPASS            EQ     B1,B2,RUT4  IF ABSOLUTE BLOCK IN RELOCATABLE ASSEMBLY           COMPASS    14364     A     
 COMPASS            SB2    B1+B1                                                           COMPASS    14365     A     
 COMPASS            SX5    B2-B4       CALCULATE BLOCK ORIGIN                              COMPASS    14366     A     
 COMPASS            LX5    24                                                              COMPASS    14367     A     
 COMPASS            BX6    X5+X0                                                           COMPASS    14368     A     
 COMPASS            SA6    A3                                                              COMPASS    14369          I
          -CMP30  
 COMPASS            IX0    X1+X0       AUGMENT PROGRAM LENGTH                              COMPASS    14370     A     
 COMPASS            BX7    X0          STORE BLOCK MAXIMUM                                 COMPASS    14371          I
          -CMP30  
 COMPASS            SA7    B6+5                                                            COMPASS    14372          I
          -CMP30  
 COMPASS   RUT2     SB3    B3+B5                                                           COMPASS    14373          I
          -CMP30  
 COMPASS            MX6    0           CLEAR BINREL WORD                                   COMPASS    14374          I
          -CMP30  
 COMPASS            SA6    A7-B1                                                           COMPASS    14375          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 898    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA6    A6-B1       CLEAR BINWORD WORD                                  COMPASS    14376          I
          -CMP30  
 COMPASS            SB6    B6+B5       INCREMENT LOAD ADDRESS                              COMPASS    14377          I
          -CMP30  
 COMPASS            LX7    X0,B5                                                           CMP30       4687     A     
 COMPASS            BX6    X6+X7                                                           CMP30       4688     A     
 COMPASS            SA6    A3          STORE BLOCK ORIGIN, RELOCATION, MAXIMUM             CMP30       4689     A     
 COMPASS   RUT2     MX6    0                                                               CMP30       4690     A     
 COMPASS            SB3    B3+4        INCREMENT BLOCK INDEX                               CMP30       4691     A     
 COMPASS            SA6    A6+B1       CLEAR BINWORD WORD                                  CMP30       4692     A     
 COMPASS            SB6    B6+4        INCREMENT LOAD ADDRESS                              CMP30       4693     A     
 COMPASS            NE     B6,B7,RUT1  LOOP                                                COMPASS    14378     A     
 COMPASS            EQ     RUT         RETURN                                              COMPASS    14379     A     
 COMPASS                                                                                   COMPASS    14380     A     
 COMPASS  *         COMMON BLOCK.                                                          COMPASS    14381     A     
 COMPASS                                                                                   COMPASS    14382     A     
 COMPASS   RUT3     SA4    NBLOCKS     INCREMENT BLOCK COUNT                               COMPASS    14383     A     
 COMPASS            SX6    X4+B1                                                           COMPASS    14384     A     
 COMPASS            BX7    X1          BLOCK LENGTH                                        COMPASS    14385          I
          -CMP30  
 COMPASS            LX7    X1,B5       BLOCK LENGTH                                        CMP30       4694     A     
 COMPASS            SA6    A4                                                              COMPASS    14386     A     
 COMPASS            SX6    X6+B1                                                           COMPASS    14387          I
          -CMP30  
 COMPASS            SA7    B6+5                                                            COMPASS    14388          I
          -CMP30  
 COMPASS            LX6    24                                                              COMPASS    14389          I
          -CMP30  
 COMPASS            SX5    X6+B1                                                           CMP30       4695     A     
 COMPASS            LX5    24                                                              CMP30       4696     A     
 COMPASS            BX6    X7+X5       STORE BLOCK ORIGIN, RELOCATION, MAXIMUM             CMP30       4697     A     
 COMPASS            SA6    A3                                                              COMPASS    14390     A     
 COMPASS            EQ     RUT2        LOOP                                                COMPASS    14391     A     
 COMPASS                                                                                   COMPASS    14392     A     
 COMPASS  *         ABSOLUTE BLOCK IN REL ASSEMBLY.                                        COMPASS    14393     A     
 COMPASS                                                                                   COMPASS    14394     A     
 COMPASS   RUT4     MX6    0                                                               COMPASS    14395          I
          -CMP30  
 COMPASS            SX7    377777B                                                         COMPASS    14396          I
          -CMP30  
 COMPASS   RUT4     SX6    1S17-1                                                          CMP30       4698     A     
 COMPASS            LX6    33                                                              CMP30       4699     A     
 COMPASS            SA6    A3                                                              COMPASS    14397     A     
 COMPASS            SA7    B6+5                                                            COMPASS    14398          I
          -CMP30  
 COMPASS            EQ     RUT2        LOOP                                                COMPASS    14399     A     
 COMPASS                                                                                   COMPASS    14400     A     
 COMPASS  *         LCM BLOCK IN ABSOLUTE ASSEMBLY.                                        COMPASS    14401          I
          -CMP30  
 COMPASS  *         LOCAL LCM BLOCK.                                                       CMP30       4700     A     
 COMPASS                                                                                   COMPASS    14402     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 899    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   RUT5     SA4    LCM         INCREMENT LCM LENGTH                                COMPASS    14403     A     
 COMPASS            IX7    X4+X1                                                           COMPASS    14404     A     
 COMPASS            SA7    A4                                                              COMPASS    14405     A     
 COMPASS            BX6    X4          STORE BLOCK ORIGIN                                  COMPASS    14406          I
          -CMP30  
 COMPASS            LX5    X7,B5                                                           CMP30       4701     A     
 COMPASS            BX6    X4+X5       STORE BLOCK ORIGIN, RELOCATION, MAXIMUM             CMP30       4702     A     
 COMPASS            EQ     B4,B1,RUT6  IF REL ASSEMBLY                                     CMP30       4703     A     
 COMPASS            SA6    A3                                                              COMPASS    14407     A     
 COMPASS            SA7    B6+5        STORE BLOCK MAXIMUM                                 COMPASS    14408          I
          -CMP30  
 COMPASS            EQ     RUT2                                                            CMP30       4704     A     
 COMPASS   RUT6     SA1    LLB                                                             CMP30       4705     A     
 COMPASS            SA5    NBLOCKS                                                         CMP30       4706     A     
 COMPASS            NZ     X1,RUT7     IF NOT FIRST LOCAL LCM BLOCK IN REL ASMBLY          CMP30       4707     A     
 COMPASS            SX6    X5+B1                                                           CMP30       4708     A     
 COMPASS            SX1    X6+B1                                                           CMP30       4709     A     
 COMPASS            SA6    A5          INCREMENT BLOCK COUNT                               CMP30       4710     A     
 COMPASS            LX1    24                                                              CMP30       4711     A     
 COMPASS            BX6    X1          SAVE LCM LOCAL BLOCK RELOCATION                     CMP30       4712     A     
 COMPASS            SA6    A1                                                              CMP30       4713     A     
 COMPASS   RUT7     BX6    X1+X4                                                           CMP30       4714     A     
 COMPASS            LX5    X7,B5                                                           CMP30       4715     A     
 COMPASS            BX6    X6+X5       STORE BLOCK ORIGIN, RELOCATION, MAXIMUM             CMP30       4716     A     
 COMPASS            SA6    A3                                                              CMP30       4717     A     
 COMPASS            EQ     RUT2        LOOP                                                COMPASS    14409     A     
 COMPASS   SIA      SPACE  4                                                               COMPASS    14410     A     
 COMPASS  **        SIA - SKIP ITERATIVE ARGUMENT.                                         COMPASS    14411     A     
 COMPASS  *         ENTRY  (A7) = STACK ADDRESS.                                           COMPASS    14412     A     
 COMPASS  *                (X4) = MARDIS INDEX.                                            COMPASS    14413     A     
 COMPASS  *         EXIT   (A7) = STACK ADDRESS.                                           COMPASS    14414     A     
 COMPASS  *                (X6) = 0 IF END OF LIST.                                        COMPASS    14415     A     
 COMPASS                                                                                   COMPASS    14416     A     
 COMPASS                                                                                   COMPASS    14417     A     
 COMPASS   SIA      PS                 RETURN EXIT                                         COMPASS    14418     A     
 COMPASS            SA1    O.MARDIS                                                        COMPASS    14419     A     
 COMPASS            SA5    O.MARGS                                                         COMPASS    14420     A     
 COMPASS            SA0    10                                                              COMPASS    14421          I
          -CMP165 
 COMPASS            SB2    X1                                                              COMPASS    14422          I
          -CMP165 
 COMPASS            SA0    60          (A0) = 60                                           CMP165       135     A     
 COMPASS            SB2    X4                                                              CMP165       136     A     
 COMPASS            SA2    X1+B2       (X2) = ARGUMENT DESCRIPTOR WORD                     CMP165       137     A     
 COMPASS            SB3    X5                                                              COMPASS    14423     A     
 COMPASS            SA2    X4+B2       READ ARGUMENT POINTER                               COMPASS    14424          I
          -CMP165 
 COMPASS            UX3    B5,X2                                                           COMPASS    14425          I
          -CMP165 
 COMPASS            AX3    18                                                              COMPASS    14426          I
          -CMP165 
 COMPASS            SA3    X3+B3       READ ARGUMENT                                       COMPASS    14427          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 900    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP165 
 COMPASS            SB7    A0-B5       UNPACK CHARACTER INDEX                              COMPASS    14428          I
          -CMP165 
 COMPASS            SX6    B7+B7                                                           COMPASS    14429          I
          -CMP165 
 COMPASS            SB7    X6+B7                                                           COMPASS    14430          I
          -CMP165 
 COMPASS            LX3    X3,B7                                                           COMPASS    14431          I
          -CMP165 
 COMPASS            MX0    -6                                                              COMPASS    14432          I
          -CMP165 
 COMPASS            LX3    X3,B7                                                           COMPASS    14433          I
          -CMP165 
 COMPASS            SB5    B5-B1                                                           COMPASS    14434          I
          -CMP165 
 COMPASS            LX3    6                                                               COMPASS    14435          I
          -CMP165 
 COMPASS            BX6    -X0*X3                                                          COMPASS    14436          I
          -CMP165 
 COMPASS            NZ     B5,SIA1     IF NOT END OF WORD                                  COMPASS    14437          I
          -CMP165 
 COMPASS            UX3,B4 X2                                                              CMP165       138     A     
 COMPASS            SB3    B3+X2       (B3) = FWA OF ARGUMENT                              CMP165       139     A     
 COMPASS            LX3    59-41                                                           CMP165       140     A     
 COMPASS            SB4    -B4         (B4) = ARGUMENT CHARACTER COUNT                     CMP165       141     A     
 COMPASS            SB6    X3          (B6) = SHIFT COUNT FOR NEXT CHARACTER               CMP165       142     A     
 COMPASS            UX3,B5             (B5) = COUNT OF CHARS PRECEDING CURRENT CH          CMP165       143     A     
 COMPASS            LX3    41-29                                                           CMP165       144     A     
 COMPASS            UX3,B2                                                                 CMP165       145     A     
 COMPASS            SA3    B3+B2       (X3) = CURRENT WORD OF ARGUMENT                     CMP165       146     A     
 COMPASS            SB6    B6+6                                                            CMP165       147     A     
 COMPASS            SB5    B5+B1                                                           CMP165       148     A     
 COMPASS            LX4    X3,B6       GET NEXT CHARACTER                                  CMP165       149     A     
 COMPASS            SB7    A0-B6                                                           CMP165       150     A     
 COMPASS            GT     B5,B4,SIA7  IF PAST END OF ARGUMENT                             CMP165       151     A     
 COMPASS            BX6    -X0*X4                                                          CMP165       152     A     
 COMPASS            NZ     B7,SIA1     IF NOT END OF WORD                                  CMP165       153     A     
 COMPASS            SA3    A3+B1                                                           COMPASS    14438     A     
 COMPASS            SB5    A0                                                              COMPASS    14439          I
          -CMP165 
 COMPASS            SB6    B0                                                              CMP165       154     A     
 COMPASS   SIA1     SB7    X6-1R(                                                          COMPASS    14440     A     
 COMPASS            MX5    0                                                               COMPASS    14441     A     
 COMPASS            ZR     B7,SIA5     IF 1ST CHARACTER *(*                                COMPASS    14442          I
          -CMP165 
 COMPASS            ZR     B7,SIA4     IF FIRST CHARACTER IS *(*                           CMP165       155     A     
 COMPASS            EQ     SIA3                                                            COMPASS    14443     A     
 COMPASS                                                                                   COMPASS    14444     A     
 COMPASS   SIA2     SB5    B5-B1       SKIP ONE ARGUMENT                                   COMPASS    14445          I
          -CMP165 
 COMPASS            LX3    6                                                               COMPASS    14446          I
          -CMP165 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 901    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    -X0*X3                                                          COMPASS    14447          I
          -CMP165 
 COMPASS            NZ     B5,SIA3     IF NOT END OF WORD                                  COMPASS    14448          I
          -CMP165 
 COMPASS   SIA2     SB6    B6+6        SKIP ONE SUBARGUMENT                                CMP165       156     A     
 COMPASS            SB5    B5+B1                                                           CMP165       157     A     
 COMPASS            LX4    X3,B6       GET NEXT CHARACTER                                  CMP165       158     A     
 COMPASS            SB7    A0-B6                                                           CMP165       159     A     
 COMPASS            GT     B5,B4,SIA7  IF PAST END OF ARGUMENT                             CMP165       160     A     
 COMPASS            BX6    -X0*X4                                                          CMP165       161     A     
 COMPASS            NZ     B7,SIA3     IF NOT END OF WORD                                  CMP165       162     A     
 COMPASS            SA3    A3+B1                                                           COMPASS    14449     A     
 COMPASS            SB5    A0                                                              COMPASS    14450          I
          -CMP165 
 COMPASS            SB6    B0                                                              CMP165       163     A     
 COMPASS   SIA3     SX5    X6-1R,                                                          COMPASS    14451     A     
 COMPASS            ZR     X6,SIA7     IF END OF CURRENT IRP                               COMPASS    14452          I
          -CMP165 
 COMPASS            NZ     X5,SIA2     IF NOT *,*                                          COMPASS    14453     A     
 COMPASS            SX2    X2          UPDATE ARGUMENT POINTER                             COMPASS    14454     A     
 COMPASS            SX6    A3-B3                                                           COMPASS    14455          I
          -CMP165 
 COMPASS            LX6    18                                                              COMPASS    14456          I
          -CMP165 
 COMPASS            BX6    X6+X2                                                           COMPASS    14457          I
          -CMP165 
 COMPASS            MX2    1                                                               COMPASS    14458          I
          -CMP165 
 COMPASS            BX2    X6+X2                                                           COMPASS    14459          I
          -CMP165 
 COMPASS            PX6    X2,B5                                                           COMPASS    14460          I
          -CMP165 
 COMPASS            SX6    B6                                                              CMP165       164     A     
 COMPASS            LX2    59-41                                                           CMP165       165     A     
 COMPASS            BX2    X2+X6                                                           CMP165       166     A     
 COMPASS            PX2    B5                                                              CMP165       167     A     
 COMPASS            SB2    A3-B3                                                           CMP165       168     A     
 COMPASS            LX2    41-29                                                           CMP165       169     A     
 COMPASS            PX2    B2                                                              CMP165       170     A     
 COMPASS            SB4    -B4                                                             CMP165       171     A     
 COMPASS            LX2    29-59                                                           CMP165       172     A     
 COMPASS            PX6    X2,B4                                                           CMP165       173     A     
 COMPASS            SA6    A2                                                              COMPASS    14461     A     
 COMPASS            SA4    A7+2                                                            COMPASS    14462     A     
 COMPASS            SX6    X7                                                              CMP24        489     A     
 COMPASS            AX4    18          RESET MACRO DEFINITION POINTER                      COMPASS    14463     A     
 COMPASS            BX7    X4                                                              COMPASS    14464          I
          -CMP24  
 COMPASS            SA7    A7                                                              COMPASS    14465          I
          -CMP24  
 COMPASS            BX7    X7-X6                                                           CMP24        490     A     
 COMPASS            BX7    X7+X4                                                           CMP24        491     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 902    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    B1                                                              COMPASS    14466     A     
 COMPASS            SA7    A7                                                              CMP24        492     A     
 COMPASS            EQ     SIA         RETURN                                              COMPASS    14467     A     
 COMPASS                                                                                   COMPASS    14468     A     
 COMPASS  *         SKIP PARAMETER IN PARENS.                                              COMPASS    14469     A     
 COMPASS                                                                                   COMPASS    14470     A     
 COMPASS   SIA4     SB7    B7+B7                                                           COMPASS    14471          I
          -CMP165 
 COMPASS   SIA4     SB6    B6+6        SKIP EMBEDDED SUBARGUMENT                           CMP165       174     A     
 COMPASS            SB5    B5+B1                                                           CMP165       175     A     
 COMPASS            LX4    X3,B6       GET NEXT CHARACTER                                  CMP165       176     A     
 COMPASS            SB7    A0-B6                                                           CMP165       177     A     
 COMPASS            GT     B5,B4,SIA7  IF PAST END OF ARGUMENT                             CMP165       178     A     
 COMPASS            BX6    -X0*X4                                                          CMP165       179     A     
 COMPASS            NZ     B7,SIA5     IF NOT END OF WORD                                  CMP165       180     A     
 COMPASS            SA3    A3+B1                                                           CMP165       181     A     
 COMPASS            SB6    B0                                                              CMP165       182     A     
 COMPASS   SIA5     SB7    X6-1R(                                                          CMP165       183     A     
 COMPASS            ZR     B7,SIA6     IF *(*                                              CMP165       184     A     
 COMPASS            NE     B7,B1,SIA4  IF NOT *)*                                          CMP165       185     A     
 COMPASS   SIA6     SB7    B7+B7                                                           CMP165       186     A     
 COMPASS            SX7    B1-B7                                                           COMPASS    14472          I
          -CPS063 
 COMPASS            IX5    X5+X7                                                           COMPASS    14473          I
          -CPS063 
 COMPASS            SX4    B1-B7                                                           CPS063         1     A     
 COMPASS            IX5    X5+X4                                                           CPS063         2     A     
 COMPASS            NG     X5,SIA2     IF OUT OF BRACKETS                                  COMPASS    14474          I
          -CMP165 
 COMPASS   SIA5     SB5    B5-B1                                                           COMPASS    14475          I
          -CMP165 
 COMPASS            LX3    6                                                               COMPASS    14476          I
          -CMP165 
 COMPASS            BX6    -X0*X3                                                          COMPASS    14477          I
          -CMP165 
 COMPASS            NZ     B5,SIA6     IF NOT END OF WORD                                  COMPASS    14478          I
          -CMP165 
 COMPASS            SA3    A3+B1                                                           COMPASS    14479          I
          -CMP165 
 COMPASS            SB5    A0                                                              COMPASS    14480          I
          -CMP165 
 COMPASS   SIA6     SB7    X6-1R(                                                          COMPASS    14481          I
          -CMP165 
 COMPASS            ZR     B7,SIA4     IF *(*                                              COMPASS    14482          I
          -CMP165 
 COMPASS            EQ     B7,B1,SIA4  IF *)*                                              COMPASS    14483          I
          -CMP165 
 COMPASS            NZ     X6,SIA5     IF NOT END OF PARAMETER STRING                      COMPASS    14484          I
          -CMP165 
 COMPASS            PL     X5,SIA4     IF STILL WITHIN PARENS                              CMP165       187     A     
 COMPASS            EQ     SIA2                                                            CMP165       188     A     
 COMPASS                                                                                   COMPASS    14485     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 903    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         TERMINATE CURRENT IRP.                                                 COMPASS    14486     A     
 COMPASS                                                                                   COMPASS    14487     A     
 COMPASS   SIA7     SX6    X2                                                              COMPASS    14488     A     
 COMPASS            PX6    B4                                                              CMP165       189     A     
 COMPASS            SA6    A2                                                              COMPASS    14489     A     
 COMPASS            MX6    0                                                               COMPASS    14490     A     
 COMPASS            EQ     SIA         RETURN                                              COMPASS    14491     A     
 COMPASS   SOS      SPACE  4                                                               COMPASS    14492     A     
 COMPASS  **        SOS - SCAN OPERATION SYNTAX.                                           COMPASS    14493     A     
 COMPASS  *         ENTRY  SYNTAX IN LOCATION FIELD.                                       COMPASS    14494     A     
 COMPASS  *         EXIT   (X6) = 0 IF ERROR.                                              COMPASS    14495     A     
 COMPASS  *                (X6) " 0 IF NO ERROR.                                           COMPASS    14496     A     
 COMPASS  *                (P1TEMP) = CONVERTED SYNTAX.                                    COMPASS    14497     A     
 COMPASS  *                (P1TEMPD) = NUMBER OF PARAMETERS REQUIRED.                      COMPASS    14498     A     
 COMPASS                                                                                   COMPASS    14499     A     
 COMPASS                                                                                   COMPASS    14500     A     
 COMPASS   SOS      PS                 RETURN EXIT                                         COMPASS    14501     A     
 COMPASS            MX7    0           CLEAR ACCUMULATION CELLS                            COMPASS    14502     A     
 COMPASS            SA7    OPADS+1                                                         COMPASS    14503     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    14504     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    14505     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    14506     A     
 COMPASS            SB3    B0                                                              CMP9          52     A     
 COMPASS   +        SB2    B0                                                              COMPASS    14507     A     
 COMPASS            NZ     B7,*+1      IF 1ST COLUMN IS NOT BLANK                          COMPASS    14508     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    14509     A     
 COMPASS            BX6    X1                                                              COMPASS    14510     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    14511     A     
 COMPASS            SA1    A1+B1       SECOND LETTER OF OP CODE                            COMPASS    14512     A     
 COMPASS            ZR     B7,SOSER    IF FIRST LETTER WAS BLANK                           COMPASS    14513     A     
 COMPASS            SB7    X1-1R                                                           COMPASS    14514     A     
 COMPASS            ZR     B7,SOSER    IF SECOND LETTER WAS BLANK                          COMPASS    14515     A     
 COMPASS            LX6    6                                                               COMPASS    14516     A     
 COMPASS            BX6    X1+X6                                                           COMPASS    14517     A     
 COMPASS            SB7    X1-3        TEST FOR OP-CODE REGISTER                           COMPASS    14518     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS    14519     A     
 COMPASS            SA6    OPADS                                                           COMPASS    14520     A     
 COMPASS            SB3    B0                                                              COMPASS    14521     A     
 COMPASS   +        NG     B7,*+1                                                          COMPASS    14522     A     
 COMPASS            NZ     B6,SOS1                                                         COMPASS    14523     A     
 COMPASS            SB3    B1          SET PARAMETER COUNT TO 1                            COMPASS    14524     A     
 COMPASS                                                                                   COMPASS    14525     A     
 COMPASS  *         ENTRY ON NEW FIELD.                                                    COMPASS    14526     A     
 COMPASS                                                                                   COMPASS    14527     A     
 COMPASS   SOS1     MX6    0           SYNTAX MASK FOR SUBFIELD                            COMPASS    14528     A     
 COMPASS            SX7    B0          INTERLOCK FLAG FOR REGISTERS                        COMPASS    14529     A     
 COMPASS            BX5    X6          INTERLOCK FLAG FOR ADDRESSES                        COMPASS    14530     A     
 COMPASS   SOS2     SA1    A1+B1                                                           COMPASS    14531     A     
 COMPASS   SOS3     SB7    X1-1R                                                           COMPASS    14532     A     
 COMPASS            ZR     B7,SOS9     IF END OF FIELD                                     COMPASS    14533     A     
 COMPASS            EQ     B7,B1,SOS9  IF END OF SUBFIELD                                  COMPASS    14534     A     
 COMPASS            NZ     X5,SOSER    IF SECOND Q FIELD                                   COMPASS    14535     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 904    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X1-1RQ                                                          COMPASS    14536     A     
 COMPASS            ZR     B7,SOS8                                                         COMPASS    14537     A     
 COMPASS            NZ     X7,SOSER    IF WE HAVE ALREADY WRITTEN REGISTERS                COMPASS    14538     A     
 COMPASS            SB7    X1-1R+      CHECK LEADING OPERATOR                              COMPASS    14539     A     
 COMPASS            ZR     B7,SOS4     IF PLUS                                             COMPASS    14540     A     
 COMPASS            NE     B7,B1,SOS5  IF NOT MINUS                                        COMPASS    14541     A     
 COMPASS   SOS4     SX0    B7                                                              COMPASS    14542     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    14543     A     
 COMPASS            LX0    7                                                               COMPASS    14544     A     
 COMPASS            BX6    X0+X6                                                           COMPASS    14545     A     
 COMPASS   SOS5     SB7    X1-3                                                            COMPASS    14546     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS    14547     A     
 COMPASS            NG     B7,SOS6                                                         COMPASS    14548     A     
 COMPASS            SX1    3                                                               COMPASS    14549     A     
 COMPASS            NZ     B6,SOSER    ERROR IF NOT ABX                                    COMPASS    14550     A     
 COMPASS   SOS6     LX1    5                                                               COMPASS    14551     A     
 COMPASS            BX6    X1+X6                                                           COMPASS    14552     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    14553     A     
 COMPASS            SB3    B3+B1       INCREMENT PARAMETER COUNT                           COMPASS    14554     A     
 COMPASS            MX7    1           SET REGISTER INTERLOCK                              COMPASS    14555     A     
 COMPASS            SB7    X1-1R+      TEST INTERMEDIATE OPERATOR                          COMPASS    14556     A     
 COMPASS            SB6    X1-1R/-1                                                        COMPASS    14557     A     
 COMPASS            NG     B7,SOS3                                                         COMPASS    14558     A     
 COMPASS            PL     B6,SOS3                                                         COMPASS    14559     A     
 COMPASS            SX0    B7                                                              COMPASS    14560     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    14561     A     
 COMPASS            SB3    B3+B1       INCREMENT PARAMETER COUNT                           COMPASS    14562     A     
 COMPASS            LX0    3                                                               COMPASS    14563     A     
 COMPASS            BX6    X0+X6                                                           COMPASS    14564     A     
 COMPASS            SB7    X1-3                                                            COMPASS    14565     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS    14566     A     
 COMPASS            NG     B7,SOS7                                                         COMPASS    14567     A     
 COMPASS            SX1    3                                                               COMPASS    14568     A     
 COMPASS            NZ     B6,SOSER                                                        COMPASS    14569     A     
 COMPASS   SOS7     LX1    1                                                               COMPASS    14570     A     
 COMPASS            BX6    X1+X6                                                           COMPASS    14571     A     
 COMPASS            EQ     SOS2                                                            COMPASS    14572     A     
 COMPASS                                                                                   COMPASS    14573     A     
 COMPASS  *         Q SUBFIELD.                                                            COMPASS    14574     A     
 COMPASS                                                                                   COMPASS    14575     A     
 COMPASS   SOS8     SX6    X6+B1       SET ADDRESS FLAG                                    COMPASS    14576     A     
 COMPASS            MX5    1           SET ADDRESS INTERLOCK                               COMPASS    14577     A     
 COMPASS            SB3    B3+B1       INCREMENT PARAMETER COUNT                           COMPASS    14578     A     
 COMPASS            EQ     SOS2                                                            COMPASS    14579     A     
 COMPASS                                                                                   COMPASS    14580     A     
 COMPASS  *         END OF SUBFIELD.                                                       COMPASS    14581     A     
 COMPASS                                                                                   COMPASS    14582     A     
 COMPASS   SOS9     SA6    A6+B1       STORE MASK                                          COMPASS    14583          I
          -CMP27  
 COMPASS   SOS9     ZR     X6,SOS9A    IF EMPTY SUBFIELD                                   CMP27         24     A     
 COMPASS            SA6    A6+B1       STORE MASK                                          CMP27         25     A     
 COMPASS            ZR     B7,SOS10    JUMP IF TERMINATOR WAS BLANK                        COMPASS    14584     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 905    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB2    B2+B1       INCREMENT SUBFIELD COUNT                            COMPASS    14585     A     
 COMPASS            SB7    B2-3                                                            COMPASS    14586     A     
 COMPASS            NG     B7,SOS1     IF NOT TOO MANY COMMAS YET                          COMPASS    14587     A     
 COMPASS            EQ     SOSER                                                           COMPASS    14588     A     
 COMPASS   SOS9A    NZ     B7,SOS1     IF NOT END OF SYNTAX SPECIFICATION                  CMP27         26     A     
 COMPASS                                                                                   COMPASS    14589     A     
 COMPASS  *         END OF SYNTAX.                                                         COMPASS    14590     A     
 COMPASS                                                                                   COMPASS    14591     A     
 COMPASS   SOS10    SA1    OPADS       CONSTRUCT MASK                                      COMPASS    14592     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    14593     A     
 COMPASS            LX1    36                                                              COMPASS    14594     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    14595     A     
 COMPASS            LX2    28                                                              COMPASS    14596     A     
 COMPASS            SA4    A3+B1                                                           COMPASS    14597     A     
 COMPASS            BX6    X1+X2                                                           COMPASS    14598     A     
 COMPASS            LX3    20                                                              COMPASS    14599     A     
 COMPASS            SX0    1R                                                              COMPASS    14600     A     
 COMPASS            BX6    X3+X6                                                           COMPASS    14601     A     
 COMPASS            IX7    X0+X6                                                           COMPASS    14602     A     
 COMPASS            LX4    12                                                              COMPASS    14603     A     
 COMPASS            BX6    X4+X7                                                           COMPASS    14604     A     
 COMPASS            SX7    B3          PARAMETER COUNT                                     COMPASS    14605     A     
 COMPASS            SA6    P1TEMP                                                          COMPASS    14606     A     
 COMPASS            SA7    P1TEMPD                                                         COMPASS    14607     A     
 COMPASS            EQ     SOS         RETURN                                              COMPASS    14608     A     
 COMPASS                                                                                   COMPASS    14609     A     
 COMPASS  *         ERROR IN SYNTAX.                                                       COMPASS    14610     A     
 COMPASS                                                                                   COMPASS    14611     A     
 COMPASS   SOSER    SX6    B1          NOTE ARGUMENT COUNT ERROR                           COMPASS    14612     A     
 COMPASS            SA6    W5ERR                                                           COMPASS    14613     A     
 COMPASS            SA6    EFLG                                                            COMPASS    14614     A     
 COMPASS            MX6    0                                                               COMPASS    14615     A     
 COMPASS            EQ     SOS         RETURN                                              COMPASS    14616     A     
 COMPASS   SQUEEZE  SPACE  4                                                               COMPASS    14617     A     
 COMPASS  **        SQUEEZE - COMPRESS CARD.                                               COMPASS    14618     A     
 COMPASS  *         ENTRY  IF (SQLGN) " 0 SQUEEZE IS NULL.                                 COMPASS    14619     A     
 COMPASS  *         EXIT   (SQLGN) = LENGTH OF SQUEEZED IMAGE.                             COMPASS    14620     A     
 COMPASS                                                                                   COMPASS    14621     A     
 COMPASS                                                                                   COMPASS    14622     A     
 COMPASS   SQUEEZE  PS                 RETURN EXIT                                         COMPASS    14623     A     
 COMPASS            SA1    SQLGN                                                           COMPASS    14624          I
          -CMP64G 
 COMPASS            SX0    2012B                                                           COMPASS    14625          I
          -CMP64G 
 COMPASS            NZ     X1,SQUEEZE  IF CARD ALREADY SQUEEZED                            COMPASS    14626          I
          -CMP64G 
 COMPASS            SB2    -1R         PRE-SET REGISTERS                                   COMPASS    14627          I
          -CMP64G 
 COMPASS            SB4    100B                                                            COMPASS    14628          I
          -CMP64G 
 COMPASS            SB3    -B1                                                             COMPASS    14629          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 906    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX0    48                                                              COMPASS    14630          I
          -CMP64G 
 COMPASS            SB7    B4+B1                                                           COMPASS    14631          I
          -CMP64G 
 COMPASS            UX6    B6,X0                                                           COMPASS    14632          I
          -CMP64G 
 COMPASS            SA3    LASTCOL     ZERO LAST COLUMN                                    COMPASS    14633          I
          -CMP64G 
 COMPASS            SA6    X3+CARD                                                         COMPASS    14634          I
          -CMP64G 
 COMPASS            SA4    STYPE                                                           COMPASS    14635          I
          -CMP64G 
 COMPASS            SA5    A4+B1                                                           COMPASS    14636          I
          -CMP64G 
 COMPASS            SA6    SQIMAGE-1                                                       COMPASS    14637          I
          -CMP64G 
 COMPASS            SX1    B4-B1                                                           COMPASS    14638          I
          -CMP64G 
 COMPASS            EQ     SQU3                                                            COMPASS    14639          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14640          I
          -CMP64G 
 COMPASS   SQU1     LX6    6           OUTPUT 00 CHARACTER                                 COMPASS    14641          I
          -CMP64G 
 COMPASS            SB6    B6-B1                                                           COMPASS    14642          I
          -CMP64G 
 COMPASS            SX4    B4-B1       COMPRESSION CHARACTER = 77                          COMPASS    14643          I
          -CMP64G 
 COMPASS            SB3    B5-B7                                                           COMPASS    14644          I
          -CMP64G 
 COMPASS            NZ     B6,SQU2     IF NOT END OF WORD                                  COMPASS    14645          I
          -CMP64G 
 COMPASS            SA6    A6+B1                                                           COMPASS    14646          I
          -CMP64G 
 COMPASS            UX6    B6,X0                                                           COMPASS    14647          I
          -CMP64G 
 COMPASS   SQU2     PL     B3,SQU3     IF > 64 COMPRESSED BLANKS                           COMPASS    14648          I
          -CMP64G 
 COMPASS            SX4    B5-B1       COMPRESSION CHARACTER = NO. BLANKS - 1              COMPASS    14649          I
          -CMP64G 
 COMPASS            SB3    -B1                                                             COMPASS    14650          I
          -CMP64G 
 COMPASS   SQU3     LX6    6           OUTPUT CHARACTER                                    COMPASS    14651          I
          -CMP64G 
 COMPASS            SB6    B6-B1                                                           COMPASS    14652          I
          -CMP64G 
 COMPASS            BX6    X6+X4                                                           COMPASS    14653          I
          -CMP64G 
 COMPASS            SB5    B3                                                              COMPASS    14654          I
          -CMP64G 
 COMPASS            NZ     B6,SQU4     IF NOT END OF WORD                                  COMPASS    14655          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 907    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A6+B1                                                           COMPASS    14656          I
          -CMP64G 
 COMPASS            UX6    B6,X0                                                           COMPASS    14657          I
          -CMP64G 
 COMPASS   SQU4     SX7    X5+B2       CHECK CHARACTER FOR BLANK                           COMPASS    14658          I
          -CMP64G 
 COMPASS            BX4    X5                                                              COMPASS    14659          I
          -CMP64G 
 COMPASS            SB5    B5+B1       INCREMENT BLANK COUNT                               COMPASS    14660          I
          -CMP64G 
 COMPASS            SA5    A5+B1                                                           COMPASS    14661          I
          -CMP64G 
 COMPASS            ZR     X7,SQU4     IF BLANK                                            COMPASS    14662          I
          -CMP64G 
 COMPASS            IX2    X4-X1                                                           COMPASS    14663          I
          -CMP64G 
 COMPASS            BX2    X1*X2                                                           COMPASS    14664          I
          -CMP64G 
 COMPASS            SB3    -B1                                                             COMPASS    14665          I
          -CMP64G 
 COMPASS            ZR     X2,SQU6     IF END OF LINE OR 77 MARK                           COMPASS    14666          I
          -CMP64G 
 COMPASS            ZR     B5,SQU3     IF NO BLANKS                                        COMPASS    14667          I
          -CMP64G 
 COMPASS   SQU5     SX4    -B2                                                             COMPASS    14668          I
          -CMP64G 
 COMPASS            SA5    A5-B1       BACKSPACE ONE CHARACTER                             COMPASS    14669          I
          -CMP64G 
 COMPASS            EQ     B5,B1,SQU3  IF ONE BLANK                                        COMPASS    14670          I
          -CMP64G 
 COMPASS            EQ     SQU1        IF > 1 BLANK                                        COMPASS    14671          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14672          I
          -CMP64G 
 COMPASS  *         PROCESS MACRO MARK (77).                                               COMPASS    14673          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14674          I
          -CMP64G 
 COMPASS   SQU6     ZR     X4,SQU8     IF END OF LINE                                      COMPASS    14675          I
          -CMP64G 
 COMPASS            NZ     B5,SQU5     IF BLANKS                                           COMPASS    14676          I
          -CMP64G 
 COMPASS            LX6    6                                                               COMPASS    14677          I
          -CMP64G 
 COMPASS            SB6    B6-B1                                                           COMPASS    14678          I
          -CMP64G 
 COMPASS            BX6    X6+X4                                                           COMPASS    14679          I
          -CMP64G 
 COMPASS            NZ     B6,SQU7     IF NOT END OF WORD                                  COMPASS    14680          I
          -CMP64G 
 COMPASS            SA6    A6+B1                                                           COMPASS    14681          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 908    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            UX6,B6 X0                                                              COMPASS    14682          I
          -CMP64G 
 COMPASS   SQU7     BX4    X5                                                              COMPASS    14683          I
          -CMP64G 
 COMPASS            SA5    A5+B1                                                           COMPASS    14684          I
          -CMP64G 
 COMPASS            NZ     X4,SQU3     IF NOT END OF LINE                                  COMPASS    14685          I
          -CMP64G 
 COMPASS            SA5    A5-B1       BACKSPACE TO END OF LINE                            COMPASS    14686          I
          -CMP64G 
 COMPASS            SX4    -B2         55TH PARAMETER                                      COMPASS    14687          I
          -CMP64G 
 COMPASS            EQ     SQU3        LOOP                                                COMPASS    14688          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14689          I
          -CMP64G 
 COMPASS  *         SET SQUEEZE LENGTH.                                                    COMPASS    14690          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14691          I
          -CMP64G 
 COMPASS   SQU8     LX6    6           LEFT JUSTIFY WORD                                   COMPASS    14692          I
          -CMP64G 
 COMPASS            SB6    B6-B1                                                           COMPASS    14693          I
          -CMP64G 
 COMPASS            NZ     B6,SQU8     IF NOT END OF WORD                                  COMPASS    14694          I
          -CMP64G 
 COMPASS            SA6    A6+B1                                                           COMPASS    14695          I
          -CMP64G 
 COMPASS            MX0    42                                                              COMPASS    14696          I
          -CMP64G 
 COMPASS            BX4    -X0*X6                                                          COMPASS    14697          I
          -CMP64G 
 COMPASS            SX6    B0                                                              COMPASS    14698          I
          -CMP64G 
 COMPASS            SX7    -B2                                                             COMPASS    14699          I
          -CMP64G 
 COMPASS            ZR     X4,SQU9     IF WORD TERMINATED                                  COMPASS    14700          I
          -CMP64G 
 COMPASS            SA6    A6+B1                                                           COMPASS    14701          I
          -CMP64G 
 COMPASS   SQU9     SA7    X3+CARD     RESTORE LAST COLUMN                                 COMPASS    14702          I
          -CMP64G 
 COMPASS            SX6    A6-SQIMAGE+1                                                    COMPASS    14703          I
          -CMP64G 
 COMPASS            SA1    SQLGN                                                           CMP64G       362     A     
 COMPASS            NZ     X1,SQUEEZE  IF CARD ALREADY SQUEEZED                            CMP64G       363     A     
 COMPASS            SA3    LASTCOL                                                         CMP64G       364     A     
 COMPASS            SA5    STYPE                                                           CMP64G       365     A     
 COMPASS            SB2    -1R                                                             CMP64G       366     A     
 COMPASS            SB3    -2                                                              CMP64G       367     A     
 COMPASS            SB4    77B                                                             CMP64G       368     A     
 COMPASS            SB6    10                                                              CMP64G       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/28. 19.11.32.      PAGE 909    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    STCA                                                            CMP64G       370     A     
 COMPASS            BX6    X6-X6                                                           CMP64G       371     A     
 COMPASS            MX7    60                                                              CMP64G       372     A     
 COMPASS            SA6    SQIMAGE-1                                                       CMP64G       373     A     
 COMPASS            SA7    CARD+X3     STORE -0 IN LAST COLUMN + 1                         CMP64G       374     A     
 COMPASS            PX0    X6,B6                                                           CMP64G       375     A     
 COMPASS                                                                                   CMP64G       376     A     
 COMPASS   SQU1     SB6    B6-B1       PACK CHARACTER                                      CMP64G       377     A     
 COMPASS            BX6    X6+X5                                                           CMP64G       378     A     
 COMPASS            SA5    A5+B1       FETCH NEXT CHARACTER                                CMP64G       379     A     
 COMPASS            SA2    X5+B7                                                           CMP64G       380     A     
 COMPASS   SQU2     NZ     B6,SQU3     IF WORD NOT FULL                                    CMP64G       381     A     
 COMPASS            SA6    A6+B1                                                           CMP64G       382     A     
 COMPASS            UX6,B6 X0                                                              CMP64G       383     A     
 COMPASS   SQU3     LX6    6                                                               CMP64G       384     A     
 COMPASS            PL     X2,SQU1     IF NOT -0 NOR 00 NOR 55 NOR 77                      CMP64G       385     A     
 COMPASS            SB5    B3                                                              CMP64G       386     A     
 COMPASS   SQU4     SX2    X5+B2       COUNT BLANKS                                        CMP64G       387     A     
 COMPASS            SB5    B5+B1       (B5) = BLANK COUNT - 1                              CMP64G       388     A     
 COMPASS            NO                                                                     CMP64G       389     A     
 COMPASS            SA5    A5+B1                                                           CMP64G       390     A     
 COMPASS   SQU5     ZR     X2,SQU4                                                         CMP64G       391     A     
 COMPASS            LE     B5,B1,SQU6  IF 0, 1, OR 2 BLANKS                                CMP64G       392     A     
 COMPASS            GT     B5,B4,SQU8  IF MORE THAN 64 BLANKS                              CMP64G       393     A     
 COMPASS            SB6    B6-B1       PACK 0002-0077 FOR 3 TO 64 BLANKS                   CMP64G       394     A     
 COMPASS            SA5    A5+B3       RESET CHARACTER POINTER                             CMP64G       395     A     
 COMPASS   SQU5A    SX5    B5                                                              CMP64G       396     A     
 COMPASS            BX2    X2-X2       GO PACK 00NN                                        CMP64G       397     A     
 COMPASS            EQ     SQU2                                                            CMP64G       398     A     
 COMPASS                                                                                   CMP64G       399     A     
 COMPASS   SQU6     SB5    B5-B3       0, 1, OR 2 BLANKS                                   CMP64G       400     A     
 COMPASS            SA5    A5-B5       RESET CHARACTER POINTER                             CMP64G       401     A     
 COMPASS            GT     B5,B1,SQU1  IF 1 OR 2 BLANKS                                    CMP64G       402     A     
 COMPASS            MI     X5,SQU9     IF -0 (END OF STATEMENT)                            CMP64G       403     A     
 COMPASS            ZR     X5,SQU7     IF 00 (COLON)                                       CMP64G       404     A     
 COMPASS            SA2    A5+B1       77 (SEMICOLON OR PARAMETER MARK)                    CMP64G       405     A     
 COMPASS            SX2    X2+B2       SEE IF NEXT CHARACTER IS 55 (BLANK)                 CMP64G       406     A     
 COMPASS            NZ     X2,SQU1     IF 77 NOT FOLLOWED BY 55                            CMP64G       407     A     
 COMPASS            SB6    B6-B1                                                           CMP64G       408     A     
 COMPASS            BX6    X6+X5       PACK 77 (SEMICOLON OR PARAMETER MARK)               CMP64G       409     A     
 COMPASS            NO                                                                     CMP64G       410     A     
 COMPASS            SA5    A5+B1                                                           CMP64G       411     A     
 COMPASS            EQ     SQU2        GO PACK 55 (BLANK)                                  CMP64G       412     A     
 COMPASS                                                                                   CMP64G       413     A     
 COMPASS   SQU7     SB6    B6-B1       00 (COLON), PACK 0001                               CMP64G       414     A     
 COMPASS            EQ     SQU5A                                                           CMP64G       415     A     
 COMPASS                                                                                   CMP64G       416     A     
 COMPASS   SQU8     SB6    B6-B1       MORE THAN 64 BLANKS, PACK 0077                      CMP64G       417     A     
 COMPASS            SB5    B5-B1       PACK 00                                             CMP64G       418     A     
 COMPASS            NO                                                                     CMP64G       419     A     
 COMPASS            SX5    B4                                                              CMP64G       420     A     
 COMPASS            NZ     B6,SQU8A    IF WORD NOT FULL                                    CMP64G       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/28. 19.11.32.      PAGE 910    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    A6+B1                                                           CMP64G       422     A     
 COMPASS            UX6,B6 X0                                                              CMP64G       423     A     
 COMPASS   SQU8A    LX6    6           PACK 77                                             CMP64G       424     A     
 COMPASS            SB6    B6-B1                                                           CMP64G       425     A     
 COMPASS            SB5    B5-B4       REDUCE BLANK COUNT                                  CMP64G       426     A     
 COMPASS            BX6    X6+X5                                                           CMP64G       427     A     
 COMPASS            NZ     B6,SQU8B    IF WORD NOT FULL                                    CMP64G       428     A     
 COMPASS            SA6    A6+B1                                                           CMP64G       429     A     
 COMPASS            UX6,B6 X0                                                              CMP64G       430     A     
 COMPASS   SQU8B    LX6    6                                                               CMP64G       431     A     
 COMPASS            PL     B5,SQU5     IF AT LEAST ONE MORE BLANK                          CMP64G       432     A     
 COMPASS            SA5    A5-B1                                                           CMP64G       433     A     
 COMPASS            LX6    -6                                                              CMP64G       434     A     
 COMPASS            SA2    X5+B7                                                           CMP64G       435     A     
 COMPASS            EQ     SQU3        GO PROCESS NEXT CHARACTER                           CMP64G       436     A     
 COMPASS                                                                                   CMP64G       437     A     
 COMPASS   SQU9     SX1    B6+B6       END OF STATEMENT                                    CMP64G       438     A     
 COMPASS            LX2    X1,B1                                                           CMP64G       439     A     
 COMPASS            IX3    X1+X2                                                           CMP64G       440     A     
 COMPASS            SX7    -B2                                                             CMP64G       441     A     
 COMPASS            SB6    X3-6        LEFT-JUSTIFY WORD IN X6                             CMP64G       442     A     
 COMPASS            LX6    X6,B6                                                           CMP64G       443     A     
 COMPASS            SA7    A7          RESTORE BLANK AFTER LAST COLUMN                     CMP64G       444     A     
 COMPASS            SB7    B6-6                                                            CMP64G       445     A     
 COMPASS            SA6    A6+B1                                                           CMP64G       446     A     
 COMPASS            PL     B7,SQU9A    IF AT LEAST 12 ZERO BITS                            CMP64G       447     A     
 COMPASS            BX6    X6-X6                                                           CMP64G       448     A     
 COMPASS            SA6    A6+B1                                                           CMP64G       449     A     
 COMPASS   SQU9A    SX6    A6-SQIMAGE+1                                                    CMP64G       450     A     
 COMPASS            SA6    SQLGN                                                           COMPASS    14704     A     
 COMPASS            EQ     SQUEEZE     RETURN                                              COMPASS    14705     A     
 COMPASS   TLUMIC   SPACE  4                                                               CMP30       4718     A     
 COMPASS  **        TLUMIC - LOOK UP ENTRY IN MICRO TABLE.                                 CMP30       4719     A     
 COMPASS  *         ENTRY  (X7) = MICRO NAME.                                              CMP30       4720     A     
 COMPASS  *         EXIT   (B4) = WORD COUNT OF ENTRY INCLUDING HEADER WORD.               CMP30       4721     A     
 COMPASS  *                (B4) = 0 IF MICRO NOT FOUND.                                    CMP30       4722     A     
 COMPASS  *                (A2) = FWA-1 OF ENTRY.                                          CMP30       4723     A     
 COMPASS  *         USES   A2, A5, A7, X2, X5, X6, X7, B4, B6.                             CMP30       4724          I
          -CPS192 
 COMPASS  *         USES  A2,A5,A7,X0,X2,X3,X5,X6,X7,B4,B6.                                CPS192         7     A     
 COMPASS  *         CALLS  NONE.                                                           CMP30       4725     A     
 COMPASS                                                                                   CMP30       4726     A     
 COMPASS                                                                                   CMP30       4727     A     
 COMPASS   TLUMIC   PS                 RETURN EXIT                                         CMP30       4728     A     
 COMPASS            SA2    L.MICTAB                                                        CMP30       4729     A     
 COMPASS            SA5    O.MICTAB                                                        CMP30       4730     A     
 COMPASS            SB6    X2-1                                                            CMP30       4731     A     
 COMPASS            SA2    X5+B6                                                           CMP30       4732     A     
 COMPASS            PX7    X7,B1       STORE NAME TO STOP SEARCH                           CMP30       4733     A     
 COMPASS            SA7    X5                                                              CMP30       4734     A     
 COMPASS            UX6    X7                                                              CMP30       4735     A     
 COMPASS   MLU1     UX5,B4 X2          SEARCH MICRO TABLE                                  CMP30       4736     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 911    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX7    X6-X5                                                           CMP30       4737     A     
 COMPASS            SB6    B6-B4                                                           CMP30       4738     A     
 COMPASS            SA2    A2-B4                                                           CMP30       4739     A     
 COMPASS            NZ     X7,MLU1     LOOP                                                CMP30       4740     A     
 COMPASS            PL     B6,TLUMIC   IF FOUND, RETURN                                    CMP30       4741     A     
 COMPASS            BX7    X6                                                              CMP30       4742     A     
 COMPASS            SB4    B0          NOT FOUND, TRY BUILT-IN MICROS                      CMP30       4743     A     
 COMPASS            SA2    MLUB-1                                                          CMP30       4744     A     
 COMPASS            SB6    MLUB-MLUA-1                                                     CMP30       4745     A     
 COMPASS            SA7    MLUA                                                            CMP30       4746     A     
 COMPASS   MLU2     BX6    X7-X2       SEARCH BUILT-IN MICRO NAMES                         CMP30       4747     A     
 COMPASS            SB6    B6-B1                                                           CMP30       4748     A     
 COMPASS            SA2    A2-1                                                            CMP30       4749     A     
 COMPASS            NZ     X6,MLU2     LOOP                                                CMP30       4750     A     
 COMPASS            MI     B6,TLUMIC   IF NOT FOUND, RETURN                                CMP30       4751     A     
 COMPASS            SB4    2                                                               CMP30       4752     A     
 COMPASS            SA2    MLUB+B6                                                         CMP30       4753     A     
 COMPASS            NZ     B6,TLUMIC   IF NOT *SEQUENCE*, RETURN                           CMP30       4754     A     
 COMPASS            SA5    CP.IFORM                                                        CMP30       4755     A     
 COMPASS            NZ     X5,MLU3     IF COMPRESSED SOURCE INPUT                          CMP30       4756          I
          -CPS010 
 COMPASS            SB6    X5-1                                                            CPS010        76          I
          -CP114  
 COMPASS            ZR     B6,MLU4     IF MODIFY COMPRESSED INPUT                          CPS010        77          I
          -CP114  
 COMPASS            LX5    -1                                                              CP114         53     A     
 COMPASS            MI     X5,MLU4     IF MODIFY COMPRESSED INPUT                          CP114         54     A     
 COMPASS            SA5    A2+B1                                                           CMP30       4757     A     
 COMPASS            MX6    12                                                              CMP30       4758     A     
 COMPASS            BX7    X6*X5       COLUMNS 81-82                                       CMP30       4759     A     
 COMPASS            BX6    X7+X2                                                           CMP30       4760     A     
 COMPASS            BX7    X5-X7       COLUMNS 83-90                                       CMP30       4761     A     
 COMPASS            LX6    12          COLUMNS 73-82                                       CMP30       4762     A     
 COMPASS            SX5    8                                                               CMP30       4763     A     
 COMPASS            LX7    12                                                              CMP30       4764     A     
 COMPASS            IX7    X7+X5       APPEND CHARACTER COUNT                              CMP30       4765     A     
 COMPASS            SA7    P1TEMPE                                                         CMP30       4766     A     
 COMPASS            BX7    X6          STORE MICRO VALUE                                   CMP30       4767     A     
 COMPASS            SA7    A7-B1                                                           CMP30       4768     A     
 COMPASS            SA2    A7-B1                                                           CMP30       4769     A     
 COMPASS            SB4    B4+B1       WORD COUNT = 3                                      CMP30       4770     A     
 COMPASS            EQ     TLUMIC      RETURN                                              CMP30       4771     A     
 COMPASS   MLU3     LX5    -1                                                              CMP30       4772          I
          -CPS010 
 COMPASS            MI     X5,MLU4     IF MODIFY COMPRESSED IMPUT                          CMP30       4773          I
          -CPS010 
 COMPASS            SA5    A2+B1                                                           CMP30       4774          I
          -CPS010 
 COMPASS            MX6    42          UPDATE                                              CMP30       4775          I
          -CPS010 
 COMPASS            BX7    X6*X5       COLUMNS 84-90                                       CMP30       4776          I
          -CPS010 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 912    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX6    -6                                                              CMP30       4777          I
          -CPS010 
 COMPASS            BX6    -X6*X2      COLUMN 83                                           CMP30       4778          I
          -CPS010 
 COMPASS            BX2    X6-X2       COLUMNS 74-82                                       CMP30       4779          I
          -CPS010 
 COMPASS            SX6    X6+8*64     APPEND CHARACTER COUNT                              CMP30       4780          I
          -CPS010 
 COMPASS            BX7    X7+X6                                                           CMP30       4781          I
          -CPS010 
 COMPASS            SX5    1R          BLANK IN COLUMN 73                                  CMP30       4782          I
          -CPS010 
 COMPASS            BX2    X2+X5                                                           CMP30       4783          I
          -CPS010 
 COMPASS            LX7    -6          COLUMNS 83-90                                       CMP30       4784          I
          -CPS010 
 COMPASS            LX2    -6          COLUMNS 73-82                                       CMP30       4785          I
          -CPS010 
 COMPASS            SA7    P1TEMPE                                                         CMP30       4786          I
          -CPS010 
 COMPASS            BX7    X2          STORE MICRO VALUE                                   CMP30       4787          I
          -CPS010 
 COMPASS            SA7    A7-B1                                                           CMP30       4788          I
          -CPS010 
 COMPASS            SA2    A7-B1                                                           CMP30       4789          I
          -CPS010 
 COMPASS            SB4    B4+B1       WORD COUNT = 3                                      CMP30       4790          I
          -CPS010 
 COMPASS            EQ     TLUMIC      RETURN                                              CMP30       4791          I
          -CPS010 
 COMPASS                                                                                   CPS010        78     A     
 COMPASS   MLU4     BX7    X3          MODIFY                                              CMP30       4792     A     
 COMPASS            MX6    -18                                                             CMP30       4793     A     
 COMPASS            SA7    P1TEMPC     SAVE (X3)                                           CMP30       4794     A     
 COMPASS            SB4    B0                                                              CMP30       4795     A     
 COMPASS            BX0    -X6*X2      SEQUENCE NUMBER                                     CMP30       4796     A     
 COMPASS            SA5    =1H                                                             CMP30       4797     A     
 COMPASS            SA2    =0.1000000001P48                                                CMP30       4798     A     
 COMPASS            BX6    X5                                                              CMP30       4799     A     
 COMPASS            SA5    =10.0P0                                                         CMP30       4800     A     
 COMPASS            PX0    X0                                                              CMP30       4801     A     
 COMPASS            BX3    X5                                                              CMP30       4802     A     
 COMPASS   MLU5     DX5    X0*X2       CONVERT TO DECIMAL                                  CMP30       4803     A     
 COMPASS            FX0    X0*X2                                                           CMP30       4804     A     
 COMPASS            SB6    X0                                                              CMP30       4805     A     
 COMPASS            LX6    -6                                                              CMP30       4806     A     
 COMPASS            SB4    B4+6                                                            CMP30       4807     A     
 COMPASS            FX7    X5*X3                                                           CMP30       4808     A     
 COMPASS            SX5    X7+1R0-1R                                                       CMP30       4809     A     
 COMPASS            IX6    X5+X6                                                           CMP30       4810     A     
 COMPASS            NZ     B6,MLU5     LOOP                                                CMP30       4811     A     
 COMPASS            LX6    -6                                                              CMP30       4812     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 913    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX6    X6,B4                                                           CMP30       4813     A     
 COMPASS            SA2    SEQMIC                                                          CMP30       4814     A     
 COMPASS            SA5    =4L                                                             CMP30       4815     A     
 COMPASS            MX7    24                                                              CMP30       4816     A     
 COMPASS            LX6    -24                                                             CMP30       4817     A     
 COMPASS            BX7    X7*X6                                                           CMP30       4818     A     
 COMPASS            BX6    X6-X7                                                           CMP30       4819     A     
 COMPASS            BX6    X5+X6                                                           CMP30       4820     A     
 COMPASS            LX5    -24                                                             CMP30       4821     A     
 COMPASS            SX0    8                                                               CMP30       4822     A     
 COMPASS            BX7    X5+X7                                                           CMP30       4823     A     
 COMPASS            BX7    X7+X0                                                           CMP30       4824     A     
 COMPASS            MX0    42                                                              CMP30       4825     A     
 COMPASS            BX2    X0*X2                                                           CMP30       4826     A     
 COMPASS            MX0    6                                                               CMP30       4827     A     
 COMPASS   +        BX3    -X0*X2      FORM MASK FOR SIGNIFICANT CHARACTERS                CMP30       4828     A     
 COMPASS            AX0    6                                                               CMP30       4829     A     
 COMPASS            NZ     X3,*                                                            CMP30       4830     A     
 COMPASS            MX3    6                                                               CMP30       4831     A     
 COMPASS            BX0    -X3*X0                                                          CMP30       4832     A     
 COMPASS            LX0    6                                                               CMP30       4833     A     
 COMPASS            BX2    X0*X2                                                           CMP30       4834     A     
 COMPASS            BX6    -X0*X6                                                          CMP30       4835     A     
 COMPASS            BX6    X2+X6       COLUMNS 73-82                                       CMP30       4836     A     
 COMPASS            SA7    P1TEMPE                                                         CMP30       4837     A     
 COMPASS            BX7    X6          STORE MICRO VALUE                                   CMP30       4838     A     
 COMPASS            SA7    A7-B1                                                           CMP30       4839     A     
 COMPASS            SB4    3           WORD COUNT = 3                                      CMP30       4840     A     
 COMPASS            SA2    A7-B1                                                           CMP30       4841     A     
 COMPASS            BX3    X2          RESTORE (X3)                                        CMP30       4842     A     
 COMPASS            EQ     TLUMIC      RETURN                                              CMP30       4843     A     
 COMPASS                                                                                   CMP30       4844     A     
 COMPASS   MLUA     DATA   0           BUILT-IN MICRO NAMES                                CMP30       4845     A     
 COMPASS            DATA   0RSEQUENCE                                                      CMP30       4846     A     
 COMPASS            DATA   0RBASE                                                          CMP30       4847     A     
 COMPASS            DATA   0RCODE                                                          CMP30       4848     A     
 COMPASS            DATA   0RQUAL                                                          CMP30       4849     A     
 COMPASS   MLUB     BSS    0           BUILT-IN MICRO VALUES                               CMP30       4850     A     
 COMPASS   SEQMIC   DATA   0,0         SEQUENCE MICRO VALUE                                CMP30       4851     A     
 COMPASS   BASEMIC  CON    1LD+1       BASE MICRO VALUE                                    CMP30       4852     A     
 COMPASS   CODEMIC  CON    1LD+1       CODE MICRO VALUE                                    CMP30       4853     A     
 COMPASS   QUALMIC  CON    0           QUAL MICRO VALUE                                    CMP30       4854     A     
 COMPASS   TLUOP    SPACE  4                                                               COMPASS    14706          I
          -CPS064 
 COMPASS  **        TLUOP - LOOK UP ENTRY IN OPTAB.                                        COMPASS    14707          I
          -CPS064 
 COMPASS  *         ENTRY  (X1) = OPCODE NAME.                                             COMPASS    14708          I
          -CPS064 
 COMPASS  *         EXIT   (X6) = EQUIVALENT (NON ZERO IF FOUND).                          COMPASS    14709          I
          -CPS064 
 COMPASS  *                (X6) = 0 IF NOT IN TABLE.                                       COMPASS    14710          I
          -CPS064 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 914    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (OPTYPE) EQUALS X6.                                             COMPASS    14711          I
          -CPS064 
 COMPASS  *                (A2) = LOCATION OF EQUIVALENT IF FOUND.                         COMPASS    14712          I
          -CPS064 
 COMPASS                                                                                   COMPASS    14713          I
          -CPS064 
 COMPASS                                                                                   COMPASS    14714          I
          -CPS064 
 COMPASS   TLUOP2   SA2    A5+B1       FETCH EQUIVALENT                                    COMPASS    14715          I
          -CPS064 
 COMPASS            BX6    X2                                                              COMPASS    14716          I
          -CPS064 
 COMPASS            SA6    OPTYPE                                                          COMPASS    14717          I
          -CPS064 
 COMPASS                                                                                   COMPASS    14718          I
          -CPS064 
 COMPASS   TLUOP    PS                 RETURN EXIT                                         COMPASS    14719          I
          -CPS064 
 COMPASS            PX0    X1                                                              COMPASS    14720          I
          -CPS064 
 COMPASS            SA2    HASH                                                            COMPASS    14721          I
          -CPS064 
 COMPASS            DX3    X0*X2                                                           COMPASS    14722          I
          -CPS064 
 COMPASS            SA5    O.OPTAB                                                         COMPASS    14723          I
          -CPS064 
 COMPASS            SX0    2*NOPCT-2                                                       COMPASS    14724          I
          -CPS064 
 COMPASS            SX6    B0          CLEAR OUT OPERATION CODE ERROR                      COMPASS    14725          I
          -CPS064 
 COMPASS            AX3    47-TLUOPSHF                                                     COMPASS    14726          I
          -CPS064 
 COMPASS            BX4    X0*X3                                                           COMPASS    14727          I
          -CPS064 
 COMPASS            SB7    X5                                                              COMPASS    14728          I
          -CPS064 
 COMPASS            MX2    12                                                              COMPASS    14729          I
          -CPS064 
 COMPASS            SA6    OERR                                                            COMPASS    14730          I
          -CPS064 
 COMPASS   TLUOP1   SA5    X4+B7       FETCH NEXT ENTRY IN CHAIN                           COMPASS    14731          I
          -CPS064 
 COMPASS            BX6    X2*X5       EXTRACT LINK                                        COMPASS    14732          I
          -CPS064 
 COMPASS            IX3    X5-X6       ISOLATE ACTUAL SYMBOL                               COMPASS    14733          I
          -CPS064 
 COMPASS            BX7    X1-X3                                                           COMPASS    14734          I
          -CPS064 
 COMPASS            LX6    13          POSITION LINK FOR LATER TESTING                     COMPASS    14735          I
          -CPS064 
 COMPASS            ZR     X7,TLUOP2   IF MATCH FOUND                                      COMPASS    14736          I
          -CPS064 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 915    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX4    X6+X0       CALCULATE ADDRESS OF CHAIN ENTRY                    COMPASS    14737          I
          -CPS064 
 COMPASS            NZ     X6,TLUOP1                                                       COMPASS    14738          I
          -CPS064 
 COMPASS            SA6    OPTYPE                                                          COMPASS    14739          I
          -CPS064 
 COMPASS            EQ     TLUOP                                                           COMPASS    14740          I
          -CPS064 
 COMPASS   UCARD    SPACE  4                                                               COMPASS    14741     A     
 COMPASS  **        UCARD - UNPACK CARD.                                                   COMPASS    14742     A     
 COMPASS  *         ENTRY  (X1) = ADDRESS OF IMAGE.                                        COMPASS    14743     A     
 COMPASS  *                (B4) IS NOT DESTROYED IN THIS ROUTINE.                          COMPASS    14744          I
          -CMP64G 
 COMPASS  *         EXIT   (X6) = ADDRESS IF NEXT CARD.                                    COMPASS    14745          I
          -CMP64G 
 COMPASS  *         EXIT   (X6) = ADDRESS OF NEXT CARD.                                    CMP64G       451     A     
 COMPASS  *         THIS ROUTINE SETS UP...                                                COMPASS    14746     A     
 COMPASS  *                CARD              CONTAINS IMAGE WHICH HAS BEEN UPACKED         COMPASS    14747     A     
 COMPASS  *                CCT               CONTAINS CARD COUNT.                          COMPASS    14748     A     
 COMPASS  *                LASTCOL           CONTAINS LAST COLUMN NUMBER.                  COMPASS    14749     A     
 COMPASS                                                                                   COMPASS    14750     A     
 COMPASS                                                                                   COMPASS    14751     A     
 COMPASS   UCARD1   PL     B2,UCARD0   IF OUT OF RANGE OF CARD                             COMPASS    14752          I
          -CMP64G 
 COMPASS            SA6    B2+B3       STORE CHARACTER                                     COMPASS    14753          I
          -CMP64G 
 COMPASS            SB2    B2+B1       UP COLUMN COUNT                                     COMPASS    14754          I
          -CMP64G 
 COMPASS   UCARD0   SB6    B6-B1       COUNT OF CHARACTERS LEFT IN X1                      COMPASS    14755          I
          -CMP64G 
 COMPASS            LX1    6           EXTRACT CHARACTER                                   COMPASS    14756          I
          -CMP64G 
 COMPASS            BX6    -X0*X1                                                          COMPASS    14757          I
          -CMP64G 
 COMPASS            IX3    X6+X0                                                           COMPASS    14758          I
          -CMP64G 
 COMPASS   +        NZ     B6,*+1                                                          COMPASS    14759          I
          -CMP64G 
 COMPASS            SA1    A1+B1       FETCH NEW SOURCE WORD                               COMPASS    14760          I
          -CMP64G 
 COMPASS            SB6    A0                                                              COMPASS    14761          I
          -CMP64G 
 COMPASS            BX4    -X0*X3                                                          COMPASS    14762          I
          -CMP64G 
 COMPASS            NZ     X4,UCARD1   IF NEITHER 00 OR 77                                 COMPASS    14763          I
          -CMP64G 
 COMPASS            SB6    B6-B1       FETCH NEXT CHARACTER                                COMPASS    14764          I
          -CMP64G 
 COMPASS            LX1    6                                                               COMPASS    14765          I
          -CMP64G 
 COMPASS            BX6    -X0*X1                                                          COMPASS    14766          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 916    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X3,UCARDS   IF 77 (PARAMETER MARK)                              COMPASS    14767          I
          -CMP64G 
 COMPASS   +        NZ     B6,*+1      IF WORD EXHAUSTED                                   COMPASS    14768          I
          -CMP64G 
 COMPASS            SA1    A1+B1                                                           COMPASS    14769          I
          -CMP64G 
 COMPASS            SB6    A0                                                              COMPASS    14770          I
          -CMP64G 
 COMPASS            SB5    X6+B1                                                           COMPASS    14771          I
          -CMP64G 
 COMPASS            SB2    B5+B2                                                           COMPASS    14772          I
          -CMP64G 
 COMPASS            NZ     X6,UCARD0                                                       COMPASS    14773          I
          -CMP64G 
 COMPASS   +        SX6    A1+B1                                                           COMPASS    14774          I
          -CMP64G 
 COMPASS            NZ     B6,*+1      IF WORD NOT FINISHED                                COMPASS    14775          I
          -CMP64G 
 COMPASS            SX6    X6+B1       FUDGE LAST WORD ADDRESS                             COMPASS    14776          I
          -CMP64G 
 COMPASS            SX7    NCARDS+1    CALCULATE NUMBER OF CARDS                           COMPASS    14777          I
          -CMP12    -CMP64G 
 COMPASS            SX3    71                                                              COMPASS    14778          I
          -CMP12    -CMP64G 
 COMPASS   +        SB2    B2+X3                                                           COMPASS    14779          I
          -CMP12    -CMP64G 
 COMPASS            IX7    X7+X5                                                           COMPASS    14780          I
          -CMP12    -CMP64G 
 COMPASS            LE     B2,B0,*                                                         COMPASS    14781          I
          -CMP12    -CMP64G 
 COMPASS   +        NZ     X7,*+1                                                          COMPASS    14782          I
          -CMP12    -CMP64G 
 COMPASS            SX7    B1                                                              COMPASS    14783          I
          -CMP12    -CMP64G 
 COMPASS            SX7    A6-CARD+1                                                       CMP12         34          I
          -CMP64G 
 COMPASS            SB3    71                                                              CMP12         35          I
          -CMP64G 
 COMPASS   +        NZ     X7,*+1      IF NOT ALL-BLANK CARD                               CMP27         27          I
          -CMP64G 
 COMPASS            SX7    B1                                                              CMP27         28          I
          -CMP64G 
 COMPASS            SA7    LASTCOL     CALCULATE LENGTH OF STATEMENT                       CMP12         36          I
          -CMP64G 
 COMPASS            SB2    A6-CARD     AND NUMBER OF CARDS                                 CMP12         37          I
          -CMP64G 
 COMPASS            SX7    B0                                                              CMP12         38          I
          -CMP64G 
 COMPASS   +        SB2    B2-B3                                                           CMP12         39          I
          -CMP64G 
 COMPASS            SX7    X7+B1                                                           CMP12         40          I
          -CMP64G 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 917    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            GT     B2,B0,*                                                         CMP12         41          I
          -CMP64G 
 COMPASS            SA7    CCT                                                             COMPASS    14784          I
          -CMP64G 
 COMPASS            SX7    A6-CARD+1                                                       COMPASS    14785          I
          -CMP12    -CMP64G 
 COMPASS            SA7    LASTCOL                                                         COMPASS    14786          I
          -CMP12    -CMP64G 
 COMPASS                                                                                   COMPASS    14787          I
          -CMP64G 
 COMPASS   UCARD    PS                 RETURN EXIT                                         COMPASS    14788          I
          -CMP64G 
 COMPASS            SX6    1R                                                              COMPASS    14789          I
          -CMP64G 
 COMPASS            SA1    X1                                                              COMPASS    14790          I
          -CMP64G 
 COMPASS            BX7    X6                                                              COMPASS    14791          I
          -CMP64G 
 COMPASS            SA4    LASTCOL     GET LIMITS FOR CLEARING CARD AREA                   COMPASS    14792          I
          -CMP64G 
 COMPASS            SB7    X4+2                                                            COMPASS    14793          I
          -CMP64G 
 COMPASS            SA6    STYPE                                                           COMPASS    14794          I
          -CMP64G 
 COMPASS            SB2    -71*NCARDS-2                                                    COMPASS    14795          I
          -CMP64G 
 COMPASS            SB3    A6-B2                                                           COMPASS    14796          I
          -CMP64G 
 COMPASS            MX5    59                                                              COMPASS    14797          I
          -CMP64G 
 COMPASS            MX0    54                                                              COMPASS    14798          I
          -CMP64G 
 COMPASS            SB6    B1+B1                                                           COMPASS    14799          I
          -CMP64G 
 COMPASS   +        SB7    B7-B6                                                           COMPASS    14800          I
          -CMP64G 
 COMPASS            SA7    A6+B1                                                           COMPASS    14801          I
          -CMP64G 
 COMPASS            SA6    A7+B1                                                           COMPASS    14802          I
          -CMP64G 
 COMPASS            PL     B7,*-1                                                          COMPASS    14803          I
          -CMP64G 
 COMPASS            SA0    10                                                              COMPASS    14804          I
          -CMP64G 
 COMPASS            SB6    A0                                                              COMPASS    14805          I
          -CMP64G 
 COMPASS            EQ     UCARD0                                                          COMPASS    14806          I
          -CMP64G 
 COMPASS   UCARD0   PL     B2,UCARD1   IF OUT OF RANGE OF CARD                             CMP64G       452     A     
 COMPASS            SA6    B2+B3                                                           CMP64G       453     A     
 COMPASS            SB2    B2+B1                                                           CMP64G       454     A     
 COMPASS   UCARD1   AX7    X1,B4       EXTRACT NEXT CHARACTER                              CMP64G       455     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 918    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB6    B6-B1                                                           CMP64G       456     A     
 COMPASS            BX6    -X0*X7                                                          CMP64G       457     A     
 COMPASS            LX1    6                                                               CMP64G       458     A     
 COMPASS            NZ     B6,UCARD2   IF NOT END OF WORD                                  CMP64G       459     A     
 COMPASS            SB6    A0                                                              CMP64G       460     A     
 COMPASS            SA1    A1+B1                                                           CMP64G       461     A     
 COMPASS   UCARD2   NZ     X7,UCARD0   IF NOT 00 NOR 77                                    CMP64G       462     A     
 COMPASS            MI     X7,UCARDS   IF 77 (SEMICOLON OR PARAMETER MARK)                 CMP64G       463     A     
 COMPASS            SB6    B6-B1                                                           CMP64G       464     A     
 COMPASS            LX1    6           00, EXTRACT NEXT CHARACTER                          CMP64G       465     A     
 COMPASS            BX6    -X0*X1                                                          CMP64G       466     A     
 COMPASS            SB5    X6+B1                                                           CMP64G       467     A     
 COMPASS            NZ     B6,UCARD3   IF NOT END OF WORD                                  CMP64G       468     A     
 COMPASS            SB6    A0                                                              CMP64G       469     A     
 COMPASS            SA1    A1+B1                                                           CMP64G       470     A     
 COMPASS   UCARD3   AX6    1                                                               CMP64G       471     A     
 COMPASS            SB2    B2+B5                                                           CMP64G       472     A     
 COMPASS            NZ     X6,UCARD1   IF 0002-0077 (3 TO 64 BLANKS)                       CMP64G       473     A     
 COMPASS            SB2    B2-B5                                                           CMP64G       474     A     
 COMPASS            BX6    X6-X6                                                           CMP64G       475     A     
 COMPASS            NE     B5,B1,UCARD0 IF 0001, GO STORE 00 (COLON)                       CMP64G       476     A     
 COMPASS                                                                                   CMP64G       477     A     
 COMPASS            SB6    A0-B6       0000, END OF STATEMENT                              CMP64G       478     A     
 COMPASS            NG     B2,UCARD4   IF STATEMENT NOT TOO LONG                           CMP64G       479     A     
 COMPASS            SB2    B0                                                              CMP64G       480     A     
 COMPASS   UCARD4   SB2    B2+71*NCARDS+1  CALCULATE NUMBER OF COLUMNS                     CMP64G       481     A     
 COMPASS            SB3    71                                                              CMP64G       482     A     
 COMPASS            SX7    B2+B1                                                           CMP64G       483          I
          -CPSA175
 COMPASS            SX7    B2                                                              CPSA175        6     A     
 COMPASS            NZ     X7,UCARD5   IF NOT EMPTY STATEMENT                              CMP64G       484     A     
 COMPASS            SX7    B1                                                              CMP64G       485     A     
 COMPASS   UCARD5   SB2    B2-B3       CALCULATE NUMBER OF CARDS IN STATEMENT              CMP64G       486     A     
 COMPASS            SX6    X6+B1                                                           CMP64G       487     A     
 COMPASS            GT     B2,B3,UCARD5                                                    CMP64G       488     A     
 COMPASS            SA6    CCT                                                             CMP64G       489     A     
 COMPASS            SA7    LASTCOL                                                         CMP64G       490     A     
 COMPASS            SX6    A1+B1       (X6) = FWA NEXT STATEMENT                           CMP64G       491     A     
 COMPASS            NZ     B6,UCARD    IF NOT END OF WORD                                  CMP64G       492     A     
 COMPASS            SX6    A1                                                              CMP64G       493     A     
 COMPASS                                                                                   CMP64G       494     A     
 COMPASS   UCARD    PS                 RETURN EXIT                                         CMP64G       495     A     
 COMPASS            SX6    1R                                                              CMP64G       496     A     
 COMPASS            BX7    X6                                                              CMP64G       497     A     
 COMPASS            SA1    X1                                                              CMP64G       498     A     
 COMPASS            SA4    LASTCOL                                                         CMP64G       499     A     
 COMPASS            SB7    X4-1                                                            CMP64G       500     A     
 COMPASS            SA6    STYPE                                                           CMP64G       501     A     
 COMPASS            MX5    59                                                              CMP64G       502     A     
 COMPASS            SB6    B1+B1                                                           CMP64G       503     A     
 COMPASS            SB2    -71*NCARDS-2                                                    CMP64G       504     A     
 COMPASS            SB3    A6-B2                                                           CMP64G       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/28. 19.11.32.      PAGE 919    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX0    -6                                                              CMP64G       506     A     
 COMPASS   UCARD7   SA7    A6+B1       STORE BLANKS IN CARD AREA                           CMP64G       507     A     
 COMPASS            SB7    B7-B6                                                           CMP64G       508          I
          -CMP165 
 COMPASS            NO                                                                     CMP64G       509          I
          -CMP165 
 COMPASS            SB7    B7-2                                                            CMP165       190     A     
 COMPASS            SA6    A7+B1                                                           CMP64G       510     A     
 COMPASS            PL     B7,UCARD7                                                       CMP64G       511     A     
 COMPASS            SA0    10                                                              CMP64G       512     A     
 COMPASS            SB4    54                                                              CMP64G       513     A     
 COMPASS            SB6    A0                                                              CMP64G       514     A     
 COMPASS            EQ     UCARD1                                                          CMP64G       515     A     
 COMPASS                                                                                   COMPASS    14807     A     
 COMPASS  *         SUSTITUTE PARAMETER.                                                   COMPASS    14808     A     
 COMPASS                                                                                   COMPASS    14809     A     
 COMPASS   UCARDS   NZ     B6,*+1      FOR PARAMETER SUBSTITUTION                          COMPASS    14810          I
          -CMP64G 
 COMPASS            SA1    A1+B1                                                           COMPASS    14811          I
          -CMP64G 
 COMPASS            SB6    A0                                                              COMPASS    14812          I
          -CMP64G 
 COMPASS   UCARDS   AX7    X1,B4       77, EXTRACT NEXT CHARACTER                          CMP64G       516     A     
 COMPASS            BX7    -X0*X7                                                          CMP64G       517     A     
 COMPASS            ZR     X7,UCARD0   IF 00 (END-OF-LINE OR COLON)                        CMP64G       518     A     
 COMPASS            SA3    O.STACK                                                         COMPASS    14813     A     
 COMPASS            SA4    L.STACK                                                         COMPASS    14814     A     
 COMPASS            IX3    X3+X4                                                           COMPASS    14815     A     
 COMPASS            ZR     X4,UCARD0   IF NO STACK ENTRY EXISTS                            CPS0257        7     A     
 COMPASS            SB7    X6-1        PARAMETER NUMBER                                    COMPASS    14816          I
          -CMP64G 
 COMPASS            SB7    X7-1        PARAMETER NUMBER                                    CMP64G       519     A     
 COMPASS            SB5    A0                                                              COMPASS    14817     A     
 COMPASS            SA4    X3-3        FETCH SECOND WORD OF STACK ENTRY                    COMPASS    14818     A     
 COMPASS            SA2    L.MARDIS                                                        COMPASS    14819     A     
 COMPASS            SX3    X4+B7                                                           COMPASS    14820     A     
 COMPASS            IX2    X3-X2                                                           COMPASS    14821     A     
 COMPASS            PL     X2,UCD10    IF PARAMETER ERROR                                  COMPASS    14822          I
          -CMP64G 
 COMPASS            PL     X2,UCARD0   IF PARAMETER NUMBER TOO LARGE                       CMP64G       520     A     
 COMPASS            SA2    O.MARDIS                                                        COMPASS    14823     A     
 COMPASS            IX4    X2+X3                                                           COMPASS    14824          I
          -CMP64G 
 COMPASS            SB6    B6-B1       UPDATE SOURCE POINTERS                              CMP64G       521     A     
 COMPASS            LX1    6                                                               CMP64G       522     A     
 COMPASS            NZ     B6,UCD1     IF NOT END OF WORD                                  CMP64G       523     A     
 COMPASS            SB6    A0                                                              CMP64G       524     A     
 COMPASS            SA1    A1+B1                                                           CMP64G       525     A     
 COMPASS   UCD1     IX4    X2+X3                                                           CMP64G       526     A     
 COMPASS            SA3    X4                                                              COMPASS    14825     A     
 COMPASS            SA4    O.MARGS                                                         COMPASS    14826     A     
 COMPASS            SB7    X3                                                              COMPASS    14827     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 920    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    B7+X4                                                           COMPASS    14828     A     
 COMPASS            PL     X3,UCARDS1  IF NOT IRP PARAMETER                                COMPASS    14829          I
          -CMP165 
 COMPASS            UX3,B7                                                                 CMP165       191     A     
 COMPASS            PL     B7,UCARDS1  IF NOT IRP PARAMETER                                CMP165       192     A     
 COMPASS                                                                                   COMPASS    14830     A     
 COMPASS  *         UNPACK IRP PARAMETER.                                                  COMPASS    14831     A     
 COMPASS                                                                                   COMPASS    14832     A     
 COMPASS            UX3    B5,X3                                                           COMPASS    14833          I
          -CMP165 
 COMPASS            AX3    18                                                              COMPASS    14834          I
          -CMP165 
 COMPASS            SB7    X3                                                              COMPASS    14835          I
          -CMP165 
 COMPASS            SA2    B7+X4                                                           COMPASS    14836          I
          -CMP165 
 COMPASS            SB7    A0-B5                                                           COMPASS    14837          I
          -CMP165 
 COMPASS            SX3    B7+B7                                                           COMPASS    14838          I
          -CMP165 
 COMPASS            SB7    X3+B7                                                           COMPASS    14839          I
          -CMP165 
 COMPASS            LX2    X2,B7                                                           COMPASS    14840          I
          -CMP165 
 COMPASS            LX2    X2,B7                                                           COMPASS    14841          I
          -CMP165 
 COMPASS            SB5    B5-B1                                                           COMPASS    14842          I
          -CMP165 
 COMPASS            LX2    6                                                               COMPASS    14843          I
          -CMP165 
 COMPASS            BX6    -X0*X2                                                          COMPASS    14844          I
          -CMP165 
 COMPASS            NZ     B5,UCD2     IF NOT END OF WORD                                  COMPASS    14845          I
          -CMP165 
 COMPASS            LX3    59-41                                                           CMP165       193     A     
 COMPASS            SB4    X3          (B4) = SHIFT COUNT FOR CURRENT CHARACTER            CMP165       194     A     
 COMPASS            UX3,B5                                                                 CMP165       195     A     
 COMPASS            SA0    60          (A0) = 60                                           CMP165       196     A     
 COMPASS            LX3    41-29                                                           CMP165       197     A     
 COMPASS            SB5    B5+B7       (B5) = - REMAINING CHARACTER COUNT                  CMP165       198     A     
 COMPASS            UX3,B7                                                                 CMP165       199     A     
 COMPASS            SA2    A2+B7       (X2) = CURRENT WORD OF ARGUMENT                     CMP165       200     A     
 COMPASS            SB4    B4+6                                                            CMP165       201     A     
 COMPASS            SB5    B5+B1                                                           CMP165       202     A     
 COMPASS            LX3    X2,B4       GET NEXT CHARACTER                                  CMP165       203     A     
 COMPASS            SB7    A0-B4                                                           CMP165       204     A     
 COMPASS            GT     B5,UCD6     IF PAST END OF ARGUMENT                             CMP165       205     A     
 COMPASS            BX6    -X0*X3                                                          CMP165       206     A     
 COMPASS            NZ     B7,UCD2     IF NOT END OF WORD                                  CMP165       207     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    14846     A     
 COMPASS            SB5    A0                                                              COMPASS    14847          I
          -CMP165 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 921    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB4    B0                                                              CMP165       208     A     
 COMPASS   UCD2     SB7    X6-1R(                                                          COMPASS    14848     A     
 COMPASS            MX4    0                                                               COMPASS    14849     A     
 COMPASS            ZR     B7,UCD8     IF FIRST CHAR IS *(*                                COMPASS    14850          I
          -CMP165 
 COMPASS            ZR     B7,UCD7A    IF FIRST CHARACTER IS *(*                           CMP165       209     A     
 COMPASS            EQ     UCD5                                                            COMPASS    14851     A     
 COMPASS                                                                                   COMPASS    14852     A     
 COMPASS   UCD3     PL     B2,UCD4     IF END OF CARD BUFFER                               COMPASS    14853     A     
 COMPASS            SA6    B2+B3                                                           COMPASS    14854     A     
 COMPASS            SB2    B2+B1                                                           COMPASS    14855     A     
 COMPASS   UCD4     SB5    B5-B1                                                           COMPASS    14856          I
          -CMP165 
 COMPASS            LX2    6                                                               COMPASS    14857          I
          -CMP165 
 COMPASS            BX6    -X0*X2                                                          COMPASS    14858          I
          -CMP165 
 COMPASS            NZ     B5,UCD5     IF NOT END OF WORD                                  COMPASS    14859          I
          -CMP165 
 COMPASS   UCD4     SB4    B4+6                                                            CMP165       210     A     
 COMPASS            SB5    B5+B1                                                           CMP165       211     A     
 COMPASS            LX3    X2,B4       GET NEXT CHARACTER                                  CMP165       212     A     
 COMPASS            SB7    A0-B4                                                           CMP165       213     A     
 COMPASS            GT     B5,UCD6     IF PAST END OF ARGUMENT                             CMP165       214     A     
 COMPASS            BX6    -X0*X3                                                          CMP165       215     A     
 COMPASS            NZ     B7,UCD5     IF NOT END OF WORD                                  CMP165       216     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    14860     A     
 COMPASS            SB5    A0                                                              COMPASS    14861          I
          -CMP165 
 COMPASS            SB4    B0                                                              CMP165       217     A     
 COMPASS   UCD5     SX3    X6-1R,                                                          COMPASS    14862     A     
 COMPASS            ZR     X6,UCARD0   IF END OF ARGUMENT STRING                           COMPASS    14863          I
          -CMP64G 
 COMPASS            ZR     X6,UCARD1   IF END OF ARGUMENT STRING                           CMP64G       527          I
          -CMP165 
 COMPASS            NZ     X3,UCD3     IF NOT *,*                                          COMPASS    14864     A     
 COMPASS                                                                                   CMP165       218     A     
 COMPASS   UCD6     SA0    10          END OF SUBARGUMENT, RESTORE REGISTERS               CMP165       219     A     
 COMPASS            SB4    54                                                              CMP165       220     A     
 COMPASS            EQ     UCARD0                                                          COMPASS    14865          I
          -CMP64G 
 COMPASS            EQ     UCARD1                                                          CMP64G       528     A     
 COMPASS                                                                                   COMPASS    14866     A     
 COMPASS  *         STORE PARAMETER IN PARENS.                                             COMPASS    14867     A     
 COMPASS                                                                                   COMPASS    14868     A     
 COMPASS   UCD6     SB7    B7+B7                                                           COMPASS    14869          I
          -CMP165 
 COMPASS            SX3    B1-B7                                                           COMPASS    14870          I
          -CMP165 
 COMPASS            IX4    X4+X3                                                           COMPASS    14871          I
          -CMP165 
 COMPASS            NG     X4,UCD4     IF OUT OF BRACKETS                                  COMPASS    14872          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 922    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP165 
 COMPASS   UCD7     PL     B2,UCD8     IF END OF CARD BUFFER                               COMPASS    14873          I
          -CMP165 
 COMPASS   UCD7     PL     B2,UCD7A    IF END OF CARD BUFFER                               CMP165       221     A     
 COMPASS            SA6    B2+B3                                                           COMPASS    14874     A     
 COMPASS            SB2    B2+B1                                                           COMPASS    14875     A     
 COMPASS   UCD8     SB5    B5-B1                                                           COMPASS    14876          I
          -CMP165 
 COMPASS            LX2    6                                                               COMPASS    14877          I
          -CMP165 
 COMPASS            BX6    -X0*X2                                                          COMPASS    14878          I
          -CMP165 
 COMPASS            NZ     B5,UCD9     IF NOT END OF CARD                                  COMPASS    14879          I
          -CMP165 
 COMPASS   UCD7A    SB4    B4+6                                                            CMP165       222     A     
 COMPASS            SB5    B5+B1                                                           CMP165       223     A     
 COMPASS            LX3    X2,B4       GET NEXT CHARACTER                                  CMP165       224     A     
 COMPASS            SB7    A0-B4                                                           CMP165       225     A     
 COMPASS            GT     B5,UCD6     IF PAST END OF ARGUMENT                             CMP165       226     A     
 COMPASS            BX6    -X0*X3                                                          CMP165       227     A     
 COMPASS            NZ     B7,UCD8     IF NOT END OF WORD                                  CMP165       228     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    14880     A     
 COMPASS            SB5    A0                                                              COMPASS    14881          I
          -CMP165 
 COMPASS   UCD9     SB7    X6-1R(                                                          COMPASS    14882          I
          -CMP165 
 COMPASS            ZR     B7,UCD6     IF *(*                                              COMPASS    14883          I
          -CMP165 
 COMPASS            EQ     B7,B1,UCD6  IF *)*                                              COMPASS    14884          I
          -CMP165 
 COMPASS            NZ     X6,UCD7     IF NOT END OF ARGUMENT STRING                       COMPASS    14885          I
          -CMP165 
 COMPASS            EQ     UCARD0                                                          COMPASS    14886          I
          -CMP64G 
 COMPASS            EQ     UCARD1                                                          CMP64G       529          I
          -CMP165 
 COMPASS            SB4    B0                                                              CMP165       229     A     
 COMPASS   UCD8     SB7    X6-1R(                                                          CMP165       230     A     
 COMPASS            ZR     B7,UCD9     IF *(*                                              CMP165       231     A     
 COMPASS            NE     B7,B1,UCD7  IF NOT *)*                                          CMP165       232     A     
 COMPASS   UCD9     SB7    B7+B7                                                           CMP165       233     A     
 COMPASS            SX3    B1-B7                                                           CMP165       234     A     
 COMPASS            IX4    X4+X3                                                           CMP165       235     A     
 COMPASS            PL     X4,UCD7     IF STILL WITHIN PARENS                              CMP165       236     A     
 COMPASS            EQ     UCD4                                                            CMP165       237     A     
 COMPASS                                                                                   COMPASS    14887     A     
 COMPASS  *         UNPACK FORMAL PARAMETER.                                               COMPASS    14888     A     
 COMPASS                                                                                   COMPASS    14889     A     
 COMPASS   UCARDS2  PL     B2,*+1                                                          COMPASS    14890     A     
 COMPASS            SA6    B2+B3                                                           COMPASS    14891     A     
 COMPASS            SB2    B2+B1                                                           COMPASS    14892     A     
 COMPASS   UCARDS1  SB5    B5-B1                                                           COMPASS    14893     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 923    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX2    6                                                               COMPASS    14894     A     
 COMPASS            SB7    B7-B1                                                           CMP165       238     A     
 COMPASS            BX6    -X0*X2                                                          COMPASS    14895     A     
 COMPASS            NZ     B5,*+1                                                          COMPASS    14896     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    14897     A     
 COMPASS            SB5    A0                                                              COMPASS    14898     A     
 COMPASS            NZ     X6,UCARDS2                                                      COMPASS    14899          I
          -CMP165 
 COMPASS            PL     B7,UCARDS2  LOOP TO END OF ARGUMENT                             CMP165       239     A     
 COMPASS            EQ     UCARD0                                                          COMPASS    14900          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14901          I
          -CMP64G 
 COMPASS  *         PARAMETER ERROR.                                                       COMPASS    14902          I
          -CMP64G 
 COMPASS                                                                                   COMPASS    14903          I
          -CMP64G 
 COMPASS   UCD10    BX7    -X0                                                             COMPASS    14904          I
          -CMP64G 
 COMPASS            PL     B2,UCARD0   IF OUT OF RANGE                                     COMPASS    14905          I
          -CMP64G 
 COMPASS            SA7    B2+B3       STORE 77                                            COMPASS    14906          I
          -CMP64G 
 COMPASS            SB2    B2+B1                                                           COMPASS    14907          I
          -CMP64G 
 COMPASS            EQ     UCARD1                                                          COMPASS    14908     A     
 COMPASS   UPC      SPACE  4                                                               COMPASS    14909          I
          -CMP24  
 COMPASS  **        UPC - UNPACK CARD.                                                     COMPASS    14910          I
          -CMP24  
 COMPASS  *         ENTRY  (A5) = WORD ADDRESS.                                            COMPASS    14911          I
          -CMP24  
 COMPASS  *                (X5) = WORD TO UNPACK.                                          COMPASS    14912          I
          -CMP24  
 COMPASS  *                (A6) = STRING BUFFER ADDRESS.                                   COMPASS    14913          I
          -CMP24  
 COMPASS  *                (X7) = EDIT FLAG.                                               COMPASS    14914          I
          -CMP24  
 COMPASS  *                (B7) = NUMBER OF CHARACTERS IN X5.                              COMPASS    14915          I
          -CMP24  
 COMPASS  *         EXIT   (X7) = EDIT FLAG.                                               COMPASS    14916          I
          -CMP24  
 COMPASS  *                (A6) = STRING BUFFER ADDRESS.                                   COMPASS    14917          I
          -CMP24  
 COMPASS  *                (B3) = 10.                                                      COMPASS    14918          I
          -CMP24  
 COMPASS  *         (A0), (B2), (X2) ARE PRESERVED.                                        COMPASS    14919          I
          -CMP24  
 COMPASS                                                                                   COMPASS    14920          I
          -CMP24  
 COMPASS                                                                                   COMPASS    14921          I
          -CMP24  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 924    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   UPC      PS                 RETURN EXIT                                         COMPASS    14922          I
          -CMP24  
 COMPASS            SA1    EDITM                                                           COMPASS    14923          I
          -CMP24  
 COMPASS            MX3    59                                                              COMPASS    14924          I
          -CMP24  
 COMPASS            SB4    -B1                                                             COMPASS    14925          I
          -CMP24  
 COMPASS            SB3    10                                                              COMPASS    14926          I
          -CMP24  
 COMPASS            SB5    1R                                                              COMPASS    14927          I
          -CMP24  
 COMPASS            MX0    60-6                                                            COMPASS    14928          I
          -CMP24  
 COMPASS            EQ     UPC3                                                            COMPASS    14929          I
          -CMP24  
 COMPASS                                                                                   COMPASS    14930          I
          -CMP24  
 COMPASS   UPC1     LX5    6                                                               COMPASS    14931          I
          -CMP24  
 COMPASS            BX3    -X0*X5                                                          COMPASS    14932          I
          -CMP24  
 COMPASS            ZR     X3,UPC      IF END OF LINE                                      COMPASS    14933          I
          -CMP24  
 COMPASS   UPC2     SA6    A6+B1       STORE CHARACTER                                     COMPASS    14934          I
          -CMP24  
 COMPASS            SX3    X3+B4                                                           COMPASS    14935          I
          -CMP24  
 COMPASS            PL     X3,UPC2     IF FILLING BLANKS                                   COMPASS    14936          I
          -CMP24  
 COMPASS            NZ     B7,UPC3     IF NOT END OF WORD                                  COMPASS    14937          I
          -CMP24  
 COMPASS            SA5    A5+B1                                                           COMPASS    14938          I
          -CMP24  
 COMPASS            SB7    B3                                                              COMPASS    14939          I
          -CMP24  
 COMPASS   UPC3     SB6    X6          CHECK FOR MICRO/CONCATENATION                       COMPASS    14940          I
          -CMP24  
 COMPASS            LX5    6                                                               COMPASS    14941          I
          -CMP24  
 COMPASS            BX6    -X0*X5                                                          COMPASS    14942          I
          -CMP24  
 COMPASS            LX4    X1,B6                                                           COMPASS    14943          I
          -CMP24  
 COMPASS            SB7    B7-B1                                                           COMPASS    14944          I
          -CMP24  
 COMPASS            BX7    X7+X4                                                           COMPASS    14945          I
          -CMP24  
 COMPASS            NZ     X6,UPC2     IF NOT 00 CHARACTER                                 COMPASS    14946          I
          -CMP24  
 COMPASS            SX6    B5                                                              COMPASS    14947          I
          -CMP24  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 925    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    B7-B1                                                           COMPASS    14948          I
          -CMP24  
 COMPASS            PL     B7,UPC1     IF NOT END OF WORD                                  COMPASS    14949          I
          -CMP24  
 COMPASS            SA5    A5+B1                                                           COMPASS    14950          I
          -CMP24  
 COMPASS            SB7    B3-B1                                                           COMPASS    14951          I
          -CMP24  
 COMPASS            EQ     UPC1        LOOP                                                COMPASS    14952          I
          -CMP24  
 COMPASS   WINTER   SPACE  4                                                               COMPASS    14953     A     
 COMPASS  **        WINTER - WRITE INTERMEDIATE FILE.                                      COMPASS    14954     A     
 COMPASS  *         THIS ROUTINE ADDS A STATEMENT TO THE INTERMEDIATE FILE OR              COMPASS    14955     A     
 COMPASS  *         INTERMEDIATE TABLE.                                                    COMPASS    14956     A     
 COMPASS  *         INTERMEDIATE FILE FORMAT:                                              COMPASS    14957     A     
 COMPASS  *                                                                                COMPASS    14958     A     
 COMPASS  *         OPTYPE     3/TYPE,11/,1/SF,1/FF,1/IF,2/,7/LGTH,4/CCT,30/IMAGE          COMPASS    14959          I
          -CMP24  
 COMPASS  *         OPTYPE     3/TYPE,10/,1/TW,1/SF,1/FF,1/IF,2/,7/L,4/CCT,30/BIN          CMP24        493     A     
 COMPASS  *         IND        22/,8/FLAGS,12/,18/EFLAGS                                   COMPASS    14960     A     
 COMPASS  *         FLAG       60/FLAG                                                     COMPASS    14961     A     
 COMPASS  *         SEQUENCE   12/,48/NAME                                                 COMPASS    14962     A     
 COMPASS  *                    60/NUMBER                                                   COMPASS    14963     A     
 COMPASS  *         CARD       60/CARD                                                     COMPASS    14964     A     
 COMPASS  *                                                                                COMPASS    14965     A     
 COMPASS  *                TYPE = OPERATION TYPE.                                          COMPASS    14966     A     
 COMPASS  *                SF = SEQUENCE NUMBERS PRESENT.                                  COMPASS    14967          I
          -CMP24  
 COMPASS  *                TW = TWO-WORD SEQUENCE FIELD(S) PRESENT.                        CMP24        494     A     
 COMPASS  *                SF = SEQUENCE FIELD PRESENT FOR EACH CARD.                      CMP24        495     A     
 COMPASS  *                FF = FLAG PRESENT.                                              COMPASS    14968     A     
 COMPASS  *                IF = IND PRESENT.                                               COMPASS    14969     A     
 COMPASS  *                LGTH = LENGTH OF COMPRESSED RECORD.                             COMPASS    14970          I
          -CMP24  
 COMPASS  *                L = LENGTH OF COMPRESSED RECORD.                                CMP24        496     A     
 COMPASS  *                CCT = NUMBER OF CARDS.                                          COMPASS    14971     A     
 COMPASS  *                IMAGE = INFORMATION  FROM PASS 1 PROCESSOR.                     COMPASS    14972          I
          -CMP24  
 COMPASS  *                BIN = INFORMATION FROM PASS 1 PROCESSOR.                        CMP24        497     A     
 COMPASS  *                FLAGS = 200 NOAS                                                COMPASS    14973     A     
 COMPASS  *                        100 TXTFLG                                              COMPASS    14974     A     
 COMPASS  *                        040 MICFLG                                              COMPASS    14975     A     
 COMPASS  *                        020 SYSFLG                                              COMPASS    14976     A     
 COMPASS  *                        010 MACFLG                                              COMPASS    14977     A     
 COMPASS  *                        004 ECHFLG                                              COMPASS    14978     A     
 COMPASS  *                        002 RMTFLG                                              COMPASS    14979     A     
 COMPASS  *                        001 LIMFLG                                              COMPASS    14980     A     
 COMPASS                                                                                   COMPASS    14981     A     
 COMPASS                                                                                   COMPASS    14982     A     
 COMPASS  *         TABLE JUST OVERFLOWED.                                                 COMPASS    14983     A     
 COMPASS                                                                                   COMPASS    14984     A     
 COMPASS   WIN7     SX6    B0          CLEAR INTERMEDIATE FILE TABLE                       COMPASS    14985     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 926    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    L.INTER                                                         COMPASS    14986     A     
 COMPASS                                                                                   COMPASS    14987     A     
 COMPASS  *         WRITE INFORMATION ON SCRATCH FILE.                                     COMPASS    14988     A     
 COMPASS                                                                                   COMPASS    14989     A     
 COMPASS                                                                                   CMP30       4855     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4856     A     
 COMPASS   WIN8     WRITEW S,B6,B7-B6                                                      COMPASS    14990     A     
 COMPASS   RM       ELSE                                                                   CMP30       4857     A     
 COMPASS   WIN8     SX3    B7-B6                                                           CMP30       4858     A     
 COMPASS            IX4    X3+X3                                                           CMP30       4859     A     
 COMPASS            LX3    3                                                               CMP30       4860     A     
 COMPASS            IX2    X3+X4                                                           CMP30       4861     A     
 COMPASS            SX1    B6                                                              CMP30       4862     A     
 COMPASS            PUT    S,X1,X2                                                         CMP30       4863     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4864     A     
 COMPASS                                                                                   CMP30       4865     A     
 COMPASS            SA1    SQLGN                                                           COMPASS    14991     A     
 COMPASS                                                                                   CMP30       4866     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4867     A     
 COMPASS            WRITEW S,SQIMAGE,X1                                                    COMPASS    14992     A     
 COMPASS   RM       ELSE                                                                   CMP30       4868     A     
 COMPASS            IX2    X1+X1                                                           CMP30       4869     A     
 COMPASS            LX1    3                                                               CMP30       4870     A     
 COMPASS            IX1    X1+X2                                                           CMP30       4871     A     
 COMPASS            PUT    S,SQIMAGE,X1                                                    CMP30       4872     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4873     A     
 COMPASS                                                                                   COMPASS    14993     A     
 COMPASS   WINTER   PS                 RETURN EXIT                                         COMPASS    14994     A     
 COMPASS            SA1    STCNT       INCREMENT STATEMENT COUNT                           COMPASS    14995     A     
 COMPASS            SX6    B1                                                              COMPASS    14996     A     
 COMPASS            IX6    X6+X1                                                           COMPASS    14997     A     
 COMPASS            SA6    A1                                                              COMPASS    14998     A     
 COMPASS            SA2    IFCNT       SET NOAS (NO ASSEMBLY FLAG) IF IFCNT .NE. 0         COMPASS    14999     A     
 COMPASS            SX6    B0                                                              COMPASS    15000     A     
 COMPASS            ZR     X2,WIN1     IF NOT IF SKIPPING                                  COMPASS    15001     A     
 COMPASS            SA2    LF+1                                                            COMPASS    15002     A     
 COMPASS            ZR     X2,WINTER   IF NOT LISTING IF-SKIPPED LINES                     COMPASS    15003     A     
 COMPASS            SX6    B1                                                              COMPASS    15004     A     
 COMPASS   WIN1     SA6    NOAS                                                            COMPASS    15005     A     
 COMPASS            RJ     SQUEEZE     COMPRESS LINE                                       COMPASS    15006     A     
 COMPASS            SB6    SEQ-1                                                           COMPASS    15007     A     
 COMPASS            SB7    SEQ                                                             COMPASS    15008     A     
 COMPASS            SA2    FLAG        CHECK FLAG WORD                                     COMPASS    15009     A     
 COMPASS            SX5    B1                                                              COMPASS    15010     A     
 COMPASS            LX5    44                                                              COMPASS    15011     A     
 COMPASS            SA1    OPTYPE                                                          COMPASS    15012     A     
 COMPASS            MX0    18                                                              COMPASS    15013     A     
 COMPASS            BX7    X2                                                              COMPASS    15014     A     
 COMPASS            SA7    B6                                                              COMPASS    15015     A     
 COMPASS            LX0    48                                                              COMPASS    15016     A     
 COMPASS            BX0    -X0*X1      (X0) = OPTYPE                                       COMPASS    15017     A     
 COMPASS   +        ZR     X2,*+1      IF NO FLAG                                          COMPASS    15018     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 927    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX0    X0+X5                                                           COMPASS    15019     A     
 COMPASS            SB6    B6-B1                                                           COMPASS    15020     A     
 COMPASS            MX6    0           FETCH CONTROL FLAGS                                 COMPASS    15021     A     
 COMPASS            SB5    LIBFLG-NOAS                                                     COMPASS    15022     A     
 COMPASS            SA1    NOAS                                                            COMPASS    15023     A     
 COMPASS   WIN2     SB5    B5-B1                                                           COMPASS    15024     A     
 COMPASS            IX4    X6+X6                                                           COMPASS    15025     A     
 COMPASS            BX6    X4+X1                                                           COMPASS    15026     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    15027     A     
 COMPASS            PL     B5,WIN2     LOOP                                                COMPASS    15028     A     
 COMPASS            SA1    EFLG                                                            COMPASS    15029     A     
 COMPASS            LX6    30                                                              COMPASS    15030     A     
 COMPASS            ZR     X1,WIN4     IF NO ERROR FLAGS                                   COMPASS    15031     A     
 COMPASS            SB5    LEFLG-1                                                         COMPASS    15032     A     
 COMPASS            SA1    ERFLAGS                                                         COMPASS    15033     A     
 COMPASS   WIN3     LX4    X1,B5                                                           COMPASS    15034     A     
 COMPASS            SB5    B5-B1                                                           COMPASS    15035     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    15036     A     
 COMPASS            BX6    X6+X4                                                           COMPASS    15037     A     
 COMPASS            PL     B5,WIN3     LOOP                                                COMPASS    15038     A     
 COMPASS   WIN4     AX5    -43+44                                                          COMPASS    15039     A     
 COMPASS            SA6    B6                                                              COMPASS    15040     A     
 COMPASS            SA1    CCT         CHECK SEQUENCE FIELDS                               COMPASS    15041     A     
 COMPASS   +        ZR     X6,*+1      IF NO IND                                           COMPASS    15042     A     
 COMPASS            BX0    X0+X5                                                           COMPASS    15043     A     
 COMPASS            SB6    B6-B1                                                           COMPASS    15044     A     
 COMPASS            SA2    AMODE                                                           COMPASS    15045          I
          -CMP24  
 COMPASS            BX6    X1                                                              COMPASS    15046          I
          -CMP24  
 COMPASS            LX6    30                                                              COMPASS    15047          I
          -CMP24  
 COMPASS            SB7    B7+B1                                                           COMPASS    15048          I
          -CMP24  
 COMPASS            IX0    X0+X6                                                           COMPASS    15049          I
          -CMP24  
 COMPASS            NZ     X2,WIN6     IF A-MODE                                           COMPASS    15050          I
          -CMP24  
 COMPASS            SB5    X1                                                              COMPASS    15051          I
          -CMP24  
 COMPASS            SA3    L.STACK                                                         CMP24        498     A     
 COMPASS            SA2    AMODE                                                           CMP24        499          I
          -CMP30  
 COMPASS            SA2    CP.IFORM                                                        CMP30       4874     A     
 COMPASS            BX6    X1                                                              CMP24        500     A     
 COMPASS            SB4    B1+B1                                                           CMP24        501     A     
 COMPASS            SX5    B1+B1                                                           CMP24        502     A     
 COMPASS            LX6    30                                                              CMP24        503     A     
 COMPASS            SX3    X3-4                                                            CMP24        504          I
          -CPS004 
 COMPASS            BX0    X0+X6                                                           CMP24        505     A     
 COMPASS            LX2    59                                                              CMP24        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/28. 19.11.32.      PAGE 928    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MI     X3,WIN4A    IF L.STACK = 0                                      CMP24        507          I
          -CPS004 
 COMPASS            NZ     X3,WIN6     IF GENERATED STATEMENT                              CMP24        508     A     
 COMPASS            MX3    2                                                               CMP24        509          I
          -CPS004 
 COMPASS            BX4    X3*X0                                                           CMP24        510          I
          -CPS004 
 COMPASS            BX3    X3-X4                                                           CMP24        511          I
          -CPS004 
 COMPASS            NZ     X3,WIN6     IF NOT MACRO/OPDEF CALL AT LEVEL 0                  CMP24        512          I
          -CPS004 
 COMPASS   WIN4A    SB4    X1                                                              CMP24        513          I
          -CPS004 
 COMPASS            SB4    X1                                                     S004 114 CPS004        78     A     
 COMPASS            SX5    B1                                                              CMP24        514     A     
 COMPASS            MI     X2,WIN6     IF MODIFY COMPRESSED INPUT                          CMP24        515     A     
 COMPASS                                                                                   CMP24        516     A     
 COMPASS            SB5    X1          CHECK FOR SEQUENCE FIELDS ALL BLANK                 CMP24        517     A     
 COMPASS            MX1    0                                                               COMPASS    15052     A     
 COMPASS            SA2    =8R                                                             COMPASS    15053     A     
 COMPASS            SB4    B5+B5                                                           COMPASS    15054     A     
 COMPASS            SA3    =10R                                                            COMPASS    15055     A     
 COMPASS            SA4    SEQ                                                             COMPASS    15056     A     
 COMPASS            SA5    A4+B1                                                           COMPASS    15057     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    15058          I
          -CMP24  
 COMPASS   WIN5     BX6    X2-X4                                                           COMPASS    15059     A     
 COMPASS            SA4    A5+B1                                                           COMPASS    15060     A     
 COMPASS            BX7    X3-X5                                                           COMPASS    15061     A     
 COMPASS            SA5    A4+B1                                                           COMPASS    15062     A     
 COMPASS            SB5    B5-B1                                                           COMPASS    15063     A     
 COMPASS            BX6    X6+X7                                                           COMPASS    15064     A     
 COMPASS            BX1    X1+X6                                                           COMPASS    15065     A     
 COMPASS            NZ     B5,WIN5     LOOP TO CHECK ALL CARDS                             COMPASS    15066     A     
 COMPASS            SX5    B1                                                              COMPASS    15067          I
          -CMP24  
 COMPASS            LX5    45                                                              COMPASS    15068          I
          -CMP24  
 COMPASS            ZR     X1,WIN6     IF SEQUENCE FIELDS BLANK                            COMPASS    15069          I
          -CMP24  
 COMPASS            BX0    X0+X5                                                           COMPASS    15070          I
          -CMP24  
 COMPASS            SB7    B7+B4                                                           COMPASS    15071          I
          -CMP24  
 COMPASS   WIN6     SA1    SQLGN       SET RECORD LENGTH IN OPTYPE                         COMPASS    15072          I
          -CMP24  
 COMPASS            ZR     X1,WIN6A    IF SEQUENCE FIELDS ALL BLANK                        CMP24        518     A     
 COMPASS            SX5    3                                                               CMP24        519     A     
 COMPASS   WIN6     LX5    45                                                              CMP24        520     A     
 COMPASS            SB7    B7+B4                                                           CMP24        521     A     
 COMPASS            BX0    X0+X5                                                           CMP24        522     A     
 COMPASS   WIN6A    SA1    SQLGN       SET RECORD LENGTH IN OPTYPE                         CMP24        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/28. 19.11.32.      PAGE 929    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB5    B7-B6                                                           COMPASS    15073     A     
 COMPASS            SX7    X1+B5                                                           COMPASS    15074     A     
 COMPASS            LX7    34                                                              COMPASS    15075     A     
 COMPASS            BX6    X0+X7                                                           COMPASS    15076     A     
 COMPASS            SA2    INTERIO     CHECK INTERMEDIATE                                  COMPASS    15077     A     
 COMPASS            SA6    B6          STORE OPTYPE                                        COMPASS    15078     A     
 COMPASS            NZ     X2,WIN8     IF INTERMEDIATE ON DISK                             COMPASS    15079     A     
 COMPASS            SX6    B6                                                              COMPASS    15080     A     
 COMPASS            SX7    B5                                                              COMPASS    15081     A     
 COMPASS            SA6    WINA                                                            COMPASS    15082     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15083     A     
 COMPASS            MANAGE INTER,X1+B5 AUGMENT INTERMEDIATE                                COMPASS    15084     A     
 COMPASS            SA1    INTERIO                                                         COMPASS    15085     A     
 COMPASS            SA4    WINA                                                            COMPASS    15086     A     
 COMPASS            SA5    A4+B1                                                           COMPASS    15087     A     
 COMPASS            SB6    X4                                                              COMPASS    15088     A     
 COMPASS            SB7    X5+B6                                                           COMPASS    15089     A     
 COMPASS            IX6    X3+X2                                                           COMPASS    15090     A     
 COMPASS            NZ     X1,WIN7     IF TABLE JUST OVERFLOWED                            COMPASS    15091     A     
 COMPASS            SA1    SQLGN                                                           COMPASS    15092     A     
 COMPASS            IX3    X6-X1                                                           COMPASS    15093     A     
 COMPASS            IX2    X3-X5                                                           COMPASS    15094     A     
 COMPASS   +        SA4    B6          MOVE FLAGS AND SEQUENCE FIELDS                      COMPASS    15095     A     
 COMPASS            SB6    B6+B1                                                           COMPASS    15096     A     
 COMPASS            BX6    X4                                                              COMPASS    15097     A     
 COMPASS            SA6    X2                                                              COMPASS    15098     A     
 COMPASS            SX2    X2+B1                                                           COMPASS    15099     A     
 COMPASS            NE     B6,B7,*-1   LOOP                                                COMPASS    15100     A     
 COMPASS            SX2    SQIMAGE     MOVE PACKED IMAGE INTO TABLE                        COMPASS    15101     A     
 COMPASS            RJ     MOVE                                                            COMPASS    15102     A     
 COMPASS            EQ     WINTER      RETURN                                              COMPASS    15103     A     
 COMPASS                                                                                   COMPASS    15104     A     
 COMPASS   WINA     BSS    2                                                               COMPASS    15105     A     
 COMPASS   YDEFLOC  SPACE  4                                                               COMPASS    15106     A     
 COMPASS  **        YDEFLOC - DEFINE LOCATION SYMBOL.                                      COMPASS    15107     A     
 COMPASS  *         NULL ACTION IF BAD SYMBOL OR EMPTY SYMBOL.                             COMPASS    15108     A     
 COMPASS  *         ENTRY  (X2) = VALUE.                                                   COMPASS    15109     A     
 COMPASS  *                (X3) = RELOCATION.                                              COMPASS    15110     A     
 COMPASS  *                (X4) = EXTERNAL NUMBER.                                         COMPASS    15111     A     
 COMPASS  *                (X5) = REDEFINITION FLAG.                                       COMPASS    15112     A     
 COMPASS                                                                                   COMPASS    15113     A     
 COMPASS                                                                                   COMPASS    15114     A     
 COMPASS   YDEFLOC1 SX6    B1          COMPLAIN ABOUT BAD LOCATION SYMBOL                  COMPASS    15115     A     
 COMPASS            SA6    EFLG                                                            COMPASS    15116     A     
 COMPASS            SA6    W1ERR                                                           COMPASS    15117     A     
 COMPASS                                                                                   COMPASS    15118     A     
 COMPASS   YDEFLOC  PS                 RETURN EXIT                                         COMPASS    15119     A     
 COMPASS            SA1    BADLOC      CHECK FOR BAD SYMBOL                                COMPASS    15120     A     
 COMPASS            NZ     X1,YDEFLOC1                                                     COMPASS    15121     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    15122     A     
 COMPASS            RJ     YDEFSYM     GO DEFINE SYMBOL                                    COMPASS    15123     A     
 COMPASS            EQ     YDEFLOC                                                         COMPASS    15124     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 930    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   YDEFSYM  SPACE  4                                                               COMPASS    15125     A     
 COMPASS  **        YDEFSYM - DEFINE SYMBOL.                                               COMPASS    15126     A     
 COMPASS  *         WILL POST DERR AND CHECK SYMBOL FOR VALID CONSTRUCTION.                COMPASS    15127     A     
 COMPASS  *         ENTRY  (X1) = SYMBOL.                                                  COMPASS    15128     A     
 COMPASS  *                (X2) = VALUE.                                                   COMPASS    15129     A     
 COMPASS  *                (X3) = RELOCATION.                                              COMPASS    15130     A     
 COMPASS  *                (X4) = EXTERNAL NUMBER.                                         COMPASS    15131     A     
 COMPASS  *                (X5) = REDEFINITION FLAG.                                       COMPASS    15132     A     
 COMPASS  *         EXIT   (X1) = SYMBOL.                                                  CMP041        50     A     
 COMPASS                                                                                   COMPASS    15133     A     
 COMPASS                                                                                   COMPASS    15134     A     
 COMPASS   YDEFSYM  PS                 RETURN EXIT                                         COMPASS    15135     A     
 COMPASS            ZR     X1,YDEFSYM  EXIT IF SYMBOL IS BLANK                             COMPASS    15136     A     
 COMPASS            BX6    X1                                                              COMPASS    15137     A     
 COMPASS            MX0    39          MASK OUT 21-BIT VALUE                               COMPASS    15138     A     
 COMPASS            BX7    -X0*X2                                                          COMPASS    15139     A     
 COMPASS            BX3    X4+X3       COMBINE RELOCATION AND EXTERNAL-NESS                COMPASS    15140     A     
 COMPASS            LX5    3                                                               COMPASS    15141     A     
 COMPASS            SX5    X5+B1       SET DEFINITION BIT                                  COMPASS    15142     A     
 COMPASS   +        SB7    B1+B1                                                           COMPASS    15143     A     
 COMPASS            ZR     X4,*+1                                                          COMPASS    15144     A     
 COMPASS            SX5    X5+B7       SET EXTERNAL BIT                                    COMPASS    15145     A     
 COMPASS            LX3    21                                                              COMPASS    15146     A     
 COMPASS            BX2    X7+X3                                                           COMPASS    15147     A     
 COMPASS            LX5    30          CONTROL BITS                                        COMPASS    15148     A     
 COMPASS            BX7    X2+X5                                                           COMPASS    15149     A     
 COMPASS            SA6    YDEFSYMT    SAVE SYMBOL                                         COMPASS    15150     A     
 COMPASS            MX0    6                                                               COMPASS    15151     A     
 COMPASS            SA7    A6+B1       SAVE EQUIVALENT                                     COMPASS    15152     A     
 COMPASS   YDEFSYM1 LX1    6                                                               COMPASS    15153     A     
 COMPASS            BX2    X1*X0       LEFT JUSTIFY SYMBOL                                 COMPASS    15154     A     
 COMPASS            ZR     X2,YDEFSYM1                                                     COMPASS    15155     A     
 COMPASS            MX3    54          CHECK FOR INVALID SYMBOLS                           COMPASS    15156     A     
 COMPASS            SB7    9                                                               COMPASS    15157     A     
 COMPASS            SX6    B0                                                              COMPASS    15158     A     
 COMPASS            SA5    =77776360020B MASK FOR NUMBERS + - * / BL , &                   COMPASS    15159     A     
 COMPASS   YDEFSYM8 LX1    6                                                               COMPASS    15160     A     
 COMPASS            BX4    -X3*X1                                                          COMPASS    15161     A     
 COMPASS            SB6    X4                                                              COMPASS    15162     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    15163     A     
 COMPASS            LX7    X5,B6                                                           COMPASS    15164     A     
 COMPASS            BX6    X6+X7                                                           COMPASS    15165     A     
 COMPASS            SA5    =36060020B  MASK FOR + - * / BL , &                             COMPASS    15166     A     
 COMPASS            PL     B7,YDEFSYM8                                                     COMPASS    15167     A     
 COMPASS            NG     X6,YDEFSYM2 JUMP IF ANY BAD CHARACTERS PRESENT                  COMPASS    15168     A     
 COMPASS            LX2    12          CHECK FIRST CHARACTER FOR A B OR X                  COMPASS    15169     A     
 COMPASS            SA3    MACHINE                                                         COMPASS    15170     A     
 COMPASS            SA4    SYNAME                                                          CMP27         29     A     
 COMPASS            SB7    X2-1RC*64                                                       COMPASS    15171     A     
 COMPASS            NZ     X3,YDEFSYM4 DONT BOTHER IF PP CODE                              COMPASS    15172          I
          -CMP27  
 COMPASS            SB6    X2-1RX*64                                                       COMPASS    15173     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 931    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X3,YDEFSYM4 DONT BOTHER IF PP CODE OR                           CMP27         30     A     
 COMPASS            NZ     X4,YDEFSYM4 IF ASSEMBLING SYSTEM TEXT                           CMP27         31     A     
 COMPASS   +        NG     B7,*+1      IF FIRST LETTER IS A OR B                           COMPASS    15174     A     
 COMPASS            NZ     B6,YDEFSYM4 IF FIRST LETTER IS NOT X                            COMPASS    15175     A     
 COMPASS            AX1    48          CHECK ON SECOND LETTER                              COMPASS    15176     A     
 COMPASS            IX2    X1-X2                                                           COMPASS    15177     A     
 COMPASS            SB7    X2-1R0                                                          COMPASS    15178     A     
 COMPASS            SB6    X2-1R8                                                          CMP22          3     A     
 COMPASS            SX5    X2-1R.                                                          CMP22          4     A     
 COMPASS            SA1    A6          RECLAIM RIGHT-JUSTIFIED SYMBOL                      CMP22          5     A     
 COMPASS            MX0    48                                                              CMP22          6     A     
 COMPASS            NG     B7,YDEFSYM4                                                     COMPASS    15179     A     
 COMPASS            SB6    X2-1R7                                                          COMPASS    15180          I
          -CMP22  
 COMPASS            SB7    X2-1R.                                                          COMPASS    15181          I
          -CMP22  
 COMPASS            MX0    48                                                              COMPASS    15182          I
          -CMP22  
 COMPASS            LT     B6,B1,YDEFSYM3                                                  COMPASS    15183          I
          -CMP22  
 COMPASS            ZR     B7,YDEFSYM2                                                     COMPASS    15184          I
          -CMP22  
 COMPASS            PL     B6,YDEFSYM3 IF 2ND CHAR NOT 0-7                                 CMP22          7     A     
 COMPASS            BX5    X0*X1                                                           CMP22          8     A     
 COMPASS   YDEFSYM3 NZ     X5,YDEFSYM4 IF MORE THAN 2 CHARS OR 2ND CHAR NOT *.*            CMP22          9     A     
 COMPASS            SX6    B1                                                              CMP22         10     A     
 COMPASS            SA6    EFLG        COMPLAIN ABOUT REGISTER SYMBOL                      CMP22         11     A     
 COMPASS            SA6    W1ERR                                                           CMP22         12     A     
 COMPASS   YDEFSYM4 SA1    YDEFSYMT                                                        COMPASS    15185     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS    15186     A     
 COMPASS            NZ     X2,YDEFSYM5 IF DEFINED                                          COMPASS    15187          I
          -CMP19  
 COMPASS            NZ     X3,YDEFSYM5 IF FOUND                                            CMP19        334     A     
 COMPASS   YDS4     SA2    YDEFSYMT+1                                                      COMPASS    15188     A     
 COMPASS            RJ     ENTSYMT     ENTER SYMBOL                                        COMPASS    15189     A     
 COMPASS            MX6    0                                                               CMP25         78     A     
 COMPASS            EQ     YDEFSYM                                                         COMPASS    15190     A     
 COMPASS   YDEFSYM5 SA4    X3-1        CHECK QUALIFIER VALUE                               COMPASS    15191          I
          -CP096A 
 COMPASS   YDEFSYM5 SX0    X3-1        CHECK QUALIFIER VALUE                               CP096A       507     A     
 COMPASS            RX4    X0                                                              CP096A       508     A     
 COMPASS            BX6    X4-X5                                                           COMPASS    15192     A     
 COMPASS            NZ     X6,YDS4     IF NOT SAME QUALIFIER                               COMPASS    15193     A     
 COMPASS            LX2    59-33                                                           COMPASS    15194          I
          -CMP19  
 COMPASS            NG     X2,YDEFSYM6 JUMP IF REDEFINED SYMBOL                            COMPASS    15195          I
          -CMP19  
 COMPASS   YDEFSYM7 SA2    X3          FETCH EQUIVALENT FROM SYMTAB                        COMPASS    15196          I
          -CMP19  
 COMPASS            SA4    YDEFSYMT+1                                                      COMPASS    15197          I
          -CMP19  
 COMPASS            BX6    X2-X4                                                           COMPASS    15198          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 932    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP19  
 COMPASS            SA5    =737777777777B                                                  COMPASS    15199          I
          -CMP19    -CMP6   
 COMPASS            SA5    =537777777777B                                                  CMP6          81          I
          -CMP19  
 COMPASS            LX2    59-30                                                           CMP19        335     A     
 COMPASS            NG     X2,YDS5     IF DEFINED                                          CMP19        336     A     
 COMPASS            LX2    30-59                                                           CMP19        337     A     
 COMPASS            SA1    YDEFSYMT+1                                                      CMP19        338          I
          -CMP041 
 COMPASS            SA4    YDEFSYMT+1                                                      CMP041        51     A     
 COMPASS            MX5    28                                                              CMP19        339     A     
 COMPASS            BX6    X5*X2                                                           CMP19        340     A     
 COMPASS            BX6    X6+X1       STORE VALUE                                         CMP19        341          I
          -CMP041 
 COMPASS            BX6    X6+X4       STORE VALUE                                         CMP041        52     A     
 COMPASS            SA6    X3                                                              CMP19        342          I
          -CP096A 
 COMPASS            WX6    X3                                                              CP096A       509     A     
 COMPASS            MX6    0                                                               CMP25         79     A     
 COMPASS            EQ     YDEFSYM                                                         CMP19        343     A     
 COMPASS   YDS5     LX2    30-33                                                           CMP19        344     A     
 COMPASS            NG     X2,YDEFSYM6 IF REDEFINABLE SYMBOL                               CMP19        345     A     
 COMPASS   YDEFSYM7 SA4    YDEFSYMT+1                                                      CMP19        346     A     
 COMPASS            SA5    =137777777777B                                                  CMP19        347     A     
 COMPASS            LX2    33-59                                                           CMP19        348     A     
 COMPASS            BX6    X2-X4                                                           CMP19        349     A     
 COMPASS            BX5    X5*X6                                                           COMPASS    15200     A     
 COMPASS            SX6    B1                                                              COMPASS    15201     A     
 COMPASS            ZR     X5,YDEFSYM  EXIT IF NEW VALUE EQUALS OLD                        COMPASS    15202     A     
 COMPASS            SA6    DERR                                                            COMPASS    15203     A     
 COMPASS            SA6    EFLG                                                            COMPASS    15204     A     
 COMPASS            EQ     YDEFSYM                                                         COMPASS    15205     A     
 COMPASS   YDEFSYM6 SA2    YDEFSYMT+1                                                      COMPASS    15206          I
          -CMP054 
 COMPASS            LX2    59-33       CHECK THAT THE NEW SYMBOL IS RDF ALSO               COMPASS    15207          I
          -CMP054 
 COMPASS            PL     X2,YDEFSYM7                                                     COMPASS    15208          I
          -CMP054 
 COMPASS   YDEFSYM6 SA4    YDEFSYMT+1  OLD SYMBOL IS REDEFINABLE, CHECK NEW       P054   7 CMP054         1     A     
 COMPASS            SA5    X3                                                     P054   8 CMP054         2          I
          -CP096A 
 COMPASS            RX5    X3                                                              CP096A       510     A     
 COMPASS            LX4    59-33                                                  P054   9 CMP054         3     A     
 COMPASS            PL     X4,YDEFSYM7 IF NOT ALSO REDEFINABLE                    P054  10 CMP054         4     A     
 COMPASS            SA2    A2          RESET DEFINITION                                    COMPASS    15209          I
          -CMP19  
 COMPASS            MX0    25          RESET DEFINITION                                    CMP19        350     A     
 COMPASS            SA4    X3                                                              COMPASS    15210          I
          -CMP054 
 COMPASS            MX0    18                                                              COMPASS    15211          I
          -CMP19  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 933    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX2    33-59                                                           CMP19        351          I
          -CMP054 
 COMPASS            BX6    X0*X4                                                           COMPASS    15212          I
          -CMP054 
 COMPASS            BX6    X6+X2                                                           COMPASS    15213          I
          -CMP054 
 COMPASS            LX4    33-59       RESTORE NEW VALUE                          P054  13 CMP054         5     A     
 COMPASS            BX6    X0*X5                                                  P054  14 CMP054         6     A     
 COMPASS            BX6    X6+X4                                                  P054  15 CMP054         7     A     
 COMPASS            SA6    X3                                                              COMPASS    15214          I
          -CP096A 
 COMPASS            WX6    X3                                                              CP096A       511     A     
 COMPASS            MX6    0                                                               CMP25         80     A     
 COMPASS            EQ     YDEFSYM                                                         COMPASS    15215     A     
 COMPASS   YDEFSYM3 SA1    A6          RECLAIM RIGHT ADJUSTED SYMBOL                       COMPASS    15216          I
          -CMP22  
 COMPASS            BX5    X0*X1       CHECK THAT IT IS TWO-LETTERS LONG                   COMPASS    15217          I
          -CMP22  
 COMPASS            NZ     X5,YDEFSYM4                                                     COMPASS    15218          I
          -CMP22  
 COMPASS   YDEFSYM2 SX6    B1          COMPLAIN ABOUT BAD LOCATION SYMBOL                  COMPASS    15219     A     
 COMPASS            SA6    EFLG                                                            COMPASS    15220     A     
 COMPASS            SA6    W1ERR                                                           COMPASS    15221     A     
 COMPASS            EQ     YDEFSYM                                                         COMPASS    15222     A     
 COMPASS                                                                                   COMPASS    15223     A     
 COMPASS   YDEFSYMT BSS    2                                                               COMPASS    15224     A     
 COMPASS   YEVITEM  SPACE  4                                                               COMPASS    15225     A     
 COMPASS  **        YEVITEM - EVALUATE ITEM.                                               COMPASS    15226     A     
 COMPASS  *         MANY ERRORS NOTED HERE.                                                COMPASS    15227     A     
 COMPASS  *         ENTRY  (X1) = FIELD LENGTH.                                            COMPASS    15228     A     
 COMPASS  *         EXIT   (ELVAL) = VALUE.                                                COMPASS    15229     A     
 COMPASS  *                (ELREL) = RELOCATION.                                           COMPASS    15230     A     
 COMPASS  *                (ELEXT) = EXTERNAL NUMBER.                                      COMPASS    15231     A     
 COMPASS  *                (ELREG) = REGISTER.                                             COMPASS    15232     A     
 COMPASS                                                                                   COMPASS    15233     A     
 COMPASS                                                                                   COMPASS    15234     A     
 COMPASS   YEVITEM  PS                 RETURN EXIT                                         COMPASS    15235     A     
 COMPASS            BX6    X1          SAVE FIELD LENGTH                                   COMPASS    15236     A     
 COMPASS            SA6    YEVITFL                                                         COMPASS    15237     A     
 COMPASS            MX6    0                                                               COMPASS    15238     A     
 COMPASS            BX7    X7-X7                                                           COMPASS    15239     A     
 COMPASS            SA6    ELVAL       CLEAR OUT REPLY CELLS                               COMPASS    15240     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15241     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    15242     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15243     A     
 COMPASS            SA1    YEVITEMN    SET EXIT SWITCH FOR NORMAL EXIT                     COMPASS    15244     A     
 COMPASS            BX6    X1                                                              COMPASS    15245     A     
 COMPASS            SA6    YEVITEMS                                                        COMPASS    15246     A     
 COMPASS            SA1    CHAR                                                            COMPASS    15247     A     
 COMPASS            SA2    MACHINE                                                         COMPASS    15248     A     
 COMPASS            SB7    X1-3                                                            COMPASS    15249     A     
 COMPASS            NZ     X2,YEVIT10  JUMP IF PP TO IGNORE REGISTER CHECKS                COMPASS    15250     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 934    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     B7,YEVIT500 IF FIRST LETTER IS A OR B                           COMPASS    15251     A     
 COMPASS            SB7    X1-1RX                                                          COMPASS    15252     A     
 COMPASS            EQ     B7,YEVIT500 IF FIRST LETTER IS X                                COMPASS    15253     A     
 COMPASS   YEVIT10  SB7    X1-1RZ-1                                                        COMPASS    15254     A     
 COMPASS            NG     B7,YEVIT21  JUMP IF LETTER                                      COMPASS    15255     A     
 COMPASS            SB7    X1-1R9-1                                                        COMPASS    15256     A     
 COMPASS            NG     B7,YEVIT100 IF DIGIT                                            COMPASS    15257     A     
 COMPASS            SB7    X1-1R/                                                          COMPASS    15258     A     
 COMPASS            ZR     B7,YEVIT300 IF SLASH                                            COMPASS    15259     A     
 COMPASS            SB7    X1-1R=                                                          COMPASS    15260     A     
 COMPASS            ZR     B7,YEVIT400 IF EQUALS SIGN                                      COMPASS    15261     A     
 COMPASS            SB7    X1-1R*                                                          COMPASS    15262     A     
 COMPASS            ZR     B7,YEVIT200 IF ASTERISK                                         COMPASS    15263     A     
 COMPASS            SB7    X1-1R$                                                          COMPASS    15264     A     
 COMPASS            EQ     B7,YEVIT250 IF DOLLAR SIGN                                      COMPASS    15265     A     
 COMPASS                                                                                   COMPASS    15266     A     
 COMPASS  *         ALPHABETIC CHARACTER LEADS THE ELEMENT.                                COMPASS    15267     A     
 COMPASS                                                                                   COMPASS    15268     A     
 COMPASS   YEVIT21  RJ     SCITEM                                                          COMPASS    15269     A     
 COMPASS   YEVIT22  BX1    X6                                                              COMPASS    15270     A     
 COMPASS            ZR     X1,YEVITER  COMPLAIN ABOUT EMPTY SYMBOL                         COMPASS    15271     A     
 COMPASS            RJ     YTLUSYM     LOOK UP SYMBOL                                      COMPASS    15272     A     
 COMPASS            EQ     YEVITEMS    AND GO TO EXIT SWITCH                               COMPASS    15273     A     
 COMPASS                                                                                   COMPASS    15274     A     
 COMPASS  *         ASTERISK.                                                              COMPASS    15275     A     
 COMPASS                                                                                   COMPASS    15276     A     
 COMPASS   YEVIT200 RJ     SCITEM                                                          COMPASS    15277     A     
 COMPASS            SB7    X6-1R*                                                          COMPASS    15278     A     
 COMPASS            SB6    X6-2R*L                                                         COMPASS    15279     A     
 COMPASS            SB5    X6-2R*O                                                         COMPASS    15280     A     
 COMPASS            ZR     B7,YEVIT210 IF ASTERISK                                         COMPASS    15281     A     
 COMPASS            ZR     B6,YEVIT210 IF *L                                               COMPASS    15282     A     
 COMPASS            ZR     B5,YEVIT220 IF *O                                               COMPASS    15283     A     
 COMPASS            SB7    X6-2R*P                                                         COMPASS    15284     A     
 COMPASS            SB6    X6-2R*F                                                         COMPASS    15285     A     
 COMPASS            ZR     B7,YEVIT230 IF *P                                               COMPASS    15286     A     
 COMPASS            ZR     B6,YEVIT240 IF *F                                               COMPASS    15287     A     
 COMPASS                                                                                   COMPASS    15288     A     
 COMPASS  *         ERROR IN ITEM.                                                         COMPASS    15289     A     
 COMPASS                                                                                   COMPASS    15290     A     
 COMPASS   YEVITER  SX6    B1          NOTE ERROR                                          COMPASS    15291     A     
 COMPASS            SA6    AERR                                                            COMPASS    15292     A     
 COMPASS            SA6    EFLG                                                            COMPASS    15293     A     
 COMPASS            SA6    EXERR                                                           COMPASS    15294     A     
 COMPASS            EQ     YEVITEMS                                                        COMPASS    15295     A     
 COMPASS                                                                                   COMPASS    15296     A     
 COMPASS  *         * OR *L ELEMENT.                                                       COMPASS    15297     A     
 COMPASS                                                                                   COMPASS    15298     A     
 COMPASS   YEVIT210 SA2    LOCCTR                                                          COMPASS    15299     A     
 COMPASS   YEVIT211 SA3    A2+B1                                                           COMPASS    15300     A     
 COMPASS            BX6    X2                                                              COMPASS    15301     A     
 COMPASS            LX7    X3                                                              COMPASS    15302     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 935    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   YEVIT212 SA6    ELVAL                                                           COMPASS    15303     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15304     A     
 COMPASS            EQ     YEVITEMS                                                        COMPASS    15305     A     
 COMPASS                                                                                   COMPASS    15306     A     
 COMPASS  *         *O ELEMENT.                                                            COMPASS    15307     A     
 COMPASS                                                                                   COMPASS    15308     A     
 COMPASS   YEVIT220 SA2    ORGCTR                                                          COMPASS    15309     A     
 COMPASS            EQ     YEVIT211                                                        COMPASS    15310     A     
 COMPASS                                                                                   COMPASS    15311     A     
 COMPASS  *         *P ELEMENT.                                                            COMPASS    15312     A     
 COMPASS                                                                                   COMPASS    15313     A     
 COMPASS   YEVIT230 SA2    POSCTR                                                          COMPASS    15314     A     
 COMPASS   YEVIT231 BX6    X2                                                              COMPASS    15315     A     
 COMPASS            MX7    0                                                               COMPASS    15316     A     
 COMPASS            EQ     YEVIT212                                                        COMPASS    15317     A     
 COMPASS                                                                                   COMPASS    15318     A     
 COMPASS  *         *F ELEMENT.                                                            COMPASS    15319     A     
 COMPASS                                                                                   COMPASS    15320     A     
 COMPASS   YEVIT240 SA2    FMODE                                                           COMPASS    15321     A     
 COMPASS            EQ     YEVIT231                                                        COMPASS    15322     A     
 COMPASS                                                                                   COMPASS    15323     A     
 COMPASS  *         DOLLAR SIGN.                                                           COMPASS    15324     A     
 COMPASS                                                                                   COMPASS    15325     A     
 COMPASS   YEVIT250 RJ     SCITEM      CHECK THAT ELEMENT IS ONLY DOLLAR SIGN              COMPASS    15326     A     
 COMPASS            SA1    PPTYPE                                                          F4820        735     A     
 COMPASS            SX1    X1+B1                                                           F4820        736     A     
 COMPASS            ZR     X1,YEVIT210 IF BCU ASSEMBLY                                     F4820        737     A     
 COMPASS            SB7    X6-1R$                                                          COMPASS    15327     A     
 COMPASS            SA2    POSCTR                                                          COMPASS    15328     A     
 COMPASS            NZ     X2,YEVITOK  EXIT IF STILL IN THIS WORD                          COMPASS    15329     A     
 COMPASS            RJ     YFOUP       RESET POSCTR                                        COMPASS    15330     A     
 COMPASS            SA2    POSCTR                                                          COMPASS    15331     A     
 COMPASS   YEVITOK  SX6    X2-1                                                            COMPASS    15332     A     
 COMPASS            MX7    0                                                               COMPASS    15333     A     
 COMPASS            ZR     B7,YEVIT212                                                     COMPASS    15334     A     
 COMPASS            EQ     YEVITER                                                         COMPASS    15335     A     
 COMPASS                                                                                   COMPASS    15336     A     
 COMPASS  *         SLASH ELEMENT.                                                         COMPASS    15337     A     
 COMPASS                                                                                   COMPASS    15338     A     
 COMPASS   YEVIT300 RJ     GETCH                                                           COMPASS    15339     A     
 COMPASS            SA2    CHAR        CHECK NEXT CHARACTER                                COMPASS    15340     A     
 COMPASS            SX1    X2-1R/                                                          COMPASS    15341     A     
 COMPASS            ZR     X1,YEVIT303 IF */*                                              COMPASS    15342     A     
 COMPASS            RJ     SCITEM      SCAN OFF NAME OF ATTRIBUTE                          COMPASS    15343     A     
 COMPASS            SB7    X1-1R/      MAKE SURE IT ENDED ON A SLASH                       COMPASS    15344     A     
 COMPASS            NZ     B7,YEVIT301                                                     COMPASS    15345     A     
 COMPASS            BX1    X6                                                              COMPASS    15346     A     
 COMPASS   YEVIT303 RJ     SQV         SET QUAL VALUE                                      COMPASS    15347     A     
 COMPASS            RJ     GETCH       THROW AWAY TERMINAL /                               COMPASS    15348     A     
 COMPASS            RJ     SCITEM                                                          COMPASS    15349     A     
 COMPASS            BX1    X6                                                              COMPASS    15350     A     
 COMPASS            ZR     X6,YEVIT302 IF NO SYMBOL                                        COMPASS    15351     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 936    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     YTLUSYM                                                         COMPASS    15352     A     
 COMPASS            SA1    QVAL+1      RESET QVAL                                          COMPASS    15353     A     
 COMPASS            BX6    X1                                                              COMPASS    15354     A     
 COMPASS            SA6    A1-B1                                                           COMPASS    15355     A     
 COMPASS            ZR     X3,YEVITEMS IF NOT DEFINED                                      CMP1           5     A     
 COMPASS            SA1    X3-1                                                            CMP1           6          I
          -CP096A 
 COMPASS            SX0    X3-1                                                            CP096A       512     A     
 COMPASS            RX1    X0                                                              CP096A       513     A     
 COMPASS            BX6    X5-X1                                                           CMP1           7     A     
 COMPASS            ZR     X6,YEVITEMS IF THE SAME QUALIFIER                               CMP1           8     A     
 COMPASS            SX6    B1          SET UNDEFINED ERROR                                 CMP1           9     A     
 COMPASS            MX7    0                                                               CMP1          10     A     
 COMPASS            SA6    UERR                                                            CMP1          11          I
          -CMP146 
 COMPASS            SA7    ELVAL                                                           CMP1          12     A     
 COMPASS            SA6    EFLG                                                            CMP1          13          I
          -CMP146 
 COMPASS            SA7    A7+B1       ELREL                                               CMP1          14     A     
 COMPASS            SA7    A7+B1       ELEXT                                               CMP1          15     A     
 COMPASS            SA1    IFDF                                                            CMP146        21     A     
 COMPASS            NZ     X1,YEVIT304  IF IF DEF/EXT/REG                                  CMP146        22     A     
 COMPASS            SA6    UERR                                                            CMP146        23     A     
 COMPASS            SA6    EFLG        SET UNDEFINED ERROR                                 CMP146        24     A     
 COMPASS            SA6    EXERR                                                           CMP1          16     A     
 COMPASS            EQ     YEVITEMS                                                        COMPASS    15356     A     
 COMPASS   YEVIT304 SX6    B1+B1       IFDF = 2                                            CMP146        25     A     
 COMPASS            SA6    A1                                                              CMP146        26     A     
 COMPASS            EQ     YEVITEMS                                                        CMP146        27     A     
 COMPASS   YEVIT302 SA1    QVAL+1                                                          COMPASS    15357     A     
 COMPASS            BX6    X1                                                              COMPASS    15358     A     
 COMPASS            SA6    A1-B1                                                           COMPASS    15359     A     
 COMPASS   YEVIT301 SX6    B1          COMPLAIN                                            COMPASS    15360     A     
 COMPASS            SA6    AERR                                                            COMPASS    15361     A     
 COMPASS            SA6    EFLG                                                            COMPASS    15362     A     
 COMPASS            SA6    EXERR                                                           COMPASS    15363     A     
 COMPASS            EQ     YEVITEMS                                                        COMPASS    15364     A     
 COMPASS                                                                                   COMPASS    15365     A     
 COMPASS  *         EQUALS SIGN.                                                           COMPASS    15366     A     
 COMPASS                                                                                   COMPASS    15367     A     
 COMPASS   YEVIT400 RJ     GETCH                                                           COMPASS    15368     A     
 COMPASS            SB7    X1-1RS      CHECK FOR SYMBOL LITERAL                            COMPASS    15369     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS    15370     A     
 COMPASS            ZR     B7,YEVIT420                                                     COMPASS    15371     A     
 COMPASS            ZR     B6,YEVIT430 IF =X FORMAT                                        COMPASS    15372     A     
 COMPASS            SX2    VALUES      SCAN NUMERIC (CHARACTER) LITERAL                    COMPASS    15373     A     
 COMPASS            EQ     B6,B1,YEVIT435  IF =Y FORMAT                                    CP154         24     A     
 COMPASS            SX3    NLITS                                                           COMPASS    15374     A     
 COMPASS            SX4    -B1                                                             COMPASS    15375     A     
 COMPASS            SA5    LWORD                                                           COMPASS    15376     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      COMPASS    15377     A     
 COMPASS            ZR     X3,YEVITER  ERROR IF 0-LENGTH DATA                              COMPASS    15378     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 937    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX2    VALUES                                                          COMPASS    15379     A     
 COMPASS            RJ     YTLULIT     LOOK UP LITERAL                                     COMPASS    15380     A     
 COMPASS            MX0    39                                                              COMPASS    15381     A     
 COMPASS            BX6    -X0*X3                                                          COMPASS    15382     A     
 COMPASS            AX3    24                                                              COMPASS    15383     A     
 COMPASS            BX7    X3                                                              COMPASS    15384     A     
 COMPASS            SA6    ELVAL                                                           COMPASS    15385     A     
 COMPASS            SA7    ELREL                                                           COMPASS    15386     A     
 COMPASS            EQ     YEVITEMS                                                        COMPASS    15387     A     
 COMPASS                                                                                   COMPASS    15388     A     
 COMPASS  *         SYMBOL LITERAL.                                                        COMPASS    15389     A     
 COMPASS                                                                                   COMPASS    15390     A     
 COMPASS   YEVIT420 RJ     GETCH       THROW AWAY S                                        COMPASS    15391     A     
 COMPASS            SX7    B1                                                              COMPASS    15392     A     
 COMPASS   YEVIT423 LX7    48                                                              COMPASS    15393          I
          -CMP19  
 COMPASS   YEVIT423 LX7    -3                                                              CMP19        352     A     
 COMPASS            SA7    ELVAL       SAVE LITERAL TYPE FLAG                              COMPASS    15394     A     
 COMPASS            RJ     SCITEM      FETCH SYMBOL                                        COMPASS    15395     A     
 COMPASS            ZR     X6,YEVIT301 COMPLAIN IF EMPTY SYMBOL                            COMPASS    15396     A     
 COMPASS            SA1    QVAL                                                            CMP19        353     A     
 COMPASS            BX6    X1+X6                                                           CMP19        354     A     
 COMPASS            SA2    O.SLITS     SEARCH SYMBOL LITERALS                              COMPASS    15397     A     
 COMPASS            SA3    L.SLITS                                                         COMPASS    15398     A     
 COMPASS            SB7    X3-1                                                            COMPASS    15399     A     
 COMPASS            ZR     X3,YEVIT422 IF SLITS TABLE EMPTY                                COMPASS    15400     A     
 COMPASS            MX0    12                                                              COMPASS    15401          I
          -CMP19  
 COMPASS            MX0    3                                                               CMP19        355     A     
 COMPASS            SA5    X2+B7       FETCH SYMBOL                                        COMPASS    15402     A     
 COMPASS            BX4    -X0*X5      MASK OUT TYPE FLAGS                                 COMPASS    15403     A     
 COMPASS   YEVIT421 BX7    X6-X4       CHECK FOR SYMBOL ALREADY IN                         COMPASS    15404     A     
 COMPASS            SA5    A5-B1                                                           COMPASS    15405     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    15406     A     
 COMPASS            BX4    -X0*X5      EXTRACT NAME                                        COMPASS    15407     A     
 COMPASS            ZR     X7,YEVIT424 IF NAME FOUND                                       COMPASS    15408     A     
 COMPASS            PL     B7,YEVIT421 KEEP LOOKING                                        COMPASS    15409     A     
 COMPASS   YEVIT422 SA2    ELVAL                                                           COMPASS    15410     A     
 COMPASS            BX1    X6+X2                                                           COMPASS    15411     A     
 COMPASS            ADDWORD SLITS                                                          COMPASS    15412     A     
 COMPASS            MX4    12                                                              COMPASS    15413     A     
 COMPASS            BX6    -X4*X6                                                          COMPASS    15414     A     
 COMPASS            EQ     YEVIT22                                                         COMPASS    15415     A     
 COMPASS                                                                                   COMPASS    15416     A     
 COMPASS   YEVIT424 SA5    A5+B1       RECLAIM SYMBOL                                      COMPASS    15417     A     
 COMPASS            SA4    ELVAL       AND TYPE MASK                                       COMPASS    15418     A     
 COMPASS            BX7    X5+X4       OR TYPE MASKS TOGETHER                              COMPASS    15419     A     
 COMPASS            SA7    A5                                                              COMPASS    15420     A     
 COMPASS            EQ     YEVIT22                                                         COMPASS    15421     A     
 COMPASS                                                                                   COMPASS    15422     A     
 COMPASS  *         EXTERNAL LITERAL.                                                      COMPASS    15423     A     
 COMPASS                                                                                   COMPASS    15424     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 938    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   YEVIT430 RJ     GETCH                                                           COMPASS    15425     A     
 COMPASS            SA5    MACHINE                                                         COMPASS    15426     A     
 COMPASS            NZ     X5,YEVIT21                                                      COMPASS    15427     A     
 COMPASS            SX7    B1+B1                                                           COMPASS    15428     A     
 COMPASS            EQ     YEVIT423                                                        COMPASS    15429     A     
 COMPASS                                                                                   CP154         25     A     
 COMPASS   YEVIT435 RJ     GETCH       THROW AWAY *Y*                                      CP154         26     A     
 COMPASS            SA5    MACHINE                                                         CP154         27     A     
 COMPASS            NZ     X5,YEVIT21  IF PPU ASSEMBLY                                     CP154         28     A     
 COMPASS            SX7    B0                                                              CP154         29     A     
 COMPASS            EQ     YEVIT423    GO PROCESS SYMBOL LITERAL                           CP154         30     A     
 COMPASS                                                                                   COMPASS    15430     A     
 COMPASS  *         NUMERIC ELEMENT.                                                       COMPASS    15431     A     
 COMPASS                                                                                   COMPASS    15432     A     
 COMPASS   YEVIT100 SX2    ELVAL                                                           COMPASS    15433     A     
 COMPASS            SX3    B1                                                              COMPASS    15434     A     
 COMPASS            SX4    B1                                                              COMPASS    15435     A     
 COMPASS            SA5    YEVITFL                                                         COMPASS    15436     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      COMPASS    15437     A     
 COMPASS   YEVITEMS SA1    CHAR        EXIT SWITCH                                         COMPASS    15438     A     
 COMPASS            EQ     YEVITEM                                                         COMPASS    15439     A     
 COMPASS            SA1    CHAR                                                            COMPASS    15440     A     
 COMPASS            EQ     YEVIT10                                                         COMPASS    15441     A     
 COMPASS                                                                                   COMPASS    15442     A     
 COMPASS  *         SUSPECTED REGISTER NAME.                                               COMPASS    15443     A     
 COMPASS                                                                                   COMPASS    15444     A     
 COMPASS   YEVIT500 SA1    COLUMN                                                          COMPASS    15445     A     
 COMPASS            SA1    X1+CARD-1                                                       COMPASS    15446     A     
 COMPASS            SA2    A1+B1       FETCH NEXT COLUMN                                   COMPASS    15447     A     
 COMPASS            SB7    X2-1R.                                                          COMPASS    15448     A     
 COMPASS            ZR     B7,YEVIT530 JUMP IF PERIOD                                      COMPASS    15449     A     
 COMPASS            SB7    X2-1R0                                                          COMPASS    15450     A     
 COMPASS            NG     B7,YEVIT21                                                      COMPASS    15451     A     
 COMPASS            SB7    X2-1R8                                                          COMPASS    15452     A     
 COMPASS            PL     B7,YEVIT21                                                      COMPASS    15453     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    15454     A     
 COMPASS            SX4    3036B                                                           COMPASS    15455     A     
 COMPASS            LX4    36                                                              COMPASS    15456     A     
 COMPASS            SB7    X3                                                              COMPASS    15457     A     
 COMPASS            AX5    X4,B7                                                           COMPASS    15458     A     
 COMPASS            LX5    59                                                              COMPASS    15459     A     
 COMPASS            PL     X5,YEVIT21                                                      COMPASS    15460     A     
 COMPASS            SX4    X1                                                              COMPASS    15461     A     
 COMPASS            LX4    3                                                               COMPASS    15462     A     
 COMPASS            RJ     GETCH                                                           COMPASS    15463     A     
 COMPASS            SX5    X6-1R0                                                          COMPASS    15464     A     
 COMPASS            BX6    X5+X4                                                           COMPASS    15465     A     
 COMPASS            SA6    ELREG       STORE REGISTER VALUE AND TYPE                       COMPASS    15466     A     
 COMPASS            MX7    60                                                              COMPASS    15467     A     
 COMPASS            SA7    ELVAL       MAKE ELEMENT VALUE MINUS VERO                       COMPASS    15468     A     
 COMPASS            RJ     GETCH                                                           COMPASS    15469     A     
 COMPASS            EQ     YEVITEM                                                         COMPASS    15470     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 939    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   YEVIT530 LX1    3                                                               COMPASS    15471     A     
 COMPASS            BX6    X1                                                              COMPASS    15472     A     
 COMPASS            SA6    ELREG                                                           COMPASS    15473     A     
 COMPASS            RJ     GETCH                                                           COMPASS    15474     A     
 COMPASS            RJ     GETCH                                                           COMPASS    15475     A     
 COMPASS            RJ     YEVITEMS    SET EXIT SWITCH TO EVALUATE REG. NO.                COMPASS    15476     A     
 COMPASS            SA2    ELVAL                                                           COMPASS    15477     A     
 COMPASS            SA3    A2+B1       ELREL                                               COMPASS    15478     A     
 COMPASS            SA4    A3+B1       ELEXT                                               COMPASS    15479     A     
 COMPASS            BX5    X3+X4                                                           COMPASS    15480     A     
 COMPASS            SA3    EXERR                                                           COMPASS    15481     A     
 COMPASS            IX5    X5+X3                                                           COMPASS    15482     A     
 COMPASS            NZ     X5,YEVIT550 COMPLAIN IF NOT ABSOLUTE                            COMPASS    15483     A     
 COMPASS            SX7    7                                                               COMPASS    15484     A     
 COMPASS            BX6    X7*X2                                                           COMPASS    15485     A     
 COMPASS            MX7    60                                                              COMPASS    15486     A     
 COMPASS            SA7    A2                                                              COMPASS    15487     A     
 COMPASS            SA2    A4+B1       ELREG                                               COMPASS    15488     A     
 COMPASS            IX6    X2+X6                                                           COMPASS    15489     A     
 COMPASS            SA6    A2                                                              COMPASS    15490     A     
 COMPASS            EQ     YEVITEMN                                                        COMPASS    15491     A     
 COMPASS   YEVIT550 SX6    B1                                                              COMPASS    15492     A     
 COMPASS            SA6    A3                                                              COMPASS    15493     A     
 COMPASS            SA6    AERR                                                            COMPASS    15494     A     
 COMPASS            SA6    EFLG                                                            COMPASS    15495     A     
 COMPASS   YEVITEMN SA1    CHAR                                                            COMPASS    15496     A     
 COMPASS            EQ     YEVITEM                                                         COMPASS    15497     A     
 COMPASS                                                                                   COMPASS    15498     A     
 COMPASS   YEVITFL  DATA   0                                                               COMPASS    15499     A     
 COMPASS   YFOUP    SPACE  4                                                               COMPASS    15500     A     
 COMPASS  **        YFOUP - FORCE UPPER.                                                   COMPASS    15501     A     
 COMPASS                                                                                   COMPASS    15502     A     
 COMPASS                                                                                   COMPASS    15503     A     
 COMPASS   YFOUP    PS                 RETURN EXIT                                         COMPASS    15504     A     
 COMPASS            MX6    0                                                               COMPASS    15505     A     
 COMPASS            SA1    POSCTR      TEST FOR BEING IN UPPER POSITION                    COMPASS    15506     A     
 COMPASS            SA2    LWORD                                                           COMPASS    15507     A     
 COMPASS            IX3    X1-X2                                                           COMPASS    15508     A     
 COMPASS            SA6    NFOUP       CLEAR FORCE-NEXT-UPPER FLAG                         COMPASS    15509     A     
 COMPASS            ZR     X3,YFOUP    JUMP IF IN UPPER                                    COMPASS    15510     A     
 COMPASS            BX6    X2                                                              COMPASS    15511     A     
 COMPASS            SX0    B1                                                              COMPASS    15512     A     
 COMPASS            SA6    A1          SET POSCTR TO 60 OR 12                              COMPASS    15513          I
          -CPSA288
 COMPASS            SA6    A1          SET POSCTR TO WORD SIZE (12, 16, OR 60)             CPSA288      216     A     
 COMPASS            SA1    ORGCTR      SET ORIGIN AND POSITION COUNTERS                    COMPASS    15514     A     
 COMPASS            IX6    X1+X0                                                           COMPASS    15515     A     
 COMPASS            SA2    LOCCTR                                                          COMPASS    15516     A     
 COMPASS            IX7    X2+X0                                                           COMPASS    15517     A     
 COMPASS            SA6    A1                                                              COMPASS    15518     A     
 COMPASS            SA7    A2                                                              COMPASS    15519     A     
 COMPASS            EQ     YFOUP                                                           COMPASS    15520     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 940    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   YFUALL   SPACE  4                                                               COMPASS    15521     A     
 COMPASS  **        YFUALL - FORCE UPPER ON ALL BLOCKS.                                    COMPASS    15522     A     
 COMPASS  *         ALSO CREATES FLAG TO HAVE CURRENT BLOCK NUMBER IN HIGH                 COMPASS    15523     A     
 COMPASS  *         36 BITS, AND THE BASE USE IN THE LOW 24.                               COMPASS    15524     A     
 COMPASS                                                                                   COMPASS    15525     A     
 COMPASS                                                                                   COMPASS    15526     A     
 COMPASS   YFU1     SA5    X2+B1                                                           COMPASS    15527     A     
 COMPASS            BX4    X7*X5                                                           COMPASS    15528     A     
 COMPASS            IX6    X3-X4                                                           COMPASS    15529     A     
 COMPASS            SX2    X2+B5                                                           COMPASS    15530     A     
 COMPASS   +        SB6    B6-B5                                                           COMPASS    15531     A     
 COMPASS            ZR     X6,*+1                                                          COMPASS    15532     A     
 COMPASS            IX5    X5+X1                                                           COMPASS    15533     A     
 COMPASS   +        BX4    -X0*X5                                                          COMPASS    15534     A     
 COMPASS            IX6    X4+X3                                                           COMPASS    15535     A     
 COMPASS            SA6    A5                                                              COMPASS    15536     A     
 COMPASS            NZ     B6,YFU1                                                         COMPASS    15537     A     
 COMPASS            SA1    ORGCTR+1    CONSTRUCT FLAG FOR INTERMEDIATE                     COMPASS    15538     A     
 COMPASS   +        NZ     X1,*+1                                                          COMPASS    15539     A     
 COMPASS            SA1    UI+1                                                            COMPASS    15540     A     
 COMPASS            SA2    UI+1                                                            COMPASS    15541     A     
 COMPASS            LX1    24                                                              COMPASS    15542     A     
 COMPASS            BX6    X1+X2                                                           COMPASS    15543     A     
 COMPASS            SA6    FLAG                                                            COMPASS    15544     A     
 COMPASS                                                                                   COMPASS    15545     A     
 COMPASS   YFUALL   PS                 RETURN EXIT                                         COMPASS    15546     A     
 COMPASS            RJ     YFOUP       BIND OFF CURRENT BLOCK                              COMPASS    15547     A     
 COMPASS            SA1    ORGCTR                                                          COMPASS    15548     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    15549     A     
 COMPASS            BX6    X1                                                              COMPASS    15550     A     
 COMPASS            LX7    X2                                                              COMPASS    15551     A     
 COMPASS            SA6    LOCCTR                                                          COMPASS    15552     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15553     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS    15554     A     
 COMPASS            SA1    L.USETAB                                                        COMPASS    15555     A     
 COMPASS            SA3    UI                                                              COMPASS    15556     A     
 COMPASS            IX2    X2+X3                                                           COMPASS    15557     A     
 COMPASS            IX1    X1-X3                                                           COMPASS    15558     A     
 COMPASS            SA3    LWORD                                                           COMPASS    15559     A     
 COMPASS            MX0    39                                                              COMPASS    15560     A     
 COMPASS            SB6    X1                                                              COMPASS    15561     A     
 COMPASS            SB5    6                                                               COMPASS    15562          I
          -CMP30  
 COMPASS            MX7    6                                                               CMP30       4875     A     
 COMPASS            SB5    4                                                               CMP30       4876     A     
 COMPASS            LX3    24                                                              CMP30       4877     A     
 COMPASS            SX1    B1                                                              COMPASS    15563     A     
 COMPASS            LX3    24                                                              COMPASS    15564          I
          -CMP30  
 COMPASS            MX7    36                                                              COMPASS    15565          I
          -CMP30  
 COMPASS            LX7    30                                                              CMP30       4878     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 941    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     YFU1                                                            COMPASS    15566     A     
 COMPASS   YPRLOC   SPACE  4                                                               COMPASS    15567     A     
 COMPASS  **        YPRLOC - PROCESS LOCATION TERM AND MAKE ROOM FOR INSTRUCTION.          COMPASS    15568     A     
 COMPASS  *         ENTRY  (X1) = LENGTH OF INSTRUCTION.                                   COMPASS    15569     A     
 COMPASS                                                                                   COMPASS    15570     A     
 COMPASS                                                                                   COMPASS    15571     A     
 COMPASS   YPRLOC4  MX6    0           CLEAR FORCE UPPER                                   COMPASS    15572     A     
 COMPASS            SA6    NFOUP                                                           COMPASS    15573     A     
 COMPASS                                                                                   COMPASS    15574     A     
 COMPASS   YPRLOC   PS                 RETURN EXIT                                         COMPASS    15575     A     
 COMPASS            SA2    POSCTR      ROUND TO NEAREST QUARTER WORD                       COMPASS    15576     A     
 COMPASS            SA3    MACHINE     OR TO PP WORD BOUNDARY                              COMPASS    15577     A     
 COMPASS            SA4    LWORD                                                           F4820        738     A     
 COMPASS            PX0    X2                                                              COMPASS    15578     A     
 COMPASS            NZ     X3,YPRLOC1  JUMP IF PP                                          COMPASS    15579     A     
 COMPASS            SA4    =0.067P48                                                       COMPASS    15580     A     
 COMPASS            SA5    =15.0P0                                                         COMPASS    15581     A     
 COMPASS            FX0    X0*X4                                                           COMPASS    15582     A     
 COMPASS            DX4    X0*X5                                                           COMPASS    15583     A     
 COMPASS            UX6    X4,B7                                                           COMPASS    15584     A     
 COMPASS            EQ     YPRLOC2                                                         COMPASS    15585     A     
 COMPASS   YPRLOC1  SB7    X2-12                                                           COMPASS    15586          I
          -F4820  
 COMPASS   YPRLOC1  IX4    X2-X4                                                           F4820        739     A     
 COMPASS            SB7    X4                                                              F4820        740     A     
 COMPASS            BX6    X2                                                              COMPASS    15587     A     
 COMPASS            ZR     B7,YPRLOC2                                                      COMPASS    15588     A     
 COMPASS            MX6    0                                                               COMPASS    15589     A     
 COMPASS   YPRLOC2  SA6    A2          RESET POSITION COUNTER                              COMPASS    15590     A     
 COMPASS            BX7    X1          INCREMENT COUNT                                     COMPASS    15591     A     
 COMPASS            SA7    YPRLOCT     SAVE IT                                             COMPASS    15592     A     
 COMPASS   +        NZ     X6,*+1      FORCE UPPER IF AT BOTTOM OF WORD                    COMPASS    15593     A     
 COMPASS            RJ     YFOUP                                                           COMPASS    15594     A     
 COMPASS            SA1    YPRLOCT                                                         COMPASS    15595     A     
 COMPASS            SA2    POSCTR                                                          COMPASS    15596     A     
 COMPASS            IX6    X2-X1                                                           COMPASS    15597     A     
 COMPASS   +        PL     X6,*+1                                                          COMPASS    15598     A     
 COMPASS            RJ     YFOUP       IF INSTRUCTION LENGTH DEMANDS IT                    COMPASS    15599     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    15600     A     
 COMPASS            SB7    X1-1R-                                                          COMPASS    15601     A     
 COMPASS            ZR     B7,YPRLOC4  IF LOCSYM MINUS                                     COMPASS    15602     A     
 COMPASS            SA2    NFOUP       CHECK NOMINAL FORCING                               COMPASS    15603     A     
 COMPASS            BX1    X2+X1                                                           COMPASS    15604     A     
 COMPASS   +        ZR     X1,*+1                                                          COMPASS    15605     A     
 COMPASS            RJ     YFOUP       IF NOMINAL FORCE OR LOCATION FIELD                  COMPASS    15606     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    15607     A     
 COMPASS            SB7    X1-1R+                                                          COMPASS    15608     A     
 COMPASS            ZR     B7,YPRLOC                                                       COMPASS    15609     A     
 COMPASS            NZ     X1,YPRLOC3                                                      COMPASS    15610     A     
 COMPASS            PL     X1,YPRLOC   IF LOCSYM PLUS ZERO                                 COMPASS    15611     A     
 COMPASS   YPRLOC3  SA2    LOCCTR      DEFINE THE LOCATION SYMBOL                          COMPASS    15612     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    15613     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 942    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX4    X4-X4                                                           COMPASS    15614     A     
 COMPASS            SA5    LIBFLG                                                          COMPASS    15615     A     
 COMPASS            LX5    1                                                               COMPASS    15616     A     
 COMPASS            RJ     YDEFLOC                                                         COMPASS    15617     A     
 COMPASS            EQ     YPRLOC      AND EXIT                                            COMPASS    15618     A     
 COMPASS                                                                                   COMPASS    15619     A     
 COMPASS   YPRLOCT  DATA   0           TEMPORARY STORAGE                                   COMPASS    15620     A     
 COMPASS   YTLULIT  SPACE  4                                                               COMPASS    15621     A     
 COMPASS  **        YTLULIT - LOOK UP LITERAL AND ENTER INTO TABLE.                        COMPASS    15622     A     
 COMPASS  *         ENTRY  (X2) = ORIGIN OF VALUES.                                        COMPASS    15623     A     
 COMPASS  *                (X3) = COUNT OF VALUES.                                         COMPASS    15624     A     
 COMPASS  *         EXIT   (X3) = RELOCATED EQUIVALENT.                                    COMPASS    15625     A     
 COMPASS                                                                                   COMPASS    15626     A     
 COMPASS                                                                                   COMPASS    15627     A     
 COMPASS   YTLULIT  PS                 RETURN EXIT                                         COMPASS    15628     A     
 COMPASS            SB7    X2                                                              COMPASS    15629     A     
 COMPASS            SB6    X3                                                              COMPASS    15630     A     
 COMPASS            SA1    L.LITAB                                                         COMPASS    15631     A     
 COMPASS            SA2    LI          LITERAL INDEX                                       COMPASS    15632     A     
 COMPASS            IX1    X1-X2                                                           COMPASS    15633     A     
 COMPASS            ZR     X1,YTLIT20  IF LITERAL TABLE IS EMPTY                           COMPASS    15634     A     
 COMPASS            SB5    X1                                                              COMPASS    15635     A     
 COMPASS            SB4    B0                                                              COMPASS    15636     A     
 COMPASS            SA1    O.LITAB                                                         COMPASS    15637     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    15638     A     
 COMPASS            SA0    X1                                                              COMPASS    15639     A     
 COMPASS   YTLIT1   SA1    B7          FETCH FIRST VALUE                                   COMPASS    15640     A     
 COMPASS            SA2    A0+B4                                                           COMPASS    15641     A     
 COMPASS            BX3    X1-X2                                                           COMPASS    15642     A     
 COMPASS            NG     X3,YTLIT10                                                      COMPASS    15643     A     
 COMPASS            NZ     X3,YTLIT10  IF NO MATCH FOUND                                   COMPASS    15644     A     
 COMPASS            SB3    B0                                                              COMPASS    15645     A     
 COMPASS   YTLIT2   SB2    B3+B4                                                           COMPASS    15646     A     
 COMPASS            GE     B2,B5,YTLIT100                                                  COMPASS    15647          I
          -CMP042 
 COMPASS            GE     B2,B5,YTLIT20                                                   CMP042       279     A     
 COMPASS            SA2    A0+B2                                                           COMPASS    15648     A     
 COMPASS            SA1    B7+B3                                                           COMPASS    15649     A     
 COMPASS            BX3    X1-X2                                                           COMPASS    15650     A     
 COMPASS            NG     X3,YTLIT10                                                      COMPASS    15651     A     
 COMPASS            NZ     X3,YTLIT10                                                      COMPASS    15652     A     
 COMPASS            SB3    B3+B1                                                           COMPASS    15653     A     
 COMPASS            NE     B3,B6,YTLIT2                                                    COMPASS    15654     A     
 COMPASS            SX3    B4                                                              COMPASS    15655     A     
 COMPASS            EQ     YTLIT6      MATCH FOUND                                         COMPASS    15656     A     
 COMPASS   YTLIT10  SB4    B4+B1       INDEX                                               COMPASS    15657     A     
 COMPASS            NE     B4,B5,YTLIT1                                                    COMPASS    15658     A     
 COMPASS   YTLIT20  SX1    B6          SAVE PARAMETERS                                     COMPASS    15659     A     
 COMPASS            SX6    B7                                                              COMPASS    15660     A     
 COMPASS            LX1    18                                                              COMPASS    15661     A     
 COMPASS            IX6    X1+X6                                                           COMPASS    15662     A     
 COMPASS            SA6    YTLITT                                                          COMPASS    15663     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 943    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MANAGE LITAB,B6    AUGMENT LITERAL TABLE                               COMPASS    15664     A     
 COMPASS            SA1    YTLITT      MOVE DATA                                           COMPASS    15665     A     
 COMPASS            IX3    X2+X3                                                           COMPASS    15666     A     
 COMPASS            SB7    X1                                                              COMPASS    15667     A     
 COMPASS            AX1    18                                                              COMPASS    15668     A     
 COMPASS            SB6    X1                                                              COMPASS    15669     A     
 COMPASS            IX3    X3-X1                                                           COMPASS    15670     A     
 COMPASS            SX2    B7                                                              COMPASS    15671     A     
 COMPASS            RJ     MOVE                                                            COMPASS    15672     A     
 COMPASS            SA1    L.LITAB                                                         COMPASS    15673     A     
 COMPASS            SA2    LWORD                                                           COMPASS    15674     A     
 COMPASS            SA3    O.USETAB                                                        COMPASS    15675     A     
 COMPASS            SA4    UI          USE INDEX                                           COMPASS    15676     A     
 COMPASS            SA5    LI          LITERAL INDEX                                       COMPASS    15677     A     
 COMPASS            IX3    X3+X4                                                           COMPASS    15678     A     
 COMPASS            IX1    X1-X5                                                           COMPASS    15679     A     
 COMPASS            LX2    24                                                              COMPASS    15680     A     
 COMPASS            BX6    X2+X1                                                           COMPASS    15681     A     
 COMPASS            SA6    X3+13       STORE LWORD, LENGTH IN LITS BLOCK                   COMPASS    15682          I
          -CMP30  
 COMPASS            SA6    X3+2*4+1    STORE LWORD, LENGTH IN LITS BLOCK                   CMP30       4879     A     
 COMPASS            SX0    B6                                                              COMPASS    15683     A     
 COMPASS            IX3    X1-X0                                                           COMPASS    15684     A     
 COMPASS   YTLIT6   SA4    UI+1        USE INDEX                                           COMPASS    15685     A     
 COMPASS            SA2    LI          LITERAL INDEX                                       COMPASS    15686          I
          -CMP1   
 COMPASS            IX3    X3+X2                                                           COMPASS    15687          I
          -CMP1   
 COMPASS            SX4    X4+2                                                            COMPASS    15688     A     
 COMPASS            LX4    24                                                              COMPASS    15689     A     
 COMPASS            BX3    X4+X3                                                           COMPASS    15690     A     
 COMPASS            EQ     YTLULIT                                                         COMPASS    15691     A     
 COMPASS   YTLIT100 SX6    B4                                                              COMPASS    15692          I
          -CMP042 
 COMPASS            SA6    L.LITAB                                                         COMPASS    15693          I
          -CMP042 
 COMPASS            EQ     YTLIT20                                                         COMPASS    15694          I
          -CMP042 
 COMPASS                                                                                   COMPASS    15695     A     
 COMPASS   YTLITT   DATA   0           TEMPORARY STORAGE                                   COMPASS    15696     A     
 COMPASS   YTLUSYM  SPACE  4                                                               COMPASS    15697     A     
 COMPASS  **        YTLUSYM - EVALUATE SYMBOL.                                             COMPASS    15698     A     
 COMPASS  *         UERR SET IF NOT IN TABLE.                                              COMPASS    15699     A     
 COMPASS  *         ENTRY  (X1) = SYMBOL.                                                  COMPASS    15700     A     
 COMPASS  *         EXIT   ELVAL = VALUE.                                                  COMPASS    15701     A     
 COMPASS  *                ELREL = RELOCATION.                                             COMPASS    15702     A     
 COMPASS  *                ELEXT = EXTERNAL NUMBER.                                        COMPASS    15703     A     
 COMPASS  *                (X3) = LOCATION OF EQUIVALENT.                                  CMP1          17     A     
 COMPASS  *                (X5) = SYMBOL WITH QUALIFIER.                                   CMP1          18     A     
 COMPASS                                                                                   COMPASS    15704     A     
 COMPASS                                                                                   COMPASS    15705     A     
 COMPASS   YTLUSYM2 LX2    2                                                               COMPASS    15706     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 944    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            PL     X2,YTLUSYM  IF + RELOC OR ABS                                   COMPASS    15707     A     
 COMPASS            SA2    ELVAL       COMPLEMENT VALUE                                    COMPASS    15708     A     
 COMPASS            BX6    -X2                                                             COMPASS    15709     A     
 COMPASS            SA6    A2                                                              COMPASS    15710     A     
 COMPASS                                                                                   COMPASS    15711     A     
 COMPASS   YTLUSYM  PS                 RETURN EXIT                                         COMPASS    15712     A     
 COMPASS            RJ     TLUSYMT                                                         COMPASS    15713     A     
 COMPASS            LX2    29                                                              COMPASS    15714     A     
 COMPASS            NG     X2,YTLUSYM1 JUMP IF DEFINED                                     COMPASS    15715     A     
 COMPASS            SX7    B1                                                              COMPASS    15716     A     
 COMPASS            SA7    UERR        SET UNDEFINED ERROR                                 COMPASS    15717          I
          -CMP146 
 COMPASS            SA1    IFDF                                                            CMP146        28     A     
 COMPASS            ZR     X1,YTLUSYM3  IF NOT IF DEF/EXT/REG                              CMP146        29     A     
 COMPASS            SX6    B1+B1                                                           CMP146        30     A     
 COMPASS            SA6    A1          IFDF = 2                                            CMP146        31     A     
 COMPASS            EQ     YTLUSYM4                                                        CMP146        32     A     
 COMPASS   YTLUSYM3 SA7    UERR        SET UNDEFINED ERROR                                 CMP146        33     A     
 COMPASS            SA7    EFLG                                                            COMPASS    15718     A     
 COMPASS            SA7    EXERR                                                           COMPASS    15719     A     
 COMPASS            MX7    0                                                               COMPASS    15720          I
          -CMP146 
 COMPASS   YTLUSYM4 MX7    0                                                               CMP146        34     A     
 COMPASS            SX6    B0                                                              COMPASS    15721     A     
 COMPASS            SA7    ELVAL                                                           COMPASS    15722     A     
 COMPASS            SA6    A7+B1       ELREL                                               COMPASS    15723     A     
 COMPASS            SA7    A6+B1       ELEXT                                               COMPASS    15724     A     
 COMPASS            EQ     YTLUSYM                                                         COMPASS    15725     A     
 COMPASS   YTLUSYM1 LX2    10          SIGN EXTEND VALUE                                   COMPASS    15726     A     
 COMPASS            AX2    39                                                              COMPASS    15727     A     
 COMPASS            BX6    X2                                                              COMPASS    15728     A     
 COMPASS            SA2    X3                                                              COMPASS    15729          I
          -CP096A 
 COMPASS            RX2    X3                                                              CP096A       514     A     
 COMPASS            SX0    777B                                                            COMPASS    15730     A     
 COMPASS            SA6    ELVAL                                                           COMPASS    15731     A     
 COMPASS            AX2    21                                                              COMPASS    15732     A     
 COMPASS            BX6    X0*X2                                                           COMPASS    15733     A     
 COMPASS            LX2    49                                                              COMPASS    15734     A     
 COMPASS            SA6    A6+B1       ELREL                                               COMPASS    15735     A     
 COMPASS            MX7    0                                                               COMPASS    15736     A     
 COMPASS            SA7    A6+B1       ELEXT                                               COMPASS    15737     A     
 COMPASS            PL     X2,YTLUSYM2 IF NOT EXTERNAL                                     COMPASS    15738     A     
 COMPASS            SA6    A7          RESET EXTERNAL NUMBER                               COMPASS    15739     A     
 COMPASS            SA7    A7-B1       ELREL                                               COMPASS    15740     A     
 COMPASS            EQ     YTLUSYM                                                         COMPASS    15741     A     
 COMPASS   YUPLOC   SPACE  4                                                               COMPASS    15742     A     
 COMPASS  **        YUPLOC - UPDATE LOCATION COUNTERS.                                     COMPASS    15743     A     
 COMPASS  *         ENTRY  (X1) = INCREMENT TO ORGCTR AND LOCCTR.                          COMPASS    15744     A     
 COMPASS                                                                                   COMPASS    15745     A     
 COMPASS                                                                                   COMPASS    15746     A     
 COMPASS   YUPLOC   PS                 RETURN EXIT                                         COMPASS    15747     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 945    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    ORGCTR                                                          COMPASS    15748     A     
 COMPASS            SA3    LOCCTR                                                          COMPASS    15749     A     
 COMPASS            IX6    X2+X1                                                           COMPASS    15750     A     
 COMPASS            IX7    X3+X1                                                           COMPASS    15751     A     
 COMPASS            SA6    A2                                                              COMPASS    15752     A     
 COMPASS            SA7    A3                                                              COMPASS    15753     A     
 COMPASS            EQ     YUPLOC                                                          COMPASS    15754     A     
 COMPASS   AEI      TITLE  PASS 2 SUBROUTINES.                                             COMPASS    15755     A     
 COMPASS  **        AEI - ADVANCE ENTRY INDEX.                                             COMPASS    15756     A     
 COMPASS  *         ENTRY  (SI) = SEGTAB INDEX.                                            COMPASS    15757     A     
 COMPASS  *         EXIT   (UI) = USETAB INDEX.                                            COMPASS    15758     A     
 COMPASS  *                (UI+1) = FIRST BLOCK NUMBER.                                    CMP30       4880          I
          -RSM4159
 COMPASS  *                (UI+1) = FIRST BLOCK NUMBER WITHIN BLOCK GROUP.                 RSM4159       39     A     
 COMPASS  *                (EI) = EPTAB INDEX.                                             COMPASS    15759     A     
 COMPASS  *                (EI+1) = LWA EPTAB.                                             COMPASS    15760     A     
 COMPASS  *                (LI) = LITAB INDEX.                                             COMPASS    15761     A     
 COMPASS  *                (LI+1) = LWA LITAB.                                             COMPASS    15762     A     
 COMPASS  *                (DI) = SLITS INDEX.                                             CMP17         35     A     
 COMPASS  *                (DI+1) = LWA SLITS.                                             CMP17         36     A     
 COMPASS                                                                                   COMPASS    15763     A     
 COMPASS                                                                                   COMPASS    15764     A     
 COMPASS            SEG    PASS 2 SUBROUTINES.                                             COMPASS    15765     A     
 COMPASS            QUAL   PASS2                                                           COMPASS    15766     A     
 COMPASS   AEI      PS                 RETURN EXIT                                         COMPASS    15767     A     
 COMPASS            SA1    O.SEGTAB                                                        COMPASS    15768     A     
 COMPASS            SA2    SI                                                              COMPASS    15769     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    15770     A     
 COMPASS            SA1    X1+B1       SEGTAB(2)                                           COMPASS    15771     A     
 COMPASS            AX1    18                                                              COMPASS    15772     A     
 COMPASS            BX6    X1                                                              COMPASS    15773     A     
 COMPASS            AX1    2                                                               CMP30       4881     A     
 COMPASS            SX7    X1+B1                                                           CMP30       4882     A     
 COMPASS            SA6    UI                                                              COMPASS    15774     A     
 COMPASS            MX7    0           CALCULATE BLOCK NUMBER                              COMPASS    15775          I
          -CMP30  
 COMPASS   AEI1     SX1    X1-6                                                            COMPASS    15776          I
          -CMP30  
 COMPASS            SX7    X7+B1                                                           COMPASS    15777          I
          -CMP30  
 COMPASS            PL     X1,AEI1     LOOP                                                COMPASS    15778          I
          -CMP30  
 COMPASS            SA7    A6+B1                                                           COMPASS    15779     A     
 COMPASS            SA1    A1+B1       SEGTAB(3)                                           COMPASS    15780     A     
 COMPASS            SA2    A1+B1       SEGTAB(4)                                           COMPASS    15781     A     
 COMPASS            SX6    X1                                                              COMPASS    15782     A     
 COMPASS            SX7    X2                                                              COMPASS    15783     A     
 COMPASS            SA6    LI                                                              COMPASS    15784     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15785     A     
 COMPASS            AX1    18                                                              COMPASS    15786     A     
 COMPASS            AX2    18                                                              COMPASS    15787     A     
 COMPASS            BX6    X1                                                              COMPASS    15788          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 946    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17  
 COMPASS            LX7    X2                                                              COMPASS    15789          I
          -CMP17  
 COMPASS            SX6    X1                                                              CMP17         37     A     
 COMPASS            SX7    X2                                                              CMP17         38     A     
 COMPASS            SA6    EI                                                              COMPASS    15790     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15791     A     
 COMPASS            AX1    18                                                              CMP17         39     A     
 COMPASS            AX2    18                                                              CMP17         40     A     
 COMPASS            SX6    X1                                                              CMP17         41     A     
 COMPASS            SX7    X2                                                              CMP17         42     A     
 COMPASS            SA6    DI                                                              CMP17         43     A     
 COMPASS            SA7    A6+B1                                                           CMP17         44     A     
 COMPASS            EQ     AEI         RETURN                                              COMPASS    15792     A     
 COMPASS   ECC      SPACE  4                                                               COMPASS    15793          I
          -CMP30  
 COMPASS  **        ECC - ENTER COMMENT CARDS.                                             COMPASS    15794          I
          -CMP30  
 COMPASS                                                                                   COMPASS    15795          I
          -CMP30  
 COMPASS                                                                                   COMPASS    15796          I
          -CMP30  
 COMPASS   ECC      PS                 RETURN EXIT                                         COMPASS    15797          I
          -CMP30  
 COMPASS            SA1    =C*CMP 2.0*                                                     CMP16          1          I
          -CMP30  
 COMPASS            BX7    X1                                                              CMP16          2          I
          -CMP30  
 COMPASS            SA7    DPBA+16B                                                        CMP16          3          I
          -CMP30  
 COMPASS            SX7    B0          CLEAR 77 TABLE COMMENT FIELD                        COMPASS    15798          I
          -CMP30  
 COMPASS            SA7    DPBA+3                                                          COMPASS    15799          I
          -CMP16    -CMP30  
 COMPASS            MX4    14B                                                             COMPASS    15800          I
          -CMP16    -CMP30  
 COMPASS   ECC1     SA7    A7+B1                                                           COMPASS    15801          I
          -CMP16    -CMP30  
 COMPASS            LX4    1                                                               COMPASS    15802          I
          -CMP16    -CMP30  
 COMPASS            MX4    13B                                                             CMP16          4          I
          -CMP30  
 COMPASS   ECC1     LX4    1                                                               CMP16          5          I
          -CMP30  
 COMPASS            SA7    A7-B1                                                           CMP16          6          I
          -CMP30  
 COMPASS            NG     X4,ECC1                                                         COMPASS    15803          I
          -CMP30  
 COMPASS            SA1    O.IDTAB                                                         COMPASS    15804          I
          -CMP30  
 COMPASS            SB6    X1+B1                                                           COMPASS    15805          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 947    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX0    -12                                                             COMPASS    15806          I
          -CMP30  
 COMPASS            SA1    O.SEGTAB    CALCULATE LIMITS OF IDTAB ENTRY                     COMPASS    15807          I
          -CMP30  
 COMPASS            SA2    SI                                                              COMPASS    15808          I
          -CMP30  
 COMPASS            IX6    X1+X2                                                           COMPASS    15809          I
          -CMP30  
 COMPASS            SA1    X6+B1       SEGTAB(2)                                           COMPASS    15810          I
          -CMP30  
 COMPASS            SA2    A1+4        SEGTAB+1(2)                                         COMPASS    15811          I
          -CMP30  
 COMPASS            SA1    B6+X1       START OF IDENT CARD                                 COMPASS    15812          I
          -CMP30  
 COMPASS            SB3    B6+X2       LIMIT OF COMMENT CARDS                              COMPASS    15813          I
          -CMP30  
 COMPASS            SB4    DPBA+3                                                          COMPASS    15814          I
          -CMP30  
 COMPASS   ECC2     BX6    -X0*X1                                                          COMPASS    15815          I
          -CMP30  
 COMPASS            SA1    A1+B1                                                           COMPASS    15816          I
          -CMP30  
 COMPASS            NZ     X6,ECC2     LOOP TO END OF IDENT CARD                           COMPASS    15817          I
          -CMP30  
 COMPASS            SB2    A1+B1                                                           COMPASS    15818          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    15819          I
          -CMP30  
 COMPASS            SB5    DPBA+17B                                                        COMPASS    15820          I
          -CMP30  
 COMPASS            ZR     X6,ECC2     IF ZERO WORD                                        COMPASS    15821          I
          -CMP30  
 COMPASS   ECC3     GE     B2,B3,ECC   RETURN IF END OF COMMENT CARDS                      COMPASS    15822          I
          -CMP30  
 COMPASS            SA6    B4          COPY CARD                                           COMPASS    15823          I
          -CMP30  
 COMPASS            SB4    B4+B1                                                           COMPASS    15824          I
          -CMP30  
 COMPASS            SB2    B2+B1                                                           COMPASS    15825          I
          -CMP30  
 COMPASS            SA1    A1+B1                                                           COMPASS    15826          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    15827          I
          -CMP30  
 COMPASS            NE     B4,B5,ECC3  LOOP TO END OF 77 TABLE                             COMPASS    15828          I
          -CMP30  
 COMPASS            EQ     ECC         RETURN                                              COMPASS    15829          I
          -CMP30  
 COMPASS   BKS      SPACE  4                                                               CMP30       4883     A     
 COMPASS  **        BKS - BACKSPACE SECTIONS.                                              CMP30       4884     A     
 COMPASS  *         BACKSPACE N SECTIONS ON BINARY OUTPUT FILE.                            CMP30       4885     A     
 COMPASS  *         ENTRY  (X4) = NUMBER OF SECTIONS.                                      CMP30       4886     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 948    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP30       4887     A     
 COMPASS                                                                                   CMP30       4888     A     
 COMPASS   BKS      PS                 RETURN EXIT                                         CMP30       4889     A     
 COMPASS                                                                                   CMP30       4890     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       4891     A     
 COMPASS                                                                                   CMP30       4892     A     
 COMPASS            SKIPB  B,X4                                                            CMP30       4893     A     
 COMPASS            EQ     BKS         RETURN                                              CMP30       4894     A     
 COMPASS                                                                                   CMP30       4895     A     
 COMPASS   RM       ELSE                                                                   CMP30       4896     A     
 COMPASS                                                                                   CMP30       4897     A     
 COMPASS            SA1    B-1                                                             CMP30       4898     A     
 COMPASS            ZR     X1,BKS1     IF *W* RECORDS                                      CMP30       4899     A     
 COMPASS            SKIPBL B,X4                                                            CMP30       4900     A     
 COMPASS            EQ     BKS         RETURN                                              CMP30       4901     A     
 COMPASS   BKS1     BX6    X4          SAVE SECTION COUNT                                  CMP30       4902     A     
 COMPASS            SA6    BKSA                                                            CMP30       4903     A     
 COMPASS            STORE  B,DX=BKS3   SET END OF DATA EXIT                                CMP30       4904     A     
 COMPASS   BKS2     SKIPBL B,377777B   BACKSPACE MANY RECORDS                              CMP30       4905     A     
 COMPASS            EQ     BKS2                                                            CMP30       4906     A     
 COMPASS   BKS3     PS                 END OF DATA EXIT                                    CMP30       4907     A     
 COMPASS            SA1    BKSA                                                            CMP30       4908     A     
 COMPASS            SX6    X1-1        REDUCE SECTION COUNT                                CMP30       4909     A     
 COMPASS            SA6    A1                                                              CMP30       4910     A     
 COMPASS            PL     X6,BKS2     IF NOT DONE                                         CMP30       4911     A     
 COMPASS            STORE  B,DX=0                                                          CMP30       4912     A     
 COMPASS            FETCH  B,FP,X1     CHECK TERMINATOR                                    CMP30       4913     A     
 COMPASS            SX6    X1-#EOS#                                                        CMP30       4914     A     
 COMPASS            NZ     X6,BKS4     IF NOT END OF SECTION                               CMP30       4915     A     
 COMPASS            WEOR   B                                                               CMP30       4916     A     
 COMPASS            EQ     BKS         RETURN                                              CMP30       4917     A     
 COMPASS   BKS4     SX6    X1-#EOP#                                                        CMP30       4918     A     
 COMPASS            ZR     X6,BKS      IF NOT END OF PARTITION                             CMP30       4919          I
          -CPS028 
 COMPASS            NZ     X6,BKS      IF NOT END OF PARTITION                             CMP30       4920     A     
 COMPASS            ENDFILE B                                                     S028 708 CPS028       528     A     
 COMPASS            EQ     BKS         RETURN                                              CMP30       4921     A     
 COMPASS                                                                                   CMP30       4922     A     
 COMPASS   BKSA     DATA   0                                                               CMP30       4923     A     
 COMPASS                                                                                   CMP30       4924     A     
 COMPASS   RM       ENDIF                                                                  CMP30       4925     A     
 COMPASS   CRL      SPACE  4                                                      S004 116 CPS004        79     A     
 COMPASS  **        CRL - CHECK RECURSION LIMIT.                                  S004 117 CPS004        80     A     
 COMPASS                                                                          S004 118 CPS004        81     A     
 COMPASS                                                                          S004 119 CPS004        82     A     
 COMPASS   CRL      PS                 RETURN EXIT                                S004 120 CPS004        83     A     
 COMPASS            SA1    CRLF                                                   S004 121 CPS004        84     A     
 COMPASS            ZR     X1,CRL      IF FLAG NOT SET IN PASS 1                  S004 122 CPS004        85     A     
 COMPASS            SA2    ASMM+1                                                 S004 123 CPS004        86     A     
 COMPASS            BX6    X2                                                     S004 124 CPS004        87     A     
 COMPASS            SA6    CRLB                                                   S004 125 CPS004        88     A     
 COMPASS            JOBMSG CRLA        ISSUE DAYFILE MESSAGE                      S004 126 CPS004        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/28. 19.11.32.      PAGE 949    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            JP     CRL                                                    S004 127 CPS004        90     A     
 COMPASS                                                                          S004 128 CPS004        91     A     
 COMPASS   CRLA     DATA   H*  RECURSION DEPTH .GT. "LIMRECUR" IN *               S004 129 CPS004        92     A     
 COMPASS   CRLB     DATA   0                                                      S004 130 CPS004        93     A     
 COMPASS   ENTREF   SPACE  4                                                               COMPASS    15830     A     
 COMPASS  **        ENTREF - PLACE ENTRY IN CROSS REFERENCE TABLE.                         COMPASS    15831     A     
 COMPASS  *         ENTRY  (X4) = SYMBOL TABLE ADDRESS.                                    COMPASS    15832     A     
 COMPASS  *                (X1) = SYMBOL USAGE LETTER.                                     COMPASS    15833     A     
 COMPASS  *                (X2) = SYMBOL EQUIVALENT.                                       COMPASS    15834     A     
 COMPASS                                                                                   COMPASS    15835     A     
 COMPASS                                                                                   COMPASS    15836     A     
 COMPASS   ENTREF1  SX6    B0          JUST OVERFLOWED                                     COMPASS    15837     A     
 COMPASS            SA6    L.REFTAB                                                        COMPASS    15838     A     
 COMPASS                                                                                   CMP30       4926     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       4927     A     
 COMPASS   ENTREF2  WRITEW R,CONREF,1                                                      COMPASS    15839     A     
 COMPASS            ELSE   1                                                               CMP30       4928     A     
 COMPASS   ENTREF2  PUT    R,CONREF,10                                                     CMP30       4929          I
          -CPS028 
 COMPASS   ENTREF2  PUTP   R,CONREF,10                                            S028 710 CPS028       529     A     
 COMPASS                                                                                   COMPASS    15840     A     
 COMPASS   ENTREF   PS     0           RETURN EXIT                                         COMPASS    15841     A     
 COMPASS            LX2    -35+59                                                          COMPASS    15842     A     
 COMPASS            NG     X2,ENTREF   IF NOREF SYMBOL                                     COMPASS    15843     A     
 COMPASS            MX0    -17                                                             CMP19        356     A     
 COMPASS            SA2    SUPREF                                                          COMPASS    15844     A     
 COMPASS            NZ     X2,ENTREF   RETURN IF NO REFERENCE                              COMPASS    15845     A     
 COMPASS            SA2    LPCNT       LINE NUMBER                                         COMPASS    15846          I
          -CPS234 
 COMPASS            SA2    LPCX        LINE NUMBER                                         CPS234         5     A     
 COMPASS            SA3    PGCNT       PAGE NUMBER                                         COMPASS    15847          I
          -CPSA186
 COMPASS            SA3    A2+B1                                                           CPSA186        8     A     
 COMPASS            LX2    6           LETTER TO BITS 0 - 5                                COMPASS    15848     A     
 COMPASS            SA5    LOCCTR      LOCATION COUNTER                                    COMPASS    15849     A     
 COMPASS            BX6    X1+X2       LINE TO BITS 6 - 12                                 COMPASS    15850     A     
 COMPASS            LX3    13                                                              COMPASS    15851     A     
 COMPASS            BX5    -X0*X5                                                          CMP19        357     A     
 COMPASS            BX6    X6+X3       PAGE TO BITS 13 - 24                                COMPASS    15852     A     
 COMPASS            LX5    25                                                              COMPASS    15853     A     
 COMPASS            BX6    X6+X5       LOCATION TO BITS 25 - 41                            COMPASS    15854     A     
 COMPASS            LX4    42                                                              COMPASS    15855     A     
 COMPASS            BX6    X6+X4       SYMBOL TABLE ADDRESS TO BITS 42 - 59                COMPASS    15856     A     
 COMPASS            SA6    CONREF                                                          COMPASS    15857     A     
 COMPASS            SA1    LOSTREF     ACCUMULATE REFERENCES                               COMPASS    15858     A     
 COMPASS            SX6    B1                                                              COMPASS    15859     A     
 COMPASS            IX6    X6+X1                                                           COMPASS    15860     A     
 COMPASS            SA6    A1                                                              COMPASS    15861     A     
 COMPASS            SA2    REFIO                                                           COMPASS    15862     A     
 COMPASS            NZ     X2,ENTREF2  IF ON DISK                                          COMPASS    15863     A     
 COMPASS            MANAGE REFTAB,B1                                                       COMPASS    15864     A     
 COMPASS            SA1    REFIO                                                           COMPASS    15865     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 950    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NZ     X1,ENTREF1  IF JUST OVERFLOWED                                  COMPASS    15866     A     
 COMPASS            SA4    CONREF                                                          COMPASS    15867     A     
 COMPASS            IX2    X2+X3                                                           COMPASS    15868     A     
 COMPASS            BX6    X4                                                              COMPASS    15869     A     
 COMPASS            SA6    X2-1                                                            COMPASS    15870     A     
 COMPASS            EQ     ENTREF      RETURN                                              COMPASS    15871     A     
 COMPASS                                                                                   CPS234         6          I
          -CPSA186
 COMPASS   LPCX     DATA   0           LINE COUNT -- PRINTED LINES ONLY                    CPS234         7          I
          -CPSA186
 COMPASS   LLA      SPACE  4                                                               COMPASS    15872     A     
 COMPASS  **        LLA - LIST LOCATION ADDRESS.                                           COMPASS    15873     A     
 COMPASS                                                                                   COMPASS    15874     A     
 COMPASS                                                                                   COMPASS    15875     A     
 COMPASS   LLA      PS                 RETURN EXIT                                         COMPASS    15876     A     
 COMPASS            SA1    LOCCTR      CALL PACKO(LOCCTR,14 OR 12,6 OR 4)                  COMPASS    15877     A     
 COMPASS            SX2    14                                                              COMPASS    15878     A     
 COMPASS            SA3    MACHINE                                                         COMPASS    15879     A     
 COMPASS            LX5    X3,B1                                                           COMPASS    15880     A     
 COMPASS            IX2    X2-X5                                                           COMPASS    15881     A     
 COMPASS            MX3    0                                                               COMPASS    15882     A     
 COMPASS            RJ     PACKO                                                           COMPASS    15883     A     
 COMPASS            SA1    LOCCTR      CHECK IF LOCCTR " ORGCTR                            COMPASS    15884     A     
 COMPASS            SA2    ORGCTR                                                          COMPASS    15885     A     
 COMPASS            BX3    X1-X2                                                           COMPASS    15886     A     
 COMPASS            ZR     X3,LLA      IF COUNTERS ARE EQUAL                               COMPASS    15887     A     
 COMPASS            SX6    1RL         LIST AN L                                           COMPASS    15888     A     
 COMPASS            SA6    OCTAL+6                                                         COMPASS    15889     A     
 COMPASS            EQ     LLA         RETURN                                              COMPASS    15890     A     
 COMPASS   PACKO    SPACE  4                                                               COMPASS    15891          I
          -F4820  
 COMPASS  **        PACKO - PACK OCTAL DIGITS INTO LINE.                                   COMPASS    15892          I
          -F4820  
 COMPASS  *         ENTRY  (X1) = VALUE.                                                   COMPASS    15893          I
          -F4820  
 COMPASS  *                (X2) = LOW ORDER COLUMN NUMBER.                                 COMPASS    15894          I
          -F4820  
 COMPASS  *                (X3) = COLUMN COUNT.                                            COMPASS    15895          I
          -F4820  
 COMPASS  *                (X3) = 0 IF LEADING ZERO SUPPRESSION.                           COMPASS    15896          I
          -F4820  
 COMPASS                                                                                   COMPASS    15897          I
          -F4820  
 COMPASS                                                                                   COMPASS    15898          I
          -F4820  
 COMPASS   PACKO    PS                 RETURN EXIT                                         COMPASS    15899          I
          -F4820  
 COMPASS            MX0    57                                                              COMPASS    15900          I
          -F4820  
 COMPASS            SX4    1R0                                                             COMPASS    15901          I
          -F4820  
 COMPASS            SB7    X3-1                                                            COMPASS    15902          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 951    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F4820  
 COMPASS            BX5    -X0*X1                                                          COMPASS    15903          I
          -CPS010   -F4820  
 COMPASS            IX6    X5+X4                                                           COMPASS    15904          I
          -CPS010   -F4820  
 COMPASS            SB6    -B1                                                             COMPASS    15905          I
          -F4820  
 COMPASS            SB5    OCTAL-1                                                         COMPASS    15906          I
          -CPS010   -F4820  
 COMPASS   PACKO1   AX1    3                                                               COMPASS    15907          I
          -CPS010   -F4820  
 COMPASS            SA6    X2+B5                                                           COMPASS    15908          I
          -CPS010   -F4820  
 COMPASS            SB7    B7-B1                                                           COMPASS    15909          I
          -CPS010   -F4820  
 COMPASS            BX5    -X0*X1                                                          COMPASS    15910          I
          -CPS010   -F4820  
 COMPASS            SB5    OCTAL                                                           CPS010        79          I
          -F4820  
 COMPASS            SX7    1R                                                              CPS010        80          I
          -F4820  
 COMPASS            PL     X1,PACKO1   IF NUMBER NOT NEGATIVE                              CPS010        81          I
          -F4820  
 COMPASS            NZ     X3,PACKO1   IF NOT LEADING ZERO SUPPRESSION                     CPS010        82          I
          -F4820  
 COMPASS            BX1    -X1                                                             CPS010        83          I
          -F4820  
 COMPASS            SX7    1R-                                                             CPS010        84          I
          -F4820  
 COMPASS   PACKO1   BX5    -X0*X1                                                          CPS010        85          I
          -F4820  
 COMPASS            AX1    3                                                               CPS010        86          I
          -F4820  
 COMPASS            IX6    X5+X4                                                           CPS010        87          I
          -F4820  
 COMPASS            SX2    X2+B6                                                           COMPASS    15911          I
          -F4820  
 COMPASS            IX6    X4+X5                                                           COMPASS    15912          I
          -CPS010   -F4820  
 COMPASS            SB7    B7-B1                                                           CPS010        88          I
          -F4820  
 COMPASS            SA6    X2+B5                                                           CPS010        89          I
          -F4820  
 COMPASS            PL     B7,PACKO1                                                       COMPASS    15913          I
          -F4820  
 COMPASS            NZ     X3,PACKO    IF NOT LEADING ZERO SUPPRESSION                     COMPASS    15914          I
          -F4820  
 COMPASS            NZ     X1,PACKO1   IF NOT END OF NUMBER                                COMPASS    15915          I
          -F4820  
 COMPASS            SA7    A6-B1                                                           CPS010        90          I
          -F4820  
 COMPASS            EQ     PACKO       RETURN                                              COMPASS    15916          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 952    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F4820  
 COMPASS   PACKOR   SPACE  4                                                               COMPASS    15917     A     
 COMPASS  **        PACKOR - PACK OCTAL DIGITS AND RELOCATION INDICATION.                  COMPASS    15918     A     
 COMPASS  *         PACKS RELOCATION INFORMATION IN COLUMN (X2) + 2.                       COMPASS    15919     A     
 COMPASS  *         ENTRY  (X1) = VALUE.                                                   COMPASS    15920     A     
 COMPASS  *                (X2) = LOW-ORDER COLUMN NUMBER.                                 COMPASS    15921     A     
 COMPASS  *                (X3) = COLUMN COUNT.                                            COMPASS    15922     A     
 COMPASS  *                (EXREL) = RELOCATION INFORMATION.                               COMPASS    15923     A     
 COMPASS  *                (EXEXT) = RELOCATION INFORMATION.                               COMPASS    15924     A     
 COMPASS                                                                                   COMPASS    15925     A     
 COMPASS                                                                                   COMPASS    15926     A     
 COMPASS   PACKOR1  SA6    X2+OCTAL+1  STORE RELOCATION INDICATOR                          COMPASS    15927     A     
 COMPASS            RJ     PACKO       AND GO TO PACK OCTAL DIGTIS                         COMPASS    15928     A     
 COMPASS                                                                                   COMPASS    15929     A     
 COMPASS   PACKOR   PS                 RETURN EXIT                                         COMPASS    15930     A     
 COMPASS            SA5    EXEXT       CHECK TYPE OF RELOCATION                            COMPASS    15931     A     
 COMPASS            SA4    EXREL                                                           COMPASS    15932     A     
 COMPASS            SX6    1RX                                                             COMPASS    15933     A     
 COMPASS            NZ     X5,PACKOR1  IF EXTERNAL                                         COMPASS    15934     A     
 COMPASS            SB7    X4-1                                                            COMPASS    15935     A     
 COMPASS            SX6    1R                                                              COMPASS    15936     A     
 COMPASS            ZR     X4,PACKOR1  IF ABSLUTE                                          COMPASS    15937     A     
 COMPASS            SX6    1R+                                                             COMPASS    15938     A     
 COMPASS            ZR     B7,PACKOR1  IF PROGRAM                                          COMPASS    15939     A     
 COMPASS            SB7    X4-401B                                                         COMPASS    15940     A     
 COMPASS            SX6    1RC                                                             COMPASS    15941     A     
 COMPASS            NZ     B7,PACKOR1  IF COMMON                                           COMPASS    15942     A     
 COMPASS            SX6    1R-                                                             COMPASS    15943     A     
 COMPASS            EQ     PACKOR1     IF NEGATIVE PROGRAM                                 COMPASS    15944     A     
 COMPASS   PBN      SPACE  4                                                               COMPASS    15945     A     
 COMPASS  **        PBN - PRINT BLOCK NAMES.                                               COMPASS    15946     A     
 COMPASS  *         ENTRY  (SI) = SEGTAB INDEX.                                            COMPASS    15947     A     
 COMPASS  *         USES   P2TEMP, P2TEMPA, P2TEMPB.                                       COMPASS    15948     A     
 COMPASS                                                                                   COMPASS    15949     A     
 COMPASS                                                                                   COMPASS    15950     A     
 COMPASS   PBN      PS                 RETURN EXIT                                         COMPASS    15951     A     
 COMPASS            SA1    O.SEGTAB    SET UP USE INDEX                                    COMPASS    15952     A     
 COMPASS            SA2    SI                                                              COMPASS    15953     A     
 COMPASS            SA3    L.SEGTAB                                                        COMPASS    15954     A     
 COMPASS            BX6    X3-X2                                                           COMPASS    15955     A     
 COMPASS            IX2    X1+X2                                                           COMPASS    15956     A     
 COMPASS            SA1    X2-3        SEGTAB(2)                                           COMPASS    15957     A     
 COMPASS            SA3    L.USETAB                                                        COMPASS    15958     A     
 COMPASS            AX1    18                                                              COMPASS    15959     A     
 COMPASS            MX0    -21                                                             COMPASS    15960     A     
 COMPASS            ZR     X6,PBN1                                                         COMPASS    15961     A     
 COMPASS            SA3    X2+B1       NEXT SEGTAB(2)                                      COMPASS    15962     A     
 COMPASS            AX3    18                                                              COMPASS    15963     A     
 COMPASS   PBN1     BX6    X1                                                              COMPASS    15964     A     
 COMPASS            LX7    X3                                                              COMPASS    15965     A     
 COMPASS            SA6    P2TEMP      BLOCK COUNTER FOR FOLLOWING LOOP                    COMPASS    15966     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    15967     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 953    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    A6+B1                                                           COMPASS    15968     A     
 COMPASS            IX3    X7-X6                                                           COMPASS    15969     A     
 COMPASS            SX1    X3-18                                                           COMPASS    15970          I
          -CMP30  
 COMPASS            SX1    X3-3*4                                                          CMP30       4930     A     
 COMPASS            NZ     X1,PBN2     IF MORE THAN 3 BLOCKS                               COMPASS    15971     A     
 COMPASS            SA2    O.USETAB                                                        COMPASS    15972     A     
 COMPASS            IX2    X2+X6       CHECK BLOCK LENGTHS                                 COMPASS    15973     A     
 COMPASS            SA1    X2+13       LITERALS*(2)                                        COMPASS    15974          I
          -CMP30  
 COMPASS            SA1    X2+2*4+1    LITERALS*(2)                                        CMP30       4931     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    15975     A     
 COMPASS            NZ     X6,PBN2     IF LITERALS* NOT EMPTY                              COMPASS    15976     A     
 COMPASS            SA1    X2+7        PROGRAM*(2)                                         COMPASS    15977          I
          -CMP30  
 COMPASS            SA1    X2+4+1      PROGRAM*(2)                                         CMP30       4932     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    15978     A     
 COMPASS            ZR     X6,PBN      IF PROGRAM* EMPTY                                   COMPASS    15979     A     
 COMPASS            SA1    X2+B1                                                           COMPASS    15980     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    15981     A     
 COMPASS            ZR     X6,PBN      IF ABSOLUTE* EMPTY                                  COMPASS    15982     A     
 COMPASS   PBN2     SX0    2                                                               COMPASS    15983     A     
 COMPASS            RJ     LBL                                                             COMPASS    15984     A     
 COMPASS            SA1    =40HBLOCKS    TYPE      ADDRESS    LENGTH                       COMPASS    15985     A     
 COMPASS            SA2    A1+B1       LIST OUT BLOCK LENGTHS AND ORIGINS                  COMPASS    15986     A     
 COMPASS            BX6    X1                                                              COMPASS    15987     A     
 COMPASS            LX7    X2                                                              COMPASS    15988     A     
 COMPASS            SA6    LINE                                                            COMPASS    15989     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15990     A     
 COMPASS            SA1    A2+B1                                                           COMPASS    15991     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    15992     A     
 COMPASS            BX6    X1                                                              COMPASS    15993     A     
 COMPASS            LX7    X2                                                              COMPASS    15994     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    15995     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    15996     A     
 COMPASS            RJ     LIST2L                                                          COMPASS    15997     A     
 COMPASS                                                                                   COMPASS    15998     A     
 COMPASS  *         PRINT USE BLOCKS.                                                      COMPASS    15999     A     
 COMPASS                                                                                   COMPASS    16000     A     
 COMPASS   PBN3     SA1    O.USETAB                                                        COMPASS    16001     A     
 COMPASS            SA2    P2TEMPA                                                         COMPASS    16002     A     
 COMPASS            IX0    X1+X2                                                           COMPASS    16003     A     
 COMPASS            SA1    X0          FETCH BLOCK NAME                                    COMPASS    16004     A     
 COMPASS            SX7    1R                                                              COMPASS    16005     A     
 COMPASS            BX5    X1          COMPLEMENT NAME IF LCM                              COMPASS    16006     A     
 COMPASS            AX5    60                                                              COMPASS    16007     A     
 COMPASS            BX1    X1-X5                                                           COMPASS    16008     A     
 COMPASS            NZ     X1,PBN4     CHANGE BLANK COMMON BLOCK NAME                      COMPASS    16009     A     
 COMPASS            SX1    2R//                                                            COMPASS    16010     A     
 COMPASS   PBN4     SA3    A1+2        BLOCK ORIGIN                                        COMPASS    16011     A     
 COMPASS            MX6    6                                                               COMPASS    16012     A     
 COMPASS   PBN5     LX1    6           LEFT JUSTIFY BLOCK NAME                             COMPASS    16013     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 954    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX4    X6*X1                                                           COMPASS    16014     A     
 COMPASS            BX1    X7+X1                                                           COMPASS    16015     A     
 COMPASS            ZR     X4,PBN5                                                         COMPASS    16016     A     
 COMPASS            BX6    X1                                                              COMPASS    16017     A     
 COMPASS            SA6    LINE        STORE BLOCK NAME                                    COMPASS    16018          I
          -CMP30  
 COMPASS            MX0    -9                                                              CMP30       4933     A     
 COMPASS            PL     X5,PBN6     IF NOT LCM                                          COMPASS    16019     A     
 COMPASS            SA5    =10HLCM                                                         COMPASS    16020          I
          -CMP30  
 COMPASS            SX1    1R+-1R                                                          CMP30       4934     A     
 COMPASS            SA4    ABSFG                                                           CMP30       4935     A     
 COMPASS            SA5    LLB                                                             CMP30       4936     A     
 COMPASS            IX6    X6+X1       APPEND + BEFORE BLOCK TYPE                          CMP30       4937     A     
 COMPASS            LX4    24                                                              CMP30       4938     A     
 COMPASS            BX5    X4+X5                                                           CMP30       4939     A     
 COMPASS            BX4    X5-X3                                                           CMP30       4940     A     
 COMPASS            AX4    24                                                              CMP30       4941     A     
 COMPASS            BX4    -X0*X4                                                          CMP30       4942     A     
 COMPASS            NZ     X4,PBN6     IF NOT LOCAL LCM BLOCK IN REL ASSEMBLY              CMP30       4943     A     
 COMPASS            SA5    =10HLOCAL                                                       CMP30       4944     A     
 COMPASS            EQ     PBN7                                                            COMPASS    16021     A     
 COMPASS   PBN6     BX5    X3                                                              COMPASS    16022     A     
 COMPASS            AX5    24                                                              COMPASS    16023     A     
 COMPASS            SB7    X5                                                              COMPASS    16024          I
          -CMP30  
 COMPASS            BX2    -X0*X5                                                          CMP30       4945     A     
 COMPASS            SB7    X2                                                              CMP30       4946     A     
 COMPASS            SA5    =10HCOMMON                                                      COMPASS    16025     A     
 COMPASS            GT     B7,B1,PBN7                                                      COMPASS    16026     A     
 COMPASS            SA5    B7+=20HABSOLUTE  LOCAL                                          COMPASS    16027     A     
 COMPASS   PBN7     BX6    X5                                                              COMPASS    16028          I
          -CMP30  
 COMPASS   PBN7     SA6    LINE        STORE BLOCK NAME                                    CMP30       4947     A     
 COMPASS            BX6    X5                                                              CMP30       4948     A     
 COMPASS            SA6    A6+B1       STORE BLOCK TYPE                                    COMPASS    16029     A     
 COMPASS            MX0    -21         PACK AWAY BLOCK LENGTHS AND ORIGINS                 COMPASS    16030     A     
 COMPASS            BX1    -X0*X3                                                          COMPASS    16031     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    16032     A     
 COMPASS            BX5    -X0*X2                                                          COMPASS    16033     A     
 COMPASS            RJ     CONOCT      LIST FIRST WORD ADDRESS                             COMPASS    16034     A     
 COMPASS            LX6    12                                                              COMPASS    16035          I
          -CMP042 
 COMPASS            LX6    18                                                              CMP042       280     A     
 COMPASS            BX1    X5          LIST LENGTH                                         COMPASS    16036     A     
 COMPASS            SA6    LINE+2                                                          COMPASS    16037     A     
 COMPASS            RJ     CONOCT                                                          COMPASS    16038     A     
 COMPASS            LX6    12                                                              COMPASS    16039          I
          -CMP042 
 COMPASS            LX6    18                                                              CMP042       281     A     
 COMPASS            SA6    LINE+3                                                          COMPASS    16040     A     
 COMPASS            SA4    P2TEMPA     LIST LINE IF LENGTH IS NON-ZERO                     COMPASS    16041     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 955    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    A4-B1                                                           COMPASS    16042     A     
 COMPASS            IX4    X4-X1                                                           COMPASS    16043     A     
 COMPASS            SB7    X4-13       OR BEYOND OUR 3 BLOCKS                              COMPASS    16044          I
          -CMP30  
 COMPASS            SB7    X4-2*4-1    OR BEYOND OUR 3 BLOCKS                              CMP30       4949     A     
 COMPASS            PL     B7,PBN8                                                         COMPASS    16045     A     
 COMPASS            ZR     X5,PBN9     IF LENGTH = 0                                       COMPASS    16046     A     
 COMPASS   PBN8     RJ     LISTL                                                           COMPASS    16047     A     
 COMPASS   PBN9     SA2    P2TEMPA     INCREMENT INDEX                                     COMPASS    16048     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    16049     A     
 COMPASS            SX6    X2+6                                                            COMPASS    16050          I
          -CMP30  
 COMPASS            SX6    X2+4                                                            CMP30       4950     A     
 COMPASS            SA6    A2                                                              COMPASS    16051     A     
 COMPASS            BX3    X6-X3                                                           COMPASS    16052     A     
 COMPASS            NZ     X3,PBN3     LOOP                                                COMPASS    16053     A     
 COMPASS            SA1    =1H                                                             COMPASS    16054     A     
 COMPASS            BX6    X1                                                              COMPASS    16055     A     
 COMPASS            SA6    LINE                                                            COMPASS    16056     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16057     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16058     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16059     A     
 COMPASS            EQ     PBN         RETURN                                              COMPASS    16060     A     
 COMPASS   PEP      SPACE  4                                                               COMPASS    16061     A     
 COMPASS  **        PEP - PRINT ENTRY POINTS.                                              COMPASS    16062     A     
 COMPASS  *         ENTRY  (EI - EI+1) = EPTAB INDEX.                                      COMPASS    16063     A     
 COMPASS                                                                                   COMPASS    16064     A     
 COMPASS                                                                                   COMPASS    16065     A     
 COMPASS   PEP      PS                 RETURN EXIT                                         COMPASS    16066     A     
 COMPASS            SA1    EI                                                              COMPASS    16067     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    16068     A     
 COMPASS            IX1    X2-X1                                                           COMPASS    16069     A     
 COMPASS            ZR     X1,PEP      IF NO ENTRY POINTS                                  COMPASS    16070     A     
 COMPASS            SX6    X1+3        DETERMINE NUMBER OF ROWS                            COMPASS    16071          I
          -CMP30  
 COMPASS            AX6    2                                                               COMPASS    16072          I
          -CMP30  
 COMPASS            SX6    X1+2                                                            CMP30       4951     A     
 COMPASS            SX3    3           COMPUTE NUMBER OF ROWS                              CMP30       4952     A     
 COMPASS            IX6    X6/X3                                                           CMP30       4953     A     
 COMPASS            SA6    P2TEMP      NUMBER OF ROWS                                      COMPASS    16073     A     
 COMPASS            SA6    A6+B1       LINE INCREMENT                                      COMPASS    16074     A     
 COMPASS            SX0    2                                                               COMPASS    16075     A     
 COMPASS            RJ     LBL                                                             COMPASS    16076     A     
 COMPASS            SA1    =H*ENTRY POINTS.*                                               COMPASS    16077     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    16078     A     
 COMPASS            BX6    X1                                                              COMPASS    16079     A     
 COMPASS            LX7    X2                                                              COMPASS    16080     A     
 COMPASS            SA6    LINE                                                            COMPASS    16081     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16082     A     
 COMPASS            RJ     LIST2L                                                          COMPASS    16083     A     
 COMPASS   PEP1     SA1    P2TEMP      DECREMENT ROW COUNT                                 COMPASS    16084     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 956    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX6    X1-1                                                            COMPASS    16085     A     
 COMPASS            SA6    A1                                                              COMPASS    16086     A     
 COMPASS            ZR     X1,PEP      IF END OF TABLE                                     COMPASS    16087     A     
 COMPASS            SA1    EI          ADVANCE ENTRY INDEX                                 COMPASS    16088     A     
 COMPASS            SX6    X1+B1                                                           COMPASS    16089     A     
 COMPASS            SA6    A1                                                              COMPASS    16090     A     
 COMPASS            BX7    X1                                                              COMPASS    16091     A     
 COMPASS            SA7    P2TEMPC                                                         COMPASS    16092     A     
 COMPASS            MX6    0           LINE INDEX                                          COMPASS    16093     A     
 COMPASS            SA6    A7-B1                                                           COMPASS    16094     A     
 COMPASS   PEP2     SA2    P2TEMPC     READ ENTRY ADDRESS                                  COMPASS    16095     A     
 COMPASS            SA1    O.EPTAB                                                         COMPASS    16096     A     
 COMPASS            IX2    X1+X2                                                           COMPASS    16097     A     
 COMPASS            SA1    X2          READ ENTRY                                          COMPASS    16098     A     
 COMPASS            MX0    1                                                               CMP30       4954     A     
 COMPASS            BX1    -X0*X1      CLEAR CONDITIONAL FLAG                              CMP30       4955     A     
 COMPASS            RJ     LJUST                                                           COMPASS    16099     A     
 COMPASS            SA1    A1          FETCH SYMBOL AGAIN                                  CMP30       4956     A     
 COMPASS            MX5    1                                                               CMP30       4957     A     
 COMPASS            SA3    P2TEMPB     ROW INDEX                                           COMPASS    16100     A     
 COMPASS            SX0    1R--1R                                                          COMPASS    16101          I
          -CMP30  
 COMPASS            SA1    A1          REFETCH NAME FOR LOOKUP                             COMPASS    16102          I
          -CMP30  
 COMPASS            PL     X1,PEP2A    IF NOT CONDITIONAL                                  CMP30       4958     A     
 COMPASS            SX0    1R*-1R                                                          CMP30       4959     A     
 COMPASS            BX1    -X5*X1                                                          CMP30       4960     A     
 COMPASS            IX6    X6+X0                                                           COMPASS    16103     A     
 COMPASS            SA6    LINE+X3     STORE NAME                                          COMPASS    16104          I
          -CMP30  
 COMPASS   PEP2A    SA6    LINE+X3     STORE NAME                                          CMP30       4961     A     
 COMPASS            MX7    0                                                               COMPASS    16105     A     
 COMPASS            SA7    EXERR                                                           COMPASS    16106     A     
 COMPASS            RJ     ZTLUSYM     LOOK UP SYMBOL                                      COMPASS    16107     A     
 COMPASS            MX6    0                                                               COMPASS    16108     A     
 COMPASS            SA6    UERR                                                            COMPASS    16109     A     
 COMPASS            SA1    ELVAL       ERROR IF EXTERNAL OR NEGATIVE                       COMPASS    16110     A     
 COMPASS            SA3    =7A*******                                                      COMPASS    16111          I
          -CMP30  
 COMPASS            SA3    =20H *******                                                    CMP30       4962     A     
 COMPASS            SA4    A3+B1                                                           CMP30       4963     A     
 COMPASS            BX6    X3                                                              COMPASS    16112     A     
 COMPASS            SA2    ELEXT                                                           COMPASS    16113     A     
 COMPASS            SA3    EXERR       CHECK EXPRESSION ERROR                              COMPASS    16114     A     
 COMPASS            SA5    ELREL                                                           CPS010        91     A     
 COMPASS            BX2    X3+X2                                                           COMPASS    16115     A     
 COMPASS            NZ     X2,PEP4     IF BAD ENTRY POINT                                  COMPASS    16116     A     
 COMPASS            SB7    X1          OCTAL NUMBER                                        COMPASS    16117          I
          -CMP30  
 COMPASS            NG     B7,PEP4     IF NEGATIVE                                         COMPASS    16118          I
          -CMP30  
 COMPASS            SA2    ELREL                                                           CMP30       4964          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 957    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS010 
 COMPASS            MI     X1,PEP4     IF VALUE IS NEGATIVE                                CMP30       4965          I
          -CPS010 
 COMPASS            AX2    8                                                               CMP30       4966          I
          -CPS010 
 COMPASS            NZ     X2,PEP4     IF NEGATIVE RELOCATION                              CMP30       4967          I
          -CPS010 
 COMPASS            SX7    X5-401B                                                         CPS010        92     A     
 COMPASS            LX5    59-8                                                            CPS010        93          I
          -CPS251 
 COMPASS            BX2    X1                                                              CPS010        94          I
          -CPS251 
 COMPASS            PL     X5,PEP2B    IF POSITIVE RELOCATION                              CPS010        95          I
          -CPS251 
 COMPASS            NZ     X7,PEP4     IF NOT PROGRAM RELOCATION                           CPS010        96          I
          -CPS251 
 COMPASS            BX1    -X1                                                             CPS010        97          I
          -CPS251 
 COMPASS   PEP2B    MI     X2,PEP4     IF LESS THAN BLOCK ORIGIN                           CPS010        98          I
          -CPS251 
 COMPASS            RJ     CONOCT      CONVERT VALUE TO OCTAL                              COMPASS    16119          I
          -CPS251 
 COMPASS            MI     X7,PEP2B    IF +RELOCATION                                      CPS251         7     A     
 COMPASS            NZ     X7,PEP4     IF -COMMON RELOCATION                               CPS251         8     A     
 COMPASS            BX1    -X1                                                             CPS251         9     A     
 COMPASS                                                                                   CPS251        10     A     
 COMPASS   PEP2B    RJ     CONOCT      CONVERT TO OCTAL                                    CPS251        11     A     
 COMPASS            SA4    =10R                                                            F4820        741     A     
 COMPASS            SA1    ELREL                                                           CMP30       4968     A     
 COMPASS            LX6    12                                                              CMP30       4969     A     
 COMPASS            ZR     X1,PEP4     IF ABSOLUTE                                         CMP30       4970     A     
 COMPASS            SA3    LLB                                                             CMP30       4971     A     
 COMPASS            SX7    X1-401B                                                         CPS010        99     A     
 COMPASS            SX0    1R+-1R                                                          CMP30       4972     A     
 COMPASS            SX2    X1-1                                                            CMP30       4973     A     
 COMPASS            LX0    6                                                               CMP30       4974          I
          -CPS010 
 COMPASS            IX6    X6+X0       APPEND + AFTER VALUE                                CMP30       4975          I
          -CPS010 
 COMPASS            NZ     X7,PEP2C    IF NOT NEGATIVE PROGRAM RELOCATION                  CPS010       100     A     
 COMPASS            SX0    1R--1R                                                          CPS010       101     A     
 COMPASS            SX2    B0                                                              CPS010       102     A     
 COMPASS   PEP2C    LX0    6                                                               CPS010       103     A     
 COMPASS            IX6    X6+X0       APPEND + OR - AFTER VALUE                           CPS010       104     A     
 COMPASS            LX1    24                                                              CMP30       4976     A     
 COMPASS            BX3    X3-X1                                                           CMP30       4977     A     
 COMPASS            ZR     X2,PEP4     IF LOCAL SCM                                        CMP30       4978     A     
 COMPASS            NZ     X3,PEP3     IF NOT LOCAL LCM                                    CMP30       4979     A     
 COMPASS            LX0    60-12                                                           CMP30       4980     A     
 COMPASS            IX6    X6+X0       APPEND + BEFORE VALUE                               CMP30       4981     A     
 COMPASS            EQ     PEP4                                                            CMP30       4982     A     
 COMPASS   PEP3     SA3    O.USETAB    COMMON, GET BLOCK NAME AND TYPE                     CMP30       4983     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 958    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    UI                                                              RSM4159       40     A     
 COMPASS            IX3    X2+X3       BASE ADDRESS OF BLOCK GROUP                         RSM4159       41     A     
 COMPASS            SA2    X3+2                                                            CMP30       4984     A     
 COMPASS            SX4    1R/-1R      APPEND / AFTER + AFTER VALUE                        CMP30       4985     A     
 COMPASS            MX5    -9                                                              CMP30       4986     A     
 COMPASS            IX6    X6+X4                                                           CMP30       4987     A     
 COMPASS            LX5    24                                                              CMP30       4988     A     
 COMPASS   PEP3A    BX3    -X5*X2      SEARCH USE TABLE FOR BLOCK                          CMP30       4989     A     
 COMPASS            IX7    X3-X1       WITH MATCHING RELOCATION                            CMP30       4990     A     
 COMPASS            SA2    A2+4                                                            CMP30       4991     A     
 COMPASS            NZ     X7,PEP3A                                                        CMP30       4992     A     
 COMPASS            SA1    A2-6        GET BLOCK NAME                                      CMP30       4993     A     
 COMPASS            LX0    60-12                                                           CMP30       4994     A     
 COMPASS            BX7    X1                                                              CMP30       4995     A     
 COMPASS            SX4    1R/                                                             CMP30       4996     A     
 COMPASS            AX7    59                                                              CMP30       4997     A     
 COMPASS            BX1    X1-X7       UNCOMPLEMENT BLOCK NAME IF LCM                      CMP30       4998     A     
 COMPASS            BX0    X0*X7                                                           CMP30       4999     A     
 COMPASS            LX1    6                                                               CMP30       5000     A     
 COMPASS            IX6    X6+X0       APPEND + BEFORE VALUE IF LCM                        CMP30       5001     A     
 COMPASS            BX1    X1+X4       APPEND / AFTER BLOCK NAME                           CMP30       5002     A     
 COMPASS            SA6    ELEXT                                                           CMP30       5003     A     
 COMPASS            RJ     LJUST       LEFT JUSTIFY BLOCK NAME                             CMP30       5004     A     
 COMPASS            SA1    ELEXT                                                           CMP30       5005     A     
 COMPASS            BX4    X6                                                              CMP30       5006     A     
 COMPASS            LX6    X1                                                              CMP30       5007     A     
 COMPASS   PEP4     SA3    P2TEMPB                                                         COMPASS    16120     A     
 COMPASS            LX6    12                                                              COMPASS    16121          I
          -CMP30  
 COMPASS            BX7    X4                                                              CMP30       5008     A     
 COMPASS            SA6    LINE+1+X3                                                       COMPASS    16122     A     
 COMPASS            SA7    A6+B1                                                           CMP30       5009     A     
 COMPASS            SA2    A3-B1       INCREMENT TABLE INDEX                               COMPASS    16123     A     
 COMPASS            SA4    A3+B1                                                           COMPASS    16124     A     
 COMPASS            SX6    X3+2        INCREMENT LINE LENGTH                               COMPASS    16125          I
          -CMP30  
 COMPASS            SX6    X3+3        INCREMENT LINE LENGTH                               CMP30       5010     A     
 COMPASS            IX7    X2+X4                                                           COMPASS    16126     A     
 COMPASS            SA6    A3                                                              COMPASS    16127     A     
 COMPASS            SA7    A4                                                              COMPASS    16128     A     
 COMPASS            SA2    EI+1                                                            COMPASS    16129     A     
 COMPASS            IX6    X2-X7                                                           COMPASS    16130     A     
 COMPASS            SB7    X6                                                              COMPASS    16131     A     
 COMPASS            GT     B7,PEP2     LOOP TO END OF LINE                                 COMPASS    16132     A     
 COMPASS            RJ     LISTL                                                           COMPASS    16133     A     
 COMPASS            EQ     PEP1        LOOP                                                COMPASS    16134     A     
 COMPASS   PES      SPACE  4                                                               COMPASS    16135     A     
 COMPASS  **        PES - PRINT EXTERNAL SYMBOLS.                                          COMPASS    16136     A     
 COMPASS                                                                                   COMPASS    16137     A     
 COMPASS                                                                                   COMPASS    16138     A     
 COMPASS   PES      PS                 RETURN EXIT                                         COMPASS    16139     A     
 COMPASS            SA1    L.EXTAB                                                         COMPASS    16140     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 959    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X1,PES      IF NO EXTERNALS                                     COMPASS    16141     A     
 COMPASS            SX7    X1+7        COMPUTE NUMBER OF ROWS                              COMPASS    16142     A     
 COMPASS            AX7    3                                                               COMPASS    16143     A     
 COMPASS            SA1    O.EXTAB                                                         COMPASS    16144     A     
 COMPASS            SA7    P2TEMP      ENTRY INCREMENT                                     COMPASS    16145     A     
 COMPASS            BX6    X1                                                              COMPASS    16146     A     
 COMPASS            SA6    A7+B1       ENTRY ADDRESS                                       COMPASS    16147     A     
 COMPASS            SA7    A6+B1       ROW COUNT                                           COMPASS    16148     A     
 COMPASS            SX0    2                                                               COMPASS    16149     A     
 COMPASS            RJ     LBL                                                             COMPASS    16150     A     
 COMPASS            SA1    =H*EXTERNAL SYMBOLS.*                                           COMPASS    16151     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    16152     A     
 COMPASS            BX6    X1                                                              COMPASS    16153     A     
 COMPASS            LX7    X2                                                              COMPASS    16154     A     
 COMPASS            SA6    LINE                                                            COMPASS    16155     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16156     A     
 COMPASS            RJ     LIST2L                                                          COMPASS    16157     A     
 COMPASS                                                                                   COMPASS    16158     A     
 COMPASS   PES1     SA1    P2TEMPB     DECREMENT ROW COUNT                                 COMPASS    16159     A     
 COMPASS            SX6    X1-1                                                            COMPASS    16160     A     
 COMPASS            SA2    A1-B1       ENTRY INDEX                                         COMPASS    16161     A     
 COMPASS            SA6    A1                                                              COMPASS    16162     A     
 COMPASS            ZR     X1,PES      RETURN IF ALL ROWS LISTED                           COMPASS    16163     A     
 COMPASS            SX6    X2+B1       ADVANCE TABLE                                       COMPASS    16164     A     
 COMPASS            SA6    A2                                                              COMPASS    16165     A     
 COMPASS            SA3    A2-B1       SET ENTRY INCREMENT                                 COMPASS    16166     A     
 COMPASS            SB3    X2                                                              COMPASS    16167     A     
 COMPASS            SA4    O.EXTAB                                                         COMPASS    16168     A     
 COMPASS            SB4    X4                                                              COMPASS    16169     A     
 COMPASS            SA4    L.EXTAB                                                         COMPASS    16170     A     
 COMPASS            SB6    X3                                                              COMPASS    16171     A     
 COMPASS            SB4    X4+B4                                                           COMPASS    16172     A     
 COMPASS            SB5    B0                                                              COMPASS    16173     A     
 COMPASS   PES2     SA1    B3          LEFT JUSTIFY EXTERNAL NAME                          COMPASS    16174     A     
 COMPASS            MX0    1                                                               CP154         31     A     
 COMPASS            SB3    B3+B6                                                           CMP30       5011     A     
 COMPASS            BX5    X0*X1       SAVE WEAK-EXT FLAG FROM BIT 59                      CP154         32     A     
 COMPASS            IX1    X1-X5                                                           CP154         33     A     
 COMPASS            RJ     LJUST                                                           COMPASS    16175     A     
 COMPASS            LX5    0-59                                                            CP154         34     A     
 COMPASS            BX7    X7+X5       INSERT WEAK-EXT FLAG INTO BIT 0                     CP154         35     A     
 COMPASS            SA7    A1                                                              CP154         36     A     
 COMPASS   +        ZR     X5,*+1                                                          CP154         37     A     
 COMPASS            SX5    2R* -2R     INSERT ASTERISK IF WEAK EXTERNAL                    CP154         38     A     
 COMPASS   +        IX6    X6+X5                                                           CP154         39     A     
 COMPASS            SA6    LINE+B5     STORE NAME                                          COMPASS    16176     A     
 COMPASS            SB5    B5+B1                                                           COMPASS    16177     A     
 COMPASS            SB3    B3+B6                                                           COMPASS    16178          I
          -CMP30  
 COMPASS            SA7    A1                                                              CMP30       5012          I
          -CP154  
 COMPASS            LT     B3,B4,PES2  LOOP TO END OF LINE                                 COMPASS    16179     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 960    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     LISTL       LIST LINE                                           COMPASS    16180     A     
 COMPASS            EQ     PES1        LOOP                                                COMPASS    16181     A     
 COMPASS   PLM      SPACE  4                                                               COMPASS    16182     A     
 COMPASS  **        PLM - PRINT LOAD MAP.                                                  COMPASS    16183     A     
 COMPASS                                                                                   COMPASS    16184     A     
 COMPASS                                                                                   COMPASS    16185     A     
 COMPASS   PLM      PS                 RETURN EXIT                                         COMPASS    16186     A     
 COMPASS            SA1    LISTFG                                                          COMPASS    16187          I
          -CMP30  
 COMPASS            SA1    CP.LISTF                                                        CMP30       5013     A     
 COMPASS            SA2    LB+1                                                            COMPASS    16188     A     
 COMPASS            BX1    X1*X2                                                           COMPASS    16189     A     
 COMPASS            ZR     X1,PLM3     IF NO LIST                                          COMPASS    16190     A     
 COMPASS            MX7    0                                                               COMPASS    16191     A     
 COMPASS            SA7    SI          SEGTAB INDEX                                        COMPASS    16192     A     
 COMPASS            SA1    =H*        STORAGE ALLOCATION.*                                 COMPASS    16193     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    16194     A     
 COMPASS            BX6    X1                                                              COMPASS    16195     A     
 COMPASS            LX7    X2                                                              COMPASS    16196     A     
 COMPASS            SA1    A2+B1                                                           COMPASS    16197     A     
 COMPASS            SA6    SUBTIT                                                          COMPASS    16198     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16199     A     
 COMPASS            BX6    X1                                                              COMPASS    16200     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    16201     A     
 COMPASS            SX6    B1                                                              COMPASS    16202     A     
 COMPASS            SA6    SUPREF                                                          COMPASS    16203     A     
 COMPASS   PLM1     RJ     AEI         ADVANCE EPTAB INDEX                                 COMPASS    16204     A     
 COMPASS            RJ     PSN         PRINT SEGMENT NAMES                                 COMPASS    16205     A     
 COMPASS            RJ     PBN         PRINT BLOCK NAMES                                   COMPASS    16206     A     
 COMPASS            RJ     PEP         PRINT ENTRY POINTS                                  COMPASS    16207     A     
 COMPASS            RJ     PES         PRINT EXTERNAL SYMBOLS                              COMPASS    16208     A     
 COMPASS            SA1    L.SEGTAB                                                        COMPASS    16209     A     
 COMPASS            SA2    SI                                                              COMPASS    16210     A     
 COMPASS            IX6    X1-X2                                                           COMPASS    16211     A     
 COMPASS            SX6    X6-4                                                            COMPASS    16212     A     
 COMPASS            ZR     X6,PLM2     IF END OF TABLE                                     COMPASS    16213     A     
 COMPASS            SX0    4           LIST BLANK LINES                                    COMPASS    16214     A     
 COMPASS            RJ     LBL                                                             COMPASS    16215     A     
 COMPASS            EQ     PLM1        LOOP                                                COMPASS    16216     A     
 COMPASS   PLM2     SA1    LPCNT       FORCE PAGE EJECT                                    COMPASS    16217     A     
 COMPASS            SA2    PSIZE                                                           COMPASS    16218     A     
 COMPASS            IX7    X1+X2                                                           COMPASS    16219     A     
 COMPASS            SA7    A1                                                              COMPASS    16220     A     
 COMPASS            NZ     X2,PLM5     IF PAGE EJECT NOT SUPPRESSED                        CPSA208       38     A     
 COMPASS            SX0    4                                                               CPSA208       39     A     
 COMPASS            RJ     LBL         ELSE PRINT BLANK LINES                              CPSA208       40     A     
 COMPASS   PLM3     SA1    =1H         CLEAR SUBTITLE                                      COMPASS    16221          I
          -CMP30  
 COMPASS            EQ     PLM5                                                            CMP30       5014     A     
 COMPASS                                                                                   CMP30       5015     A     
 COMPASS   PLM3     SA1    O.EXTAB     NO LIST - LEFT JUSTIFY EXTERNAL SYMBOLS             CMP30       5016     A     
 COMPASS            SA2    L.EXTAB                                                         CMP30       5017     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 961    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB3    X1                                                              CMP30       5018     A     
 COMPASS            SB5    X2                                                              CMP30       5019     A     
 COMPASS            ZR     B5,PLM5     IF NO EXTERNAL SYMBOLS                              CMP30       5020     A     
 COMPASS   PLM4     SA1    B3                                                              CMP30       5021     A     
 COMPASS            MX0    1                                                               CP154         40     A     
 COMPASS            SB5    B5-B1                                                           CMP30       5022     A     
 COMPASS            BX5    X0*X1       SAVE WEAK-EXT FLAG FROM BIT 59                      CP154         41     A     
 COMPASS            IX1    X1-X5                                                           CP154         42     A     
 COMPASS            RJ     LJUST       LEFT JUSTIFY SYMBOL                                 CMP30       5023     A     
 COMPASS            LX5    0-59                                                            CP154         43     A     
 COMPASS            BX7    X7+X5       INSERT WEAK-EXT FLAG INTO BIT 0                     CP154         44     A     
 COMPASS            SB3    B3+B1                                                           CMP30       5024     A     
 COMPASS            SA7    A1                                                              CMP30       5025     A     
 COMPASS            NZ     B5,PLM4     LOOP                                                CMP30       5026     A     
 COMPASS                                                                                   CMP30       5027     A     
 COMPASS   PLM5     SA1    =1H         CLEAR SUBTITLE                                      CMP30       5028     A     
 COMPASS            MX7    0           RESET ORGCTR                                        COMPASS    16222     A     
 COMPASS            BX6    X1                                                              COMPASS    16223     A     
 COMPASS            SA7    SI                                                              COMPASS    16224     A     
 COMPASS            SA7    ORGCTR                                                          COMPASS    16225     A     
 COMPASS            SA6    SUBTIT                                                          COMPASS    16226     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16227     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16228     A     
 COMPASS            SA7    SEQ                                                             COMPASS    16229     A     
 COMPASS            RJ     AEI         ADVANCE ENTRY INDEX                                 COMPASS    16230     A     
 COMPASS            SX6    10          RESTORE NUMBER BASE                                 COMPASS    16231     A     
 COMPASS            SA6    NBASE                                                           COMPASS    16232     A     
 COMPASS            EQ     PLM         RETURN                                              COMPASS    16233     A     
 COMPASS   PLO      SPACE  4                                                               COMPASS    16234     A     
 COMPASS  **        PLO - PRESET LIST OPTIONS.                                             COMPASS    16235     A     
 COMPASS                                                                                   COMPASS    16236     A     
 COMPASS                                                                                   COMPASS    16237     A     
 COMPASS   PLO      PS                 RETURN EXIT                                         COMPASS    16238     A     
 COMPASS            SA1    CP.LISTF    IF  L = 0                                           CPS010       105     A     
 COMPASS            SA2    LL+1        OR  LIST -L                                         CPS010       106     A     
 COMPASS            SA3    LR+1        OR  LIST -R                                         CPS010       107     A     
 COMPASS            SX6    B1                                                              CPS010       108     A     
 COMPASS            BX4    X1*X6       THEN SET PERMANENT REFERENCE                        CPS010       109     A     
 COMPASS            BX5    X2*X3       SUPPRESSION FLAG = 0                                CPS010       110     A     
 COMPASS            BX6    X4*X5                                                           CPS010       111     A     
 COMPASS            SA6    LXRF                                                            CPS010       112     A     
 COMPASS            SB7    LLISTOPS/2  INITIALIZE LIST OPTIONS                             COMPASS    16239     A     
 COMPASS            SA1    LISTOPS                                                         COMPASS    16240     A     
 COMPASS   PLO1     SX6    X1                                                              COMPASS    16241     A     
 COMPASS            SA6    A1+B1                                                           COMPASS    16242     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    16243     A     
 COMPASS            SA1    A6+B1                                                           COMPASS    16244     A     
 COMPASS            NZ     B7,PLO1     LOOP                                                COMPASS    16245     A     
 COMPASS            SA1    LISTFG      SET CROSS-REF FLAG                                  COMPASS    16246          I
          -CMP30  
 COMPASS            SA1    CP.LISTF    SET CROSS-REF FLAG                                  CMP30       5029          I
          -CPS010 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 962    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    LR                                                              COMPASS    16247          I
          -CPS010 
 COMPASS            UX2    X2                                                              COMPASS    16248          I
          -CPS010 
 COMPASS            BX6    X1*X2                                                           COMPASS    16249          I
          -CPS010 
 COMPASS            SA6    A2+B1                                                           COMPASS    16250          I
          -CPS010 
 COMPASS            RJ     SVF         SAVE LIST FLAGS                                     COMPASS    16251          I
          -CMP30  
 COMPASS            EQ     PLO         RETURN                                              COMPASS    16252     A     
 COMPASS   PLT      SPACE  4                                                               CMP17         45     A     
 COMPASS  **        PLT - PRINT LITERAL TABLE.                                             CMP17         46     A     
 COMPASS                                                                                   CMP17         47     A     
 COMPASS                                                                                   CMP17         48     A     
 COMPASS   PLT      PS                 RETURN EXIT                                         CMP17         49     A     
 COMPASS            SA1    =1H                                                             CPS010       113     A     
 COMPASS            SA2    LD+1                                                            CMP17A         1     A     
 COMPASS            SA3    LL+1                                                            CMP17A         2     A     
 COMPASS            SA4    LISTFG                                                          CMP17A         3          I
          -CMP30  
 COMPASS            SA4    CP.LISTF                                                        CMP30       5030     A     
 COMPASS            BX3    X2*X3                                                           CMP17A         4     A     
 COMPASS            LX6    X1          CLEAR UNAME                                         CPS010       114     A     
 COMPASS            BX3    X3*X4                                                           CMP17A         5          I
          -CPS069 
 COMPASS            SA6    UNAME                                                           CPS010       115          I
          -CPS069 
 COMPASS            SA1    O.USETAB                                                        CPS069         1     A     
 COMPASS            SA2    UI                                                              CPS069         2     A     
 COMPASS            IX1    X1+X2                                                           CPS069         3     A     
 COMPASS            BX3    X3*X4                                                           CPS069         4     A     
 COMPASS            SA1    X1+2*4+2                                                        CPS069         5     A     
 COMPASS            SA2    LPGM                                                            CPS069         6     A     
 COMPASS            AX1    33          LWA OF LITERALS BLOCK                               CPS069         7     A     
 COMPASS            IX2    X2-X1                                                           CPS069         8     A     
 COMPASS            SA6    UNAME                                                           CPS069         9     A     
 COMPASS   +        PL     X2,*+1      IF LITERALS BLOCK INSIDE SEGMENT                    CPS069        10     A     
 COMPASS            SX3    B1          LIST LITERALS BLOCK IF OUTSIDE SEGMENT              CPS069        11     A     
 COMPASS            ZR     X3,PLT      IF LIST -D OR LIST -L OR L=0                        CMP17A         6     A     
 COMPASS            RJ     LDL         LIST DEFERRED LINE                                  CMP17         50     A     
 COMPASS            SA1    =1H                                                             CMP17         51          I
          -CPS010 
 COMPASS            SA2    LD+1                                                            CMP17         52          I
          -CMP17A 
 COMPASS            SA3    LL+1                                                            CMP17         53          I
          -CMP17A 
 COMPASS            SA4    LISTFG                                                          CMP17         54          I
          -CMP17A 
 COMPASS            LX6    X1                                                              CMP17         55          I
          -CPS010 
 COMPASS            BX3    X2*X3                                                           CMP17         56          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 963    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP17A 
 COMPASS            SA6    UNAME       CLEAR UNAME                                         CMP17         57          I
          -CPS010 
 COMPASS            BX3    X3*X4                                                           CMP17         58          I
          -CMP17A 
 COMPASS            ZR     X3,PLT16    IF LIST -D OR LIST -L OR L=0                        CMP17         59          I
          -CMP17A 
 COMPASS            SA1    =0RLITERALS                                                     CMP17         60     A     
 COMPASS            SA2    IND                                                             CMP17         61     A     
 COMPASS            BX7    X1                                                              CMP17         62     A     
 COMPASS            SA6    QNAME       CLEAR QNAME                                         CMP17         63     A     
 COMPASS            SA7    SUBNAME     SUBNAME = *LITERALS*                                CMP17         64     A     
 COMPASS            ZR     X2,PLT1     IF IND = 0                                          CMP17         65     A     
 COMPASS            MX6    0                                                               CMP17         66     A     
 COMPASS            SB6    ERFLAGS                                                         CMP17         67     A     
 COMPASS            SB7    LEFLG-1                                                         CMP17         68     A     
 COMPASS            SA6    EFLG                                                            CMP17         69     A     
 COMPASS   +        SA6    B6+B7       CLEAR ERROR FLAGS                                   CMP17         70     A     
 COMPASS            SB7    B7-B1                                                           CMP17         71     A     
 COMPASS            PL     B7,*                                                            CMP17         72     A     
 COMPASS            SB7    LIBFLG-NOAS-1                                                   CMP17         73     A     
 COMPASS            SA6    LIBFLG                                                          CMP17         74     A     
 COMPASS   +        SB7    B7-B1       CLEAR INDICATORS                                    CMP17         75     A     
 COMPASS            SA6    A6-B1                                                           CMP17         76     A     
 COMPASS            PL     B7,*                                                            CMP17         77     A     
 COMPASS   PLT1     SX6    LINE+9*NCARDS                                                   CMP17         78     A     
 COMPASS            MX1    0                                                               CMP17         79     A     
 COMPASS            SA6    LLINE                                                           CMP17         80     A     
 COMPASS            RJ     SQV         SET BLANK QUALIFIER                                 CMP17         81     A     
 COMPASS            RJ     CUL         CLEAN UP LINE AREA                                  CMP17         82     A     
 COMPASS            SX6    B1                                                              CMP17         83     A     
 COMPASS            SA6    PLFLG                                                           CMP17         84     A     
 COMPASS                                                                                   CMP17         85     A     
 COMPASS  **        LIST SYMBOL LITERALS WHICH COMPASS DEFINED BY DEFAULT.                 CMP17         86     A     
 COMPASS                                                                                   CMP17         87     A     
 COMPASS            SA1    DI                                                              CMP17         88     A     
 COMPASS            SA2    A1+B1                                                           CMP17         89     A     
 COMPASS            SA3    O.SLITS                                                         CMP17         90     A     
 COMPASS            IX2    X2-X1                                                           CMP17         91     A     
 COMPASS            ZR     X2,PLT6     IF NO SYMBOL LITERALS                               CMP17         92     A     
 COMPASS            IX3    X3+X1                                                           CMP17         93     A     
 COMPASS            SB7    X2                                                              CMP17         94     A     
 COMPASS            SA1    X3                                                              CMP17         95     A     
 COMPASS   +        NG     X1,PLT2     IF DEFINED BY COMPASS                               CMP17         96     A     
 COMPASS            SB7    B7-B1                                                           CMP17         97     A     
 COMPASS            SA1    A1+B1                                                           CMP17         98     A     
 COMPASS            NZ     B7,*-1                                                          CMP17         99     A     
 COMPASS            EQ     PLT6        IF ALL DEFINED BY PROGRAMMER                        CMP17        100     A     
 COMPASS   PLT2     RJ     LISTER                                                          CMP17        101     A     
 COMPASS            SX1    4                                                               CMP17        102     A     
 COMPASS            SX2    =H+DEFAULT SYMBOLS DEFINED BY COMPASS.+                         CMP17        103     A     
 COMPASS            SX3    LINE                                                            CMP17        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/28. 19.11.32.      PAGE 964    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RJ     MOVE                                                            CMP17        105     A     
 COMPASS            RJ     LISTER                                                          CMP17        106     A     
 COMPASS            RJ     LISTER                                                          CMP17        107     A     
 COMPASS            SX6    B1                                                              CMP17        108          I
          -CPS010 
 COMPASS            SA6    SUPREF                                                          CMP17        109          I
          -CPS010 
 COMPASS   PLT3     SA1    DI          GET NEXT SYMBOL                                     CMP17        110     A     
 COMPASS            SA2    A1+B1                                                           CMP17        111     A     
 COMPASS            SA3    O.SLITS                                                         CMP17        112     A     
 COMPASS            IX2    X2-X1                                                           CMP17        113     A     
 COMPASS            SX6    X1+B1                                                           CMP17        114     A     
 COMPASS            IX3    X1+X3                                                           CMP17        115     A     
 COMPASS            SA6    A1                                                              CMP17        116     A     
 COMPASS            ZR     X2,PLT5     IF END OF TABLE                                     CMP17        117     A     
 COMPASS            SA1    X3                                                              CMP17        118     A     
 COMPASS            MX0    12                                                              CMP17        119     A     
 COMPASS            PL     X1,PLT3     IF DEFINED BY PROGRAMMER                            CMP17        120     A     
 COMPASS            BX1    -X0*X1                                                          CMP17        121     A     
 COMPASS            RJ     LJUST       STORE SYMBOL LEFT JUSTIFIED                         CMP17        122     A     
 COMPASS            SA6    LINE                                                            CMP17        123     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      CMP17        124     A     
 COMPASS            LX2    59-31                                                           CMP17        125     A     
 COMPASS            PL     X2,PLT4     IF NOT EXTERNAL                                     CMP17        126     A     
 COMPASS            SX6    1RX                                                             CMP17        127          I
          -CP154  
 COMPASS            LX2    0-21-59+31                                                      CP154         45     A     
 COMPASS            SA1    O.EXTAB                                                         CP154         46     A     
 COMPASS            MX0    -9          EXTRACT EXTERNAL NUMBER                             CP154         47     A     
 COMPASS            BX6    -X0*X2                                                          CP154         48     A     
 COMPASS            SB7    X1-1                                                            CP154         49     A     
 COMPASS            SA1    B7+X6       FETCH EXTAB ENTRY (WEAK-EXT FLAG IN BIT 0)          CP154         50     A     
 COMPASS            LX2    59-31-0+21                                                      CP154         51     A     
 COMPASS            SX6    1RX+X1      SET *X* OR *Y*                                      CP154         52     A     
 COMPASS            SA6    OCTAL+15                                                        CMP17        128     A     
 COMPASS   PLT4     LX2    32                                                              CMP17        129     A     
 COMPASS            BX3    X3-X3                                                           CMP17        130     A     
 COMPASS            MX0    -21                                                             CMP17        131     A     
 COMPASS            BX1    -X0*X2      VALUE                                               CMP17        132     A     
 COMPASS            SX2    14                                                              CMP17        133     A     
 COMPASS            RJ     PACKO       CALL PACKO (VALUE,14,0)                             CMP17        134     A     
 COMPASS            RJ     LISTER                                                          CMP17        135     A     
 COMPASS            EQ     PLT3        LOOP                                                CMP17        136     A     
 COMPASS   PLT5     SA1    LI                                                              CMP17        137     A     
 COMPASS            SA2    A1+B1                                                           CMP17        138     A     
 COMPASS            IX2    X2-X1                                                           CMP17        139     A     
 COMPASS            ZR     X2,PLT10    IF NO LITERALS                                      CMP17        140     A     
 COMPASS            EQ     PLT7                                                            CMP17        141     A     
 COMPASS                                                                                   CMP17        142     A     
 COMPASS  **        LIST CONTENT OF LITERALS BLOCK.                                        CMP17        143     A     
 COMPASS                                                                                   CMP17        144     A     
 COMPASS   PLT6     SA1    LI                                                              CMP17        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/28. 19.11.32.      PAGE 965    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    A1+B1                                                           CMP17        146     A     
 COMPASS            IX2    X2-X1                                                           CMP17        147     A     
 COMPASS            ZR     X2,PLT11    IF NO LITERALS                                      CMP17        148     A     
 COMPASS   PLT7     RJ     LISTER                                                          CMP17        149     A     
 COMPASS            SX1    3                                                               CMP17        150     A     
 COMPASS            SX2    =H+CONTENT OF LITERALS BLOCK.+                                  CMP17        151     A     
 COMPASS            SX3    LINE                                                            CMP17        152     A     
 COMPASS            RJ     MOVE                                                            CMP17        153     A     
 COMPASS            RJ     LISTER                                                          CMP17        154     A     
 COMPASS            RJ     LISTER                                                          CMP17        155     A     
 COMPASS            SA1    O.USETAB                                                        CMP17        156     A     
 COMPASS            SA2    UI                                                              CMP17        157     A     
 COMPASS            MX0    -21                                                             CMP17        158     A     
 COMPASS            IX1    X1+X2                                                           CMP17        159     A     
 COMPASS            SA1    X1+14                                                           CMP17        160          I
          -CMP30  
 COMPASS            SA1    X1+2*4+2                                                        CMP30       5031     A     
 COMPASS            BX6    -X0*X1                                                          CMP17        161     A     
 COMPASS            SA6    ORGCTR      ORGCTR = FWA OF LITERALS BLOCK                      CMP17        162     A     
 COMPASS   PLT8     SA1    LI                                                              CMP17        163     A     
 COMPASS            SA2    A1+B1                                                           CMP17        164     A     
 COMPASS            SA3    O.LITAB                                                         CMP17        165     A     
 COMPASS            IX2    X2-X1                                                           CMP17        166     A     
 COMPASS            SX6    X1+B1                                                           CMP17        167     A     
 COMPASS            IX3    X1+X3                                                           CMP17        168     A     
 COMPASS            SA6    A1                                                              CMP17        169     A     
 COMPASS            ZR     X2,PLT10    IF END OF TABLE                                     CMP17        170     A     
 COMPASS            SA5    MACHINE                                                         CPS010       116     A     
 COMPASS            SA1    X3                                                              CMP17        171     A     
 COMPASS            MX0    -6                                                              CMP17        172     A     
 COMPASS            SX7    1R                                                              CMP17        173     A     
 COMPASS            BX6    X1                                                              CMP17        174          I
          -CPS010 
 COMPASS            MX2    0                                                               CPS010       117     A     
 COMPASS   +        ZR     X5,*+1      IF CPU ASSEMBLY                                     CPS010       118     A     
 COMPASS            MX2    -12                                                             CPS010       119     A     
 COMPASS   +        BX6    -X2*X1                                                          CPS010       120     A     
 COMPASS            SB7    10                                                              CMP17        175     A     
 COMPASS   +        BX4    -X0*X6                                                          CMP17        176     A     
 COMPASS            NZ     X4,*+1      IF NOT 00 CHARACTER                                 CMP17        177     A     
 COMPASS            BX6    X6+X7                                                           CMP17        178     A     
 COMPASS   +        SB7    B7-B1                                                           CMP17        179     A     
 COMPASS            LX6    6                                                               CMP17        180     A     
 COMPASS            NZ     B7,*-1      LOOP                                                CMP17        181     A     
 COMPASS            SA4    MACHINE                                                         CMP17        182     A     
 COMPASS            SX2    36                                                              CMP17        183     A     
 COMPASS            SX3    20                                                              CMP17        184     A     
 COMPASS            ZR     X4,PLT9     IF CPU ASSEMBLY                                     CMP17        185     A     
 COMPASS            SX2    25                                                              CMP17        186     A     
 COMPASS            SX3    4                                                               CMP17        187          I
          -CPSA281
 COMPASS            SA3    PPBYT                                                           CPSA281      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/28. 19.11.32.      PAGE 966    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   PLT9     SA6    LINE                                                            CMP17        188     A     
 COMPASS            RJ     PACKO       PACK VALUE                                          CMP17        189     A     
 COMPASS            SA1    ORGCTR                                                          CMP17        190          I
          -CPS069 
 COMPASS            SA4    MACHINE                                                         CMP17        191          I
          -CPS069 
 COMPASS            SA1    O.USETAB                                                        CPS069        12     A     
 COMPASS            SA2    UI                                                              CPS069        13     A     
 COMPASS            IX1    X1+X2                                                           CPS069        14     A     
 COMPASS            SA1    X1+2*4+2                                                        CPS069        15     A     
 COMPASS            AX1    33          LWA OF LITERALS BLOCK                               CPS069        16     A     
 COMPASS            SA2    LPGM                                                            CPS069        17     A     
 COMPASS            IX2    X2-X1                                                           CPS069        18     A     
 COMPASS            SX6    B1                                                              CPS069        19     A     
 COMPASS            SA1    ORGCTR                                                          CPS069        20     A     
 COMPASS            PL     X2,PLT9A    IF LITERALS BLOCK WITHIN SEGMENT                    CPS069        21     A     
 COMPASS            SA6    RERR        RANGE ERROR IF LIT BLOCK OUTSIDE SEGMENT            CPS069        22     A     
 COMPASS            SA6    EFLG                                                            CPS069        23     A     
 COMPASS   PLT9A    SA4    MACHINE                                                         CPS069        24     A     
 COMPASS            SX2    14                                                              CMP17        192     A     
 COMPASS            MX3    0                                                               CMP17        193     A     
 COMPASS            SX6    X1+B1       ADVANCE ORGCTR                                      CMP17        194     A     
 COMPASS            LX5    X4,B1                                                           CMP17        195     A     
 COMPASS            SA6    A1                                                              CMP17        196     A     
 COMPASS            IX2    X2-X5                                                           CMP17        197     A     
 COMPASS            RJ     PACKO       PACK LOCATION                                       CMP17        198     A     
 COMPASS            RJ     LISTER                                                          CMP17        199     A     
 COMPASS            EQ     PLT8        LOOP                                                CMP17        200     A     
 COMPASS                                                                                   CMP17        201     A     
 COMPASS  *         WRAPUP.                                                                CMP17        202     A     
 COMPASS                                                                                   CMP17        203     A     
 COMPASS   PLT10    RJ     LISTER                                                          CMP17        204     A     
 COMPASS   PLT11    SA1    QVAL+1      RESTORE QUAL VALUE                                  CMP17        205     A     
 COMPASS            SA2    O.QVTAB                                                         CMP17        206     A     
 COMPASS            BX6    X1                                                              CMP17        207     A     
 COMPASS            LX1    12                                                              CMP17        208     A     
 COMPASS            SA6    A1-B1                                                           CMP17        209     A     
 COMPASS            SB7    X2-1                                                            CMP17        210     A     
 COMPASS            ZR     X1,PLT12    IF BLANK QUALIFIER                                  CMP17        211     A     
 COMPASS            SA1    X1+B7       GET QUAL SYMBOL                                     CMP17        212     A     
 COMPASS            MX6    -48                                                             CMP17        213     A     
 COMPASS            BX1    -X6*X1                                                          CMP17        214     A     
 COMPASS   PLT12    RJ     LJUST       LEFT JUSTIFY AND                                    CMP17        215     A     
 COMPASS            SA6    QNAME       STORE WITH BLANK FILL                               CMP17        216     A     
 COMPASS            SA1    IND                                                             CMP17        217     A     
 COMPASS            ZR     X1,PLT15    IF IND = 0                                          CMP17        218     A     
 COMPASS            SB7    LEFLG-1                                                         CMP17        219     A     
 COMPASS            SB6    ERFLAGS+1                                                       CMP17        220     A     
 COMPASS            MX0    60-LEFLG                                                        CMP17        221     A     
 COMPASS            SX6    B1                                                              CMP17        222     A     
 COMPASS            BX2    -X0*X1                                                          CMP17        223     A     
 COMPASS            SX5    B1                                                              CMP17        224     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 967    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X2,PLT13    IF NO ERRORS                                        CMP17        225     A     
 COMPASS            SA6    EFLG                                                            CMP17        226     A     
 COMPASS   PLT13    BX6    X5*X1       RESTORE ERROR FLAGS                                 CMP17        227     A     
 COMPASS            SB7    B7-B1                                                           CMP17        228     A     
 COMPASS            LX1    59                                                              CMP17        229     A     
 COMPASS            SA6    B6+B7                                                           CMP17        230     A     
 COMPASS            PL     B7,PLT13                                                        CMP17        231     A     
 COMPASS            AX1    30-LEFLG                                                        CMP17        232     A     
 COMPASS            SB7    LIBFLG-NOAS-1                                                   CMP17        233     A     
 COMPASS            BX6    X5*X1                                                           CMP17        234     A     
 COMPASS            AX1    1                                                               CMP17        235     A     
 COMPASS            SA6    LIBFLG                                                          CMP17        236     A     
 COMPASS   PLT14    BX6    X5*X1       RESTORE INDICATORS                                  CMP17        237     A     
 COMPASS            SB7    B7-B1                                                           CMP17        238     A     
 COMPASS            AX1    1                                                               CMP17        239     A     
 COMPASS            SA6    A6-B1                                                           CMP17        240     A     
 COMPASS            PL     B7,PLT14                                                        CMP17        241     A     
 COMPASS   PLT15    MX6    0           PREPARE TO PRINT *END* OR *IDENT* CARD              CMP17        242     A     
 COMPASS            SA6    DETFLG                                                          CMP17        243     A     
 COMPASS            SA6    PLFLG                                                           CMP17        244     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   CMP17        245     A     
 COMPASS   PLT16    MX6    0                                                               CMP17        246     A     
 COMPASS            SA6    SUBNAME     CLEAR SUBNAME                                       CMP17        247     A     
 COMPASS            EQ     PLT                                                             CMP17        248     A     
 COMPASS   PRS      SPACE  4                                                               COMPASS    16253     A     
 COMPASS  **        PRS - PRESET CONSTANTS.                                                COMPASS    16254     A     
 COMPASS                                                                                   COMPASS    16255     A     
 COMPASS                                                                                   COMPASS    16256     A     
 COMPASS   PRS      PS                 RETURN EXIT                                         COMPASS    16257     A     
 COMPASS            SX7    B1                                                      F4810A  F4810A       336     A     
 COMPASS            SA7    P2TEMPA     INDICATE LINE NUMBER FOR NO HEADER PRINTED  F4810A  F4810A       337     A     
 COMPASS            SX6    B0                                                              COMPASS    16258     A     
 COMPASS            SB7    LEFLG-1     CLEAR OUT PAGE-RECORD OF ERRORS                     COMPASS    16259     A     
 COMPASS            SA6    LSLB                                                            COMPASS    16260     A     
 COMPASS   PRS1     SB7    B7-B1                                                           COMPASS    16261     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16262     A     
 COMPASS            NZ     B7,PRS1                                                         COMPASS    16263     A     
 COMPASS            SA2    PAGE        CHECK PAGE OPTION                                   COMPASS    16264          I
          -CMP30  
 COMPASS            SA1    PGCNT                                                           COMPASS    16265          I
          -CMP30  
 COMPASS            SX6    X2                                                              COMPASS    16266          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    16267          I
          -CMP30  
 COMPASS            SA2    CP.PAGE                                                         CMP30       5032     A     
 COMPASS            PL     X2,PRS4     IF PROPAGATING PAGE NUMBERS                         COMPASS    16268     A     
 COMPASS            SA3    LISTFG                                                          COMPASS    16269          I
          -CMP30  
 COMPASS            SX6    B0          CLEAR PAGE NUMBER                                   COMPASS    16270          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    16271          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 968    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            LX1    59                                                              COMPASS    16272          I
          -CMP30  
 COMPASS            SA3    CP.LISTF                                                        CMP30       5033     A     
 COMPASS            ZR     X3,PRS4     IF NO LIST                                          COMPASS    16273     A     
 COMPASS            PL     X1,PRS2     IF PAGE COUNT EVEN                                  COMPASS    16274          I
          -CMP30  
 COMPASS            WRITEW O,(=2L1 ),1                                                     COMPASS    16275          I
          -CMP30  
 COMPASS   PRS2     SA2    E                                                               COMPASS    16276          I
          -CMP30  
 COMPASS            SA2    E                                                               CMP30       5034     A     
 COMPASS            ZR     X2,PRS4     IF ERROR FILE SAME AS OUTPUT FILE                   COMPASS    16277     A     
 COMPASS            SA1    CP.BATCH                                                        CPS198         5     A     
 COMPASS            LX1    59-11                                                           CPS198         6     A     
 COMPASS            NG     X1,PRS4     IF COMPASS WAS CALLED BY A COMPILER                 CPS198         7     A     
 COMPASS            SA1    O+2                                                             COMPASS    16278          I
          -CMP30  
 COMPASS            SA2    A1+B1                                                           COMPASS    16279          I
          -CMP30  
 COMPASS            BX6    X1-X2                                                           COMPASS    16280          I
          -CMP30  
 COMPASS            ZR     X6,PRS3     IF NO DATA IN OUTPUT BUFFER                         COMPASS    16281          I
          -CMP30  
 COMPASS            WRITER O,R                                                             COMPASS    16282          I
          -CMP30  
 COMPASS   PRS3     SA1    IDNAM       WRITE HEADER                                        COMPASS    16283          I
          -CMP30  
 COMPASS                                                                           F4810A  F4810A       338     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                 F4810A  F4810A       339     A     
 COMPASS                                                                           F4810A  F4810A       340     A     
 COMPASS            SX7    B1+B1                                                   F4810A  F4810A       341     A     
 COMPASS            SA7    A7          2 INDICATES LINE COUNT AFTER HEADER PRINTED F4810A  F4810A       342     A     
 COMPASS            SA1    FRSTLIN                                                 F4810A  F4810A       343          I
          -CPS239 
 COMPASS            ZR     X1,PRS1A    IF NO NEED TO RESET PRINTER DENSITY         F4810A  F4810A       344          I
          -CPS239 
 COMPASS            WRITEH O,FRSTLIN,1 ELSE RESET PRINTER DENSITY                  F4810A  F4810A       345          I
          -CPS239 
 COMPASS            MX6    60                                                      F4810A  F4810A       346          I
          -CPS239 
 COMPASS            SA6    FRSTLIN     -0 INDICATES THAT PRINTER HAS BEEN RESET    F4810A  F4810A       347          I
          -CPS239 
 COMPASS   PRS1A    BSS    0                                                       F4810A  F4810A       348          I
          -CPS239 
 COMPASS            SA1    IDNAM       WRITE HEADER                                        CMP30       5035     A     
 COMPASS            RJ     LJUST                                                           COMPASS    16284     A     
 COMPASS                                                                                   CMP30       5036          I
          -F4810A 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5037          I
          -F4810A 
 COMPASS                                                                                   CMP30       5038          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 969    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -F4810A 
 COMPASS            MX0    36                                                              COMPASS    16285     A     
 COMPASS            SX1    1R*                                                             COMPASS    16286     A     
 COMPASS            BX0    X0*X7                                                           COMPASS    16287     A     
 COMPASS            BX7    X0+X1                                                           COMPASS    16288     A     
 COMPASS            LX7    -6                                                              COMPASS    16289     A     
 COMPASS            SA7    P2TEMP                                                          COMPASS    16290     A     
 COMPASS            WRITEW O,A7,1                                                          COMPASS    16291     A     
 COMPASS            SA1    CP.PAGE                                                         CPS236        63     A     
 COMPASS            LX0    X1,B1                                                           CPS236        64     A     
 COMPASS            MI     X0,PRS4     FILE ALREADY WRITTEN TO                             CPS236        65     A     
 COMPASS            MX0    1                                                               CPS236        66     A     
 COMPASS            LX0    -1                                                              CPS236        67     A     
 COMPASS            BX7    X1+X0                                                           CPS236        68     A     
 COMPASS            SA7    CP.PAGE     SET FIRST WRITING FLAG                              CPS236        69     A     
 COMPASS            SA1    FRSTLIN                                                         CPS239         4     A     
 COMPASS            ZR     X1,PRS4     IF NO NEED TO RESET PRINTER DENSITY                 CPS239         5     A     
 COMPASS            WRITEH O,FRSTLIN,1 ELSE RESET PRINTER DENSITY                          CPS239         6     A     
 COMPASS            MX6    60                                                              CPS239         7          I
          -CPS236 
 COMPASS            SA6    FRSTLIN     -0 INDICATES PRINTER HAS BEEN SET                   CPS239         8          I
          -CPS236 
 COMPASS   PRS4     MX1    0           CLEAR OUT PASS 2 FLAGS                              COMPASS    16292          I
          -CMP30  
 COMPASS            SX2    CLP2                                                            COMPASS    16293          I
          -CMP30  
 COMPASS                                                                                   CMP30       5039     A     
 COMPASS   RM       ELSE                                                                   CMP30       5040     A     
 COMPASS                                                                                   CMP30       5041     A     
 COMPASS            SX7    B1+B1                                                   F4810A  F4810A       349     A     
 COMPASS            SA7    A7          2 INDICATES LINE COUNT AFTER HEADER PRINTED F4810A  F4810A       350     A     
 COMPASS            SA1    FRSTLIN                                                 F4810A  F4810A       351          I
          -CPS239 
 COMPASS            ZR     X1,PRS1A    IF NO NEED TO RESET PRINTER DENSITY         F4810A  F4810A       352          I
          -CPS239 
 COMPASS            PUT    O,FRSTLIN,10  ELSE RESET PRINTER DENSITY                F4810A  F4810A       353          I
          -CPS239 
 COMPASS            MX6    60                                                      F4810A  F4810A       354          I
          -CPS239 
 COMPASS            SA6    FRSTLIN     -0 INDICATES PRINTER HAS BEEN RESET         F4810A  F4810A       355          I
          -CPS239 
 COMPASS   PRS1A    SA1    IDNAM       WRITE HEADER                                F4810A  F4810A       356          I
          -CPS239 
 COMPASS            SA1    IDNAM       WRITE HEADER                                        CPS239         9     A     
 COMPASS            RJ     LJUST                                                   F4810A  F4810A       357     A     
 COMPASS            MX0    -6                                                              CMP30       5042     A     
 COMPASS            SX1    1R*                                                             CMP30       5043     A     
 COMPASS            BX0    X0*X6                                                           CMP30       5044     A     
 COMPASS            BX7    X0+X1                                                           CMP30       5045     A     
 COMPASS            LX7    -6                                                              CMP30       5046     A     
 COMPASS            SA7    P2TEMP                                                          CMP30       5047     A     
 COMPASS            PUT    O,P2TEMP,10                                                     CMP30       5048     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 970    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    CP.PAGE                                                         CPS236        70     A     
 COMPASS            LX0    X1,B1                                                           CPS236        71     A     
 COMPASS            MI     X0,PRS4     FILE ALREADY WRITTEN TO                             CPS236        72     A     
 COMPASS            MX0    1                                                               CPS236        73     A     
 COMPASS            LX0    -1                                                              CPS236        74     A     
 COMPASS            BX7    X1+X0                                                           CPS236        75     A     
 COMPASS            SA7    CP.PAGE     SET FIRST WRITING FLAG                              CPS236        76     A     
 COMPASS            SA1    FRSTLIN                                                         CPS239        10     A     
 COMPASS            ZR     X1,PRS4     IF NO NEED TO RESET PRINTER DENSITY                 CPS239        11     A     
 COMPASS            PUT    O,FRSTLIN,10  ELSE RESET PRINTER DENSITY                        CPS239        12     A     
 COMPASS            MX6    60                                                              CPS239        13     A     
 COMPASS            SA6    FRSTLIN     -0 INDICATES PRINTER HAS BEEN SET                   CPS239        14     A     
 COMPASS                                                                                   CMP30       5049     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5050     A     
 COMPASS                                                                                   CMP30       5051     A     
 COMPASS   PRS4     SX2    CLP2        CLEAR OUT PASS 2 CELLS                              CMP30       5052     A     
 COMPASS            SX3    CLP2+LCLP2                                                      COMPASS    16294     A     
 COMPASS            RJ     PRESET                                                          COMPASS    16295          I
          -CMP30  
 COMPASS            RJ     CLS                                                             CMP30       5053     A     
 COMPASS            SA1    PPTYPE                                                          CPSA281      307     A     
 COMPASS            SX1    X1+3                                                            CPSA281      308     A     
 COMPASS            NZ     X1,PRS4A    IF NOT 180 PP ASSEMBLY                              CPSA281      309     A     
 COMPASS            SA2    VWORD                                                           CPSA288      217     A     
 COMPASS            NZ     X2,PRS4A    IF 12-BIT MODE FOR *CON* AND *VFD*                  CPSA288      218     A     
 COMPASS            SX6    5                                                               CPSA281      310     A     
 COMPASS            SX7    45          SET CHARACTER TYPE TO 8-BIT ASCII                   CPSA281      311     A     
 COMPASS   PRS4A    BSS    0                                                               CPSA281      312     A     
 COMPASS            SA6    CT+1                                                            CMP30       5054     A     
 COMPASS            SA7    CT          CLEAR FLAGS AND CELLS                               COMPASS    16296     A     
 COMPASS            SX6    B0                                                              CPSA281      313     A     
 COMPASS            MX7    0                                                               CPSA281      314     A     
 COMPASS            SA6    DLFLG                                                           COMPASS    16297     A     
 COMPASS            SA7    TITFG                                                           COMPASS    16298     A     
 COMPASS            SA6    NFOUP                                                           COMPASS    16299     A     
 COMPASS            SA7    QVAL                                                            COMPASS    16300     A     
 COMPASS            SA6    CLF                                                             CMP30       5055     A     
 COMPASS            SX7    PAGESIZ+5                                                       COMPASS    16301          I
          -F4810A 
 COMPASS            SA1    CP.PS       PAGE SIZE                                   F4810A  F4810A       358     A     
 COMPASS            SX7    X1+5        FORCE EJECT                                 F4810A  F4810A       359     A     
 COMPASS            SA6    IFCDGP                                                          COMPASS    16302     A     
 COMPASS            SA7    ELCNT                                                           COMPASS    16303     A     
 COMPASS            SA6    ABASE                                                           CMP30       5056     A     
 COMPASS            SA7    LPCNT                                                           COMPASS    16304     A     
 COMPASS            SX6    B1          SET PRINT LINE READY                                COMPASS    16305          I
          -CMP30  
 COMPASS            RJ     CPS         CLEAR PUSH-DOWN STACKS                              CMP30       5057     A     
 COMPASS            SA2    ABSFG                                                           CMP30       5058     A     
 COMPASS            SA1    L.USETAB                                                        CMP30       5059     A     
 COMPASS            NZ     X2,PRS5     IF ABSOLUTE ASSEMBLY                                CMP30       5060     A     
 COMPASS            AX1    1                                                               CMP30       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/28. 19.11.32.      PAGE 971    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MANAGE RELTAB,X1   CREATE RELOCATION TABLE                             CMP30       5062     A     
 COMPASS            IX3    X2+X3       CLEAR IT                                            CMP30       5063     A     
 COMPASS            RJ     CLS                                                             CMP30       5064     A     
 COMPASS   PRS5     SX6    B1          SET PRINT LINE READY                                CMP30       5065     A     
 COMPASS            SA6    CCT                                                             COMPASS    16306     A     
 COMPASS            SA6    LCCT                                                            COMPASS    16307          I
          -F4810A 
 COMPASS            SA1    P2TEMPA     1 IF HEADER NOT PRINTED, 2 IF PRINTED       F4810A  F4810A       360     A     
 COMPASS            BX7    X1                                                      F4810A  F4810A       361     A     
 COMPASS            SA7    LCCT        1 IF NO HEADER, 2 IF HEADER PRINTED         F4810A  F4810A       362     A     
 COMPASS            SA6    PLFLG                                                           COMPASS    16308     A     
 COMPASS            SA1    =1H         CLEAR SUBTITLE                                      COMPASS    16309     A     
 COMPASS            SX2    SUBTIT                                                          COMPASS    16310     A     
 COMPASS            SX3    SUBTIT+SUBL                                                     COMPASS    16311     A     
 COMPASS            RJ     PRESET                                                          COMPASS    16312     A     
 COMPASS            SX6    COMCOL      RESET COMMENT COLUMN                                COMPASS    16313     A     
 COMPASS            SA6    CCOL                                                            COMPASS    16314     A     
 COMPASS            SA1    LWORD       RESET POSITION COUNTER                              COMPASS    16315     A     
 COMPASS            SA2    NBLOCKS                                                         CMP30       5066     A     
 COMPASS            BX7    X1                                                              COMPASS    16316     A     
 COMPASS            SX6    X2+B1       SET MAX RELOCATION FOR SCAD                         CMP30       5067     A     
 COMPASS            SA7    POSCTR                                                          COMPASS    16317     A     
 COMPASS            SA6    UI+2                                                            CMP30       5068     A     
 COMPASS            SX7    10          SET BASE                                            COMPASS    16318     A     
 COMPASS            SA7    NBASE                                                           COMPASS    16319     A     
 COMPASS            SA7    MBASE                                                           COMPASS    16320     A     
 COMPASS            SX6    B1+B1       SET PASS = 2                                        COMPASS    16321     A     
 COMPASS            SA6    PASS                                                            COMPASS    16322     A     
 COMPASS            SX6    1RD         SET BASE = *D*                                      COMPASS    16323          I
          -CMP30  
 COMPASS            SA6    ABASE                                                           COMPASS    16324          I
          -CMP30  
 COMPASS            SX6    1R          SET USAGE LETTER                                    COMPASS    16325     A     
 COMPASS            SA6    REFLET                                                          COMPASS    16326     A     
 COMPASS            SA1    LISTFG      SET LIST FLAG                                       COMPASS    16327          I
          -CMP30  
 COMPASS            SX2    B1                                                              COMPASS    16328          I
          -CMP30  
 COMPASS            BX6    X1*X2                                                           COMPASS    16329          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    16330          I
          -CMP30  
 COMPASS            SA2    RJZ         SET EVALUATE ITEM JUMP                              COMPASS    16331     A     
 COMPASS            BX6    X2                                                              COMPASS    16332     A     
 COMPASS            SA6    SCANEV                                                          COMPASS    16333     A     
 COMPASS            SB7    39                                                              COMPASS    16334     A     
 COMPASS            SX1    1R          CLEAR PRINT AREA                                    COMPASS    16335     A     
 COMPASS            SX2    OCTAL                                                           COMPASS    16336     A     
 COMPASS            SX3    OCTAL+40                                                        COMPASS    16337     A     
 COMPASS            RJ     PRESET                                                          COMPASS    16338     A     
 COMPASS            SA1    =1H                                                             COMPASS    16339     A     
 COMPASS            SX2    LINE                                                            COMPASS    16340     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 972    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX3    LINE+9*NCARDS                                                   COMPASS    16341     A     
 COMPASS            RJ     PRESET                                                          COMPASS    16342     A     
 COMPASS            EQ     PRS         RETURN                                              COMPASS    16343     A     
 COMPASS   PSN      SPACE  4                                                               COMPASS    16344     A     
 COMPASS  **        PSN - PRINT SEGMENT NAMES.                                             COMPASS    16345     A     
 COMPASS  *         ENTRY  (SI) = SEGTAB INDEX.                                            COMPASS    16346     A     
 COMPASS  *         USES   P2TEMP, P2TEMPA, ORGCTR.                                        COMPASS    16347     A     
 COMPASS                                                                                   COMPASS    16348     A     
 COMPASS                                                                                   COMPASS    16349     A     
 COMPASS   PSN      PS                 RETURN EXIT                                         COMPASS    16350     A     
 COMPASS            SA2    =60HADDRESS   LENGTH              BINARY CONTROL CARDS.         COMPASS    16351     A     
 COMPASS            SA1    A2+B1       LIST OUT SEGMENT NAMES                              COMPASS    16352     A     
 COMPASS            SA3    A1+B1                                                           COMPASS    16353     A     
 COMPASS            SA4    A3+B1                                                           COMPASS    16354     A     
 COMPASS            BX6    X3                                                              COMPASS    16355     A     
 COMPASS            LX7    X4                                                              COMPASS    16356     A     
 COMPASS            SA6    LINE                                                            COMPASS    16357     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16358     A     
 COMPASS            SA3    A4+B1                                                           COMPASS    16359     A     
 COMPASS            SA4    A3+B1                                                           COMPASS    16360     A     
 COMPASS            BX7    X3                                                              COMPASS    16361     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    16362     A     
 COMPASS            BX7    X4                                                              COMPASS    16363     A     
 COMPASS            SA7    A7+B1                                                           COMPASS    16364     A     
 COMPASS            MX0    -6                                                              COMPASS    16365     A     
 COMPASS            SB7    10                                                              COMPASS    16366     A     
 COMPASS   PSN1     SB7    B7-B1                                                           COMPASS    16367     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    16368     A     
 COMPASS            LX1    -6                                                              COMPASS    16369     A     
 COMPASS            SA6    A6-B1                                                           COMPASS    16370     A     
 COMPASS            NZ     B7,PSN1     LOOP                                                COMPASS    16371     A     
 COMPASS            SB7    10                                                              COMPASS    16372     A     
 COMPASS            BX1    X2                                                              COMPASS    16373     A     
 COMPASS            MX2    0                                                               COMPASS    16374     A     
 COMPASS            NZ     X1,PSN1     LOOP                                                COMPASS    16375     A     
 COMPASS            RJ     LIST2L                                                          COMPASS    16376     A     
 COMPASS                                                                                   COMPASS    16377     A     
 COMPASS  *         PRINT SEGMENT NAMES.                                                   COMPASS    16378     A     
 COMPASS                                                                                   COMPASS    16379     A     
 COMPASS   PSN2     RJ     UPS         UNPACK SEGMENT CARD                                 COMPASS    16380     A     
 COMPASS            SA5    SI                                                              COMPASS    16381     A     
 COMPASS            SA2    O.SEGTAB                                                        COMPASS    16382     A     
 COMPASS            IX3    X5+X2                                                           COMPASS    16383     A     
 COMPASS            SA3    X3          LWA                                                 COMPASS    16384     A     
 COMPASS            SA1    A3-4        LWA OF PREVIOUS SEGMENT                             COMPASS    16385     A     
 COMPASS            BX6    X3                                                              COMPASS    16386     A     
 COMPASS            BX7    X1                                                              COMPASS    16387     A     
 COMPASS            SA6    P2TEMP                                                          COMPASS    16388     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16389     A     
 COMPASS            SA4    IOP         CHECK TYPE                                          COMPASS    16390     A     
 COMPASS            SA2    =5RIDENT                                                        COMPASS    16391     A     
 COMPASS            SA3    =7RSEGMENT                                                      COMPASS    16392     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 973    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX2    X2-X4                                                           COMPASS    16393     A     
 COMPASS            IX3    X3-X4                                                           COMPASS    16394     A     
 COMPASS            ZR     X3,PSN3     IF *SEGMENT*                                        COMPASS    16395     A     
 COMPASS            NZ     X2,PSN4     IF NOT *IDENT*                                      COMPASS    16396     A     
 COMPASS            RJ     SCLIST      SKIP IDENT NAME                                     COMPASS    16397     A     
 COMPASS            SA1    P2TEMPA     LWA OF PREVIOUS SEGMENT                             COMPASS    16398     A     
 COMPASS            ZR     X6,PSN4     IF IDENT WITH NO NAME                               COMPASS    16399     A     
 COMPASS            SX1    18          SCAN ENTRY POINT                                    COMPASS    16400     A     
 COMPASS            RJ     SCAD                                                            COMPASS    16401     A     
 COMPASS            SA1    EXVAL       SET BASE ADDRESS                                    COMPASS    16402     A     
 COMPASS            BX6    X1                                                              COMPASS    16403     A     
 COMPASS            SA6    ORGCTR                                                          COMPASS    16404     A     
 COMPASS            EQ     PSN4                                                            COMPASS    16405     A     
 COMPASS   PSN3     SX1    18          SCAN ENTRY POINT                                    COMPASS    16406     A     
 COMPASS            RJ     SCAD                                                            COMPASS    16407     A     
 COMPASS            SA1    EXVAL                                                           COMPASS    16408     A     
 COMPASS   PSN4     BX6    X1          LIST FWA                                            COMPASS    16409     A     
 COMPASS            MX3    0                                                               COMPASS    16410     A     
 COMPASS            SA6    P2TEMPA                                                         COMPASS    16411     A     
 COMPASS            SX2    27                                                              COMPASS    16412     A     
 COMPASS            MX0    -21                                                             CMP28          1     A     
 COMPASS            BX1    -X0*X1                                                          CMP28          2     A     
 COMPASS            RJ     PACKO                                                           COMPASS    16413     A     
 COMPASS            SA2    P2TEMP      LWA                                                 COMPASS    16414     A     
 COMPASS            SA3    A2+B1       FWA                                                 COMPASS    16415     A     
 COMPASS            IX1    X2-X3       LIST LENGTH                                         COMPASS    16416     A     
 COMPASS            MX0    -21                                                             CMP28          3     A     
 COMPASS            BX1    -X0*X1                                                          CMP28          4     A     
 COMPASS            MX3    0                                                               COMPASS    16417     A     
 COMPASS            SX2    36                                                              COMPASS    16418     A     
 COMPASS            RJ     PACKO                                                           COMPASS    16419     A     
 COMPASS            SA1    EFLG        TO SUPPRESS FATAL ERROR                             CMP28          5     A     
 COMPASS            BX6    X1                                                              CMP28          6     A     
 COMPASS            MX7    0                                                               CMP28          7     A     
 COMPASS            SA6    W2ERR                                                           CMP28          8     A     
 COMPASS            SA7    UERR                                                            CMP28          9     A     
 COMPASS            SA7    AERR                                                            CMP28         10     A     
 COMPASS            RJ     LISTL       LIST LINE                                           COMPASS    16420     A     
 COMPASS            SA1    SI                                                              COMPASS    16421     A     
 COMPASS            SX6    X1+4        INCREMENT INDEX                                     COMPASS    16422     A     
 COMPASS            SA2    L.SEGTAB                                                        COMPASS    16423     A     
 COMPASS            SA6    A1                                                              COMPASS    16424     A     
 COMPASS            IX2    X2-X6                                                           COMPASS    16425     A     
 COMPASS            SX2    X2-4                                                            COMPASS    16426     A     
 COMPASS            NZ     X2,PSN5     IF NEXT SEGMENT IS NOT *END*                        COMPASS    16427     A     
 COMPASS            RJ     UPS         UNPACK END CARD                                     COMPASS    16428     A     
 COMPASS            EQ     PSN6                                                            COMPASS    16429     A     
 COMPASS   PSN5     SA3    O.SEGTAB    CHECK USE INDEX                                     COMPASS    16430     A     
 COMPASS            IX1    X1+X3                                                           COMPASS    16431     A     
 COMPASS            SA2    X1+B1       OLD SEGTAB(2)                                       COMPASS    16432     A     
 COMPASS            SA3    X1+5        NEW SEGTAB(2)                                       COMPASS    16433     A     
 COMPASS            BX7    X2-X3                                                           COMPASS    16434     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 974    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX7    18                                                              COMPASS    16435     A     
 COMPASS            ZR     X7,PSN2     IF SAME OVERLAY                                     COMPASS    16436     A     
 COMPASS   PSN6     SA1    P2TEMP      LIST PROGRAM LWA                                    COMPASS    16437     A     
 COMPASS            SX2    27                                                              COMPASS    16438     A     
 COMPASS            MX3    0                                                               COMPASS    16439     A     
 COMPASS            RJ     PACKO                                                           COMPASS    16440     A     
 COMPASS            SA1    MACHINE                                                         COMPASS    16441     A     
 COMPASS            ZR     X1,PSN7     IF CP                                               COMPASS    16442     A     
 COMPASS            SA1    ORGCTR      LIST LENGTH IN CM WORDS                             COMPASS    16443     A     
 COMPASS            SA2    P2TEMP                                                          COMPASS    16444     A     
 COMPASS            SX5    5                                                               COMPASS    16445     A     
 COMPASS            IX4    X2-X1                                                           COMPASS    16446     A     
 COMPASS            SX4    X4+9                                                            COMPASS    16447     A     
 COMPASS            IX1    X4/X5                                                           COMPASS    16448     A     
 COMPASS            MX3    0                                                               COMPASS    16449     A     
 COMPASS            SX2    36                                                              COMPASS    16450     A     
 COMPASS            RJ     PACKO                                                           COMPASS    16451     A     
 COMPASS            SX6    1R(                                                             COMPASS    16452     A     
 COMPASS            SX7    1R)                                                             COMPASS    16453     A     
 COMPASS            SA6    A6-B1                                                           COMPASS    16454     A     
 COMPASS            SA7    OCTAL+36                                                        COMPASS    16455     A     
 COMPASS   PSN7     RJ     LISTL                                                           COMPASS    16456     A     
 COMPASS            MX6    0           RESET QUAL                                          COMPASS    16457     A     
 COMPASS            SA6    QVAL                                                            COMPASS    16458     A     
 COMPASS            EQ     PSN         RETURN                                              COMPASS    16459     A     
 COMPASS   RBV      SPACE  4                                                               F4820        742     A     
 COMPASS  **        RBV - READ BINARY VALUE.                                               F4820        743     A     
 COMPASS  *         ENTRY  (X1) = DIRECT MEMORY LOCATION.                                  F4820        744     A     
 COMPASS  *         EXIT   (X6) = BINARY VALUE OF LOCATION.                                F4820        745     A     
 COMPASS                                                                                   F4820        746     A     
 COMPASS                                                                                   F4820        747     A     
 COMPASS   RBV      PS                 RETURN EXIT                                         F4820        748     A     
 COMPASS            SA2    LPGM        CHECK FOR IN RANGE                                  F4820        749     A     
 COMPASS            SA3    ORGBASE                                                         F4820        750     A     
 COMPASS            IX6    X1-X2       -                                                   F4820        751     A     
 COMPASS            IX1    X1-X3       +                                                   F4820        752     A     
 COMPASS            BX7    -X1*X6                                                          F4820        753     A     
 COMPASS            SX6    B0                                                              F4820        754     A     
 COMPASS            PL     X7,RBV      IF OUT OF RANGE OF PROGRAM                          F4820        755     A     
 COMPASS            SX0    5                                                               F4820        756     A     
 COMPASS            LX1    1                                                               F4820        757     A     
 COMPASS            SB4    X1                                                              F4820        758     A     
 COMPASS            IX1    X1/X0       WORD INDEX                                          F4820        759     A     
 COMPASS            SA2    O.MEMORY                                                        F4820        760     A     
 COMPASS            SB6    X1                                                              F4820        761     A     
 COMPASS            SB5    B6+B6                                                           F4820        762     A     
 COMPASS            SB7    B5+B5                                                           F4820        763     A     
 COMPASS            SB5    B7+B6       5*LOCATION                                          F4820        764     A     
 COMPASS            SX7    B4-B5       REMAINDER                                           F4820        765     A     
 COMPASS            IX6    X7+X7       2*REMAINDER                                         F4820        766     A     
 COMPASS            IX7    X6+X7       3*REMAINDER                                         F4820        767     A     
 COMPASS            LX7    2           12*REMAINDER                                        F4820        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/28. 19.11.32.      PAGE 975    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X7+12                                                           F4820        769     A     
 COMPASS            SB5    60                                                              F4820        770     A     
 COMPASS            MX0    -12                                                             F4820        771     A     
 COMPASS            SA1    O.MEMORY    READ MEMORY                                         F4820        772     A     
 COMPASS            SA5    X1+B6                                                           F4820        773     A     
 COMPASS            LX5    X5,B7                                                           F4820        774     A     
 COMPASS   +        BX6    -X0*X5                                                          F4820        775     A     
 COMPASS            NE     B5,B7,*+1                                                       F4820        776     A     
 COMPASS            SA5    A5+B1                                                           F4820        777     A     
 COMPASS   +        LX5    12                                                              F4820        778     A     
 COMPASS            BX7    -X0*X5                                                          F4820        779     A     
 COMPASS            LX6    8                                                               F4820        780     A     
 COMPASS            IX6    X6+X7                                                           F4820        781     A     
 COMPASS            EQ     RBV         RETURN                                              F4820        782     A     
 COMPASS   RINT     SPACE  4                                                               COMPASS    16460     A     
 COMPASS  **        RINT - READ AND CREATE INTERMEDIATE LINE.                              COMPASS    16461     A     
 COMPASS  *         USED TO DO THE READING.  IT DOES NOT CREATE THE PRINT LINE.            COMPASS    16462     A     
 COMPASS                                                                                   COMPASS    16463     A     
 COMPASS                                                                                   COMPASS    16464     A     
 COMPASS   RINT     PS                                                                     COMPASS    16465     A     
 COMPASS            RJ     RINTRD      READ INTERMEDIATE FILE                              COMPASS    16466     A     
 COMPASS            SA1    RELVEC      STORE OPTYPE                                        COMPASS    16467     A     
 COMPASS            BX6    X1                                                              COMPASS    16468     A     
 COMPASS            LX1    59-43       PREPARE TO DECODE REMAINDER OF INT.                 COMPASS    16469     A     
 COMPASS            SA6    OPTYPE                                                          COMPASS    16470     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    16471     A     
 COMPASS            MX6    0                                                               COMPASS    16472     A     
 COMPASS            PL     X1,RINT1    IF NO IND                                           COMPASS    16473     A     
 COMPASS            BX6    X2                                                              COMPASS    16474     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    16475     A     
 COMPASS   RINT1    SA6    IND                                                             COMPASS    16476     A     
 COMPASS            LX1    59                                                              COMPASS    16477     A     
 COMPASS            MX6    0                                                               COMPASS    16478     A     
 COMPASS            PL     X1,RINT2    IF NO FLAG                                          COMPASS    16479     A     
 COMPASS            BX6    X2                                                              COMPASS    16480     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    16481     A     
 COMPASS   RINT2    SA6    FLAG                                                            COMPASS    16482     A     
 COMPASS            SA5    AMODE                                                           COMPASS    16483          I
          -CMP24  
 COMPASS            ZR     X5,RIN2     IF NOT MODIFY                                       COMPASS    16484          I
          -CMP24  
 COMPASS            SX6    B0                                                              COMPASS    16485          I
          -CMP24  
 COMPASS            SA6    SEQ                                                             COMPASS    16486          I
          -CMP24  
 COMPASS            BX6    X2                                                              COMPASS    16487          I
          -CMP24  
 COMPASS            SA6    A6+B1                                                           COMPASS    16488          I
          -CMP24  
 COMPASS            SA2    A2+B1                                                           COMPASS    16489          I
          -CMP24  
 COMPASS            EQ     RINT3                                                           COMPASS    16490          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 976    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS   RIN2     SA5    CCT                                                             COMPASS    16491          I
          -CMP24  
 COMPASS            SB7    X5-1                                                            COMPASS    16492          I
          -CMP24  
 COMPASS            LX1    59                                                              COMPASS    16493          I
          -CMP24  
 COMPASS            NG     X1,RIN4     IF SEQUENCE FIELDS                                  COMPASS    16494          I
          -CMP24  
 COMPASS            SA3    =8R                                                             COMPASS    16495          I
          -CMP24  
 COMPASS            SA4    =10R                                                            COMPASS    16496          I
          -CMP24  
 COMPASS            BX6    X3                                                              COMPASS    16497          I
          -CMP24  
 COMPASS            LX7    X4                                                              COMPASS    16498          I
          -CMP24  
 COMPASS            SA6    SEQ                                                             COMPASS    16499          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    16500          I
          -CMP24  
 COMPASS   RIN3     SB7    B7-B1                                                           COMPASS    16501          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    16502          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    16503          I
          -CMP24  
 COMPASS            PL     B7,RIN3     LOOP                                                COMPASS    16504          I
          -CMP24  
 COMPASS            EQ     RINT3                                                           COMPASS    16505          I
          -CMP24  
 COMPASS   RIN4     BX7    X2                                                              COMPASS    16506          I
          -CMP24  
 COMPASS            SA2    A2+B1                                                           COMPASS    16507          I
          -CMP24  
 COMPASS            BX6    X2                                                              COMPASS    16508          I
          -CMP24  
 COMPASS            SA7    SEQ                                                             COMPASS    16509          I
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    16510          I
          -CMP24  
 COMPASS            SA2    A2+B1                                                           COMPASS    16511          I
          -CMP24  
 COMPASS            ZR     B7,RINT3                                                        COMPASS    16512          I
          -CMP24  
 COMPASS   RINT3A   BX7    X2                                                              COMPASS    16513          I
          -CMP24  
 COMPASS            SA2    A2+B1                                                           COMPASS    16514          I
          -CMP24  
 COMPASS            LX6    X2                                                              COMPASS    16515          I
          -CMP24  
 COMPASS            SA7    A6+B1                                                           COMPASS    16516          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 977    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP24  
 COMPASS            SA6    A7+B1                                                           COMPASS    16517          I
          -CMP24  
 COMPASS            SB7    B7-B1                                                           COMPASS    16518          I
          -CMP24  
 COMPASS            SA2    A2+B1                                                           COMPASS    16519          I
          -CMP24  
 COMPASS            NZ     B7,RINT3A                                                       COMPASS    16520          I
          -CMP24  
 COMPASS            SA5    CCT                                                             CMP24        524     A     
 COMPASS            LX1    59-46+45                                                        CMP24        525     A     
 COMPASS            SB7    X5                                                              CMP24        526     A     
 COMPASS            MI     X1,RIN2     IF TWO-WORD SEQUENCE FIELDS ARE PRESENT             CMP24        527     A     
 COMPASS            LX1    1                                                               CMP24        528     A     
 COMPASS            PL     X1,RIN1     IF NO SEQUENCE FIELDS ARE PRESENT                   CMP24        529     A     
 COMPASS                                                                                   CMP24        530     A     
 COMPASS            MX6    0           STORE ONE-WORD SEQUENCE FIELDS                      CMP24        531     A     
 COMPASS            BX7    X2                                                              CMP24        532     A     
 COMPASS            SA2    A2+B1                                                           CMP24        533     A     
 COMPASS            SA6    SEQ                                                             CMP24        534     A     
 COMPASS            SA7    A6+B1                                                           CMP24        535     A     
 COMPASS            EQ     B7,B1,RINT3 IF NO CONTINUATION CARDS                            CMP24        536     A     
 COMPASS   RIN1A    BX7    X2                                                              CMP24        537     A     
 COMPASS            SA2    A2+B1                                                           CMP24        538     A     
 COMPASS            SA6    A7+B1                                                           CMP24        539     A     
 COMPASS            SB7    B7-B1                                                           CMP24        540     A     
 COMPASS            SA7    A6+B1                                                           CMP24        541     A     
 COMPASS            GT     B7,B1,RIN1A                                                     CMP24        542     A     
 COMPASS            EQ     RINT3                                                           CMP24        543     A     
 COMPASS                                                                                   CMP24        544     A     
 COMPASS   RIN1     SA3    =8R         NO SEQUENCE FIELDS - USE BLANKS                     CMP24        545     A     
 COMPASS            SA4    =10R                                                            CMP24        546     A     
 COMPASS            BX6    X3                                                              CMP24        547     A     
 COMPASS            LX7    X4                                                              CMP24        548     A     
 COMPASS            SA6    SEQ                                                             CMP24        549     A     
 COMPASS            SA7    A6+B1                                                           CMP24        550     A     
 COMPASS            EQ     RIN3        CONTINUE BELOW                                      CMP24        551     A     
 COMPASS                                                                                   CMP24        552     A     
 COMPASS   RIN2     SA3    A2+B1       TWO-WORD SEQUENCE FIELDS                            CMP24        553     A     
 COMPASS            LX1    1                                                               CMP24        554     A     
 COMPASS            BX6    X2                                                              CMP24        555     A     
 COMPASS            SA2    A3+B1                                                           CMP24        556     A     
 COMPASS            LX7    X3                                                              CMP24        557     A     
 COMPASS            SA6    SEQ                                                             CMP24        558     A     
 COMPASS            SA7    A6+B1                                                           CMP24        559     A     
 COMPASS   RIN3     EQ     B7,B1,RINT3 IF NO CONTINUATION CARDS                            CMP24        560     A     
 COMPASS            MI     X1,RIN4     IF NOT SAME SEQUENCE FIELDS FOR ALL CARDS           CMP24        561     A     
 COMPASS   RIN3A    SA6    A7+B1                                                           CMP24        562     A     
 COMPASS            SB7    B7-B1                                                           CMP24        563     A     
 COMPASS            SA7    A6+B1                                                           CMP24        564     A     
 COMPASS            GT     B7,B1,RIN3A                                                     CMP24        565     A     
 COMPASS            EQ     RINT3                                                           CMP24        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/28. 19.11.32.      PAGE 978    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   CMP24        567     A     
 COMPASS   RIN4     SA3    A2+B1       TWO-WORD SEQUENCE FIELD FOR EACH CARD               CMP24        568     A     
 COMPASS            BX6    X2                                                              CMP24        569     A     
 COMPASS            SA2    A3+B1                                                           CMP24        570     A     
 COMPASS            LX7    X3                                                              CMP24        571     A     
 COMPASS            SA6    A7+B1                                                           CMP24        572     A     
 COMPASS            SB7    B7-B1                                                           CMP24        573     A     
 COMPASS            SA7    A6+B1                                                           CMP24        574     A     
 COMPASS            GT     B7,B1,RIN4                                                      CMP24        575     A     
 COMPASS                                                                                   CMP24        576     A     
 COMPASS   RINT3    SB5    1R                                                              COMPASS    16521     A     
 COMPASS            SB4    -B1                                                             COMPASS    16522          I
          -CMP64G 
 COMPASS            MX0    60-6                                                            COMPASS    16523          I
          -CMP64G 
 COMPASS            SB6    B5                                                              CMP64G       530     A     
 COMPASS            MX0    -6                                                              CMP64G       531     A     
 COMPASS            SB3    10                                                              COMPASS    16524     A     
 COMPASS            SB4    B0                                                              CMP64G       532     A     
 COMPASS            LX2    6                                                               CMP64G       533     A     
 COMPASS            SB7    B3-B1                                                           COMPASS    16525     A     
 COMPASS            MX3    59                                                              COMPASS    16526          I
          -CMP64G 
 COMPASS            LX2    6                                                               COMPASS    16527          I
          -CMP64G 
 COMPASS            BX6    -X0*X2                                                          COMPASS    16528     A     
 COMPASS            SA6    STYPE                                                           COMPASS    16529     A     
 COMPASS            EQ     RIN7                                                            COMPASS    16530          I
          -CMP64G 
 COMPASS            EQ     RIN6                                                            CMP64G       534     A     
 COMPASS                                                                                   COMPASS    16531     A     
 COMPASS   RIN5     LX2    6                                                               COMPASS    16532          I
          -CMP64G 
 COMPASS            BX3    -X0*X2                                                          COMPASS    16533          I
          -CMP64G 
 COMPASS            ZR     X3,RIN8     IF END OF LINE                                      COMPASS    16534          I
          -CMP64G 
 COMPASS   RIN6     SA6    A6+B1                                                           COMPASS    16535          I
          -CMP64G 
 COMPASS            SX3    X3+B4                                                           COMPASS    16536          I
          -CMP64G 
 COMPASS            PL     X3,RIN6     IF FILLING BLANKS                                   COMPASS    16537          I
          -CMP64G 
 COMPASS            NZ     B7,RIN7     IF NOT END OF WORD                                  COMPASS    16538          I
          -CMP64G 
 COMPASS            SA2    A2+B1                                                           COMPASS    16539          I
          -CMP64G 
 COMPASS            SB7    B3                                                              COMPASS    16540          I
          -CMP64G 
 COMPASS   RIN7     LX2    6                                                               COMPASS    16541          I
          -CMP64G 
 COMPASS            BX6    -X0*X2                                                          COMPASS    16542          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 979    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP64G 
 COMPASS            SB7    B7-B1                                                           COMPASS    16543          I
          -CMP64G 
 COMPASS            NZ     X6,RIN6     IF NOT 00 CHARACTER                                 COMPASS    16544          I
          -CMP64G 
 COMPASS            SB7    B7-B1                                                           COMPASS    16545          I
          -CMP64G 
 COMPASS            SX6    B5                                                              COMPASS    16546          I
          -CMP64G 
 COMPASS            PL     B7,RIN5     IF NOT END OF WORD                                  COMPASS    16547          I
          -CMP64G 
 COMPASS            SA2    A2+B1                                                           COMPASS    16548          I
          -CMP64G 
 COMPASS            SB7    B3-B1                                                           COMPASS    16549          I
          -CMP64G 
 COMPASS            EQ     RIN5        LOOP                                                COMPASS    16550          I
          -CMP64G 
 COMPASS   RIN5     SB4    B4-B1       STORE CHARACTER                                     CMP64G       535     A     
 COMPASS            SA6    A6+B1                                                           CMP64G       536     A     
 COMPASS            PL     B4,RIN5     LOOP IF FILLING BLANKS                              CMP64G       537     A     
 COMPASS   RIN6     LX2    6                                                               CMP64G       538     A     
 COMPASS            SB7    B7-B1       EXTRACT NEXT CHARACTER                              CMP64G       539     A     
 COMPASS            BX6    -X0*X2                                                          CMP64G       540     A     
 COMPASS            NZ     B7,RIN7     IF WORD NOT EXHAUSTED                               CMP64G       541     A     
 COMPASS            SA2    A2+B1                                                           CMP64G       542     A     
 COMPASS            SB7    B3                                                              CMP64G       543     A     
 COMPASS   RIN7     ZR     B6,RIN8     IF 00XX CODE                                        CMP64G       544     A     
 COMPASS            SB6    X6                                                              CMP64G       545     A     
 COMPASS            NZ     B6,RIN5     IF NOT 00 CHARACTER, GO STORE IT                    CMP64G       546     A     
 COMPASS            EQ     RIN6        GO GET XX                                           CMP64G       547     A     
 COMPASS   RIN8     SB4    X6                                                              CMP64G       548     A     
 COMPASS            SX6    B5                                                              CMP64G       549     A     
 COMPASS            SB6    B5                                                              CMP64G       550     A     
 COMPASS            GT     B4,B1,RIN5  IF 0002-0077 CODE, GO STORE BLANKS                  CMP64G       551     A     
 COMPASS            SB4    B4-B1                                                           CMP64G       552     A     
 COMPASS            MX6    0                                                               CMP64G       553     A     
 COMPASS            ZR     B4,RIN5     IF 0001 CODE, GO STORE 00 CHARACTER                 CMP64G       554     A     
 COMPASS                                                                                   COMPASS    16551     A     
 COMPASS   RIN8     SA5    LASTCOL     CLEAR TO END OF LAST COLUMN                         COMPASS    16552          I
          -CMP64G 
 COMPASS            SA5    LASTCOL     0000 CODE, END OF STATEMENT                         CMP64G       555     A     
 COMPASS            SX7    A6-CARD+1                                                       COMPASS    16553     A     
 COMPASS   +        NZ     X7,*+1      IF NOT ALL BLANKS                                   CMP27         32     A     
 COMPASS            SX7    B1                                                              CMP27         33     A     
 COMPASS            SB7    X5+CARD-1                                                       COMPASS    16554     A     
 COMPASS            SA7    A5                                                              COMPASS    16555     A     
 COMPASS            SX6    B5                                                              COMPASS    16556     A     
 COMPASS            SB7    A6-B7                                                           COMPASS    16557     A     
 COMPASS            SX7    B5                                                              COMPASS    16558     A     
 COMPASS   RIN9     SB7    B7+2                                                            COMPASS    16559     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16560     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    16561     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 980    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     B7,RIN9     LOOP                                                COMPASS    16562     A     
 COMPASS                                                                                   COMPASS    16563     A     
 COMPASS  *         END OF CARD - RECREATE INDICATOR AND ERROR FLAGS                       COMPASS    16564     A     
 COMPASS                                                                                   COMPASS    16565     A     
 COMPASS            SA1    IND                                                             COMPASS    16566     A     
 COMPASS            SB7    LEFLG-1                                                         COMPASS    16567     A     
 COMPASS            SB6    ERFLAGS+1                                                       COMPASS    16568     A     
 COMPASS            MX0    60-LEFLG                                                        COMPASS    16569     A     
 COMPASS            SX6    B1                                                              COMPASS    16570     A     
 COMPASS            BX2    -X0*X1                                                          COMPASS    16571     A     
 COMPASS            SX5    B1                                                              COMPASS    16572     A     
 COMPASS            ZR     X2,RINT6    IF NO ERRORS                                        COMPASS    16573     A     
 COMPASS            SA6    EFLG                                                            COMPASS    16574     A     
 COMPASS   RINT6    BX6    X1*X5                                                           COMPASS    16575     A     
 COMPASS            LX1    59                                                              COMPASS    16576     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    16577     A     
 COMPASS   +        SA6    B7+B6                                                           COMPASS    16578     A     
 COMPASS            PL     B7,RINT6                                                        COMPASS    16579     A     
 COMPASS            AX1    30-LEFLG                                                        COMPASS    16580     A     
 COMPASS            SX0    B1                                                              COMPASS    16581     A     
 COMPASS            SB7    LIBFLG-NOAS-1                                                   COMPASS    16582     A     
 COMPASS            BX6    X0*X1                                                           COMPASS    16583     A     
 COMPASS            SA6    LIBFLG                                                          COMPASS    16584     A     
 COMPASS            AX1    1                                                               COMPASS    16585     A     
 COMPASS            BX6    X0*X1                                                           COMPASS    16586     A     
 COMPASS   +        SB7    B7-B1                                                           COMPASS    16587     A     
 COMPASS            SA6    A6-B1                                                           COMPASS    16588     A     
 COMPASS            AX1    1                                                               COMPASS    16589     A     
 COMPASS            BX6    X0*X1                                                           COMPASS    16590     A     
 COMPASS            PL     B7,*-1                                                          COMPASS    16591     A     
 COMPASS            EQ     RINT                                                            COMPASS    16592     A     
 COMPASS   RINTER   SPACE  4                                                               COMPASS    16593     A     
 COMPASS  **        RINTER - READ INTERMEDIATE STATEMENT.                                  COMPASS    16594     A     
 COMPASS  *         RINTER RE-CREATES THE STATEMENT, SETS ALL ERROR FLAGS, SETS            COMPASS    16595     A     
 COMPASS  *         ALL INDICATORS, AND CREATES THE PRINT LINE.                            COMPASS    16596     A     
 COMPASS                                                                                   COMPASS    16597     A     
 COMPASS                                                                                   COMPASS    16598     A     
 COMPASS   RIS1     RJ     RINT        READ IN SUBSTITUTED LINE                            COMPASS    16599     A     
 COMPASS            SA1    MICFLG                                                          CPS0289        7     A     
 COMPASS            NZ     X1,RIS1     IF ANOTHER MICRO, LOOP                              CPS0289        8     A     
 COMPASS                                                                                   COMPASS    16600     A     
 COMPASS   RINTER   PS                 RETURN EXIT                                         COMPASS    16601     A     
 COMPASS   RIS2     RJ     RINT        READ IN INTERMEDIATE LINE                           COMPASS    16602     A     
 COMPASS            MX6    0                                                               COMPASS    16603     A     
 COMPASS            SA6    DETFLG      CLEAR DETAIL FLAG                                   COMPASS    16604     A     
 COMPASS            SA6    CTYPE       CLEAR CONTROL CARD TYPE                             COMPASS    16605     A     
 COMPASS            SA6    PLFLG       CLEAR PRINT LINE READY                              COMPASS    16606     A     
 COMPASS            SA6    NLFLG       CLEAR NO LIST FLAG                                  COMPASS    16607     A     
 COMPASS            SA1    LR+1        SET SUPREF                                          COMPASS    16608     A     
 COMPASS            SA2    LX+1                                                            COMPASS    16609     A     
 COMPASS            SA3    LIBFLG                                                          COMPASS    16610     A     
 COMPASS            SA4    LXRF                                                            CPS010       121     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 981    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX3    -X2*X3                                                          COMPASS    16611     A     
 COMPASS            BX1    X1*X4                                                           CPS010       122     A     
 COMPASS            SX2    B1                                                              COMPASS    16612     A     
 COMPASS            IX6    X2-X1                                                           COMPASS    16613     A     
 COMPASS            BX6    X6+X3                                                           COMPASS    16614     A     
 COMPASS            SA6    SUPREF                                                          COMPASS    16615     A     
 COMPASS            SA3    EFLG        CHECK ERROR FLAG                                    COMPASS    16616     A     
 COMPASS            SA1    RISA                                                            COMPASS    16617     A     
 COMPASS            NZ     X3,RIS7     IF ERROR                                            COMPASS    16618     A     
 COMPASS            SB7    30                                                              COMPASS    16619     A     
 COMPASS   RIS3     AX2    X1,B7                                                           COMPASS    16620     A     
 COMPASS            SA3    X1                                                              COMPASS    16621     A     
 COMPASS            SA4    X2                                                              COMPASS    16622     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    16623     A     
 COMPASS            BX0    -X3*X4                                                          COMPASS    16624     A     
 COMPASS            ZR     X0,RIS3     IF LINE WILL LIST                                   COMPASS    16625     A     
 COMPASS            SX6    A1-RISA-RISAL                                                   COMPASS    16626     A     
 COMPASS            NZ     X6,RIS6     IF LIST OPTION FAILS                                COMPASS    16627     A     
 COMPASS   RIS4     RJ     LDL                                                             COMPASS    16628     A     
 COMPASS            MX6    0                                                               F4820        783     A     
 COMPASS            SA6    PLFLG       CLEAR PRINT LINE READY                              F4820        784     A     
 COMPASS   RIS5     RJ     CPL         CREATE PRINT LINE                                   COMPASS    16629          I
          -CPS234 
 COMPASS   RIS5     SA1    LPCNT       INCREMENT PRINTED LINE COUNT                        CPS234         8     A     
 COMPASS            SA2    PGCNT                                                           CPSA186        9     A     
 COMPASS            SX6    X1                                                              CPS234         9     A     
 COMPASS            SX7    X2                                                              CPSA186       10     A     
 COMPASS            SA6    LPCX                                                            CPS234        10     A     
 COMPASS            SA7    A6+B1      SAVE PAGE NUMBER FOR ENTREF                          CPSA186       11     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   CPS234        11     A     
 COMPASS            SA1    MICFLG                                                          COMPASS    16630     A     
 COMPASS            SA2    LA+1                                                            COMPASS    16631     A     
 COMPASS            ZR     X1,RINTER   IF NOT MICRO/CONCATENATION LINE                     COMPASS    16632     A     
 COMPASS            ZR     X2,RIS1     IF NO *A* OPTION                                    COMPASS    16633     A     
 COMPASS            RJ     LISTER                                                          COMPASS    16634     A     
 COMPASS            EQ     RIS2                                                            COMPASS    16635     A     
 COMPASS   RIS6     SA1    MICFLG      CHECK FOR MICRO/CONCATENATION LINE                  COMPASS    16636     A     
 COMPASS            SX6    B1                                                              COMPASS    16637     A     
 COMPASS            SA6    NLFLG                                                           COMPASS    16638     A     
 COMPASS            NZ     X1,RIS1     IF MICRO/CONCATENATION LINE                         COMPASS    16639     A     
 COMPASS            EQ     RINTER                                                          COMPASS    16640     A     
 COMPASS   RIS7     SA1    DLFLG                                                           COMPASS    16641     A     
 COMPASS            ZR     X1,RIS5     IF NO DEFERRED LINE                                 COMPASS    16642     A     
 COMPASS            SX7    B1                                                              COMPASS    16643     A     
 COMPASS            SA7    FLIST                                                           COMPASS    16644     A     
 COMPASS            RJ     LISTER                                                          COMPASS    16645     A     
 COMPASS            MX6    0                                                               COMPASS    16646     A     
 COMPASS            SA6    DLFLG                                                           COMPASS    16647     A     
 COMPASS            EQ     RIS5                                                            COMPASS    16648     A     
 COMPASS                                                                                   COMPASS    16649     A     
 COMPASS   RISA     VFD    30/=1,30/LL+1     MASTER LIST                                   COMPASS    16650     A     
 COMPASS            VFD    30/=1,30/LISTFG   EXTERNAL LIST                                 COMPASS    16651          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 982    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            VFD    30/=1,30/CP.LISTF  EXTERNAL LIST                                CMP30       5069     A     
 COMPASS            VFD    30/SYSFLG,30/LS+1 SYSTEM MACRO                                  COMPASS    16652     A     
 COMPASS            VFD    30/LIBFLG,30/LX+1 XTEXT                                         COMPASS    16653     A     
 COMPASS            VFD    30/MACFLG,30/LM+1 MACRO                                         COMPASS    16654     A     
 COMPASS            VFD    30/ECHFLG,30/LE+1 DUP                                           COMPASS    16655     A     
 COMPASS            VFD    30/RMTFLG,30/LD+1 RMT                                           COMPASS    16656     A     
 COMPASS            VFD    30/NOAS,30/LF+1   IF SKIPPED                                    COMPASS    16657     A     
 COMPASS            VFD    30/=1,30/=0       END OF TABLE                                  COMPASS    16658     A     
 COMPASS   RISAL    EQU    *-RISA                                                          COMPASS    16659     A     
 COMPASS   RINTRD   SPACE  4                                                               COMPASS    16660     A     
 COMPASS  **        RINTRD - READ WORDS FROM INTERMEDIATE FILE INTO RELVEC.                COMPASS    16661     A     
 COMPASS  *         RINTRD WILL ACCESS EITHER INTERMEDIATE FILE OR TABLE.                  COMPASS    16662     A     
 COMPASS  *         EXIT   (CCT) = NUMBER OF CARDS.                                        COMPASS    16663     A     
 COMPASS                                                                                   COMPASS    16664     A     
 COMPASS                                                                                   COMPASS    16665     A     
 COMPASS   RIF1     SA1    RIFA                                                            COMPASS    16666     A     
 COMPASS            NZ     X1,RIF2     IF NOT FIRST READ                                   COMPASS    16667     A     
 COMPASS                                                                                   CMP30       5070     A     
 COMPASS            IFEQ   CP#RM,0,3                                                       CMP30       5071     A     
 COMPASS            READ   S                                                               COMPASS    16668     A     
 COMPASS            READW  S,RIFA,1                                                        COMPASS    16669     A     
 COMPASS            ELSE   1                                                               CMP30       5072     A     
 COMPASS            GET    S,RIFA,10                                                       CMP30       5073     A     
 COMPASS                                                                                   CMP30       5074     A     
 COMPASS            SA1    RIFA                                                            COMPASS    16670     A     
 COMPASS   RIF2     BX6    X1                                                              COMPASS    16671     A     
 COMPASS            MX0    60-4                                                            COMPASS    16672     A     
 COMPASS            AX1    30                                                              COMPASS    16673     A     
 COMPASS            SA6    RELVEC                                                          COMPASS    16674     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    16675     A     
 COMPASS            MX0    60-8                                                            COMPASS    16676     A     
 COMPASS            AX1    34-30                                                           COMPASS    16677     A     
 COMPASS            BX2    -X0*X1                                                          COMPASS    16678     A     
 COMPASS            SA6    CCT                                                             COMPASS    16679     A     
 COMPASS                                                                                   CMP30       5075     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5076     A     
 COMPASS            READW  S,RELVEC+1,X2                                                   COMPASS    16680     A     
 COMPASS            SA1    B6-B1                                                           COMPASS    16681     A     
 COMPASS   RM       ELSE                                                                   CMP30       5077     A     
 COMPASS            BX6    X2                                                              CMP30       5078     A     
 COMPASS            IX3    X2+X2                                                           CMP30       5079     A     
 COMPASS            LX2    3                                                               CMP30       5080     A     
 COMPASS            IX4    X3+X2                                                           CMP30       5081     A     
 COMPASS            SA6    T6RM1                                                           CMP30       5082     A     
 COMPASS            GET    S,RELVEC+1,X4                                                   CMP30       5083     A     
 COMPASS            SA2    T6RM1                                                           CMP30       5084     A     
 COMPASS            SA1    RELVEC+X2   NEXT HEADER WORD                                    CMP30       5085     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5086     A     
 COMPASS                                                                                   CMP30       5087     A     
 COMPASS            BX6    X1                                                              COMPASS    16682     A     
 COMPASS            SA6    RIFA                                                            COMPASS    16683     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 983    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    16684     A     
 COMPASS   RINTRD   PS                 RETURN EXIT                                         COMPASS    16685     A     
 COMPASS            SA2    INTERIO                                                         COMPASS    16686     A     
 COMPASS            NZ     X2,RIF1     IF FILE ON DISK                                     COMPASS    16687     A     
 COMPASS            SA2    O.INTER                                                         COMPASS    16688     A     
 COMPASS            SA3    X2                                                              COMPASS    16689     A     
 COMPASS            MX0    60-4                                                            COMPASS    16690     A     
 COMPASS            AX3    30                                                              COMPASS    16691     A     
 COMPASS            BX6    -X0*X3                                                          COMPASS    16692     A     
 COMPASS            SA6    CCT                                                             COMPASS    16693     A     
 COMPASS            MX0    60-8                                                            COMPASS    16694     A     
 COMPASS            AX3    34-30                                                           COMPASS    16695     A     
 COMPASS            BX1    -X0*X3                                                          COMPASS    16696     A     
 COMPASS            SA4    L.INTER                                                         COMPASS    16697     A     
 COMPASS            IX6    X2+X1                                                           COMPASS    16698     A     
 COMPASS            IX7    X4-X1                                                           COMPASS    16699     A     
 COMPASS            SA6    A2          RESET TABLE POINTERS                                COMPASS    16700     A     
 COMPASS            SA7    A4                                                              COMPASS    16701     A     
 COMPASS            SX3    RELVEC      MOVE DATA                                           COMPASS    16702     A     
 COMPASS            RJ     MOVE                                                            COMPASS    16703     A     
 COMPASS            EQ     RINTRD      RETURN                                              COMPASS    16704     A     
 COMPASS   SBL      SPACE  4                                                               COMPASS    16705     A     
 COMPASS  **        SBL - SET BINARY LENGTH.                                               COMPASS    16706     A     
 COMPASS  *         SETS (LPGM) AND ALLOCATES MEMORY FOR AN ABSOLUTE CP PROGRAM.           COMPASS    16707     A     
 COMPASS                                                                                   COMPASS    16708     A     
 COMPASS                                                                                   COMPASS    16709     A     
 COMPASS   SBL      PS                 RETURN EXIT                                         COMPASS    16710     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       282     A     
 COMPASS            SA4    O.SEGTAB    SET PROGRAM LENGTH                                  COMPASS    16711     A     
 COMPASS            SX6    X4+4                                                            COMPASS    16712     A     
 COMPASS            SA6    A4                                                              COMPASS    16713     A     
 COMPASS            SA4    X4                                                              COMPASS    16714     A     
 COMPASS            BX6    X4                                                              COMPASS    16715     A     
 COMPASS            SA6    LPGM                                                            COMPASS    16716     A     
 COMPASS            SA4    L.SEGTAB    REDUCE LENGTH                                       COMPASS    16717     A     
 COMPASS            SX6    X4-4                                                            COMPASS    16718     A     
 COMPASS            SA6    A4                                                              COMPASS    16719     A     
 COMPASS            RJ     ALM         ALLOCATE MEMORY                                     COMPASS    16720     A     
 COMPASS            EQ     SBL         RETURN                                              COMPASS    16721     A     
 COMPASS   SIC      SPACE  4                                                               COMPASS    16722     A     
 COMPASS  **        SIC - SCAN IDENT CARD.                                                 COMPASS    16723     A     
 COMPASS  *         ENTRY  (X1) = 0 IF *IDENT*,  1 IF *SEGMENT*.                  S002  68 CPS002        50     A     
 COMPASS  *                (X6) = DEFAULT OVERLAY LEVELS.                         S002  69 CPS002        51     A     
 COMPASS  *         EXIT   (P2TEMP) = IDENT NAME.                                          COMPASS    16724     A     
 COMPASS  *                (P2TEMPA) = OVERLAY LEVELS.                            S002  71 CPS002        52     A     
 COMPASS  *                (ORGBASE) = BASE ORIGIN.                                        COMPASS    16725     A     
 COMPASS  *                (SEGEPT) = ENTRY POINT ADDRESS.                        S002  73 CPS002        53     A     
 COMPASS                                                                                   COMPASS    16726     A     
 COMPASS                                                                                   COMPASS    16727     A     
 COMPASS   SIC3     MX0    18                                                              CMP1          19          I
          -CPS002 
 COMPASS            BX6    X0*X6                                                           CMP1          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/28. 19.11.32.      PAGE 984    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS002 
 COMPASS            ZR     X6,SIC      IF NAME @ 7 CHARACTERS                              CMP1          21          I
          -CPS002 
 COMPASS   SIC3     MX0    -7*6                                                   S002  75 CPS002        54     A     
 COMPASS            BX2    X0*X6                                                  S002  76 CPS002        55     A     
 COMPASS            ZR     X2,SIC      IF NOT MORE THAN 7 CHARACTERS              S002  77 CPS002        56     A     
 COMPASS            RJ     VFYLINK     TRUNCATE NAME                              S002  78 CPS002        57     A     
 COMPASS            SA6    P2TEMP                                                 S002  79 CPS002        58     A     
 COMPASS            SX6    B1                                                              CMP1          22          I
          -CPS127 
 COMPASS   SIC3A    SX6    B1                                                      CPS127  CPS127         5     A     
 COMPASS            SA6    AERR                                                            CMP1          23     A     
 COMPASS            SA6    EFLG                                                            CMP1          24     A     
 COMPASS                                                                                   CMP1          25     A     
 COMPASS   SIC      PS                 RETURN EXIT                                         COMPASS    16728     A     
 COMPASS            SA1    ABSFG                                                           COMPASS    16729          I
          -CMP1   
 COMPASS            ZR     X1,SIC      IF RELOCATABLE PROGRAM                              COMPASS    16730          I
          -CMP1   
 COMPASS            RJ     SCLIST      SKIP IDENT NAME                                     COMPASS    16731          I
          -CPS002 
 COMPASS            SA6    P2TEMPA     SAVE DEFAULT OVERLAY LEVELS                S002  81 CPS002        59     A     
 COMPASS            NZ     X1,SIC1     IF *SEGMENT*                               S002  82 CPS002        60     A     
 COMPASS            RJ     SCLIST      SCAN IDENT NAME                            S002  83 CPS002        61     A     
 COMPASS            SA1    ABSFG                                                           CMP1          26     A     
 COMPASS            SA6    P2TEMP                                                 S002  85 CPS002        62     A     
 COMPASS            ZR     X1,SIC3     IF RELOCATABLE PROGRAM                              CMP1          27     A     
 COMPASS            SX1    21                                                              CMP1          28          I
          -CPS002 
 COMPASS            SA6    P2TEMP                                                          COMPASS    16732          I
          -CPS002 
 COMPASS            ZR     X6,SIC1     IF BLANK NAME                                       COMPASS    16733          I
          -CPS002 
 COMPASS            RJ     VFYLINK                                                         COMPASS    16734     A     
 COMPASS            SA6    P2TEMP                                                 S002  88 CPS002        63     A     
 COMPASS            ZR     X7,SIC1     IF NAME GOOD                                        COMPASS    16735     A     
 COMPASS            SX6    B1                                                              COMPASS    16736     A     
 COMPASS            SA6    EFLG                                                            COMPASS    16737     A     
 COMPASS            SA6    AERR                                                            COMPASS    16738     A     
 COMPASS   SIC1     SX1    21                                                              COMPASS    16739          I
          -CPS002 
 COMPASS   SIC1     SX1    18                                                     S002  90 CPS002        64     A     
 COMPASS            SX6    3                                                               COMPASS    16740     A     
 COMPASS            RJ     SCADCON     SCAN ORIGIN VALUE                                   COMPASS    16741     A     
 COMPASS            SA1    EXVAL                                                           COMPASS    16742     A     
 COMPASS            MX6    42                                                              COMPASS    16743          I
          -CPS002 
 COMPASS            MX6    -18                                                    S002  92 CPS002        65     A     
 COMPASS            BX7    -X6*X1                                                          COMPASS    16744     A     
 COMPASS            SA7    ORGBASE                                                         COMPASS    16745     A     
 COMPASS            SX1    21                                                              COMPASS    16746          I
          -CPS002 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 985    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX1    18                                                     S002  94 CPS002        66     A     
 COMPASS            SX6    3                                                               COMPASS    16747     A     
 COMPASS            RJ     SCADCON                                                         COMPASS    16748     A     
 COMPASS            SA1    EXVAL                                                           COMPASS    16749     A     
 COMPASS            MX6    42                                                              COMPASS    16750          I
          -CPS002 
 COMPASS            MX6    -18                                                    S002  96 CPS002        67     A     
 COMPASS            BX6    -X6*X1                                                          COMPASS    16751     A     
 COMPASS            SA6    SEGEPT      ENTRY POINT FOR SEGMENT                             COMPASS    16752     A     
 COMPASS            SA1    MACHINE                                                         CMP1          29     A     
 COMPASS            SA2    EXSTOP                                                 S002  98 CPS002        68     A     
 COMPASS            SA3    PPTYPE                                                  CPS127  CPS127         6     A     
 COMPASS            NZ     X1,SIC2     IF PP                                               CMP1          30     A     
 COMPASS            SA1    CHAR                                                            COMPASS    16753          I
          -CPS002 
 COMPASS            SB7    X1-1R                                                           COMPASS    16754          I
          -CPS002 
 COMPASS            ZR     B7,SIC      IF NO LEVEL NUMBERS                                 COMPASS    16755          I
          -CPS002 
 COMPASS            ZR     X2,SIC      IF NO LEVEL NUMBERS                        S002 100 CPS002        69     A     
 COMPASS            SA1    MACHINE                                                         COMPASS    16756          I
          -CMP1   
 COMPASS            NZ     X1,SIC2     IF PP                                               COMPASS    16757          I
          -CMP1   
 COMPASS            SX1    6           LEVEL NUMBER 1                                      COMPASS    16758     A     
 COMPASS            SX6    3                                                               COMPASS    16759     A     
 COMPASS            RJ     SMC                                                             COMPASS    16760     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    16761     A     
 COMPASS            SX1    6           LEVEL NUMBER 2                                      COMPASS    16762     A     
 COMPASS            BX6    X2                                                              COMPASS    16763     A     
 COMPASS            SA6    P2TEMPA                                                         COMPASS    16764     A     
 COMPASS            SX6    3                                                               COMPASS    16765     A     
 COMPASS            RJ     SMC                                                             COMPASS    16766     A     
 COMPASS            SA1    P2TEMPA     DUMP PRELIMINARY INFORMATION                        COMPASS    16767     A     
 COMPASS            SA2    EXVAL                                                           COMPASS    16768     A     
 COMPASS            MX0    -6                                                              COMPASS    16769     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    16770     A     
 COMPASS            LX6    6                                                               COMPASS    16771     A     
 COMPASS            BX2    -X0*X2                                                          COMPASS    16772     A     
 COMPASS            IX6    X2+X6                                                           COMPASS    16773     A     
 COMPASS            SA6    A1                                                              COMPASS    16774     A     
 COMPASS            EQ     SIC         RETURN                                              COMPASS    16775     A     
 COMPASS   SIC2     SX1    12          PPU NUMBER                                          COMPASS    16776          I
          -CPS127 
 COMPASS   SIC2     NZ     X3,SIC2A    IF PPU                                      CPS127  CPS127         7     A     
 COMPASS            NZ     X2,SIC3A    IF COMMA                                    CPS127  CPS127         8     A     
 COMPASS            EQ     SIC         RETURN                                      CPS127  CPS127         9     A     
 COMPASS   SIC2A    SX1    12          PPU NUMBER                                  CPS127  CPS127        10     A     
 COMPASS            SX6    3                                                               COMPASS    16777     A     
 COMPASS            RJ     SMC                                                             COMPASS    16778     A     
 COMPASS            MX4    -12                                                             COMPASS    16779     A     
 COMPASS            SA2    SEGEPT      ENTRY POINT                                         COMPASS    16780     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 986    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    EXVAL                                                           COMPASS    16781     A     
 COMPASS            BX2    -X4*X2                                                          COMPASS    16782     A     
 COMPASS            BX1    -X4*X1                                                          COMPASS    16783     A     
 COMPASS            LX2    12                                                              COMPASS    16784     A     
 COMPASS            LX1    36                                                              COMPASS    16785     A     
 COMPASS            BX6    X2+X1                                                           COMPASS    16786     A     
 COMPASS            SA6    A2                                                              COMPASS    16787     A     
 COMPASS            EQ     SIC         RETURN                                              COMPASS    16788     A     
 COMPASS   SMO      SPACE  4                                                               COMPASS    16789     A     
 COMPASS  **        SMO - SET MINIMUM AND MAXIMUM ORIGIN.                                  COMPASS    16790     A     
 COMPASS                                                                                   COMPASS    16791     A     
 COMPASS                                                                                   COMPASS    16792     A     
 COMPASS   SMO      PS                 RETURN EXIT                                         COMPASS    16793     A     
 COMPASS            SA1    ABSFG                                                           COMPASS    16794     A     
 COMPASS            MX6    0                                                               COMPASS    16795     A     
 COMPASS            SX7    B1                                                              COMPASS    16796     A     
 COMPASS            IX7    X7-X1       1-ABSFG = BLOCK NUMBER TO START WITH                COMPASS    16797     A     
 COMPASS            SA6    ORGCTR                                                          COMPASS    16798     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16799     A     
 COMPASS            SA6    LOCCTR                                                          COMPASS    16800     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16801     A     
 COMPASS            LX4    X7,B1                                                           COMPASS    16802          I
          -CMP30  
 COMPASS            BX5    X7+X4                                                           COMPASS    16803          I
          -CMP30  
 COMPASS            IX3    X5+X5                                                           COMPASS    16804          I
          -CMP30  
 COMPASS            LX7    2                                                               CMP30       5088     A     
 COMPASS            SA4    O.USETAB                                                        COMPASS    16805     A     
 COMPASS            SA1    UI                                                              COMPASS    16806     A     
 COMPASS            SB7    X3+2                                                            COMPASS    16807          I
          -CMP30  
 COMPASS            SB7    X7+2                                                            CMP30       5089     A     
 COMPASS            IX4    X4+X1                                                           COMPASS    16808     A     
 COMPASS            SA2    X4+B7                                                           COMPASS    16809     A     
 COMPASS            SA1    A2+3                                                            COMPASS    16810          I
          -CMP30  
 COMPASS            MX3    -21                                                             COMPASS    16811     A     
 COMPASS            BX7    -X3*X2                                                          COMPASS    16812     A     
 COMPASS            SX6    X1                                                              COMPASS    16813          I
          -CMP30  
 COMPASS            AX2    33                                                              CMP30       5090     A     
 COMPASS            BX6    -X3*X2                                                          CMP30       5091     A     
 COMPASS            SA6    MAXORG                                                          COMPASS    16814     A     
 COMPASS            SA7    A6+B1       MINORG                                              COMPASS    16815     A     
 COMPASS            RJ     RESORG                                                          COMPASS    16816     A     
 COMPASS            EQ     SMO         RETURN                                              COMPASS    16817     A     
 COMPASS   SUO      SPACE  4                                                               COMPASS    16818     A     
 COMPASS  **        SUO - SET USE ORIGINS.                                                 COMPASS    16819     A     
 COMPASS  *         SET THE ORIGIN OF ALL USE BLOCKS TO ZERO.                              COMPASS    16820     A     
 COMPASS                                                                                   COMPASS    16821     A     
 COMPASS                                                                                   COMPASS    16822     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 987    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   SUO      PS                 RETURN EXIT                                         COMPASS    16823     A     
 COMPASS            SA1    O.USETAB                                                        COMPASS    16824     A     
 COMPASS            SA2    L.USETAB                                                        COMPASS    16825     A     
 COMPASS            SA5    LWORD                                                           COMPASS    16826     A     
 COMPASS            LX5    24                                                              COMPASS    16827     A     
 COMPASS            MX0    -21                                                             COMPASS    16828     A     
 COMPASS            SA3    X1+2                                                            COMPASS    16829     A     
 COMPASS            SB6    -6                                                              COMPASS    16830          I
          -CMP30  
 COMPASS            SB6    -4                                                              CMP30       5092     A     
 COMPASS   SUO1     BX6    -X0*X3                                                          COMPASS    16831     A     
 COMPASS            IX6    X5+X6                                                           COMPASS    16832     A     
 COMPASS            SA6    A3-B1                                                           COMPASS    16833     A     
 COMPASS            SA3    A3-B6       ADVANCE TO NEXT ORIGIN                              COMPASS    16834     A     
 COMPASS            SX2    X2+B6                                                           COMPASS    16835     A     
 COMPASS            NZ     X2,SUO1     LOOP                                                COMPASS    16836     A     
 COMPASS            EQ     SUO         RETURN                                              COMPASS    16837     A     
 COMPASS   TLIST    SPACE  4                                                               COMPASS    16838     A     
 COMPASS  **        TLIST - TEST FOR LISTING OF TITLE CARDS.                               COMPASS    16839     A     
 COMPASS  *         RETURN TO Z100 IF CARD WILL NOT LIST.                                  COMPASS    16840     A     
 COMPASS                                                                                   COMPASS    16841     A     
 COMPASS                                                                                   COMPASS    16842     A     
 COMPASS   TLIST    PS                 RETURN EXIT                                         COMPASS    16843     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    16844     A     
 COMPASS            BX6    X1                                                              COMPASS    16845     A     
 COMPASS            SA6    SUBNAME                                                         COMPASS    16846     A     
 COMPASS            SA1    LL+1                                                            COMPASS    16847     A     
 COMPASS            SA2    LISTFG                                                          COMPASS    16848          I
          -CMP30  
 COMPASS            SA2    CP.LISTF                                                        CMP30       5093     A     
 COMPASS            SA3    LIBFLG                                                          COMPASS    16849          I
          -CMP036 
 COMPASS            BX6    X1*X2                                                           COMPASS    16850     A     
 COMPASS            SA1    LX+1                                                            COMPASS    16851          I
          -CMP036 
 COMPASS            BX3    -X1*X3                                                          COMPASS    16852          I
          -CMP036 
 COMPASS            BX6    -X3*X6                                                          COMPASS    16853          I
          -CMP036 
 COMPASS            ZR     X6,Z100     IF NO LIST                                          COMPASS    16854     A     
 COMPASS            SX6    B1                                                              COMPASS    16855          I
          -CMP036 
 COMPASS            SA6    CTYPE                                                           COMPASS    16856     A     
 COMPASS            EQ     TLIST       RETURN                                              COMPASS    16857     A     
 COMPASS   UPS      SPACE  4                                                               COMPASS    16858     A     
 COMPASS  **        UPS - UNPACK SEGMENT CARD.                                             COMPASS    16859     A     
 COMPASS  *         ENTRY  (SI) = SEGMENT TABLE INDEX.                                     COMPASS    16860     A     
 COMPASS                                                                                   COMPASS    16861     A     
 COMPASS                                                                                   COMPASS    16862     A     
 COMPASS   UPS      PS                 RETURN EXIT                                         COMPASS    16863     A     
 COMPASS            SA5    SI                                                              COMPASS    16864     A     
 COMPASS            SA2    O.SEGTAB                                                        COMPASS    16865     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 988    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX3    X5+X2                                                           COMPASS    16866     A     
 COMPASS            SA4    O.IDTAB     UNPACK CARD                                         COMPASS    16867     A     
 COMPASS            SA3    X3+B1                                                           COMPASS    16868     A     
 COMPASS            IX1    X3+X4                                                           COMPASS    16869     A     
 COMPASS            SA2    X1          SET CURRENT QUAL                                    COMPASS    16870     A     
 COMPASS            SX1    X1+B1                                                           COMPASS    16871     A     
 COMPASS            MX0    12                                                              COMPASS    16872     A     
 COMPASS            SX7    X2                                                              COMPASS    16873     A     
 COMPASS            BX6    X0*X2                                                           COMPASS    16874     A     
 COMPASS            SA6    QVAL                                                            COMPASS    16875     A     
 COMPASS            SA7    NBASE                                                           COMPASS    16876     A     
 COMPASS            RJ     /PASS1/UCARD                                                    COMPASS    16877     A     
 COMPASS            RJ     SETUP                                                           COMPASS    16878     A     
 COMPASS            MX6    0           CREATE PRINT LINE                                   COMPASS    16879     A     
 COMPASS            SX7    B1                                                              COMPASS    16880     A     
 COMPASS            SA6    PLFLG                                                           COMPASS    16881     A     
 COMPASS            SA6    DLFLG                                                           COMPASS    16882     A     
 COMPASS            SA7    CCT                                                             COMPASS    16883     A     
 COMPASS            RJ     CPL                                                             COMPASS    16884     A     
 COMPASS            SA1    =1H         CLEAR SEQ FIELD                                     COMPASS    16885     A     
 COMPASS            BX6    X1                                                              COMPASS    16886     A     
 COMPASS            SA6    LINE+7                                                          COMPASS    16887     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    16888     A     
 COMPASS            EQ     UPS         RETURN                                              COMPASS    16889     A     
 COMPASS   URS      SPACE  4                                                               CPSA246        7     A     
 COMPASS  **        URS - UNDEFINE REDEFINABLE SYMBOLS                                     CPSA246        8     A     
 COMPASS  *                                                                                CPSA246        9     A     
 COMPASS                                                                                   CPSA246       10     A     
 COMPASS                                                                                   CPSA246       11     A     
 COMPASS   URS      PS                                                                     CPSA246       12     A     
 COMPASS            SA1    L.SYMTAB                                                        CPSA246       13     A     
 COMPASS            SA2    O.SYMTAB                                                        CPSA246       14     A     
 COMPASS            SA5    =7777770070BS30                                                 CPSA246       15     A     
 COMPASS            SB7    X1          LENGTH OF SYMTAB                                    CPSA246       16     A     
 COMPASS            SB2    B1+B1       SYMTAB ENTRY SIZE                                   CPSA246       17     A     
 COMPASS            SB6    59-33       REDEF FLAG POSITION                                 CPSA246       18     A     
 COMPASS            SX2    X2-1                                                            CPSA246       19     A     
 COMPASS   URS1     SB7    B7-B2       DECREMENT LENGTH                                    CPSA246       20     A     
 COMPASS            SX2    X2+B2       INCREMENT TABLE POSITION                            CPSA246       21     A     
 COMPASS            RX1    X2          FETCH 2ND WORD OF ENTRY                             CPSA246       22     A     
 COMPASS            NG     B7,URS      IF END OF TABLE, EXIT                               CPSA246       23     A     
 COMPASS            LX6    X1,B6                                                           CPSA246       24     A     
 COMPASS            PL     X6,URS1     IF NOT REDEFINABLE, LOOP                            CPSA246       25     A     
 COMPASS            BX6    X5*X1                                                           CPSA246       26     A     
 COMPASS            WX6    X2          REPLACE ENTRY                                       CPSA246       27     A     
 COMPASS            EQ     URS1        LOOP                                                CPSA246       28     A     
 COMPASS                                                                                   CPSA246       29     A     
 COMPASS   ZDEFSYM  SPACE  4                                                               COMPASS    16890     A     
 COMPASS  **        ZDEFSYM - REDEFINE SYMBOL (FOR USE OF SET ONLY).                       COMPASS    16891          I
          -CMP19  
 COMPASS  **        ZDEFSYM - DEFINE SYMBOL.                                               CMP19        358     A     
 COMPASS  *         MAKES TYPE *D* REF TABLE ENTRY AND STORES SYMBOL VALUE                 CMP19        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/28. 19.11.32.      PAGE 989    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         RIGHT JUSTIFIED IN OCTAL EXPANSION AREA.                               CMP19        360     A     
 COMPASS  *         NO ERRORS DETECTED.                                                    COMPASS    16892     A     
 COMPASS  *         ENTRY  (X1) = SYMBOL.                                                  COMPASS    16893     A     
 COMPASS  *                (X2) = VALUE.                                                   COMPASS    16894     A     
 COMPASS  *                (X3) = RELOCATION.                                              COMPASS    16895     A     
 COMPASS  *                (X4) = EXTERNAL NUMBER.                                         COMPASS    16896     A     
 COMPASS  *                (X5) = REDEFINITION FLAG.                                       CMP19        361     A     
 COMPASS                                                                                   COMPASS    16897     A     
 COMPASS                                                                                   COMPASS    16898     A     
 COMPASS   ZDEFSYM  PS                 RETURN EXIT                                         COMPASS    16899     A     
 COMPASS            ZR     X1,ZDEFSYM  EXIT IF SYMBOL IS EMPTY                             COMPASS    16900     A     
 COMPASS            MX0    39                                                              COMPASS    16901     A     
 COMPASS            BX2    -X0*X2      TRUNCATE TO 21-BIT VALUE                            COMPASS    16902     A     
 COMPASS            BX3    X4+X3       OR RELOCATION AND EXTERNAL                          COMPASS    16903     A     
 COMPASS            SX5    B1                                                              COMPASS    16904          I
          -CMP19  
 COMPASS            LX3    21                                                              COMPASS    16905     A     
 COMPASS            IX6    X3+X2                                                           COMPASS    16906     A     
 COMPASS   +        LX5    2                                                               COMPASS    16907     A     
 COMPASS            ZR     X4,*+1                                                          COMPASS    16908     A     
 COMPASS            SX5    X5+B1       ADD EXT BIT                                         COMPASS    16909     A     
 COMPASS            LX5    1                                                               COMPASS    16910     A     
 COMPASS            SX5    X5+B1       MAKE REDEF+DEF                                      COMPASS    16911          I
          -CMP19  
 COMPASS            SX5    X5+B1       ADD DEFINED BIT                                     CMP19        362     A     
 COMPASS            LX5    30                                                              COMPASS    16912     A     
 COMPASS            BX6    X6+X5       SAVE                                                COMPASS    16913     A     
 COMPASS            SA6    ZDEFSYMT    EQUIVALENT                                          COMPASS    16914     A     
 COMPASS            RJ     TLUSYMT     FIND SYMBOL                                         COMPASS    16915     A     
 COMPASS            SX0    X3-1                                                            CP096A       515     A     
 COMPASS            SA4    ZDEFSYMT                                                        COMPASS    16916          I
          -CMP19  
 COMPASS            MX0    28                                                              COMPASS    16917          I
          -CMP19  
 COMPASS            BX2    X0*X2                                                           COMPASS    16918          I
          -CMP19  
 COMPASS            BX6    X2+X4                                                           COMPASS    16919          I
          -CMP19  
 COMPASS            SA6    X3          STORE NEW EQUIVALENT                                COMPASS    16920          I
          -CMP19  
 COMPASS            ZR     X3,ZDEFSYM2 IF NOT FOUND                                        CMP19        363     A     
 COMPASS            SA1    X3-1                                                            CMP19        364          I
          -CP096A 
 COMPASS            RX1    X0                                                              CP096A       516     A     
 COMPASS            MX0    28                                                              CMP19        365     A     
 COMPASS            BX6    X1-X5                                                           CMP19        366     A     
 COMPASS            SA1    ZDEFSYMT                                                        CMP19        367     A     
 COMPASS            LX1    59-33                                                           CMP19        368     A     
 COMPASS            NZ     X6,ZDEFSYM2 IF NOT SAME QUALIFIER                               CMP19        369     A     
 COMPASS            PL     X1,ZDEFSYM1 IF NOT REDEFINABLE                                  CMP19        370     A     
 COMPASS            LX1    33-59                                                           CMP19        371     A     
 COMPASS            BX2    X0*X2                                                           CMP19        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/28. 19.11.32.      PAGE 990    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X2+X1                                                           CMP19        373     A     
 COMPASS            SA6    X3          STORE NEW EQUIVALENT                                CMP19        374          I
          -CP096A 
 COMPASS            WX6    X3          STORE NEW EQUIVALENT                                CP096A       517     A     
 COMPASS   ZDEFSYM1 SX1    1RD         USAGE = D                                           CMP19        375     A     
 COMPASS            RJ     ENTREF      ENTER REFERENCE TABLE                               CMP19        376     A     
 COMPASS   ZDEFSYM2 SA1    ZDEFSYMT                                                        CMP19        377     A     
 COMPASS            SX2    36                                                              CMP19        378     A     
 COMPASS            MX0    -21                                                             CMP19        379          I
          -CPS010 
 COMPASS            LX1    59-20       EXTEND SIGN OF VALUE                                CPS010       123     A     
 COMPASS            SX3    B0                                                              CMP19        380     A     
 COMPASS            BX1    -X0*X1                                                          CMP19        381          I
          -CPS010 
 COMPASS            AX1    59-20                                                           CPS010       124     A     
 COMPASS            RJ     PACKOR      CALL PACKOR (VALUE,36,7)                            CMP19        382     A     
 COMPASS            EQ     ZDEFSYM                                                         COMPASS    16921     A     
 COMPASS                                                                                   COMPASS    16922     A     
 COMPASS   ZDEFSYMT DATA   0           TEMPORARY STORAGE                                   COMPASS    16923     A     
 COMPASS   ZEVITEM  SPACE  4                                                               COMPASS    16924     A     
 COMPASS  **        ZEVITEM - EVALUATE ITEM.                                               COMPASS    16925     A     
 COMPASS  *         MANY ERRORS DETECTED HERE.                                             COMPASS    16926     A     
 COMPASS  *         ENTRY  (X1) = FIELD WIDTH.                                             COMPASS    16927     A     
 COMPASS                                                                                   COMPASS    16928     A     
 COMPASS                                                                                   COMPASS    16929     A     
 COMPASS   ZEVITEM  PS                 RETURN EXIT                                         COMPASS    16930     A     
 COMPASS            BX6    X1                                                              COMPASS    16931     A     
 COMPASS            SA6    ZEVITFL                                                         COMPASS    16932     A     
 COMPASS            MX6    0                                                               COMPASS    16933     A     
 COMPASS            BX7    X7-X7       CLEAR OUT REPLY CELLS                               COMPASS    16934     A     
 COMPASS            SA6    ELVAL                                                           COMPASS    16935     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16936     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    16937     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    16938     A     
 COMPASS            SA1    ZEVITEMN    SET SWITCH FOR NORMAL EXIT                          COMPASS    16939     A     
 COMPASS            BX6    X1                                                              COMPASS    16940     A     
 COMPASS            SA6    ZEVITEMS                                                        COMPASS    16941     A     
 COMPASS            SA1    CHAR                                                            COMPASS    16942     A     
 COMPASS            SA2    MACHINE                                                         COMPASS    16943     A     
 COMPASS            SB7    X1-3                                                            COMPASS    16944     A     
 COMPASS            NZ     X2,ZEVIT10  JUMP IF PP TO IGNORE REGISTER CHECKS                COMPASS    16945     A     
 COMPASS            NG     B7,ZEVIT500 IF FIRST LETTER IS (A) OR (B)                       COMPASS    16946     A     
 COMPASS            SB7    X1-1RX                                                          COMPASS    16947     A     
 COMPASS            ZR     B7,ZEVIT500 IF FIRST LETTER IS (X)                              COMPASS    16948     A     
 COMPASS   ZEVIT10  SB7    X1-1RZ-1                                                        COMPASS    16949     A     
 COMPASS            NG     B7,ZEVIT21  JUMP IF LETTER                                      COMPASS    16950     A     
 COMPASS            SB7    X1-1R9-1                                                        COMPASS    16951     A     
 COMPASS            NG     B7,ZEVIT100 IF DIGIT                                            COMPASS    16952     A     
 COMPASS            SB7    X1-1R/                                                          COMPASS    16953     A     
 COMPASS            ZR     B7,ZEVIT300 IF SLASH                                            COMPASS    16954     A     
 COMPASS            SB7    X1-1R=                                                          COMPASS    16955     A     
 COMPASS            ZR     B7,ZEVIT400 IF EQUALS SIGN                                      COMPASS    16956     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 991    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SB7    X1-1R*                                                          COMPASS    16957     A     
 COMPASS            ZR     B7,ZEVIT200 IF ASTERISK                                         COMPASS    16958     A     
 COMPASS            SB7    X1-1R$                                                          COMPASS    16959     A     
 COMPASS            EQ     B7,ZEVIT250 IF DOLLAR SIGN                                      COMPASS    16960     A     
 COMPASS                                                                                   COMPASS    16961     A     
 COMPASS  *         ALPHABETIC CHARACTER LEADS THE ELEMENT.                                COMPASS    16962     A     
 COMPASS                                                                                   COMPASS    16963     A     
 COMPASS   ZEVIT21  RJ     SCITEM      ISOLATE THE SYMBOL                                  COMPASS    16964     A     
 COMPASS   ZEVIT22  BX1    X6                                                              COMPASS    16965     A     
 COMPASS            ZR     X6,ZEVITER  COMPLAIN IF EMPTY SYMBOL                            COMPASS    16966     A     
 COMPASS            RJ     ZTLUSYM     EVALUATE SYMBOL                                     COMPASS    16967     A     
 COMPASS            EQ     ZEVITEMS                                                        COMPASS    16968     A     
 COMPASS                                                                                   COMPASS    16969     A     
 COMPASS  *         ASTERISK ELEMENT.                                                      COMPASS    16970     A     
 COMPASS                                                                                   COMPASS    16971     A     
 COMPASS   ZEVIT200 RJ     SCITEM      ISOLATE THE ITEM                                    COMPASS    16972     A     
 COMPASS            SB7    X6-1R*      ISOLATE VALURIOS LEGAL COMBINATIONS                 COMPASS    16973     A     
 COMPASS            SB6    X6-2R*L                                                         COMPASS    16974     A     
 COMPASS            SB5    X6-2R*O                                                         COMPASS    16975     A     
 COMPASS            ZR     B7,ZEVIT210 IF *                                                COMPASS    16976     A     
 COMPASS            ZR     B6,ZEVIT210 IF *L                                               COMPASS    16977     A     
 COMPASS            ZR     B5,ZEVIT220 IF *O                                               COMPASS    16978     A     
 COMPASS            SB7    X6-2R*P                                                         COMPASS    16979     A     
 COMPASS            SB6    X6-2R*F                                                         COMPASS    16980     A     
 COMPASS            ZR     B7,ZEVIT230 IF *P                                               COMPASS    16981     A     
 COMPASS            ZR     B6,ZEVIT240 IF *F                                               COMPASS    16982     A     
 COMPASS   ZEVITER  SX6    B1          NOTE ERROR                                          COMPASS    16983     A     
 COMPASS            SA6    AERR                                                            COMPASS    16984     A     
 COMPASS            SA6    EFLG                                                            COMPASS    16985     A     
 COMPASS            SA6    EXERR                                                           COMPASS    16986     A     
 COMPASS            EQ     ZEVITEMS                                                        COMPASS    16987     A     
 COMPASS                                                                                   COMPASS    16988     A     
 COMPASS  *         * OR *L ELEMENT.                                                       COMPASS    16989     A     
 COMPASS                                                                                   COMPASS    16990     A     
 COMPASS   ZEVIT210 SA2    LOCCTR                                                          COMPASS    16991     A     
 COMPASS   ZEVIT211 SA3    A2+B1                                                           COMPASS    16992     A     
 COMPASS            BX6    X2                                                              COMPASS    16993     A     
 COMPASS            LX7    X3                                                              COMPASS    16994     A     
 COMPASS   ZEVIT212 SA6    ELVAL                                                           COMPASS    16995     A     
 COMPASS            SA7    ELREL                                                           COMPASS    16996     A     
 COMPASS            EQ     ZEVITEMS                                                        COMPASS    16997     A     
 COMPASS                                                                                   COMPASS    16998     A     
 COMPASS  *         *O ELEMENT.                                                            COMPASS    16999     A     
 COMPASS                                                                                   COMPASS    17000     A     
 COMPASS   ZEVIT220 SA2    ORGCTR      USE ORIGIN COUNTER                                  COMPASS    17001     A     
 COMPASS            EQ     ZEVIT211                                                        COMPASS    17002     A     
 COMPASS                                                                                   COMPASS    17003     A     
 COMPASS  *         *P ELEMENT.                                                            COMPASS    17004     A     
 COMPASS                                                                                   COMPASS    17005     A     
 COMPASS   ZEVIT230 SA2    POSCTR                                                          COMPASS    17006     A     
 COMPASS   ZEVIT231 BX6    X2                                                              COMPASS    17007     A     
 COMPASS            MX7    0                                                               COMPASS    17008     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 992    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     ZEVIT212                                                        COMPASS    17009     A     
 COMPASS                                                                                   COMPASS    17010     A     
 COMPASS  *         *F ELEMENT.                                                            COMPASS    17011     A     
 COMPASS                                                                                   COMPASS    17012     A     
 COMPASS   ZEVIT240 SA2    FMODE                                                           COMPASS    17013     A     
 COMPASS            EQ     ZEVIT231                                                        COMPASS    17014     A     
 COMPASS                                                                                   COMPASS    17015     A     
 COMPASS  *         DOLLAR SIGN.                                                           COMPASS    17016     A     
 COMPASS                                                                                   COMPASS    17017     A     
 COMPASS   ZEVIT250 RJ     SCITEM      GET ITEM                                            COMPASS    17018     A     
 COMPASS            SA1    PPTYPE                                                          F4820        785     A     
 COMPASS            SX1    X1+B1                                                           F4820        786     A     
 COMPASS            ZR     X1,ZEVIT210 IF BCU ASSEMBLY                                     F4820        787     A     
 COMPASS            SB7    X6-1R$      AND COMPLAIN IF ANYTHING MORE THAN                  COMPASS    17019     A     
 COMPASS            SA1    POSCTR      JUST A DOLLAR SIGN                                  COMPASS    17020     A     
 COMPASS            SX6    X1-1                                                            COMPASS    17021     A     
 COMPASS            MX7    0                                                               COMPASS    17022     A     
 COMPASS            ZR     B7,ZEVIT212                                                     COMPASS    17023     A     
 COMPASS            EQ     ZEVITER                                                         COMPASS    17024     A     
 COMPASS                                                                                   COMPASS    17025     A     
 COMPASS  *         SLASH ELEMENT.                                                         COMPASS    17026     A     
 COMPASS                                                                                   COMPASS    17027     A     
 COMPASS   ZEVIT300 RJ     GETCH                                                           COMPASS    17028     A     
 COMPASS            SA2    CHAR        CHECK NEXT CHARACTER                                COMPASS    17029     A     
 COMPASS            SX1    X2-1R/                                                          COMPASS    17030     A     
 COMPASS            ZR     X1,ZEVIT303 IF */*                                              COMPASS    17031     A     
 COMPASS            RJ     SCITEM                                                          COMPASS    17032     A     
 COMPASS            SB7    X1-1R/                                                          COMPASS    17033     A     
 COMPASS            NZ     B7,ZEVITER  IF NOT QUAL SYMBOL                                  COMPASS    17034     A     
 COMPASS            BX1    X6                                                              COMPASS    17035     A     
 COMPASS   ZEVIT303 RJ     SQV         SET QUAL VALUE                                      COMPASS    17036     A     
 COMPASS            RJ     GETCH       SKIP TERMINAL /                                     COMPASS    17037     A     
 COMPASS            RJ     SCITEM                                                          COMPASS    17038     A     
 COMPASS            SA6    ZEVA                                                            CMP1          31     A     
 COMPASS            BX1    X6                                                              COMPASS    17039     A     
 COMPASS            NZ     X6,ZEVIT301 IF NOT EMPTY SYMBOL                                 COMPASS    17040     A     
 COMPASS            SX6    B1                                                              COMPASS    17041     A     
 COMPASS            SA6    AERR                                                            COMPASS    17042     A     
 COMPASS            SA6    EFLG                                                            COMPASS    17043     A     
 COMPASS            EQ     ZEVIT302                                                        COMPASS    17044     A     
 COMPASS   ZEVIT301 RJ     ZTLUSYM                                                         COMPASS    17045     A     
 COMPASS            SA1    ZEVA        LOOK UP SYMBOL                                      CMP1          32     A     
 COMPASS            RJ     TLUSYMT                                                         CMP1          33     A     
 COMPASS            SA1    X3-1                                                            CMP1          34          I
          -CP096A 
 COMPASS            SX0    X3-1                                                            CP096A       518     A     
 COMPASS            RX1    X0                                                              CP096A       519     A     
 COMPASS            BX6    X5-X1                                                           CMP1          35     A     
 COMPASS            ZR     X6,ZEVIT302 IF THE SAME QUALIFIER                               CMP1          36     A     
 COMPASS            SX6    B1          SET UNDEFINED ERROR                                 CMP1          37          I
          -CMP146 
 COMPASS            MX7    0                                                               CMP1          38          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 993    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP146 
 COMPASS            SA6    UERR                                                            CMP1          39          I
          -CMP146 
 COMPASS            SA7    ELVAL                                                           CMP1          40          I
          -CMP146 
 COMPASS            SA6    EFLG                                                            CMP1          41          I
          -CMP146 
 COMPASS            SA7    A7+B1       ELREL                                               CMP1          42          I
          -CMP146 
 COMPASS            SA7    A7+B1       ELEXT                                               CMP1          43          I
          -CMP146 
 COMPASS            SA6    EXERR                                                           CMP1          44          I
          -CMP146 
 COMPASS            SX2    B0                                                              CMP146        35     A     
 COMPASS            RJ     ENTSYMT     ENTER SYMBOL TABLE                                  CMP146        36     A     
 COMPASS            EQ     ZEVIT301    AND GO LOOK AGAIN                                   CMP146        37     A     
 COMPASS   ZEVIT302 SA1    QVAL+1      RESET QUAL VALUE                                    COMPASS    17046     A     
 COMPASS            BX6    X1                                                              COMPASS    17047     A     
 COMPASS            SA6    A1-B1                                                           COMPASS    17048     A     
 COMPASS            EQ     ZEVITEMS    RETURN                                              COMPASS    17049     A     
 COMPASS                                                                                   COMPASS    17050     A     
 COMPASS  *         EQUALS SIGN.                                                           COMPASS    17051     A     
 COMPASS                                                                                   COMPASS    17052     A     
 COMPASS   ZEVIT400 RJ     GETCH                                                           COMPASS    17053     A     
 COMPASS            SB7    X1-1RS                                                          COMPASS    17054     A     
 COMPASS            SB6    X1-1RX                                                          COMPASS    17055     A     
 COMPASS   +        ZR     B7,*+1      IF =S TYPE SYMBOL                                   COMPASS    17056          I
          -CP154  
 COMPASS            ZR     B7,ZEVIT402  IF =S TYPE SYMBOL                                  CP154         53     A     
 COMPASS            EQ     B6,B1,ZEVIT402  IF =Y TYPE SYMBOL                               CP154         54     A     
 COMPASS            NZ     B6,ZEVIT401 JUMP IF NUMERIC LITERAL                             COMPASS    17057     A     
 COMPASS            RJ     GETCH       THROW AWAY THE X OR S                               COMPASS    17058          I
          -CP154  
 COMPASS   ZEVIT402 RJ     GETCH       THROW AWAY THE *S* OR *X* OR *Y*                    CP154         55     A     
 COMPASS            EQ     ZEVIT21     AND GO EVALUATE NORMAL SYMBOL                       COMPASS    17059     A     
 COMPASS   ZEVIT401 SX2    VALUES      PREPARE TO EVALUATE LITERAL                         COMPASS    17060     A     
 COMPASS            SX3    NLITS                                                           COMPASS    17061     A     
 COMPASS            SX4    -B1                                                             COMPASS    17062     A     
 COMPASS            SA5    LWORD                                                           COMPASS    17063     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      COMPASS    17064     A     
 COMPASS            ZR     X3,ZEVITER  COMPLAIN IF ZERO-LENGTH DATA                        COMPASS    17065     A     
 COMPASS            SX2    VALUES                                                          COMPASS    17066     A     
 COMPASS            RJ     ZTLULIT     LOOK UP LITERAL                                     COMPASS    17067     A     
 COMPASS            MX0    39                                                              COMPASS    17068     A     
 COMPASS            BX6    -X0*X3                                                          COMPASS    17069     A     
 COMPASS            AX3    24                                                              COMPASS    17070     A     
 COMPASS            BX7    X3                                                              COMPASS    17071          I
          -CMP30  
 COMPASS            MX2    -9                                                              CMP30       5094     A     
 COMPASS            BX7    -X2*X3                                                          CMP30       5095     A     
 COMPASS            EQ     ZEVIT212                                                        COMPASS    17072     A     
 COMPASS                                                                                   COMPASS    17073     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 994    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         NUMERIC ELEMENT.                                                       COMPASS    17074     A     
 COMPASS                                                                                   COMPASS    17075     A     
 COMPASS   ZEVIT100 SX2    ELVAL                                                           COMPASS    17076     A     
 COMPASS            SX3    B1                                                              COMPASS    17077     A     
 COMPASS            BX4    X3                                                              COMPASS    17078     A     
 COMPASS            SA5    ZEVITFL                                                         COMPASS    17079     A     
 COMPASS            RJ     SCD         SCAN DATA ITEM                                      COMPASS    17080     A     
 COMPASS   ZEVITEMS PS                                                                     COMPASS    17081     A     
 COMPASS            SA1    CHAR                                                            COMPASS    17082     A     
 COMPASS            EQ     ZEVIT10                                                         COMPASS    17083     A     
 COMPASS                                                                                   COMPASS    17084     A     
 COMPASS  *         SUSPECTED REGISTER NAME.                                               COMPASS    17085     A     
 COMPASS                                                                                   COMPASS    17086     A     
 COMPASS   ZEVIT500 SA1    COLUMN                                                          COMPASS    17087     A     
 COMPASS            SA1    X1+CARD-1                                                       COMPASS    17088     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    17089     A     
 COMPASS            SB7    X2-1R.                                                          COMPASS    17090     A     
 COMPASS            ZR     B7,ZEVIT530 IF LETTER FOLLOWED BY DECIMAL POINT                 COMPASS    17091     A     
 COMPASS            SB7    X2-1R0      CHECK FOR NUMBER OUTSIDE OF 0-7                     COMPASS    17092     A     
 COMPASS            NG     B7,ZEVIT21                                                      COMPASS    17093     A     
 COMPASS            SB7    X2-1R8                                                          COMPASS    17094     A     
 COMPASS            PL     B7,ZEVIT21                                                      COMPASS    17095     A     
 COMPASS            SA3    A2+B1                                                           COMPASS    17096     A     
 COMPASS            SX4    3036B                                                           COMPASS    17097     A     
 COMPASS            LX4    36          CHECK FOR EXAACTLY 2-LETTERS                        COMPASS    17098     A     
 COMPASS            SB7    X3                                                              COMPASS    17099     A     
 COMPASS            AX5    X4,B7                                                           COMPASS    17100     A     
 COMPASS            LX5    59                                                              COMPASS    17101     A     
 COMPASS            PL     X5,ZEVIT21                                                      COMPASS    17102     A     
 COMPASS            SX4    X1                                                              COMPASS    17103     A     
 COMPASS            LX4    3                                                               COMPASS    17104     A     
 COMPASS            RJ     GETCH                                                           COMPASS    17105     A     
 COMPASS            SX5    X6-1R0      GET REGISTER NUMBER                                 COMPASS    17106     A     
 COMPASS            BX6    X4+X5                                                           COMPASS    17107     A     
 COMPASS            MX7    60                                                              COMPASS    17108     A     
 COMPASS            SA6    ELREG                                                           COMPASS    17109     A     
 COMPASS            SA7    ELVAL                                                           COMPASS    17110     A     
 COMPASS            RJ     GETCH                                                           COMPASS    17111     A     
 COMPASS            EQ     ZEVITEM                                                         COMPASS    17112     A     
 COMPASS                                                                                   COMPASS    17113     A     
 COMPASS   ZEVIT530 LX1    3           ISOLATE REGISTER CLASS                              COMPASS    17114     A     
 COMPASS            BX6    X1                                                              COMPASS    17115     A     
 COMPASS            SA6    ELREG                                                           COMPASS    17116     A     
 COMPASS            RJ     GETCH                                                           COMPASS    17117     A     
 COMPASS            RJ     GETCH       THROW AWAY PERIOD                                   COMPASS    17118     A     
 COMPASS            SA2    REFLET      SAVE REFERENCE TYPE LETTER                          CPS026        53     A     
 COMPASS            SX7    1R                                                              CPS026        54     A     
 COMPASS            BX6    X2                                                              CPS026        55     A     
 COMPASS            SA7    A2          MAKE IT BLANK TEMPORARILY                           CPS026        56     A     
 COMPASS            SA6    ZEVB                                                            CPS026        57     A     
 COMPASS            RJ     ZEVITEMS    GO BACK TO EVALUATE IT                              COMPASS    17119     A     
 COMPASS            SA2    ZEVB        RESTORE FLAGGING SYMBOL                             CPS026        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/28. 19.11.32.      PAGE 995    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX7    X2                                                              CPS026        59     A     
 COMPASS            SA7    REFLET                                                          CPS026        60     A     
 COMPASS            SA2    ELVAL                                                           COMPASS    17120     A     
 COMPASS            SA3    A2+B1       ELREL                                               COMPASS    17121     A     
 COMPASS            SA4    A3+B1       ELEXT                                               COMPASS    17122     A     
 COMPASS            BX5    X3+X4                                                           COMPASS    17123     A     
 COMPASS            SA3    EXERR                                                           COMPASS    17124     A     
 COMPASS            IX5    X5+X3                                                           COMPASS    17125     A     
 COMPASS            NZ     X5,ZEVIT550                                                     COMPASS    17126     A     
 COMPASS            MX5    -3                                                              COMPASS    17127     A     
 COMPASS            BX6    -X5*X2                                                          COMPASS    17128     A     
 COMPASS            MX7    60                                                              COMPASS    17129     A     
 COMPASS            BX5    X5*X2                                                           COMPASS    17130     A     
 COMPASS            SA7    A2                                                              COMPASS    17131     A     
 COMPASS            SA2    A4+B1       ELREG                                               COMPASS    17132     A     
 COMPASS            IX6    X6+X2                                                           COMPASS    17133     A     
 COMPASS            SA6    A2                                                              COMPASS    17134     A     
 COMPASS            ZR     X5,ZEVITEM  IF NO FIELD OVERFLOW                                COMPASS    17135     A     
 COMPASS            SX6    B1          COMPLAIN                                            COMPASS    17136     A     
 COMPASS            SA6    EFLG                                                            COMPASS    17137     A     
 COMPASS            SA6    W7ERR                                                           COMPASS    17138     A     
 COMPASS            EQ     ZEVITEM                                                         COMPASS    17139     A     
 COMPASS   ZEVIT550 SX6    B1          COMPLAIN                                            COMPASS    17140     A     
 COMPASS            SA6    A3                                                              COMPASS    17141     A     
 COMPASS            SA6    AERR                                                            COMPASS    17142     A     
 COMPASS            SA6    EFLG                                                            COMPASS    17143     A     
 COMPASS   ZEVITEMN SA1    CHAR                                                            COMPASS    17144     A     
 COMPASS            EQ     ZEVITEM                                                         COMPASS    17145     A     
 COMPASS                                                                                   COMPASS    17146     A     
 COMPASS   ZEVITFL  DATA   0                                                               COMPASS    17147     A     
 COMPASS   ZEVA     DATA   0                                                               CMP1          45     A     
 COMPASS   ZEVB     DATA   0                                                               CPS026        61     A     
 COMPASS   ZFOUP    SPACE  4                                                               COMPASS    17148     A     
 COMPASS  **        ZFOUP - FORCE UPPER.                                                   COMPASS    17149     A     
 COMPASS                                                                                   COMPASS    17150     A     
 COMPASS                                                                                   COMPASS    17151     A     
 COMPASS   ZFOUP    PS                 RETURN EXIT                                         COMPASS    17152     A     
 COMPASS            MX6    0                                                               COMPASS    17153     A     
 COMPASS            SA1    POSCTR                                                          COMPASS    17154     A     
 COMPASS            SA2    LWORD                                                           COMPASS    17155     A     
 COMPASS            BX3    X1-X2                                                           COMPASS    17156     A     
 COMPASS            SA6    NFOUP                                                           COMPASS    17157     A     
 COMPASS            ZR     X3,ZFOUP    EXIT IF ALREADY AT TOP OF WORD                      COMPASS    17158     A     
 COMPASS            SA4    MACHINE                                                         COMPASS    17159     A     
 COMPASS            NZ     X4,ZFOUP1   JUMP IF PP CODING                                   COMPASS    17160     A     
 COMPASS            SA3    =0.067P48   ROUND DOWN TO NEAREST QUARTER WORD                  COMPASS    17161     A     
 COMPASS            SA4    =15.0P0                                                         COMPASS    17162     A     
 COMPASS            PX0    X1                                                              COMPASS    17163     A     
 COMPASS            FX5    X0*X3                                                           COMPASS    17164     A     
 COMPASS            DX7    X5*X4                                                           COMPASS    17165     A     
 COMPASS            SA6    A1                                                              COMPASS    17166     A     
 COMPASS            SX2    X7                                                              COMPASS    17167     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 996    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    =460006100046000B                                               COMPASS    17168     A     
 COMPASS            SX3    B0                                                              COMPASS    17169     A     
 COMPASS            MX4    0                                                               COMPASS    17170     A     
 COMPASS            RJ     BINOUT      OUTPUT THE NO-OP INSTRUCTIONS                       COMPASS    17171     A     
 COMPASS   ZFOUP1   RJ     DWORD       DUMP THIS WORD                                      COMPASS    17172     A     
 COMPASS   ZFOUP2   SA1    LWORD       RESET TO NEW WORD                                   COMPASS    17173     A     
 COMPASS            SA2    ORGCTR                                                          COMPASS    17174     A     
 COMPASS            SA3    LOCCTR                                                          COMPASS    17175     A     
 COMPASS            BX6    X1                                                              COMPASS    17176     A     
 COMPASS            SX0    B1                                                              COMPASS    17177     A     
 COMPASS            IX7    X2+X0                                                           COMPASS    17178     A     
 COMPASS            SA6    POSCTR                                                          COMPASS    17179     A     
 COMPASS            SA7    A2                                                              COMPASS    17180     A     
 COMPASS            IX6    X3+X0                                                           COMPASS    17181     A     
 COMPASS            SA6    A3          RESET POSCTR TO LWORD                               COMPASS    17182     A     
 COMPASS            EQ     ZFOUP       RETURN                                              COMPASS    17183     A     
 COMPASS   ZFUALL   SPACE  4                                                               COMPASS    17184     A     
 COMPASS  **        ZFUALL - FORCE ALL BLOCKS UPPER.                                       COMPASS    17185     A     
 COMPASS  *         USES FLAG SETTING SET IN YFUALL IN PASS 1.                             COMPASS    17186     A     
 COMPASS                                                                                   COMPASS    17187     A     
 COMPASS                                                                                   COMPASS    17188     A     
 COMPASS   ZFU1     SA6    FLAG                                                            COMPASS    17189     A     
 COMPASS            RJ     USER                                                            COMPASS    17190     A     
 COMPASS            RJ     ZFOUP                                                           COMPASS    17191     A     
 COMPASS            SA1    FLAG                                                            COMPASS    17192     A     
 COMPASS            SX3    X1-1                                                            COMPASS    17193     A     
 COMPASS            SX2    X1                                                              COMPASS    17194     A     
 COMPASS            LX2    24                                                              COMPASS    17195     A     
 COMPASS            IX6    X2+X3                                                           COMPASS    17196     A     
 COMPASS            NZ     X3,ZFU1                                                         COMPASS    17197     A     
 COMPASS            SA1    ZFUALT      RESET TO CURRENT BLOCK                              COMPASS    17198     A     
 COMPASS            SX2    B1                                                              COMPASS    17199     A     
 COMPASS            LX2    24                                                              COMPASS    17200     A     
 COMPASS            AX1    24                                                              COMPASS    17201     A     
 COMPASS            IX6    X1+X2                                                           COMPASS    17202     A     
 COMPASS            SA6    FLAG                                                            COMPASS    17203     A     
 COMPASS            RJ     USER                                                            COMPASS    17204     A     
 COMPASS                                                                                   COMPASS    17205     A     
 COMPASS   ZFUALL   PS                 RETURN EXIT                                         COMPASS    17206     A     
 COMPASS            SA1    FLAG                                                            COMPASS    17207     A     
 COMPASS            BX6    X1                                                              COMPASS    17208     A     
 COMPASS            SA6    ZFUALT                                                          COMPASS    17209     A     
 COMPASS            RJ     ZFOUP                                                           COMPASS    17210     A     
 COMPASS            RJ     USER                                                            COMPASS    17211          I
          -RSM4159
 COMPASS            SA1    USECNT                                                          COMPASS    17212          I
          -RSM4159
 COMPASS            RJ     USER        SWITCH TO BASE BLOCK                                RSM4159       42     A     
 COMPASS            SA1    L.USETAB                                                        RSM4159       43     A     
 COMPASS            SA2    UI                                                              RSM4159       44     A     
 COMPASS            IX1    X1-X2                                                           RSM4159       45     A     
 COMPASS            AX1    2           NUMBER OF BLOCKS ABOVE CURRENT GROUP                RSM4159       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/28. 19.11.32.      PAGE 997    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA2    ZFUALT                                                          COMPASS    17213     A     
 COMPASS            SX2    X2                                                              COMPASS    17214     A     
 COMPASS            LX2    24                                                              COMPASS    17215     A     
 COMPASS            IX6    X1+X2                                                           COMPASS    17216     A     
 COMPASS            EQ     ZFU1                                                            COMPASS    17217     A     
 COMPASS                                                                                   COMPASS    17218     A     
 COMPASS   ZFUALT   DATA   0                                                               COMPASS    17219     A     
 COMPASS   ZPRLOC   SPACE  4                                                               COMPASS    17220     A     
 COMPASS  **        ZPRLOC - PROCESS LOCATION SYMBOL.                                      COMPASS    17221     A     
 COMPASS  *         ENTRY  (X1) = INSTRUCTION LENGTH.                                      COMPASS    17222     A     
 COMPASS                                                                                   COMPASS    17223     A     
 COMPASS                                                                                   COMPASS    17224     A     
 COMPASS   ZPRLOC   PS                 RETURN EXIT                                         COMPASS    17225     A     
 COMPASS            SA2    POSCTR      ROUND TO NEAREST QUARTER WORD                       COMPASS    17226     A     
 COMPASS            SA3    MACHINE     OR TO PP WORD BOUNDARY                              COMPASS    17227     A     
 COMPASS            SA4    LWORD                                                           F4820        788     A     
 COMPASS            PX0    X2                                                              COMPASS    17228     A     
 COMPASS            BX6    X2                                                              COMPASS    17229     A     
 COMPASS            NZ     X3,ZPRLOC1  IF PP                                               COMPASS    17230     A     
 COMPASS            SA4    =0.067P48                                                       COMPASS    17231     A     
 COMPASS            SA5    =15.0P0                                                         COMPASS    17232     A     
 COMPASS            FX0    X0*X4                                                           COMPASS    17233     A     
 COMPASS            DX4    X0*X5                                                           COMPASS    17234     A     
 COMPASS            UX6    X4,B7                                                           COMPASS    17235     A     
 COMPASS            EQ     ZPRLOC2                                                         COMPASS    17236     A     
 COMPASS   ZPRLOC1  SB7    X2-12                                                           COMPASS    17237          I
          -F4820  
 COMPASS   ZPRLOC1  IX4    X2-X4                                                           F4820        789     A     
 COMPASS            SB7    X4                                                              F4820        790     A     
 COMPASS            ZR     B7,ZPRLOC2                                                      COMPASS    17238     A     
 COMPASS            MX6    0                                                               COMPASS    17239     A     
 COMPASS   ZPRLOC2  SA6    A2          RESET POSITION COUNTER                              COMPASS    17240     A     
 COMPASS            BX7    X1                                                              COMPASS    17241     A     
 COMPASS            SA7    ZPRLOCT     SAVE INCREMENT COUNT                                COMPASS    17242     A     
 COMPASS   +        NZ     X6,*+1                                                          COMPASS    17243     A     
 COMPASS            RJ     ZFOUP       IF AT BOTTOM OF WORD, FORCE UPPER                   COMPASS    17244     A     
 COMPASS            SA1    ZPRLOCT                                                         COMPASS    17245     A     
 COMPASS            SA2    POSCTR                                                          COMPASS    17246     A     
 COMPASS            IX6    X2-X1       CHECK IF ROOM EXISTS FOR THIS                       COMPASS    17247     A     
 COMPASS   +        PL     X6,*+1      INSTRUCTION                                         COMPASS    17248     A     
 COMPASS            RJ     ZFOUP       IF INSTRUCTION LENGTH DEMANDS IT                    COMPASS    17249     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    17250     A     
 COMPASS            SB7    X1-1R-                                                          COMPASS    17251     A     
 COMPASS            NZ     B7,ZPRLOC4  IF NOT MINUS                                        COMPASS    17252     A     
 COMPASS            MX6    0           CLEAR FORCE UPPER                                   COMPASS    17253     A     
 COMPASS            SA6    NFOUP                                                           COMPASS    17254     A     
 COMPASS            EQ     ZPRLOC3                                                         COMPASS    17255     A     
 COMPASS   ZPRLOC4  SA2    NFOUP                                                           COMPASS    17256     A     
 COMPASS            BX1    X2+X1                                                           COMPASS    17257     A     
 COMPASS   +        ZR     X1,*+1      IF LOCSYM NON BLANK OR NFOUP NON 0                  COMPASS    17258     A     
 COMPASS            RJ     ZFOUP                                                           COMPASS    17259     A     
 COMPASS   ZPRLOC3  BSS    0                                                               COMPASS    17260     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 998    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA1    POSCTR                                                          COMPASS    17261     A     
 COMPASS            SA2    LWORD       CHECK FOR BEING AT TOP OF WORD                      COMPASS    17262     A     
 COMPASS            BX3    X1-X2                                                           COMPASS    17263     A     
 COMPASS            NZ     X3,ZPRLOC5  IF NOT AT TOP OF WORD                               COMPASS    17264     A     
 COMPASS            RJ     LLA         LIST LOCATION ADDRESS                               COMPASS    17265     A     
 COMPASS   ZPRLOC5  SA1    LOCSYM                                                          COMPASS    17266     A     
 COMPASS            ZR     X1,ZPRLOC   EXIT IF NO LOCATION SYMBOL                          COMPASS    17267     A     
 COMPASS            BX2    X1          AVOID REFERENCE TO INVENTED SYMBOL                  COMPASS    17268          I
          -CMP19  
 COMPASS            SX6    B0                                                              COMPASS    17269          I
          -CMP19  
 COMPASS            SA6    A1                                                              COMPASS    17270          I
          -CMP19  
 COMPASS            AX2    36                                                              COMPASS    17271          I
          -CMP19  
 COMPASS            SB7    X2-2R'?                                                         COMPASS    17272          I
          -CMP19  
 COMPASS            SB6    X1-1R+                                                          COMPASS    17273          I
          -CMP19  
 COMPASS            ZR     B7,ZPRLOC   IF INVENTED SYMBOL                                  COMPASS    17274          I
          -CMP19  
 COMPASS            ZR     B6,ZPRLOC   IF +                                                COMPASS    17275          I
          -CMP19  
 COMPASS            EQ     B6,B1,ZPRLOC IF -                                               COMPASS    17276          I
          -CMP19  
 COMPASS            MX6    0                                                               CMP19        383     A     
 COMPASS            SB7    X1-1R+                                                          CMP19        384     A     
 COMPASS            SA6    A1                                                              CMP19        385     A     
 COMPASS            ZR     B7,ZPRLOC   IF +                                                CMP19        386     A     
 COMPASS            EQ     B7,B1,ZPRLOC IF -                                               CMP19        387     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS    17277     A     
 COMPASS            ZR     X2,ZPRLOC   IF UNDEFINED                                        COMPASS    17278          I
          -CMP19  
 COMPASS            ZR     X3,ZPRLOC   IF NOT FOUND                                        CMP19        388     A     
 COMPASS            SX1    1RL         USAGE = L                                           COMPASS    17279     A     
 COMPASS            RJ     ENTREF      ENTER REFERENCE TABLE                               COMPASS    17280     A     
 COMPASS            EQ     ZPRLOC      EXIT                                                COMPASS    17281     A     
 COMPASS                                                                                   COMPASS    17282     A     
 COMPASS   ZPRLOCT  DATA   0           TEMPORARY STORAGE                                   COMPASS    17283     A     
 COMPASS   ZTLIST   SPACE  4                                                               COMPASS    17284     A     
 COMPASS  **        ZTLIST - SEE IF THIS CARD WOULD LIST.                                  COMPASS    17285     A     
 COMPASS  *         USED BY SPACE AND EJECT TO SEE IF SPACING SHOULD BE DONE.              COMPASS    17286     A     
 COMPASS  *         IF YES, EXIT.  IF NO, JUMP TO Z100.                                    COMPASS    17287     A     
 COMPASS                                                                                   COMPASS    17288     A     
 COMPASS                                                                                   COMPASS    17289     A     
 COMPASS   ZTLIST   PS                 RETURN EXIT                                         COMPASS    17290     A     
 COMPASS            SA1    LOCSYM                                                          COMPASS    17291     A     
 COMPASS            BX6    X1                                                              COMPASS    17292     A     
 COMPASS            SA6    SUBNAME                                                         COMPASS    17293     A     
 COMPASS            SA1    LSLA                                                            COMPASS    17294     A     
 COMPASS            SB7    30                                                              COMPASS    17295     A     
 COMPASS   ZTL1     AX2    X1,B7       CHECK LIST OPTIONS                                  COMPASS    17296     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE 999    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    X1          LIST CONTROL                                        COMPASS    17297     A     
 COMPASS            SA4    X2          CARD TYPE                                           COMPASS    17298     A     
 COMPASS            BX6    -X3*X4                                                          COMPASS    17299     A     
 COMPASS            SA1    A1+B1                                                           COMPASS    17300     A     
 COMPASS            ZR     X6,ZTL1     IF LIST STILL POSSIBLE                              COMPASS    17301     A     
 COMPASS            SX6    A1-LSLA-LSLAL                                                   COMPASS    17302     A     
 COMPASS            NZ     X6,Z100     IF NO LIST                                          COMPASS    17303     A     
 COMPASS            RJ     LDL         LIST DEFERRED LINE                                  COMPASS    17304     A     
 COMPASS            RJ     CPL         CREATE PRINT LINE                                   COMPASS    17305     A     
 COMPASS            EQ     ZTLIST      RETURN                                              COMPASS    17306     A     
 COMPASS   ZTLULIT  SPACE  4                                                               COMPASS    17307     A     
 COMPASS  **        ZTLULIT - LOOK UP LITERALS.                                            COMPASS    17308     A     
 COMPASS  *         ENTRY  (X2) = ORIGIN OF VALUES.                                        COMPASS    17309     A     
 COMPASS  *                (X3) = WORD COUNT.                                              COMPASS    17310     A     
 COMPASS  *         EXIT   (X3) = RELOCATED EQUIVALENT.                                    COMPASS    17311     A     
 COMPASS                                                                                   COMPASS    17312     A     
 COMPASS                                                                                   COMPASS    17313     A     
 COMPASS   ZTLULIT  PS                 RETURN EXIT                                         COMPASS    17314     A     
 COMPASS            SA4    O.LITAB     FIND LITERAL TABLE                                  COMPASS    17315     A     
 COMPASS            SA5    LI                                                              COMPASS    17316     A     
 COMPASS            IX4    X4+X5                                                           COMPASS    17317     A     
 COMPASS            SB6    X4                                                              COMPASS    17318     A     
 COMPASS            SA4    B6                                                              COMPASS    17319     A     
 COMPASS            SB2    X2                                                              COMPASS    17320     A     
 COMPASS            SB3    X3                                                              COMPASS    17321     A     
 COMPASS            SA2    X2                                                              COMPASS    17322     A     
 COMPASS   ZLIT1    BX7    X4-X2                                                           COMPASS    17323     A     
 COMPASS            SA4    A4+B1                                                           COMPASS    17324     A     
 COMPASS            NG     X7,ZLIT1    IF NO MATCH                                         COMPASS    17325     A     
 COMPASS            NZ     X7,ZLIT1                                                        COMPASS    17326     A     
 COMPASS            SB5    B0          CHECK FOR SEQUENTIAL EQUALITY OF                    COMPASS    17327     A     
 COMPASS            MX0    0           BOTH ELEMENTS                                       COMPASS    17328     A     
 COMPASS   ZLIT2    SA5    A4+B5                                                           COMPASS    17329     A     
 COMPASS            SB5    B5+B1                                                           COMPASS    17330     A     
 COMPASS            BX0    X0+X7       ACCUMULATE DIFFERANCES                              COMPASS    17331     A     
 COMPASS            SA3    A2+B5                                                           COMPASS    17332     A     
 COMPASS            BX7    X3-X5       COMPARE VALUES                                      COMPASS    17333     A     
 COMPASS            NE     B5,B3,ZLIT2                                                     COMPASS    17334     A     
 COMPASS            NZ     X0,ZLIT1    IF MATCH NOT FOUND                                  COMPASS    17335     A     
 COMPASS            NG     X0,ZLIT1                                                        COMPASS    17336     A     
 COMPASS            SB7    A4-B1       INDEX OF ENTRY IN LITAB                             COMPASS    17337     A     
 COMPASS            SX4    B7-B6                                                           COMPASS    17338     A     
 COMPASS            SA1    O.USETAB    FIND LITERALS ORIGIN                                COMPASS    17339     A     
 COMPASS            SA2    UI                                                              COMPASS    17340     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    17341     A     
 COMPASS            SA2    X1+14                                                           COMPASS    17342          I
          -CMP30  
 COMPASS            SA2    X1+2*4+2                                                        CMP30       5096     A     
 COMPASS            IX3    X2+X4                                                           COMPASS    17343     A     
 COMPASS            EQ     ZTLULIT     RETURN                                              COMPASS    17344     A     
 COMPASS   ZTLUSYM  SPACE  4                                                               COMPASS    17345     A     
 COMPASS  **        ZTLUSYM - EVALUATE SYMBOL.                                             COMPASS    17346     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1000    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *         MANY ERRORS DETECTED HERE.                                             COMPASS    17347     A     
 COMPASS  *         REFERENCE TABLE ENTRIES MADE HERE.                                     COMPASS    17348     A     
 COMPASS  *         ENTRY  (X1) = SYMBOL.                                                  COMPASS    17349     A     
 COMPASS  *         EXIT   (ELVAL) = SYMBOL VALUE.                                         COMPASS    17350     A     
 COMPASS  *                (ELREL) = SYMBOL RELOCATION.                                    COMPASS    17351     A     
 COMPASS  *                (ELEXT) = SYMBOL EXTERNAL.                                      COMPASS    17352     A     
 COMPASS                                                                                   COMPASS    17353     A     
 COMPASS                                                                                   COMPASS    17354     A     
 COMPASS   ZTLUSYM  PS                 RETURN EXIT                                         COMPASS    17355     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS    17356     A     
 COMPASS            LX2    29                                                              COMPASS    17357          I
          -CMP19  
 COMPASS            NZ     X3,ZTLU2    IF FOUND                                            CMP19        389     A     
 COMPASS   ZTLU4    MX2    0                                                               CMP19        390     A     
 COMPASS            RJ     ENTSYMT     ENTER SYMBOL TABLE                                  CMP19        391     A     
 COMPASS            EQ     ZTLUSYM+1   AND GO TRY AGAIN                                    CMP19        392     A     
 COMPASS   ZTLU2    LX2    59-30                                                           CMP19        393     A     
 COMPASS            NG     X2,ZTLUSYM1 IF DEFINED SYMBOL                                   COMPASS    17358     A     
 COMPASS            SX7    B1                                                              COMPASS    17359     A     
 COMPASS            SA7    UERR        SET UNDEFINED ERROR                                 COMPASS    17360          I
          -CMP146 
 COMPASS            SA1    IFDF                                                            CMP146        38     A     
 COMPASS            ZR     X1,ZTLU2A   IF NOT IF DEF/EXT/REG                               CMP146        39     A     
 COMPASS            SX6    B1+B1                                                           CMP146        40     A     
 COMPASS            SA6    A1          IFDF = 2                                            CMP146        41     A     
 COMPASS            EQ     ZTLUSYM1                                                        CMP146        42     A     
 COMPASS   ZTLU2A   SA7    UERR        SET UNDEFINED ERROR                                 CMP146        43     A     
 COMPASS            SA7    EFLG                                                            COMPASS    17361     A     
 COMPASS            SA7    EXERR                                                           COMPASS    17362     A     
 COMPASS            NZ     X2,ZTLUSYM2 IF NOT IN TABLE ADD IT                              COMPASS    17363          I
          -CMP19  
 COMPASS            SX2    B1                                                              COMPASS    17364          I
          -CMP19  
 COMPASS            RJ     ENTSYMT                                                         COMPASS    17365          I
          -CMP19  
 COMPASS            EQ     ZTLUSYM+1   AND GO TRY AGAIN                                    COMPASS    17366          I
          -CMP19  
 COMPASS   ZTLUSYM2 SX6    B0          CLEAR REPLY VALUES                                  COMPASS    17367          I
          -CMP19  
 COMPASS            SA6    ELVAL                                                           COMPASS    17368          I
          -CMP19  
 COMPASS            SA6    A6+B1                                                           COMPASS    17369          I
          -CMP19  
 COMPASS            SA6    A6+B1                                                           COMPASS    17370          I
          -CMP19  
 COMPASS            EQ     ZTLUSYM4                                                        COMPASS    17371          I
          -CMP19  
 COMPASS   ZTLUSYM1 LX2    10                                                              COMPASS    17372     A     
 COMPASS            AX2    39          SIGN EXTEND VALUE                                   COMPASS    17373     A     
 COMPASS            BX6    X2                                                              COMPASS    17374     A     
 COMPASS            SA2    X3          RECLAIM VALUE OF SYMBOL                             COMPASS    17375          I
          -CP096A 
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1001    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            RX2    X3          RECLAIM VALUE OF SYMBOL                             CP096A       520     A     
 COMPASS            SX0    777B                                                            COMPASS    17376     A     
 COMPASS            SA6    ELVAL                                                           COMPASS    17377     A     
 COMPASS            AX2    21                                                              COMPASS    17378     A     
 COMPASS            BX6    X0*X2                                                           COMPASS    17379     A     
 COMPASS            LX2    49                                                              COMPASS    17380     A     
 COMPASS            SA6    A6+B1       ELREL                                               COMPASS    17381     A     
 COMPASS            MX7    0                                                               COMPASS    17382     A     
 COMPASS            SA7    A6+B1       ELECT                                               COMPASS    17383     A     
 COMPASS            PL     X2,ZTLUSYM6 IF NOT EXTERNAL                                     COMPASS    17384     A     
 COMPASS   ZTLU7    BSS    0                                                               CPS164X        4     A     
 COMPASS            SA6    A7                                                              COMPASS    17385     A     
 COMPASS            SA7    ELREL                                                           COMPASS    17386     A     
 COMPASS            EQ     ZTLUSYM3                                                        COMPASS    17387     A     
 COMPASS   ZTLUSYM6 LX2    2                                                               COMPASS    17388     A     
 COMPASS            PL     X2,ZTLUSYM3 IF + RELOC OR ABS                                   COMPASS    17389     A     
 COMPASS            AX0    1           CHECK IF NEG. RELOCATION WITHIN ABS. BLOCK.         CPS164X        5     A     
 COMPASS            BX6    X0*X6       GET RELOCATION.                                     CPS164X        6     A     
 COMPASS            ZR     X6,ZTLU7    IF NEG. RELOCATION IN ABS. BLOCK.                   CPS164X        7     A     
 COMPASS            SA2    ELVAL       COMPLEMENT VALUE                                    COMPASS    17390     A     
 COMPASS            BX6    -X2                                                             COMPASS    17391     A     
 COMPASS            SA6    A2                                                              COMPASS    17392     A     
 COMPASS   ZTLUSYM3 BSS    0                                                               COMPASS    17393          I
          -CMP19  
 COMPASS   ZTLUSYM4 AX1    36                                                              COMPASS    17394          I
          -CMP19  
 COMPASS            SA2    X3          RECLAIM SYMBOL VALUE                                COMPASS    17395          I
          -CMP19  
 COMPASS            SB7    X1-2R'?                                                         COMPASS    17396          I
          -CMP19  
 COMPASS            ZR     B7,ZTLUSYM  AVOID REFERENCES TO INVENTED SYBMOLS                COMPASS    17397          I
          -CMP19  
 COMPASS   ZTLUSYM3 SA2    X3          RECLAIM SYMBOL VALUE                                CMP19        394          I
          -CP096A 
 COMPASS   ZTLUSYM3 RX2    X3          RECLAIM SYMBOL VALUE                                CP096A       521     A     
 COMPASS            SA3    IOP         CHECK OPCODE                                        COMPASS    17398          I
          -CPS026 
 COMPASS            SX0    3RSA6                                                           COMPASS    17399          I
          -CPS026 
 COMPASS            IX0    X3-X0                                                           COMPASS    17400          I
          -CPS026 
 COMPASS            SX3    B1+B1                                                           COMPASS    17401          I
          -CPS026 
 COMPASS            IX3    X0-X3                                                           COMPASS    17402          I
          -CPS026 
 COMPASS            BX0    -X3+X0                                                          COMPASS    17403          I
          -CPS026 
 COMPASS            SX1    1RS                                                             COMPASS    17404          I
          -CPS026 
 COMPASS            PL     X0,ZTLU5    IF *SA6* OR *SA7*                                   COMPASS    17405          I
          -CPS026 
 COMPASS            SA1    REFLET      USAGE                                               COMPASS    17406     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1002    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   ZTLU5    RJ     ENTREF                                                          COMPASS    17407          I
          -CPS026 
 COMPASS            RJ     ENTREF      ENTER REFERENCE TABLE                               CPS026        62     A     
 COMPASS            EQ     ZTLUSYM                                                         COMPASS    17408     A     
 COMPASS   ZUPLOC   SPACE  4                                                               COMPASS    17409     A     
 COMPASS  **        ZUPLOC - UPDATE LOCATION COUNTER.                                      COMPASS    17410     A     
 COMPASS  *         ENTRY  (X1) = INCREMENT.                                               COMPASS    17411     A     
 COMPASS                                                                                   COMPASS    17412     A     
 COMPASS                                                                                   COMPASS    17413     A     
 COMPASS   ZUPLOC   PS                 RETURN EXIT                                         COMPASS    17414     A     
 COMPASS            SA2    ORGCTR                                                          COMPASS    17415     A     
 COMPASS            SA3    LOCCTR                                                          COMPASS    17416     A     
 COMPASS            IX6    X1+X2                                                           COMPASS    17417     A     
 COMPASS            IX7    X1+X3                                                           COMPASS    17418     A     
 COMPASS            SA6    A2                                                              COMPASS    17419     A     
 COMPASS            SA7    A3                                                              COMPASS    17420     A     
 COMPASS            RJ     RESORG      RESET ORIGIN                                        COMPASS    17421     A     
 COMPASS            EQ     ZUPLOC      RETURN                                              COMPASS    17422     A     
 COMPASS   ALM      TITLE  BINARY OUTPUT ROUTINES.                                         COMPASS    17423     A     
 COMPASS  **        TEMPORARY STORAGE FOR BINARY OUTPUT ROUTINES.                          COMPASS    17424     A     
 COMPASS                                                                                   COMPASS    17425     A     
 COMPASS                                                                                   COMPASS    17426     A     
 COMPASS            SEG    BINARY OUTPUT SUBROUTINES.                                      CMP30       5097     A     
 COMPASS   BTEMP    DATA   0           GENERAL TEMPORARY                                   COMPASS    17427     A     
 COMPASS   BTEMPA   DATA   0           GENERAL TEMPORARY                                   COMPASS    17428     A     
 COMPASS   BTEMPB   DATA   0           GENERAL TEMPORARY                                   COMPASS    17429     A     
 COMPASS   ALM      SPACE  4                                                               COMPASS    17430     A     
 COMPASS  **        ALM - ALLOCATE MEMORY.                                                 COMPASS    17431     A     
 COMPASS                                                                                   COMPASS    17432     A     
 COMPASS                                                                                   COMPASS    17433     A     
 COMPASS   ALM      PS                 RETURN EXIT                                         COMPASS    17434     A     
 COMPASS            SA1    B                                                               CMP30       5098     A     
 COMPASS            SA2    ABSFG                                                           CPS012        11     A     
 COMPASS            ZR     X1,ALM      IF NO BINARY FILE                                   CMP30       5099     A     
 COMPASS            ZR     X2,ALM      IF RELOCATABLE ASSEMBLY                             CPS012        12     A     
 COMPASS            SA2    ORGBASE                                                         COMPASS    17435     A     
 COMPASS            SA3    MACHINE                                                         COMPASS    17436          I
          -CPSA281
 COMPASS            SA3    MACHINE     0 (CP) OR 1 (PP)                                    CPSA281      315     A     
 COMPASS            SA4    LPGM                                                            COMPASS    17437     A     
 COMPASS            SA1    PPTYPE                                                          F4820        791     A     
 COMPASS            LX3    2                                                               COMPASS    17438          I
          -CPSA281
 COMPASS            IX0    X4-X2                                                           COMPASS    17439          I
          -CPSA281
 COMPASS            IX0    X0+X3       ROUND TO NEAREST CM WORD IF PP                      COMPASS    17440          I
          -F4820  
 COMPASS            SX1    X1+B1                                                           F4820        792          I
          -CPSA281
 COMPASS            NZ     X1,ALM1     IF NOT BCU ASSEMBLY                                 F4820        793          I
          -CPSA281
 COMPASS            LX0    1                                                               F4820        794          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1003    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPSA281
 COMPASS   ALM1     IX0    X0+X3       ROUND TO NEAREST CM WORD IF PP                      F4820        795          I
          -CPSA281
 COMPASS            NG     X0,ALM      IF PROGRAM SIZE NEGATIVE                            COMPASS    17441          I
          -CPSA281
 COMPASS            SX3    X3+B1                                                           COMPASS    17442          I
          -CPSA281
 COMPASS            IX1    X0/X3       CALCULATE MEMORY SIZE                               COMPASS    17443          I
          -CPSA281
 COMPASS            LX3    2           0 OR 4                                              CPSA281      316     A     
 COMPASS            IX0    X4-X2       SIZE OF PROGRAM IMAGE                               CPSA281      317     A     
 COMPASS            SX1    X1+B1                                                           CPSA281      318     A     
 COMPASS            SX6    X3+B1       1 OR 5                                              CPSA281      319     A     
 COMPASS            NZ     X1,ALM1     IF NOT BCU                                          CPSA281      320     A     
 COMPASS            LX0    1           DOUBLE BYTE COUNT FOR BCU                           CPSA281      321     A     
 COMPASS                                                                                   CPSA281      322     A     
 COMPASS   ALM1     SX1    X1+2                                                            CPSA281      323     A     
 COMPASS            NZ     X1,ALM2     IF NOT 180 PP ASSEMBLY                              CPSA281      324     A     
 COMPASS                                                                                   CPSA281      325     A     
 COMPASS  *         FOR A 180 PPU ASSEMBLY, THE 16-BIT PP BYTES ARE PACKED INTO            CPSA281      326     A     
 COMPASS  *         60-BIT WORDS LEAVING NO UNUSED BITS.  E.G., SO AS TO FIT               CPSA281      327     A     
 COMPASS  *         15 16-BIT BYTES (240 BITS) EXACTLY INTO 4 CM WORDS (240 BITS).         CPSA281      328     A     
 COMPASS  *         THE NUMBER OF CM WORDS NEEDED FOR A PPU PROGRAM OF N BYTES IN          CPSA281      329     A     
 COMPASS  *         LENGTH IS...                                                           CPSA281      330     A     
 COMPASS                                                                                   CPSA281      331     A     
 COMPASS  *                ( ( N * 16 ) + 59 ) / 60                                        CPSA281      332     A     
 COMPASS                                                                                   CPSA281      333     A     
 COMPASS            SX3    59                                                              CPSA281      334     A     
 COMPASS            LX0    4           N*16                                                CPSA281      335     A     
 COMPASS            SX6    X3+B1                                                           CPSA281      336     A     
 COMPASS                                                                                   CPSA281      337     A     
 COMPASS   ALM2     IX0    X0+X3       ROUND TO NEAREST CM WORD IF ANY PP TYPE             CPSA281      338     A     
 COMPASS            MI     X0,ALM      IF PROGRAM SIZE NEGATIVE                            CPSA281      339     A     
 COMPASS            IX1    X0/X6       MEMORY SIZE IN CM WORDS                             CPSA281      340     A     
 COMPASS            SA2    L.MEMORY                                                        COMPASS    17444     A     
 COMPASS            IX1    X1-X2                                                           COMPASS    17445     A     
 COMPASS            MANAGE MEMORY,X1                                                       COMPASS    17446     A     
 COMPASS            ZR     X3,ALM      IF NO MEMORY                                        COMPASS    17447     A     
 COMPASS            IX3    X2+X3       CLEAR MEMORY AREA                                   COMPASS    17448     A     
 COMPASS            MX1    0                                                               COMPASS    17449          I
          -CMP30  
 COMPASS            RJ     PRESET                                                          COMPASS    17450          I
          -CMP30  
 COMPASS            RJ     CLS                                                             CMP30       5100     A     
 COMPASS            EQ     ALM         RETURN                                              COMPASS    17451     A     
 COMPASS   BINOUT   SPACE  4                                                               COMPASS    17452     A     
 COMPASS  **        BINOUT - OUTPUT BYTE OF INFORMATION.                                   COMPASS    17453     A     
 COMPASS  *         BINOUT RECORDS INFORMATION BY OR-ING INTO BINWORD/BINREL.              COMPASS    17454     A     
 COMPASS  *         R-ERRORS AND A-ERRORS POSTED FOR RANGE/ILLEGAL RELOCATION.             COMPASS    17455     A     
 COMPASS  *         ENTRY  (X1) = VALUE.                                                   COMPASS    17456     A     
 COMPASS  *                (X2) = BIT COUNT.                                               COMPASS    17457     A     
 COMPASS  *                (X3) = RELOCATION.                                              COMPASS    17458     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1004    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                (X4) = EXTERNAL NUMBER.                                         COMPASS    17459     A     
 COMPASS                                                                                   COMPASS    17460     A     
 COMPASS                                                                                   COMPASS    17461     A     
 COMPASS   BINOUTR  SX6    B1          DATA OUT OF RANGE - POST R ERROR                    COMPASS    17462     A     
 COMPASS            SA6    RERR                                                            COMPASS    17463     A     
 COMPASS            SA6    EFLG                                                            COMPASS    17464     A     
 COMPASS                                                                                   COMPASS    17465     A     
 COMPASS   BINOUT   PS                 RETURN EXIT                                         COMPASS    17466     A     
 COMPASS            ZR     X2,BINOUT   QUIT IF ZERO-LENGTH BYTE                            COMPASS    17467     A     
 COMPASS            SA5    ABSFG                                                           COMPASS    17468     A     
 COMPASS            SB2    X2          CHECK FOR IN RANGE                                  COMPASS    17469     A     
 COMPASS            SA2    ORGCTR                                                          COMPASS    17470     A     
 COMPASS            ZR     X5,BINOUT1                                                      COMPASS    17471     A     
 COMPASS            SA5    LPGM        MAKE ABSOLUTE CHECK                                 COMPASS    17472     A     
 COMPASS            IX7    X2-X5                                                           COMPASS    17473     A     
 COMPASS            SA5    ORGBASE                                                         COMPASS    17474     A     
 COMPASS            IX6    X2-X5                                                           COMPASS    17475     A     
 COMPASS            BX7    -X6*X7                                                          COMPASS    17476     A     
 COMPASS            PL     X7,BINOUTR  IF OUTSIDE RANGE OF PROGRAM                         COMPASS    17477     A     
 COMPASS   BINOUT1  SA5    MAXORG      CHECK BLOCK RANGE                                   COMPASS    17478     A     
 COMPASS            IX7    X2-X5                                                           COMPASS    17479     A     
 COMPASS            SA5    MINORG                                                          COMPASS    17480     A     
 COMPASS            IX6    X2-X5                                                           COMPASS    17481     A     
 COMPASS            BX7    -X6*X7                                                          COMPASS    17482     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    17483     A     
 COMPASS            SX6    X2-400B                                                         COMPASS    17484     A     
 COMPASS            BX7    X6*X7                                                           COMPASS    17485     A     
 COMPASS            PL     X7,BINOUTR  IF OUTSIDE VALID RANGES                             COMPASS    17486     A     
 COMPASS            SB7    60          MASK OUT UNUSED BITS                                COMPASS    17487     A     
 COMPASS            BX6    X1                                                              COMPASS    17488     A     
 COMPASS            EQ     B2,B7,BINOUT2 IF 60-BIT FIELD                                   COMPASS    17489     A     
 COMPASS            MX0    1                                                               COMPASS    17490     A     
 COMPASS            SB6    B7-B2                                                           COMPASS    17491     A     
 COMPASS            SB5    B6-B1                                                           COMPASS    17492     A     
 COMPASS            AX0    X0,B5                                                           COMPASS    17493     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    17494     A     
 COMPASS   BINOUT2  SA1    POSCTR                                                          COMPASS    17495     A     
 COMPASS            SA2    BINWORD                                                         COMPASS    17496     A     
 COMPASS            SB4    X1                                                              COMPASS    17497     A     
 COMPASS            LX6    X6,B4                                                           COMPASS    17498     A     
 COMPASS            BX7    X6+X2                                                           COMPASS    17499     A     
 COMPASS            SA7    A2                                                              COMPASS    17500     A     
 COMPASS            SX6    X4+40000B   COMPUTE EFFECTIVE RELOCATION                        COMPASS    17501          I
          -CMP30  
 COMPASS            SX5    1           CONVERT RELOCATION                                  CMP30       5101     A     
 COMPASS            LX5    17                                                              CMP30       5102     A     
 COMPASS            IX6    X5+X4                                                           CMP30       5103     A     
 COMPASS            NZ     X4,BINOUT3  IF EXTERNAL                                         COMPASS    17502     A     
 COMPASS            ZR     X3,BINOUT   IF ABSOLUTE                                         CMP30       5104     A     
 COMPASS            SB7    X3                                                              COMPASS    17503     A     
 COMPASS            BX6    X3                                                              COMPASS    17504     A     
 COMPASS            LE     B7,B1,BINOUT3 IF ABSOLUTE OR + PROGRAM                          COMPASS    17505          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1005    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SX6    B1+B1                                                           COMPASS    17506          I
          -CMP30  
 COMPASS            EQ     B7,B1,BINOUT3     IF + PROGRAM                                  CMP30       5105     A     
 COMPASS            SB6    401B                                                            COMPASS    17507     A     
 COMPASS            EQ     B6,B7,BINOUT3                                                   COMPASS    17508          I
          -CMP30  
 COMPASS            SX6    B1+B1                                                           CMP30       5106     A     
 COMPASS            EQ     B7,B6,BINOUT3     IF - PROGRAM                                  CMP30       5107     A     
 COMPASS            SX6    B7+B1                                                           COMPASS    17509     A     
 COMPASS            LT     B7,B6,BINOUT3                                                   COMPASS    17510          I
          -CMP30  
 COMPASS            SX7    B1                                                              COMPASS    17511          I
          -CMP30  
 COMPASS            SA7    AERR        POST INVALID RELOCATION                             COMPASS    17512          I
          -CMP30  
 COMPASS            SA7    EFLG                                                            COMPASS    17513          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    17514          I
          -CMP30  
 COMPASS            GT     B7,B6,BINOUT5     IF NOT COMMON                                 CMP30       5108     A     
 COMPASS   BINOUT3  SA2    BINREL                                                          COMPASS    17515     A     
 COMPASS            LX6    X6,B4                                                           COMPASS    17516          I
          -CMP30  
 COMPASS            BX7    X6+X2                                                           COMPASS    17517          I
          -CMP30  
 COMPASS            SA7    A2                                                              COMPASS    17518          I
          -CMP30  
 COMPASS            SX4    B2          FIELD SIZE                                          CMP30       5109     A     
 COMPASS            LX6    6                                                               CMP30       5110     A     
 COMPASS            SB6    B1+B1                                                           CMP30       5111     A     
 COMPASS            SX7    X2+B1       BUMP HALFWORD NUMBER                                CMP30       5112     A     
 COMPASS            LX2    -1                                                              CMP30       5113     A     
 COMPASS            SB7    X2+B1       BINREL WORD NUMBER                                  CMP30       5114     A     
 COMPASS            BX6    X6+X1       POSITION COUNTER                                    CMP30       5115     A     
 COMPASS            SA3    A2+B7       FETCH BINREL WORD                                   CMP30       5116     A     
 COMPASS            GT     B7,B6,BINOUT5     IF MORE THAN 4 HALFWORDS                      CMP30       5117     A     
 COMPASS            LX6    6                                                               CMP30       5118     A     
 COMPASS            SA7    A2          UPDATE HALFWORD NUMBER                              CMP30       5119     A     
 COMPASS            BX4    X6+X4                                                           CMP30       5120     A     
 COMPASS            MI     X2,BINOUT4  IF LOWER HALFWORD                                   CMP30       5121     A     
 COMPASS            LX4    30          SHIFT RELOCATION                                    CMP30       5122     A     
 COMPASS   BINOUT4  BX6    X3+X4                                                           CMP30       5123     A     
 COMPASS            SA6    A3          STORE UPDATED BINREL WORD                           CMP30       5124     A     
 COMPASS            EQ     BINOUT      RETURN                                              CMP30       5125     A     
 COMPASS   BINOUT5  SX7    B1                                                              CMP30       5126     A     
 COMPASS            SA7    AERR        BAD RELOCATION OR TOO MANY REL FIELDS               CMP30       5127     A     
 COMPASS            SA7    EFLG                                                            CMP30       5128     A     
 COMPASS            EQ     BINOUT                                                          COMPASS    17519     A     
 COMPASS   DBSSZ    SPACE  4                                                               COMPASS    17520     A     
 COMPASS  **        DBSSZ - DUMP SAVED BSSZ CODING.                                        COMPASS    17521     A     
 COMPASS  *         DBSSZ CREATES THE FOLLOWING TABLES:                                    COMPASS    17522     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1006    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS    17523     A     
 COMPASS  *         RELOCATABLE PROGRAMS...                                                COMPASS    17524     A     
 COMPASS  *                FOR LESS THAN 5 WORDS OF ZEROES...                              COMPASS    17525     A     
 COMPASS  *                   40 TABLE FOR STORING 5 OR LESS ZEROES.                       COMPASS    17526     A     
 COMPASS  *                FOR MORE THAN 5 WORDS OF ZEROES...                              COMPASS    17527     A     
 COMPASS  *                   40 TABLE = TEXT FOR STORING ONE ZERO.                        COMPASS    17528     A     
 COMPASS  *                   43 TABLE = REPL FOR REPLICATING THE ZEROES.                  COMPASS    17529     A     
 COMPASS  *                                                                                COMPASS    17530     A     
 COMPASS  *         FOR ABSOLUTE ROUTINES, MEMORY IS CLEARED OUT.                          COMPASS    17531     A     
 COMPASS                                                                                   COMPASS    17532     A     
 COMPASS                                                                                   COMPASS    17533     A     
 COMPASS   DBSSZX   MX6    0           CLEAR OUT RECORD                                    COMPASS    17534     A     
 COMPASS            SA6    CNTBSSZ                                                         COMPASS    17535     A     
 COMPASS                                                                                   COMPASS    17536     A     
 COMPASS   DBSSZ    PS                 RETURN EXIT                                         COMPASS    17537     A     
 COMPASS            RJ     RESORG                                                          COMPASS    17538     A     
 COMPASS            SA1    CNTBSSZ                                                         COMPASS    17539     A     
 COMPASS            SA2    MACHINE                                                         COMPASS    17540     A     
 COMPASS            ZR     X1,DBSSZ    QUIT IF NO WORDS TO DUMP                            COMPASS    17541     A     
 COMPASS            SA3    B                                                               CMP30       5129     A     
 COMPASS            ZR     X3,DBSSZX   IF NO BINARY FILE                                   CMP30       5130     A     
 COMPASS            NZ     X2,DBSSZP   IF PP CODING                                        COMPASS    17542     A     
 COMPASS            SA2    ABSFG                                                           COMPASS    17543     A     
 COMPASS            NZ     X2,DBSSZC   IF CP ABSOLUTE PROGRAM                              COMPASS    17544     A     
 COMPASS            SA4    ORGBSSZ+1   CONVERT RELOCATION                                  COMPASS    17545     A     
 COMPASS            SA2    =40000001BS36                                                   COMPASS    17546          I
          -CMP30  
 COMPASS            SA2    DBTB        TEXT TABLE HEADER                                   CMP30       5131     A     
 COMPASS   +        AX6    X4,B1                                                           COMPASS    17547     A     
 COMPASS            ZR     X6,*+1                                                          COMPASS    17548     A     
 COMPASS            SX4    X4+B1       CONVERT RELOCATION                                  COMPASS    17549     A     
 COMPASS            SA3    A4-B1                                                           CMP30       5132     A     
 COMPASS            LX4    18                                                              COMPASS    17550     A     
 COMPASS            IX2    X4+X2       ADD RELOCATION                                      COMPASS    17551          I
          -CMP30  
 COMPASS            SB7    X1-5                                                            COMPASS    17552          I
          -CMP30  
 COMPASS            LX1    36                                                              COMPASS    17553          I
          -CMP30  
 COMPASS            SA3    A4-B1                                                           COMPASS    17554          I
          -CMP30  
 COMPASS            BX3    X2+X3       ADD IN ORIGIN                                       COMPASS    17555          I
          -CMP30  
 COMPASS            PL     B7,DBSSZR                                                       COMPASS    17556          I
          -CMP30  
 COMPASS            BX5    X3                                                              CMP30       5133     A     
 COMPASS            AX3    17                                                              CMP30       5134     A     
 COMPASS            SX7    5                                                               CMP30       5135     A     
 COMPASS            ZR     X3,DBZ1     IF ORIGIN LESS THAN 2**17                           CMP30       5136     A     
 COMPASS            SA2    A2+B1       XTEXT TABLE HEADER                                  CMP30       5137     A     
 COMPASS            LX4    6                                                               CMP30       5138     A     
 COMPASS   DBZ1     IX2    X4+X2                                                           CMP30       5139     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1007    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX3    X2+X5       ADD IN ORIGIN                                       CMP30       5140     A     
 COMPASS            SX4    B1                                                              CMP30       5141     A     
 COMPASS            IX7    X1-X7                                                           CMP30       5142     A     
 COMPASS   +        PL     X6,*+1      IF NOT CONDITIONAL                                  CMP30       5143     A     
 COMPASS            LX4    33          SET CONDITIONAL LOAD FLAG                           CMP30       5144     A     
 COMPASS            BX3    X3+X4                                                           CMP30       5145     A     
 COMPASS   +        PL     X7,DBZ3     IF 5 OR MORE WORDS                                  CMP30       5146     A     
 COMPASS            LX1    36                                                              CMP30       5147     A     
 COMPASS            IX6    X1+X3       ADD WORD COUNT                                      COMPASS    17557     A     
 COMPASS            SA6    DBSSZT                                                          COMPASS    17558          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17559          I
          -CMP30  
 COMPASS   DBSSZ1   WRITEW B,(=0.0EE),1                                                    COMPASS    17560          I
          -CMP30  
 COMPASS            SA1    CNTBSSZ     LOOP FOR ZEROES                                     COMPASS    17561          I
          -CMP30  
 COMPASS            SX6    X1-1                                                            COMPASS    17562          I
          -CMP30  
 COMPASS            MX7    0                                                               COMPASS    17563          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    17564          I
          -CMP30  
 COMPASS            NZ     X1,DBSSZ1                                                       COMPASS    17565          I
          -CMP30  
 COMPASS            MX7    0                                                               CMP30       5148     A     
 COMPASS            SA6    DBZT                                                            CMP30       5149     A     
 COMPASS            SA7    DBZT+3                                                          CMP30       5150     A     
 COMPASS            SA7    A7+B1                                                           CMP30       5151     A     
 COMPASS            SA7    A7+B1                                                           CMP30       5152     A     
 COMPASS                                                                                   CMP30       5153     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5154     A     
 COMPASS            LX6    -36                                                             CMP30       5155     A     
 COMPASS            WRITEW B,A6,X6+B1                                                      CMP30       5156     A     
 COMPASS   RM       ELSE                                                                   CMP30       5157     A     
 COMPASS            LX1    -36                                                             CMP30       5158     A     
 COMPASS            IX4    X1+X1                                                           CMP30       5159     A     
 COMPASS            LX1    3                                                               CMP30       5160     A     
 COMPASS            IX2    X1+X4                                                           CMP30       5161     A     
 COMPASS            SX3    X2+20                                                           CMP30       5162     A     
 COMPASS            SA1    B-1                                                             CMP30       5163     A     
 COMPASS            NZ     X1,DBZ2     IF NOT *W* RECORDS                                  CMP30       5164     A     
 COMPASS            PUT    B,DBZT,X3                                                       CMP30       5165     A     
 COMPASS            EQ     DBSSZX                                                          CMP30       5166     A     
 COMPASS   DBZ2     PUTP   B,DBZT,X3                                                       CMP30       5167     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5168     A     
 COMPASS                                                                                   CMP30       5169     A     
 COMPASS            EQ     DBSSZX                                                          COMPASS    17566     A     
 COMPASS   DBSSZR   SX1    B1                                                              COMPASS    17567          I
          -CMP30  
 COMPASS            LX1    36                                                              COMPASS    17568          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1008    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX6    X3+X1                                                           COMPASS    17569          I
          -CMP30  
 COMPASS            SA6    DBSSZT                                                          COMPASS    17570          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17571          I
          -CMP30  
 COMPASS            WRITEW B,(=0.0EE),2                                                    COMPASS    17572          I
          -CMP30  
 COMPASS            WRITEW B,(=43000002000000000001B),1                                    COMPASS    17573          I
          -CMP30  
 COMPASS            SA1    ORGBSSZ+1                                                       COMPASS    17574          I
          -CMP30  
 COMPASS            SA2    A1-B1                                                           COMPASS    17575          I
          -CMP30  
 COMPASS   +        AX0    X1,B1       CONVERT SOURCE ADDRESS RELOCATION                   COMPASS    17576          I
          -CMP30  
 COMPASS            ZR     X0,*+1                                                          COMPASS    17577          I
          -CMP30  
 COMPASS            SX1    X1+B1                                                           COMPASS    17578          I
          -CMP30  
 COMPASS            LX1    18                                                              COMPASS    17579          I
          -CMP30  
 COMPASS            BX6    X1+X2                                                           COMPASS    17580          I
          -CMP30  
 COMPASS            SA6    DBSSZT                                                          COMPASS    17581          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17582          I
          -CMP30  
 COMPASS            SA5    CNTBSSZ                                                         COMPASS    17583          I
          -CMP30  
 COMPASS            SX6    X5-1                                                            COMPASS    17584          I
          -CMP30  
 COMPASS            LX6    42                                                              COMPASS    17585          I
          -CMP30  
 COMPASS            SA6    DBSSZT                                                          COMPASS    17586          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17587          I
          -CMP30  
 COMPASS            EQ     DBSSZX                                                          COMPASS    17588          I
          -CMP30  
 COMPASS   DBZ3     MX0    -33                                                             CMP30       5170     A     
 COMPASS            SX4    B1          ADD 1 TO TEXT WORD COUNT                            CMP30       5171     A     
 COMPASS            LX4    36                                                              CMP30       5172     A     
 COMPASS            IX6    X3+X4                                                           CMP30       5173     A     
 COMPASS            BX7    -X0*X3                                                          CMP30       5174     A     
 COMPASS            LX4    -36                                                             CMP30       5175     A     
 COMPASS            SA6    DBZT        STORE TEXT/XTEXT HEADER                             CMP30       5176     A     
 COMPASS            SA7    DBZT+4                                                          CMP30       5177     A     
 COMPASS            IX1    X1-X4       REDUCE WORD COUNT                                   CMP30       5178     A     
 COMPASS            MX0    -9                                                              CMP30       5179     A     
 COMPASS            SA2    =43000002000000000001B      REPL HEADER                         CMP30       5180     A     
 COMPASS            SB7    42                                                              CMP30       5181     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1009    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX3    X6                                                              CMP30       5182     A     
 COMPASS            LX0    12                                                              CMP30       5183     A     
 COMPASS            SX7    1S17-1      MAX REPL COUNT                                      CMP30       5184     A     
 COMPASS            SX5    B0                                                              CMP30       5185     A     
 COMPASS            LX6    59-33                                                           CMP30       5186     A     
 COMPASS            MI     X3,DBZ4     IF NOT EXTENDED                                     CMP30       5187     A     
 COMPASS            LX4    56                                                              CMP30       5188     A     
 COMPASS            BX2    X2+X4       FORM XREPL HEADER                                   CMP30       5189     A     
 COMPASS            AX3    24-18                                                           CMP30       5190     A     
 COMPASS            SB7    45                                                              CMP30       5191     A     
 COMPASS            AX7    2                                                               CMP30       5192     A     
 COMPASS   DBZ4     PL     X6,*+1      IF NOT CONDITIONAL                                  CMP30       5193     A     
 COMPASS            AX3    18-12                                                           CMP30       5194     A     
 COMPASS            BX5    -X0*X3                                                          CMP30       5195     A     
 COMPASS   +        IX6    X2+X5       INSERT BLOCK NUMBER INTO REPL HEADER                CMP30       5196     A     
 COMPASS            IX5    X7-X1                                                           CMP30       5197     A     
 COMPASS            LX7    B7                                                              CMP30       5198     A     
 COMPASS            BX3    -X5                                                             CMP30       5199     A     
 COMPASS   +        MI     X5,*+1      IF REPL COUNT GREATER THAN MAX                      CMP30       5200     A     
 COMPASS            BX3    X3-X3                                                           CMP30       5201     A     
 COMPASS            LX7    X1,B7                                                           CMP30       5202     A     
 COMPASS            SA6    A7-B1                                                           CMP30       5203     A     
 COMPASS            SA7    A7+B1                                                           CMP30       5204     A     
 COMPASS            BX6    X3          REDUCE COUNT                                        CMP30       5205     A     
 COMPASS            SA6    CNTBSSZ                                                         CMP30       5206     A     
 COMPASS                                                                                   CMP30       5207     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5208     A     
 COMPASS            WRITEW B,DBZT,6    WRITE TEXT/XTEXT AND REPL/XREPL                     CMP30       5209     A     
 COMPASS   RM       ELSE                                                                   CMP30       5210     A     
 COMPASS            SA1    B-1                                                             CMP30       5211     A     
 COMPASS            NZ     X1,DBZ5     IF NOT *W* RECORDS                                  CMP30       5212     A     
 COMPASS            PUT    B,DBZT,60                                                       CMP30       5213     A     
 COMPASS            EQ     DBZ6                                                            CMP30       5214     A     
 COMPASS   DBZ5     PUTP   B,DBZT,60                                                       CMP30       5215     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5216     A     
 COMPASS                                                                                   CMP30       5217     A     
 COMPASS   DBZ6     SA1    CNTBSSZ                                                         CMP30       5218     A     
 COMPASS            SA2    DBZT                                                            CMP30       5219     A     
 COMPASS            ZR     X1,DBSSZX   IF COUNT COMPLETED                                  CMP30       5220     A     
 COMPASS            SA4    DBZT+4                                                          CMP30       5221     A     
 COMPASS            SA5    A4+B1                                                           CMP30       5222     A     
 COMPASS            SX6    B1                                                              CMP30       5223     A     
 COMPASS            PL     X2,DBZ7     IF EXTENDED                                         CMP30       5224     A     
 COMPASS            SA3    A4-B1                                                           CMP30       5225     A     
 COMPASS            SA6    A2                                                              CMP30       5226     A     
 COMPASS            LX4    -18                                                             CMP30       5227     A     
 COMPASS            SX7    X4          CHANGE REPL TO XREPL                                CMP30       5228     A     
 COMPASS            LX6    56                                                              CMP30       5229     A     
 COMPASS            IX4    X4-X7                                                           CMP30       5230     A     
 COMPASS            BX6    X3+X6                                                           CMP30       5231     A     
 COMPASS            LX4    -6                                                              CMP30       5232     A     
 COMPASS            BX4    X4+X7                                                           CMP30       5233     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1010    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LX5    45-42                                                           CMP30       5234     A     
 COMPASS            LX4    24                                                              CMP30       5235     A     
 COMPASS            SA6    A3                                                              CMP30       5236     A     
 COMPASS   DBZ7     LX5    15                                                              CMP30       5237     A     
 COMPASS            IX6    X4+X5       UPDATE SOURCE ADDRESS                               CMP30       5238     A     
 COMPASS            SX7    1S15-1                                                          CMP30       5239     A     
 COMPASS            IX5    X7-X1                                                           CMP30       5240     A     
 COMPASS            BX3    -X5                                                             CMP30       5241     A     
 COMPASS   +        MI     X5,*+1      IF REPL COUNT GREATER THAN MAX                      CMP30       5242     A     
 COMPASS            BX3    X3-X3                                                           CMP30       5243     A     
 COMPASS            BX7    X1                                                              CMP30       5244     A     
 COMPASS   +        LX7    45                                                              CMP30       5245     A     
 COMPASS            SA6    A4          STORE SOURCE ADDRESS                                CMP30       5246     A     
 COMPASS            SA7    A5          STORE COUNT                                         CMP30       5247     A     
 COMPASS            BX6    X3                                                              CMP30       5248     A     
 COMPASS            SA6    A1          UPDATE CNTBSSZ                                      CMP30       5249     A     
 COMPASS                                                                                   CMP30       5250     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5251     A     
 COMPASS            WRITEW B,DBZT+3,3                                                      CMP30       5252     A     
 COMPASS   RM       ELSE                                                                   CMP30       5253     A     
 COMPASS            SA1    B-1                                                             CMP30       5254     A     
 COMPASS            NZ     X1,DBZ8     IF NOT *W* RECORDS                                  CMP30       5255     A     
 COMPASS            PUT    B,DBZT+3,30                                                     CMP30       5256     A     
 COMPASS            EQ     DBZ6                                                            CMP30       5257     A     
 COMPASS   DBZ8     PUTP   B,DBZT+3,30                                                     CMP30       5258     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5259     A     
 COMPASS                                                                                   CMP30       5260     A     
 COMPASS            EQ     DBZ6        LOOP                                                CMP30       5261     A     
 COMPASS                                                                                   COMPASS    17589     A     
 COMPASS   DBSSZC   SB7    X1-1        OUTPUT CENTRAL MEMORY                               COMPASS    17590          I
          -CMP30  
 COMPASS            SA2    ORGBSSZ                                                         COMPASS    17591          I
          -CMP30  
 COMPASS   DBSSZC   SA2    ORGBSSZ     OUTPUT CENTRAL MEMORY                               CMP30       5262     A     
 COMPASS            SA3    ORGBASE                                                         COMPASS    17592     A     
 COMPASS            IX0    X2-X3                                                           COMPASS    17593     A     
 COMPASS            SA4    O.MEMORY                                                        COMPASS    17594     A     
 COMPASS            IX2    X4+X0                                                           COMPASS    17595     A     
 COMPASS            MX6    0                                                               COMPASS    17596          I
          -CMP30  
 COMPASS            SA6    X2                                                              COMPASS    17597          I
          -CMP30  
 COMPASS            ZR     B7,DBSSZX   QUIT IF ONLY ONE WORD TO DUMP                       COMPASS    17598          I
          -CMP30  
 COMPASS   +        SB7    B7-B1                                                           COMPASS    17599          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    17600          I
          -CMP30  
 COMPASS            NZ     B7,*                                                            COMPASS    17601          I
          -CMP30  
 COMPASS            IX3    X2+X1                                                           CMP30       5263     A     
 COMPASS            RJ     CLS         CLEAR STORAGE                                       CMP30       5264     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1011    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            EQ     DBSSZX                                                          COMPASS    17602     A     
 COMPASS                                                                                   COMPASS    17603     A     
 COMPASS   DBSSZP   SA2    ORGBSSZ     OUTPUT PP WORDS                                     COMPASS    17604     A     
 COMPASS            SA3    ORGBASE                                                         COMPASS    17605     A     
 COMPASS            IX0    X2-X3                                                           COMPASS    17606     A     
 COMPASS            SB2    X1                                                              COMPASS    17607     A     
 COMPASS            SX7    5                                                               COMPASS    17608     A     
 COMPASS            SB6    X0                                                              COMPASS    17609          I
          -CPS2627
 COMPASS            SA3    PPTYPE                                                          CPS2627        7     A     
 COMPASS            SX3    X3+B1                                                           CPS2627        8     A     
 COMPASS   +        NZ     X3,*+1      IF NOT BCU ASSEMBLY                                 CPS2627        9     A     
 COMPASS            LX0    1           DOUBLE OFFSET                                       CPS2627       10     A     
 COMPASS            SB2    B2+B2       DOUBLE PP BYTE COUNT TO STORE                       CPS2627       11     A     
 COMPASS   +        SB6    X0                                                              CPS2627       12          I
          -CPSA281
 COMPASS   +        SX3    X3+2                                                            CPSA281      341     A     
 COMPASS            ZR     X3,DBSSZQ   IF 180 PP ASSEMBLY                                  CPSA281      342     A     
 COMPASS            SB6    X0                                                              CPSA281      343     A     
 COMPASS            IX4    X0/X7                                                           COMPASS    17610     A     
 COMPASS            SB4    X4                                                              COMPASS    17611     A     
 COMPASS            LX4    2                                                               COMPASS    17612     A     
 COMPASS            SX3    X4+B4                                                           COMPASS    17613     A     
 COMPASS            SB7    X3                                                              COMPASS    17614     A     
 COMPASS            SB5    B6-B7                                                           COMPASS    17615     A     
 COMPASS            MX0    12                                                              COMPASS    17616     A     
 COMPASS            ZR     B5,DBSSZP1                                                      COMPASS    17617     A     
 COMPASS   +        SB5    B5-B1                                                           COMPASS    17618     A     
 COMPASS            LX0    48                                                              COMPASS    17619     A     
 COMPASS            NZ     B5,*                                                            COMPASS    17620     A     
 COMPASS   DBSSZP1  SA4    O.MEMORY                                                        COMPASS    17621     A     
 COMPASS            SA1    X4+B4                                                           COMPASS    17622     A     
 COMPASS            BX6    -X0*X1                                                          COMPASS    17623     A     
 COMPASS            LX0    48                                                              COMPASS    17624     A     
 COMPASS            PL     X0,*+1                                                          COMPASS    17625     A     
 COMPASS            SB4    B4+B1                                                           COMPASS    17626     A     
 COMPASS   +        SB2    B2-B1                                                           COMPASS    17627     A     
 COMPASS            SA6    A1                                                              COMPASS    17628     A     
 COMPASS            NZ     B2,DBSSZP1                                                      COMPASS    17629     A     
 COMPASS            EQ     DBSSZX                                                          COMPASS    17630     A     
 COMPASS                                                                                   CPSA281      344     A     
 COMPASS  *         180 PP ASSEMBLY.  BSSZ WORDS ARE STORED IN THE PROGRAM IMAGE           CPSA281      345     A     
 COMPASS  *         BY ZEROING AS MANY FULL CM WORDS AS POSSIBLE...                        CPSA281      346     A     
 COMPASS  *                                                                                CPSA281      347     A     
 COMPASS  *         1) THE STARTING POSITION AND BIT COUNT FOR THE FIRST WORD ARE          CPSA281      348     A     
 COMPASS  *            DETERMINED AND THAT AMOUNT IS ZEROED.                               CPSA281      349     A     
 COMPASS  *         2) IF THE BSSZ COUNT IS LARGE ENOUGH TO INCLUDE MORE WORDS,            CPSA281      350     A     
 COMPASS  *            THEN AS MANY FULL WORDS AS POSSIBLE ARE ZEROED.                     CPSA281      351     A     
 COMPASS  *         3) THE REMAINING BIT COUNT FOR THE FINAL WORD IS DETERMINED            CPSA281      352     A     
 COMPASS  *            AND THAT AMOUNT IS ZEROED.                                          CPSA281      353     A     
 COMPASS                                                                                   CPSA281      354     A     
 COMPASS   DBSSZQ   LX1    4           (X1) = CBIT = NUMBER OF BITS TO STORE               CPSA281      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/28. 19.11.32.      PAGE1012    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    60                                                              CPSA281      356     A     
 COMPASS            LX0    4           RELATIVE BIT OFFSET                                 CPSA281      357     A     
 COMPASS            BX4    X0                                                              CPSA281      358     A     
 COMPASS            IX2    X0/X7       (X2) = POS = OFFSET TO FIRST WORD                   CPSA281      359     A     
 COMPASS            SB6    X2                                                              CPSA281      360     A     
 COMPASS            BX3    X2                                                              CPSA281      361     A     
 COMPASS            LX2    2           POS*4                                               CPSA281      362     A     
 COMPASS            LX3    6           POS*64                                              CPSA281      363     A     
 COMPASS            IX2    X3-X2       POS*60                                              CPSA281      364     A     
 COMPASS            IX3    X4-X2       (X3) = ST = LEFT-MOST BIT FOR FIRST WORD            CPSA281      365     A     
 COMPASS            SX4    X1+59       CBIT + 59                                           CPSA281      366     A     
 COMPASS            IX4    X4+X3       ST + CBIT + 59                                      CPSA281      367     A     
 COMPASS            SX7    60                                                              CPSA281      368     A     
 COMPASS            IX7    X4/X7       (ST + CBIT + 59) / 60                               CPSA281      369     A     
 COMPASS            SX7    X7-1        (X7) = RW = NUMBER OF ADDITIONAL WORDS              CPSA281      370     A     
 COMPASS            SB2    60                                                              CPSA281      371     A     
 COMPASS            SB4    X3          (B7) = SE = NO. BITS TO ZERO IN FIRST WORD          CPSA281      372     A     
 COMPASS            SB7    B2-B4            = 60 - ST                                      CPSA281      373     A     
 COMPASS            SB5    B7                                                              CPSA281      374     A     
 COMPASS            NZ     X7,DBQ1                                                         CPSA281      375     A     
 COMPASS            SB7    X1          (B7) = SE = CBIT                                    CPSA281      376     A     
 COMPASS   DBQ1     MX0    1           FORM MASK FOR ZEROING IN FIRST WORD                 CPSA281      377     A     
 COMPASS            SB4    B7-B1                                                           CPSA281      378     A     
 COMPASS            AX0    X0,B4                                                           CPSA281      379     A     
 COMPASS            LX0    X0,B5       POSITION MASK                                       CPSA281      380     A     
 COMPASS            SA4    O.MEMORY    ZEROING INTO FIRST WORD                             CPSA281      381     A     
 COMPASS            SA4    X4+B6                                                           CPSA281      382     A     
 COMPASS            BX6    -X0*X4                                                          CPSA281      383     A     
 COMPASS            SA6    A4                                                              CPSA281      384     A     
 COMPASS            ZR     X7,DBSSZX   RETURN IF NO ADDITIONAL WORDS                       CPSA281      385     A     
 COMPASS            MX6    0                                                               CPSA281      386     A     
 COMPASS            SB3    X7-1        (REMAINING WORDS) - 1                               CPSA281      387     A     
 COMPASS            ZR     B3,DBQ3     IF NO FULL WORDS                                    CPSA281      388     A     
 COMPASS   DBQ2     SB3    B3-B1       LOOP ON FULL WORDS                                  CPSA281      389     A     
 COMPASS            SA6    A6+B1                                                           CPSA281      390     A     
 COMPASS            NZ     B3,DBQ2                                                         CPSA281      391     A     
 COMPASS                                                                                   CPSA281      392     A     
 COMPASS   DBQ3     BX6    X7          CLEAR BITS IN LAST WORD                             CPSA281      393     A     
 COMPASS            LX7    2           RW*4                                                CPSA281      394     A     
 COMPASS            LX6    6           RW*64                                               CPSA281      395     A     
 COMPASS            IX7    X6-X7       RW*60                                               CPSA281      396     A     
 COMPASS            IX7    X3-X7       ST - (RW*60)                                        CPSA281      397     A     
 COMPASS            IX7    X1+X7       SE = ST + CBIT - RW*60  (BITS IN LAST WORD)         CPSA281      398     A     
 COMPASS            SB6    X7-1        FORM MASK FOR UPPER PART OF LAST WORD               CPSA281      399     A     
 COMPASS            MX0    1                                                               CPSA281      400     A     
 COMPASS            AX0    X0,B6                                                           CPSA281      401     A     
 COMPASS            SA2    A6+B1       ZERO BITS IN LAST WORD                              CPSA281      402     A     
 COMPASS            BX6    -X0*X2                                                          CPSA281      403     A     
 COMPASS            SA6    A2                                                              CPSA281      404     A     
 COMPASS            EQ     DBSSZX      RETURN                                              CPSA281      405     A     
 COMPASS                                                                                   COMPASS    17631     A     
 COMPASS   DBSSZT   DATA   0           TEMPORARY                                           COMPASS    17632          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1013    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS   DBZT     BSSZ   6           TEMPORARY                                           CMP30       5265     A     
 COMPASS   DDUMP    SPACE  4                                                               COMPASS    17633     A     
 COMPASS  **        DDUMP - DUMP CODING.                                                   COMPASS    17634     A     
 COMPASS  *         DDUMP DUMPS MEMORY FOR ABSOLUTE ROUTINES.                              COMPASS    17635     A     
 COMPASS  *         ORGBASE/LPGM GOVERN AMOUNT TO DUMP.                                    COMPASS    17636     A     
 COMPASS  *         FOR PP ROUTINES, THE CONTROL WORD IS FORMED AND OUTPUT HERE.           COMPASS    17637     A     
 COMPASS  *         FOR 7600 PP FORMAT THE 5200 TABLE IS FORMED HERE.                      COMPASS    17638     A     
 COMPASS                                                                                   COMPASS    17639     A     
 COMPASS                                                                                   COMPASS    17640     A     
 COMPASS   DDUMP    PS                 RETURN EXIT                                         COMPASS    17641     A     
 COMPASS            SA3    B                                                               CMP30       5266     A     
 COMPASS            ZR     X3,DDUMP    IF NO BINARY FILE                                   CMP30       5267     A     
 COMPASS            SA1    ERCNT                                                           COMPASS    17642     A     
 COMPASS            SA2    ERRFLG                                                          COMPASS    17643          I
          -CMP30  
 COMPASS            SA2    CP.ERRCT                                                        CMP30       5268     A     
 COMPASS            ZR     X1,DDUMPA   IF NO ERRORS                                        COMPASS    17644     A     
 COMPASS            PL     X2,DDUMP    IF D NOT SET                                        COMPASS    17645     A     
 COMPASS   DDUMPA   SA1    ABSFG                                                           COMPASS    17646     A     
 COMPASS            SA2    MACHINE                                                         COMPASS    17647     A     
 COMPASS            ZR     X1,DDUMP    IF CP RELOCATABLE                                   COMPASS    17648     A     
 COMPASS            ZR     X2,DDUMPC   IF CP ABSOLUTE                                      COMPASS    17649     A     
 COMPASS            SA1    LPGM                                                            COMPASS    17650     A     
 COMPASS            SA2    ORGBASE                                                         COMPASS    17651     A     
 COMPASS            SX0    5                                                               COMPASS    17652     A     
 COMPASS            SA5    DKNAM                                                           COMPASS    17653     A     
 COMPASS            SA3    PPTYPE                                                          COMPASS    17654     A     
 COMPASS            SB7    X3+3                                                            CPSA281      406     A     
 COMPASS            ZR     B7,DDUMPK   IF 180 PP ASSEMBLY                                  CPSA281      407     A     
 COMPASS            ZR     X3,DDUMPE   IF NOT 7600 TYPE                                    COMPASS    17655          I
          -F4820  
 COMPASS            SA3    SEGEPT                                                          COMPASS    17656          I
          -F4820  
 COMPASS            IX1    X1-X2       CALCULATE PROGRAM LENGTH                            F4820        796     A     
 COMPASS            ZR     X3,DDUMPE   IF PERIPH TYPE                                      F4820        797     A     
 COMPASS            PL     X3,DDUMPJ   IF PPU TYPE                                         F4820        798     A     
 COMPASS            SX3    X3+B1                                                           F4820        799     A     
 COMPASS            LX1    1                                                               F4820        800     A     
 COMPASS            ZR     X3,DDUMPJ   IF BCU TYPE                                         F4820        801     A     
 COMPASS            AX1    1                                                               F4820        802     A     
 COMPASS   DDUMPJ   SA3    SEGEPT                                                          F4820        803     A     
 COMPASS            SX5    5200B                                                           COMPASS    17657     A     
 COMPASS            LX5    48                                                              COMPASS    17658     A     
 COMPASS            BX5    X5+X3                                                           COMPASS    17659     A     
 COMPASS   DDUMPE   IX3    X2-X0       PROGRAM ORIGIN                                      COMPASS    17660     A     
 COMPASS            PL     X3,DDUMPB                                                       COMPASS    17661     A     
 COMPASS            MX7    48          MASK 12 BITS                                        COMPASS    17662     A     
 COMPASS            BX3    -X7*X3                                                          COMPASS    17663     A     
 COMPASS            SX3    X3+1        2-S COMPLEMENT ORGBASE                              COMPASS    17664     A     
 COMPASS   DDUMPB   LX3    24                                                              COMPASS    17665     A     
 COMPASS            BX7    X3+X5                                                           COMPASS    17666     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1014    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX1    X1-X2       PROGRAM LENGTH                                      COMPASS    17667          I
          -F4820  
 COMPASS            SX2    X1+9                                                            COMPASS    17668          I
          -CP12752
 COMPASS            PL     X1,DDUMPG                                                       CP12752        1     A     
 COMPASS            MX1    0           CHANGE NEGATIVE TO ZERO                             CP12752        2     A     
 COMPASS   DDUMPG   SX2    X1+9                                                            CP12752        3     A     
 COMPASS            IX1    X2/X0                                                           COMPASS    17669     A     
 COMPASS            BX7    X1+X7                                                           COMPASS    17670     A     
 COMPASS            SX6    X1-1                                                            COMPASS    17671     A     
 COMPASS            SA7    BTEMP                                                           COMPASS    17672     A     
 COMPASS                                                                                   CMP30       5269     A     
 COMPASS            IFNE   CP#RM,0,3                                                       CMP30       5270     A     
 COMPASS            IX4    X6+X6                                                           CMP30       5271     A     
 COMPASS            LX6    3                                                               CMP30       5272     A     
 COMPASS            IX6    X4+X6                                                           CMP30       5273     A     
 COMPASS                                                                                   CMP30       5274     A     
 COMPASS            SA6    A7+B1                                                           COMPASS    17673     A     
 COMPASS            SA1    NOLFG                                                           COMPASS    17674     A     
 COMPASS                                                                                   CMP30       5275     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5276     A     
 COMPASS            SX1    X1-1                                                            COMPASS    17675     A     
 COMPASS            ZR     X1,DDUMPF   IF NO LABEL                                         COMPASS    17676     A     
 COMPASS            WRITEW B,A7,1                                                          COMPASS    17677     A     
 COMPASS   DDUMPF   SA3    BTEMPA                                                          COMPASS    17678     A     
 COMPASS            SA2    O.MEMORY                                                        COMPASS    17679     A     
 COMPASS            WRITEW B,X2,X3                                                         COMPASS    17680     A     
 COMPASS   RM       ELSE                                                                   CMP30       5277     A     
 COMPASS            SA2    PCC                                                             CMP30       5278     A     
 COMPASS            SX3    X1-1                                                            CMP30       5279     A     
 COMPASS   +        ZR     X3,*+1      IF NO HEADER WANTED                                 CMP30       5280     A     
 COMPASS            SX6    X6+10                                                           CMP30       5281     A     
 COMPASS   +        SA1    B-1                                                    S028 712 CPS028       530     A     
 COMPASS            IX4    X2+X6                                                           CMP30       5282     A     
 COMPASS   +        ZR     X1,*+1      IF RECORD TYPE W                           S028 714 CPS028       531     A     
 COMPASS            SX4    0                                                      S028 715 CPS028       532     A     
 COMPASS            STORE  B,RL=X4                                                         CMP30       5283     A     
 COMPASS            ZR     X3,DDUMPF   IF NO LABELS AT ALL                                 CMP30       5284     A     
 COMPASS            ZR     X2,DDUMPH   IF PRFX TABLE NOT WANTED                            CMP30       5285     A     
 COMPASS            PUTP   B,PRFX,X2                                                       CMP30       5286     A     
 COMPASS   DDUMPH   PUTP   B,BTEMP,10                                                      CMP30       5287     A     
 COMPASS   DDUMPF   SA2    O.MEMORY                                                        CMP30       5288     A     
 COMPASS            SA3    BTEMPA                                                          CMP30       5289     A     
 COMPASS            ZR     X3,DDUMP    IF NO BINARY                               S028 717 CPS028       533     A     
 COMPASS            PUTP   B,X2,X3                                                         CMP30       5290     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5291     A     
 COMPASS                                                                                   CMP30       5292     A     
 COMPASS            EQ     DDUMP                                                           COMPASS    17681     A     
 COMPASS                                                                                   COMPASS    17682     A     
 COMPASS   DDUMPC   SA4    LPGM                                                            COMPASS    17683     A     
 COMPASS            SA5    ORGBASE                                                         COMPASS    17684     A     
 COMPASS            IX3    X4-X5                                                           COMPASS    17685     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1015    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            NG     X3,DDUMP    IF NO BINARY                                        CMP1          46     A     
 COMPASS            ZR     X3,DDUMP                                               S028 719 CPS028       534     A     
 COMPASS   DDUMPD   SA2    O.MEMORY                                                        COMPASS    17686          I
          -CMP30  
 COMPASS            SA2    O.MEMORY                                                        CMP30       5293     A     
 COMPASS                                                                                   CMP30       5294     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5295     A     
 COMPASS            WRITEW B,X2,X3                                                         COMPASS    17687     A     
 COMPASS   RM       ELSE                                                                   CMP30       5296     A     
 COMPASS            IX5    X3+X3                                                           CMP30       5297     A     
 COMPASS            LX3    3                                                               CMP30       5298     A     
 COMPASS            IX4    X3+X5                                                           CMP30       5299     A     
 COMPASS            SA1    B-1                                                             CMP30       5300     A     
 COMPASS            NZ     X1,DDUMP2   IF NOT W RECORDS                                    CMP30       5301     A     
 COMPASS            PUT    B,X2,X4                                                         CMP30       5302     A     
 COMPASS            EQ     DDUMP                                                           CMP30       5303     A     
 COMPASS   DDUMP2   PUTP   B,X2,X4                                                         CMP30       5304     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5305     A     
 COMPASS            EQ     DDUMP                                                           COMPASS    17688     A     
 COMPASS                                                                                   CPSA281      408     A     
 COMPASS   DDUMPK   SX7    6100B       FORM 6100 TABLE HEADER -                            CPSA281      409     A     
 COMPASS            LX7    48          VFD  12/6100B,16/(ENTRY),16/(LDFWA),16/(CT)         CPSA281      410     A     
 COMPASS            LX2    16*1        POSITION LOAD FWA (ORGBASE)                         CPSA281      411     A     
 COMPASS            SA5    L.MEMORY    LENGTH OF MEMORY IMAGE IN CM WORDS                  CPSA281      412     A     
 COMPASS            SA4    SEGEPT      ISOLATE ENTRY ADDRESS                               CPSA281      413     A     
 COMPASS            MX0    -12                                                             CPSA281      414     A     
 COMPASS            AX4    12                                                              CPSA281      415     A     
 COMPASS            BX6    -X0*X4                                                          CPSA281      416     A     
 COMPASS            SX3    X5+B1       LENGTH IN HEADER TO INCLUDE HEADER WORD             CPSA281      417     A     
 COMPASS            LX6    16*2        POSITION ENTRY ADDRESS                              CPSA281      418     A     
 COMPASS            BX7    X7+X3       MERGE FIELDS                                        CPSA281      419     A     
 COMPASS            BX7    X7+X2                                                           CPSA281      420     A     
 COMPASS            BX7    X7+X6                                                           CPSA281      421     A     
 COMPASS            SA7    PRFXC                                                           CPSA281      422          I
          -CPSA287
 COMPASS            WRITEW B,PRFXC,1   WRITE HEADER WORD                                   CPSA281      423          I
          -CPSA287
 COMPASS            SA2    O.MEMORY                                                        CPSA281      424          I
          -CPSA287
 COMPASS            WRITEW B,X2,X5     WRITE MEMORY IMAGE (X5 = CM WORD COUNT)             CPSA281      425          I
          -CPSA287
 COMPASS            SA7    BTEMP       SAVE HEADER WORD                                    CPSA287        9     A     
 COMPASS                                                                                   CPSA287       10     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CPSA287       11     A     
 COMPASS            SA1    NOLFG                                                           CPSA287       12     A     
 COMPASS            SX1    X1-1                                                            CPSA287       13     A     
 COMPASS            ZR     X1,DDUMPL   IF NO HEADER WANTED                                 CPSA287       14     A     
 COMPASS            WRITEW B,BTEMP,1   WRITE HEADER WORD                                   CPSA287       15     A     
 COMPASS   DDUMPL   SA2    O.MEMORY                                                        CPSA287       16     A     
 COMPASS            WRITEW B,X2,X5     WRITE MEMORY IMAGE (X5 = CM WORD COUNT)             CPSA287       17     A     
 COMPASS                                                                                   CPSA287       18     A     
 COMPASS   RM       ELSE                                                                   CPSA287       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/28. 19.11.32.      PAGE1016    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX4    X5+X5       SAVE BINARY LENGTH IN CHARS                         CPSA287       20     A     
 COMPASS            LX5    3                                                               CPSA287       21     A     
 COMPASS            IX6    X4+X5                                                           CPSA287       22     A     
 COMPASS            SA6    A7+B1                                                           CPSA287       23     A     
 COMPASS            SA1    NOLFG       (X3) = 0 IF NO LABELS WANTED                        CPSA287       24     A     
 COMPASS            SA2    PCC         (X2) = PRFX LENGTH IN CHARS (OR 0)                  CPSA287       25     A     
 COMPASS            SX3    X1-1                                                            CPSA287       26     A     
 COMPASS            ZR     X3,DDUMPL   IF NO HEADER WANTED                                 CPSA287       27     A     
 COMPASS            SX6    X6+10       INCLUDE HEADER IN RECORD LENGTH                     CPSA287       28     A     
 COMPASS   DDUMPL   SA1    B-1                                                             CPSA287       29     A     
 COMPASS            IX4    X2+X6       INCLUDE PRFX IN RECORD LENGTH                       CPSA287       30     A     
 COMPASS            ZR     X1,DDUMPM   IF RECORD TYPE W                                    CPSA287       31     A     
 COMPASS            SX4    0                                                               CPSA287       32     A     
 COMPASS   DDUMPM   STORE  B,RL=X4                                                         CPSA287       33     A     
 COMPASS            ZR     X3,DDUMPP   IF NO LABELS AT ALL                                 CPSA287       34     A     
 COMPASS            ZR     X2,DDUMPN   IF PRFX TABLE NOT WANTED                            CPSA287       35     A     
 COMPASS            PUTP   B,PRFX,X2                                                       CPSA287       36     A     
 COMPASS   DDUMPN   PUTP   B,BTEMP,10                                                      CPSA287       37     A     
 COMPASS   DDUMPP   SA2    O.MEMORY                                                        CPSA287       38     A     
 COMPASS            SA3    BTEMPA                                                          CPSA287       39     A     
 COMPASS            ZR     X3,DDUMP    IF NO BINARY                                        CPSA287       40     A     
 COMPASS            PUTP   B,X2,X3                                                         CPSA287       41     A     
 COMPASS   RM       ENDIF                                                                  CPSA287       42     A     
 COMPASS                                                                                   CPSA287       43     A     
 COMPASS            EQ     DDUMP       RETURN                                              CPSA281      426     A     
 COMPASS   DFIRST   SPACE  4                                                               COMPASS    17689     A     
 COMPASS  **        DFIRST - DUMP PRELIMINARY BINARY INFORMATION.                          COMPASS    17690     A     
 COMPASS  *         DFIRST CREATES THE FOLLOWING TABLES:                                   COMPASS    17691     A     
 COMPASS  *                                                                                COMPASS    17692     A     
 COMPASS  *         RELOCATABLE ROUTINES.                                                  COMPASS    17693     A     
 COMPASS  *                77 TABLE = IDENT.                                               COMPASS    17694     A     
 COMPASS  *                70 TABLE = LDSET.                                               CP147        461     A     
 COMPASS  *                34 TABLE = PIDL.                                                COMPASS    17695     A     
 COMPASS  *                36 TABLE = ENTR.                                                COMPASS    17696     A     
 COMPASS  *                CLEARS COMTAB AND ALLOCATES AND CLEARS LNKTAB.                  COMPASS    17697          I
          -CMP30  
 COMPASS  *                                                                                COMPASS    17698     A     
 COMPASS  *         ABSOLUTE CP ROUTINES.                                                  COMPASS    17699     A     
 COMPASS  *                77 TABLE = IDENT.                                               COMPASS    17700     A     
 COMPASS  *                50 TABLE = OVERLAY CONTROL WORD.                                COMPASS    17701     A     
 COMPASS  *                                                                                COMPASS    17702     A     
 COMPASS  *         ABSOLUTE CP ROUTINES WITH ENTRY POINTS.                                COMPASS    17703     A     
 COMPASS  *                77 TABLE = IDENT.                                               COMPASS    17704     A     
 COMPASS  *                51 TABLE = OVERLAY ENTRY POINT TABLE.                           COMPASS    17705     A     
 COMPASS  *                                                                                COMPASS    17706     A     
 COMPASS  *         PP ROUTINES.                                                           COMPASS    17707     A     
 COMPASS  *                77 TABLE = IDENT.                                               COMPASS    17708     A     
 COMPASS  *                                                                                COMPASS    17709     A     
 COMPASS  *         FOR ALL ABSOLUTE ROUTINES, ALLOCATES AND CLEARS MEMORY.                COMPASS    17710     A     
 COMPASS  *         FOR ALL ROUTINES, UPS DKCNT AND CLEARS BINARY RECORD.                  COMPASS    17711     A     
 COMPASS  *         ENTRY  (X1) = DECK NAME.                                               COMPASS    17712     A     
 COMPASS  *                (X2) = OVERLAY LEVEL NUMBER.                                    COMPASS    17713     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1017    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS                                                                                   COMPASS    17714     A     
 COMPASS                                                                                   COMPASS    17715     A     
 COMPASS   DFIRSTP  BSS    0                                                               CPS012        13     A     
 COMPASS   DFIRSTX  SA1    DKCNT       INCREMENT DECK COUNT                                COMPASS    17716     A     
 COMPASS            SA2    QVAL+1                                                          CMP19        395     A     
 COMPASS            SX6    X1+B1                                                           COMPASS    17717     A     
 COMPASS            BX7    X2          RESTORE QUAL VALUE                                  CMP19        396     A     
 COMPASS            SA6    A1                                                              COMPASS    17718     A     
 COMPASS            SA7    A2-B1                                                           CMP19        397     A     
 COMPASS                                                                          S028 721 CPS028       535     A     
 COMPASS            IFNE   CP#RM,0,1                                              S028 722 CPS028       536     A     
 COMPASS            STORE  B,RL=0                                                 S028 723 CPS028       537     A     
 COMPASS                                                                          S028 724 CPS028       538     A     
 COMPASS            RJ     SBL         SET BINARY LENGTH                                   CPS012        14     A     
 COMPASS                                                                                   COMPASS    17719     A     
 COMPASS   DFIRST   PS                 RETURN EXIT                                         COMPASS    17720     A     
 COMPASS            BX6    X2          SAVE SEGMENT INDICATOR                              COMPASS    17721     A     
 COMPASS            SA6    BTEMP                                                           COMPASS    17722     A     
 COMPASS            RJ     LJUST       LEFT JUSTIFY DECK NAME                              COMPASS    17723     A     
 COMPASS            SA7    DKNAM       SET DECK NAME                                       COMPASS    17724     A     
 COMPASS            SA7    DPBA+1                                                          COMPASS    17725          I
          -CMP30  
 COMPASS            SA2    DATE        DATE TO WORD 2                                      COMPASS    17726          I
          -CMP30  
 COMPASS            LX7    X2                                                              COMPASS    17727          I
          -CMP30  
 COMPASS            SA7    A7+B1                                                           COMPASS    17728          I
          -CMP30  
 COMPASS            MX6    0           SET BLANK QUALIFIER                                 CMP19        398          I
          -CMP30  
 COMPASS            RJ     SQV                                                             CMP19        399          I
          -CMP30  
 COMPASS   +        SA1    B                                                               COMPASS    17729          I
          -CMP30  
 COMPASS            ZR     X1,*+2                                                          COMPASS    17730          I
          -CMP30  
 COMPASS            RECALL B                                                               COMPASS    17731          I
          -CMP30  
 COMPASS            SA1    NOLFG                                                           COMPASS    17732          I
          -CMP30  
 COMPASS            NZ     X1,DFIRSTA  IF NO IDENT TABLE                                   COMPASS    17733          I
          -CMP30  
 COMPASS            RJ     ECC         ENTER COMMENT CARDS                                 COMPASS    17734          I
          -CMP30  
 COMPASS            WRITEW B,DPBA,17B                                                      COMPASS    17735          I
          -CMP30  
 COMPASS   DFIRSTA  SA1    NOLFG                                                           COMPASS    17736          I
          -CMP30  
 COMPASS            SX1    X1-1                                                            COMPASS    17737          I
          -CMP30  
 COMPASS            ZR     X1,DFIRSTP  IF NO LABEL                                         COMPASS    17738          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1018    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA7    PRFX+1                                                          CMP30       5306     A     
 COMPASS            RJ     DIM         DISPLAY IDENT MESSAGE                               CMP30       5307     A     
 COMPASS            MX1    0                                                               CMP30       5308     A     
 COMPASS            RJ     SQV         SET BLANK QUALIFIER                                 CMP30       5309     A     
 COMPASS            SA1    B                                                               CMP30       5310     A     
 COMPASS            ZR     X1,DFIRSTP  IF NO BINARY FILE                                   CMP30       5311     A     
 COMPASS            CHECK  B                                                               CMP30       5312     A     
 COMPASS                                                                                   CMP30       5313     A     
 COMPASS   RM       IFNE   CP#RM,0                                                         CMP30       5314          I
          -CPS028 
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       5315          I
          -CPS028 
 COMPASS   RM       IFEQ   CP#RM,6                                                S028 726 CPS028       539     A     
 COMPASS            FETCH  B,OC,X1                                                         CMP30       5316     A     
 COMPASS            SX6    X1-#YES#                                                        CMP30       5317     A     
 COMPASS            ZR     X6,DFIRST0  IF BINARY FILE IS OPEN                              CMP30       5318     A     
 COMPASS            OPENM  B,OUTPUT,N                                                      CMP30       5319     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5320     A     
 COMPASS                                                                                   CMP30       5321     A     
 COMPASS   DFIRST0  SA3    NOLFG                                                           CMP30       5322     A     
 COMPASS            MX6    0                                                               CMP30       5323     A     
 COMPASS            NZ     X3,DFIRSTA  IF NO LABELS                                        CMP30       5324     A     
 COMPASS            SA1    MACHINE                                                         CMP30       5325     A     
 COMPASS            SA2    TARGET                                                          CMP30       5326     A     
 COMPASS            SA3    VALID                                                           CMP30       5327     A     
 COMPASS            SX6    2R                                                              CMP30       5328     A     
 COMPASS            ZR     X1,DFT4     IF CPU ASSEMBLY                                     CMP30       5329     A     
 COMPASS            BX2    X6                                                              CMP30       5330     A     
 COMPASS            SX6    X3+1RP                                                          CMP30       5331     A     
 COMPASS            EQ     DFT4A                                                           CMP30       5332     A     
 COMPASS   DFT4     ZR     X3,DFT4A    IF NO VALID PROCESSOR SPECIFIED                     CMP30       5333     A     
 COMPASS            SX6    X3+1RX                                                          CMP30       5334     A     
 COMPASS   DFT4A    LX2    12                                                              CMP30       5335     A     
 COMPASS            SA3    FMODE                                                           CMP30       5336     A     
 COMPASS            BX6    X2+X6                                                           CMP30       5337     A     
 COMPASS            MX0    30                                                              CMP30       5338     A     
 COMPASS            SA4    PRFX+6                                                          CMP30       5339     A     
 COMPASS            LX6    6                                                               CMP30       5340     A     
 COMPASS            SX7    1R                                                              CMP30       5341     A     
 COMPASS            SA2    ABSFG                                                           CMP30       5342     A     
 COMPASS            ZR     X3,DFT5     IF FMODE = 0                                        CMP30       5343     A     
 COMPASS            SX7    X3+1R0                                                          CMP30       5344     A     
 COMPASS   DFT5     BX5    X0*X4                                                           CMP30       5345     A     
 COMPASS            IX6    X6+X7                                                           CMP30       5346     A     
 COMPASS            SX3    3RPA                                                            CMP30       5347          I
          -CPSA286
 COMPASS            SA3    =4RHPA                                                          CPSA286        6     A     
 COMPASS            MX0    -6                                                              CMP30       5348     A     
 COMPASS            BX6    X5+X6                                                           CMP30       5349     A     
 COMPASS            ZR     X2,DFT6     IF REL CPU ASSEMBLY                                 CMP30       5350     A     
 COMPASS            AX3    6                                                               CMP30       5351     A     
 COMPASS            ZR     X1,DFT6     IF ABS CPU ASSEMBLY                                 CMP30       5352     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1019    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            AX3    6           PPU ASSEMBLY                                        CMP30       5353     A     
 COMPASS            SA2    PPTYPE                                                          CPSA286        7     A     
 COMPASS            SX2    X2+3                                                            CPSA286        8     A     
 COMPASS            NZ     X2,DFT6     IF NOT 180 PPU ASSEMBLY                             CPSA286        9     A     
 COMPASS            AX3    6           SET *TYPE* = H                                      CPSA286       10     A     
 COMPASS   DFT6     BX7    -X0*X3                                                          CMP30       5354     A     
 COMPASS            SA1    HTYPE                                                           CMP30       5355     A     
 COMPASS            LX7    54                                                              CMP30       5356     A     
 COMPASS            BX7    X7+X1                                                           CMP30       5357     A     
 COMPASS            SA6    A4          STORE WORDS 6 AND 7 OF PRFX TABLE                   CMP30       5358     A     
 COMPASS            SA7    A4+B1                                                           CMP30       5359     A     
 COMPASS            SB4    PRFXC                                                           CMP30       5360     A     
 COMPASS            SB5    PRFXC+7                                                         CMP30       5361     A     
 COMPASS            MX6    0                                                               CMP30       5362     A     
 COMPASS   +        SA6    B4          CLEAR PRFX COMMENT AREA                             CMP30       5363     A     
 COMPASS            SB4    B4+B1                                                           CMP30       5364     A     
 COMPASS            NE     B4,B5,*                                                         CMP30       5365     A     
 COMPASS            SA3    O.IDTAB                                                         CMP30       5366     A     
 COMPASS            SB6    X3+B1                                                           CMP30       5367     A     
 COMPASS            MX0    -12                                                             CMP30       5368     A     
 COMPASS            SA1    O.SEGTAB    FIND COMMENT TEXT IN IDTAB                          CMP30       5369     A     
 COMPASS            SA2    SI                                                              CMP30       5370     A     
 COMPASS            IX6    X1+X2                                                           CMP30       5371     A     
 COMPASS            SA1    X6+B1                                                           CMP30       5372     A     
 COMPASS            SA2    A1+4                                                            CMP30       5373     A     
 COMPASS            SB4    PRFXC                                                           CMP30       5374     A     
 COMPASS            SB7    B6+X2                                                           CMP30       5375     A     
 COMPASS            SB6    B6+X1                                                           CMP30       5376     A     
 COMPASS   DFT1     SA1    B6          FIND END OF COMPRESSED                              CMP30       5377     A     
 COMPASS            BX6    -X0*X1      BINARY CONTROL STATEMENT                            CMP30       5378     A     
 COMPASS            SB6    B6+B1                                                           CMP30       5379     A     
 COMPASS            NZ     X6,DFT1                                                         CMP30       5380     A     
 COMPASS            SB7    B7-B1                                                           CMP30       5381     A     
 COMPASS   DFT1A    GE     B6,B7,DFT1B IF END OF COMMENT TEXT                              CMP30       5382     A     
 COMPASS            SA1    B6                                                              CMP30       5383     A     
 COMPASS            SB6    B6+B1                                                           CMP30       5384     A     
 COMPASS            BX6    X1                                                              CMP30       5385     A     
 COMPASS            SA6    B4                                                              CMP30       5386     A     
 COMPASS            SB4    B4+B1                                                           CMP30       5387     A     
 COMPASS            LT     B4,B5,DFT1A IF PRFX TABLE NOT FULL                              CMP30       5388     A     
 COMPASS   DFT1B    BSS    0                                                               CMP30       5389     A     
 COMPASS                                                                                   CMP30       5390     A     
 COMPASS            IFEQ   CP#RM,0,1                                                       CMP30       5391     A     
 COMPASS            WRITEW B,PRFX,LPRFX                                                    CMP30       5392     A     
 COMPASS                                                                                   CMP30       5393     A     
 COMPASS            SA3    NOLFG                                                           CMP30       5394     A     
 COMPASS            SX6    10*LPRFX                                                        CMP30       5395     A     
 COMPASS   DFIRSTA  SA6    PCC                                                             CMP30       5396     A     
 COMPASS            SA1    MACHINE                                                         COMPASS    17739     A     
 COMPASS            SA2    ABSFG                                                           COMPASS    17740     A     
 COMPASS            SX3    X3-1                                                            CMP30       5397     A     
 COMPASS            NZ     X1,DFIRSTP  IF PP, QUIT                                         COMPASS    17741     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1020    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X2,DFIRST1  IF RELOCATABLE                                      COMPASS    17742     A     
 COMPASS            ZR     X3,DFIRSTP  IF NO HEADERS WANTED                                CMP30       5398     A     
 COMPASS            SA1    EI                                                              COMPASS    17743     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    17744     A     
 COMPASS            IX1    X2-X1                                                           COMPASS    17745          I
          -CMP5   
 COMPASS            ZR     X1,DFT3     IF NOT MULTIPLE ENTRY POINT OVERLAY                 COMPASS    17746          I
          -CMP5   
 COMPASS            IX5    X2-X1                                                           CMP5          13     A     
 COMPASS            ZR     X5,DFT3     IF NOT MULTIPLE ENTRY POINT OVERLAY                 CMP5          14     A     
 COMPASS            SX1    5100B       OVERLAY IDENT WORD                                  COMPASS    17747     A     
 COMPASS            SA5    L.EPTAB                                                         COMPASS    17748          I
          -CMP5   
 COMPASS            SA3    ORGBASE                                                         COMPASS    17749     A     
 COMPASS            MX0    42                                                              COMPASS    17750     A     
 COMPASS            LX1    48                                                              COMPASS    17751     A     
 COMPASS            SX3    X3-1                                                            COMPASS    17752     A     
 COMPASS            IX3    X3-X5                                                           COMPASS    17753     A     
 COMPASS            BX6    -X0*X3                                                          COMPASS    17754     A     
 COMPASS            LX6    18                                                              COMPASS    17755     A     
 COMPASS            IX1    X1+X5                                                           COMPASS    17756     A     
 COMPASS            BX6    X6+X1                                                           COMPASS    17757     A     
 COMPASS            SA1    BTEMP                                                           COMPASS    17758     A     
 COMPASS            LX1    36                                                              COMPASS    17759     A     
 COMPASS            IX6    X6+X1                                                           COMPASS    17760     A     
 COMPASS            SA6    BINREC                                                          COMPASS    17761          I
          -CMP30  
 COMPASS            SA6    OVLHDR                                                          CMP30       5399     A     
 COMPASS                                                                                   CMP30       5400     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5401     A     
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17762     A     
 COMPASS   RM       ELSE                                                                   CMP30       5402     A     
 COMPASS            IX7    X5+X5                                                           CMP30       5403     A     
 COMPASS            SA1    PCC                                                             CMP30       5404     A     
 COMPASS            SA2    B-1                                                    S028 728 CPS028       540     A     
 COMPASS            LX5    3                                                               CMP30       5405     A     
 COMPASS            SX3    X1+10                                                           CMP30       5406     A     
 COMPASS            IX7    X5+X7                                                           CMP30       5407     A     
 COMPASS            IX4    X3+X7                                                           CMP30       5408          I
          -CPS028 
 COMPASS   +        IX4    X3+X7                                                  S028 730 CPS028       541     A     
 COMPASS            ZR     X2,*+1      IF RECORD TYPE W                           S028 731 CPS028       542     A     
 COMPASS            SX4    B0                                                     S028 732 CPS028       543     A     
 COMPASS            STORE  B,RL=X4                                                         CMP30       5409     A     
 COMPASS            SX2    PRFX                                                            CMP30       5410     A     
 COMPASS   +        NZ     X1,*+1      IF PRFX TABLE WANTED                                CMP30       5411     A     
 COMPASS            SX2    OVLHDR                                                          CMP30       5412     A     
 COMPASS            PUTP   B,X2,X3                                                         CMP30       5413     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5414     A     
 COMPASS                                                                                   CMP30       5415     A     
 COMPASS   DFT2     SA1    O.EPTAB     OUTPUT ENTRY POINT TABLE                            COMPASS    17763     A     
 COMPASS            SA2    EI                                                              COMPASS    17764     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1021    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA3    A2+B1                                                           COMPASS    17765     A     
 COMPASS            IX3    X3-X2                                                           COMPASS    17766     A     
 COMPASS            ZR     X3,DFIRSTP  IF END OF EPTAB                                     COMPASS    17767     A     
 COMPASS            SX6    X2+B1                                                           COMPASS    17768     A     
 COMPASS            SA6    A2                                                              COMPASS    17769     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    17770     A     
 COMPASS            SA1    X1                                                              COMPASS    17771     A     
 COMPASS            RJ     TLUSYMT                                                         COMPASS    17772     A     
 COMPASS            MX0    42                                                              COMPASS    17773     A     
 COMPASS            BX5    -X0*X2                                                          COMPASS    17774     A     
 COMPASS            RJ     LJUST                                                           COMPASS    17775     A     
 COMPASS            BX6    X7+X5                                                           COMPASS    17776     A     
 COMPASS            SA6    BINREC                                                          COMPASS    17777     A     
 COMPASS                                                                                   CMP30       5416     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       5417     A     
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17778     A     
 COMPASS            ELSE   1                                                               CMP30       5418     A     
 COMPASS            PUTP   B,BINREC,10                                                     CMP30       5419     A     
 COMPASS                                                                                   CMP30       5420     A     
 COMPASS            EQ     DFT2        LOOP                                                COMPASS    17779     A     
 COMPASS   DFT3     SA1    =5000BS48   OVERLAY IDENT WORD                                  COMPASS    17780     A     
 COMPASS            SA2    SEGEPT                                                          COMPASS    17781     A     
 COMPASS            SA3    ORGBASE                                                         COMPASS    17782     A     
 COMPASS            SA4    BTEMP                                                           COMPASS    17783     A     
 COMPASS            MX0    42                                                              COMPASS    17784     A     
 COMPASS            SX3    X3-1                                                            COMPASS    17785     A     
 COMPASS            BX3    -X0*X3                                                          COMPASS    17786     A     
 COMPASS            LX3    18                                                              COMPASS    17787     A     
 COMPASS            LX4    36                                                              COMPASS    17788     A     
 COMPASS            BX1    X2+X1                                                           COMPASS    17789     A     
 COMPASS            IX3    X4+X3                                                           COMPASS    17790     A     
 COMPASS            BX6    X1+X3                                                           COMPASS    17791     A     
 COMPASS            SA6    BINREC                                                          COMPASS    17792          I
          -CMP30  
 COMPASS            SA6    OVLHDR                                                          CMP30       5421     A     
 COMPASS                                                                                   CMP30       5422     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5423     A     
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17793     A     
 COMPASS   RM       ELSE                                                                   CMP30       5424     A     
 COMPASS            SA1    PCC                                                             CMP30       5425     A     
 COMPASS            SA2    B-1                                                    S028 734 CPS028       544     A     
 COMPASS            SX3    X1+10                                                           CMP30       5426     A     
 COMPASS            BX4    X3                                                     S028 736 CPS028       545     A     
 COMPASS   +        ZR     X2,*+1      IF RECORD TYPE W                           S028 737 CPS028       546     A     
 COMPASS            STORE  B,RL=X3                                                         CMP30       5427          I
          -CPS028 
 COMPASS            SX2   PRFX                                                             CMP30       5428          I
          -CPS028 
 COMPASS            SX4    0                                                      S028 739 CPS028       547     A     
 COMPASS            STORE  B,RL=X4                                                S028 740 CPS028       548     A     
 COMPASS            SX2    PRFX                                                   S028 741 CPS028       549     A     
 COMPASS   +        NZ     X1,*+1      IF PRFX WANTED                                      CMP30       5429     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1022    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX2    OVLHDR                                                          CMP30       5430     A     
 COMPASS            PUTP   B,X2,X3                                                         CMP30       5431     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5432     A     
 COMPASS                                                                                   CMP30       5433     A     
 COMPASS   DFIRSTP  RJ     SBL         SET BINARY LENGTH                                   COMPASS    17794          I
          -CPS012 
 COMPASS            EQ     DFIRSTX                                                         COMPASS    17795     A     
 COMPASS   DFIRST1  SA1    =34000001BS36 DUMP OUT PIDL TABLE                               COMPASS    17796          I
          -CMP30  
 COMPASS   DFIRST1  ZR     X3,DFIRST5  IF NO HEADERS WANTED                                CMP30       5434          I
          -CP147  
 COMPASS                                                                                   CMP30       5435          I
          -CP147  
 COMPASS   RM       IFNE   CP#RM,0                                                         CMP30       5436          I
          -CP147  
 COMPASS            SA1    NBLOCKS                                                         CMP30       5437          I
          -CP147  
 COMPASS            SA2    L.EPTAB                                                         CMP30       5438          I
          -CP147  
 COMPASS            SA3    PCC                                                             CMP30       5439          I
          -CP147  
 COMPASS            IX4    X1+X1       MULTIPLY BLOCK COUNT BY TEN                         CMP30       5440          I
          -CP147  
 COMPASS            LX1    3                                                               CMP30       5441          I
          -CP147  
 COMPASS            IX5    X1+X4                                                           CMP30       5442          I
          -CP147  
 COMPASS            ZR     X2,DFIRST1A IF NO ENTRY POINTS                                  CMP30       5443          I
          -CP147  
 COMPASS            LX2    1                                                               CMP30       5444          I
          -CP147  
 COMPASS            SX4    X2+B1       LENGTH OF ENTR TABLE                                CMP30       5445          I
          -CP147  
 COMPASS            IX6    X4+X4                                                           CMP30       5446          I
          -CP147  
 COMPASS            LX4    3           MULTIPLY BY TEN                                     CMP30       5447          I
          -CP147  
 COMPASS            IX2    X4+X6                                                           CMP30       5448          I
          -CP147  
 COMPASS   DFIRST1A SX6    X5+20       ADD TWO HEADER WORDS FOR PIDL TABLE                 CMP30       5449          I
          -CP147  
 COMPASS            IX5    X2+X3       ADD LENGTH OF PRFX TABLE IF ANY                     CMP30       5450          I
          -CP147  
 COMPASS            IX4    X6+X5                                                           CMP30       5451          I
          -CP147  
 COMPASS            SA6    T6RM1       SAVE LENGTH OF PIDL TABLE                           CMP30       5452          I
          -CP147  
 COMPASS            SA1    B-1                                                    S028 743 CPS028       550          I
          -CP147  
 COMPASS   +        ZR     X1,*+1      IF RECORD TYPE W                           S028 744 CPS028       551          I
          -CP147  
 COMPASS            SX4    0                                                      S028 745 CPS028       552          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1023    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CP147  
 COMPASS            STORE  B,RL=X4                                                         CMP30       5453          I
          -CP147  
 COMPASS            ZR     X3,DFIRST1B IF NO PRFX WANTED                                   CMP30       5454          I
          -CP147  
 COMPASS            PUTP   B,PRFX,X3                                                       CMP30       5455          I
          -CP147  
 COMPASS   DFIRST1B BSS    0                                                               CMP30       5456          I
          -CP147  
 COMPASS   RM       ENDIF                                                                  CMP30       5457          I
          -CP147  
 COMPASS                                                                                   CMP30       5458          I
          -CP147  
 COMPASS            SA1    =34000001BS36     WRITE PIDL TABLE                              CMP30       5459          I
          -CP147  
 COMPASS                                                                                   CP147        462     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CP147        463     A     
 COMPASS   DFIRST1  SA3    L.TLDS      WRITE LDSET TABLE                                   CP147        464     A     
 COMPASS            SB2    36                                                              CP147        465          I
          -CPS2608
 COMPASS            SX2    70B                                                             CP147        466          I
          -CPS2608
 COMPASS            LX2    59-5                                                            CP147        467          I
          -CPS2608
 COMPASS            ZR     X3,DFIRST1A IF TABLE EMPTY                                      CP147        468     A     
 COMPASS            LX4    X3,B2                                                           CP147        469          I
          -CPS2608
 COMPASS            BX6    X2+X4       INSERT WORD COUNT                                   CP147        470          I
          -CPS2608
 COMPASS            SA6    BTEMP                                                           CP147        471          I
          -CPS2608
 COMPASS            WRITEW B,A6,1      WRITE HEADER WORD                                   CP147        472          I
          -CPS2608
 COMPASS            SB3    X3-1                                                            CPS2608       57     A     
 COMPASS            ZR     B3,DFIRST1A                                                     CPS2608       58     A     
 COMPASS            RJ     LDHDR       PLACE CORRECT WC IN CONTROL WORD                    CPS2608       59     A     
 COMPASS            SA1    O.TLDS                                                          CP147        473     A     
 COMPASS            SA3    L.TLDS                                                          CP147        474     A     
 COMPASS            SX3    X3-1        DROP EXTRA LDSET CONTROL WORD                       CPS2608       60     A     
 COMPASS            WRITEW B,X1,X3                                                         CP147        475     A     
 COMPASS   RM       ENDIF                                                                  CP147        476     A     
 COMPASS                                                                                   CP147        477     A     
 COMPASS   RM       IFNE   CP#RM,0                                                         CP147        478     A     
 COMPASS   DFIRST1  SA1    L.TLDS                                                          CP147        479     A     
 COMPASS            SA2    NBLOCKS     PIDL BLOCK COUNT                                    CP147        480     A     
 COMPASS            SA3    PCC         PRFX CHARACTER COUNT                                CP147        481     A     
 COMPASS            SA4    L.EPTAB                                                         CP147        482     A     
 COMPASS            ZR     X1,DFIRST1B IF NO TLDS                                          CP147        483     A     
 COMPASS            SX5    X1+B1       ADD HEADER WORD                                     CP147        484     A     
 COMPASS            IX6    X5+X5       MULTIPLY BY TEN                                     CP147        485     A     
 COMPASS            LX5    3                                                               CP147        486     A     
 COMPASS            IX1    X5+X6       LDSET CHARACTER COUNT                               CP147        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/28. 19.11.32.      PAGE1024    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DFIRST1B IX5    X2+X2       MULTIPLY BY TEN                                     CP147        488     A     
 COMPASS            LX2    3                                                               CP147        489     A     
 COMPASS            IX6    X2+X5       PIDL CHARACTER COUNT                                CP147        490     A     
 COMPASS            SX7    X6+20       ADD TWO HEADER WORDS FOR PIDL TABLE                 CP147        491     A     
 COMPASS            ZR     X4,DFIRST1C IF NO ENTRY POINTS                                  CP147        492     A     
 COMPASS            LX4    1                                                               CP147        493     A     
 COMPASS            SX2    X4+B1       LENGTH OF ENTRY TABLE                               CP147        494     A     
 COMPASS            IX5    X2+X2       MULTIPLY BY TEN                                     CP147        495     A     
 COMPASS            LX2    3                                                               CP147        496     A     
 COMPASS            IX4    X2+X5       ENTRY TABLE CHARACTER COUNT                         CP147        497     A     
 COMPASS   DFIRST1C IX2    X3+X1                                                           CP147        498     A     
 COMPASS            IX5    X4+X7                                                           CP147        499     A     
 COMPASS            IX4    X2+X5       CHAR COUNT OF TABLES ABOVE                          CP147        500     A     
 COMPASS            SX6    X1-10       LENGTH OF TLDS  WITHOUT HEADER WORD                 CP147        501     A     
 COMPASS            SA7    T6RM1       SAVE PIDL CHARACTER COUNT                           CP147        502     A     
 COMPASS            SA6    T6RM2       SAVE LDSET CHAR COUNT WITHOUT HEADER WORD           CP147        503     A     
 COMPASS            SA2    B-1                                                             CP147        504     A     
 COMPASS   +        ZR     X2,*+1      IF RECORD TYPE W                                    CP147        505     A     
 COMPASS            SX4    0                                                               CP147        506     A     
 COMPASS            STORE  B,RL=X4                                                         CP147        507     A     
 COMPASS            ZR     X3,DFIRST1D IF NO PRFX TABLE                                    CP147        508     A     
 COMPASS            PUTP   B,PRFX,X3                                                       CP147        509     A     
 COMPASS   DFIRST1D SA3    L.TLDS      WRITE LDSET TABLE                                   CP147        510     A     
 COMPASS            SB2    36                                                              CP147        511     A     
 COMPASS            SX2    70B                                                             CP147        512     A     
 COMPASS            LX2    59-5                                                            CP147        513     A     
 COMPASS            ZR     X3,DFIRST1A IF NO LDSET TABLE                                   CP147        514     A     
 COMPASS            LX4    X3,B2                                                           CP147        515     A     
 COMPASS            BX6    X2+X4       INSERT WORD COUNT                                   CP147        516     A     
 COMPASS            SA6    BTEMP                                                           CP147        517     A     
 COMPASS            PUTP   B,BTEMP,10  WRITE HEADER WORD                                   CP147        518     A     
 COMPASS            SA1    O.TLDS                                                          CP147        519     A     
 COMPASS            SA3    T6RM2                                                           CP147        520     A     
 COMPASS            PUTP   B,X1,X3                                                         CP147        521     A     
 COMPASS   RM       ENDIF                                                                  CP147        522     A     
 COMPASS                                                                                   CP147        523     A     
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CP147        524     A     
 COMPASS                                                                                   CP147        525     A     
 COMPASS            MX6    0           CLEAR TLDS                                          CP147        526     A     
 COMPASS            SA6    L.TLDS                                                          CP147        527     A     
 COMPASS                                                                                   CP147        528     A     
 COMPASS   DFIRST1A SA1    =34000001BS36     WRITE PIDL TABLE                              CP147        529     A     
 COMPASS            SA2    NBLOCKS                                                         COMPASS    17797     A     
 COMPASS            LX2    36                                                              COMPASS    17798     A     
 COMPASS            IX6    X1+X2                                                           COMPASS    17799     A     
 COMPASS            SA1    DKNAM                                                           COMPASS    17800     A     
 COMPASS            SA2    ENDP                                                            COMPASS    17801     A     
 COMPASS            BX7    X1+X2                                                           COMPASS    17802     A     
 COMPASS            SA6    BINREC                                                          COMPASS    17803          I
          -CMP30  
 COMPASS            SA6    RELVEC                                                          CMP30       5460     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    17804     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1025    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            WRITEW B,A6,2                                                          COMPASS    17805          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    17806     A     
 COMPASS            SA6    BTEMPA      CLEAR LOOP INDEX                                    COMPASS    17807     A     
 COMPASS            SA6    A6+B1                                                           CMP30       5461     A     
 COMPASS   DFIRST2  SA1    O.USETAB                                                        COMPASS    17808     A     
 COMPASS            SA4    UI                                                              RSM4159       47     A     
 COMPASS            IX1    X1+X4       BASE ADDRESS OF BLOCK GROUP                         RSM4159       48     A     
 COMPASS            SA2    BTEMPA                                                          COMPASS    17809          I
          -CMP30  
 COMPASS            IX3    X1+X2                                                           COMPASS    17810          I
          -CMP30  
 COMPASS            IX3    X1+X6                                                           CMP30       5462     A     
 COMPASS            SA4    X3+2        FETCH ORIGIN OF BLOCK                               COMPASS    17811     A     
 COMPASS            MX0    -8                                                              CMP30       5463     A     
 COMPASS            AX4    25          CHECK BLOCK NUMBER                                  COMPASS    17812     A     
 COMPASS            ZR     X4,DFIRST3  IF LOCAL BLOCK                                      COMPASS    17813          I
          -CMP30  
 COMPASS            BX4    -X0*X4                                                          CMP30       5464     A     
 COMPASS            ZR     X4,DFIRST3  IF ABSOLUTE OR SCM LOCAL BLOCK                      CMP30       5465     A     
 COMPASS            SA1    A4-2        FETCH BLOCK NAME                                    COMPASS    17814     A     
 COMPASS   +        NZ     X1,*+1      CHANGE ZERO NAME TO BLANK                           COMPASS    17815     A     
 COMPASS            SA1    =7R                                                             COMPASS    17816     A     
 COMPASS            BX0    X1          COMPLEMENT NAME IF LCM                              COMPASS    17817          I
          -CMP30  
 COMPASS            BX0    X1          UNCOMPLEMENT NAME IF LCM                            CMP30       5466     A     
 COMPASS            AX1    60                                                              COMPASS    17818     A     
 COMPASS            BX1    X0-X1                                                           COMPASS    17819     A     
 COMPASS            RJ     LJUST                                                           COMPASS    17820     A     
 COMPASS            MX0    42                                                              COMPASS    17821          I
          -CMP30  
 COMPASS            SA1    A4+3        FETCH BLOCK LENGTH                                  COMPASS    17822          I
          -CMP30  
 COMPASS            SA2    BTEMPB                                                          CMP30       5467     A     
 COMPASS            SA3    A4-2                                                            CMP30       5468     A     
 COMPASS            SA1    A4                                                              CMP30       5469     A     
 COMPASS            MX0    -9                                                              CMP30       5470     A     
 COMPASS            SX6    X2+B1                                                           CMP30       5471     A     
 COMPASS            LX1    -33                                                             CMP30       5472     A     
 COMPASS            PL     X3,DFIRST2B  IF SCM COMMON BLOCK                                CMP30       5473     A     
 COMPASS            SA5    LLB                                                             CMP30       5474     A     
 COMPASS            LX1    33                                                              CMP30       5475     A     
 COMPASS            LX0    24                                                              CMP30       5476     A     
 COMPASS            SX2    X6+B1                                                           CMP30       5477     A     
 COMPASS            BX3    -X0*X1                                                          CMP30       5478     A     
 COMPASS            LX2    24                                                              CMP30       5479     A     
 COMPASS            IX4    X3-X5                                                           CMP30       5480     A     
 COMPASS            BX5    X2-X5                                                           CMP30       5481     A     
 COMPASS            LX1    -33                                                             CMP30       5482     A     
 COMPASS            NZ     X4,DFIRST2A IF LCM COMMON BLOCK                                 CMP30       5483     A     
 COMPASS            NZ     X5,DFIRST3  IF NOT FIRST LCM LOCAL BLOCK                        CMP30       5484     A     
 COMPASS            SA1    LCM                                                             CMP30       5485     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1026    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX7    0                                                               CMP30       5486     A     
 COMPASS   DFIRST2A SX3    7                                                               CMP30       5487     A     
 COMPASS            SX0    B1          ROUND UP BLOCK SIZE TO A MULTIPLE                   CMP30       5488     A     
 COMPASS            IX1    X1+X3       OF 8 AND SET BIT 17 FOR LCM BLOCK                   CMP30       5489     A     
 COMPASS            LX0    17                                                              CMP30       5490     A     
 COMPASS            AX1    3                                                               CMP30       5491     A     
 COMPASS            BX1    X1+X0                                                           CMP30       5492     A     
 COMPASS   DFIRST2B MX0    42                                                              CMP30       5493     A     
 COMPASS            BX4    X7*X0                                                           COMPASS    17823     A     
 COMPASS            BX2    -X0*X1                                                          COMPASS    17824     A     
 COMPASS            IX6    X2+X4                                                           COMPASS    17825          I
          -CMP30  
 COMPASS            SA1    A4-2        COMPLEMENT NAME IF LCM                              COMPASS    17826          I
          -CMP30  
 COMPASS            AX1    60                                                              COMPASS    17827          I
          -CMP30  
 COMPASS            BX6    X6-X1                                                           COMPASS    17828          I
          -CMP30  
 COMPASS            SA6    BTEMPB                                                          COMPASS    17829          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17830          I
          -CMP30  
 COMPASS            IX7    X2+X4                                                           CMP30       5494     A     
 COMPASS            SA6    A2                                                              CMP30       5495     A     
 COMPASS            SA7    RELVEC+1+X6                                                     CMP30       5496     A     
 COMPASS   DFIRST3  SA1    BTEMPA                                                          COMPASS    17831     A     
 COMPASS            SA2    L.USETAB                                                        COMPASS    17832     A     
 COMPASS            SX6    X1+6                                                            COMPASS    17833          I
          -CMP30  
 COMPASS            SX6    X1+4                                                            CMP30       5497     A     
 COMPASS            BX3    X2-X6                                                           COMPASS    17834     A     
 COMPASS            SA6    A1                                                              COMPASS    17835     A     
 COMPASS            NZ     X3,DFIRST2                                                      COMPASS    17836     A     
 COMPASS                                                                                   CMP30       5498     A     
 COMPASS            IFEQ   CP#RM,0,3                                                       CMP30       5499     A     
 COMPASS            SA1    NBLOCKS                                                         CMP30       5500     A     
 COMPASS            WRITEW B,RELVEC,X1+2                                                   CMP30       5501     A     
 COMPASS            ELSE   2                                                               CMP30       5502     A     
 COMPASS            SA3    T6RM1                                                           CMP30       5503     A     
 COMPASS            PUTP   B,RELVEC,X3                                                     CMP30       5504     A     
 COMPASS                                                                                   CMP30       5505     A     
 COMPASS                                                                                   COMPASS    17837     A     
 COMPASS  *         OUTPUT ENTR TABLE.                                                     COMPASS    17838     A     
 COMPASS                                                                                   COMPASS    17839     A     
 COMPASS            SA1    L.EPTAB                                                         COMPASS    17840     A     
 COMPASS            SA2    =36000000BS36                                                   COMPASS    17841     A     
 COMPASS            LX1    37                                                              COMPASS    17842     A     
 COMPASS            BX6    X1+X2                                                           COMPASS    17843     A     
 COMPASS            SA6    BTEMPB                                                          COMPASS    17844     A     
 COMPASS            SA5    BTEMP                                                           COMPASS    17845          I
          -CP147  
 COMPASS            MX7    0                                                               COMPASS    17846     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1027    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X1,DFIRST5  IF NO ENTRY POINTS                                  COMPASS    17847     A     
 COMPASS            NZ     X5,DFIRST5                                                      COMPASS    17848          I
          -CP147  
 COMPASS            SA7    A6-B1                                                           COMPASS    17849     A     
 COMPASS                                                                                   CMP30       5506     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       5507     A     
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17850     A     
 COMPASS            ELSE   1                                                               CMP30       5508     A     
 COMPASS            PUTP   B,BTEMPB,10                                                     CMP30       5509     A     
 COMPASS                                                                                   CMP30       5510     A     
 COMPASS   DFIRST4  SA1    O.EPTAB                                                         COMPASS    17851     A     
 COMPASS            SA2    BTEMPA                                                          COMPASS    17852     A     
 COMPASS            IX3    X1+X2                                                           COMPASS    17853     A     
 COMPASS            SA1    X3          FETCH ENTRY POINT NAME                              COMPASS    17854     A     
 COMPASS            MX0    1                                                               CMP30       5511     A     
 COMPASS            BX1    -X0*X1      CLEAR CONDITIONAL FLAG                              CMP30       5512     A     
 COMPASS            RJ     TLUSYMT     LOOK UP SYMBOL                                      COMPASS    17855     A     
 COMPASS            MX0    39          EXTRACT SYMBOL DEFINITION                           COMPASS    17856          I
          -CPS010 
 COMPASS            MX0    -18         EXTRACT SYMBOL DEFINITION                           CPS010       125     A     
 COMPASS            BX6    -X0*X2      VALUE                                               COMPASS    17857     A     
 COMPASS            AX2    21                                                              COMPASS    17858     A     
 COMPASS            MX0    51                                                              COMPASS    17859          I
          -CMP30  
 COMPASS            MX0    -8                                                              CMP30       5513          I
          -CPS010 
 COMPASS            MX0    -9                                                              CPS010       126     A     
 COMPASS            BX3    -X0*X2      RELOCATION                                          COMPASS    17860          I
          -CP096A 
 COMPASS            BX7    -X0*X2      RELOCATION                                          CP096A       522     A     
 COMPASS   +        AX4    X3,B1                                                           COMPASS    17861          I
          -CMP30  
 COMPASS            ZR     X4,*+1                                                          COMPASS    17862          I
          -CMP30  
 COMPASS            SX3    X3+B1       BUMP BY 1 IF RELOC IS NOT 0 OR 1                    COMPASS    17863          I
          -CMP30  
 COMPASS            LX3    18                                                              COMPASS    17864          I
          -CMP30  
 COMPASS            AX4    X3,B1                                                           CMP30       5514          I
          -CP096A 
 COMPASS            AX4    X7,B1                                                           CP096A       523     A     
 COMPASS            ZR     X4,DFIRST4B  IF ABSOLUTE OR SCM LOCAL                           CMP30       5515     A     
 COMPASS            MX4    -8                                                              CPS010       127     A     
 COMPASS            BX4    -X4*X2                                                          CPS010       128     A     
 COMPASS            LX2    59-31+21                                                        CMP30       5516     A     
 COMPASS            BX4    X3                                                              CMP30       5517          I
          -CPS010 
 COMPASS            SX3    X3+B1                                                           CMP30       5518          I
          -CPS010 
 COMPASS            MX0    -9                                                              CMP30       5519          I
          -CPS010 
 COMPASS            SX3    X4+B1       CORRECT COMMON OR NEGATIVE RELOCATION               CPS010       129          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1028    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CP096A 
 COMPASS            SX7    X4+B1       CORRECT COMMON OR NEGATIVE RELOCATION               CP096A       524     A     
 COMPASS            MI     X2,DFIRST4B  IF EXTERNAL                                        CMP30       5520     A     
 COMPASS            SA2    O.USETAB                                                        CMP30       5521          I
          -CPS010 
 COMPASS            SA5    O.USETAB                                                        CPS010       130     A     
 COMPASS            SA2    UI                                                              RSM4159       49     A     
 COMPASS            IX5    X2+X5       BASE ADDRESS OF BLOCK GROUP                         RSM4159       50     A     
 COMPASS            LX4    24                                                              CMP30       5522     A     
 COMPASS            SA5    X2+2                                                            CMP30       5523          I
          -CPS010 
 COMPASS            SA5    X5+2                                                            CPS010       131     A     
 COMPASS            LX0    24                                                              CMP30       5524     A     
 COMPASS   DFIRST4A BX2    -X0*X5      SEARCH USE TABLE FOR BLOCK                          CMP30       5525     A     
 COMPASS            IX7    X2-X4       WITH MATCHING RELOCATION                            CMP30       5526          I
          -CP096A 
 COMPASS            BX2    X2-X4       WITH MATCHING RELOCATION                            CP096A       525     A     
 COMPASS            SA5    A5+4                                                            CMP30       5527     A     
 COMPASS            NZ     X7,DFIRST4A                                                     CMP30       5528          I
          -CP096A 
 COMPASS            NZ     X2,DFIRST4A                                                     CP096A       526     A     
 COMPASS            SA4    A5-6        GET BLOCK NAME                                      CMP30       5529     A     
 COMPASS            PL     X4,DFIRST4B  IF NOT LCM                                         CMP30       5530     A     
 COMPASS            SA2    A2                                                              CPS010       132          I
          -CP096A 
 COMPASS            RX2    X3                                                              CP096A       527     A     
 COMPASS            MX0    -21         USE 21-BIT VALUE                                    CPS010       133     A     
 COMPASS            BX6    -X0*X2                                                          CPS010       134     A     
 COMPASS            LX6    36                                                              CMP30       5531     A     
 COMPASS   DFIRST4B LX3    18                                                              CMP30       5532          I
          -CP096A 
 COMPASS            BX6    X3+X6                                                           COMPASS    17865          I
          -CP096A 
 COMPASS   DFIRST4B LX7    18                                                              CP096A       528     A     
 COMPASS            BX6    X7+X6                                                           CP096A       529     A     
 COMPASS            SA6    BINREC+1                                                        COMPASS    17866     A     
 COMPASS            RJ     LJUST                                                           COMPASS    17867     A     
 COMPASS            BX6    X7                                                              COMPASS    17868          I
          -CMP30  
 COMPASS            SA1    A1                                                              CMP30       5533     A     
 COMPASS            BX3    X3-X3                                                           CMP30       5534     A     
 COMPASS            PL     X1,DFIRST4C  IF NOT CONDITIONAL                                 CMP30       5535     A     
 COMPASS            SA2    A6                                                              CMP30       5536     A     
 COMPASS            AX2    18          EXTRACT LOAD CONDITION                              CMP30       5537     A     
 COMPASS            SX4    X2-1                                                            CMP30       5538     A     
 COMPASS            AX5    X4,B1                                                           CMP30       5539     A     
 COMPASS            ZR     X5,DFIRST4C IF NOT A COMMON BLOCK                               CMP30       5540     A     
 COMPASS            SA5    LLB                                                             CMP30       5541     A     
 COMPASS            LX4    24                                                              CMP30       5542     A     
 COMPASS            BX3    X4-X5                                                           CMP30       5543     A     
 COMPASS            ZR     X3,DFIRST4C IF LCM LOCAL BLOCK                                  CMP30       5544     A     
 COMPASS            AX4    24                                                              CMP30       5545     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1029    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX3    X4+B1                                                           CMP30       5546     A     
 COMPASS   DFIRST4C BX6    X7+X3                                                           CMP30       5547     A     
 COMPASS            SA6    A6-B1                                                           COMPASS    17869     A     
 COMPASS                                                                                   CMP30       5548     A     
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       5549     A     
 COMPASS            WRITEW B,A6,2                                                          COMPASS    17870     A     
 COMPASS            ELSE   1                                                               CMP30       5550     A     
 COMPASS            PUTP   B,BINREC,20                                                     CMP30       5551     A     
 COMPASS                                                                                   CMP30       5552     A     
 COMPASS            SA1    BTEMPA                                                          COMPASS    17871     A     
 COMPASS            SA2    L.EPTAB                                                         COMPASS    17872     A     
 COMPASS            SX6    X1+B1                                                           COMPASS    17873     A     
 COMPASS            BX4    X6-X2                                                           COMPASS    17874     A     
 COMPASS            SA6    A1                                                              COMPASS    17875     A     
 COMPASS            NZ     X4,DFIRST4                                                      COMPASS    17876     A     
 COMPASS                                                                                   COMPASS    17877     A     
 COMPASS  *         INITIALIZE CHAIN CELLS.                                                COMPASS    17878     A     
 COMPASS                                                                                   COMPASS    17879     A     
 COMPASS   DFIRST5  MX6    0                                                               COMPASS    17880     A     
 COMPASS            SA6    L.LNKTAB                                                        COMPASS    17881     A     
 COMPASS            SA6    L.COMTAB                                                        COMPASS    17882     A     
 COMPASS            SA6    BINREC                                                          COMPASS    17883     A     
 COMPASS            SA6    A6+B1                                                           COMPASS    17884     A     
 COMPASS            EQ     DFIRSTX                                                         COMPASS    17885     A     
 COMPASS   DLAST    SPACE  4                                                               COMPASS    17886     A     
 COMPASS  **        DLAST - DUMP TERMINAL LOADER TABLES.                                   COMPASS    17887     A     
 COMPASS  *         THIS ROUTINE IS NON-NULL FOR RELOCATABLE ROUTINES ONLY.                COMPASS    17888     A     
 COMPASS  *         DLAST CREATES THE FOLLOWING TABLES:                                    COMPASS    17889     A     
 COMPASS  *                42 TABLE = FILL FOR COMMON LINKAGE.                             COMPASS    17890     A     
 COMPASS  *                44 TABLE = LINK FOR EXTERNAL LINKAGE.                           COMPASS    17891     A     
 COMPASS  *                43 TABLE = REPL FOR ENTRIES IN REPTAB.                          COMPASS    17892     A     
 COMPASS  *         THIS ROUTINE ALSO CLEARS OUT THE DUMPED TABLES.                        COMPASS    17893     A     
 COMPASS  *         THIS ROUTINE MUST BE CALLABLE FROM MANAGER, SO NO MANAGER              COMPASS    17894     A     
 COMPASS  *         CALLS MAY EXIST IN IT.                                                 COMPASS    17895     A     
 COMPASS                                                                                   COMPASS    17896     A     
 COMPASS                                                                                   COMPASS    17897     A     
 COMPASS   DLAST    PS                 RETURN EXIT                                         COMPASS    17898     A     
 COMPASS            RJ     DBSSZ       DUMP BSSZ CODING                                    COMPASS    17899          I
          -CP13226
 COMPASS            SA2    MACHINE                                                         COMPASS    17900          I
          -CMP30  
 COMPASS            SA3    ABSFG                                                           COMPASS    17901          I
          -CMP30  
 COMPASS            NZ     X2,DLAST    IF PP CODING                                        COMPASS    17902          I
          -CMP30  
 COMPASS            NZ     X3,DLAST    IF PP CODING                                        COMPASS    17903          I
          -CMP30  
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       283          I
          -CMP30  
 COMPASS            SA1    ABSFG                                                           CMP30       5553     A     
 COMPASS            SA2    B                                                               CMP30       5554     A     
 COMPASS            NZ     X1,DLAST    IF PP OR ABS CP ASSEMBLY                            CMP30       5555     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1030    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            ZR     X2,DLAST20  IF NO BINARY FILE                                   CMP30       5556     A     
 COMPASS                                                                                   COMPASS    17904     A     
 COMPASS  *         DUMP OUT COMMON LINKAGE TABLES.                                        COMPASS    17905     A     
 COMPASS                                                                                   COMPASS    17906     A     
 COMPASS            SA1    O.COMTAB                                                        COMPASS    17907     A     
 COMPASS            SA2    L.COMTAB                                                        COMPASS    17908     A     
 COMPASS            ZR     X2,DLAST10  IF LINKAGE TABLE EMPTY                              COMPASS    17909     A     
 COMPASS            SX6    B1                                                              CMP30       5557     A     
 COMPASS            MX0    30                                                              COMPASS    17910     A     
 COMPASS            SX1    X1+B1       SKIP FIRST WORD                                     CMP30       5558     A     
 COMPASS            IX2    X2-X6                                                           CMP30       5559     A     
 COMPASS            SA6    DLASTT                                                          CMP30       5560     A     
 COMPASS            RJ     DSORT       SORT COMMON TABLE                                   COMPASS    17911     A     
 COMPASS            SA1    O.COMTAB                                                        COMPASS    17912          I
          -CMP30  
 COMPASS            SA2    L.COMTAB                                                        COMPASS    17913          I
          -CMP30  
 COMPASS            SB7    X2                                                              COMPASS    17914          I
          -CMP30  
 COMPASS            SB3    X1                                                              COMPASS    17915          I
          -CMP30  
 COMPASS            MX1    30                                                              COMPASS    17916          I
          -CMP30  
 COMPASS            SA4    B3                                                              COMPASS    17917          I
          -CMP30  
 COMPASS            SA5    B3-B1                                                           COMPASS    17918          I
          -CMP30  
 COMPASS            BX6    X5                                                              COMPASS    17919          I
          -CMP30  
 COMPASS            SB6    30                                                              COMPASS    17920          I
          -CMP30  
 COMPASS            MX2    0                                                               COMPASS    17921          I
          -CMP30  
 COMPASS            SA6    A5                                                              COMPASS    17922          I
          -CMP30  
 COMPASS            SB2    -B1                                                             COMPASS    17923          I
          -CMP30  
 COMPASS            SB3    B3-B1                                                           COMPASS    17924          I
          -CMP30  
 COMPASS   DLAST1   SB2    B2+B1       COMPRESS COMTAB                                     COMPASS    17925          I
          -CMP30  
 COMPASS            BX3    X1*X4                                                           COMPASS    17926          I
          -CMP30  
 COMPASS            IX0    X2-X3                                                           COMPASS    17927          I
          -CMP30  
 COMPASS            SB7    B7-B1                                                           COMPASS    17928          I
          -CMP30  
 COMPASS            BX7    -X1*X4                                                          COMPASS    17929          I
          -CMP30  
 COMPASS            ZR     X0,DLAST2                                                       COMPASS    17930          I
          -CMP30  
 COMPASS            BX2    X3                                                              COMPASS    17931          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1031    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            AX7    X2,B6                                                           COMPASS    17932          I
          -CMP30  
 COMPASS            SA4    A4-B1                                                           COMPASS    17933          I
          -CMP30  
 COMPASS            SB7    B7+B1                                                           COMPASS    17934          I
          -CMP30  
 COMPASS   DLAST2   BX3    -X1*X6                                                          COMPASS    17935          I
          -CMP30  
 COMPASS            LX5    X3,B6                                                           COMPASS    17936          I
          -CMP30  
 COMPASS            IX6    X7+X5                                                           COMPASS    17937          I
          -CMP30  
 COMPASS            SA4    A4+B1                                                           COMPASS    17938          I
          -CMP30  
 COMPASS   +        NE     B1,B2,*+1                                                       COMPASS    17939          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    17940          I
          -CMP30  
 COMPASS            SB2    -B1                                                             COMPASS    17941          I
          -CMP30  
 COMPASS            NZ     B7,DLAST1                                                       COMPASS    17942          I
          -CMP30  
 COMPASS            BX4    -X1*X6                                                          COMPASS    17943          I
          -CMP30  
 COMPASS            LX6    X4,B6                                                           COMPASS    17944          I
          -CMP30  
 COMPASS   +        SX3    B1                                                              COMPASS    17945          I
          -CMP30  
 COMPASS            NG     B2,*+1                                                          COMPASS    17946          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    17947          I
          -CMP30  
 COMPASS            SX4    A6-B3                                                           COMPASS    17948          I
          -CMP30  
 COMPASS            SX5    42B                                                             COMPASS    17949          I
          -CMP30  
 COMPASS            LX5    54                                                              COMPASS    17950          I
          -CMP30  
 COMPASS            LX4    36                                                              COMPASS    17951          I
          -CMP30  
 COMPASS            BX6    X4+X5                                                           COMPASS    17952          I
          -CMP30  
 COMPASS            SX7    A6-B3                                                           COMPASS    17953          I
          -CMP30  
 COMPASS            SA6    DLASTT                                                          COMPASS    17954          I
          -CMP30  
 COMPASS            SA7    A2                                                              COMPASS    17955          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    17956          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    17957          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1032    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA2    O.COMTAB                                                        COMPASS    17958          I
          -CMP30  
 COMPASS            SA3    L.COMTAB                                                        COMPASS    17959          I
          -CMP30  
 COMPASS            SA6    A3                                                              COMPASS    17960          I
          -CMP30  
 COMPASS            WRITEW B,X2,X3                                                         COMPASS    17961          I
          -CMP30  
 COMPASS            EQ     DLAST2                                                          CMP30       5561     A     
 COMPASS                                                                                   CMP30       5562     A     
 COMPASS   DLAST1   LX1    12          TABLE TYPE (4100B OR 4200B)                         CMP30       5563     A     
 COMPASS            SX5    A6-B5       WORD COUNT                                          CMP30       5564     A     
 COMPASS            BX3    X1+X5                                                           CMP30       5565     A     
 COMPASS            LX3    36                                                              CMP30       5566     A     
 COMPASS            BX6    X3+X7       HEADER WORD                                         CMP30       5567     A     
 COMPASS            SX7    B6          COMTAB INDEX                                        CMP30       5568     A     
 COMPASS            SA6    B5                                                              CMP30       5569     A     
 COMPASS            SA7    DLASTT                                                          CMP30       5570     A     
 COMPASS                                                                                   CMP30       5571     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5572     A     
 COMPASS            WRITEW B,B5,X5+B1  WRITE FILL/XFILL TABLE                              CMP30       5573     A     
 COMPASS   RM       ELSE                                                                   CMP30       5574     A     
 COMPASS            SX1    B5                                                              CMP30       5575     A     
 COMPASS            SX3    X5+B1                                                           CMP30       5576     A     
 COMPASS            IX4    X3+X3                                                           CMP30       5577     A     
 COMPASS            LX3    3                                                               CMP30       5578     A     
 COMPASS            IX4    X3+X4                                                           CMP30       5579     A     
 COMPASS            SA2    B-1                                                             CMP30       5580     A     
 COMPASS            NZ     X2,DLA1     IF NOT W RECORDS                                    CMP30       5581     A     
 COMPASS            PUT    B,X1,X4                                                         CMP30       5582     A     
 COMPASS            EQ     DLAST2                                                          CMP30       5583     A     
 COMPASS   DLA1     PUTP   B,X1,X4                                                         CMP30       5584     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5585     A     
 COMPASS                                                                                   CMP30       5586     A     
 COMPASS   DLAST2   SA1    O.COMTAB                                                        CMP30       5587     A     
 COMPASS            SA2    L.COMTAB                                                        CMP30       5588     A     
 COMPASS            SA3    DLASTT                                                          CMP30       5589     A     
 COMPASS            SB7    X2                                                              CMP30       5590     A     
 COMPASS            SB6    X3                                                              CMP30       5591     A     
 COMPASS            GE     B6,B7,DLAST10  IF END OF TABLE                                  CMP30       5592     A     
 COMPASS            SA4    X1                                                              CMP30       5593     A     
 COMPASS            SA1    X1+B6                                                           CMP30       5594     A     
 COMPASS            MX5    3                                                               CMP30       5595     A     
 COMPASS            BX6    X4                                                              CMP30       5596     A     
 COMPASS            SB3    B0                                                              CMP30       5597     A     
 COMPASS            SA6    A4                                                              CMP30       5598     A     
 COMPASS            SB5    A4                                                              CMP30       5599     A     
 COMPASS            SX6    B0                                                              CMP30       5600     A     
 COMPASS            BX7    X5*X1                                                           CMP30       5601     A     
 COMPASS            AX5    9                                                               CMP30       5602     A     
 COMPASS            NZ     X7,DLAST6   IF CONDITIONAL XFILL                                CMP30       5603     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1033    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX7    X5*X1                                                           CMP30       5604     A     
 COMPASS            AX5    9                                                               CMP30       5605     A     
 COMPASS            NZ     X7,DLAST7   IF UNCONDITIONAL XFILL                              CMP30       5606     A     
 COMPASS            MX0    30                                                              CMP30       5607     A     
 COMPASS            BX7    X5*X1                                                           CMP30       5608     A     
 COMPASS            MX5    -9          FILL (CONDITIONAL OR NOT)                           CMP30       5609     A     
 COMPASS            SB2    30                                                              CMP30       5610     A     
 COMPASS            LX5    30                                                              CMP30       5611     A     
 COMPASS                                                                                   CMP30       5612     A     
 COMPASS   DLAST3   BX2    -X5*X1      EXTRACT CONTROL BYTE                                CMP30       5613     A     
 COMPASS            LX3    X2,B3                                                           CMP30       5614     A     
 COMPASS            SB3    B2-B3                                                           CMP30       5615     A     
 COMPASS            IX6    X6+X3                                                           CMP30       5616     A     
 COMPASS            BX2    X0*X1                                                           CMP30       5617     A     
 COMPASS            NZ     B3,DLAST4   IF FILL WORD NOT FULL                               CMP30       5618     A     
 COMPASS            SA6    A6+B1                                                           CMP30       5619     A     
 COMPASS            SB0    0                                                               CMP30       5620     A     
 COMPASS            BX6    X6-X6                                                           CMP30       5621     A     
 COMPASS   DLAST4   SB3    B2-B3       EXTRACT DATA BYTE                                   CMP30       5622     A     
 COMPASS            BX3    -X0*X1                                                          CMP30       5623     A     
 COMPASS            LX4    X3,B3                                                           CMP30       5624     A     
 COMPASS            IX6    X6+X4                                                           CMP30       5625     A     
 COMPASS   +        NZ     B3,*+1      IF FILL WORD NOT FULL                               CMP30       5626          I
          -CPSA083
 COMPASS            SB6    B6+B1       INCREMENT INDEX INTO COMTAB                 CPSA083 CPSA083        5     A     
 COMPASS            NZ     B3,DLAST4A  IF FILL WORD NOT FULL                       CPSA083 CPSA083        6     A     
 COMPASS            SA6    A6+B1                                                           CMP30       5627     A     
 COMPASS            SX1    A6-B5       PRESENT WORD COUNT OF 4200 TABLE            CPSA083 CPSA083        7     A     
 COMPASS            SX3    X1-7777B    CHECK IF WORD COUNT AT MAXIMUM              CPSA083 CPSA083        8     A     
 COMPASS            PL     X3,DLAST5   IF WORD COUNT AT MAX, DUMP THIS TABLE       CPSA083 CPSA083        9     A     
 COMPASS            BX6    X6-X6                                                           CMP30       5628     A     
 COMPASS   +        SA1    A1+B1       GET NEXT WORD OF COMTAB                             CMP30       5629          I
          -CPSA083
 COMPASS   DLAST4A  SA1    A1+B1       GET NEXT WORD OF COMTAB                     CPSA083 CPSA083       10     A     
 COMPASS            SB6    B6+B1                                                           CMP30       5630          I
          -CPSA083
 COMPASS            BX3    X0*X1                                                           CMP30       5631     A     
 COMPASS            IX4    X3-X2                                                           CMP30       5632     A     
 COMPASS            GE     B6,B7,DLAST5  IF END OF TABLE                                   CMP30       5633     A     
 COMPASS            ZR     X4,DLAST4   IF SAME CONTROL BYTE AND SAME CONDITION             CMP30       5634     A     
 COMPASS            BX3    X5*X3                                                           CMP30       5635     A     
 COMPASS            IX4    X3-X7                                                           CMP30       5636     A     
 COMPASS            ZR     X4,DLAST3   IF SAME CONDITION                                   CMP30       5637     A     
 COMPASS   DLAST5   ZR     B3,*+1      IF LAST FILL WORD IS FULL                           CMP30       5638     A     
 COMPASS            SA6    A6+B1                                                           CMP30       5639     A     
 COMPASS   +        SX1    4200B       WRITE FILL TABLE                                    CMP30       5640     A     
 COMPASS            AX7    39-12                                                           CMP30       5641     A     
 COMPASS            EQ     DLAST1                                                          CMP30       5642     A     
 COMPASS                                                                                   CMP30       5643     A     
 COMPASS   DLAST6   MX0    12          PREPARE TO GENERATE CONDITIONAL XFILL               CMP30       5644     A     
 COMPASS            BX7    X0*X1                                                           CMP30       5645     A     
 COMPASS            SB2    60-48                                                           CMP30       5646     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1034    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX2    9                                                               CMP30       5647     A     
 COMPASS            LX2    -3                                                              CMP30       5648     A     
 COMPASS            SB3    9                                                               CMP30       5649     A     
 COMPASS            MX3    -42                                                             CMP30       5650     A     
 COMPASS            EQ     DLAST8                                                          CMP30       5651     A     
 COMPASS   DLAST7   MX0    3           PREPARE TO GENERATE UNCONDITIONAL XFILL             CMP30       5652     A     
 COMPASS            SX7    B0                                                              CMP30       5653     A     
 COMPASS            SB2    60-39                                                           CMP30       5654     A     
 COMPASS            MX2    18                                                              CMP30       5655     A     
 COMPASS            LX2    -3                                                              CMP30       5656     A     
 COMPASS            SB3    18                                                              CMP30       5657     A     
 COMPASS            MX3    -33                                                             CMP30       5658     A     
 COMPASS   DLAST8   BX4    X0*X1       GENERATE XFILL TABLE                                CMP30       5659     A     
 COMPASS            BX5    X2*X1                                                           CMP30       5660     A     
 COMPASS            BX6    -X3*X1                                                          CMP30       5661     A     
 COMPASS            IX4    X4-X7                                                           CMP30       5662     A     
 COMPASS            LX5    X5,B2                                                           CMP30       5663     A     
 COMPASS            LX6    X6,B3                                                           CMP30       5664     A     
 COMPASS            NZ     X4,DLAST9   IF NOT SAME CONDITION                               CMP30       5665     A     
 COMPASS            BX6    X6+X5                                                           CMP30       5666     A     
 COMPASS            SA6    A6+B1       STORE XFILL WORD                                    CMP30       5667     A     
 COMPASS            SB6    B6+B1                                                           CMP30       5668          I
          -CPSA106
 COMPASS            SB6    B6+B1       INCREMENT INDEX INTO COMTAB                         CPSA106        5     A     
 COMPASS            SX1    A6-B5       PRESENT WORD COUNT OF 4100 TABLE                    CPSA106        6     A     
 COMPASS            SX1    X1-7777B    CHECK IF WORD COUNT AT MAXIMUM                      CPSA106        7     A     
 COMPASS            PL     X1,DLAST9   IF WORD COUNT AT MAX, DUMP THIS TABLE               CPSA106        8     A     
 COMPASS            SA1    A1+B1       GET NEXT WORD OF COMTAB                             CMP30       5669     A     
 COMPASS            LT     B6,B7,DLAST8  IF NOT END OF TABLE                               CMP30       5670     A     
 COMPASS   DLAST9   BX7    X2*X7                                                           CMP30       5671     A     
 COMPASS            SX1    4100B       WRITE XFILL TABLE                                   CMP30       5672     A     
 COMPASS            AX7    48-12                                                           CMP30       5673     A     
 COMPASS            EQ     DLAST1                                                          CMP30       5674     A     
 COMPASS                                                                                   COMPASS    17962     A     
 COMPASS  *         DUMP OUT EXTERNAL REFERENCES.                                          COMPASS    17963     A     
 COMPASS                                                                                   COMPASS    17964     A     
 COMPASS   DLAST10  SA1    O.LNKTAB                                                        COMPASS    17965     A     
 COMPASS            SA2    L.LNKTAB                                                        COMPASS    17966     A     
 COMPASS            SA3    L.EXTAB                                                         COMPASS    17967     A     
 COMPASS            ZR     X2,DLAST20                                                      COMPASS    17968          I
          -CMP30  
 COMPASS            MX0    30                                                              COMPASS    17969          I
          -CMP30  
 COMPASS            IX3    X2-X3                                                           COMPASS    17970          I
          -CMP30  
 COMPASS            ZR     X3,DLAST20  EXIT IF TABLE RESET BY SEGMENT                      COMPASS    17971          I
          -CMP30  
 COMPASS            ZR     X2,DLAST20  IF TABLE IS EMPTY                                   CMP30       5675     A     
 COMPASS            MX0    30+9                                                            CMP30       5676     A     
 COMPASS            SX6    X3+B1                                                           CMP30       5677     A     
 COMPASS            IX1    X1+X6       SKIP FIRST (L.EXTAB)+1 WORDS                        CMP30       5678     A     
 COMPASS            LX0    9                                                               CMP30       5679     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1035    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX2    X2-X6                                                           CMP30       5680     A     
 COMPASS            SA6    DLASTT                                                          CMP30       5681     A     
 COMPASS            RJ     DSORT       SORT EXTERNAL REFERENCE TABLE                       COMPASS    17972     A     
 COMPASS            SA2    O.LNKTAB                                                        COMPASS    17973          I
          -CMP30  
 COMPASS            SA1    L.LNKTAB                                                        COMPASS    17974          I
          -CMP30  
 COMPASS            SA3    O.EXTAB                                                         COMPASS    17975          I
          -CMP30  
 COMPASS            SA4    L.EXTAB                                                         COMPASS    17976          I
          -CMP30  
 COMPASS            SA0    X3-1                                                            COMPASS    17977          I
          -CMP30  
 COMPASS            IX0    X2+X4                                                           COMPASS    17978          I
          -CMP30  
 COMPASS            IX1    X1-X4                                                           COMPASS    17979          I
          -CMP30  
 COMPASS            SB7    X1                                                              COMPASS    17980          I
          -CMP30  
 COMPASS            SA5    X0                                                              COMPASS    17981          I
          -CMP30  
 COMPASS            SA4    X2-1                                                            COMPASS    17982          I
          -CMP30  
 COMPASS            BX6    X4                                                              COMPASS    17983          I
          -CMP30  
 COMPASS            SB4    A4                                                              COMPASS    17984          I
          -CMP30  
 COMPASS            SB6    30                                                              COMPASS    17985          I
          -CMP30  
 COMPASS            SA6    A4                                                              COMPASS    17986          I
          -CMP30  
 COMPASS            MX1    30                                                              COMPASS    17987          I
          -CMP30  
 COMPASS            SB5    B0                                                              COMPASS    17988          I
          -CMP30  
 COMPASS            SB2    -B1                                                             COMPASS    17989          I
          -CMP30  
 COMPASS            MX3    12                                                              COMPASS    17990          I
          -CMP30  
 COMPASS   DLAST11  AX2    X5,B6       ISOLATE EXT NO                                      COMPASS    17991          I
          -CMP30  
 COMPASS            SB3    X2                                                              COMPASS    17992          I
          -CMP30  
 COMPASS            SB2    B2+B1                                                           COMPASS    17993          I
          -CMP30  
 COMPASS            BX7    -X1*X5                                                          COMPASS    17994          I
          -CMP30  
 COMPASS            EQ     B3,B5,DLAST13 IF SAME AS OLD                                    COMPASS    17995          I
          -CMP30  
 COMPASS            SA2    B3+A0       FETCH EXT NAME                                      COMPASS    17996          I
          -CMP30  
 COMPASS            SB5    B3                                                              COMPASS    17997          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1036    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            LX6    30                                                              COMPASS    17998          I
          -CMP30  
 COMPASS            ZR     B2,*+1                                                          COMPASS    17999          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    18000          I
          -CMP30  
 COMPASS   +        BX6    X3*X2                                                           COMPASS    18001          I
          -CMP30  
 COMPASS            LX2    6                                                               COMPASS    18002          I
          -CMP30  
 COMPASS            ZR     X6,*                                                            COMPASS    18003          I
          -CMP30  
 COMPASS            BX6    X2                                                              COMPASS    18004          I
          -CMP30  
 COMPASS            SB2    B0                                                              COMPASS    18005          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    18006          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    18007          I
          -CMP30  
 COMPASS   DLAST13  SB7    B7-B1                                                           COMPASS    18008          I
          -CMP30  
 COMPASS            LX4    X6,B6                                                           COMPASS    18009          I
          -CMP30  
 COMPASS            BX6    X7+X4                                                           COMPASS    18010          I
          -CMP30  
 COMPASS            SA5    A5+B1                                                           COMPASS    18011          I
          -CMP30  
 COMPASS            ZR     B2,DLAST14                                                      COMPASS    18012          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    18013          I
          -CMP30  
 COMPASS            SB2    -B1                                                             COMPASS    18014          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    18015          I
          -CMP30  
 COMPASS   DLAST14  NZ     B7,DLAST11                                                      COMPASS    18016          I
          -CMP30  
 COMPASS            SX7    44B                                                             COMPASS    18017          I
          -CMP30  
 COMPASS   +        LX6    30                                                              COMPASS    18018          I
          -CMP30  
 COMPASS            NG     B2,*+1                                                          COMPASS    18019          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    18020          I
          -CMP30  
 COMPASS            LX7    54                                                              COMPASS    18021          I
          -CMP30  
 COMPASS            SX6    A6-B4       RESULTANT SIZE OF EXTAB                             COMPASS    18022          I
          -CMP30  
 COMPASS            BX5    X6                                                              COMPASS    18023          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1037    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            LX5    36                                                              COMPASS    18024          I
          -CMP30  
 COMPASS            SA6    A1          STORE NEW SIZE                                      COMPASS    18025          I
          -CMP30  
 COMPASS            BX6    X5+X7                                                           COMPASS    18026          I
          -CMP30  
 COMPASS            SA6    DLASTT                                                          COMPASS    18027          I
          -CMP30  
 COMPASS            WRITEW B,A6,1                                                          COMPASS    18028          I
          -CMP30  
 COMPASS            SA2    O.LNKTAB                                                        COMPASS    18029          I
          -CMP30  
 COMPASS            SA3    L.LNKTAB                                                        COMPASS    18030          I
          -CMP30  
 COMPASS            SA4    L.EXTAB                                                         COMPASS    18031          I
          -CMP30  
 COMPASS            BX6    X4                                                              COMPASS    18032          I
          -CMP30  
 COMPASS            SA6    A3                                                              COMPASS    18033          I
          -CMP30  
 COMPASS            WRITEW B,X2,X3                                                         COMPASS    18034          I
          -CMP30  
 COMPASS   +        SA1    O.LNKTAB                                                        COMPASS    18035          I
          -CMP30  
 COMPASS            SA2    L.EXTAB                                                         COMPASS    18036          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    18037          I
          -CMP30  
 COMPASS            SA6    X1                                                              COMPASS    18038          I
          -CMP30  
 COMPASS            MX0    59                                                              COMPASS    18039          I
          -CMP30  
 COMPASS            IX4    X2+X0                                                           COMPASS    18040          I
          -CMP30  
 COMPASS            ZR     X4,DLAST20                                                      COMPASS    18041          I
          -CMP30  
 COMPASS   +        IX4    X4+X0                                                           COMPASS    18042          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    18043          I
          -CMP30  
 COMPASS            NZ     X4,*                                                            COMPASS    18044          I
          -CMP30  
 COMPASS   DLAST20  BSS    0                                                               COMPASS    18045          I
          -CMP30  
 COMPASS            EQ     DLAST12                                                         CMP30       5682     A     
 COMPASS                                                                                   CMP30       5683     A     
 COMPASS   DLAST11  LX1    12          TABLE TYPE (4400B OR 4500B)                         CMP30       5684     A     
 COMPASS            SX5    A6-B5       WORD COUNT                                          CMP30       5685     A     
 COMPASS            BX3    X1+X5                                                           CMP30       5686     A     
 COMPASS            LX3    36                                                              CMP30       5687     A     
 COMPASS            BX6    X3+X7       HEADER WORD                                         CMP30       5688     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1038    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SX7    B6          LNKTAB INDEX                                        CMP30       5689     A     
 COMPASS            SA6    B5                                                              CMP30       5690     A     
 COMPASS            SA7    DLASTT                                                          CMP30       5691     A     
 COMPASS                                                                                   CMP30       5692     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5693     A     
 COMPASS            WRITEW B,B5,X5+B1  WRITE LINK/XLINK TABLE                              CMP30       5694     A     
 COMPASS   RM       ELSE                                                                   CMP30       5695     A     
 COMPASS            SX1    B5                                                              CMP30       5696     A     
 COMPASS            SX3    X5+B1                                                           CMP30       5697     A     
 COMPASS            IX4    X3+X3                                                           CMP30       5698     A     
 COMPASS            LX3    3                                                               CMP30       5699     A     
 COMPASS            IX4    X3+X4                                                           CMP30       5700     A     
 COMPASS            SA2    B-1                                                             CMP30       5701     A     
 COMPASS            NZ     X2,DLA2     IF NOT TYPE W RECORDS                               CMP30       5702     A     
 COMPASS            PUT    B,X1,X4                                                         CMP30       5703     A     
 COMPASS            EQ     DLAST12                                                         CMP30       5704     A     
 COMPASS   DLA2     PUTP   B,X1,X4                                                         CMP30       5705     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5706     A     
 COMPASS                                                                                   CMP30       5707     A     
 COMPASS   DLAST12  SA1    O.LNKTAB                                                        CMP30       5708     A     
 COMPASS            SA2    L.LNKTAB                                                        CMP30       5709     A     
 COMPASS            SA3    DLASTT                                                          CMP30       5710     A     
 COMPASS            SA4    X1                                                              CMP30       5711     A     
 COMPASS            SB5    X1                                                              CMP30       5712     A     
 COMPASS            SB7    X2                                                              CMP30       5713     A     
 COMPASS            SB6    X3                                                              CMP30       5714     A     
 COMPASS            SA5    O.EXTAB                                                         CMP30       5715     A     
 COMPASS            GE     B6,B7,DLAST20  IF END OF TABLE                                  CMP30       5716     A     
 COMPASS            BX6    X4                                                              CMP30       5717     A     
 COMPASS            SA1    X1+B6                                                           CMP30       5718     A     
 COMPASS            SB4    X5-1                                                            CMP30       5719     A     
 COMPASS            MX5    3                                                               CMP30       5720     A     
 COMPASS            SA6    A4                                                              CMP30       5721     A     
 COMPASS            SB2    30                                                              CMP30       5722     A     
 COMPASS            BX7    X5*X1                                                           CMP30       5723     A     
 COMPASS            AX5    9                                                               CMP30       5724     A     
 COMPASS            NZ     X7,DLAST16  IF CONDITIONAL XLINK                                CMP30       5725     A     
 COMPASS            BX7    X5*X1                                                           CMP30       5726     A     
 COMPASS            AX5    9                                                               CMP30       5727     A     
 COMPASS            NZ     X7,DLAST17  IF UNCONDITIONAL XLINK                              CMP30       5728     A     
 COMPASS            MX0    30                                                              CMP30       5729     A     
 COMPASS            BX7    X5*X1                                                           CMP30       5730     A     
 COMPASS            MX5    -9          LINK (CONDITIONAL OR NOT)                           CMP30       5731     A     
 COMPASS            SB3    30                                                              CMP30       5732     A     
 COMPASS            LX5    30                                                              CMP30       5733     A     
 COMPASS                                                                                   CMP30       5734     A     
 COMPASS   DLAST13  BX2    -X5*X1      EXTRACT EXTERNAL ORDINAL                            CMP30       5735     A     
 COMPASS            LX3    X2,B2                                                           CMP30       5736     A     
 COMPASS            SA4    X3+B4       GET NAME                                            CMP30       5737     A     
 COMPASS            BX6    X4                                                              CMP30       5738     A     
 COMPASS            SB3    B2                                                              CMP30       5739     A     
 COMPASS            SA6    A6+B1       STORE NAME                                          CMP30       5740     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1039    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX2    X0*X1                                                           CMP30       5741     A     
 COMPASS            SX6    B0                                                              CMP30       5742     A     
 COMPASS   DLAST14  BX3    -X0*X1      EXTRACT DATA BYTE                                   CMP30       5743     A     
 COMPASS            LX4    X3,B3                                                           CMP30       5744     A     
 COMPASS            SB3    B2-B3                                                           CMP30       5745     A     
 COMPASS            IX6    X6+X4                                                           CMP30       5746     A     
 COMPASS   +        ZR     B3,*+1      IF LINK WORD NOT FULL                               CMP30       5747     A     
 COMPASS            SA6    A6+B1                                                           CMP30       5748     A     
 COMPASS            BX6    X6-X6                                                           CMP30       5749     A     
 COMPASS   +        SA1    A1+B1       GET NEXT WORD OF LNKTAB                             CMP30       5750     A     
 COMPASS            SB6    B6+B1                                                           CMP30       5751     A     
 COMPASS            BX3    X0*X1                                                           CMP30       5752     A     
 COMPASS            IX4    X3-X2                                                           CMP30       5753     A     
 COMPASS            GE     B6,B7,DLAST15  IF END OF TABLE                                  CMP30       5754     A     
 COMPASS            ZR     X4,DLAST14  IF SAME EXTERNAL AND SAME CONDITION                 CMP30       5755     A     
 COMPASS   +        NZ     B3,*+1      IF LINK WORD IS FULL                                CMP30       5756     A     
 COMPASS            SB3    B2                                                              CMP30       5757     A     
 COMPASS            SA6    A6+B1       STORE WORD PADDED WITH ZEROS                        CMP30       5758     A     
 COMPASS   +        BX3    X5*X3                                                           CMP30       5759     A     
 COMPASS            IX4    X3-X7                                                           CMP30       5760     A     
 COMPASS            ZR     X4,DLAST13  IF SAME CONDITION                                   CMP30       5761     A     
 COMPASS   DLAST15  AX7    39-12                                                           CMP30       5762     A     
 COMPASS            NZ     B3,*+1      IF LAST LINK WORD IS FULL                           CMP30       5763     A     
 COMPASS            SA6    A6+B1                                                           CMP30       5764     A     
 COMPASS   +        SX1    4400B       WRITE LINK TABLE                                    CMP30       5765     A     
 COMPASS            EQ     DLAST11                                                         CMP30       5766     A     
 COMPASS                                                                                   CMP30       5767     A     
 COMPASS   DLAST16  MX0    12+9        PREPARE TO GENERATE CONDITIONAL XLINK               CMP30       5768     A     
 COMPASS            LX0    9                                                               CMP30       5769     A     
 COMPASS            SB2    60-48                                                           CMP30       5770     A     
 COMPASS            MX2    9                                                               CMP30       5771     A     
 COMPASS            LX2    -3                                                              CMP30       5772     A     
 COMPASS            SB3    9                                                               CMP30       5773     A     
 COMPASS            MX3    -42+9                                                           CMP30       5774     A     
 COMPASS            LX3    9                                                               CMP30       5775     A     
 COMPASS            MX5    -9                                                              CMP30       5776     A     
 COMPASS            BX5    -X5*X1                                                          CMP30       5777     A     
 COMPASS            EQ     DLAST18                                                         CMP30       5778     A     
 COMPASS   DLAST17  MX0    9           PREPARE TO GENERATE UNCONDITIONAL XLINK             CMP30       5779     A     
 COMPASS            LX0    -3                                                              CMP30       5780     A     
 COMPASS            SB2    60-39                                                           CMP30       5781     A     
 COMPASS            MX2    9                                                               CMP30       5782     A     
 COMPASS            LX2    47-59                                                           CMP30       5783     A     
 COMPASS            SB3    18                                                              CMP30       5784     A     
 COMPASS            MX3    -33                                                             CMP30       5785     A     
 COMPASS            BX5    X0*X1                                                           CMP30       5786     A     
 COMPASS            AX5    48                                                              CMP30       5787     A     
 COMPASS   DLAST18  SA4    X5+B4       GET EXTERNAL NAME                                   CMP30       5788     A     
 COMPASS            LX6    X4                                                              CMP30       5789     A     
 COMPASS            BX7    X0*X1                                                           CMP30       5790     A     
 COMPASS            SA6    A6+B1       GENERATE XLINK TABLE                                CMP30       5791     A     
 COMPASS   DLAST18A BX4    X0*X1                                                           CMP30       5792     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1040    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX5    X2*X1                                                           CMP30       5793     A     
 COMPASS            BX6    -X3*X1                                                          CMP30       5794     A     
 COMPASS            IX4    X4-X7                                                           CMP30       5795     A     
 COMPASS            LX5    X5,B2                                                           CMP30       5796     A     
 COMPASS            LX6    X6,B3                                                           CMP30       5797     A     
 COMPASS            NZ     X4,DLAST19  IF NOT SAME EXTERNAL AND SAME CONDITION             CMP30       5798     A     
 COMPASS            BX6    X6+X5                                                           CMP30       5799     A     
 COMPASS            SA6    A6+B1       STORE XLINK WORD                                    CMP30       5800     A     
 COMPASS            SB6    B6+B1                                                           CMP30       5801     A     
 COMPASS            SA1    A1+B1       GET NEXT WORD OF LNKTAB                             CMP30       5802     A     
 COMPASS            LT     B6,B7,DLAST18A  IF NOT END OF TABLE                             CMP30       5803     A     
 COMPASS   DLAST19  BX7    X2*X7                                                           CMP30       5804     A     
 COMPASS            SX1    4500B       WRITE XLINK TABLE                                   CMP30       5805     A     
 COMPASS            AX7    48-12                                                           CMP30       5806     A     
 COMPASS            EQ     DLAST11                                                         CMP30       5807     A     
 COMPASS                                                                                   COMPASS    18046     A     
 COMPASS   DLAST30  EQ     DLAST       RETURN                                              COMPASS    18047          I
          -CMP30  
 COMPASS   DLAST20  RJ     ASU         ACCUMULATE STORAGE USED                             CMP30       5808     A     
 COMPASS            SX6    B0                                                              CMP30       5809     A     
 COMPASS            SA6    L.COMTAB    CLEAR TABLES                                        CMP30       5810     A     
 COMPASS            SA6    L.LNKTAB                                                        CMP30       5811     A     
 COMPASS            EQ     DLAST       RETURN                                              CMP30       5812     A     
 COMPASS                                                                                   COMPASS    18048     A     
 COMPASS   DLASTT   DATA   0           TEMPORARY STORAGE                                   COMPASS    18049     A     
 COMPASS   DLT      SPACE  4                                                               COMPASS    18050     A     
 COMPASS  **        DLT - DUMP OUT LITERAL TABLE.                                          COMPASS    18051     A     
 COMPASS                                                                                   COMPASS    18052     A     
 COMPASS                                                                                   COMPASS    18053     A     
 COMPASS   DLT      PS                 RETURN EXIT                                         COMPASS    18054     A     
 COMPASS            SA1    B                                                               CMP30       5813     A     
 COMPASS            MX6    0                                                               COMPASS    18055     A     
 COMPASS            ZR     X1,DLT      IF NO BINARY FILE                                   CMP30       5814     A     
 COMPASS            SA6    DLTA                                                            COMPASS    18056     A     
 COMPASS            SA1    O.USETAB                                                        COMPASS    18057     A     
 COMPASS            SA2    UI                                                              COMPASS    18058     A     
 COMPASS            IX1    X1+X2                                                           COMPASS    18059     A     
 COMPASS            SA1    X1+14       FETCH ORIGIN OF LITERAL TABLE                       COMPASS    18060          I
          -CMP30  
 COMPASS            SA3    A1+3        FETCH LWA OF LITERALS                               COMPASS    18061          I
          -CMP30  
 COMPASS            SX6    X1                                                              COMPASS    18062          I
          -CMP30  
 COMPASS            IX2    X3-X6                                                           COMPASS    18063          I
          -CMP30  
 COMPASS            SA1    X1+2*4+2                                                        CMP30       5815     A     
 COMPASS            MX0    -9                                                              CMP30       5816          I
          -CPS012 
 COMPASS            SX6    X1          ORIGIN OF LITERALS BLOCK                            CMP30       5817          I
          -CPS012 
 COMPASS            MX0    -21                                                             CPS012        15     A     
 COMPASS            BX6    -X0*X1      ORIGIN OF LITERALS BLOCK                            CPS012        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/28. 19.11.32.      PAGE1041    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            MX0    -9                                                              CPS012        17     A     
 COMPASS            AX1    24                                                              CMP30       5818     A     
 COMPASS            BX7    -X0*X1      RELOCATION                                          CMP30       5819     A     
 COMPASS            AX1    9                                                               CMP30       5820     A     
 COMPASS            IX2    X1-X6                                                           CMP30       5821          I
          -CPS012 
 COMPASS            ZR     X2,DLT      IF NO LITERALS                                      COMPASS    18064          I
          -CPS012 
 COMPASS            IX2    X6-X1                                                           CPS012        18     A     
 COMPASS            PL     X2,DLT      IF NO LITERALS                                      CPS012        19     A     
 COMPASS            SA2    ORGBASE                                                         CPS012        20     A     
 COMPASS            SA3    LPGM                                                            CPS012        21     A     
 COMPASS            IX0    X6-X2                                                           CPS012        22     A     
 COMPASS            IX5    X3-X1                                                           CPS012        23     A     
 COMPASS            BX2    X0+X5                                                           CPS012        24     A     
 COMPASS            MI     X2,DLT      IF LITERALS NOT IN THIS SEGMENT                     CPS012        25     A     
 COMPASS            SA4    ABSFG                                                           CPS012        26     A     
 COMPASS            SA5    MACHINE                                                         CPS012        27     A     
 COMPASS            ZR     X4,DLT0     IF RELOCATABLE                                      CPS012        28     A     
 COMPASS            ZR     X5,DLT2     IF ABSOLUTE CPU ASSEMBLY                            CPS012        29     A     
 COMPASS   DLT0     SA2    ORGCTR                                                          CPS012        30     A     
 COMPASS            SA3    A2+B1                                                           CPS012        31     A     
 COMPASS            AX1    24                                                              COMPASS    18065          I
          -CMP30  
 COMPASS            BX7    X1                                                              COMPASS    18066          I
          -CMP30  
 COMPASS            SA6    ORGCTR      SET ORIGIN COUNTER                                  COMPASS    18067          I
          -CPS012 
 COMPASS            SA4    MINORG                                                          CPS012        32     A     
 COMPASS            SA5    MAXORG                                                          CPS012        33     A     
 COMPASS            SA6    A2          SET ORGCTR = FWA OF LITERALS                        CPS012        34     A     
 COMPASS            SA7    A3          RELOCATION                                          CPS012        35     A     
 COMPASS            SA6    A4          MINORG                                              CPS012        36     A     
 COMPASS            BX7    X1          LWA+1 OF LITERALS                                   CPS012        37     A     
 COMPASS            SA7    A5          MAXORG                                              CPS012        38     A     
 COMPASS            BX6    X2                                                              CPS012        39     A     
 COMPASS            LX7    X3                                                              CPS012        40     A     
 COMPASS            SA6    DLTB        SAVE ORGCTR                                         CPS012        41     A     
 COMPASS            SA7    A6+B1       RELOCATION                                          CPS012        42     A     
 COMPASS            BX6    X4          MINORG                                              CPS012        43     A     
 COMPASS            LX7    X5          MAXORG                                              CPS012        44     A     
 COMPASS            SA6    A7+B1                                                           CPS012        45     A     
 COMPASS            SA7    A6+B1                                                           COMPASS    18068     A     
 COMPASS            SA6    MINORG                                                          COMPASS    18069          I
          -CPS012 
 COMPASS            SX6    X3                                                              COMPASS    18070          I
          -CMP30  
 COMPASS            SX6    X1          LWA+1                                               CMP30       5822          I
          -CPS012 
 COMPASS            SA6    MAXORG                                                          COMPASS    18071          I
          -CPS012 
 COMPASS            RJ     RESORG      INITIALIZE FOR BINARY OUTPUT                        COMPASS    18072     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1042    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DLT1     MX6    0                                                               COMPASS    18073     A     
 COMPASS            SA6    POSCTR                                                          COMPASS    18074     A     
 COMPASS            SA1    DLTA                                                            COMPASS    18075     A     
 COMPASS            SA2    O.LITAB                                                         COMPASS    18076     A     
 COMPASS            SA3    LI                                                              COMPASS    18077     A     
 COMPASS            IX2    X2+X3                                                           COMPASS    18078     A     
 COMPASS            IX3    X1+X2                                                           COMPASS    18079     A     
 COMPASS            SA1    X3                                                              COMPASS    18080     A     
 COMPASS            SA2    LWORD                                                           COMPASS    18081     A     
 COMPASS            MX3    0                                                               COMPASS    18082     A     
 COMPASS            BX4    X6                                                              COMPASS    18083     A     
 COMPASS            RJ     BINOUT                                                          COMPASS    18084     A     
 COMPASS            RJ     ZFOUP                                                           COMPASS    18085     A     
 COMPASS            SA1    DLTA        ADVANCE INDEX                                       COMPASS    18086     A     
 COMPASS            SX6    X1+B1                                                           COMPASS    18087     A     
 COMPASS            SA6    A1                                                              COMPASS    18088     A     
 COMPASS            SA1    ORGCTR                                                          COMPASS    18089     A     
 COMPASS            SA2    MAXORG                                                          COMPASS    18090     A     
 COMPASS            IX4    X2-X1                                                           COMPASS    18091          I
          -CPS012 
 COMPASS            NZ     X4,DLT1     LOOP                                                COMPASS    18092          I
          -CPS012 
 COMPASS   DLT2     MX6    0           INITIALIZE FOR GENERAL PROCESSING                   COMPASS    18093          I
          -CPS012 
 COMPASS            IX4    X1-X2                                                           CPS012        46     A     
 COMPASS            MI     X4,DLT1     LOOP                                                CPS012        47     A     
 COMPASS            MX6    0           INITIALIZE FOR GENERAL PROCESSING                   CPS012        48     A     
 COMPASS            SA6    RERR                                                            COMPASS    18094     A     
 COMPASS            SA1    DLTB                                                            CPS012        49     A     
 COMPASS            SA2    A1+B1                                                           CPS012        50     A     
 COMPASS            SA3    A2+B1                                                           CPS012        51     A     
 COMPASS            SA4    A3+B1                                                           CPS012        52     A     
 COMPASS            BX6    X1                                                              CPS012        53     A     
 COMPASS            LX7    X2                                                              CPS012        54     A     
 COMPASS            SA6    ORGCTR      RESTORE ORGCTR                                      CPS012        55     A     
 COMPASS            SA7    A6+B1       RELOCATION                                          CPS012        56     A     
 COMPASS            BX6    X3          MINORG                                              CPS012        57     A     
 COMPASS            LX7    X4          MAXORG                                              CPS012        58     A     
 COMPASS            SA6    MINORG                                                          CPS012        59     A     
 COMPASS            SA7    MAXORG                                                          CPS012        60     A     
 COMPASS            EQ     DLT         RETURN                                              COMPASS    18095     A     
 COMPASS                                                                                   CPS012        61     A     
 COMPASS   DLT2     SA3    O.MEMORY    ABSOLUTE CPU ASSEMBLY                               CPS012        62     A     
 COMPASS            SA2    O.LITAB                                                         CPS012        63     A     
 COMPASS            SA4    LI                                                              CPS012        64     A     
 COMPASS            SA5    A4+B1                                                           CPS012        65     A     
 COMPASS            IX3    X3+X0       MOVE LITERALS TO MEMORY IMAGE                       CPS012        66     A     
 COMPASS            IX2    X2+X4                                                           CPS012        67     A     
 COMPASS            IX1    X5-X4                                                           CPS012        68     A     
 COMPASS            RJ     MOVE                                                            CPS012        69     A     
 COMPASS            JP     DLT         RETURN                                              CPS012        70     A     
 COMPASS                                                                                   COMPASS    18096     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1043    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DLTA     CON    0                                                               COMPASS    18097     A     
 COMPASS   DLTB     BSS    4                                                               CPS012        71     A     
 COMPASS   DSORT    SPACE  4                                                               COMPASS    18098     A     
 COMPASS  **        DSORT - MASKED SORT.                                                   COMPASS    18099     A     
 COMPASS  *         DSORT PERFORMS A SINGLE WORD INTERCHANGE SORT.                         COMPASS    18100     A     
 COMPASS  *         WORD COUNT MAY BE 0, BUT NOT NEGATIVE.                                 COMPASS    18101     A     
 COMPASS  *         MASK DICTATES AMOUNT OF BITS TO LOOK AT FOR TESTING.                   COMPASS    18102     A     
 COMPASS  *         ENTRY  (X0) = SORT MASK.                                               COMPASS    18103     A     
 COMPASS  *                (X1) = ORIGIN.                                                  COMPASS    18104     A     
 COMPASS  *                (X2) = WORD COUNT.                                              COMPASS    18105     A     
 COMPASS                                                                                   COMPASS    18106     A     
 COMPASS                                                                                   COMPASS    18107     A     
 COMPASS   DSORT    PS                 RETURN EXIT                                         COMPASS    18108     A     
 COMPASS            SB6    X2                                                              COMPASS    18109     A     
 COMPASS            LE     B6,B1,DSORT AVOID 0 OR 1 WORD SORTS                             COMPASS    18110     A     
 COMPASS   DSORT1   SA2    X1                                                              COMPASS    18111     A     
 COMPASS            BX6    X2                                                              COMPASS    18112     A     
 COMPASS            SB7    B6-B1                                                           COMPASS    18113     A     
 COMPASS            MX4    1                                                               COMPASS    18114     A     
 COMPASS   DSORT2   PL     X4,*+1                                                          COMPASS    18115     A     
 COMPASS            SB2    A2                                                              COMPASS    18116     A     
 COMPASS            BX7    X0*X2                                                           COMPASS    18117     A     
 COMPASS            SA2    A2+B1                                                           COMPASS    18118     A     
 COMPASS            SB7    B7-B1                                                           COMPASS    18119     A     
 COMPASS            BX3    X0*X2                                                           COMPASS    18120     A     
 COMPASS            IX4    X3-X7                                                           COMPASS    18121     A     
 COMPASS            PL     B7,DSORT2                                                       COMPASS    18122     A     
 COMPASS            SA5    B2                                                              COMPASS    18123     A     
 COMPASS            BX7    X5                                                              COMPASS    18124     A     
 COMPASS            SB6    B6-B1                                                           COMPASS    18125     A     
 COMPASS            SA6    B2                                                              COMPASS    18126     A     
 COMPASS            SA7    X1                                                              COMPASS    18127     A     
 COMPASS            SX1    X1+B1                                                           COMPASS    18128     A     
 COMPASS            NE     B6,B1,DSORT1                                                    COMPASS    18129     A     
 COMPASS            EQ     DSORT                                                           COMPASS    18130     A     
 COMPASS   DWORD    SPACE  4                                                               COMPASS    18131     A     
 COMPASS  **        DWORD - DUMP WORD.                                                     COMPASS    18132     A     
 COMPASS  *         THIS ROUTINE ACTS AS FOLLOWS:                                          COMPASS    18133     A     
 COMPASS  *                                                                                COMPASS    18134     A     
 COMPASS  *         RELOCATABLE ROUTINES...                                                COMPASS    18135     A     
 COMPASS  *                CREATES RELOCATION CONTROL IN BINREC, AND CALLS RESORG          COMPASS    18136     A     
 COMPASS  *                TO DUMP INFORMATION WHEN CARD IS FULL.                          COMPASS    18137     A     
 COMPASS  *                                                                                COMPASS    18138     A     
 COMPASS  *         CP ABSOLUTE ROUTINES...                                                COMPASS    18139     A     
 COMPASS  *                STORES WORD IN "MEMORY".                                        COMPASS    18140     A     
 COMPASS  *                                                                                COMPASS    18141     A     
 COMPASS  *         PP ROUTINES.                                                           COMPASS    18142     A     
 COMPASS  *                STORES 12-BIT BYTES INTO MEMORY.                                COMPASS    18143     A     
 COMPASS  *                STORES 16-BIT BYTES IF 180 PP ASSEMBLY.                         CPSA281      427     A     
 COMPASS  *                                                                                F4820        804     A     
 COMPASS  *         BC ROUTINES.                                                           F4820        805     A     
 COMPASS  *                STORES TWO 8-BIT BYTES IN MEMORY.                               F4820        806     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1044    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS  *                                                                                COMPASS    18144     A     
 COMPASS  *         BINWORD/BINREL ALWAYS CLEARED OUT.                                     COMPASS    18145     A     
 COMPASS  *         THIS ROUTINE MAKES ENTRIES INTO LNKTAB AND COMTAB.                     COMPASS    18146     A     
 COMPASS                                                                                   COMPASS    18147     A     
 COMPASS                                                                                   COMPASS    18148     A     
 COMPASS   DWORDX   MX6    0                                                               CMP30       5823     A     
 COMPASS            BX7    X7-X7                                                           CMP30       5824     A     
 COMPASS            SA6    BINWORD                                                         CMP30       5825     A     
 COMPASS            SA7    BINREL                                                          CMP30       5826     A     
 COMPASS            SA6    A7+B1                                                           CMP30       5827     A     
 COMPASS            SA7    A6+B1                                                           CMP30       5828     A     
 COMPASS                                                                                   CMP30       5829     A     
 COMPASS   DWORD    PS                 RETURN EXIT                                         COMPASS    18149     A     
 COMPASS            SA3    B                                                               CMP30       5830     A     
 COMPASS            SA1    MACHINE                                                         COMPASS    18150     A     
 COMPASS            SA2    ABSFG                                                           COMPASS    18151     A     
 COMPASS            ZR     X3,DWORDX   IF NO BINARY FILE                                   CMP30       5831     A     
 COMPASS            NZ     X1,DWORDP   IF PP CODING                                        COMPASS    18152     A     
 COMPASS            NZ     X2,DWORDC   IF CP ABSOLUTE                                      COMPASS    18153     A     
 COMPASS            SA1    BINREC      CHECK FOR A PARTIAL CARD                            COMPASS    18154     A     
 COMPASS            AX1    36                                                              COMPASS    18155     A     
 COMPASS   +        NZ     X1,*+1                                                          COMPASS    18156     A     
 COMPASS            RJ     RESORG      PRESET EMPTY CARD                                   COMPASS    18157     A     
 COMPASS            MX7    0                                                               COMPASS    18158          I
          -CMP30  
 COMPASS            SA7    BTEMP                                                           COMPASS    18159          I
          -CMP30  
 COMPASS   DWORD1   SA1    BTEMP       PROCESS RELOCATION                                  COMPASS    18160          I
          -CMP30  
 COMPASS            SB2    X1                                                              COMPASS    18161          I
          -CMP30  
 COMPASS            SA2    BINREL                                                          COMPASS    18162          I
          -CMP30  
 COMPASS            MX0    45                                                              COMPASS    18163          I
          -CMP30  
 COMPASS            BX1    -X0*X2                                                          COMPASS    18164          I
          -CMP30  
 COMPASS            AX2    15                                                              COMPASS    18165          I
          -CMP30  
 COMPASS            BX6    X2                                                              COMPASS    18166          I
          -CMP30  
 COMPASS            SB7    X1-40000B                                                       COMPASS    18167          I
          -CMP30  
 COMPASS            SA6    A2                                                              COMPASS    18168          I
          -CMP30  
 COMPASS            SA0    LNKTAB                                                          COMPASS    18169          I
          -CMP30  
 COMPASS            ZR     X1,DWORD2   IF FIELD IS ABSOLUTE                                COMPASS    18170          I
          -CMP30  
 COMPASS            PL     B7,DWORD3   IF FIELD IS EXTERNAL                                COMPASS    18171          I
          -CMP30  
 COMPASS            SB5    X1-2                                                            COMPASS    18172          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1045    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            GE     B5,B1,DWORD4 IF FIELD IS COMMON                                 COMPASS    18173          I
          -CMP30  
 COMPASS            SA4    BINREC      OR PROGRAM RELOCATION                               COMPASS    18174          I
          -CMP30  
 COMPASS   DBW1     SA1    BINREL      PROCESS RELOCATION                                  CMP30       5832     A     
 COMPASS            SX6    X1-1                                                            CMP30       5833     A     
 COMPASS            MI     X6,DBW20    IF NO MORE                                          CMP30       5834     A     
 COMPASS            SA6    A1                                                              CMP30       5835     A     
 COMPASS            LX6    -1                                                              CMP30       5836     A     
 COMPASS            SA1    BINREL+1+X6 FETCH BINREL WORD                                   CMP30       5837     A     
 COMPASS            MX0    -6                                                              CMP30       5838     A     
 COMPASS            MI     X6,DBW2     IF LOWER HALFWORD                                   CMP30       5839     A     
 COMPASS            LX1    30                                                              CMP30       5840     A     
 COMPASS   DBW2     BX6    -X0*X1      TEST FIELD WIDTH                                    CMP30       5841     A     
 COMPASS            LX1    -6                                                              CMP30       5842     A     
 COMPASS            SB7    X6-18                                                           CMP30       5843     A     
 COMPASS            NZ     B7,DBW10    IF NOT 18 BITS                                      CMP30       5844     A     
 COMPASS            SA2    =-10000100001B                                                  CMP30       5845     A     
 COMPASS            BX6    -X0*X1                                                          CMP30       5846     A     
 COMPASS            LX1    -24                                                             CMP30       5847     A     
 COMPASS            SB2    X6          TEST FOR STANDARD POSITIONS                         CMP30       5848     A     
 COMPASS            AX3    X2,B2                                                           CMP30       5849     A     
 COMPASS            CX6    X3          IF BIT POSITION IS 0, 15, OR 30                     CMP30       5850     A     
 COMPASS            LX3    -1          (B2) = 0, 1, OR 2 RESPECTIVELY                      CMP30       5851     A     
 COMPASS            SB2    X6-57                                                           CMP30       5852     A     
 COMPASS            MI     X3,DBW10    IF NONE OF THE ABOVE                                CMP30       5853     A     
 COMPASS            AX1    42                                                              CMP30       5854     A     
 COMPASS            MI     X1,DBW5     IF EXTERNAL                                         CMP30       5855     A     
 COMPASS            SB5    X1-3                                                            CMP30       5856     A     
 COMPASS            PL     B5,DBW5     IF COMMON                                           CMP30       5857     A     
 COMPASS            SA4    BINREC      PROGRAM RELOCATION (+ OR -)                         CMP30       5858     A     
 COMPASS            AX4    34                                                              COMPASS    18175     A     
 COMPASS            SB3    X4                                                              COMPASS    18176     A     
 COMPASS            SB4    56+B2                                                           COMPASS    18177     A     
 COMPASS            SX1    X1+B1                                                           COMPASS    18178     A     
 COMPASS            SB3    B4-B3                                                           COMPASS    18179     A     
 COMPASS            SA4    A4+B1                                                           COMPASS    18180     A     
 COMPASS            LX1    X1,B3                                                           COMPASS    18181     A     
 COMPASS            BX6    X4+X1                                                           COMPASS    18182     A     
 COMPASS            SA6    A4                                                              COMPASS    18183     A     
 COMPASS            EQ     DWORD2                                                          COMPASS    18184          I
          -CMP30  
 COMPASS   DWORD4   SB7    X1          COMON BLOCK ID NO                                   COMPASS    18185          I
          -CMP30  
 COMPASS            SA0    COMTAB                                                          COMPASS    18186          I
          -CMP30  
 COMPASS   DWORD3   SX6    B7          GET ID NUMBER                                       COMPASS    18187          I
          -CMP30  
 COMPASS            SA6    BTEMPA                                                          COMPASS    18188          I
          -CMP30  
 COMPASS            SB7    A0-LNKTAB   CHECK FOR INITIAL LINK ENTRY                        COMPASS    18189          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1046    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            NZ     B7,DWORD3A                                                      COMPASS    18190          I
          -CMP30  
 COMPASS            SA1    L.EXTAB                                                         COMPASS    18191          I
          -CMP30  
 COMPASS            SA2    L.LNKTAB                                                        COMPASS    18192          I
          -CMP30  
 COMPASS            NZ     X2,DWORD3A  IF NOT FIRST LINKAGE ENTRY                          COMPASS    18193          I
          -CMP30  
 COMPASS            MANAGE A0,X1                                                           COMPASS    18194          I
          -CMP30  
 COMPASS            SB7    X3-1                                                            COMPASS    18195          I
          -CMP30  
 COMPASS            MX6    0           CLEAR OUT LINK TABLE                                COMPASS    18196          I
          -CMP30  
 COMPASS            SA6    X2                                                              COMPASS    18197          I
          -CMP30  
 COMPASS            SA0    LNKTAB                                                          COMPASS    18198          I
          -CMP30  
 COMPASS            ZR     B7,DWORD3A                                                      COMPASS    18199          I
          -CMP30  
 COMPASS   +        SB7    B7-B1                                                           COMPASS    18200          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    18201          I
          -CMP30  
 COMPASS            NZ     B7,*                                                            COMPASS    18202          I
          -CMP30  
 COMPASS   DWORD3A  SA3    BTEMPA                                                          COMPASS    18203          I
          -CMP30  
 COMPASS            SA5    ORGCTR+1                                                        COMPASS    18204          I
          -CMP30  
 COMPASS            EQ     DBW1                                                            CMP30       5859     A     
 COMPASS   DBW5     SA2    ORGCTR                                                          CMP30       5860     A     
 COMPASS            MX0    -17                                                             CMP30       5861     A     
 COMPASS            BX6    X0*X2                                                           CMP30       5862     A     
 COMPASS            NZ     X6,DBW10    IF ORGCTR NOT LESS THAN 2**17                       CMP30       5863     A     
 COMPASS            SX6    B2                                                              CMP30       5864          I
          -CPS005 
 COMPASS            SA6    BTEMP                                                           CMP30       5865          I
          -CPS005 
 COMPASS            PL     X1,DBW7     IF COMMON                                           CMP30       5866          I
          -CPS005 
 COMPASS   DBW6     SA2    L.LNKTAB    PROCESS EXTERNAL LINKAGE                            CMP30       5867          I
          -CPS005 
 COMPASS            SA3    L.EXTAB                                                         CMP30       5868          I
          -CPS005 
 COMPASS            BX6    -X0*X1                                                          CMP30       5869     A     
 COMPASS            LX1    X6                                                              CMP30       5870          I
          -CPS005 
 COMPASS            EQ     DBW8                                                            CMP30       5871          I
          -CPS005 
 COMPASS   DBW7     SA2    L.COMTAB    PROCESS COMMON RELOCATION                           CMP30       5872          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1047    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS005 
 COMPASS            BX3    X3-X3                                                           CMP30       5873          I
          -CPS005 
 COMPASS            SX6    X1                                                              CMP30       5874          I
          -CPS005 
 COMPASS   DBW8     SA0    A2-SIZES                                                        CMP30       5875          I
          -CPS005 
 COMPASS            NZ     X2,DBW9     IF COMTAB/LNKTAB NON-EMPTY                          CMP30       5876          I
          -CPS005 
 COMPASS            SA6    A6+B1                                                           CMP30       5877          I
          -CPS005 
 COMPASS            MANAGE A0,X3+B1    MAKE INITIAL ALLOCATION                             CMP30       5878          I
          -CPS005 
 COMPASS            SA1    BTEMPA      RECLAIM COMMON/EXTERNAL ORDINAL                     CMP30       5879          I
          -CPS005 
 COMPASS   DBW9     SA5    ORGCTR+1                                                        CMP30       5880          I
          -CPS005 
 COMPASS            SA2    BTEMP                                                           CMP30       5881          I
          -CPS005 
 COMPASS            LX1    30                                                              CMP30       5882          I
          -CPS005 
 COMPASS            SA4    A5-B1                                                           CMP30       5883          I
          -CPS005 
 COMPASS            SX4    X1                                                     S005  18 CPS005        10     A     
 COMPASS            SA5    ORGCTR+1                                               S005  19 CPS005        11     A     
 COMPASS            LX6    30                                                     S005  20 CPS005        12     A     
 COMPASS            SA1    A5-B1                                                  S005  21 CPS005        13     A     
 COMPASS            SA3    CLF                                                             CMP30       5884     A     
 COMPASS   +        SB7    X5                                                              COMPASS    18205          I
          -CPS005 
 COMPASS            LE     B7,B1,*+1   CONVERT RELOCATION IF COMMON                        COMPASS    18206          I
          -CPS005 
 COMPASS            SB7    X5                                                     S005  23 CPS005        14     A     
 COMPASS            LE     B7,B1,DBW7  CONVERT RELOCATION IF COMMON               S005  24 CPS005        15     A     
 COMPASS            SX5    X5+B1                                                           COMPASS    18207     A     
 COMPASS            SA4    A5-B1                                                           COMPASS    18208          I
          -CMP30  
 COMPASS            LX3    30                                                              COMPASS    18209          I
          -CMP30  
 COMPASS            LX5    18                                                              COMPASS    18210          I
          -CPS005 
 COMPASS   DBW7     LX5    18                                                     S005  26 CPS005        16     A     
 COMPASS            BX6    X3+X5                                                           COMPASS    18211          I
          -CMP30  
 COMPASS            BX6    X1+X5                                                           CMP30       5885          I
          -CPS005 
 COMPASS            SX0    X2+4                                                            CMP30       5886          I
          -CPS005 
 COMPASS            IX7    X6+X4                                                           COMPASS    18212          I
          -CPS005 
 COMPASS            BX6    X6+X5                                                  S005  28 CPS005        17     A     
 COMPASS            SX0    B2+4                                                   S005  29 CPS005        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/28. 19.11.32.      PAGE1048    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX7    X6+X1                                                  S005  30 CPS005        19     A     
 COMPASS            SA4    A3-B1       GET POSITION                                        COMPASS    18213          I
          -CMP30  
 COMPASS            SX0    X4+4                                                            COMPASS    18214          I
          -CMP30  
 COMPASS            LX0    27                                                              COMPASS    18215     A     
 COMPASS            BX1    X7+X0                                                           COMPASS    18216          I
          -CPS005 
 COMPASS            BX6    X7+X0                                                  S005  32 CPS005        20     A     
 COMPASS            ADDWORD A0                                                             COMPASS    18217          I
          -CMP30  
 COMPASS   DWORD2   SA1    BTEMP                                                           COMPASS    18218          I
          -CMP30  
 COMPASS            SX6    X1+B1                                                           COMPASS    18219          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    18220          I
          -CMP30  
 COMPASS            AX6    2                                                               COMPASS    18221          I
          -CMP30  
 COMPASS            ZR     X6,DWORD1                                                       COMPASS    18222          I
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    18223          I
          -CMP30  
 COMPASS            SA1    BINREC      COUNTER                                             COMPASS    18224          I
          -CMP30  
 COMPASS   +        ZR     X3,DBW19    IF NOT CONDITIONAL                                  CMP30       5887          I
          -CPS005 
 COMPASS            LX5    39-18                                                           CMP30       5888     A     
 COMPASS            BX1    X1+X5                                                           CMP30       5889          I
          -CPS005 
 COMPASS            EQ     DBW19                                                           CMP30       5890          I
          -CPS005 
 COMPASS            NZ     X3,DBW12    IF CONDITIONAL                             S005  35 CPS005        21     A     
 COMPASS            MX5    0                                                      S005  36 CPS005        22     A     
 COMPASS            EQ     DBW12                                                  S005  37 CPS005        23     A     
 COMPASS                                                                                   CMP30       5891     A     
 COMPASS   DBW10    SA1    BINREL      EXTENDED TABLE ENTRY NEEDED                         CMP30       5892     A     
 COMPASS            SA2    ORGCTR                                                          CMP30       5893     A     
 COMPASS            SA3    A2+B1                                                           CMP30       5894     A     
 COMPASS            LX1    -1                                                              CMP30       5895     A     
 COMPASS            SA4    BINREL+1+X1 FETCH BINREL WORD                                   CMP30       5896     A     
 COMPASS            SB7    X3                                                              CMP30       5897     A     
 COMPASS            PL     X1,DBW11    IF UPPER HALFWORD                                   CMP30       5898     A     
 COMPASS            LX4    30                                                              CMP30       5899     A     
 COMPASS   DBW11    MX0    -12                                                             CMP30       5900     A     
 COMPASS            AX4    30                                                              CMP30       5901     A     
 COMPASS            SA1    CLF         CONDITIONAL LOADING FLAG                            CMP30       5902     A     
 COMPASS            BX6    -X0*X4                                                          CMP30       5903     A     
 COMPASS            AX4    12                                                              CMP30       5904     A     
 COMPASS            MX0    -17                                                             CMP30       5905     A     
 COMPASS            LX2    12                                                              CMP30       5906     A     
 COMPASS   +        BX6    X6+X2                                                           CMP30       5907     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1049    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            LE     B7,B1,*+1   CONVERT RELOCATION IF COMMON                        CMP30       5908     A     
 COMPASS            SX3    X3+B1                                                           CMP30       5909     A     
 COMPASS   +        LX3    39                                                              CMP30       5910     A     
 COMPASS            BX6    X6+X3                                                           CMP30       5911     A     
 COMPASS            BX5    -X0*X4                                                          CMP30       5912     A     
 COMPASS            LX5    48                                                              CMP30       5913     A     
 COMPASS            SX3    B0                                                              CMP30       5914     A     
 COMPASS            ZR     X1,DBW12    IF NOT CONDITIONAL                                  CMP30       5915     A     
 COMPASS            AX5    45                                                              CMP30       5916     A     
 COMPASS            SX1    B1                                                              CMP30       5917     A     
 COMPASS            LX6    9                                                               CMP30       5918     A     
 COMPASS            BX5    X5+X1                                                           CMP30       5919     A     
 COMPASS            LX5    -3                                                              CMP30       5920     A     
 COMPASS   DBW12    BX1    X6+X5       TABLE ENTRY                                         CMP30       5921     A     
 COMPASS            LX6    X1                                                              CMP30       5922     A     
 COMPASS            MI     X4,DBW16    IF EXTERNAL                                         CMP30       5923     A     
 COMPASS            SA2    L.COMTAB    PROCESS COMMON RELOCATION                           CMP30       5924     A     
 COMPASS            EQ     DBW18                                                           CMP30       5925     A     
 COMPASS   DBW16    SA2    L.LNKTAB    PROCESS EXTERNAL LINKAGE                            CMP30       5926     A     
 COMPASS            SA3    L.EXTAB                                                         CMP30       5927     A     
 COMPASS   DBW18    SA0    A2-SIZES                                                        CMP30       5928     A     
 COMPASS            NZ     X2,DBW19    IF COMTAB/LNKTAB NON-EMPTY                          CMP30       5929     A     
 COMPASS            SA6    BTEMPA                                                          CMP30       5930     A     
 COMPASS            MANAGE A0,X3+B1    MAKE INITIAL ALLOCATION                             CMP30       5931     A     
 COMPASS            SA1    BTEMPA                                                          CMP30       5932     A     
 COMPASS   DBW19    ADDWORD A0         ADD TABLE ENTRY                                     CMP30       5933     A     
 COMPASS            SA3    A0+SIZES    CHECK TABLE LENGTH                         S005  39 CPS005        24     A     
 COMPASS            SX4    A0-COMTAB                                              S005  40 CPS005        25          I
          -CPS005A
 COMPASS            SX5    X3-1                                                   S005  41 CPS005        26     A     
 COMPASS            NZ     X5,DBW1     IF TABLE NOT DUMPED, LOOP TO NEXT RELOC    S005  42 CPS005        27     A     
 COMPASS            SX4    A0-LNKTAB                                                       CPS005A        1     A     
 COMPASS            MX7    0                                                      S005  43 CPS005        28     A     
 COMPASS            SX3    B0                                                              CPS005A        2     A     
 COMPASS            BX4    -X4                                                             CPS005A        3     A     
 COMPASS            SA7    A3          CLEAR TABLE SIZE                           S005  44 CPS005        29     A     
 COMPASS            EQ     DBW12       AND TRY AGAIN                              S005  45 CPS005        30     A     
 COMPASS            EQ     DBW1        LOOP                                                CMP30       5934          I
          -CPS005A
 COMPASS                                                                                   CMP30       5935     A     
 COMPASS   DBW20    SA1    BINREC      COUNTER                                             CMP30       5936     A     
 COMPASS            SA2    BINWORD     DATA                                                COMPASS    18225     A     
 COMPASS            AX1    36          POSITION COUNTER                                    COMPASS    18226          I
          -CMP30  
 COMPASS            LX1    -36                                                             CMP30       5937     A     
 COMPASS            BX7    X2                                                              COMPASS    18227     A     
 COMPASS            SA7    BINREC+2+X1 STORE DATA                                          COMPASS    18228     A     
 COMPASS            SA1    A1          RELOAD COUNTER                                      COMPASS    18229          I
          -CMP30  
 COMPASS            SX2    B1                                                              COMPASS    18230     A     
 COMPASS            SA6    BINWORD                                                         COMPASS    18231          I
          -CMP30  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1050    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA6    BINREL                                                          COMPASS    18232          I
          -CMP30  
 COMPASS            LX2    36                                                              COMPASS    18233          I
          -CMP30  
 COMPASS            IX6    X1+X2                                                           COMPASS    18234          I
          -CMP30  
 COMPASS            SA6    A1          INCREMENT WORD COUNT                                COMPASS    18235          I
          -CMP30  
 COMPASS            AX1    36                                                              COMPASS    18236          I
          -CMP30  
 COMPASS            IX6    X1+X2       INCREMENT WORD COUNT                                CMP30       5938     A     
 COMPASS            LX6    36                                                              CMP30       5939     A     
 COMPASS            SA6    A1                                                              CMP30       5940     A     
 COMPASS            SB7    X1-14       TEST FOR END OF TABLE                               COMPASS    18237     A     
 COMPASS            NG     B7,DWORD                                                        COMPASS    18238          I
          -CMP30  
 COMPASS            MI     B7,DWORDX                                                       CMP30       5941     A     
 COMPASS            RJ     RESORG      DUMP CARD                                           COMPASS    18239     A     
 COMPASS            EQ     DWORD                                                           COMPASS    18240          I
          -CMP30  
 COMPASS            EQ     DWORDX                                                          CMP30       5942     A     
 COMPASS                                                                                   COMPASS    18241     A     
 COMPASS  *         OUTPUT CP ABSOLUTE WORD.                                               COMPASS    18242     A     
 COMPASS                                                                                   COMPASS    18243     A     
 COMPASS   DWORDC   SA1    ORGCTR                                                          COMPASS    18244     A     
 COMPASS            SA2    ORGBASE                                                         COMPASS    18245     A     
 COMPASS            SA3    LPGM                                                            COMPASS    18246     A     
 COMPASS            IX4    X1-X2                                                           COMPASS    18247     A     
 COMPASS            NG     X4,DWORDX   IGNORE WORD IF OUT OF RANGE                         COMPASS    18248     A     
 COMPASS            IX1    X1-X3                                                           COMPASS    18249     A     
 COMPASS            PL     X1,DWORDX                                                       COMPASS    18250     A     
 COMPASS            SA1    O.MEMORY                                                        COMPASS    18251     A     
 COMPASS            IX0    X1+X4                                                           COMPASS    18252     A     
 COMPASS            SA2    BINWORD                                                         COMPASS    18253     A     
 COMPASS            BX6    X2                                                              COMPASS    18254     A     
 COMPASS            SA6    X0                                                              COMPASS    18255     A     
 COMPASS   DWORDX   MX6    0                                                               COMPASS    18256          I
          -CMP30  
 COMPASS            SA6    BINWORD                                                         COMPASS    18257          I
          -CMP30  
 COMPASS   +        SA6    BINREL                                                          COMPASS    18258          I
          -CMP30  
 COMPASS            EQ     DWORD                                                           COMPASS    18259          I
          -CMP30  
 COMPASS            EQ     DWORDX                                                          CMP30       5943     A     
 COMPASS                                                                                   COMPASS    18260     A     
 COMPASS  *         OUTPUT PP WORD.                                                        COMPASS    18261     A     
 COMPASS                                                                                   COMPASS    18262     A     
 COMPASS   DWORDP   SA1    BINWORD                                                         COMPASS    18263          I
          -F4820  
 COMPASS            MX0    48                                                              COMPASS    18264          I
          -F4820  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1051    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX2    -X0*X1                                                          COMPASS    18265          I
          -F4820  
 COMPASS            SA3    ORGCTR                                                          COMPASS    18266          I
          -F4820  
 COMPASS            SA4    ORGBASE                                                         COMPASS    18267          I
          -F4820  
 COMPASS            SA5    LPGM                                                            COMPASS    18268          I
          -F4820  
 COMPASS            IX1    X3-X4                                                           COMPASS    18269          I
          -F4820  
 COMPASS            NG     X1,DWORDX                                                       COMPASS    18270          I
          -F4820  
 COMPASS            IX4    X3-X5                                                           COMPASS    18271          I
          -F4820  
 COMPASS            PL     X4,DWORDX                                                       COMPASS    18272          I
          -F4820  
 COMPASS            SX0    5                                                               COMPASS    18273          I
          -F4820  
 COMPASS            SB4    X1                                                              COMPASS    18274          I
          -F4820  
 COMPASS            IX4    X1/X0       WORD INDEX                                          COMPASS    18275          I
          -F4820  
 COMPASS            SB6    X4                                                              COMPASS    18276          I
          -F4820  
 COMPASS            SB5    B6+B6                                                           COMPASS    18277          I
          -F4820  
 COMPASS            SB7    B5+B5                                                           COMPASS    18278          I
          -F4820  
 COMPASS            SB5    B7+B6       5*LOCATION                                          COMPASS    18279          I
          -F4820  
 COMPASS            SX7    B4-B5       REMAINDER                                           COMPASS    18280          I
          -F4820  
 COMPASS            IX6    X7+X7       2*REMAINDER                                         COMPASS    18281          I
          -F4820  
 COMPASS            IX7    X6+X7       3*REMAINDER                                         COMPASS    18282          I
          -F4820  
 COMPASS            LX7    2           12*REMAINDER                                        COMPASS    18283          I
          -F4820  
 COMPASS            SB7    X7                                                              COMPASS    18284          I
          -F4820  
 COMPASS            SB5    48                                                              COMPASS    18285          I
          -F4820  
 COMPASS            SB7    B5-B7                                                           COMPASS    18286          I
          -F4820  
 COMPASS            SX0    7777B                                                           COMPASS    18287          I
          -F4820  
 COMPASS            LX0    X0,B7                                                           COMPASS    18288          I
          -F4820  
 COMPASS            LX2    X2,B7                                                           COMPASS    18289          I
          -F4820  
 COMPASS            SA1    O.MEMORY                                                        COMPASS    18290          I
          -F4820  
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1052    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            SA5    X1+B6                                                           COMPASS    18291          I
          -F4820  
 COMPASS            BX6    -X0*X5                                                          COMPASS    18292          I
          -F4820  
 COMPASS            BX6    X6+X2                                                           COMPASS    18293          I
          -F4820  
 COMPASS            SA6    A5                                                              COMPASS    18294          I
          -F4820  
 COMPASS            EQ     DWORDX                                                          COMPASS    18295          I
          -F4820  
 COMPASS   DWORDP   SA3    ORGCTR                                                          F4820        807          I
          -CPSA213
 COMPASS   DWORDP   SA2    BINWORD                                                         CPSA213       29     A     
 COMPASS            SA3    ORGCTR                                                          CPSA213       30     A     
 COMPASS            SA1    ORGBASE                                                         F4820        808     A     
 COMPASS            SA5    LPGM                                                            F4820        809     A     
 COMPASS            SA2    BINWORD                                                         F4820        810          I
          -CPSA213
 COMPASS            IX1    X3-X1                                                           F4820        811     A     
 COMPASS            NG     X1,DWORDX                                                       F4820        812     A     
 COMPASS            IX5    X3-X5                                                           F4820        813     A     
 COMPASS            SA4    PPTYPE                                                          F4820        814     A     
 COMPASS            PL     X5,DWORDX                                                       F4820        815     A     
 COMPASS   +        SX4    X4+B1                                                           F4820        816     A     
 COMPASS            NZ     X4,*+1      IF NOT BCU                                          F4820        817     A     
 COMPASS            LX1    1                                                               F4820        818     A     
 COMPASS   +        SX0    5                                                               F4820        819          I
          -CPSA281
 COMPASS   +        SX7    X4+2                                                            CPSA281      428     A     
 COMPASS            ZR     X7,DWORDQ   IF 180 PP ASSEMBLY                                  CPSA281      429     A     
 COMPASS            SX0    5                                                               CPSA281      430     A     
 COMPASS            SB4    X1                                                              F4820        820     A     
 COMPASS            IX1    X1/X0       WORD INDEX                                          F4820        821     A     
 COMPASS            SB6    X1                                                              F4820        822     A     
 COMPASS            SB5    B6+B6                                                           F4820        823     A     
 COMPASS            SB7    B5+B5                                                           F4820        824     A     
 COMPASS            SB5    B7+B6       5*LOCATION                                          F4820        825     A     
 COMPASS            SX7    B4-B5       REMAINDER                                           F4820        826     A     
 COMPASS            IX6    X7+X7       2*REMAINDER                                         F4820        827     A     
 COMPASS            IX7    X6+X7       3*REMAINDER                                         F4820        828     A     
 COMPASS            LX7    2           12*REMAINDER                                        F4820        829     A     
 COMPASS            SB7    X7                                                              F4820        830     A     
 COMPASS            SB5    48                                                              F4820        831     A     
 COMPASS            SB7    B5-B7                                                           F4820        832     A     
 COMPASS            SX0    7777B                                                           F4820        833     A     
 COMPASS            LX0    X0,B7                                                           F4820        834     A     
 COMPASS            LX2    X2,B7                                                           F4820        835     A     
 COMPASS            SA1    O.MEMORY                                                        F4820        836     A     
 COMPASS            SA5    X1+B6                                                           F4820        837     A     
 COMPASS            BX6    -X0*X5                                                          F4820        838     A     
 COMPASS            ZR     X4,DWORDP1  IF BCU ASSEMBLY                                     F4820        839     A     
 COMPASS            BX2    X0*X2                                                           F4820        840     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1053    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            BX6    X6+X2                                                           F4820        841     A     
 COMPASS            SA6    A5                                                              F4820        842     A     
 COMPASS            EQ     DWORDX      RETURN                                              F4820        843     A     
 COMPASS   DWORDP1  LX2    -8                                                              F4820        844     A     
 COMPASS            BX7    X0*X2                                                           F4820        845     A     
 COMPASS            BX6    X6+X7                                                           F4820        846     A     
 COMPASS            SA6    A5                                                              F4820        847     A     
 COMPASS            LX0    -12                                                             F4820        848     A     
 COMPASS            BX7    X0*X2                                                           F4820        849     A     
 COMPASS   +        PL     X0,*+1      IF NOT ACROSS WORD                                  F4820        850     A     
 COMPASS            SA5    A5+B1                                                           F4820        851     A     
 COMPASS            BX6    X5                                                              F4820        852     A     
 COMPASS   +        LX7    -4                                                              F4820        853     A     
 COMPASS            BX6    -X0*X6                                                          F4820        854     A     
 COMPASS            BX6    X6+X7                                                           F4820        855     A     
 COMPASS            SA6    A5                                                              F4820        856     A     
 COMPASS            EQ     DWORDX      RETURN                                              F4820        857     A     
 COMPASS                                                                                   CPSA281      431     A     
 COMPASS  *         180 PP ASSEMBLY.  16-BIT PP BYTES ARE PACKED INTO THE BINARY           CPSA281      432     A     
 COMPASS  *         IMAGE LEAVING NO UNUSED BITS.  THE RELATIVE OFFSET INTO THE            CPSA281      433     A     
 COMPASS  *         PROGRAM IMAGE (*POS*), AND THE SHIFT (*REM*) IS DETERMINED AS          CPSA281      434     A     
 COMPASS  *         FOLLOWS...                                                             CPSA281      435     A     
 COMPASS  *                                                                                CPSA281      436     A     
 COMPASS  *           POS = (K*16) / 60                                                    CPSA281      437     A     
 COMPASS  *                                                                                CPSA281      438     A     
 COMPASS  *                WHERE   K = RELATIVE PP BYTE (ORGCTR - ORGBASE)                 CPSA281      439     A     
 COMPASS  *                      POS = RELATIVE OFFSET INTO PROGRAM IMAGE                  CPSA281      440     A     
 COMPASS  *                                                                                CPSA281      441     A     
 COMPASS  *           REM = 44 - ( (K*16) - (POS*60) )                                     CPSA281      442     A     
 COMPASS  *                                                                                CPSA281      443     A     
 COMPASS  *                REM IS USED AS FOLLOWS...                                       CPSA281      444     A     
 COMPASS  *                                                                                CPSA281      445     A     
 COMPASS  *                      1) FOR PP BYTE FITTING ENTIRELY IN ONE CM WORD...         CPSA281      446     A     
 COMPASS  *                         *REM* IS THE RIGHT-MOST BIT NUMBER OF THE              CPSA281      447     A     
 COMPASS  *                         BYTE TO BE STORED AT (POS).                            CPSA281      448     A     
 COMPASS  *                         (RIGHT-MOST BIT OF CM WORD = BIT 0)                    CPSA281      449     A     
 COMPASS  *                                                                                CPSA281      450     A     
 COMPASS  *                      2) FOR PP BYTE CROSSING WORD BOUNDARY...                  CPSA281      451     A     
 COMPASS  *                         *REM* IS NEGATIVE.  THE UPPER PART OF THE BYTE         CPSA281      452     A     
 COMPASS  *                         CONSISTS OF (REM+16) BITS AND IS STORED                CPSA281      453     A     
 COMPASS  *                         RIGHT-JUSTIFIED AT (POS).  THE LOWER PART OF           CPSA281      454     A     
 COMPASS  *                         THE BYTE CONSISTS OF (-REM) BITS AND IS                CPSA281      455     A     
 COMPASS  *                         STORED LEFT-JUSTIFIED AT (POS+1).                      CPSA281      456     A     
 COMPASS                                                                                   CPSA281      457     A     
 COMPASS   DWORDQ   LX1    4           K * 16                                              CPSA281      458     A     
 COMPASS            SB3    X1                                                              CPSA281      459     A     
 COMPASS            SX0    60                                                              CPSA281      460     A     
 COMPASS            IX1    X1/X0       POS = (K*16) / 60                                   CPSA281      461     A     
 COMPASS            SB6    X1          (B6) = POS                                          CPSA281      462     A     
 COMPASS            BX3    X1                                                              CPSA281      463     A     
 COMPASS            LX3    2           POS * 4                                             CPSA281      464     A     
 COMPASS            LX1    6           POS * 64                                            CPSA281      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/28. 19.11.32.      PAGE1054    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS            IX1    X1-X3       POS * 60                                            CPSA281      466     A     
 COMPASS            SB4    X1                                                              CPSA281      467     A     
 COMPASS            SB5    44                                                              CPSA281      468     A     
 COMPASS            SB4    B3-B4       K*16 - POS*60                                       CPSA281      469     A     
 COMPASS            SB5    B5-B4       REM = 44 - ( (K*16) - (POS*60) )                    CPSA281      470     A     
 COMPASS            SA1    O.MEMORY                                                        CPSA281      471     A     
 COMPASS            SA5    X1+B6       RELATIVE WORD AT *POS*                              CPSA281      472     A     
 COMPASS            MI     B5,DBW30    IF BYTE CROSSES 60-BIT WORD BOUNDARY                CPSA281      473     A     
 COMPASS            MX0    -16                                                             CPSA281      474     A     
 COMPASS            LX2    X2,B5       SHIFT BYTE TO POSITION                              CPSA281      475     A     
 COMPASS            LX0    X0,B5       SHIFT MASK TO POSITION                              CPSA281      476     A     
 COMPASS            BX2    -X0*X2      STORE BYTE IN PROGRAM IMAGE                         CPSA281      477     A     
 COMPASS            BX6    X0*X5                                                           CPSA281      478     A     
 COMPASS            BX6    X6+X2                                                           CPSA281      479     A     
 COMPASS            SA6    A5                                                              CPSA281      480     A     
 COMPASS            EQ     DWORDX      RETURN                                              CPSA281      481     A     
 COMPASS                                                                                   CPSA281      482     A     
 COMPASS   DBW30    SB4    B5+16       REM + 16  (4, 8, OR 12)                             CPSA281      483     A     
 COMPASS            MX0    16          FORM MASKS FOR BOTH UPPER BITS IN (POS)             CPSA281      484     A     
 COMPASS            LX0    X0,B4        AND LOWER BITS IN (POS+1)                          CPSA281      485     A     
 COMPASS            MX1    30                                                              CPSA281      486     A     
 COMPASS            BX7    X1*X0       MASK FOR LOWER PART IN (POS+1)                      CPSA281      487     A     
 COMPASS            BX0    -X1*X0      MASK FOR UPPER PART IN (POS)                        CPSA281      488     A     
 COMPASS            LX2    44          POSITION BYTE                                       CPSA281      489     A     
 COMPASS            LX2    X2,B4                                                           CPSA281      490     A     
 COMPASS            BX3    X7*X2       LOWER PART OF BYTE FOR (POS+1)                      CPSA281      491     A     
 COMPASS            BX2    X0*X2       UPPER PART OF BYTE FOR (POS)                        CPSA281      492     A     
 COMPASS            BX6    -X0*X5      MERGE UPPER BITS IN (POS)                           CPSA281      493     A     
 COMPASS            BX6    X6+X2                                                           CPSA281      494     A     
 COMPASS            SA6    A5                                                              CPSA281      495     A     
 COMPASS            SA5    A5+B1       MERGE LOWER BITS IN (POS+1)                         CPSA281      496     A     
 COMPASS            BX6    -X7*X5                                                          CPSA281      497     A     
 COMPASS            BX6    X6+X3                                                           CPSA281      498     A     
 COMPASS            SA6    A5                                                              CPSA281      499     A     
 COMPASS            EQ     DWORDX      RETURN                                              CPSA281      500     A     
 COMPASS   RESORG   SPACE  4                                                               COMPASS    18296     A     
 COMPASS  **        RESORG - RESET ORIGIN.                                                 COMPASS    18297     A     
 COMPASS  *         RESETS ORIGIN FOR RELOCATABLE ROUTINES.  MAY DUMP TEXT                 COMPASS    18298     A     
 COMPASS  *         TABLE IF BINREC IS NON-EMPTY.                                          COMPASS    18299     A     
 COMPASS                                                                                   COMPASS    18300     A     
 COMPASS                                                                                   COMPASS    18301     A     
 COMPASS   RESORG   PS                 RETURN EXIT                                         COMPASS    18302     A     
 COMPASS            SA1    ABSFG                                                           COMPASS    18303     A     
 COMPASS            SA2    BINREC                                                          COMPASS    18304     A     
 COMPASS            SA3    B                                                               CMP30       5944     A     
 COMPASS            NZ     X1,RESORG   AVOID ANY PROCESSING ON ABSOLUTE PROGRAMS           COMPASS    18305     A     
 COMPASS            AX2    36                                                              COMPASS    18306          I
          -CMP30  
 COMPASS            ZR     X3,RESORG   IF NO BINARY FILE                                   CMP30       5945     A     
 COMPASS            LX2    -36                                                             CMP30       5946     A     
 COMPASS            SB7    X2+B1                                                           COMPASS    18307     A     
 COMPASS            ZR     X2,RESORG1  IF BINARY RECORD EMPTY                              COMPASS    18308          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1055    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA3    =40000001BS36 APPEND CONTROL WORD                               COMPASS    18309          I
          -CMP30  
 COMPASS            SA2    A2                                                              COMPASS    18310          I
          -CMP30  
 COMPASS            EQ     B7,B1,RESORG1 IF BINARY RECORD EMPTY                            CMP30       5947     A     
 COMPASS            SA3    DBTA        APPEND CONTROL WORD                                 CMP30       5948     A     
 COMPASS            SA4    CLF                                                             CMP30       5949     A     
 COMPASS            LX2    36                                                              CMP30       5950     A     
 COMPASS            IX6    X2+X3                                                           COMPASS    18311     A     
 COMPASS            LX4    33-59                                                           CMP30       5951     A     
 COMPASS            BX6    X6+X4       OR IN CONDITIONAL LOAD FLAG                         CMP30       5952     A     
 COMPASS            SA6    A2                                                              COMPASS    18312     A     
 COMPASS                                                                                   CMP30       5953     A     
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       5954     A     
 COMPASS            WRITEW B,A2,B7+B1                                                      COMPASS    18313     A     
 COMPASS   RM       ELSE                                                                   CMP30       5955     A     
 COMPASS            SX4    B7+B1                                                           CMP30       5956     A     
 COMPASS            IX2    X4+X4                                                           CMP30       5957     A     
 COMPASS            LX4    3                                                               CMP30       5958     A     
 COMPASS            SA1    B-1                                                             CMP30       5959     A     
 COMPASS            IX4    X4+X2                                                           CMP30       5960     A     
 COMPASS            NZ     X1,RES1     IF NOT *W* RECORDS                                  CMP30       5961     A     
 COMPASS            PUT    B,BINREC,X4                                                     CMP30       5962     A     
 COMPASS            EQ     RESORG1                                                         CMP30       5963     A     
 COMPASS   RES1     PUTP   B,BINREC,X4                                                     CMP30       5964     A     
 COMPASS   RM       ENDIF                                                                  CMP30       5965     A     
 COMPASS                                                                                   CMP30       5966     A     
 COMPASS   RESORG1  SA1    ORGCTR      RESET FOR NEW CARD                                  COMPASS    18314     A     
 COMPASS            SA2    A1+B1                                                           COMPASS    18315     A     
 COMPASS            BX6    X6-X6                                                           COMPASS    18316          I
          -CMP30  
 COMPASS            MX0    -17                                                             CMP30       5967     A     
 COMPASS   +        SB7    X2                                                              COMPASS    18317     A     
 COMPASS            LE     B7,B1,*+1   ADJUST RELOCATION FOR COMMON                        COMPASS    18318     A     
 COMPASS            SX2    X2+B1                                                           COMPASS    18319     A     
 COMPASS            LX2    18                                                              COMPASS    18320          I
          -CMP30  
 COMPASS            BX4    X0*X1                                                           CMP30       5968     A     
 COMPASS            SA3    DBTB        SET TABLE HEADER WORD                               CMP30       5969     A     
 COMPASS            LX2    18                                                              CMP30       5970     A     
 COMPASS            ZR     X4,DBT2     IF ORIGIN LESS THAN 2**17                           CMP30       5971     A     
 COMPASS            LX2    6                                                               CMP30       5972     A     
 COMPASS            SA3    A3+B1                                                           CMP30       5973     A     
 COMPASS   DBT2     SX6    B0                                                              CMP30       5974     A     
 COMPASS            BX7    X2+X1                                                           COMPASS    18321     A     
 COMPASS            SA6    BINREC+1                                                        COMPASS    18322     A     
 COMPASS            SA7    A6-B1                                                           COMPASS    18323     A     
 COMPASS            BX6    X3                                                              CMP30       5975     A     
 COMPASS            SA6    DBTA                                                            CMP30       5976     A     
 COMPASS            EQ     RESORG                                                          COMPASS    18324     A     
 COMPASS                                                                                   CMP30       5977     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1056    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   DBTA     DATA   0           TEXT/XTEXT CONTROL WORD                             CMP30       5978     A     
 COMPASS   DBTB     DATA   40000001BS36      TEXT                                          CMP30       5979     A     
 COMPASS            DATA   37000001BS36      XTEXT                                         CMP30       5980     A     
 COMPASS   BUFFERS  TITLE  COMPASS INITIALIZATION - OVERLAYED CODE.                        COMPASS    18325          I
          -CPS064 
 COMPASS  **        COMPASS INITIALIZATION - OVERLAYED CODE.                               COMPASS    18326          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18327          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18328          I
          -CPS064 
 COMPASS            USE    BUFFERS                                                         COMPASS    18329          I
          -CPS064 
 COMPASS            SEG    INITIALIZATION.                                                 COMPASS    18330          I
          -CMP30  
 COMPASS            SEG    OPCODE TABLE PROTOTYPE.                                         CMP30       5981          I
          -CPS064 
 COMPASS            QUAL                                                                   COMPASS    18331          I
          -CPS064 
 COMPASS            BASE   MIXED                                                           COMPASS    18332          I
          -CPS064 
 COMPASS   BUF      BSS    0           START OF BUFFERS                                    COMPASS    18333          I
          -CPS064 
 COMPASS   CPOP     SPACE  4                                                               COMPASS    18334          I
          -CPS064 
 COMPASS  **        FIELD DEFINITIONS FOR CENTRAL PROCESSOR OPERATIONS.                    COMPASS    18335          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18336          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18337          I
          -CPS064 
 COMPASS   Q        MICRO  1,,*001*                                                        COMPASS    18338          I
          -CPS064 
 COMPASS   A        MICRO  1,,*040*                                                        COMPASS    18339          I
          -CPS064 
 COMPASS   AQ       MICRO  1,,*041*                                                        COMPASS    18340          I
          -CPS064 
 COMPASS   B        MICRO  1,,*100*                                                        COMPASS    18341          I
          -CPS064 
 COMPASS   BQ       MICRO  1,,*101*                                                        COMPASS    18342          I
          -CPS064 
 COMPASS   X        MICRO  1,,*140*                                                        COMPASS    18343          I
          -CPS064 
 COMPASS   XQ       MICRO  1,,*141*                                                        COMPASS    18344          I
          -CPS064 
 COMPASS   -B       MICRO  1,,*300*                                                        COMPASS    18345          I
          -CPS064 
 COMPASS   -X       MICRO  1,,*340*                                                        COMPASS    18346          I
          -CPS064 
 COMPASS   X+B      MICRO  1,,*144*                                                        COMPASS    18347          I
          -CPS064 
 COMPASS   B+X      MICRO  1,,*106*                                                        COMPASS    18348          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1057    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   A+B      MICRO  1,,*044*                                                        COMPASS    18349          I
          -CPS064 
 COMPASS   B+A      MICRO  1,,*102*                                                        COMPASS    18350          I
          -CPS064 
 COMPASS   A-B      MICRO  1,,*054*                                                        COMPASS    18351          I
          -CPS064 
 COMPASS   B+B      MICRO  1,,*104*                                                        COMPASS    18352          I
          -CPS064 
 COMPASS   B-B      MICRO  1,,*114*                                                        COMPASS    18353          I
          -CPS064 
 COMPASS   -B+A     MICRO  1,,*302*                                                        COMPASS    18354          I
          -CPS064 
 COMPASS   -B+B     MICRO  1,,*304*                                                        COMPASS    18355          I
          -CPS064 
 COMPASS   X+X      MICRO  1,,*146*                                                        COMPASS    18356          I
          -CPS064 
 COMPASS   X-X      MICRO  1,,*156*                                                        COMPASS    18357          I
          -CPS064 
 COMPASS   X*X      MICRO  1,,*166*                                                        COMPASS    18358          I
          -CPS064 
 COMPASS   X/X      MICRO  1,,*176*                                                        COMPASS    18359          I
          -CPS064 
 COMPASS   -X+X     MICRO  1,,*346*                                                        COMPASS    18360          I
          -CPS064 
 COMPASS   -X-X     MICRO  1,,*356*                                                        COMPASS    18361          I
          -CPS064 
 COMPASS   -X*X     MICRO  1,,*366*                                                        COMPASS    18362          I
          -CPS064 
 COMPASS   CPOPA    SPACE  4                                                               COMPASS    18363          I
          -CPS064 
 COMPASS  **        CPOPA - REMOVE ONE LEVEL OF MICRO.                                     COMPASS    18364          I
          -CPS064 
 COMPASS  *         CPOPA  P1                                                              COMPASS    18365          I
          -CPS064 
 COMPASS  *         ENTRY  (P1) = MICRO NAME.                                              COMPASS    18366          I
          -CPS064 
 COMPASS  *         EXIT   (D) = MICRO NAME.                                               COMPASS    18367          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18368          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18369          I
          -CPS064 
 COMPASS   CPOPA    MACRO  P1                                                              COMPASS    18370          I
          -CPS064 
 COMPASS   D        MICRO  1,, "P1"                                                        COMPASS    18371          I
          -CPS064 
 COMPASS            ENDM                                                                   COMPASS    18372          I
          -CPS064 
 COMPASS   CPUOP    SPACE  4                                                               COMPASS    18373          I
          -CPS064 
 COMPASS  **        CPUOP - CENTRAL PROCESSER OPERATION MACRO.                             COMPASS    18374          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1058    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS  *         CPUOP  CTL,VAL,REQ,N1,N2,N3                                            COMPASS    18375          I
          -CPS064 
 COMPASS  *         ENTRY  (CTL) = 4 - FORCE UPPER AFTER INSTRUCTION.                      COMPASS    18376          I
          -CPS064 
 COMPASS  *                        2 - FORCE UPPER BEFORE INSTRUCTION.                     COMPASS    18377          I
          -CPS064 
 COMPASS  *                        1 - 30-BIT INSTRUCTION.                                 COMPASS    18378          I
          -CPS064 
 COMPASS  *                (VAL) = VALUE OF OPERATION CODE.                                COMPASS    18379          I
          -CPS064 
 COMPASS  *                (REG) = IJK.  (I) = CODE FOR I-PORTION.                         COMPASS    18380          I
          -CPS064 
 COMPASS  *                        1 - OP-CODE PORTION.                                    COMPASS    18381          I
          -CPS064 
 COMPASS  *                        2 - 2ND OR ONLY ADDRESS REGISTER.                       COMPASS    18382          I
          -CPS064 
 COMPASS  *                        3 - 1ST OF 2 ADDRESS REGISTERS.                         COMPASS    18383          I
          -CPS064 
 COMPASS  *                (NI) = FIELD DEFINITION OF MNEMONIC.                            COMPASS    18384          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18385          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18386          I
          -CPS064 
 COMPASS   CPUOP    MACRO  CTL,VAL,REG,N1,N2,N3                                            COMPASS    18387          I
          -CPS064 
 COMPASS   D        MICRO  3,,$N1$                                                         COMPASS    18388          I
          -CPS064 
 COMPASS            CPOPA  "D"                                                             COMPASS    18389          I
          -CPS064 
 COMPASS   MN       MICRO  1,2,$N1$                                                        COMPASS    18390          I
          -CPS064 
 COMPASS            VFD    24/2R"MN",8/"D",8/"N2",8/"N3",12/1R                             COMPASS    18391          I
          -CPS064 
 COMPASS            VFD    12/VAL,21/CTL,9/REG,18/                                         COMPASS    18392          I
          -CMP30  
 COMPASS            VFD    12/VAL,18/M.,3/CTL,9/REG,18/                                    CMP30       5982          I
          -CPS064 
 COMPASS            ENDM                                                                   COMPASS    18393          I
          -CPS064 
 COMPASS   PPUOP    SPACE  4                                                               COMPASS    18394          I
          -CPS064 
 COMPASS  **        PPUOP - DEFINE PP INSTRUCTION MACRO.                                   COMPASS    18395          I
          -CPS064 
 COMPASS  *         PPUOP  NAME,CTL,VAL                                                    COMPASS    18396          I
          -CPS064 
 COMPASS  *         ENTRY  (NAME) = MNEMONIC NAME.                                         COMPASS    18397          I
          -CPS064 
 COMPASS  *                (CTL) = 1 - 24-BIT WITH 12-BIT ADDRESS AND NO INDEXING.         COMPASS    18398          I
          -CPS064 
 COMPASS  *                        2 - 12-BIT WITH SIGNED RELATIVE ADDRESS                 COMPASS    18399          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1059    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS  *                            OR ABSOLUTE ADDRESS (UJN).                          COMPASS    18400          I
          -CPS064 
 COMPASS  *                        3 - 24-BIT WITH 18-BIT ADDRESS (LDC).                   COMPASS    18401          I
          -CPS064 
 COMPASS  *                        4 - 12-BIT WITH 6-BIT ADDRESS (LDN).                    COMPASS    18402          I
          -CPS064 
 COMPASS  *                        5 - 24-BIT WITH 12-BIT ADDRESS AND OPTIONAL             COMPASS    18403          I
          -CPS064 
 COMPASS  *                            INDEXING (LDM).                                     COMPASS    18404          I
          -CPS064 
 COMPASS  *                        6 - 12-BIT WITH SIGNED RELATIVE ADDRESS (SHN).          COMPASS    18405          I
          -CPS064 
 COMPASS  *                        7 - 24-BIT WITH 12-BIT ADDRESS AND REQUIRED             COMPASS    18406          I
          -CPS064 
 COMPASS  *                            SECOND FIELD (FNC).                                 COMPASS    18407          I
          -CPS064 
 COMPASS  *         (VAL) = 12-BIT OPERATION CODE VALUE.                                   COMPASS    18408          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18409          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18410          I
          -CPS064 
 COMPASS   PPUOP    MACRO  NAME,CTL,VAL PERIPHERAL MACHINE CODES                           COMPASS    18411          I
          -CPS064 
 COMPASS            DATA   R$NAME$                                                         COMPASS    18412          I
          -CPS064 
 COMPASS            VFD    3/1,27/,3/CTL,27/VAL                                            COMPASS    18413          I
          -CMP30  
 COMPASS            VFD    3/1,27/M.,3/CTL,27/VAL                                          CMP30       5983          I
          -CPS064 
 COMPASS            ENDM                                                                   COMPASS    18414          I
          -CPS064 
 COMPASS   PSEUDO   SPACE  4                                                               COMPASS    18415          I
          -CPS064 
 COMPASS  **        PSEUDO - DEFINE PSEUDO INSTRUCTION MACRO.                              COMPASS    18416          I
          -CPS064 
 COMPASS  *         PSEUDO TYPE,NAME                                                       COMPASS    18417          I
          -CPS064 
 COMPASS  *         ENTRY  (TYPE) = 2 - CAN NOT OCCUR IN THE FIRST CARD GROUP.             COMPASS    18418          I
          -CPS064 
 COMPASS  *                         3 - PROCESS WHILE IF SKIPPING.                         COMPASS    18419          I
          -CPS064 
 COMPASS  *                         4 - PERMISSIBLE ANYWHERE.                              COMPASS    18420          I
          -CPS064 
 COMPASS  *                         5 - FIRST CARD GROUP ONLY.                             COMPASS    18421          I
          -CPS064 
 COMPASS  *                (NAME) = NAME OF PSEUDO OPERATION.                              COMPASS    18422          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18423          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18424          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1060    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   PSEUDO   MACRO  TYPE,NAME                                                       COMPASS    18425          I
          -CPS064 
 COMPASS            DATA   R$NAME$                                                         COMPASS    18426          I
          -CPS064 
 COMPASS            VFD    3/TYPE,39//PASS1/NAME,18//PASS2/NAME                            COMPASS    18427          I
          -CPS064 
 COMPASS            ENDM                                                                   COMPASS    18428          I
          -CPS064 
 COMPASS   PSEUD    SPACE  4                                                               COMPASS    18429          I
          -CPS064 
 COMPASS  **        PSEUD - DEFINE PSEUDO INSTRUCTION MACRO.                               COMPASS    18430          I
          -CPS064 
 COMPASS  *         PSEUD  TYPE,NAME,PASS1,PASS2                                           COMPASS    18431          I
          -CPS064 
 COMPASS  *         ENTRY  (TYPE) = PSEUDO INSTRUCTION TYPE.                               COMPASS    18432          I
          -CPS064 
 COMPASS  *                (NAME) = NAME OF PSEUDO OPERATION.                              COMPASS    18433          I
          -CPS064 
 COMPASS  *                (P1) = PASS1 ADDRESS.                                           COMPASS    18434          I
          -CPS064 
 COMPASS  *                (P2) = PASS2 ADDRESS.                                           COMPASS    18435          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18436          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18437          I
          -CPS064 
 COMPASS   PSEUD    MACRO  TYPE,NAME,P1,P2                                                 COMPASS    18438          I
          -CPS064 
 COMPASS            DATA   R$NAME$                                                         COMPASS    18439          I
          -CPS064 
 COMPASS            VFD    3/TYPE,39//PASS1/P1,18//PASS2/P2                                COMPASS    18440          I
          -CPS064 
 COMPASS            ENDM                                                                   COMPASS    18441          I
          -CPS064 
 COMPASS   OPS      SPACE  4                                                               COMPASS    18442          I
          -CPS064 
 COMPASS  *         6600 AND 7600 PP OPCODES.                                              COMPASS    18443          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18444          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18445          I
          -CPS064 
 COMPASS   OPS      BSS    0                                                               COMPASS    18446          I
          -CPS064 
 COMPASS   M.       SET    0                                                               CMP30       5984          I
          -CPS064 
 COMPASS            LIST   -R                                                              CMP30       5985          I
          -CPS064 
 COMPASS            PPUOP  LJM,5,0100                                                      COMPASS    18447          I
          -CPS064 
 COMPASS            PPUOP  RJM,5,0200                                                      COMPASS    18448          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1061    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PPUOP  UJN,2,0300                                                      COMPASS    18449          I
          -CPS064 
 COMPASS            PPUOP  ZJN,2,0400                                                      COMPASS    18450          I
          -CPS064 
 COMPASS            PPUOP  NJN,2,0500                                                      COMPASS    18451          I
          -CPS064 
 COMPASS            PPUOP  PJN,2,0600                                                      COMPASS    18452          I
          -CPS064 
 COMPASS            PPUOP  MJN,2,0700                                                      COMPASS    18453          I
          -CPS064 
 COMPASS            PPUOP  SHN,6,1000                                                      COMPASS    18454          I
          -CPS064 
 COMPASS            PPUOP  LMN,4,1100                                                      COMPASS    18455          I
          -CPS064 
 COMPASS            PPUOP  LPN,4,1200                                                      COMPASS    18456          I
          -CPS064 
 COMPASS            PPUOP  SCN,4,1300                                                      COMPASS    18457          I
          -CPS064 
 COMPASS            PPUOP  LDN,4,1400                                                      COMPASS    18458          I
          -CPS064 
 COMPASS            PPUOP  LCN,4,1500                                                      COMPASS    18459          I
          -CPS064 
 COMPASS            PPUOP  ADN,4,1600                                                      COMPASS    18460          I
          -CPS064 
 COMPASS            PPUOP  SBN,4,1700                                                      COMPASS    18461          I
          -CPS064 
 COMPASS            PPUOP  LDC,3,2000                                                      COMPASS    18462          I
          -CPS064 
 COMPASS            PPUOP  ADC,3,2100                                                      COMPASS    18463          I
          -CPS064 
 COMPASS            PPUOP  LPC,3,2200                                                      COMPASS    18464          I
          -CPS064 
 COMPASS            PPUOP  LMC,3,2300                                                      COMPASS    18465          I
          -CPS064 
 COMPASS            PPUOP  PSN,4,2400                                                      COMPASS    18466          I
          -CPS064 
 COMPASS            PPUOP  LDD,4,3000                                                      COMPASS    18467          I
          -CPS064 
 COMPASS            PPUOP  ADD,4,3100                                                      COMPASS    18468          I
          -CPS064 
 COMPASS            PPUOP  SBD,4,3200                                                      COMPASS    18469          I
          -CPS064 
 COMPASS            PPUOP  LMD,4,3300                                                      COMPASS    18470          I
          -CPS064 
 COMPASS            PPUOP  STD,4,3400                                                      COMPASS    18471          I
          -CPS064 
 COMPASS            PPUOP  RAD,4,3500                                                      COMPASS    18472          I
          -CPS064 
 COMPASS            PPUOP  AOD,4,3600                                                      COMPASS    18473          I
          -CPS064 
 COMPASS            PPUOP  SOD,4,3700                                                      COMPASS    18474          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1062    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PPUOP  LDI,4,4000                                                      COMPASS    18475          I
          -CPS064 
 COMPASS            PPUOP  ADI,4,4100                                                      COMPASS    18476          I
          -CPS064 
 COMPASS            PPUOP  SBI,4,4200                                                      COMPASS    18477          I
          -CPS064 
 COMPASS            PPUOP  LMI,4,4300                                                      COMPASS    18478          I
          -CPS064 
 COMPASS            PPUOP  STI,4,4400                                                      COMPASS    18479          I
          -CPS064 
 COMPASS            PPUOP  RAI,4,4500                                                      COMPASS    18480          I
          -CPS064 
 COMPASS            PPUOP  AOI,4,4600                                                      COMPASS    18481          I
          -CPS064 
 COMPASS            PPUOP  SOI,4,4700                                                      COMPASS    18482          I
          -CPS064 
 COMPASS            PPUOP  LDM,5,5000                                                      COMPASS    18483          I
          -CPS064 
 COMPASS            PPUOP  ADM,5,5100                                                      COMPASS    18484          I
          -CPS064 
 COMPASS            PPUOP  SBM,5,5200                                                      COMPASS    18485          I
          -CPS064 
 COMPASS            PPUOP  LMM,5,5300                                                      COMPASS    18486          I
          -CPS064 
 COMPASS            PPUOP  STM,5,5400                                                      COMPASS    18487          I
          -CPS064 
 COMPASS            PPUOP  RAM,5,5500                                                      COMPASS    18488          I
          -CPS064 
 COMPASS            PPUOP  AOM,5,5600                                                      COMPASS    18489          I
          -CPS064 
 COMPASS            PPUOP  SOM,5,5700                                                      COMPASS    18490          I
          -CPS064 
 COMPASS            PPUOP  IAN,4,7000                                                      COMPASS    18491          I
          -CPS064 
 COMPASS            PPUOP  IAM,7,7100                                                      COMPASS    18492          I
          -CPS064 
 COMPASS            PPUOP  OAN,4,7200                                                      COMPASS    18493          I
          -CPS064 
 COMPASS            PPUOP  OAM,7,7300                                                      COMPASS    18494          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18495          I
          -CPS064 
 COMPASS  *         6600 PP OPCODES.                                                       COMPASS    18496          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18497          I
          -CPS064 
 COMPASS   M.       SET    1                                                               CMP30       5986          I
          -CPS064 
 COMPASS            PPUOP  EXN,4,2600                                                      COMPASS    18498          I
          -CPS064 
 COMPASS            PPUOP  MXN,4,2610                                                      COMPASS    18499          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1063    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PPUOP  MAN,4,2620                                                      CMP30       5987          I
          -CPS064 
 COMPASS            PPUOP  RPN,4,2700                                                      COMPASS    18500          I
          -CPS064 
 COMPASS            PPUOP  CRD,4,6000                                                      COMPASS    18501          I
          -CPS064 
 COMPASS            PPUOP  CRM,7,6100                                                      COMPASS    18502          I
          -CPS064 
 COMPASS            PPUOP  CWD,4,6200                                                      COMPASS    18503          I
          -CPS064 
 COMPASS            PPUOP  CWM,7,6300                                                      COMPASS    18504          I
          -CPS064 
 COMPASS            PPUOP  AJM,7,6400                                                      COMPASS    18505          I
          -CPS064 
 COMPASS            PPUOP  IJM,7,6500                                                      COMPASS    18506          I
          -CPS064 
 COMPASS            PPUOP  FJM,7,6600                                                      COMPASS    18507          I
          -CPS064 
 COMPASS            PPUOP  EJM,7,6700                                                      COMPASS    18508          I
          -CPS064 
 COMPASS            PPUOP  ACN,4,7400                                                      COMPASS    18509          I
          -CPS064 
 COMPASS            PPUOP  DCN,4,7500                                                      COMPASS    18510          I
          -CPS064 
 COMPASS            PPUOP  FAN,4,7600                                                      COMPASS    18511          I
          -CPS064 
 COMPASS            PPUOP  FNC,7,7700                                                      COMPASS    18512          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18513          I
          -CPS064 
 COMPASS  *         6416 PP OPCODES.                                                       COMPASS    18514          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18515          I
          -CPS064 
 COMPASS            PPUOP  ETN,4,2600                                                      COMPASS    18516          I
          -CPS064 
 COMPASS            PPUOP  ERN,4,2700                                                      COMPASS    18517          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18518          I
          -CPS064 
 COMPASS  *         7600 PP OPCODES.                                                       COMPASS    18519          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18520          I
          -CPS064 
 COMPASS   M.       SET    2                                                               CMP30       5988          I
          -CPS064 
 COMPASS            PPUOP  FIM,7,6000                                                      COMPASS    18521          I
          -CPS064 
 COMPASS            PPUOP  EIM,7,6100                                                      COMPASS    18522          I
          -CPS064 
 COMPASS            PPUOP  IRM,7,6200                                                      COMPASS    18523          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1064    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PPUOP  NIM,7,6300                                                      COMPASS    18524          I
          -CPS064 
 COMPASS            PPUOP  FOM,7,6400                                                      COMPASS    18525          I
          -CPS064 
 COMPASS            PPUOP  EOM,7,6500                                                      COMPASS    18526          I
          -CPS064 
 COMPASS            PPUOP  ORM,7,6600                                                      COMPASS    18527          I
          -CPS064 
 COMPASS            PPUOP  NOM,7,6700                                                      COMPASS    18528          I
          -CPS064 
 COMPASS            PPUOP  RFN,4,7400                                                      COMPASS    18529          I
          -CPS064 
 COMPASS            PPUOP  ESN,4,7700                                                      COMPASS    18530          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18531          I
          -CPS064 
 COMPASS  *         6600 AND 7600 CP OPCODES.                                              COMPASS    18532          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18533          I
          -CPS064 
 COMPASS   M.       SET    0                                                               CMP30       5989          I
          -CPS064 
 COMPASS            CPUOP  7,000,000,PS                                                    CMP30       5990          I
          -CPS064 
 COMPASS            CPUOP  7,000,000,PSQ                                                   CMP30       5991          I
          -CPS064 
 COMPASS            CPUOP  5,010,000,RJQ                                                   COMPASS    18534          I
          -CPS064 
 COMPASS            CPUOP  5,020,000,JPQ                                                   COMPASS    18535          I
          -CPS064 
 COMPASS            CPUOP  5,020,200,JPB                                                   COMPASS    18536          I
          -CPS010 
 COMPASS            CPUOP  5,020,200,JPBQ                                                  COMPASS    18537          I
          -CPS010 
 COMPASS            CPUOP  5,020,220,JPB                                                   CPS010       135          I
          -CPS064 
 COMPASS            CPUOP  5,020,220,JPBQ                                                  CPS010       136          I
          -CPS064 
 COMPASS            CPUOP  1,030,020,ZRX,Q                                                 COMPASS    18538          I
          -CPS064 
 COMPASS            CPUOP  1,031,020,NZX,Q                                                 COMPASS    18539          I
          -CPS064 
 COMPASS            CPUOP  1,032,020,PLX,Q                                                 COMPASS    18540          I
          -CPS064 
 COMPASS            CPUOP  1,033,020,NGX,Q                                                 COMPASS    18541          I
          -CPS064 
 COMPASS            CPUOP  1,033,020,MIX,Q                                                 COMPASS    18542          I
          -CPS064 
 COMPASS            CPUOP  1,034,020,IRX,Q                                                 COMPASS    18543          I
          -CPS064 
 COMPASS            CPUOP  1,035,020,ORX,Q                                                 COMPASS    18544          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1065    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CPUOP  1,036,020,DFX,Q                                                 COMPASS    18545          I
          -CPS064 
 COMPASS            CPUOP  1,037,020,IDX,Q                                                 COMPASS    18546          I
          -CPS064 
 COMPASS            CPUOP  5,040,000,EQQ                                                   COMPASS    18547          I
          -CPS064 
 COMPASS            CPUOP  1,040,200,EQB,Q                                                 COMPASS    18548          I
          -CPS064 
 COMPASS            CPUOP  1,040,320,EQB,B,Q                                               COMPASS    18549          I
          -CPS064 
 COMPASS            CPUOP  5,040,000,ZRQ                                                   COMPASS    18550          I
          -CPS064 
 COMPASS            CPUOP  1,040,200,ZRB,Q                                                 COMPASS    18551          I
          -CPS064 
 COMPASS            CPUOP  1,050,200,NEB,Q                                                 COMPASS    18552          I
          -CPS064 
 COMPASS            CPUOP  1,050,320,NEB,B,Q                                               COMPASS    18553          I
          -CPS064 
 COMPASS            CPUOP  1,050,200,NZB,Q                                                 COMPASS    18554          I
          -CPS064 
 COMPASS            CPUOP  1,060,200,PLB,Q                                                 COMPASS    18555          I
          -CPS064 
 COMPASS            CPUOP  1,060,200,GEB,Q                                                 COMPASS    18556          I
          -CPS064 
 COMPASS            CPUOP  1,060,320,GEB,B,Q                                               COMPASS    18557          I
          -CPS064 
 COMPASS            CPUOP  1,060,230,LEB,B,Q                                               COMPASS    18558          I
          -CPS064 
 COMPASS            CPUOP  1,060,020,LEB,Q                                                 COMPASS    18559          I
          -CPS064 
 COMPASS            CPUOP  1,070,200,NGB,Q                                                 COMPASS    18560          I
          -CPS064 
 COMPASS            CPUOP  1,070,200,MIB,Q                                                 COMPASS    18561          I
          -CPS064 
 COMPASS            CPUOP  1,070,320,LTB,B,Q                                               COMPASS    18562          I
          -CPS064 
 COMPASS            CPUOP  1,070,230,GTB,B,Q                                               COMPASS    18563          I
          -CPS064 
 COMPASS            CPUOP  1,070,200,LTB,Q                                                 COMPASS    18564          I
          -CPS064 
 COMPASS            CPUOP  1,070,020,GTB,Q                                                 COMPASS    18565          I
          -CPS064 
 COMPASS            CPUOP  0,100,122,BXX                                                   COMPASS    18566          I
          -CPS064 
 COMPASS            CPUOP  0,110,132,BXX*X                                                 COMPASS    18567          I
          -CPS064 
 COMPASS            CPUOP  0,120,132,BXX+X                                                 COMPASS    18568          I
          -CPS064 
 COMPASS            CPUOP  0,130,132,BXX-X                                                 COMPASS    18569          I
          -CPS064 
 COMPASS            CPUOP  0,140,122,BX-X                                                  COMPASS    18570          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1066    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CPUOP  0,150,123,BX-X*X                                                COMPASS    18571          I
          -CPS064 
 COMPASS            CPUOP  0,160,123,BX-X+X                                                COMPASS    18572          I
          -CPS064 
 COMPASS            CPUOP  0,170,123,BX-X-X                                                COMPASS    18573          I
          -CPS064 
 COMPASS            CPUOP  0,200,100,LXQ                                                   COMPASS    18574          I
          -CPS064 
 COMPASS            CPUOP  0,210,100,AXQ                                                   COMPASS    18575          I
          -CPS064 
 COMPASS            CPUOP  0,220,102,LXX                                                   COMPASS    18576          I
          -CPS064 
 COMPASS            CPUOP  0,220,121,LXB                                                   CMP30       5992          I
          -CPS064 
 COMPASS            CPUOP  0,220,121,AX-B                                                  CMP30       5993          I
          -CPS064 
 COMPASS            CPUOP  0,220,132,LXB,X                                                 COMPASS    18577          I
          -CPS064 
 COMPASS            CPUOP  0,220,132,AX-B,X                                                CMP30       5994          I
          -CPS064 
 COMPASS            CPUOP  0,220,123,LXX,B                                                 COMPASS    18578          I
          -CPS064 
 COMPASS            CPUOP  0,220,123,AXX,-B                                                CMP30       5995          I
          -CPS064 
 COMPASS            CPUOP  0,230,102,AXX                                                   COMPASS    18579          I
          -CPS064 
 COMPASS            CPUOP  0,230,121,AXB                                                   CMP30       5996          I
          -CPS064 
 COMPASS            CPUOP  0,230,121,LX-B                                                  CMP30       5997          I
          -CPS064 
 COMPASS            CPUOP  0,230,132,AXB,X                                                 COMPASS    18580          I
          -CPS064 
 COMPASS            CPUOP  0,230,132,LX-B,X                                                CMP30       5998          I
          -CPS064 
 COMPASS            CPUOP  0,230,123,AXX,B                                                 COMPASS    18581          I
          -CPS064 
 COMPASS            CPUOP  0,230,123,LXX,-B                                                CMP30       5999          I
          -CPS064 
 COMPASS            CPUOP  0,240,101,NX                                                    CMP30       6000          I
          -CPS064 
 COMPASS            CPUOP  0,240,102,NXX                                                   COMPASS    18582          I
          -CPS064 
 COMPASS            CPUOP  0,240,121,NXB                                                   CMP30       6001          I
          -CPS064 
 COMPASS            CPUOP  0,240,132,NXB,X                                                 COMPASS    18583          I
          -CPS064 
 COMPASS            CPUOP  0,240,123,NXX,B                                                 COMPASS    18584          I
          -CPS064 
 COMPASS            CPUOP  0,250,101,ZX                                                    CMP30       6002          I
          -CPS064 
 COMPASS            CPUOP  0,250,102,ZXX                                                   COMPASS    18585          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1067    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CPUOP  0,250,121,ZXB                                                   CMP30       6003          I
          -CPS064 
 COMPASS            CPUOP  0,250,132,ZXB,X                                                 COMPASS    18586          I
          -CPS064 
 COMPASS            CPUOP  0,250,123,ZXX,B                                                 COMPASS    18587          I
          -CPS064 
 COMPASS            CPUOP  0,260,101,UX                                                    CMP30       6004          I
          -CPS064 
 COMPASS            CPUOP  0,260,102,UXX                                                   COMPASS    18588          I
          -CPS064 
 COMPASS            CPUOP  0,260,121,UXB                                                   CMP30       6005          I
          -CPS064 
 COMPASS            CPUOP  0,260,132,UXB,X                                                 COMPASS    18589          I
          -CPS064 
 COMPASS            CPUOP  0,260,123,UXX,B                                                 COMPASS    18590          I
          -CPS064 
 COMPASS            CPUOP  0,270,101,PX                                                    CMP30       6006          I
          -CPS064 
 COMPASS            CPUOP  0,270,102,PXX                                                   CMP30       6007          I
          -CPS064 
 COMPASS            CPUOP  0,270,121,PXB                                                   CMP30       6008          I
          -CPS064 
 COMPASS            CPUOP  0,270,132,PXB,X                                                 COMPASS    18591          I
          -CPS064 
 COMPASS            CPUOP  0,270,123,PXX,B                                                 COMPASS    18592          I
          -CPS064 
 COMPASS            CPUOP  0,270,102,PXX                                                   COMPASS    18593          I
          -CMP30  
 COMPASS            CPUOP  0,300,132,FXX+X                                                 COMPASS    18594          I
          -CPS064 
 COMPASS            CPUOP  0,310,132,FXX-X                                                 COMPASS    18595          I
          -CPS064 
 COMPASS            CPUOP  0,320,132,DXX+X                                                 COMPASS    18596          I
          -CPS064 
 COMPASS            CPUOP  0,330,132,DXX-X                                                 COMPASS    18597          I
          -CPS064 
 COMPASS            CPUOP  0,340,132,RXX+X                                                 COMPASS    18598          I
          -CPS064 
 COMPASS            CPUOP  0,350,132,RXX-X                                                 COMPASS    18599          I
          -CPS064 
 COMPASS            CPUOP  0,360,132,IXX+X                                                 COMPASS    18600          I
          -CPS064 
 COMPASS            CPUOP  0,370,132,IXX-X                                                 COMPASS    18601          I
          -CPS064 
 COMPASS            CPUOP  0,400,132,FXX*X                                                 COMPASS    18602          I
          -CPS064 
 COMPASS            CPUOP  0,410,132,RXX*X                                                 COMPASS    18603          I
          -CPS064 
 COMPASS            CPUOP  0,420,132,DXX*X                                                 COMPASS    18604          I
          -CPS064 
 COMPASS            CPUOP  0,420,132,IXX*X                                                 CMP30       6009          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1068    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CPUOP  0,430,100,MXQ                                                   COMPASS    18605          I
          -CPS064 
 COMPASS            CPUOP  0,440,132,FXX/X                                                 COMPASS    18606          I
          -CPS064 
 COMPASS            CPUOP  0,450,132,RXX/X                                                 COMPASS    18607          I
          -CPS064 
 COMPASS            CPUOP  0,460,000,NO                                                    COMPASS    18608          I
          -CPS064 
 COMPASS            CPUOP  0,460,000,NOQ                                                   COMPASS    18609          I
          -CPS064 
 COMPASS            CPUOP  7,464,020,IMB                                                   CMP30       6010          I
          -CPS064 
 COMPASS            CPUOP  7,464,000,IMQ                                                   CMP30       6011          I
          -CPS064 
 COMPASS            CPUOP  7,464,020,IMBQ                                                  CMP30       6012          I
          -CPS064 
 COMPASS            CPUOP  0,470,122,CXX                                                   COMPASS    18610          I
          -CPS064 
 COMPASS            CPUOP  1,500,120,SAAQ                                                  COMPASS    18611          I
          -CPS064 
 COMPASS            CPUOP  1,600,120,SBAQ                                                  COMPASS    18612          I
          -CPS064 
 COMPASS            CPUOP  1,700,120,SXAQ                                                  COMPASS    18613          I
          -CPS064 
 COMPASS            CPUOP  1,510,100,SAQ                                                   COMPASS    18614          I
          -CPS064 
 COMPASS            CPUOP  1,610,100,SBQ                                                   COMPASS    18615          I
          -CPS064 
 COMPASS            CPUOP  1,710,100,SXQ                                                   COMPASS    18616          I
          -CPS064 
 COMPASS            CPUOP  1,510,120,SABQ                                                  COMPASS    18617          I
          -CPS064 
 COMPASS            CPUOP  1,610,120,SBBQ                                                  COMPASS    18618          I
          -CPS064 
 COMPASS            CPUOP  1,710,120,SXBQ                                                  COMPASS    18619          I
          -CPS064 
 COMPASS            CPUOP  1,520,120,SAXQ                                                  COMPASS    18620          I
          -CPS064 
 COMPASS            CPUOP  1,620,120,SBXQ                                                  COMPASS    18621          I
          -CPS064 
 COMPASS            CPUOP  1,720,120,SXXQ                                                  COMPASS    18622          I
          -CPS064 
 COMPASS            CPUOP  0,530,132,SAX+B                                                 COMPASS    18623          I
          -CPS064 
 COMPASS            CPUOP  0,630,132,SBX+B                                                 COMPASS    18624          I
          -CPS064 
 COMPASS            CPUOP  0,730,132,SXX+B                                                 COMPASS    18625          I
          -CPS064 
 COMPASS            CPUOP  0,530,123,SAB+X                                                 COMPASS    18626          I
          -CPS064 
 COMPASS            CPUOP  0,630,123,SBB+X                                                 COMPASS    18627          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1069    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CPUOP  0,730,123,SXB+X                                                 COMPASS    18628          I
          -CPS064 
 COMPASS            CPUOP  0,530,120,SAX                                                   COMPASS    18629          I
          -CPS064 
 COMPASS            CPUOP  0,630,120,SBX                                                   COMPASS    18630          I
          -CPS064 
 COMPASS            CPUOP  0,730,120,SXX                                                   COMPASS    18631          I
          -CPS064 
 COMPASS            CPUOP  0,540,120,SAA                                                   COMPASS    18632          I
          -CPS064 
 COMPASS            CPUOP  0,640,120,SBA                                                   COMPASS    18633          I
          -CPS064 
 COMPASS            CPUOP  0,740,120,SXA                                                   COMPASS    18634          I
          -CPS064 
 COMPASS            CPUOP  0,540,132,SAA+B                                                 COMPASS    18635          I
          -CPS064 
 COMPASS            CPUOP  0,640,132,SBA+B                                                 COMPASS    18636          I
          -CPS064 
 COMPASS            CPUOP  0,740,132,SXA+B                                                 COMPASS    18637          I
          -CPS064 
 COMPASS            CPUOP  0,540,123,SAB+A                                                 COMPASS    18638          I
          -CPS064 
 COMPASS            CPUOP  0,640,123,SBB+A                                                 COMPASS    18639          I
          -CPS064 
 COMPASS            CPUOP  0,740,123,SXB+A                                                 COMPASS    18640          I
          -CPS064 
 COMPASS            CPUOP  0,550,132,SAA-B                                                 COMPASS    18641          I
          -CPS064 
 COMPASS            CPUOP  0,650,132,SBA-B                                                 COMPASS    18642          I
          -CPS064 
 COMPASS            CPUOP  0,750,132,SXA-B                                                 COMPASS    18643          I
          -CPS064 
 COMPASS            CPUOP  0,550,123,SA-B+A                                                COMPASS    18644          I
          -CPS064 
 COMPASS            CPUOP  0,650,123,SB-B+A                                                COMPASS    18645          I
          -CPS064 
 COMPASS            CPUOP  0,750,123,SX-B+A                                                COMPASS    18646          I
          -CPS064 
 COMPASS            CPUOP  0,560,120,SAB                                                   COMPASS    18647          I
          -CPS064 
 COMPASS            CPUOP  0,660,120,SBB                                                   COMPASS    18648          I
          -CPS064 
 COMPASS            CPUOP  0,760,120,SXB                                                   COMPASS    18649          I
          -CPS064 
 COMPASS            CPUOP  0,560,132,SAB+B                                                 COMPASS    18650          I
          -CPS064 
 COMPASS            CPUOP  0,660,132,SBB+B                                                 COMPASS    18651          I
          -CPS064 
 COMPASS            CPUOP  0,760,132,SXB+B                                                 COMPASS    18652          I
          -CPS064 
 COMPASS            CPUOP  0,570,102,SA-B                                                  COMPASS    18653          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1070    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CPUOP  0,670,102,SB-B                                                  COMPASS    18654          I
          -CPS064 
 COMPASS            CPUOP  0,770,102,SX-B                                                  COMPASS    18655          I
          -CPS064 
 COMPASS            CPUOP  0,570,132,SAB-B                                                 COMPASS    18656          I
          -CPS064 
 COMPASS            CPUOP  0,670,132,SBB-B                                                 COMPASS    18657          I
          -CPS064 
 COMPASS            CPUOP  0,770,132,SXB-B                                                 COMPASS    18658          I
          -CPS064 
 COMPASS            CPUOP  0,570,123,SA-B+B                                                COMPASS    18659          I
          -CPS064 
 COMPASS            CPUOP  0,670,123,SB-B+B                                                COMPASS    18660          I
          -CPS064 
 COMPASS            CPUOP  0,770,123,SX-B+B                                                COMPASS    18661          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18662          I
          -CPS064 
 COMPASS  *         6600 CP OPCODES.                                                       COMPASS    18663          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18664          I
          -CPS064 
 COMPASS            CPUOP  7,000,000,PS                                                    COMPASS    18665          I
          -CMP30  
 COMPASS            CPUOP  7,000,000,PSQ                                                   COMPASS    18666          I
          -CMP30  
 COMPASS   M.       SET    1                                                               CMP30       6013          I
          -CPS064 
 COMPASS            CPUOP  3,011,020,REB                                                   COMPASS    18667          I
          -CPS064 
 COMPASS            CPUOP  3,011,000,REQ                                                   COMPASS    18668          I
          -CPS064 
 COMPASS            CPUOP  3,011,020,REBQ                                                  COMPASS    18669          I
          -CPS064 
 COMPASS            CPUOP  3,012,020,WEB                                                   COMPASS    18670          I
          -CPS064 
 COMPASS            CPUOP  3,012,000,WEQ                                                   COMPASS    18671          I
          -CPS064 
 COMPASS            CPUOP  3,012,020,WEBQ                                                  COMPASS    18672          I
          -CPS064 
 COMPASS            CPUOP  7,013,000,XJ                                                    COMPASS    18673          I
          -CPS064 
 COMPASS            CPUOP  7,013,020,XJB                                                   COMPASS    18674          I
          -CPS064 
 COMPASS            CPUOP  7,013,000,XJQ                                                   COMPASS    18675          I
          -CPS064 
 COMPASS            CPUOP  7,013,020,XJBQ                                                  COMPASS    18676          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18677          I
          -CPS064 
 COMPASS  *         7600 CP OPCODES.                                                       COMPASS    18678          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1071    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS                                                                                   COMPASS    18679          I
          -CPS064 
 COMPASS   M.       SET    2                                                               CMP30       6014          I
          -CPS064 
 COMPASS            CPUOP  4,000,000,ES                                                    COMPASS    18680          I
          -CPS064 
 COMPASS            CPUOP  4,000,000,ESQ                                                   COMPASS    18681          I
          -CPS064 
 COMPASS            CPUOP  1,011,000,RLQ                                                   COMPASS    18682          I
          -CPS064 
 COMPASS            CPUOP  1,011,020,RLB                                                   COMPASS    18683          I
          -CPS064 
 COMPASS            CPUOP  1,011,020,RLBQ                                                  COMPASS    18684          I
          -CPS064 
 COMPASS            CPUOP  1,012,000,WLQ                                                   COMPASS    18685          I
          -CPS064 
 COMPASS            CPUOP  1,012,020,WLB                                                   COMPASS    18686          I
          -CPS064 
 COMPASS            CPUOP  1,012,020,WLBQ                                                  COMPASS    18687          I
          -CPS064 
 COMPASS            CPUOP  5,013,000,MJQ                                                   COMPASS    18688          I
          -CPS064 
 COMPASS            CPUOP  5,013,020,MJB                                                   COMPASS    18689          I
          -CPS064 
 COMPASS            CPUOP  5,013,020,MJBQ                                                  COMPASS    18690          I
          -CPS064 
 COMPASS            CPUOP  4,013,000,MJ                                                    COMPASS    18691          I
          -CPS064 
 COMPASS            CPUOP  0,014,012,RXX                                                   COMPASS    18692          I
          -CPS064 
 COMPASS            CPUOP  0,015,012,WXX                                                   COMPASS    18693          I
          -CPS064 
 COMPASS            CPUOP  0,016,010,TB                                                    COMPASS    18694          I
          -CPS064 
 COMPASS            CPUOP  0,016,010,TBQ                                                   COMPASS    18695          I
          -CPS064 
 COMPASS            CPUOP  0,016,002,RIB                                                   COMPASS    18696          I
          -CPS064 
 COMPASS            CPUOP  0,016,012,IBB                                                   COMPASS    18697          I
          -CPS064 
 COMPASS            CPUOP  0,017,002,ROB                                                   COMPASS    18698          I
          -CPS064 
 COMPASS            CPUOP  0,017,012,OBB                                                   COMPASS    18699          I
          -CPS064 
 COMPASS            LIST   *                                                               CMP30       6015          I
          -CPS064 
 COMPASS   PSEUDO   SPACE  4                                                               COMPASS    18700          I
          -CPS064 
 COMPASS  ****      PSEUDO OPERATIONS.                                                     COMPASS    18701          I
          -CPS064 
 COMPASS   PSEUDO   SPACE  4                                                               COMPASS    18702          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1072    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS  **        FIRST CARD GROUP ONLY.                                                 COMPASS    18703          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18704          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18705          I
          -CPS064 
 COMPASS            PSEUDO 5,ABS                                                           COMPASS    18706          I
          -CPS064 
 COMPASS            PSEUD  5,MACHINE,MCH,MCH                                               CMP30       6016          I
          -CPS064 
 COMPASS            PSEUDO 5,PERIPH                                                        COMPASS    18707          I
          -CPS064 
 COMPASS            PSEUDO 5,PPU                                                           COMPASS    18708          I
          -CPS064 
 COMPASS            PSEUDO 5,STEXT                                                         COMPASS    18709          I
          -CPS064 
 COMPASS   PSEUDO   SPACE  4                                                               COMPASS    18710          I
          -CPS064 
 COMPASS  **        PERMISSIBLE ANYWHERE.                                                  COMPASS    18711          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18712          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18713          I
          -CPS064 
 COMPASS            PSEUDO 4,BASE                                                          COMPASS    18714          I
          -CPS064 
 COMPASS            PSEUD  4,B1=1,B1=1.,.B1=1                                              COMPASS    18715          I
          -CPS064 
 COMPASS            PSEUDO 4,B7=1                                                          COMPASS    18716          I
          -CPS064 
 COMPASS            PSEUD  4,CHAR,CHAR.,CHAR.                                              CPS011        93          I
          -CPS064 
 COMPASS            PSEUDO 4,CODE                                                          COMPASS    18717          I
          -CPS064 
 COMPASS            PSEUDO 4,COMMENT                                                       COMPASS    18718          I
          -CPS064 
 COMPASS            PSEUDO 4,CPOP                                                          COMPASS    18719          I
          -CPS064 
 COMPASS            PSEUDO 4,CPSYN                                                         COMPASS    18720          I
          -CPS064 
 COMPASS            PSEUDO 4,DECMIC                                                        COMPASS    18721          I
          -CPS064 
 COMPASS            PSEUDO 4,EJECT                                                         COMPASS    18722          I
          -CPS064 
 COMPASS            PSEUDO 4,ENDD                                                          COMPASS    18723          I
          -CPS064 
 COMPASS            PSEUDO 4,ENDM                                                          COMPASS    18724          I
          -CPS064 
 COMPASS            PSEUDO 4,HERE                                                          COMPASS    18725          I
          -CPS064 
 COMPASS            PSEUDO 4,IFC                                                           COMPASS    18726          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1073    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PSEUDO 4,IRP                                                           COMPASS    18727          I
          -CPS064 
 COMPASS            PSEUDO 4,LIST                                                          COMPASS    18728          I
          -CPS064 
 COMPASS            PSEUDO 4,MACRO                                                         COMPASS    18729          I
          -CPS064 
 COMPASS            PSEUDO 4,MACROE                                                        COMPASS    18730          I
          -CPS064 
 COMPASS            PSEUDO 4,MICCNT                                                        COMPASS    18731          I
          -CPS064 
 COMPASS            PSEUDO 4,MICRO                                                         COMPASS    18732          I
          -CPS064 
 COMPASS            PSEUDO 4,NIL                                                           COMPASS    18733          I
          -CPS064 
 COMPASS            PSEUDO 4,NOLABEL                                                       COMPASS    18734          I
          -CPS064 
 COMPASS            PSEUDO 4,NOREF                                                         COMPASS    18735          I
          -CPS064 
 COMPASS            PSEUDO 4,OCTMIC                                                        COMPASS    18736          I
          -CPS064 
 COMPASS            PSEUDO 4,OPDEF                                                         COMPASS    18737          I
          -CPS064 
 COMPASS            PSEUDO 4,OPSYN                                                         COMPASS    18738          I
          -CPS064 
 COMPASS            PSEUDO 4,PPOP                                                          COMPASS    18739          I
          -CPS064 
 COMPASS            PSEUDO 4,PURGDEF                                                       CMP6          82          I
          -CPS064 
 COMPASS            PSEUDO 4,PURGMAC                                                       COMPASS    18740          I
          -CPS064 
 COMPASS            PSEUDO 4,QUAL                                                          COMPASS    18741          I
          -CPS064 
 COMPASS            PSEUDO 4,RMT                                                           COMPASS    18742          I
          -CPS064 
 COMPASS            PSEUDO 4,SKIP                                                          COMPASS    18743          I
          -CPS064 
 COMPASS            PSEUDO 4,SPACE                                                         COMPASS    18744          I
          -CPS064 
 COMPASS            PSEUDO 4,SST                                                           COMPASS    18745          I
          -CPS064 
 COMPASS            PSEUDO 4,TITLE                                                         COMPASS    18746          I
          -CPS064 
 COMPASS            PSEUDO 4,TTL                                                           COMPASS    18747          I
          -CPS064 
 COMPASS            PSEUDO 4,XREF                                                          COMPASS    18748          I
          -CPS064 
 COMPASS            PSEUD  4,(  ),BLNKOP,BLNKOP                                            COMPASS    18749          I
          -CPS064 
 COMPASS   PSEUDO   SPACE  4                                                               COMPASS    18750          I
          -CPS064 
 COMPASS  **        PROCESS WHILE IF SKIPPING.                                             COMPASS    18751          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1074    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS                                                                                   COMPASS    18752          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18753          I
          -CPS064 
 COMPASS            PSEUDO 3,ELSE                                                          COMPASS    18754          I
          -CPS064 
 COMPASS            PSEUDO 3,END                                                           COMPASS    18755          I
          -CPS064 
 COMPASS            PSEUDO 3,ENDIF                                                         COMPASS    18756          I
          -CPS064 
 COMPASS   PSEUDO   SPACE  4                                                               COMPASS    18757          I
          -CPS064 
 COMPASS  **        CAN NOT OCCUR IN THE FIRST CARD GROUP.                                 COMPASS    18758          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18759          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18760          I
          -CPS064 
 COMPASS            PSEUDO 2,BSS                                                           COMPASS    18761          I
          -CPS064 
 COMPASS            PSEUDO 2,BSSZ                                                          COMPASS    18762          I
          -CPS064 
 COMPASS            PSEUDO 2,CC                                                            CMP30       6017          I
          -CPS064 
 COMPASS            PSEUD  2,COL,COL.,COL.                                                 COMPASS    18763          I
          -CPS064 
 COMPASS            PSEUDO 2,CON                                                           COMPASS    18764          I
          -CPS064 
 COMPASS            PSEUDO 2,CTEXT                                                         COMPASS    18765          I
          -CPS064 
 COMPASS            PSEUDO 2,CU                                                            CMP30       6018          I
          -CPS064 
 COMPASS            PSEUDO 2,DATA                                                          COMPASS    18766          I
          -CPS064 
 COMPASS            PSEUDO 2,DIS                                                           COMPASS    18767          I
          -CPS064 
 COMPASS            PSEUDO 2,DM                                                            CMP30       6019          I
          -CPS064 
 COMPASS            PSEUDO 2,DUP                                                           COMPASS    18768          I
          -CPS064 
 COMPASS            PSEUDO 2,ECHO                                                          COMPASS    18769          I
          -CPS064 
 COMPASS            PSEUDO 2,ENDX                                                          COMPASS    18770          I
          -CPS064 
 COMPASS            PSEUDO 2,ENTRY                                                         COMPASS    18771          I
          -CPS064 
 COMPASS            PSEUDO 2,ENTRYC                                                        CMP30       6020          I
          -CPS064 
 COMPASS            PSEUDO 2,EQU                                                           COMPASS    18772          I
          -CPS064 
 COMPASS            PSEUDO 2,ERR                                                           COMPASS    18773          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1075    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PSEUDO 2,ERRMI                                                         CMP30       6021          I
          -CPS064 
 COMPASS            PSEUDO 2,ERRNG                                                         COMPASS    18774          I
          -CPS064 
 COMPASS            PSEUDO 2,ERRNZ                                                         COMPASS    18775          I
          -CPS064 
 COMPASS            PSEUDO 2,ERRPL                                                         COMPASS    18776          I
          -CPS064 
 COMPASS            PSEUDO 2,ERRZR                                                         COMPASS    18777          I
          -CPS064 
 COMPASS            PSEUDO 2,EXT                                                           COMPASS    18778          I
          -CPS064 
 COMPASS            PSEUDO 2,IF                                                            COMPASS    18779          I
          -CPS064 
 COMPASS            PSEUDO 2,IFCP                                                          COMPASS    18780          I
          -CPS064 
 COMPASS            PSEUDO 2,IFCP6                                                         CMP30       6022          I
          -CPS064 
 COMPASS            PSEUDO 2,IFCP7                                                         CMP30       6023          I
          -CPS064 
 COMPASS            PSEUDO 2,IFEQ                                                          COMPASS    18781          I
          -CPS064 
 COMPASS            PSEUDO 2,IFGE                                                          COMPASS    18782          I
          -CPS064 
 COMPASS            PSEUDO 2,IFGT                                                          COMPASS    18783          I
          -CPS064 
 COMPASS            PSEUDO 2,IFLE                                                          COMPASS    18784          I
          -CPS064 
 COMPASS            PSEUDO 2,IFLT                                                          COMPASS    18785          I
          -CPS064 
 COMPASS            PSEUDO 2,IFMI                                                          CMP30       6024          I
          -CPS064 
 COMPASS            PSEUDO 2,IFNE                                                          COMPASS    18786          I
          -CPS064 
 COMPASS            PSEUDO 2,IFPL                                                          CMP30       6025          I
          -CPS064 
 COMPASS            PSEUDO 2,IFPP                                                          COMPASS    18787          I
          -CPS064 
 COMPASS            PSEUDO 2,IFPP6                                                         CMP30       6026          I
          -CPS064 
 COMPASS            PSEUDO 2,IFPP7                                                         CMP30       6027          I
          -CPS064 
 COMPASS            PSEUDO 2,LCC                                                           COMPASS    18788          I
          -CPS064 
 COMPASS            PSEUDO 2,LOC                                                           COMPASS    18789          I
          -CPS064 
 COMPASS            PSEUDO 2,LIT                                                           COMPASS    18790          I
          -CPS064 
 COMPASS            PSEUDO 2,MAX                                                           COMPASS    18791          I
          -CPS064 
 COMPASS            PSEUDO 2,MD                                                            CMP30       6028          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1076    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            PSEUDO 2,MIN                                                           COMPASS    18792          I
          -CPS064 
 COMPASS            PSEUDO 2,ORG                                                           COMPASS    18793          I
          -CPS064 
 COMPASS            PSEUDO 2,ORGC                                                          CMP30       6029          I
          -CPS064 
 COMPASS            PSEUDO 2,IDENT                                                         COMPASS    18794          I
          -CPS064 
 COMPASS            PSEUDO 2,POS                                                           COMPASS    18795          I
          -CPS064 
 COMPASS            PSEUDO 2,REP                                                           COMPASS    18796          I
          -CPS064 
 COMPASS            PSEUDO 2,REPC                                                          CMP30       6030          I
          -CPS064 
 COMPASS            PSEUDO 2,REPI                                                          COMPASS    18797          I
          -CPS064 
 COMPASS            PSEUDO 2,R=                                                            COMPASS    18798          I
          -CPS064 
 COMPASS            PSEUDO 2,SEG                                                           COMPASS    18799          I
          -CPS064 
 COMPASS            PSEUDO 2,SEGMENT                                                       COMPASS    18800          I
          -CPS064 
 COMPASS            PSEUDO 2,SET                                                           COMPASS    18801          I
          -CPS064 
 COMPASS            PSEUDO 2,STOPDUP                                                       COMPASS    18802          I
          -CPS064 
 COMPASS            PSEUDO 2,USE                                                           COMPASS    18803          I
          -CPS064 
 COMPASS            PSEUDO 2,USELCM                                                        COMPASS    18804          I
          -CPS064 
 COMPASS            PSEUDO 2,VFD                                                           COMPASS    18805          I
          -CPS064 
 COMPASS            PSEUDO 2,XTEXT                                                         COMPASS    18806          I
          -CPS064 
 COMPASS            PSEUD  2,=,EQU,EQU                                                     COMPASS    18807          I
          -CPS064 
 COMPASS  ****                                                                             COMPASS    18808          I
          -CPS064 
 COMPASS   LGOPS    EQU    *-OPS                                                           COMPASS    18809          I
          -CPS064 
 COMPASS            BASE   DECIMAL                                                         COMPASS    18810          I
          -CPS064 
 COMPASS   PASS0    EJECT                                                                  COMPASS    18811          I
          -CPS064 
 COMPASS  **        PASS0 - INITIALIZE COMPASS.                                            COMPASS    18812          I
          -CPS064 
 COMPASS  *         ENTRY  (A0) = FIELD LENGTH.                                            COMPASS    18813          I
          -CMP30  
 COMPASS                                                                                   COMPASS    18814          I
          -CPS064 
 COMPASS                                                                                   COMPASS    18815          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1077    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   PASS0    PS                 RETURN EXIT                                         COMPASS    18816          I
          -CMP30  
 COMPASS            SX6    A0          RECORD ORIGINAL FIELD LENGTH                        COMPASS    18817          I
          -CMP30  
 COMPASS            MX7    0                                                               COMPASS    18818          I
          -CMP30  
 COMPASS            SB7    BUCKET+10                                                       COMPASS    18819          I
          -CMP30  
 COMPASS            SA6    FIELDL                                                          COMPASS    18820          I
          -CMP30  
 COMPASS            SX6    A0-10                                                           COMPASS    18821          I
          -CMP30  
 COMPASS            SA6    O.ENDTAB                                                        COMPASS    18822          I
          -CMP30  
 COMPASS            SB7    A0-B7                                                           COMPASS    18823          I
          -CMP30  
 COMPASS            SX6    B7          SET STORAGE LIMIT                                   COMPASS    18824          I
          -CMP30  
 COMPASS            PL     B7,COMPASS0 JUMP IF INITIAL ROOM                                COMPASS    18825          I
          -CMP30  
 COMPASS            MESSAGE (=C* INSUFFICIENT STORAGE. JOB ABORTED.*)                      COMPASS    18826          I
          -CMP30  
 COMPASS            EQ     ABORT                                                           COMPASS    18827          I
          -CMP30  
 COMPASS   COMPASS0 SA6    SIZCORE                                                         COMPASS    18828          I
          -CMP30  
 COMPASS            RJ     SFP         SET FILE PARAMETERS                                 COMPASS    18829          I
          -CMP30  
 COMPASS            RJ     CTM         CHECK MACHINE TYPE                                  COMPASS    18830          I
          -CMP30  
 COMPASS            IFNE   DEBUG,0,1   READ DEBUGGING DIRECTIVES                           CMP14        525          I
          -CMP30  
 COMPASS            RJ     /DEBUG/RDD                                                      CMP14        526          I
          -CMP30  
 COMPASS            SA1    INBUF                                                           COMPASS    18831          I
          -CMP30  
 COMPASS            NZ     X1,COMPASS1 IF CALL FROM FORTRAN                                COMPASS    18832          I
          -CMP30  
 COMPASS            READ   I           START READ OF FILE                                  COMPASS    18833          I
          -CMP30  
 COMPASS                                                                                   COMPASS    18834          I
          -CMP30  
 COMPASS  *         CREATE LINKAGE INTO BINARY BUFFERS                                     COMPASS    18835          I
          -CMP30  
 COMPASS                                                                                   COMPASS    18836          I
          -CMP30  
 COMPASS   COMPASS1 SA1    PUNCH       CHECK FOR RUN(P) OPTION                             COMPASS    18837          I
          -CMP30  
 COMPASS            MX0    42                                                              COMPASS    18838          I
          -CMP30  
 COMPASS            NZ     X1,*+1                                                          COMPASS    18839          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1078    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SA1    BINARY                                                          COMPASS    18840          I
          -CMP30  
 COMPASS            BX2    X0*X1                                                           COMPASS    18841          I
          -CMP30  
 COMPASS            SX5    3                                                               COMPASS    18842          I
          -CMP30  
 COMPASS   +        SX6    B0                                                              COMPASS    18843          I
          -CMP30  
 COMPASS            ZR     X2,*+1                                                          COMPASS    18844          I
          -CMP30  
 COMPASS            IX6    X2+X5                                                           COMPASS    18845          I
          -CMP30  
 COMPASS   +        SA6    B           STORE BINARY POINTER WORD                           COMPASS    18846          I
          -CMP30  
 COMPASS            SA1    LISTFG      SET OUTPUT FLAG                                     COMPASS    18847          I
          -CMP30  
 COMPASS            SX6    B1                                                              COMPASS    18848          I
          -CMP30  
 COMPASS            BX6    X1*X6                                                           COMPASS    18849          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    18850          I
          -CMP30  
 COMPASS            SA1    ACTR        SET FORTRAN MODE                                    COMPASS    18851          I
          -CMP15    -CMP30  
 COMPASS            SX6    B1                                                              COMPASS    18852          I
          -CMP15    -CMP30  
 COMPASS            LX1    18                                                              COMPASS    18853          I
          -CMP15    -CMP30  
 COMPASS            SX7    X1-3RFTN                                                        COMPASS    18854          I
          -CMP15    -CMP30  
 COMPASS            SX5    X1-3RCOM                                                        COMPASS    18855          I
          -CMP15    -CMP30  
 COMPASS   +        NZ     X7,*+1                                                          COMPASS    18856          I
          -CMP15    -CMP30  
 COMPASS            SX6    2                                                               COMPASS    18857          I
          -CMP15    -CMP30  
 COMPASS   +        NZ     X5,*+1                                                          COMPASS    18858          I
          -CMP15    -CMP30  
 COMPASS            SX6    0                                                               COMPASS    18859          I
          -CMP15    -CMP30  
 COMPASS            SA1    BATCH       GET VALUE OF *F SPECIAL SYMBOL                      CMP15         30          I
          -CMP30  
 COMPASS            BX6    X1                                                              CMP15         31          I
          -CMP30  
 COMPASS   +        PL     X1,*+1      IF NOT CALLED BY A COMPILER                         CMP15         32          I
          -CMP30  
 COMPASS            BX1    -X1                                                             CMP15         33          I
          -CMP30  
 COMPASS            SX6    X1+B1       USE TWOS COMPLEMENT                                 CMP15         34          I
          -CMP30  
 COMPASS            SA6    FMODE                                                           COMPASS    18860          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1079    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            MANAGE OPTAB,2*NOPCT GET BASIC OP CODE TABLE                           COMPASS    18861          I
          -CMP30  
 COMPASS            IX3    X2+X3       CLEAR IT OUT                                        COMPASS    18862          I
          -CMP30  
 COMPASS            MX1    0                                                               COMPASS    18863          I
          -CMP30  
 COMPASS            RJ     PRESET                                                          COMPASS    18864          I
          -CMP30  
 COMPASS            SX6    LGOPS/2-1                                                       COMPASS    18865          I
          -CMP30  
 COMPASS            SX7    OPS                                                             COMPASS    18866          I
          -CMP30  
 COMPASS            SA6    EXVAL                                                           COMPASS    18867          I
          -CMP30  
 COMPASS            SA7    A6+B1       CREATE BASIC OPCODE TABLE                           COMPASS    18868          I
          -CMP30  
 COMPASS   CMP3A    SA4    EXVAL+1                                                         COMPASS    18869          I
          -CMP30  
 COMPASS            SA1    X4                                                              COMPASS    18870          I
          -CMP30  
 COMPASS            SA2    X4+B1                                                           COMPASS    18871          I
          -CMP30  
 COMPASS            SX6    A2+B1                                                           COMPASS    18872          I
          -CMP30  
 COMPASS            SA6    A4                                                              COMPASS    18873          I
          -CMP30  
 COMPASS            RJ     ENTOP                                                           COMPASS    18874          I
          -CMP30  
 COMPASS            SA1    EXVAL                                                           COMPASS    18875          I
          -CMP30  
 COMPASS            SX6    X1-1                                                            COMPASS    18876          I
          -CMP30  
 COMPASS            SA6    A1                                                              COMPASS    18877          I
          -CMP30  
 COMPASS            NZ     X1,CMP3A                                                        COMPASS    18878          I
          -CMP30  
 COMPASS            SA1    SYSTEXT     CHECK FOR SUPPRESSION OF SYSTEMS                    COMPASS    18879          I
          -CMP8     -CMP30  
 COMPASS            LX1    6           MACROS                                              COMPASS    18880          I
          -CMP8     -CMP30  
 COMPASS            MX0    54                                                              COMPASS    18881          I
          -CMP8     -CMP30  
 COMPASS            BX2    -X0*X1                                                          COMPASS    18882          I
          -CMP8     -CMP30  
 COMPASS            SB7    X2-1R0                                                          COMPASS    18883          I
          -CMP8     -CMP30  
 COMPASS            ZR     B7,SYSX1                                                        COMPASS    18884          I
          -CMP8     -CMP30  
 COMPASS            SA1    GFLG        CHECK G PARAMETER                                   CMP8           5          I
          -CMP30  
 COMPASS            BX6    X1                                                              CMP8           6          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1080    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            LX1    18                                                              CMP8           7          I
          -CMP30  
 COMPASS            SB7    X1-1L0                                                          CMP8           8          I
          -CMP30  
 COMPASS            ZR     B7,CMP3C    IF OMITTED OR *G=0* SPECIFIED                       CMP8           9          I
          -CMP30  
 COMPASS            RJ     LGT         LOAD G-TYPE SYSTEM TEXT                             CMP8          10          I
          -CMP30  
 COMPASS            ZR     X0,LST      IF TEXT LOADED                                      CMP8          11          I
          -CMP30  
 COMPASS            EQ     CMP4                                                            CMP8          12          I
          -CMP30  
 COMPASS   CMP3C    SA1    SYSTEXT     CHECK S PARAMETER                                   CMP8          13          I
          -CMP30  
 COMPASS            BX6    X1                                                              CMP27         34          I
          -CMP30  
 COMPASS            LX1    18                                                              CMP8          14          I
          -CMP30  
 COMPASS            SA6    SYSNAME     SAVE IT                                             CMP27         35          I
          -CMP30  
 COMPASS            SB7    X1-1L0                                                          CMP8          15          I
          -CMP30  
 COMPASS            ZR     B7,SYSX1    IF *S=0* SPECIFIED                                  CMP8          16          I
          -CMP30  
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        COMPASS    18885          I
          -CMP30  
 COMPASS            SA1    SYSTEXT     LOAD SYSTEMS TEXT                                   COMPASS    18886          I
          -CMP30  
 COMPASS            SA2    =01010140BS36                                                   COMPASS    18887          I
          -CMP30  
 COMPASS            SA4    GFLG                                                            COMPASS    18888          I
          -CMP8     -CMP30  
 COMPASS            ZR     X4,CMP3C    IF SYSTEM LOAD                                      COMPASS    18889          I
          -CMP8     -CMP30  
 COMPASS            RJ     LGT         LOAD G-TYPE SYSTEMS TEXT                            COMPASS    18890          I
          -CMP8     -CMP30  
 COMPASS            ZR     X0,LST      IF TEXT LOADED                                      COMPASS    18891          I
          -CMP8     -CMP30  
 COMPASS            EQ     CMP4                                                            COMPASS    18892          I
          -CMP8     -CMP30  
 COMPASS   CMP3C    SA3    O.MEMORY                                                        COMPASS    18893          I
          -CMP8     -CMP30  
 COMPASS            SA3    O.MEMORY    FWA FOR LOAD                                        CMP8          17          I
          -CMP30  
 COMPASS            LX6    X1                                                              COMPASS    18894          I
          -CMP30  
 COMPASS            BX7    X2+X3                                                           COMPASS    18895          I
          -CMP30  
 COMPASS            SA6    LSTA                                                            COMPASS    18896          I
          -CMP30  
 COMPASS            SA7    A6+B1                                                           COMPASS    18897          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1081    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            MX6    0                                                               COMPASS    18898          I
          -CMP30  
 COMPASS            SA6    LDRCELL     CLEAR LOADER REPLY CELL                             COMPASS    18899          I
          -CMP30  
 COMPASS            SYSTEM LDR,,A7-B1                                                      COMPASS    18900          I
          -CMP20    -CMP30  
 COMPASS            SYSTEM LDV,,A7-B1                                                      CMP20        382          I
          -CMP30  
 COMPASS   CMP3B    RECALL                                                                 COMPASS    18901          I
          -CMP30  
 COMPASS            SA1    LDRCELL                                                         COMPASS    18902          I
          -CMP30  
 COMPASS            ZR     X1,CMP3B    WAIT FOR LDR                                        COMPASS    18903          I
          -CMP30  
 COMPASS            SA1    LSTA+1                                                          COMPASS    18904          I
          -CMP30  
 COMPASS            LX1    59-36                                                           COMPASS    18905          I
          -CMP30  
 COMPASS            PL     X1,LST      IF PROGRAM LOADED                                   COMPASS    18906          I
          -CMP30  
 COMPASS   CMP4     MESSAGE (=C* NO SYSTEM TEXT FOUND.*)                                   COMPASS    18907          I
          -CMP30  
 COMPASS            EQ     SYSX1                                                           COMPASS    18908          I
          -CMP30  
 COMPASS   LST      SPACE  4                                                               COMPASS    18909          I
          -CMP30  
 COMPASS  **        LST - LOAD SYSTEM TEXT TABLES.                                         COMPASS    18910          I
          -CMP30  
 COMPASS                                                                                   COMPASS    18911          I
          -CMP30  
 COMPASS                                                                                   COMPASS    18912          I
          -CMP30  
 COMPASS   LST      SA3    O.MEMORY                                                        COMPASS    18913          I
          -CMP30  
 COMPASS            SA2    X3+B1       READ SYSTEM SYMBOL LENGTH                           COMPASS    18914          I
          -CMP30  
 COMPASS            BX1    X2                                                              COMPASS    18915          I
          -CMP30  
 COMPASS            AX2    18                                                              COMPASS    18916          I
          -CMP30  
 COMPASS            NZ     X2,SYS2     IF ACTUAL TEXT                                      COMPASS    18917          I
          -CMP30  
 COMPASS            SB2    X1+B1       FIND END OF OVERLAY                                 COMPASS    18918          I
          -CMP30  
 COMPASS            SA4    FIELDL                                                          COMPASS    18919          I
          -CMP042   -CMP30  
 COMPASS            SA4    O.ENDTAB                                                        CMP042       284          I
          -CMP30  
 COMPASS            SB3    X4                                                              COMPASS    18920          I
          -CMP30  
 COMPASS            SB2    A2+B2                                                           COMPASS    18921          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1082    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            GE     B2,B3,SYS2  IF BAD SYSTEXT                                      COMPASS    18922          I
          -CMP30  
 COMPASS            NG     B2,SYS2                                                         CMP13          1          I
          -CMP30  
 COMPASS            SA2    B2          MACRO SKELETON LENGTH                               COMPASS    18923          I
          -CMP30  
 COMPASS            SB2    X2+B1                                                           COMPASS    18924          I
          -CMP30  
 COMPASS            SB2    A2+B2                                                           COMPASS    18925          I
          -CMP30  
 COMPASS            GE     B2,B3,SYS2  IF BAD SYSTEXT                                      COMPASS    18926          I
          -CMP30  
 COMPASS            NG     B2,SYS2                                                         CMP13          2          I
          -CMP30  
 COMPASS            SA2    B2          MACRO NAME LENGTH                                   COMPASS    18927          I
          -CMP30  
 COMPASS            SB2    X2+B1                                                           COMPASS    18928          I
          -CMP30  
 COMPASS            SB2    A2+B2                                                           COMPASS    18929          I
          -CMP30  
 COMPASS            GE     B2,B3,SYS2  IF BAD SYSTEXT                                      COMPASS    18930          I
          -CMP30  
 COMPASS            NG     B2,SYS2                                                         CMP13          3          I
          -CMP30  
 COMPASS            SA2    B2          MICRO LENGTH                                        COMPASS    18931          I
          -CMP30  
 COMPASS            SB2    X2+B1                                                           COMPASS    18932          I
          -CMP30  
 COMPASS            SB2    A2+B2       END OF TABLE                                        COMPASS    18933          I
          -CMP30  
 COMPASS            GE     B2,B3,SYS2  IF BAD SYSTEXT                                      COMPASS    18934          I
          -CMP30  
 COMPASS            NG     B2,SYS2                                                         CMP13          4          I
          -CMP30  
 COMPASS            SX6    B2                                                              COMPASS    18935          I
          -CMP30  
 COMPASS            IX6    X6-X3                                                           COMPASS    18936          I
          -CMP30  
 COMPASS            SA6    L.MEMORY                                                        COMPASS    18937          I
          -CMP30  
 COMPASS            MANAGE SSYMS,X1                                                        COMPASS    18938          I
          -CMP30  
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       285          I
          -CMP30  
 COMPASS            SA4    O.MEMORY    LOAD SYSTEM SYMBOLS                                 CMP042       286          I
          -CMP30  
 COMPASS            SA1    L.SSYMS                                                         CMP042       287          I
          -CMP30  
 COMPASS            SA3    O.SSYMS                                                         CMP042       288          I
          -CMP30  
 COMPASS            SX2    X4+2                                                            CMP042       289          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1083    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            ZR     X1,LST0     IF LENGTH IS ZERO                                   CMP042       290          I
          -CMP30  
 COMPASS            RJ     MOVE                                                            CMP042       291          I
          -CMP30  
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       292          I
          -CMP30  
 COMPASS   LST0     SA3    L.SSYMS     REDUCE MEMORY                                       CMP042       293          I
          -CMP30  
 COMPASS            SA4    O.MEMORY                                                        COMPASS    18939          I
          -CMP30  
 COMPASS            SA5    L.MEMORY                                                        COMPASS    18940          I
          -CMP30  
 COMPASS            SX6    X3+2                                                            COMPASS    18941          I
          -CMP30  
 COMPASS            IX7    X4+X6                                                           COMPASS    18942          I
          -CMP30  
 COMPASS            IX6    X5-X6                                                           COMPASS    18943          I
          -CMP30  
 COMPASS            SA7    A4                                                              COMPASS    18944          I
          -CMP30  
 COMPASS            SA6    A5                                                              COMPASS    18945          I
          -CMP30  
 COMPASS            SEG    INITIALIZATION.                                                 CMP30       6031          I
          -CPS064 
 COMPASS   PASS0    RJ     CTM         CHECK MACHINE TYPE                                  CMP30       6032          I
          -CPS064 
 COMPASS                                                                                   CMP30       6033          I
          -CPS028 
 COMPASS            IFNE   TIMEMSG,0,1                                                     CMP30       6034          I
          -CPS028 
 COMPASS            TIME   BTIME       GET ASSEMBLY BATCH START TIME                       CMP30       6035          I
          -CPS064 
 COMPASS                                                                                   CMP30       6036          I
          -CPS028 
 COMPASS            IFNE   CP#IR,0,1                                                       CMP30       6037          I
          -CPS028 
 COMPASS            RJ     SIR         SET INTERFACE REGION                                CMP30       6038          I
          -CPS028 
 COMPASS                                                                                   CMP30       6039          I
          -CPS028 
 COMPASS            SA1    CP.BATCH                                                        CMP30       6040          I
          -CPS064 
 COMPASS            SA2    CP.PAGE                                                         CMP30       6041          I
          -CPS064 
 COMPASS            BX3    X1          SET FMODE = ABS (CP.BATCH)                          CMP30       6042          I
          -CPS064 
 COMPASS            AX1    59                                                              CMP30       6043          I
          -CPS064 
 COMPASS            BX6    X3-X1                                                           CMP30       6044          I
          -CPS064 
 COMPASS            SX7    B0                                                              CMP30       6045          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1084    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            MI     X2,CMP8     IF NOT PROPAGATING PAGE NUMBERS                     CMP30       6046          I
          -CPS064 
 COMPASS            BX7    X2          SET PAGE NUMBER                                     CMP30       6047          I
          -CPS064 
 COMPASS   CMP8     SA6    FMODE                                                           CMP30       6048          I
          -CPS064 
 COMPASS            SA7    PGCNT                                                           CMP30       6049          I
          -CPS064 
 COMPASS            RJ     SFP         SET FILE PARAMETERS                                 CMP30       6050          I
          -CPS064 
 COMPASS            RJ     SFL         SET FIELD LENGTH                                    CMP30       6051          I
          -CPS064 
 COMPASS            RJ     ZLC         ZERO FIRST 100B OF LCM FIELD LENGTH IF ANY          CMP30       6052          I
          -CPS064 
 COMPASS                                                                                   CMP30       6053          I
          -CPS064 
 COMPASS   DEBUG    IFNE   DEBUG,0                                                         CMP30       6054          I
          -CPS064 
 COMPASS            RJ     /DEBUG/RDD  READ DEBUGGING DIRECTIVES                           CMP30       6055          I
          -CPS064 
 COMPASS            SA2    LOCORE                                                          CMP30       6056          I
          -CPS064 
 COMPASS            SA3    CP.NFLS     CLEAR MANAGED TABLE AREA                            CMP30       6057          I
          -CPS064 
 COMPASS            RJ     CLS                                                             CMP30       6058          I
          -CPS064 
 COMPASS   DEBUG    ENDIF                                                                  CMP30       6059          I
          -CPS064 
 COMPASS                                                                                   CMP30       6060          I
          -CPS064 
 COMPASS            SA1    CP.CARD                                                         CMP30       6061          I
          -CPS064 
 COMPASS            NZ     X1,CMP9     IF SOURCE CARD READY                                CMP30       6062          I
          -CPS064 
 COMPASS            MI     X1,CMP9                                                         CMP30       6063          I
          -CPS064 
 COMPASS                                                                                   CMP30       6064          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       6065          I
          -CPS028 
 COMPASS   RM       IFEQ   CP#RM,0                                                S028 750 CPS028       553          I
          -CPS064 
 COMPASS            READ   I           PRIME THE PUMP                                      CMP30       6066          I
          -CPS064 
 COMPASS            ELSE   1                                                               CMP30       6067          I
          -CPS028 
 COMPASS   RM       ELSE                                                          S028 752 CPS028       554          I
          -CPS064 
 COMPASS            OPENM  I,INPUT,N                                                       CMP30       6068          I
          -CPS064 
 COMPASS            SA1    CP.LISTF                                               S028 754 CPS028       555          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1085    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            ZR     X1,CMP9     IF NO LONG LISTING                         S028 755 CPS028       556          I
          -CPS064 
 COMPASS            OPENM  O,OUTPUT,N                                             S028 756 CPS028       557          I
          -CPS064 
 COMPASS   RM       ENDIF                                                         S028 757 CPS028       558          I
          -CPS064 
 COMPASS                                                                                   CMP30       6069          I
          -CPS064 
 COMPASS   CMP9     RJ     IOT         INITIALIZE OPCODE TABLE                             CMP30       6070          I
          -CPS064 
 COMPASS            RJ     LST         LOAD SYSTEM TEXT                                    CMP30       6071          I
          -CPS064 
 COMPASS            RJ     OPF         OPEN FILES                                          CMP30       6072          I
          -CPS064 
 COMPASS            SA1    CP.CARD                                                         CMP30       6073          I
          -CPS064 
 COMPASS            SX2    I                                                               CMP30       6074          I
          -CPS064 
 COMPASS            NZ     X1,CMP1     IF SOURCE CARD READY                                CMP30       6075          I
          -CPS064 
 COMPASS            MI     X1,CMP1                                                         CMP30       6076          I
          -CPS064 
 COMPASS            SA0    A1                                                              CMP30       6077          I
          -CPS064 
 COMPASS            RJ     CIF         CHECK INPUT FORMAT                                  CMP30       6078          I
          -CPS064 
 COMPASS            SA1    EOFINP                                                          CMP30       6079          I
          -CPS064 
 COMPASS            ZR     X1,CMP1     IF INPUT PRESENT                                    CMP30       6080          I
          -CPS064 
 COMPASS            MESSAGE CMPA                                                           CMP30       6081          I
          -CPS010 
 COMPASS            MESSAGE CMPA,,R                                                        CPS010       137          I
          -CPS064 
 COMPASS            EQ     CMP1        EXIT TO PASS1 OF FIRST ASSEMBLY                     CMP30       6082          I
          -CPS064 
 COMPASS                                                                                   CMP30       6083          I
          -CPS064 
 COMPASS   CMPA     DATA   C*  INPUT FILE EMPTY OR MISPOSITIONED.*                         CMP30       6084          I
          -CPS064 
 COMPASS   CTM      SPACE  4                                                               CMP30       6085          I
          -CPS064 
 COMPASS  **        CTM - CHECK MACHINE TYPE.                                              CMP30       6086          I
          -CPS064 
 COMPASS                                                                                   CMP30       6087          I
          -CPS064 
 COMPASS                                                                                   CMP30       6088          I
          -CPS064 
 COMPASS   CTM1     SA1    CTMA                                                            CMP30       6089          I
          -CPS064 
 COMPASS            MX6    -3                                                              CMP30       6090          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1086    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS010 
 COMPASS            BX3    -X6*X2                                                          CMP30       6091          I
          -CPS010 
 COMPASS            SX6    2R70                                                            CMP30       6092          I
          -CPS064 
 COMPASS            IX6    X6+X3                                                           CMP30       6093          I
          -CPS064 
 COMPASS            LX3    12                                                              CMP30       6094          I
          -CPS064 
 COMPASS            IX7    X1+X3                                                           CMP30       6095          I
          -CPS064 
 COMPASS            LX6    48                                                              CMP30       6096          I
          -CPS064 
 COMPASS            SA7    TLINE                                                           CMP30       6097          I
          -CPS064 
 COMPASS            SA6    CP.CPU                                                          CMP30       6098          I
          -CPS064 
 COMPASS                                                                                   CMP30       6099          I
          -CPS064 
 COMPASS   CTM      PS                 RETURN EXIT                                         CMP30       6100          I
          -CPS064 
 COMPASS            MX1    1                                                               CPS010       138          I
          -CPS064 
 COMPASS            SB2    100B                                                            CPS010       139          I
          -CPS064 
 COMPASS            AX1    X1,B2       -0 IF MODEL 76, +0 OTHERWISE                        CPS010       140          I
          -CPS064 
 COMPASS            SX3    6                                                               CPS010       141          I
          -CPS064 
 COMPASS            MI     X1,CTM1     IF MODEL 76                                         CPS010       142          I
          -CPS064 
 COMPASS                                                                                   CPS010       143          I
          -CPS064 
 COMPASS            SX6    0220B       JP B2                                               CMP30       6101          I
          -CPS064 
 COMPASS            SB2    CTM1                                                            CMP30       6102          I
          -CPS064 
 COMPASS            SX2    643B        MODEL NUMBERS                                       CMP30       6103          I
          -CPS010 
 COMPASS            LX6    48                                                              CMP30       6104          I
          -CPS064 
 COMPASS                                                                                   CPS010       144          I
          -CPS064 
 COMPASS   +        SA6    *+1         STORE JUMP INSTRUCTION                              CMP30       6105          I
          -CPS064 
 COMPASS            SX3    3                                                               CPS010       145          I
          -CPS064 
 COMPASS                                                                                   CMP30       6106          I
          -CPS064 
 COMPASS   +        AX2    3           JUMP TO CTM1 IF MODEL 72 OR 73                      CMP30       6107          I
          -CPS010 
 COMPASS            SA6    A6+B1       EXECUTE IF MODEL 74 OR 76                           CMP30       6108          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1087    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS010 
 COMPASS            JP     *+1         VOID STACK IF MODEL 74                              CMP30       6109          I
          -CPS010 
 COMPASS                                                                                   CMP30       6110          I
          -CPS010 
 COMPASS   +        AX2    3           JUMP TO CTM1 IF MODEL 74                            CMP30       6111          I
          -CPS010 
 COMPASS            JP     CTM1        EXECUTE IF MODEL 76                                 CMP30       6112          I
          -CPS010 
 COMPASS   +        SX3    4           JUMP TO CTM1 IF MODEL 72 OR 73                      CPS010       146          I
          -CPS064 
 COMPASS            JP     CTM1        EXECUTE IF MODEL 74                                 CPS010       147          I
          -CPS064 
 COMPASS                                                                                   CMP30       6113          I
          -CPS064 
 COMPASS   CTMA     DATA   H*MODEL 70 A*                                                   CMP30       6114          I
          -CPS064 
 COMPASS   IOT      SPACE  4                                                               CMP30       6115          I
          -CPS064 
 COMPASS  **        IOT - INITIALIZE OPCODE TABLE.                                         CMP30       6116          I
          -CPS064 
 COMPASS                                                                                   CMP30       6117          I
          -CPS064 
 COMPASS                                                                                   CMP30       6118          I
          -CPS064 
 COMPASS   IOT      PS                 RETURN EXIT                                         CMP30       6119          I
          -CPS064 
 COMPASS            MANAGE OPTAB,2*NOPCT     ALLOCATE BASIC TABLE AREA                     CMP30       6120          I
          -CPS064 
 COMPASS            IX3    X2+X3                                                           CMP30       6121          I
          -CPS064 
 COMPASS            RJ     CLS         CLEAR IT                                            CMP30       6122          I
          -CPS064 
 COMPASS            SX6    LGOPS-2                                                         CMP30       6123          I
          -CPS064 
 COMPASS            SA3    EXVAL                                                           CMP30       6124          I
          -CPS064 
 COMPASS   IOT1     SA1    OPS+X6      GET NEXT ENTRY                                      CMP30       6125          I
          -CPS064 
 COMPASS            SA2    A1+B1                                                           CMP30       6126          I
          -CPS064 
 COMPASS            SA6    A3                                                              CMP30       6127          I
          -CPS064 
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CMP30       6128          I
          -CPS064 
 COMPASS            SA3    EXVAL                                                           CMP30       6129          I
          -CPS064 
 COMPASS            SX6    X3-2                                                            CMP30       6130          I
          -CPS064 
 COMPASS            PL     X6,IOT1     LOOP                                                CMP30       6131          I
          -CPS064 
 COMPASS            EQ     IOT         RETURN                                              CMP30       6132          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1088    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   LGT      SPACE  4                                                               CMP30       6133          I
          -CPS064 
 COMPASS  **        LGT - LOAD SYSTEM TEXT FROM A NON-LIBRARY FILE.                        CMP30       6134          I
          -CPS064 
 COMPASS  *         ENTRY  (X7) = SYSTEM TEXT ORDINAL.                                     CMP30       6135          I
          -CPS064 
 COMPASS  *                (X1) = OVERLAY NAME.                                            CMP30       6136          I
          -CPS064 
 COMPASS  *                (X2) = BITS 17-00 OF (X1).                                      CMP30       6137          I
          -CPS064 
 COMPASS  *         EXIT   (X0) = 0 IF TEXT LOADED.                                        CMP30       6138          I
          -CPS064 
 COMPASS                                                                                   CMP30       6139          I
          -CPS064 
 COMPASS                                                                                   CMP30       6140          I
          -CPS064 
 COMPASS   LGT      PS                 RETURN EXIT                                         CMP30       6141          I
          -CPS064 
 COMPASS                                                                                   CMP30       6142          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6143          I
          -CPS064 
 COMPASS                                                                                   CMP30       6144          I
          -CPS064 
 COMPASS            SA3    CP.LIB+X7                                                       CMP30       6145          I
          -CPS064 
 COMPASS            SX4    3                                                               CMP30       6146          I
          -CPS064 
 COMPASS            BX6    X1-X2                                                           CMP30       6147          I
          -CPS064 
 COMPASS            IX7    X3+X4                                                           CMP30       6148          I
          -CPS064 
 COMPASS            SA6    EXVAL       SAVE OVERLAY NAME                                   CMP30       6149          I
          -CPS064 
 COMPASS            SA7    G           STORE FILE NAME IN FET                              CMP30       6150          I
          -CPS064 
 COMPASS            REWIND G                                                               CMP30       6151          I
          -CPS064 
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CMP30       6152          I
          -CPS064 
 COMPASS            SA1    O.MEMORY                                                        CMP30       6153          I
          -CPS064 
 COMPASS            SA2    O.ENDTAB                                                        CMP30       6154          I
          -CPS064 
 COMPASS            SX0    X1          PRESET FAILURE RETURN                               CMP30       6155          I
          -CPS064 
 COMPASS            IX6    X2-X1                                                           CMP30       6156          I
          -CPS064 
 COMPASS            SA0    X6          AVAILABLE MEMORY                                    CMP30       6157          I
          -CPS064 
 COMPASS   LGT1     READ   G                                                               CMP30       6158          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1089    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   LGT2     READW  G,X0,1      READ 7700 TABLE                                     CMP30       6159          I
          -CPS064 
 COMPASS            MI     X1,LGT      IF EOF                                              CMP30       6160          I
          -CPS064 
 COMPASS            NZ     X1,LGT1     IF EOR                                              CMP30       6161          I
          -CPS064 
 COMPASS            SA2    X0                                                              CMP30       6162          I
          -CPS064 
 COMPASS            LX2    18                                                              CMP30       6163          I
          -CPS064 
 COMPASS            SX6    X2-770000B                                                      CMP30       6164          I
          -CPS064 
 COMPASS            ZR     X6,LGT4     IF 7700 TABLE                                       CMP30       6165          I
          -CPS064 
 COMPASS   LGT3     READW  G,X0,A0     SKIP TO EOR                                         CMP30       6166          I
          -CPS064 
 COMPASS            ZR     X1,LGT3                                                         CMP30       6167          I
          -CPS064 
 COMPASS            EQ     LGT1        TRY NEXT RECORD                                     CMP30       6168          I
          -CPS064 
 COMPASS   LGT4     LX2    6                                                               CMP30       6169          I
          -CPS064 
 COMPASS            SX5    X2-1                                                            CMP30       6170          I
          -CPS064 
 COMPASS            MI     X5,LGT3     IF ZERO-LENGTH TABLE                                CMP30       6171          I
          -CPS064 
 COMPASS            READW  G,X0,1      GET RECORD NAME                                     CMP30       6172          I
          -CPS064 
 COMPASS            SA1    EXVAL                                                           CMP30       6173          I
          -CPS064 
 COMPASS            SA2    X0                                                              CMP30       6174          I
          -CPS064 
 COMPASS            BX6    X1-X2                                                           CMP30       6175          I
          -CPS064 
 COMPASS            ZR     X1,LGT5     IF NO OVERLAY NAME SPECIFIED                        CMP30       6176          I
          -CPS064 
 COMPASS            NZ     X6,LGT3     IF WRONG NAME                                       CMP30       6177          I
          -CPS064 
 COMPASS   LGT5     READW  G,X0,1                                                          CMP30       6178          I
          -CPS064 
 COMPASS            SX5    X5-1        SKIP 7700 TABLE                                     CMP30       6179          I
          -CPS064 
 COMPASS            PL     X5,LGT5                                                         CMP30       6180          I
          -CPS064 
 COMPASS            SA1    X0          CHECK OVERLAY HEADER                                CMP30       6181          I
          -CPS064 
 COMPASS            SA2    =50000101BS36                                                   CMP30       6182          I
          -CPS064 
 COMPASS            BX6    X1-X2                                                           CMP30       6183          I
          -CPS064 
 COMPASS            NZ     X6,LGT3     IF NOT A (1,1) OVERLAY                              CMP30       6184          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1090    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            READW  G,X0+B1,A0-B1     READ REMAINDER OF OVERLAY                     CMP30       6185          I
          -CPS064 
 COMPASS                                                                                   CMP30       6186          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6187          I
          -CPS064 
 COMPASS                                                                                   CMP30       6188          I
          -CPS064 
 COMPASS            SA3    CP.LIB+X7                                                       CMP30       6189          I
          -CPS064 
 COMPASS            BX6    X1-X2                                                           CMP30       6190          I
          -CPS064 
 COMPASS            LX7    X3                                                              CMP30       6191          I
          -CPS064 
 COMPASS            SA6    EXVAL       SAVE OVERLAY NAME                                   CMP30       6192          I
          -CPS064 
 COMPASS            SA7    GDUM        STORE FILE NAME IN FIT                              CMP30       6193          I
          -CPS064 
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CMP30       6194          I
          -CPS064 
 COMPASS            SX1    LGDUM                                                           CMP30       6195          I
          -CPS064 
 COMPASS            SX2    GDUM                                                            CMP30       6196          I
          -CPS064 
 COMPASS            SX3    G           RE-INITIALIZE FIT                                   CMP30       6197          I
          -CPS064 
 COMPASS            RJ     MOVE                                                            CMP30       6198          I
          -CPS064 
 COMPASS            SA1    O.MEMORY                                                        CMP30       6199          I
          -CPS064 
 COMPASS            SA2    O.ENDTAB                                                        CMP30       6200          I
          -CPS064 
 COMPASS            IX3    X2-X1       AVAILABLE WORDS                                     CMP30       6201          I
          -CPS064 
 COMPASS            IX4    X3+X3                                                           CMP30       6202          I
          -CPS064 
 COMPASS            LX3    3           MULTIPLY BY 10                                      CMP30       6203          I
          -CPS064 
 COMPASS            IX4    X3+X4                                                           CMP30       6204          I
          -CPS064 
 COMPASS            STORE  G,MRL=X4    SET MAXIMUM RECORD LENGTH                           CMP30       6205          I
          -CPS064 
 COMPASS            STORE  G,WSA=X1    WORKING STORAGE ADDRESS                             CMP30       6206          I
          -CPS064 
 COMPASS            STORE  G,DX=LGT8   END OF DATA EXIT                                    CMP30       6207          I
          -CPS064 
 COMPASS            OPENM  G,INPUT,R   OPEN THE FILE WITH REWIND                           CMP30       6208          I
          -CPS064 
 COMPASS            FETCH  G,RT,X2                                                         CMP30       6209          I
          -CPS064 
 COMPASS            SB7    X2-#ST#                                                         CMP30       6210          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1091    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SX6    #EOS#                                                           CMP30       6211          I
          -CPS064 
 COMPASS   +        NZ     B7,*+1      IF NOT *S* RECORDS                                  CMP30       6212          I
          -CPS064 
 COMPASS            SX6    X6+#EOR#                                                        CMP30       6213          I
          -CPS064 
 COMPASS            SA6    G-1                                                             CMP30       6214          I
          -CPS064 
 COMPASS                                                                                   CMP30       6215          I
          -CPS064 
 COMPASS   LGT1     GETP   G,,10       GET FIRST WORD OF SECTION                           CMP30       6216          I
          -CPS064 
 COMPASS            SA1    O.MEMORY                                                        CMP30       6217          I
          -CPS064 
 COMPASS            SA2    X1                                                              CMP30       6218          I
          -CPS064 
 COMPASS            LX2    18                                                              CMP30       6219          I
          -CPS064 
 COMPASS            SX6    X2-770000B                                                      CMP30       6220          I
          -CPS064 
 COMPASS            ZR     X6,LGT5     IF 7700 TABLE                                       CMP30       6221          I
          -CPS064 
 COMPASS   LGT2     GETP   G,,10       SKIP REST OF RECORD                                 CMP30       6222          I
          -CPS064 
 COMPASS   LGT3     FETCH  G,FP,X2                                                         CMP30       6223          I
          -CPS064 
 COMPASS            SX0    #EOI#+#EOP#                                                     CMP30       6224          I
          -CPS064 
 COMPASS            BX3    X0*X2                                                           CMP30       6225          I
          -CPS064 
 COMPASS            SA1    G-1                                                             CMP30       6226          I
          -CPS064 
 COMPASS            NZ     X3,LGT4     IF EOI OR EOF                                       CMP30       6227          I
          -CPS064 
 COMPASS            BX4    X1*X2                                                           CMP30       6228          I
          -CPS064 
 COMPASS            ZR     X4,LGT2     IF NOT END OF SECTION                               CMP30       6229          I
          -CPS064 
 COMPASS            EQ     LGT1                                                            CMP30       6230          I
          -CPS064 
 COMPASS   LGT4     CLOSEM G,R         CLOSE WITH REWIND                                   CMP30       6231          I
          -CPS064 
 COMPASS            SX0    B1          INDICATE FAILURE                                    CMP30       6232          I
          -CPS064 
 COMPASS            EQ     LGT         RETURN                                              CMP30       6233          I
          -CPS064 
 COMPASS   LGT5     LX2    6                                                               CMP30       6234          I
          -CPS064 
 COMPASS            SX7    X2          WORD COUNT                                          CMP30       6235          I
          -CPS064 
 COMPASS            IX0    X7+X7                                                           CMP30       6236          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1092    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            LX7    3           MULTIPLY BY 10                                      CMP30       6237          I
          -CPS064 
 COMPASS            IX4    X0+X7                                                           CMP30       6238          I
          -CPS064 
 COMPASS            GETP   G,,X4       SKIP THE 7700 TABLE                                 CMP30       6239          I
          -CPS064 
 COMPASS            SA1    EXVAL                                                           CMP30       6240          I
          -CPS064 
 COMPASS            SA2    O.MEMORY                                                        CMP30       6241          I
          -CPS064 
 COMPASS            ZR     X1,LGT6     IF NO OVERLAY NAME SPECIFIED                        CMP30       6242          I
          -CPS064 
 COMPASS            SA3    X2                                                              CMP30       6243          I
          -CPS064 
 COMPASS            BX6    X3-X1                                                           CMP30       6244          I
          -CPS064 
 COMPASS            NZ     X6,LGT2     IF WRONG NAME                                       CMP30       6245          I
          -CPS064 
 COMPASS   LGT6     GETP   G,,10       READ 5000 TABLE                                     CMP30       6246          I
          -CPS064 
 COMPASS            SA3    O.MEMORY                                                        CMP30       6247          I
          -CPS064 
 COMPASS            SA2    =50000101BS36                                                   CMP30       6248          I
          -CPS064 
 COMPASS            SA1    X3                                                              CMP30       6249          I
          -CPS064 
 COMPASS            BX6    X1-X2                                                           CMP30       6250          I
          -CPS064 
 COMPASS            NZ     X6,LGT2     IF NOT A (1,1) OVERLAY                              CMP30       6251          I
          -CPS064 
 COMPASS            SX3    X3+B1                                                           CMP30       6252          I
          -CPS064 
 COMPASS            SX4    10                                                              CMP30       6253          I
          -CPS064 
 COMPASS            STORE  G,DX=LGT9   SET NEW DATA EXIT                                   CMP30       6254          I
          -CPS064 
 COMPASS            STORE  G,WSA=X3                                                        CMP30       6255          I
          -CPS064 
 COMPASS            FETCH  G,MRL,X2                                                        CMP30       6256          I
          -CPS064 
 COMPASS            IX1    X2-X4                                                           CMP30       6257          I
          -CPS064 
 COMPASS            STORE  G,MRL=X1                                                        CMP30       6258          I
          -CPS064 
 COMPASS            GETP   G,,X1       GET REMAINDER OF FIRST RECORD                       CMP30       6259          I
          -CPS064 
 COMPASS            FETCH  G,FP,X1                                                         CMP30       6260          I
          -CPS064 
 COMPASS            SX0    #EOR#                                                           CMP30       6261          I
          -CPS064 
 COMPASS            BX6    X0*X1                                                           CMP30       6262          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1093    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            ZR     X6,LGT9+1   IF NOT AT END OF RECORD                             CMP30       6263          I
          -CPS064 
 COMPASS            FETCH  G,PTL,X2                                                        CMP30       6264          I
          -CPS064 
 COMPASS   LGT7     SX1    1S20/10+1                                                       CMP30       6265          I
          -CPS064 
 COMPASS            BX4    X2          RECORD LENGTH IN CHARACTERS                         CMP30       6266          I
          -CPS064 
 COMPASS            IX3    X1*X2                                                           CMP30       6267          I
          -CPS064 
 COMPASS            AX3    20          RECORD LENGTH IN WORDS                              CMP30       6268          I
          -CPS064 
 COMPASS            FETCH  G,WSA,X1                                                        CMP30       6269          I
          -CPS064 
 COMPASS            IX3    X1+X3       ADJUST WSA FOR NEXT GET                             CMP30       6270          I
          -CPS064 
 COMPASS            STORE  G,WSA=X3                                                        CMP30       6271          I
          -CPS064 
 COMPASS            FETCH  G,MRL,X2                                                        CMP30       6272          I
          -CPS064 
 COMPASS            IX1    X2-X4       REDUCE MRL                                          CMP30       6273          I
          -CPS064 
 COMPASS            MI     X1,LGT9+1   IF NO MORE ROOM                                     CMP30       6274          I
          -CPS064 
 COMPASS            STORE  G,MRL=X1                                                        CMP30       6275          I
          -CPS064 
 COMPASS            GET    G           READ MORE OF SYSTEXT                                CMP30       6276          I
          -CPS064 
 COMPASS            FETCH  G,RL,X2                                                         CMP30       6277          I
          -CPS064 
 COMPASS            EQ     LGT7        LOOP                                                CMP30       6278          I
          -CPS064 
 COMPASS                                                                                   CMP30       6279          I
          -CPS064 
 COMPASS   LGT8     PS                 DATA EXIT FOR SKIPPING TO END OF SECTION            CMP30       6280          I
          -CPS064 
 COMPASS            EQ     LGT3        PROCESS OF END OF DATA                              CMP30       6281          I
          -CPS064 
 COMPASS                                                                                   CMP30       6282          I
          -CPS064 
 COMPASS   LGT9     PS                 DATA EXIT FOR READING OVERLAY                       CMP30       6283          I
          -CPS064 
 COMPASS            SA2    G-1                                                             CMP30       6284          I
          -CPS064 
 COMPASS            FETCH  G,FP,X1                                                         CMP30       6285          I
          -CPS064 
 COMPASS            SX0    #EOI#+#EOP#+X2                                                  CMP30       6286          I
          -CPS064 
 COMPASS            BX6    X0*X1                                                           CMP30       6287          I
          -CPS064 
 COMPASS            SA6    EXVAL                                                           CMP30       6288          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1094    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CLOSEM G,R         CLOSE THE FILE                                      CMP30       6289          I
          -CPS064 
 COMPASS            SA1    EXVAL                                                           CMP30       6290          I
          -CPS064 
 COMPASS                                                                                   CMP30       6291          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6292          I
          -CPS064 
 COMPASS                                                                                   CMP30       6293          I
          -CPS064 
 COMPASS            SX0    B0                                                              CMP30       6294          I
          -CPS064 
 COMPASS            NZ     X1,LGT      RETURN IF ALL OF OVERLAY READ                       CMP30       6295          I
          -CPS064 
 COMPASS            EQ     LST7A       INSUFFICIENT STORAGE FOR SYSTEM TEXT                CMP30       6296          I
          -CPS064 
 COMPASS                                                                                   CMP30       6297          I
          -CPS064 
 COMPASS                                                                                   CMP30       6298          I
          -CPS064 
 COMPASS  **        FET/FIT FOR SYSTEM TEXT LOADING FROM FILES.                            CMP30       6299          I
          -CPS064 
 COMPASS                                                                                   CMP30       6300          I
          -CPS064 
 COMPASS                                                                                   CMP30       6301          I
          -CPS064 
 COMPASS   GET      FET    ,,SBUFL,3                                                       CMP30       6302          I
          -CPS064 
 COMPASS                                                                                   CMP30       6303          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6304          I
          -CPS064 
 COMPASS   G        EQU    GET                                                             CMP30       6305          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6306          I
          -CPS064 
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       6307          I
          -CPS028 
 COMPASS   G        FILE   FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=GET,BFS=SBUFL                   CMP30       6308          I
          -CPS028 
 COMPASS            SKIP   1                                                               CMP30       6309          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 759 CPS028       559          I
          -CPS064 
 COMPASS   G        FILE   FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=GET,BFS=SBUFL,ERL=1    S028 760 CPS028       560          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,7,1                                              S028 761 CPS028       561          I
          -CPS064 
 COMPASS   G        FILE   FO=SQ,BT=,RT=W,CM=NO,PD=INPUT                                   CMP30       6310          I
          -CPS064 
 COMPASS            BSSZ   GET+40B-*                                                       CMP30       6311          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1095    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS                                                                                   CMP30       6312          I
          -CPS064 
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       6313          I
          -CPS028 
 COMPASS   GDUM     FILE   FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=GET,BFS=SBUFL                   CMP30       6314          I
          -CPS028 
 COMPASS            SKIP   1                                                               CMP30       6315          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 763 CPS028       562          I
          -CPS064 
 COMPASS   GDUM     FILE   FO=SQ,BT=C,RT=S,CM=NO,LT=UL,FET=GET,BFS=SBUFL,ERL=1    S028 764 CPS028       563          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,7,1                                              S028 765 CPS028       564          I
          -CPS064 
 COMPASS   GDUM     FILE   FO=SQ,BT=,RT=W,CM=NO,PD=INPUT                                   CMP30       6316          I
          -CPS064 
 COMPASS   LGDUM    EQU    *-GDUM                                                          CMP30       6317          I
          -CPS064 
 COMPASS                                                                                   CMP30       6318          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6319          I
          -CPS064 
 COMPASS   LLT      SPACE  4                                                               CMP30       6320          I
          -CPS064 
 COMPASS  **        LLT - LOAD LIBRARY TEXT.                                               CMP30       6321          I
          -CPS064 
 COMPASS  *         ENTRY  (X7) = SYSTEM TEXT ORDINAL.                                     CMP30       6322          I
          -CPS064 
 COMPASS  *                (X1) = OVERLAY NAME.                                            CMP30       6323          I
          -CPS064 
 COMPASS  *         EXIT   (X0) = 0 IF TEXT LOADED.                                        CMP30       6324          I
          -CPS064 
 COMPASS                                                                                   CMP30       6325          I
          -CPS064 
 COMPASS                                                                                   CMP30       6326          I
          -CPS064 
 COMPASS   LLT      PS                 RETURN EXIT                                         CMP30       6327          I
          -CPS064 
 COMPASS            SA3    CP.LIB+X7                                                       CMP30       6328          I
          -CPS064 
 COMPASS            BX6    X1                                                              CMP30       6329          I
          -CPS064 
 COMPASS            LX7    X3                                                              CMP30       6330          I
          -CPS064 
 COMPASS            SA6    LLTA        OVERLAY NAME                                        CMP30       6331          I
          -CPS064 
 COMPASS            SA7    LLTA+2      LIBRARY NAME                                        CMP30       6332          I
          -CPS064 
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CMP30       6333          I
          -CPS064 
 COMPASS            SA1    LLTA+2                                                          CMP30       6334          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1096    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SX5    0101014B                                                        CMP30       6335          I
          -CPS064 
 COMPASS            ZR     X1,LLT1     IF NO LIBRARY NAME SPECIFIED                        CMP30       6336          I
          -CPS064 
 COMPASS            SA2    LLTA                                                            CMP30       6337          I
          -CPS064 
 COMPASS            BX6    X1                                                              CMP30       6338          I
          -CPS064 
 COMPASS            LX7    X2                                                              CMP30       6339          I
          -CPS064 
 COMPASS            SX5    0101214B    SET 3-WORD REQUEST                                  CMP30       6340          I
          -CPS064 
 COMPASS            SA6    A2                                                              CMP30       6341          I
          -CPS064 
 COMPASS            SA7    A1                                                              CMP30       6342          I
          -CPS064 
 COMPASS   LLT1     SA1    O.ENDTAB    SETUP SECOND WORD OF REQUEST                        CMP30       6343          I
          -CPS064 
 COMPASS            SA2    O.MEMORY                                                        CMP30       6344          I
          -CPS064 
 COMPASS            LX5    39                                                              CMP30       6345          I
          -CPS064 
 COMPASS            LX1    18                                                              CMP30       6346          I
          -CPS064 
 COMPASS            BX3    X5+X2                                                           CMP30       6347          I
          -CPS064 
 COMPASS            SX6    B0                                                              CMP30       6348          I
          -CPS064 
 COMPASS            BX7    X3+X1                                                           CMP30       6349          I
          -CPS064 
 COMPASS            SA6    RA.LDR      CLEAR REPLY WORD                                    CMP30       6350          I
          -CPS064 
 COMPASS            SA7    LLTA+1                                                          CMP30       6351          I
          -CPS064 
 COMPASS            LOADREQ LLTA       REQUEST OVERLAY LOAD                                CMP30       6352          I
          -CPS064 
 COMPASS                                                                                   CMP30       6353          I
          -CPS064 
 COMPASS            IFC    GE, "MODEL" 75 ,1                                               CMP30       6354          I
          -CPS028 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6355          I
          -CPS028 
 COMPASS   RM       IFNE   CP#RM,7                                                S028 767 CPS028       565          I
          -CPS064 
 COMPASS   LLT2     RECALL             WAIT FOR LOADER                                     CMP30       6356          I
          -CPS064 
 COMPASS            SA4    RA.LDR                                                          CMP30       6357          I
          -CPS064 
 COMPASS            ZR     X4,LLT2                                                         CMP30       6358          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6359          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1097    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS                                                                                   CMP30       6360          I
          -CPS064 
 COMPASS            SA1    LLTA+1                                                          CMP30       6361          I
          -CPS064 
 COMPASS            SA2    A1-B1                                                           CMP30       6362          I
          -CPS064 
 COMPASS            SX0    B1                                                              CMP30       6363          I
          -CPS064 
 COMPASS            LX1    -36         GET FATAL ERROR FLAG                                CMP30       6364          I
          -CPS064 
 COMPASS            SX6    X2-9                                                            CMP30       6365          I
          -CPS064 
 COMPASS            BX0    X0*X1                                                           CMP30       6366          I
          -CPS064 
 COMPASS            ZR     X6,LST7A    IF INSUFFICIENT STORAGE                             CMP30       6367          I
          -CPS064 
 COMPASS            EQ     LLT         RETURN                                              CMP30       6368          I
          -CPS064 
 COMPASS                                                                                   CMP30       6369          I
          -CPS064 
 COMPASS   LLTA     BSS    3           LOADER PARAMETER LIST                               CMP30       6370          I
          -CPS064 
 COMPASS   LST      SPACE  4                                                               CMP30       6371          I
          -CPS064 
 COMPASS  **        LST - LOAD SYSTEM TEXT.                                                CMP30       6372          I
          -CPS064 
 COMPASS                                                                                   CMP30       6373          I
          -CPS064 
 COMPASS                                                                                   CMP30       6374          I
          -CPS064 
 COMPASS   LST      PS                 RETURN EXIT                                         CMP30       6375          I
          -CPS064 
 COMPASS            SA1    CP.STEXT                                                        CMP30       6376          I
          -CPS064 
 COMPASS            SA2    CP.LIB      CHECK FOR *S=0*                                     CMP30       6377          I
          -CPS064 
 COMPASS            SX7    B1                                                              CMP30       6378          I
          -CPS064 
 COMPASS            NZ     X1,LST1     IF SYSTEM TEXT(S) SPECIFIED                         CMP30       6379          I
          -CPS064 
 COMPASS            BX6    X2                                                              CMP30       6380          I
          -CPS064 
 COMPASS            ZR     X2,LST6A    IF NONE AT ALL                                      CMP30       6381          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6382          I
          -CPS064 
 COMPASS   LST1     SA7    A2          STORE SYSTEM TEXT ORDINAL                           CMP30       6383          I
          -CPS064 
 COMPASS            SA1    CP.STEXT+X7                                                     CMP30       6384          I
          -CPS064 
 COMPASS            SX2    X1                                                              CMP30       6385          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1098    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            ZR     X2,LST1A    IF *S* ARGUMENT                                     CMP30       6386          I
          -CPS064 
 COMPASS            RJ     LGT         LOAD FROM FILE (*G* ARGUMENT)                       CMP30       6387          I
          -CPS064 
 COMPASS            EQ     LST1B                                                           CMP30       6388          I
          -CPS064 
 COMPASS   LST1A    RJ     LLT         LOAD LIBRARY TEXT                                   CMP30       6389          I
          -CPS064 
 COMPASS   LST1B    NZ     X0,LST7     IF NOT LOADED                                       CMP30       6390          I
          -CPS064 
 COMPASS            SA3    O.MEMORY                                                        CMP30       6391          I
          -CPS064 
 COMPASS            SA2    X3+B1       SYSTEM SYMBOL TABLE LENGTH                          CMP30       6392          I
          -CPS064 
 COMPASS            BX1    X2                                                              CMP30       6393          I
          -CPS064 
 COMPASS            AX2    18          VERIFY SYSTEXT FORMAT                               CMP30       6394          I
          -CPS064 
 COMPASS            SB2    X1+B1                                                           CMP30       6395          I
          -CPS064 
 COMPASS            NZ     X2,LST8     IF BAD SYSTEXT                                      CMP30       6396          I
          -CPS064 
 COMPASS            SA4    O.ENDTAB                                                        CMP30       6397          I
          -CPS064 
 COMPASS            SB3    X4          FIND END OF OVERLAY                                 CMP30       6398          I
          -CPS064 
 COMPASS            SB2    A2+B2                                                           CMP30       6399          I
          -CPS064 
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CMP30       6400          I
          -CPS064 
 COMPASS            MI     B2,LST8                                                         CMP30       6401          I
          -CPS064 
 COMPASS            SA2    B2          SYSTEM MICRO TABLE LENGTH                           CMP30       6402          I
          -CPS064 
 COMPASS            SB2    X2+B1                                                           CMP30       6403          I
          -CPS064 
 COMPASS            SB2    A2+B2                                                           CMP30       6404          I
          -CPS064 
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CMP30       6405          I
          -CPS064 
 COMPASS            MI     B2,LST8                                                         CMP30       6406          I
          -CPS064 
 COMPASS            SA2    B2          SYSTEM MACRO DEFINITION TABLE LENGTH                CMP30       6407          I
          -CPS064 
 COMPASS            SB2    X2+B1                                                           CMP30       6408          I
          -CPS064 
 COMPASS            SB2    A2+B2                                                           CMP30       6409          I
          -CPS064 
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CMP30       6410          I
          -CPS064 
 COMPASS            MI     B2,LST8                                                         CMP30       6411          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1099    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA2    B2          SYSTEM OPCODE TABLE LENGTH                          CMP30       6412          I
          -CPS064 
 COMPASS            SB2    X2+B1                                                           CMP30       6413          I
          -CPS064 
 COMPASS            SB2    A2+B2                                                           CMP30       6414          I
          -CPS064 
 COMPASS            GE     B2,B3,LST8  IF BAD SYSTEXT                                      CMP30       6415          I
          -CPS064 
 COMPASS            MI     B2,LST8                                                         CMP30       6416          I
          -CPS064 
 COMPASS            SX6    B2          LWA+1 OF OVERLAY                                    CMP30       6417          I
          -CPS064 
 COMPASS            IX6    X6-X3                                                           CMP30       6418          I
          -CPS064 
 COMPASS            SA6    L.MEMORY                                                        CMP30       6419          I
          -CPS064 
 COMPASS            MANAGE SSYMS,X1    ALLOCATE SYSTEM SYMBOL TABLE                        CMP30       6420          I
          -CPS064 
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP30       6421          I
          -CPS064 
 COMPASS            SA2    CP.LIB                                                          CMP30       6422          I
          -CPS064 
 COMPASS            SA3    O.MEMORY                                                        CMP30       6423          I
          -CPS064 
 COMPASS            SA4    L.SSYMS                                                         CMP30       6424          I
          -CPS064 
 COMPASS            SA1    O.SSYMS                                                         CMP30       6425          I
          -CPS064 
 COMPASS            LX2    36          POSITION SYSTEM TEXT ORDINAL                        CMP30       6426          I
          -CPS064 
 COMPASS            SA5    X3+B1                                                           CMP30       6427          I
          -CPS064 
 COMPASS            SB2    B1+B1                                                           CMP30       6428          I
          -CPS064 
 COMPASS            SB4    A5+B1                                                           CMP30       6429          I
          -CPS064 
 COMPASS            SB5    X5-2        NUMBER OF SYMBOLS * 2 - 2                           CMP30       6430          I
          -CPS064 
 COMPASS            IX6    X4-X5                                                           CMP30       6431          I
          -CPS064 
 COMPASS            SB3    X6                                                              CMP30       6432          I
          -CPS064 
 COMPASS            SB6    X1+B3                                                           CMP30       6433          I
          -CPS064 
 COMPASS            EQ     LST2A                                                           CMP30       6434          I
          -CPS064 
 COMPASS   LST2     LX6    X4          STORE NEW SYMBOL                                    CMP30       6435          I
          -CPS064 
 COMPASS            SA6    B6                                                              CMP30       6436          I
          -CPS064 
 COMPASS            SA7    B6+B1                                                           CMP30       6437          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1100    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SB6    B6+B2                                                           CMP30       6438          I
          -CPS064 
 COMPASS   LST2A    MI     B5,LST2C    IF END OF TABLE                                     CMP30       6439          I
          -CPS064 
 COMPASS            SA4    B4                                                              CMP30       6440          I
          -CPS064 
 COMPASS            SA5    B4+B1       GET NEXT SYMBOL                                     CMP30       6441          I
          -CPS064 
 COMPASS            SB4    B4+B2                                                           CMP30       6442          I
          -CPS064 
 COMPASS            SB5    B5-B2                                                           CMP30       6443          I
          -CPS064 
 COMPASS            SB7    B3-B2                                                           CMP30       6444          I
          -CPS064 
 COMPASS            BX7    X5+X2                                                           CMP30       6445          I
          -CPS064 
 COMPASS   LST2B    SA3    X1+B7       CHECK FOR DUPLICATE SYMBOL                          CMP30       6446          I
          -CPS064 
 COMPASS            MI     B7,LST2     IF NOT FOUND                                        CMP30       6447          I
          -CPS064 
 COMPASS            BX0    X4-X3                                                           CMP30       6448          I
          -CPS064 
 COMPASS            SB7    B7-B2                                                           CMP30       6449          I
          -CPS064 
 COMPASS            NZ     X0,LST2B    LOOP                                                CMP30       6450          I
          -CPS064 
 COMPASS            SA7    A3+B1       REDEFINE SYMBOL                                     CMP30       6451          I
          -CPS064 
 COMPASS            EQ     LST2A                                                           CMP30       6452          I
          -CPS064 
 COMPASS   LST2C    SX6    B6          REDUCE SSYMS LENGTH IF ANY                          CMP30       6453          I
          -CPS064 
 COMPASS            IX7    X6-X1       DUPLICATE SYMBOLS WERE FOUND                        CMP30       6454          I
          -CPS064 
 COMPASS            SA7    L.SSYMS                                                         CMP30       6455          I
          -CPS064 
 COMPASS            SA1    L.MEMORY                                                        CMP30       6456          I
          -CPS064 
 COMPASS            SA2    O.MEMORY    REDUCE MEMORY                                       CMP30       6457          I
          -CPS064 
 COMPASS            SX7    B4                                                              CMP30       6458          I
          -CPS064 
 COMPASS            IX3    X1+X2                                                           CMP30       6459          I
          -CPS064 
 COMPASS            IX6    X3-X7                                                           CMP30       6460          I
          -CPS064 
 COMPASS            SA7    A2                                                              CMP30       6461          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6462          I
          -CPS064 
 COMPASS            SA1    X7                                                              CMP042       294          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1101    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            MANAGE MACDEF,X1                                                       CMP042       295          I
          -CMP043 
 COMPASS            SA4    O.MEMORY    LOAD MACRO DEFINITION SKELETONS                     CMP042       296          I
          -CMP043 
 COMPASS            MANAGE SYSMIC,X1                                                       CMP043       151          I
          -CPS064 
 COMPASS            SA4    O.MEMORY    LOAD SYSTEM MICROS                                  CMP043       152          I
          -CPS064 
 COMPASS            SX1    X3                                                              COMPASS    18946          I
          -CMP30  
 COMPASS            SX3    X2                                                              COMPASS    18947          I
          -CMP30  
 COMPASS            SA1    X4                                                              CMP30       6463          I
          -CPS064 
 COMPASS            IX3    X2+X3                                                           CMP30       6464          I
          -CPS064 
 COMPASS            ZR     X1,LST3     IF LENGTH IS ZERO                                   CMP30       6465          I
          -CPS064 
 COMPASS            SX2    X4+2                                                            COMPASS    18948          I
          -CMP042 
 COMPASS            SX2    X4+B1                                                           CMP042       297          I
          -CPS064 
 COMPASS            ZR     X3,LST1     IF LENGTH IS 0                                      COMPASS    18949          I
          -CMP3   
 COMPASS            ZR     X1,LST1     IF LENGTH IS ZERO                                   CMP3           1          I
          -CMP30  
 COMPASS            IX3    X3-X1                                                           CMP30       6466          I
          -CPS064 
 COMPASS            RJ     MOVE                                                            COMPASS    18950          I
          -CPS064 
 COMPASS   LST1     SA2    O.MEMORY    LOAD MACRO SKELETONS                                COMPASS    18951          I
          -CMP042 
 COMPASS            SA1    X2                                                              COMPASS    18952          I
          -CMP042 
 COMPASS            MANAGE MACDEF,X1                                                       COMPASS    18953          I
          -CMP042 
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       298          I
          -CPS064 
 COMPASS   LST1     SA3    L.MACDEF    REDUCE MEMORY                                       CMP042       299          I
          -CMP043 
 COMPASS   LST1     SA3    L.SYSMIC    REDUCE MEMORY                                       CMP043       153          I
          -CMP30  
 COMPASS            SA4    O.MEMORY                                                        COMPASS    18954          I
          -CMP30  
 COMPASS   LST3     SA4    O.MEMORY    REDUCE MEMORY                                       CMP30       6467          I
          -CPS064 
 COMPASS            SA5    L.MEMORY                                                        COMPASS    18955          I
          -CPS064 
 COMPASS            SA3    X4                                                              CMP30       6468          I
          -CPS064 
 COMPASS            SX6    X3+B1                                                           COMPASS    18956          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1102    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            IX7    X4+X6                                                           COMPASS    18957          I
          -CPS064 
 COMPASS            IX6    X5-X6                                                           COMPASS    18958          I
          -CPS064 
 COMPASS            SA7    A4                                                              COMPASS    18959          I
          -CPS064 
 COMPASS            SA6    A5                                                              COMPASS    18960          I
          -CPS064 
 COMPASS            SA1    X7                                                              CMP042       300          I
          -CPS064 
 COMPASS            MANAGE SYSMIC,X1                                                       CMP042       301          I
          -CMP043 
 COMPASS            SA4    O.MEMORY    LOAD SYSTEM MICROS                                  CMP042       302          I
          -CMP043 
 COMPASS            MANAGE MACDEF,X1                                                       CMP043       154          I
          -CPS064 
 COMPASS            SA4    O.MEMORY    LOAD MACRO DEFINITION SKELETONS                     CMP043       155          I
          -CPS064 
 COMPASS            SX1    X3                                                              COMPASS    18961          I
          -CMP30  
 COMPASS            SX3    X2                                                              COMPASS    18962          I
          -CMP30  
 COMPASS            SA1    X4                                                              CMP30       6469          I
          -CPS064 
 COMPASS            IX3    X2+X3                                                           CMP30       6470          I
          -CPS064 
 COMPASS            ZR     X1,LST4     IF LENGTH IS ZERO                                   CMP30       6471          I
          -CPS064 
 COMPASS            SX2    X4+B1                                                           COMPASS    18963          I
          -CPS064 
 COMPASS            ZR     X3,LST2     IF LENGTH IS 0                                      COMPASS    18964          I
          -CMP3   
 COMPASS            ZR     X1,LST2     IF LENGTH IS ZERO                                   CMP3           2          I
          -CMP30  
 COMPASS            IX3    X3-X1                                                           CMP30       6472          I
          -CPS064 
 COMPASS            RJ     MOVE                                                            COMPASS    18965          I
          -CPS064 
 COMPASS   LST2     SA2    O.MEMORY    LOAD SYSTEM MICROS                                  COMPASS    18966          I
          -CMP042 
 COMPASS            SA1    X2                                                              COMPASS    18967          I
          -CMP042 
 COMPASS            MANAGE SYSMIC,X1                                                       COMPASS    18968          I
          -CMP042 
 COMPASS            RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       303          I
          -CPS064 
 COMPASS   LST2     SA3    L.SYSMIC    REDUCE MEMORY                                       CMP042       304          I
          -CMP043 
 COMPASS   LST2     SA3    L.MACDEF    REDUCE MEMORY                                       CMP043       156          I
          -CMP30  
 COMPASS            SA4    O.MEMORY                                                        COMPASS    18969          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1103    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS   LST4     SA4    O.MEMORY    REDUCE MEMORY                                       CMP30       6473          I
          -CPS064 
 COMPASS            SA5    L.MEMORY                                                        COMPASS    18970          I
          -CPS064 
 COMPASS            SA3    X4                                                              CMP30       6474          I
          -CPS064 
 COMPASS            SX6    X3+2                                                            COMPASS    18971          I
          -CPS064 
 COMPASS            IX7    X4+X6                                                           COMPASS    18972          I
          -CPS064 
 COMPASS            IX6    X5-X6                                                           COMPASS    18973          I
          -CPS064 
 COMPASS            SA7    A4                                                              COMPASS    18974          I
          -CPS064 
 COMPASS            SA6    A5                                                              COMPASS    18975          I
          -CPS064 
 COMPASS            SX1    X3                                                              COMPASS    18976          I
          -CMP042 
 COMPASS            SX3    X2                                                              COMPASS    18977          I
          -CMP042 
 COMPASS            SX2    X4+B1                                                           COMPASS    18978          I
          -CMP042 
 COMPASS            ZR     X3,LST3     IF LENGTH IS 0                                      COMPASS    18979          I
          -CMP3     -CMP042 
 COMPASS            ZR     X1,LST3     IF LENGTH IS ZERO                                   CMP3           3          I
          -CMP042 
 COMPASS            RJ     MOVE                                                            COMPASS    18980          I
          -CMP042 
 COMPASS   LST3     SA4    O.MEMORY    LOAD MACRO DEFINITIONS                              COMPASS    18981          I
          -CMP042 
 COMPASS            SA5    L.MEMORY                                                        COMPASS    18982          I
          -CMP042 
 COMPASS            ZR     X5,SYSX1    IF END OF MACRO DEFINITION TABLE                    COMPASS    18983          I
          -CMP042 
 COMPASS            SX6    X5-2                                                            COMPASS    18984          I
          -CMP042   -CMP031 
 COMPASS            SA1    X4          LOOK UP OPCODE                                      CMP031         1          I
          -CMP042 
 COMPASS            RJ     /PASS1/TLUOP                                                    CMP031         2          I
          -CMP042 
 COMPASS            SA4    O.MEMORY                                                        CMP031         3          I
          -CMP042 
 COMPASS            SA5    L.MEMORY                                                        CMP031         4          I
          -CMP042 
 COMPASS            SX7    X5-2        ADVANCE TABLE                                       CMP031         5          I
          -CMP042 
 COMPASS            SA7    A5                                                              CMP031         6          I
          -CMP042 
 COMPASS            SX7    X4+2                                                            COMPASS    18985          I
          -CMP042 
 COMPASS            SA1    X4                                                              COMPASS    18986          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1104    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042 
 COMPASS            SA2    A1+B1                                                           COMPASS    18987          I
          -CMP042   -CMP031 
 COMPASS            SA6    A5                                                              COMPASS    18988          I
          -CMP042   -CMP031 
 COMPASS            SA7    A4                                                              COMPASS    18989          I
          -CMP042 
 COMPASS            NZ     X6,LST4     IF DUPLICATE OP-CODE                                CMP031         7          I
          -CMP042 
 COMPASS            SA2    A1+B1                                                           CMP031         8          I
          -CMP042 
 COMPASS            RJ     ENTOP                                                           COMPASS    18990          I
          -CMP042 
 COMPASS            EQ     LST3        LOOP                                                COMPASS    18991          I
          -CMP042 
 COMPASS   LST4     SA3    A1+B1       REPLACE OP-CODE ENTRY                               CMP031         9          I
          -CMP042 
 COMPASS            BX6    X3                                                              CMP031        10          I
          -CMP042 
 COMPASS            SA6    A2                                                              CMP031        11          I
          -CMP042 
 COMPASS            EQ     LST3        LOOP                                                CMP031        12          I
          -CMP042 
 COMPASS                                                                                   COMPASS    18992          I
          -CMP042 
 COMPASS            ZR     X6,SYSX1    IF NO MACRO DEFINITIONS                             CMP042       305          I
          -CMP30  
 COMPASS   LST3     SA1    X7          LOOK UP OPCODE                                      CMP042       306          I
          -CMP30  
 COMPASS            ZR     X6,LST6     IF NO SYSTEM OPCODES                                CMP30       6475          I
          -CPS064 
 COMPASS   LST5     SA1    X7          LOOK UP OPCODE                                      CMP30       6476          I
          -CPS064 
 COMPASS            RJ     /PASS1/TLUOP                                                    CMP042       307          I
          -CPS064 
 COMPASS            SA4    O.MEMORY                                                        CMP042       308          I
          -CPS064 
 COMPASS            NZ     X6,LST4     IF FOUND                                            CMP042       309          I
          -CMP30  
 COMPASS            SA5    X4+B1       GET EQUIVALENT                                      CMP30       6477          I
          -CPS064 
 COMPASS            BX7    X5                                                              CMP30       6478          I
          -CPS064 
 COMPASS            AX5    57                                                              CMP30       6479          I
          -CPS064 
 COMPASS            SX0    X5+B1                                                           CMP30       6480          I
          -CPS064 
 COMPASS            SA3    LSYSMAC                                                         CMP30       6481          I
          -CPS064 
 COMPASS   +        NZ     X0,*+1      IF NOT A MACRO                                      CMP30       6482          I
          -CPS064 
 COMPASS            IX7    X7+X3                                                           CMP30       6483          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1105    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            NZ     X6,LST5A    IF FOUND                                            CMP30       6484          I
          -CPS064 
 COMPASS            SA1    X4                                                              CMP042       310          I
          -CPS064 
 COMPASS            SA2    X4+B1                                                           CMP042       311          I
          -CMP30  
 COMPASS            BX2    X7                                                              CMP30       6485          I
          -CPS064 
 COMPASS            RJ     ENTOP       ENTER OPCODE TABLE                                  CMP042       312          I
          -CPS064 
 COMPASS            SA4    O.MEMORY                                                        CMP042       313          I
          -CPS064 
 COMPASS            EQ     LST5                                                            CMP042       314          I
          -CMP30  
 COMPASS   LST4     SA1    X4+B1       REPLACE EQUIVALENT                                  CMP042       315          I
          -CMP30  
 COMPASS            BX6    X1                                                              CMP042       316          I
          -CMP30  
 COMPASS            SA6    A2                                                              CMP042       317          I
          -CMP30  
 COMPASS            EQ     LST5B                                                           CMP30       6486          I
          -CPS064 
 COMPASS   LST5A    SA7    A2          REPLACE EQUIVALENT                                  CMP30       6487          I
          -CPS064 
 COMPASS   LST5     SA5    L.MEMORY    REDUCE MEMORY                                       CMP042       318          I
          -CMP30  
 COMPASS   LST5B    SA5    L.MEMORY    REDUCE MEMORY                                       CMP30       6488          I
          -CPS064 
 COMPASS            SX7    X4+2                                                            CMP042       319          I
          -CPS064 
 COMPASS            SX6    X5-2                                                            CMP042       320          I
          -CPS064 
 COMPASS            SA7    A4                                                              CMP042       321          I
          -CPS064 
 COMPASS            SA6    A5                                                              CMP042       322          I
          -CPS064 
 COMPASS            NZ     X6,LST3     IF MORE SYSTEM MACROS                               CMP042       323          I
          -CMP30  
 COMPASS            EQ     SYSX1                                                           CMP042       324          I
          -CMP30  
 COMPASS            NZ     X6,LST5     IF MORE SYSTEM OPCODES                              CMP30       6489          I
          -CPS064 
 COMPASS                                                                                   CMP042       325          I
          -CPS064 
 COMPASS   LSTA     DATA   0,0         LOADER INFORMATION                                  COMPASS    18993          I
          -CMP30  
 COMPASS   CTM      SPACE  4                                                               COMPASS    18994          I
          -CMP30  
 COMPASS  **        CTM - CHECK TYPE OF MACHINE.                                           COMPASS    18995          I
          -CMP30  
 COMPASS                                                                                   COMPASS    18996          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1106    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS                                                                                   COMPASS    18997          I
          -CMP30  
 COMPASS   CTM1     BX6    X2                                                              COMPASS    18998          I
          -CMP1     -CMP30  
 COMPASS   CTM1     SA2    B3                                                              CMP1          47          I
          -CMP30  
 COMPASS            BX6    X2                                                              CMP1          48          I
          -CMP30  
 COMPASS            SA6    TLINE                                                           COMPASS    18999          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19000          I
          -CMP30  
 COMPASS   CTM      PS                 RETURN EXIT                                         COMPASS    19001          I
          -CMP30  
 COMPASS            SA2    CTMC                                                            COMPASS    19002          I
          -CMP1     -CMP30  
 COMPASS            SB3    CTMC                                                            CMP1          49          I
          -CMP30  
 COMPASS            SA1    CTMB                                                            COMPASS    19003          I
          -CMP30  
 COMPASS            BX6    X1                                                              COMPASS    19004          I
          -CMP30  
 COMPASS            SB2    CTM1                                                            CMP1          50          I
          -CMP30  
 COMPASS   +        SA6    CTMA                                                            COMPASS    19005          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19006          I
          -CMP30  
 COMPASS   CTMA     SA2    A2+B1       EXECUTE IF NOT 6400                                 COMPASS    19007          I
          -CMP1     -CMP30  
 COMPASS   CTMA     SB3    B3+B1       EXECUTE IF NOT 6400                                 CMP1          51          I
          -CMP30  
 COMPASS            SA6    A6+B1                                                           COMPASS    19008          I
          -CMP30  
 COMPASS            JP     *+1         VOID STACK IF 6600                                  COMPASS    19009          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19010          I
          -CMP30  
 COMPASS            SA2    A2+B1       EXECUTE IF 7600                                     COMPASS    19011          I
          -CMP1     -CMP30  
 COMPASS            SB3    B3+B1       EXECUTE IF 7600                                     CMP1          52          I
          -CMP30  
 COMPASS            SX6    3                                                               CMP029       197          I
          -CMP30  
 COMPASS            SA6    JMF         SET JOB DAYFILE FLAG FOR *MSG*                      CMP029       198          I
          -CMP30  
 COMPASS            JP     CTM1        RETURN                                              COMPASS    19012          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19013          I
          -CMP30  
 COMPASS   CTMB     JP     CTM1                                                            COMPASS    19014          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1107    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP1     -CMP30  
 COMPASS   CTMB     CON    0220BS48    JP B2                                               CMP1          53          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19015          I
          -CMP30  
 COMPASS   CTMC     DATA   H*6400 ASSEM*                                                   COMPASS    19016          I
          -CMP30  
 COMPASS            DATA   H*6600 ASSEM*                                                   COMPASS    19017          I
          -CMP30  
 COMPASS            DATA   H*7600 ASSEM*                                                   COMPASS    19018          I
          -CMP30  
 COMPASS   LGT      SPACE  4                                                               COMPASS    19019          I
          -CMP30  
 COMPASS  **        LGT - LOAD G-TYPE SYSTEMS TEXT.                                        COMPASS    19020          I
          -CMP30  
 COMPASS  *         ENTRY  (X4) = FILE NAME.                                               COMPASS    19021          I
          -CMP8     -CMP30  
 COMPASS  *         ENTRY  (X6) = FILE NAME.                                               CMP8          18          I
          -CMP30  
 COMPASS  *         EXIT   (X0) = 0 IF TEXT LOADED.                                        COMPASS    19022          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19023          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19024          I
          -CMP30  
 COMPASS   LGT      PS                 RETURN EXIT                                         COMPASS    19025          I
          -CMP30  
 COMPASS            SX6    B1          SET FILE NAME                                       COMPASS    19026          I
          -CMP8     -CMP30  
 COMPASS            SX4    B1                                                              CMP8          19          I
          -CMP30  
 COMPASS            SA6    SYSTEXT     SAVE FILE NAME FOR XREF LISTING                     CMP8          20          I
          -CMP27    -CMP30  
 COMPASS            SA6    SYSNAME     SAVE FILE NAME FOR XREF LISTINGS                    CMP27         36          I
          -CMP30  
 COMPASS            BX6    X6+X4                                                           COMPASS    19027          I
          -CMP30  
 COMPASS            SA6    G                                                               COMPASS    19028          I
          -CMP30  
 COMPASS            RJ     MTD         MOVE TABLES DOWN TO GET ROOM                        CMP8          21          I
          -CMP30  
 COMPASS            SA1    O.MEMORY                                                        COMPASS    19029          I
          -CMP30  
 COMPASS            SA2    FIELDL                                                          COMPASS    19030          I
          -CMP042   -CMP30  
 COMPASS            IX2    X2-X1                                                           COMPASS    19031          I
          -CMP042   -CMP30  
 COMPASS            SA2    O.ENDTAB                                                        CMP042       326          I
          -CMP30  
 COMPASS            SX0    X1                                                              COMPASS    19032          I
          -CMP30  
 COMPASS            SA0    X2-10B                                                          COMPASS    19033          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1108    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP042   -CMP30  
 COMPASS            IX2    X2-X1                                                           CMP042       327          I
          -CMP30  
 COMPASS            SA0    X2                                                              CMP042       328          I
          -CMP30  
 COMPASS            REWIND G                                                               COMPASS    19034          I
          -CMP30  
 COMPASS   LGT1     READ   G                                                               COMPASS    19035          I
          -CMP30  
 COMPASS   LGT2     READW  G,X0,1      READ 7700 TABLE                                     COMPASS    19036          I
          -CMP30  
 COMPASS            NG     X1,LGT      IF EOF                                              COMPASS    19037          I
          -CMP30  
 COMPASS            NZ     X1,LGT1     IF EOR                                              COMPASS    19038          I
          -CMP30  
 COMPASS            SA2    X0                                                              COMPASS    19039          I
          -CMP30  
 COMPASS            LX2    18D                                                             COMPASS    19040          I
          -CMP30  
 COMPASS            SX6    X2-770000B                                                      COMPASS    19041          I
          -CMP30  
 COMPASS            ZR     X6,LGT4     IF 7700 TABLE                                       COMPASS    19042          I
          -CMP30  
 COMPASS   LGT3     READW  G,X0,A0     SKIP TO EOR                                         COMPASS    19043          I
          -CMP30  
 COMPASS            ZR     X1,LGT3     LOOP                                                COMPASS    19044          I
          -CMP30  
 COMPASS            EQ     LGT1        LOOP                                                COMPASS    19045          I
          -CMP30  
 COMPASS   LGT4     LX2    6                                                               COMPASS    19046          I
          -CMP30  
 COMPASS            SX5    X2                                                              COMPASS    19047          I
          -CMP30  
 COMPASS   LGT5     READW  G,X0,1      SKIP 7700 TABLE                                     COMPASS    19048          I
          -CMP30  
 COMPASS            SX5    X5-1                                                            COMPASS    19049          I
          -CMP30  
 COMPASS            NZ     X5,LGT5     LOOP                                                COMPASS    19050          I
          -CMP30  
 COMPASS            READW  G,X0,1      READ 5000 TABLE                                     COMPASS    19051          I
          -CMP30  
 COMPASS            NZ     X1,LGT1     IF EOR                                              COMPASS    19052          I
          -CMP30  
 COMPASS            SA1    X0                                                              COMPASS    19053          I
          -CMP30  
 COMPASS            SA2    =50000101BS36                                                   COMPASS    19054          I
          -CMP30  
 COMPASS            BX6    X1-X2                                                           COMPASS    19055          I
          -CMP30  
 COMPASS            AX6    36                                                              COMPASS    19056          I
          -CMP30  
 COMPASS            NZ     X6,LGT3     IF WRONG OVERLAY                                    COMPASS    19057          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1109    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            READW  G,X0+B1,A0-B1                                                   COMPASS    19058          I
          -CMP30  
 COMPASS            ZR     X1,SYS2     IF NOT ENOUGH ROOM FOR SYSTEXT                      COMPASS    19059          I
          -CMP042   -CMP30  
 COMPASS            SX0    B0                                                              COMPASS    19060          I
          -CMP042   -CMP30  
 COMPASS            EQ     LGT         RETURN                                              COMPASS    19061          I
          -CMP042   -CMP30  
 COMPASS            SX0    B0                                                              CMP042       329          I
          -CMP30  
 COMPASS            NZ     X1,LGT                                                          CMP042       330          I
          -CMP30  
 COMPASS            MESSAGE (=C* INSUFFICIENT STORAGE FOR SYSTEMS TEXT.*)                  CMP042       331          I
          -CMP30  
 COMPASS            EQ     SYSX1                                                           CMP042       332          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19062          I
          -CMP30  
 COMPASS   G        BSS    0           GTEXT BUFFER                                        COMPASS    19063          I
          -CMP30  
 COMPASS            FET    ,SBUFL,7                                                        COMPASS    19064          I
          -CMP30  
 COMPASS   SFP      SPACE  4                                                               COMPASS    19065          I
          -CMP30  
 COMPASS  **        SFP - SET FILE PARAMETERS.                                             COMPASS    19066          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19067          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19068          I
          -CMP30  
 COMPASS   SFP      PS                 RETURN EXIT                                         COMPASS    19069          I
          -CMP30  
 COMPASS            SX0    BUFFERS     CHECK ERROR FILE                                    COMPASS    19070          I
          -CMP30  
 COMPASS            SX1    E                                                               COMPASS    19071          I
          -CMP30  
 COMPASS            SA3    X1                                                              COMPASS    19072          I
          -CMP30  
 COMPASS            ZR     X3,SFP1     IF NO ERROR FILE                                    COMPASS    19073          I
          -CMP30  
 COMPASS            SA4    E+2                                                             COMPASS    19074          I
          -CMP30  
 COMPASS            NZ     X4,SFP1     IF BUFFERS HAVE BEEN SWITCHED                       COMPASS    19075          I
          -CMP30  
 COMPASS            RJ     SBA         SET *E* BUFFER ADDRESS                              COMPASS    19076          I
          -CMP30  
 COMPASS   SFP1     SX1    R           CHECK CROSS-REFERENCE BUFFER                        COMPASS    19077          I
          -CMP30  
 COMPASS            SA3    LISTFG      SET EXTERNAL LIST FLAG                              COMPASS    19078          I
          -CMP30  
 COMPASS            SX5    B1                                                              COMPASS    19079          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1110    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            BX6    X5*X3                                                           COMPASS    19080          I
          -CMP30  
 COMPASS            SA6    A3                                                              COMPASS    19081          I
          -CMP30  
 COMPASS            ZR     X6,SFP2     IF NO CROSS-REFERENCE BUFFER                        COMPASS    19082          I
          -CMP30  
 COMPASS            RJ     SBA                                                             COMPASS    19083          I
          -CMP30  
 COMPASS   SFP2     SX1    S           SET SCRATCH BUFFER                                  COMPASS    19084          I
          -CMP30  
 COMPASS            RJ     SBA                                                             COMPASS    19085          I
          -CMP30  
 COMPASS            IFNE   DEBUG,0,2   SET SNAPPER BUFFER                                  CMP14        527          I
          -CMP30  
 COMPASS            SX1    D                                                               CMP14        528          I
          -CMP30  
 COMPASS            RJ     SBA                                                             CMP14        529          I
          -CMP30  
 COMPASS            SX1    B           SET BINARY BUFFER                                   COMPASS    19086          I
          -CMP30  
 COMPASS            RJ     SBA                                                             COMPASS    19087          I
          -CMP30  
 COMPASS            BX1    X0          ADJUST CORE LENGTH                                  COMPASS    19088          I
          -CMP30  
 COMPASS            RJ     ACL                                                             COMPASS    19089          I
          -CMP30  
 COMPASS            SA2    B+1         SET XTEXT BUFFER                                    COMPASS    19090          I
          -CMP30  
 COMPASS            SX1    X                                                               COMPASS    19091          I
          -CMP30  
 COMPASS            BX0    X2                                                              COMPASS    19092          I
          -CMP30  
 COMPASS            RJ     SBA                                                             COMPASS    19093          I
          -CMP30  
 COMPASS            IFNE   DEBUG,0,4   SET PATCHES BUFFER                                  CMP14        530          I
          -CMP30  
 COMPASS            SA2    B+1                                                             CMP14        531          I
          -CMP30  
 COMPASS            SX1    /DEBUG/P                                                        CMP14        532          I
          -CMP30  
 COMPASS            BX0    X2                                                              CMP14        533          I
          -CMP30  
 COMPASS            RJ     SBA                                                             CMP14        534          I
          -CMP30  
 COMPASS            SA2    S+1         SET GTEXT BUFFER                                    COMPASS    19094          I
          -CMP30  
 COMPASS            SX1    G                                                               COMPASS    19095          I
          -CMP30  
 COMPASS            SX0    X2                                                              COMPASS    19096          I
          -CMP30  
 COMPASS            RJ     SBA                                                             COMPASS    19097          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1111    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            EQ     SFP         RETURN                                              COMPASS    19098          I
          -CMP30  
 COMPASS   SYSX1    SPACE  4                                                               COMPASS    19099          I
          -CMP30  
 COMPASS  **        SYSX1 - SYSTEMS TEXT EXIT.                                             COMPASS    19100          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19101          I
          -CMP30  
 COMPASS                                                                                   COMPASS    19102          I
          -CMP30  
 COMPASS   SYS2     MESSAGE (=C* BAD SYSTEMS TEXT.*)                                       COMPASS    19103          I
          -CMP30  
 COMPASS   SYSX1    SA2    L.MACDEF                                                        COMPASS    19104          I
          -CMP042   -CMP30  
 COMPASS   SYSX1    RJ     ASU         ACCUMULATE STORAGE USED                             CMP042       333          I
          -CMP30  
 COMPASS            RJ     ATS         ACCUMULATE TOTAL STORAGE USED                       CMP042       334          I
          -CMP30  
 COMPASS            SA2    L.MACDEF                                                        CMP042       335          I
          -CMP30  
 COMPASS            BX6    X2                                                              COMPASS    19105          I
          -CMP30  
 COMPASS            MX7    0                                                               COMPASS    19106          I
          -CMP30  
 COMPASS            SA7    L.MEMORY                                                        COMPASS    19107          I
          -CMP30  
 COMPASS            SA6    LSYSMAC                                                         COMPASS    19108          I
          -CMP30  
 COMPASS            EVICT  R                                                               COMPASS    19109          I
          -CMP30  
 COMPASS            OPEN   S,WRITE                                                         COMPASS    19110          I
          -CMP30  
 COMPASS            REWIND S                                                               COMPASS    19111          I
          -CMP30  
 COMPASS            SX2    I           READ IN FIRST CARD                                  COMPASS    19112          I
          -CMP30  
 COMPASS            SA0    INBUF                                                           COMPASS    19113          I
          -CMP30  
 COMPASS            SA3    A0          CHECK IF CARD NEEDS READING                         COMPASS    19114          I
          -CMP30  
 COMPASS            NZ     X3,PASS0    IF CALL FROM FORTRAN                                COMPASS    19115          I
          -CMP30  
 COMPASS            RJ     /PASS1/RCARD                                                    COMPASS    19116          I
          -CMP24    -CMP30  
 COMPASS            SA1    A0          CHECK FOR MODIFY COSY                               COMPASS    19117          I
          -CMP24    -CMP30  
 COMPASS            RJ     /PASS1/RNC                                                      CMP24        577          I
          -CMP30  
 COMPASS            SA1    A0          CHECK FOR COMPRESSED SOURCE INPUT                   CMP24        578          I
          -CMP30  
 COMPASS            LX1    18                                                              COMPASS    19118          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1112    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP30  
 COMPASS            SX6    X1-770000B                                                      COMPASS    19119          I
          -CMP24    -CMP30  
 COMPASS            NZ     X6,PASS0    IF NOT MODIFY                                       COMPASS    19120          I
          -CMP24    -CMP30  
 COMPASS            SX6    B1                                                              COMPASS    19121          I
          -CMP24    -CMP30  
 COMPASS            SX3    X1-770000B                                                      CMP24        579          I
          -CMP30  
 COMPASS            NZ     X3,PASS0    IF NOT COMPRESSED                                   CMP24        580          I
          -CMP30  
 COMPASS            LX1    6                                                               CMP24        581          I
          -CMP30  
 COMPASS            SX6    B1+B1       AMODE = +2 (UPDATE)                                 CMP24        582          I
          -CMP30  
 COMPASS   +        SX3    X1                                                              CMP24        583          I
          -CMP30  
 COMPASS            ZR     X3,*+1      IF WORD COUNT ZERO IN 7700 HEADER WORD              CMP24        584          I
          -CMP30  
 COMPASS            SX6    B1          AMODE = +1 (MODIFY)                                 CMP24        585          I
          -CMP30  
 COMPASS            SA6    AMODE                                                           COMPASS    19122          I
          -CMP30  
 COMPASS            RJ     /PASS1/RNC                                                      COMPASS    19123          I
          -CMP30  
 COMPASS            EQ     PASS0                                                           COMPASS    19124          I
          -CMP30  
 COMPASS   LST6     SA3    L.MACDEF                                                        CMP30       6490          I
          -CPS064 
 COMPASS            SA2    CP.LIB                                                          CMP30       6491          I
          -CPS064 
 COMPASS            SA1    CP.STEXT                                                        CMP30       6492          I
          -CPS064 
 COMPASS            BX6    X3                                                              CMP30       6493          I
          -CPS064 
 COMPASS            SA6    LSYSMAC                                                         CMP30       6494          I
          -CPS064 
 COMPASS            SX7    X2+B1       BUMP SYSTEM TEXT ORDINAL                            CMP30       6495          I
          -CPS064 
 COMPASS            IX6    X1-X2                                                           CMP30       6496          I
          -CPS064 
 COMPASS            NZ     X6,LST1     IF MORE TO LOAD                                     CMP30       6497          I
          -CPS064 
 COMPASS            RJ     ATS         ACCUMULATE TOTAL STORAGE USED                       CMP30       6498          I
          -CPS064 
 COMPASS   LST6A    SA2    CP.NFLL                                                         CMP30       6499          I
          -CPS028 
 COMPASS            SA1    LCMEND                                                          CMP30       6500          I
          -CPS028 
 COMPASS   LST6A    SA2    CP.AFLL                                                S028 769 CPS028       566          I
          -CPS064 
 COMPASS            ZR     X2,LST      IF NO LCM, RETURN                                   CMP30       6501          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1113    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA2    CP.NFLL                                                         CMP30       6502          I
          -CPS028 
 COMPASS            SA1    L.SYSMIC                                               S028 771 CPS028       567          I
          -CPS064 
 COMPASS            ZR     X1,LST6B    IF NO SYSTEM MICROS                        S028 772 CPS028       568          I
          -CPS064 
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                  S028 773 CPS028       569          I
          -CPS064 
 COMPASS            MI     X6,LST6B    IF NO ROOM IN LCM                          S028 774 CPS028       570          I
          -CPS064 
 COMPASS            SA3    L.SYSMIC                                                        CMP30       6503          I
          -CPS064 
 COMPASS            IX6    X1+X3                                                           CMP30       6504          I
          -CPS028 
 COMPASS            IX7    X2-X6                                                           CMP30       6505          I
          -CPS028 
 COMPASS            ZR     X3,LST6B    IF NO SYSTEM MICROS                                 CMP30       6506          I
          -CPS028 
 COMPASS            MI     X7,LST6B    IF SYSTEM MICROS WILL NOT FIT                       CMP30       6507          I
          -CPS028 
 COMPASS            MX7    0                                                               CMP30       6508          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6509          I
          -CPS028 
 COMPASS            IX1    X6-X1                                                  S028 777 CPS028       571          I
          -CPS064 
 COMPASS            SA7    A3          CLEAR SCM COPY OF SYSMIC TABLE                      CMP30       6510          I
          -CPS064 
 COMPASS            LX3    30                                                              CMP30       6511          I
          -CPS064 
 COMPASS            BX6    X3+X1                                                           CMP30       6512          I
          -CPS064 
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CMP30       6513          I
          -CPS064 
 COMPASS            SA6    LCMMIC                                                          CMP30       6514          I
          -CPS064 
 COMPASS            SA2    O.SYSMIC                                                        CMP30       6515          I
          -CPS064 
 COMPASS            RJ     WLC         WRITE SYSMIC TO LCM                                 CMP30       6516          I
          -CPS064 
 COMPASS   LST6B    SA1    LCMEND                                                          CMP30       6517          I
          -CPS028 
 COMPASS            SA2    CP.NFLL                                                         CMP30       6518          I
          -CPS028 
 COMPASS   LST6B    SA1    L.SSYMS                                                S028 779 CPS028       572          I
          -CPS064 
 COMPASS            ZR     X1,LST6C    IF NO SYSTEM SYMBOLS                       S028 780 CPS028       573          I
          -CPS064 
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                  S028 781 CPS028       574          I
          -CPS064 
 COMPASS            MI     X6,LST6C    IF NO ROOM IN LCM                          S028 782 CPS028       575          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1114    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA3    L.SSYMS                                                         CMP30       6519          I
          -CPS064 
 COMPASS            IX6    X1+X3                                                           CMP30       6520          I
          -CPS028 
 COMPASS            IX7    X2-X6                                                           CMP30       6521          I
          -CPS028 
 COMPASS            ZR     X3,LST6C    IF NO SYSTEM SYMBOLS                                CMP30       6522          I
          -CPS028 
 COMPASS            MI     X7,LST6C    IF SYSTEM SYMBOLS WILL NOT FIT                      CMP30       6523          I
          -CPS028 
 COMPASS            MX7    0                                                               CMP30       6524          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6525          I
          -CPS028 
 COMPASS            IX1    X6-X1                                                  S028 785 CPS028       576          I
          -CPS064 
 COMPASS            SA7    A3          CLEAR SCM COPY OF SSYMS TABLE                       CMP30       6526          I
          -CPS064 
 COMPASS            LX3    30                                                              CMP30       6527          I
          -CPS064 
 COMPASS            BX6    X3+X1                                                           CMP30       6528          I
          -CPS064 
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CMP30       6529          I
          -CPS064 
 COMPASS            SA6    LCMSYM                                                          CMP30       6530          I
          -CPS064 
 COMPASS            SA2    O.SSYMS                                                         CMP30       6531          I
          -CPS064 
 COMPASS            RJ     WLC         WRITE SSYMS TO LCM                                  CMP30       6532          I
          -CPS064 
 COMPASS   LST6C    SA1    LCMEND                                                          CMP30       6533          I
          -CPS028 
 COMPASS            SA2    CP.NFLL                                                         CMP30       6534          I
          -CPS028 
 COMPASS   LST6C    SA1    L.OPTAB                                                S028 787 CPS028       577          I
          -CPS064 
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                  S028 788 CPS028       578          I
          -CPS064 
 COMPASS            MI     X6,LST6D    IF NO ROOM IN LCM FOR OPCODE TABLE         S028 789 CPS028       579          I
          -CPS064 
 COMPASS            SA3    L.OPTAB                                                         CMP30       6535          I
          -CPS064 
 COMPASS            IX6    X1+X3                                                           CMP30       6536          I
          -CPS028 
 COMPASS            IX7    X2-X6                                                           CMP30       6537          I
          -CPS028 
 COMPASS            MI     X7,LST6D    IF OPCODE TABLE WILL NOT FIT                        CMP30       6538          I
          -CPS028 
 COMPASS            MX7    0                                                               CMP30       6539          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6540          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1115    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            IX1    X6-X1                                                  S028 792 CPS028       580          I
          -CPS064 
 COMPASS            SA7    A3          CLEAR SCM COPY OF OPCODE TABLE                      CMP30       6541          I
          -CPS064 
 COMPASS            LX3    30                                                              CMP30       6542          I
          -CPS064 
 COMPASS            BX6    X3+X1                                                           CMP30       6543          I
          -CPS064 
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CMP30       6544          I
          -CPS064 
 COMPASS            SA6    LCMOPC                                                          CMP30       6545          I
          -CPS064 
 COMPASS            SA2    O.OPTAB                                                         CMP30       6546          I
          -CPS064 
 COMPASS            RJ     WLC         WRITE OPTAB TO LCM                                  CMP30       6547          I
          -CPS064 
 COMPASS   LST6D    SA1    LCMEND                                                          CMP30       6548          I
          -CPS064 
 COMPASS            SA2    CP.NFLL                                                         CMP30       6549          I
          -CPS028 
 COMPASS            BX6    X1          SAVE ORIGIN OF LCM MACROS                  S028 794 CPS028       581          I
          -CPS064 
 COMPASS            SA6    LCMSYS                                                 S028 795 CPS028       582          I
          -CPS064 
 COMPASS            SA1    L.MACDEF                                               S028 796 CPS028       583          I
          -CPS064 
 COMPASS            ZR     X1,LST      IF NO SYSTEM MACROS                        S028 797 CPS028       584          I
          -CPS064 
 COMPASS            RJ     ILF         INCREASE LCM FIELD LENGTH                  S028 798 CPS028       585          I
          -CPS064 
 COMPASS            MI     X6,LST      IF NO ROOM IN LCM                          S028 799 CPS028       586          I
          -CPS064 
 COMPASS            SA3    L.MACDEF                                                        CMP30       6550          I
          -CPS064 
 COMPASS            IX6    X1+X3                                                           CMP30       6551          I
          -CPS028 
 COMPASS            IX7    X2-X6                                                           CMP30       6552          I
          -CPS028 
 COMPASS            ZR     X3,LST      IF NO SYSTEM MACROS                                 CMP30       6553          I
          -CPS028 
 COMPASS            MI     X7,LST      IF MACRO DEFINITIONS WILL NOT FIT                   CMP30       6554          I
          -CPS028 
 COMPASS            MX7    0                                                               CMP30       6555          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6556          I
          -CPS028 
 COMPASS            IX1    X6-X1                                                  S028 802 CPS028       587          I
          -CPS064 
 COMPASS            SA7    A3          CLEAR SCM COPY OF MACDEF TABLE                      CMP30       6557          I
          -CPS064 
 COMPASS            LX3    30                                                              CMP30       6558          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1116    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            BX6    X3+X1                                                           CMP30       6559          I
          -CPS064 
 COMPASS            LX3    30          SET LCM TABLE POINTER                               CMP30       6560          I
          -CPS064 
 COMPASS            SA6    LCMMAC                                                          CMP30       6561          I
          -CPS064 
 COMPASS            SA2    O.MACDEF                                                        CMP30       6562          I
          -CPS064 
 COMPASS            RJ     WLC         WRITE MACDEF TO LCM                                 CMP30       6563          I
          -CPS064 
 COMPASS            SA1    LCMEND                                                 S028 804 CPS028       588          I
          -CPS064 
 COMPASS            SA2    LCMSYS                                                 S028 805 CPS028       589          I
          -CPS064 
 COMPASS            BX6    X1          SAVE END OF LCM SYSTEM MACROS              S028 806 CPS028       590          I
          -CPS064 
 COMPASS            SA6    A2                                                     S028 807 CPS028       591          I
          -CPS064 
 COMPASS            MX7    0           INDICATE NO SYSTEM MACROS IN SCM           S028 808 CPS028       592          I
          -CPS064 
 COMPASS            SA7    LSYSMAC                                                S028 809 CPS028       593          I
          -CPS064 
 COMPASS            SX0    B1                                                     S028 810 CPS028       594          I
          -CPS064 
 COMPASS            LX0    37          ADJUST ALL OPTAB ENTRIES FOR               S028 811 CPS028       595          I
          -CPS064 
 COMPASS            BX2    X2+X0       SYSTEM MACROS TO POINT TO MACRO            S028 812 CPS028       596          I
          -CPS064 
 COMPASS            SA3    L.OPTAB     DEFINITION TEXT IN LCM                     S028 813 CPS028       597          I
          -CPS064 
 COMPASS            SA4    LCMOPC                                                 S028 814 CPS028       598          I
          -CPS064 
 COMPASS            SA1    O.OPTAB                                                S028 815 CPS028       599          I
          -CPS064 
 COMPASS   +        NZ     X3,*+1      IF OPCODE TABLE NOT IN LCM                 S028 816 CPS028       600          I
          -CPS064 
 COMPASS            AX4    30                                                     S028 817 CPS028       601          I
          -CPS064 
 COMPASS            BX3    X4                                                     S028 818 CPS028       602          I
          -CPS064 
 COMPASS   +        SB2    2                                                      S028 819 CPS028       603          I
          -CPS064 
 COMPASS            SB5    57          PREPARE TO SEARCH OPCODE TABLE             S028 820 CPS028       604          I
          -CPS064 
 COMPASS            SB6    -1                                                     S028 821 CPS028       605          I
          -CPS064 
 COMPASS            SB7    X3                                                     S028 822 CPS028       606          I
          -CPS064 
 COMPASS            SA1    X1+B1                                                  S028 823 CPS028       607          I
          -CPS064 
 COMPASS   LST6E    AX3    X1,B5       EXTRACT OPCODE TYPE                        S028 824 CPS028       608          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1117    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            IX6    X1+X2                                                  S028 825 CPS028       609          I
          -CPS064 
 COMPASS            SA1    A1+B2       FETCH NEXT ENTRY                           S028 826 CPS028       610          I
          -CPS064 
 COMPASS            SB4    X3                                                     S028 827 CPS028       611          I
          -CPS064 
 COMPASS            SB7    B7-B2                                                  S028 828 CPS028       612          I
          -CPS064 
 COMPASS            NE     B4,B6,*+1   IF NOT A SYSTEM MACRO                      S028 829 CPS028       613          I
          -CPS064 
 COMPASS            SA6    A1-B2       STORE ADJUSTED EQUIVALENT                  S028 830 CPS028       614          I
          -CPS064 
 COMPASS            NZ     B7,LST6E    LOOP TO END OF TABLE                       S028 831 CPS028       615          I
          -CPS064 
 COMPASS            SA3    LCMOPC                                                 S028 832 CPS028       616          I
          -CPS064 
 COMPASS            SA2    O.OPTAB                                                S028 833 CPS028       617          I
          -CPS064 
 COMPASS            ZR     X3,LST      IF OPCODE TABLE NOT IN LCM                 S028 834 CPS028       618          I
          -CPS064 
 COMPASS            BX1    X3                                                     S028 835 CPS028       619          I
          -CPS064 
 COMPASS            AX3    30                                                     S028 836 CPS028       620          I
          -CPS064 
 COMPASS            RJ     WLC         RE-WRITE TO LCM                            S028 837 CPS028       621          I
          -CPS064 
 COMPASS            EQ     LST         RETURN                                              CMP30       6564          I
          -CPS064 
 COMPASS                                                                                   CMP30       6565          I
          -CPS064 
 COMPASS  *         ERROR EXITS.                                                           CMP30       6566          I
          -CPS064 
 COMPASS                                                                                   CMP30       6567          I
          -CPS064 
 COMPASS   LST7     MESSAGE LSTN,,R    *SYSTEM TEXT NOT FOUND.*                            CMP30       6568          I
          -CPS064 
 COMPASS            EQ     LST9                                                            CMP30       6569          I
          -CPS064 
 COMPASS   LST7A    MESSAGE LSTS,,R    *INSUFFICIENT STORAGE FOR SYSTEM TEXT.*             CMP30       6570          I
          -CPS064 
 COMPASS            EQ     LST9                                                            CMP30       6571          I
          -CPS064 
 COMPASS   LST8     MESSAGE LSTF,,R    *IMPROPER SYSTEM TEXT FORMAT.*                      CMP30       6572          I
          -CPS064 
 COMPASS   LST9     SA1    CP.LIB                                                          CMP30       6573          I
          -CPS064 
 COMPASS            SA2    CP.STEXT+X1 GET OVERLAY NAME                                    CMP30       6574          I
          -CPS064 
 COMPASS            SX6    2RS=                                                            CMP30       6575          I
          -CPS064 
 COMPASS            SX3    X2                                                              CMP30       6576          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1118    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            BX5    X2                                                              CMP30       6577          I
          -CPS064 
 COMPASS            NZ     X3,LST9A    IF *G* ARGUMENT                                     CMP30       6578          I
          -CPS064 
 COMPASS            SA4    CP.LIB+X1                                                       CMP30       6579          I
          -CPS064 
 COMPASS            ZR     X4,LST9B    IF NO LIBRARY NAME                                  CMP30       6580          I
          -CPS064 
 COMPASS            EQ     LST9C                                                           CMP30       6581          I
          -CPS064 
 COMPASS   LST9A    IX2    X2-X3       ISOLATE OVERLAY NAME                                CMP30       6582          I
          -CPS064 
 COMPASS            SA4    CP.LIB+X1                                                       CMP30       6583          I
          -CPS064 
 COMPASS            BX5    X4                                                              CMP30       6584          I
          -CPS064 
 COMPASS            SX6    2RG=                                                            CMP30       6585          I
          -CPS064 
 COMPASS            NZ     X2,LST9C    IF OVERLAY NAME SPECIFIED                           CMP30       6586          I
          -CPS064 
 COMPASS   LST9B    BX6    X5+X6                                                           CMP30       6587          I
          -CPS064 
 COMPASS            SX7    B0          SETUP MESSAGE -                                     CMP30       6588          I
          -CPS064 
 COMPASS            LX6    -12         S=OVL  OR                                           CMP30       6589          I
          -CPS064 
 COMPASS            EQ     LST9E       G=FNAME                                             CMP30       6590          I
          -CPS064 
 COMPASS   LST9C    SA1    =8R       /                                                     CMP30       6591          I
          -CPS064 
 COMPASS            BX6    X6+X4                                                           CMP30       6592          I
          -CPS064 
 COMPASS            MX0    12                                                              CMP30       6593          I
          -CPS064 
 COMPASS            LX6    -12                                                             CMP30       6594          I
          -CPS064 
 COMPASS   LST9D    AX0    6           SETUP MESSAGE -                                     CMP30       6595          I
          -CPS064 
 COMPASS            BX3    -X0*X6      S=LIB/OVL  OR                                       CMP30       6596          I
          -CPS064 
 COMPASS            NZ     X3,LST9D    G=FNAME/OVL                                         CMP30       6597          I
          -CPS064 
 COMPASS            BX3    -X0*X1                                                          CMP30       6598          I
          -CPS064 
 COMPASS            BX6    X6+X3                                                           CMP30       6599          I
          -CPS064 
 COMPASS            LX7    X2                                                              CMP30       6600          I
          -CPS064 
 COMPASS   LST9E    SA6    LSTM+2                                                          CMP30       6601          I
          -CPS064 
 COMPASS            SA7    A6+B1                                                           CMP30       6602          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1119    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            MESSAGE LSTM,,R                                                        CMP30       6603          I
          -CPS064 
 COMPASS            MX6    0                                                               CMP30       6604          I
          -CPS064 
 COMPASS            SA6    L.MEMORY                                                        CMP30       6605          I
          -CPS064 
 COMPASS            EQ     LST6                                                            CMP30       6606          I
          -CPS064 
 COMPASS                                                                                   CMP30       6607          I
          -CPS064 
 COMPASS   LSTN     DATA   C* SYSTEM TEXT NOT FOUND.*                                      CMP30       6608          I
          -CPS064 
 COMPASS   LSTS     DATA   C* INSUFFICIENT STORAGE FOR SYSTEM TEXT.*                       CMP30       6609          I
          -CPS064 
 COMPASS   LSTF     DATA   C* IMPROPER SYSTEM TEXT FORMAT.*                                CMP30       6610          I
          -CPS064 
 COMPASS   LSTM     DATA   C*  BAD SYSTEM TEXT - S=LIBRARY/OVERLAY*                        CMP30       6611          I
          -CPS064 
 COMPASS                                                                                   CMP30       6612          I
          -CPS064 
 COMPASS   ENDLST   BSS    0           END OF SYSTEXT INITIALIZATION CODE                  CMP30       6613          I
          -CPS064 
 COMPASS   OPF      SPACE  4                                                               CMP30       6614          I
          -CPS064 
 COMPASS  **        OPF - OPEN FILES.                                                      CMP30       6615          I
          -CPS064 
 COMPASS                                                                                   CMP30       6616          I
          -CPS064 
 COMPASS                                                                                   CMP30       6617          I
          -CPS064 
 COMPASS   OPF      PS                 RETURN EXIT                                         CMP30       6618          I
          -CPS064 
 COMPASS                                                                                   CMP30       6619          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6620          I
          -CPS064 
 COMPASS                                                                                   CMP30       6621          I
          -CPS064 
 COMPASS            EVICT  R                                                               CMP30       6622          I
          -CPS064 
 COMPASS            OPEN   S,WRITE                                                         CMP30       6623          I
          -CPS064 
 COMPASS            REWIND S                                                               CMP30       6624          I
          -CPS064 
 COMPASS            EQ     OPF         RETURN                                     S028 839 CPS028       622          I
          -CPS064 
 COMPASS                                                                                   CMP30       6625          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6626          I
          -CPS064 
 COMPASS                                                                                   CMP30       6627          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1120    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA3    E                                                               CMP30       6628          I
          -CPS064 
 COMPASS            SA4    O                                                      S028 841 CPS028       623          I
          -CPS064 
 COMPASS            ZR     X3,OPF1     IF NO ERROR LISTING                                 CMP30       6629          I
          -CPS064 
 COMPASS            OPENM  E,OUTPUT,N                                                      CMP30       6630          I
          -CPS028 
 COMPASS            BX6    X3-X4                                                  S028 843 CPS028       624          I
          -CPS064 
 COMPASS            NZ     X6,OPF0     IF NOT SAME FILE NAME AS LONG LISTING FILE S028 844 CPS028       625          I
          -CPS064 
 COMPASS            FETCH  O,OC,X3                                                S028 845 CPS028       626          I
          -CPS064 
 COMPASS            SX3    X3-#YES#                                               S028 846 CPS028       627          I
          -CPS064 
 COMPASS            NZ     X3,OPF0     IF LONG LISTING FILE NOT OPEN              S028 847 CPS028       628          I
          -CPS064 
 COMPASS            CLOSEM O,N                                                    S028 848 CPS028       629          I
          -CPS064 
 COMPASS   OPF0     OPENM  E,OUTPUT,N                                             S028 849 CPS028       630          I
          -CPS064 
 COMPASS   OPF1     SA1    B                                                               CMP30       6631          I
          -CPS064 
 COMPASS            ZR     X1,OPF      IF NO BINARY                                        CMP30       6632          I
          -CPS028 
 COMPASS            ZR     X1,OPF3     IF NO BINARY                               S028 851 CPS028       631          I
          -CPS064 
 COMPASS            FETCH  B,OC,X2                                                         CMP30       6633          I
          -CPS064 
 COMPASS            SB7    X2-#YES#                                                        CMP30       6634          I
          -CPS064 
 COMPASS            ZR     B7,OPF2     IF ALREADY OPEN                                     CMP30       6635          I
          -CPS064 
 COMPASS            OPENM  B,OUTPUT,N                                                      CMP30       6636          I
          -CPS064 
 COMPASS   OPF2     FETCH  B,RT,X3                                                         CMP30       6637          I
          -CPS064 
 COMPASS            SX7    X3-#WT#                                                         CMP30       6638          I
          -CPS064 
 COMPASS            SX4    300000B                                                         CMP30       6639          I
          -CPS028 
 COMPASS            SA7    B-1         SAVE BINARY RECORD TYPE                             CMP30       6640          I
          -CPS064 
 COMPASS            STORE  B,RL=X4                                                         CMP30       6641          I
          -CPS028 
 COMPASS   OPF3     OPENM  OPFA,I-O,N  RETURN SCRATCH FILES                       S028 854 CPS028       632          I
          -CPS064 
 COMPASS            CLOSEM OPFA,U                                                 S028 855 CPS028       633          I
          -CPS064 
 COMPASS            OPENM  OPFB,I-O,N                                             S028 856 CPS028       634          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1121    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CLOSEM OPFB,U                                                 S028 857 CPS028       635          I
          -CPS064 
 COMPASS            EQ     OPF         RETURN                                     S028 858 CPS028       636          I
          -CPS064 
 COMPASS                                                                          S028 859 CPS028       637          I
          -CPS064 
 COMPASS   OPFA     FILE   LFN=ZZZZZRL,FET=SCR                                    S028 860 CPS028       638          I
          -CPS064 
 COMPASS   OPFB     FILE   LFN=ZZZZZRM,FET=REF                                    S028 861 CPS028       639          I
          -CPS064 
 COMPASS                                                                                   CMP30       6642          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6643          I
          -CPS064 
 COMPASS                                                                                   CMP30       6644          I
          -CPS064 
 COMPASS            EQ     OPF         RETURN                                              CMP30       6645          I
          -CPS028 
 COMPASS                                                                                   CMP30       6646          I
          -CPS064 
 COMPASS   ENDOPF   BSS    0           END OF CODE THAT MUST PRECEDE MANAGED TABLE         CMP30       6647          I
          -CPS064 
 COMPASS   RDD      SPACE  4                                                               CMP14        535          I
          -CPS064 
 COMPASS  **        RDD - READ DEBUGGING DIRECTIVES.                                       CMP14        536          I
          -CPS064 
 COMPASS  *         READ CARDS FROM FILE *PATCHES* AND COPY THEM                           CMP14        537          I
          -CPS064 
 COMPASS  *         TO FILE *SNAPPER* IN LISTABLE FORM.                                    CMP14        538          I
          -CPS064 
 COMPASS  *         *PATCH CARDS ARE PROCESSED DIRECTLY.                                   CMP14        539          I
          -CPS064 
 COMPASS  *         *SNAP CARDS CAUSE CONSTRUCTION OF SNAP DESCRIPTOR                      CMP14        540          I
          -CPS064 
 COMPASS  *         ENTRIES IN THE *SNAPBUF* TABLE AREA.                                   CMP14        541          I
          -CPS064 
 COMPASS  *         ALL OTHER CARDS ARE TREATED AS COMMENTS.                               CMP14        542          I
          -CPS064 
 COMPASS                                                                                   CMP14        543          I
          -CPS064 
 COMPASS                                                                                   CMP14        544          I
          -CPS064 
 COMPASS   DEBUG    IFNE   DEBUG,0                                                         CMP14        545          I
          -CPS064 
 COMPASS            QUAL   DEBUG                                                           CMP14        546          I
          -CPS064 
 COMPASS                                                                                   CMP14        547          I
          -CPS064 
 COMPASS   RDD      PS                 RETURN EXIT                                         CMP14        548          I
          -CPS064 
 COMPASS                                                                                   CMP30       6648          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1122    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6649          I
          -CPS064 
 COMPASS                                                                                   CMP30       6650          I
          -CPS064 
 COMPASS            REWIND P                                                               CMP14        549          I
          -CPS064 
 COMPASS            READ   P           START READING                                       CMP14        550          I
          -CPS064 
 COMPASS            READC  P,LINE+1,9  READ FIRST CARD                                     CMP14        551          I
          -CPS064 
 COMPASS            NZ     X1,RDD      IF NONE                                             CMP14        552          I
          -CMP30  
 COMPASS            NZ     X1,RDDX     IF NONE                                             CMP30       6651          I
          -CPS064 
 COMPASS            SA0    B6                                                              CMP14        553          I
          -CPS064 
 COMPASS            WRITEW D,DHEAD,LDHEAD    WRITE HEADER LINE                             CMP14        554          I
          -CPS064 
 COMPASS            SB6    A0                                                              CMP14        555          I
          -CPS064 
 COMPASS   RDDC     SB5    B6-LINE-1   LENGTH OF CARD                                      CMP14        556          I
          -CPS064 
 COMPASS                                                                                   CMP30       6652          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6653          I
          -CPS064 
 COMPASS                                                                                   CMP30       6654          I
          -CPS064 
 COMPASS            OPENM  P,INPUT,R                                                       CMP30       6655          I
          -CPS028 
 COMPASS            OPENM  P,INPUT,N                                              S028 864 CPS028       640          I
          -CPS064 
 COMPASS            REWINDM P                                                     S028 865 CPS028       641          I
          -CPS064 
 COMPASS            GET    P,LINE+1,90                                                     CMP30       6656          I
          -CPS064 
 COMPASS            FETCH  P,FP,X2                                                         CMP30       6657          I
          -CPS064 
 COMPASS            SX0    EOD                                                             CMP30       6658          I
          -CPS064 
 COMPASS            BX3    X0*X2                                                           CMP30       6659          I
          -CPS064 
 COMPASS            NZ     X3,RDDX     IF NO DATA IN PATCHES FILE                          CMP30       6660          I
          -CPS064 
 COMPASS            OPENM  D,OUTPUT,N  OPEN SNAPPER FOR LISTING                            CMP30       6661          I
          -CPS028 
 COMPASS            OPENM  D,I-O,N                                                S028 867 CPS028       642          I
          -CPS064 
 COMPASS            PUT    D,DHEAD,LDHEAD                                                  CMP30       6662          I
          -CPS064 
 COMPASS            PUT    D,DHEAD1,10                                                     CMP30       6663          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1123    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   RDDC     FETCH  P,RL,X3     RECORD LENGTH                                       CMP30       6664          I
          -CPS064 
 COMPASS            SX2    X3+9                                                            CMP30       6665          I
          -CPS064 
 COMPASS            SX1    52429                                                           CMP30       6666          I
          -CPS064 
 COMPASS            IX4    X1*X2                                                           CMP30       6667          I
          -CPS064 
 COMPASS            AX4    19          RL/10                                               CMP30       6668          I
          -CPS064 
 COMPASS            SB5    X4                                                              CMP30       6669          I
          -CPS064 
 COMPASS                                                                                   CMP30       6670          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6671          I
          -CPS064 
 COMPASS                                                                                   CMP30       6672          I
          -CPS064 
 COMPASS            SB7    8                                                               CMP14        557          I
          -CPS064 
 COMPASS   +        SB6    B1                                                              CMP14        558          I
          -CPS064 
 COMPASS            GE     B5,B7,*+1   IF MORE THAN 8 WORDS                                CMP14        559          I
          -CPS064 
 COMPASS            SB7    B5                                                              CMP14        560          I
          -CPS064 
 COMPASS            SA1    LINE+1      CARD COLUMNS 1-10                                   CMP14        561          I
          -CPS064 
 COMPASS            SA2    SNAPC                                                           CMP14        562          I
          -CPS064 
 COMPASS            SA3    A2+B1                                                           CMP14        563          I
          -CPS064 
 COMPASS            IX2    X1-X2                                                           CMP14        564          I
          -CPS064 
 COMPASS            BX3    X1-X3                                                           CMP14        565          I
          -CPS064 
 COMPASS            ZR     X2,RDDD     IF *SNAP                                            CMP14        566          I
          -CPS064 
 COMPASS            NZ     X3,RDDW     IF NOT *PATCH                                       CMP14        567          I
          -CPS064 
 COMPASS   RDDD     MX0    -6                                                              CMP14        568          I
          -CPS064 
 COMPASS            SB4    10          GET FIRST NUMBER, STARTING IN COLUMN 11             CMP14        569          I
          -CPS064 
 COMPASS            SA1    A1+B1                                                           CMP14        570          I
          -CPS064 
 COMPASS            SX4    B0                                                     S028 869 CPS028       643          I
          -CPS064 
 COMPASS            RJ     SCAN                                                            CMP14        571          I
          -CPS064 
 COMPASS            NZ     X3,RDDS     IF *SNAP                                            CMP14        572          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1124    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA0    X6                                                              CMP14        573          I
          -CPS064 
 COMPASS            RJ     SCAN        GET NEW VALUE                                       CMP14        574          I
          -CPS064 
 COMPASS            SA6    A0          STORE IT                                            CMP14        575          I
          -CPS064 
 COMPASS            EQ     RDDW                                                            CMP14        576          I
          -CPS064 
 COMPASS   RDDS     SA2    LSNAPBUF                                                        CMP14        577          I
          -CPS064 
 COMPASS            SA3    RJSNAP                                                          CMP14        578          I
          -CPS064 
 COMPASS            SA5    X6          FETCH INSTRUCTION WORD                              CMP14        579          I
          -CPS064 
 COMPASS            IX7    X3+X2                                                           CMP14        580          I
          -CPS064 
 COMPASS            BX6    X5          REPLACE WITH RJ SNAPPER                             CMP14        581          I
          -CPS064 
 COMPASS            SA7    A5                                                              CMP14        582          I
          -CPS064 
 COMPASS            SX7    X2+B1                                                           CMP14        583          I
          -CPS064 
 COMPASS            SA6    X2+SNAPBUF  SAVE REPLACED INSTRUCTION WORD                      CMP14        584          I
          -CPS064 
 COMPASS            SA7    A2                                                              CMP14        585          I
          -CPS064 
 COMPASS   RDDT     RJ     SCAN        GET FWA                                             CMP14        586          I
          -CPS028 
 COMPASS   RDDT     SX4    B1                                                     S028 871 CPS028       644          I
          -CPS064 
 COMPASS            RJ     SCAN        GET FWA                                    S028 872 CPS028       645          I
          -CPS064 
 COMPASS            MI     X7,RDDU     IF TABLE NAME                              S028 873 CPS028       646          I
          -CPS064 
 COMPASS            MX2    -17                                                             CMP14        587          I
          -CPS064 
 COMPASS            BX6    -X2*X6                                                          CMP14        588          I
          -CPS064 
 COMPASS            IX5    X6+X7                                                           CMP14        589          I
          -CPS064 
 COMPASS            LX5    30                                                              CMP14        590          I
          -CPS064 
 COMPASS            RJ     SCAN        GET WORD COUNT                                      CMP14        591          I
          -CPS064 
 COMPASS            MX2    -17                                                             CMP14        592          I
          -CPS064 
 COMPASS            BX6    -X2*X6                                                          CMP14        593          I
          -CPS064 
 COMPASS            IX6    X6+X7                                                           CMP14        594          I
          -CPS064 
 COMPASS            IX6    X6+X5                                                           CMP14        595          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1125    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   +        LT     B6,B7,*+1   IF NOT END OF CARD                                  CMP14        596          I
          -CPS028 
 COMPASS   RDDU     LT     B6,B7,*+1   IF NOT END OF CARD                         S028 875 CPS028       647          I
          -CPS064 
 COMPASS            MX2    1                                                               CMP14        597          I
          -CPS064 
 COMPASS            BX6    X6+X2                                                           CMP14        598          I
          -CPS064 
 COMPASS            SA2    LSNAPBUF                                                        CMP14        599          I
          -CPS064 
 COMPASS            SA6    X2+SNAPBUF  STORE SNAP DESCRIPTION                              CMP14        600          I
          -CPS064 
 COMPASS            SX7    X2+B1                                                           CMP14        601          I
          -CPS064 
 COMPASS            SA7    A2                                                              CMP14        602          I
          -CPS064 
 COMPASS            LT     B6,B7,RDDT  IF NOT END OF CARD                                  CMP14        603          I
          -CPS064 
 COMPASS                                                                                   CMP30       6673          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6674          I
          -CPS064 
 COMPASS                                                                                   CMP30       6675          I
          -CPS064 
 COMPASS   RDDW     WRITEW D,LINE,B5+B1                                                    CMP14        604          I
          -CPS064 
 COMPASS            READC  P,LINE+1,9  READ NEXT CARD                                      CMP14        605          I
          -CPS064 
 COMPASS            ZR     X1,RDDC     IF NOT EOR/EOF                                      CMP14        606          I
          -CPS064 
 COMPASS            WRITER D,RECALL    FLUSH BUFFER                                        CMP14        607          I
          -CPS064 
 COMPASS   RDDX     BSS    0                                                               CMP30       6676          I
          -CPS064 
 COMPASS                                                                                   CMP30       6677          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6678          I
          -CPS064 
 COMPASS                                                                                   CMP30       6679          I
          -CPS064 
 COMPASS   RDDW     FETCH  P,RL,X3                                                         CMP30       6680          I
          -CPS064 
 COMPASS            SX4    X3+10                                                           CMP30       6681          I
          -CPS064 
 COMPASS            PUT    D,LINE,X4                                                       CMP30       6682          I
          -CPS064 
 COMPASS            GET    P,LINE+1,90                                                     CMP30       6683          I
          -CPS064 
 COMPASS            FETCH  P,FP,X2                                                         CMP30       6684          I
          -CPS064 
 COMPASS            SX0    EOD                                                             CMP30       6685          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1126    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            BX3    X0*X2                                                           CMP30       6686          I
          -CPS064 
 COMPASS            ZR     X3,RDDC     IF NOT END OF DATA                                  CMP30       6687          I
          -CPS064 
 COMPASS            WEOR   D           FLUSH D                                             CMP30       6688          I
          -CPS064 
 COMPASS   RDDX     CLOSEM P,R                                                             CMP30       6689          I
          -CPS064 
 COMPASS                                                                                   CMP30       6690          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6691          I
          -CPS064 
 COMPASS                                                                                   CMP30       6692          I
          -CPS064 
 COMPASS            EQ     RDD                                                             CMP14        608          I
          -CPS064 
 COMPASS   SCAN     SPACE  4                                                               CMP14        609          I
          -CPS028 
 COMPASS  **        SCAN - READ ONE OCTAL NUMBER FROM DEBUG CARD.                          CMP14        610          I
          -CPS028 
 COMPASS  *         ALL CHARACTERS OTHER THAN 0-7 , * ARE IGNORED.                         CMP14        611          I
          -CPS028 
 COMPASS  *         SCAN IS STOPPED BY , OR END OF CARD IMAGE.                             CMP14        612          I
          -CPS028 
 COMPASS   SCAN     SPACE  4                                                      S028 877 CPS028       648          I
          -CPS064 
 COMPASS  **        SCAN - READ ONE OCTAL NUMBER OR TABLE NAME FROM DEBUG CARD.   S028 878 CPS028       649          I
          -CPS064 
 COMPASS  *         STOPPED BY , OR . OR END OF CARD IMAGE.                       S028 879 CPS028       650          I
          -CPS064 
 COMPASS  *         ENTRY  (X0) = -77B.                                                    CMP14        613          I
          -CPS064 
 COMPASS  *                (X1) = CURRENT WORD OF CARD IMAGE.                              CMP14        614          I
          -CPS064 
 COMPASS  *                (A1) = ADDRESS OF (X1).                                         CMP14        615          I
          -CPS064 
 COMPASS  *                (B4) = NUMBER OF CHARACTERS REMAINING IN (X1).                  CMP14        616          I
          -CPS064 
 COMPASS  *                (B6) = WORD NUMBER.                                             CMP14        617          I
          -CPS064 
 COMPASS  *                (B7) = WORD COUNT OF CARD IMAGE.                                CMP14        618          I
          -CPS064 
 COMPASS  *                (X4) = 0 TO DISALLOW TABLE NAME AND IGNORE ALL         S028 881 CPS028       651          I
          -CPS064 
 COMPASS  *                         CHARACTERS OTHER THAN * , . AND 0-7.          S028 882 CPS028       652          I
          -CPS064 
 COMPASS  *                     = 1 TO ALLOW TABLE NAME.                          S028 883 CPS028       653          I
          -CPS064 
 COMPASS  *         EXIT   (X0), (B7) UNCHANGED.                                           CMP14        619          I
          -CPS064 
 COMPASS  *                (X1), (A1), (B4), (B6) UPDATED.                                 CMP14        620          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1127    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS  *                (X6) = NUMBER SCANNED.                                          CMP14        621          I
          -CPS028 
 COMPASS  *                (B6) = (B7) IF . OR END OF CARD IMAGE ENCOUNTERED.     S028 885 CPS028       654          I
          -CPS064 
 COMPASS  *                (X6) = NUMBER SCANNED, OR                              S028 886 CPS028       655          I
          -CPS064 
 COMPASS  *                     = 13/1, 17/O.XXX, 13/1, 17/L.XXX                  S028 887 CPS028       656          I
          -CPS064 
 COMPASS  *                       IF TABLE NAME XXX SCANNED.                      S028 888 CPS028       657          I
          -CPS064 
 COMPASS  *                (X7) = 0 IF NO * FOUND,                                         CMP14        622          I
          -CPS064 
 COMPASS  *                     = 400000B IF AN * FOUND.                                   CMP14        623          I
          -CPS028 
 COMPASS  *                     = 400000B IF AN * FOUND, OR                       S028 890 CPS028       658          I
          -CPS064 
 COMPASS  *                     = -1 IF A TABLE NAME SCANNED.                     S028 891 CPS028       659          I
          -CPS064 
 COMPASS                                                                                   CMP14        624          I
          -CPS064 
 COMPASS                                                                                   CMP14        625          I
          -CPS064 
 COMPASS   SCAN     PS                 RETURN EXIT                                         CMP14        626          I
          -CPS064 
 COMPASS            MX6    0                                                               CMP14        627          I
          -CPS064 
 COMPASS            SX7    B0                                                              CMP14        628          I
          -CPS064 
 COMPASS            GE     B6,B7,SCAN  IF CARD EXHAUSTED                                   CMP14        629          I
          -CPS064 
 COMPASS   SCAN0    NZ     B4,SCAN1    IF WORD NOT EXHAUSTED                               CMP14        630          I
          -CPS064 
 COMPASS            SB6    B6+B1                                                           CMP14        631          I
          -CPS064 
 COMPASS            SA1    A1+B1                                                           CMP14        632          I
          -CPS064 
 COMPASS            SB4    10                                                              CMP14        633          I
          -CPS064 
 COMPASS            GE     B6,B7,SCAN  IF CARD EXHAUSTED                                   CMP14        634          I
          -CPS064 
 COMPASS   SCAN1    LX1    6                                                               CMP14        635          I
          -CPS064 
 COMPASS            SB4    B4-B1                                                           CMP14        636          I
          -CPS064 
 COMPASS            BX2    -X0*X1                                                          CMP14        637          I
          -CPS064 
 COMPASS            SX2    X2-1R0                                                          CMP14        638          I
          -CPS064 
 COMPASS            SB3    X2-8                                                            CMP14        639          I
          -CPS064 
 COMPASS            MI     X2,SCAN0    IF COLON OR A-Z                                     CMP14        640          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1128    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            MI     X2,SCAN4    IF COLON OR A-Z                            S028 893 CPS028       660          I
          -CPS064 
 COMPASS            PL     B3,SCAN2    IF NOT 0-7                                          CMP14        641          I
          -CPS064 
 COMPASS            LX6    3                                                               CMP14        642          I
          -CPS064 
 COMPASS            SX4    0                                                      S028 895 CPS028       661          I
          -CPS064 
 COMPASS            IX6    X6+X2                                                           CMP14        643          I
          -CPS064 
 COMPASS            EQ     SCAN0                                                           CMP14        644          I
          -CPS064 
 COMPASS   SCAN2    SB2    X2+1R0-1R*                                                      CMP14        645          I
          -CPS064 
 COMPASS            SB3    X2+1R0-1R,                                                      CMP14        646          I
          -CPS064 
 COMPASS            NZ     B2,SCAN3    IF NOT ASTERISK                                     CMP14        647          I
          -CPS064 
 COMPASS            SX7    B1                                                              CMP14        648          I
          -CPS064 
 COMPASS            LX7    17                                                              CMP14        649          I
          -CPS064 
 COMPASS   SCAN3    NZ     B3,SCAN0    IF NOT COMMA                                        CMP14        650          I
          -CPS028 
 COMPASS   SCAN3    ZR     B3,SCAN     IF COMMA, RETURN                           S028 897 CPS028       662          I
          -CPS064 
 COMPASS            NE     B3,B1,SCAN0 IF NOT PERIOD                              S028 898 CPS028       663          I
          -CPS064 
 COMPASS            SB6    B7          SET END OF CARD                            S028 899 CPS028       664          I
          -CPS064 
 COMPASS            EQ     SCAN                                                            CMP14        651          I
          -CPS064 
 COMPASS   SCAN4    ZR     X4,SCAN0    IF TABLE NAME NOT ALLOWED                  S028 901 CPS028       665          I
          -CPS064 
 COMPASS            SB2    60                                                     S028 902 CPS028       666          I
          -CPS064 
 COMPASS            SX2    X2+1R0      RESTORE CHARACTER                          S028 903 CPS028       667          I
          -CPS064 
 COMPASS            ZR     X2,SCAN6    IF COLON                                   S028 904 CPS028       668          I
          -CPS064 
 COMPASS   SCAN5    SB2    B2-6                                                   S028 905 CPS028       669          I
          -CPS064 
 COMPASS            LX2    B2          APPEND CHARACTER TO NAME                   S028 906 CPS028       670          I
          -CPS064 
 COMPASS            BX6    X6+X2                                                  S028 907 CPS028       671          I
          -CPS064 
 COMPASS   SCAN6    NZ     B4,SCAN7    IF WORD NOT EXHAUSTED                      S028 908 CPS028       672          I
          -CPS064 
 COMPASS            SB6    B6+B1                                                  S028 909 CPS028       673          I
          -CPS064 
 COMPASS            SA1    A1+B1       FETCH NEXT WORD                            S028 910 CPS028       674          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1129    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SB4    10                                                     S028 911 CPS028       675          I
          -CPS064 
 COMPASS            GE     B6,B7,SCAN8 IF CARD EXHAUSTED                          S028 912 CPS028       676          I
          -CPS064 
 COMPASS   SCAN7    LX1    6                                                      S028 913 CPS028       677          I
          -CPS064 
 COMPASS            SB4    B4-B1                                                  S028 914 CPS028       678          I
          -CPS064 
 COMPASS            BX2    -X0*X1      EXTRACT NEXT CHARACTER                     S028 915 CPS028       679          I
          -CPS064 
 COMPASS            SB3    X2-1R,                                                 S028 916 CPS028       680          I
          -CPS064 
 COMPASS            ZR     X2,SCAN6    IF COLON                                   S028 917 CPS028       681          I
          -CPS064 
 COMPASS            ZR     B3,SCAN8    IF COMMA                                   S028 918 CPS028       682          I
          -CPS064 
 COMPASS            NE     B3,B1,SCAN5 IF NOT PERIOD                              S028 919 CPS028       683          I
          -CPS064 
 COMPASS            SB6    B7          SET END OF CARD                            S028 920 CPS028       684          I
          -CPS064 
 COMPASS   SCAN8    SA2    TABLES      SEARCH LIST OF TABLES                      S028 921 CPS028       685          I
          -CPS064 
 COMPASS            MX3    -18                                                    S028 922 CPS028       686          I
          -CPS064 
 COMPASS   SCAN9    ZR     X2,SCAN+1   IF NOT FOUND, IGNORE FIELD                 S028 923 CPS028       687          I
          -CPS064 
 COMPASS            BX4    X3*X2                                                  S028 924 CPS028       688          I
          -CPS064 
 COMPASS            SB3    X2          TABLE NUMBER                               S028 925 CPS028       689          I
          -CPS064 
 COMPASS            IX7    X6-X4                                                  S028 926 CPS028       690          I
          -CPS064 
 COMPASS            SA2    A2+B1                                                  S028 927 CPS028       691          I
          -CPS064 
 COMPASS            NZ     X7,SCAN9    LOOP                                       S028 928 CPS028       692          I
          -CPS064 
 COMPASS            SX3    B1                                                     S028 929 CPS028       693          I
          -CPS064 
 COMPASS            SX4    ORIGINS+B3                                             S028 930 CPS028       694          I
          -CPS064 
 COMPASS            LX3    17                                                     S028 931 CPS028       695          I
          -CPS064 
 COMPASS            BX4    X4+X3       SETUP (X6) FOR TABLE                       S028 932 CPS028       696          I
          -CPS064 
 COMPASS            SX6    SIZES+B3                                               S028 933 CPS028       697          I
          -CPS064 
 COMPASS            LX4    30                                                     S028 934 CPS028       698          I
          -CPS064 
 COMPASS            BX6    X6+X3                                                  S028 935 CPS028       699          I
          -CPS064 
 COMPASS            SX7    -B1         (X7) = -1                                  S028 936 CPS028       700          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1130    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            BX6    X4+X6                                                  S028 937 CPS028       701          I
          -CPS064 
 COMPASS            EQ     SCAN        RETURN                                     S028 938 CPS028       702          I
          -CPS064 
 COMPASS   DATA     SPACE  4                                                               CMP14        652          I
          -CPS064 
 COMPASS  **        CONSTANTS AND WORKING STORAGE FOR *RDD*.                               CMP14        653          I
          -CPS064 
 COMPASS                                                                                   CMP14        654          I
          -CPS064 
 COMPASS                                                                                   CMP14        655          I
          -CPS064 
 COMPASS   RJSNAP   RJ     SNAPPER                                                         CMP14        656          I
          -CPS064 
 COMPASS   -        VFD    30/**                                                           CMP14        657          I
          -CPS064 
 COMPASS                                                                                   CMP14        658          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6693          I
          -CPS064 
 COMPASS   DHEAD    DATA   C*1     COMPASS DEBUGGING OUTPUT.*,8L0                          CMP14        659          I
          -CPS064 
 COMPASS   LDHEAD   EQU    *-DHEAD                                                         CMP14        660          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6694          I
          -CPS064 
 COMPASS   DHEAD    DATA   H*1     COMPASS DEBUGGING OUTPUT.*                              CMP30       6695          I
          -CPS064 
 COMPASS   LDH      SET    *-DHEAD                                                         CMP30       6696          I
          -CPS064 
 COMPASS   LDHEAD   EQU    LDH*10                                                          CMP30       6697          I
          -CPS064 
 COMPASS   DHEAD1   DATA   1H0                                                             CMP30       6698          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6699          I
          -CPS064 
 COMPASS                                                                                   CMP14        661          I
          -CPS064 
 COMPASS   LINE     DATA   10H                                                             CMP14        662          I
          -CPS064 
 COMPASS            BSS    9           DIRECTIVE CARD IMAGE                                CMP14        663          I
          -CPS064 
 COMPASS                                                                                   CMP14        664          I
          -CPS064 
 COMPASS   SNAPC    DATA   H *SNAP ,H *PATCH                                               CMP14        665          I
          -CPS064 
 COMPASS                                                                          S028 940 CPS028       703          I
          -CPS064 
 COMPASS   TABLES   BSS    0                                                      S028 941 CPS028       704          I
          -CPS064 
 COMPASS   DEBUG    HERE               LIST OF TABLE NAMES AND NUMBERS            S028 942 CPS028       705          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1131    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            CON    0                                                      S028 943 CPS028       706          I
          -CPS064 
 COMPASS                                                                                   CMP14        666          I
          -CPS064 
 COMPASS   LSNAPBUF DATA   0           LENGTH OF SNAPBUF                                   CMP14        667          I
          -CPS064 
 COMPASS                                                                                   CMP14        668          I
          -CPS064 
 COMPASS   P        BSS    0           FILE ENVIRONMENT TABLE FOR                          CMP14        669          I
          -CMP30  
 COMPASS   PATCHES  FET    ,BBUFL,1    PATCH/SNAP DIRECTIVES                               CMP14        670          I
          -CMP30  
 COMPASS   PSD      FET    PATCHES,,BBUFL,1                                                CMP30       6700          I
          -CPS064 
 COMPASS                                                                                   CMP30       6701          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6702          I
          -CPS064 
 COMPASS   P        EQU    PSD                                                             CMP30       6703          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6704          I
          -CPS064 
 COMPASS            IFC    LT, "MODEL" 75 ,2                                               CMP30       6705          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,6,1                                              S028 945 CPS028       707          I
          -CPS064 
 COMPASS   P        FILE   LFN=PATCHES,FO=SQ,BT=C,RT=Z,MRL=90,CM=YES,LT=UL,FET=PSD         CMP30       6706          I
          -CPS064 
 COMPASS  ,,BFS=BBUFL                                                                      CMP30       6707          I
          -CPS028 
 COMPASS            SKIP   1                                                               CMP30       6708          I
          -CPS028 
 COMPASS  ,,BFS=BBUFL,ERL=1                                                       S028 947 CPS028       708          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,7,1                                              S028 948 CPS028       709          I
          -CPS064 
 COMPASS   P        FILE   LFN=PATCHES,FO=SQ,BT=,RT=W,MRL=90,PD=INPUT                      CMP30       6709          I
          -CPS064 
 COMPASS            BSSZ   PSD+40B-*                                                       CMP30       6710          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6711          I
          -CPS064 
 COMPASS                                                                                   CMP14        671          I
          -CPS064 
 COMPASS            QUAL   *                                                               CMP14        672          I
          -CPS064 
 COMPASS   DEBUG    ENDIF                                                                  CMP14        673          I
          -CPS064 
 COMPASS                                                                                   CMP30       6712          I
          -CPS064 
 COMPASS   ENDRDD   BSS    0           END OF DEBUGGING INITIALIZATION CODE                CMP30       6713          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1132    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   SBA      SPACE  4                                                               CMP30       6714          I
          -CPS064 
 COMPASS  **        SBA - SET BUFFER ADDRESS.                                              CMP30       6715          I
          -CPS064 
 COMPASS  *         ENTRY  (X0) = BUFFER FIRST WORD ADDRESS.                               CMP30       6716          I
          -CPS064 
 COMPASS  *                (X1) = FET/FIT ADDRESS.                                         CMP30       6717          I
          -CPS064 
 COMPASS  *         EXIT   (X0) = BUFFER LAST WORD ADDRESS + 1.                            CMP30       6718          I
          -CPS064 
 COMPASS                                                                                   CMP30       6719          I
          -CPS064 
 COMPASS                                                                                   CMP30       6720          I
          -CPS064 
 COMPASS   SBA      PS                 RETURN EXIT                                         CMP30       6721          I
          -CPS064 
 COMPASS                                                                                   CMP30       6722          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6723          I
          -CPS064 
 COMPASS                                                                                   CMP30       6724          I
          -CPS064 
 COMPASS            SA4    X1+B1       READ FIRST                                          CMP30       6725          I
          -CPS064 
 COMPASS            BX6    X4+X0                                                           CMP30       6726          I
          -CPS064 
 COMPASS            LX7    X0                                                              CMP30       6727          I
          -CPS064 
 COMPASS            SA6    X1+B1       SET FIRST                                           CMP30       6728          I
          -CPS064 
 COMPASS            SA7    A6+B1       SET IN                                              CMP30       6729          I
          -CPS064 
 COMPASS            SA7    A7+B1       SET OUT                                             CMP30       6730          I
          -CPS064 
 COMPASS            SA2    A7+B1       READ LIMIT                                          CMP30       6731          I
          -CPS064 
 COMPASS            IX6    X7+X2                                                           CMP30       6732          I
          -CPS064 
 COMPASS            SA6    A7+B1       SET LIMIT                                           CMP30       6733          I
          -CPS064 
 COMPASS            IX0    X0+X2                                                           CMP30       6734          I
          -CPS064 
 COMPASS                                                                                   CMP30       6735          I
          -CPS064 
 COMPASS   RM       ELSE                                                                   CMP30       6736          I
          -CPS064 
 COMPASS   RM       IFC    LT, "MODEL" 75                                                  CMP30       6737          I
          -CPS028 
 COMPASS   RM       IFEQ   CP#RM,6                                                S028 950 CPS028       710          I
          -CPS064 
 COMPASS                                                                                   CMP30       6738          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1133    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            STORE  X1,FWB=X0   SET FWA BUFFER                                      CMP30       6739          I
          -CPS064 
 COMPASS            FETCH  X1,BFS,X2   READ BUFFER SIZE                                    CMP30       6740          I
          -CPS064 
 COMPASS            IX0    X0+X2                                                           CMP30       6741          I
          -CPS064 
 COMPASS                                                                                   CMP30       6742          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6743          I
          -CPS064 
 COMPASS                                                                                   CMP30       6744          I
          -CPS064 
 COMPASS            EQ     SBA         RETURN                                              CMP30       6745          I
          -CPS064 
 COMPASS   SFL      SPACE  4                                                               CMP30       6746          I
          -CPS064 
 COMPASS  **        SFL - SET FIELD LENGTH.                                                CMP30       6747          I
          -CPS064 
 COMPASS                                                                                   CMP30       6748          I
          -CPS064 
 COMPASS                                                                                   CMP30       6749          I
          -CPS064 
 COMPASS   SFL      PS                 RETURN EXIT                                         CMP30       6750          I
          -CPS064 
 COMPASS            SA1    CP.NFLS                                                         CMP30       6751          I
          -CPS064 
 COMPASS            SA2    LOCORE                                                          CMP30       6752          I
          -CPS064 
 COMPASS            SX6    X1-10       ALLOW TEN WORDS FOR SLOP                            CMP30       6753          I
          -CPS064 
 COMPASS            IX7    X6-X2                                                           CMP30       6754          I
          -CPS064 
 COMPASS            SB7    X7-NOPCT*2-NSYMT*2                                              CMP30       6755          I
          -CPS064 
 COMPASS            SA6    O.ENDTAB    SAVE END OF MANAGED TABLE AREA                      CMP30       6756          I
          -CPS064 
 COMPASS            SA7    SIZCORE                                                         CMP30       6757          I
          -CPS064 
 COMPASS            PL     B7,SFL      IF ENOUGH ROOM                                      CMP30       6758          I
          -CPS028 
 COMPASS            PL     B7,SFL1     IF ENOUGH ROOM                             S028 952 CPS028       711          I
          -CPS064 
 COMPASS            SX1    X2+NOPCT*2+NSYMT*2+10D+77B                                      CMP30       6759          I
          -CPS064 
 COMPASS            AX1    6                                                               CMP30       6760          I
          -CPS028 
 COMPASS            MX0    -6                                                     S028 954 CPS028       712          I
          -CPS064 
 COMPASS            BX1    X0*X1                                                  S028 955 CPS028       713          I
          -CPS064 
 COMPASS            RJ     COCT        CONVERT TO OCTAL                                    CMP30       6761          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1134    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA1    SFLA+2                                                          CMP30       6762          I
          -CPS064 
 COMPASS            MX0    30                                                              CMP30       6763          I
          -CPS064 
 COMPASS            LX6    12                                                              CMP30       6764          I
          -CPS064 
 COMPASS            BX1    X0*X1       INSERT REQUIRED FIELD LENGTH INTO MESSAGE           CMP30       6765          I
          -CPS064 
 COMPASS            BX6    -X0*X1                                                          CMP30       6766          I
          -CPS028 
 COMPASS            BX6    -X0*X6                                                 S028 957 CPS028       714          I
          -CPS064 
 COMPASS            BX6    X1+X6                                                           CMP30       6767          I
          -CPS064 
 COMPASS            SA6    A1                                                              CMP30       6768          I
          -CPS064 
 COMPASS            MESSAGE SFLA,,R                                                        CMP30       6769          I
          -CPS064 
 COMPASS            ABORT  ,NODUMP                                                         CMP30       6770          I
          -CPS064 
 COMPASS                                                                          S028 959 CPS028       715          I
          -CPS064 
 COMPASS   LCM      IFNE   CP#RM,7                                                S028 960 CPS028       716          I
          -CPS064 
 COMPASS   SFL1     EQU    SFL         RETURN                                     S028 961 CPS028       717          I
          -CPS064 
 COMPASS   LCM      ELSE                                                          S028 962 CPS028       718          I
          -CPS064 
 COMPASS   SFL1     MEMORY ECS,SFLB,R  GET LCM FIELD LENGTH AND MODE              S028 963 CPS028       719          I
          -CPS064 
 COMPASS            SA1    SFLB                                                   S028 964 CPS028       720          I
          -CPS064 
 COMPASS            LX1    59-1                                                   S028 965 CPS028       721          I
          -CPS064 
 COMPASS            SX6    B0                                                     S028 966 CPS028       722          I
          -CPS064 
 COMPASS            PL     X1,SFL      IF NOT REDUCE MODE FOR LCM FIELD LENGTH    S028 967 CPS028       723          I
          -CPS064 
 COMPASS            SA6    FLLF        CLEAR FIXED FLL FLAG                       S028 968 CPS028       724          I
          -CPS064 
 COMPASS            SA2    CP.STEXT                                               S028 969 CPS028       725          I
          -CPS064 
 COMPASS            SA3    CP.LIB      CHECK FOR SYSTEM TEXTS TO BE LOADED        S028 970 CPS028       726          I
          -CPS064 
 COMPASS            LX1    1-59                                                   S028 971 CPS028       727          I
          -CPS064 
 COMPASS            AX1    30          CURRENT LCM FIELD LENGTH                   S028 972 CPS028       728          I
          -CPS064 
 COMPASS            IX2    X2+X3                                                  S028 973 CPS028       729          I
          -CPS064 
 COMPASS            SX6    20000B                                                 S028 974 CPS028       730          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1135    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   +        NZ     X2,*+1      IF NOT *S=0*                               S028 975 CPS028       731          I
          -CPS064 
 COMPASS            SX6    10000B                                                 S028 976 CPS028       732          I
          -CPS064 
 COMPASS   +        IX2    X1-X6                                                  S028 977 CPS028       733          I
          -CPS064 
 COMPASS            PL     X2,SFL      IF ENOUGH ROOM                             S028 978 CPS028       734          I
          -CPS064 
 COMPASS            LX6    30                                                     S028 979 CPS028       735          I
          -CPS064 
 COMPASS            SA6    SFLB                                                   S028 980 CPS028       736          I
          -CPS064 
 COMPASS            MEMORY ECS,SFLB,R  REQUEST MORE LCM FIELD LENGTH              S028 981 CPS028       737          I
          -CPS064 
 COMPASS            SA1    SFLB                                                   S028 982 CPS028       738          I
          -CPS064 
 COMPASS            AX1    30                                                     S028 983 CPS028       739          I
          -CPS064 
 COMPASS            BX6    X1          UPDATE ACTUAL FIELD LENGTH                 S028 984 CPS028       740          I
          -CPS064 
 COMPASS            SA6    CP.AFLL                                                S028 985 CPS028       741          I
          -CPS064 
 COMPASS            EQ     SFL         RETURN                                     S028 986 CPS028       742          I
          -CPS064 
 COMPASS   LCM      ENDIF                                                         S028 987 CPS028       743          I
          -CPS064 
 COMPASS                                                                                   CMP30       6771          I
          -CPS064 
 COMPASS   SFLA     DATA   C*  COMPASS NEEDS AT LEAST 00000B SCM.*                         CMP30       6772          I
          -CPS064 
 COMPASS   SFLB     DATA   0                                                      S028 993 CPS028       744          I
          -CPS064 
 COMPASS   SFP      SPACE  4                                                               CMP30       6773          I
          -CPS064 
 COMPASS  **        SFP - SET FILE PARAMETERS.                                             CMP30       6774          I
          -CPS064 
 COMPASS                                                                                   CMP30       6775          I
          -CPS064 
 COMPASS                                                                                   CMP30       6776          I
          -CPS064 
 COMPASS   SFP      PS                 RETURN EXIT                                         CMP30       6777          I
          -CPS064 
 COMPASS                                                                          S028 989 CPS028       745          I
          -CPS064 
 COMPASS            IFNE   CP#RM,0,1                                              S028 990 CPS028       746          I
          -CPS064 
 COMPASS            STORE  I,DX=0                                                 S028 991 CPS028       747          I
          -CPS064 
 COMPASS                                                                                   CMP30       6778          I
          -CPS064 
 COMPASS            SA3    E                                                               CMP30       6779          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1136    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS            SA4    CP.LISTF                                                        CMP30       6780          I
          -CPS064 
 COMPASS            SX0    BUFFERS                                                         CMP30       6781          I
          -CPS064 
 COMPASS            ZR     X3,SFP2     IF NO ERROR FILE                                    CMP30       6782          I
          -CPS064 
 COMPASS            ZR     X4,SFP1     IF NO LONG LISTING WANTED                           CMP30       6783          I
          -CPS064 
 COMPASS            SA4    O                                                               CMP30       6784          I
          -CPS064 
 COMPASS            MX6    42                                                              CMP30       6785          I
          -CPS064 
 COMPASS            BX5    X3-X4       COMPARE ERROR AND MAIN LISTING FILE NAMES           CMP30       6786          I
          -CPS064 
 COMPASS            BX6    X6*X5                                                           CMP30       6787          I
          -CPS064 
 COMPASS            NZ     X6,SFP1     IF NOT SAME FILE                                    CMP30       6788          I
          -CPS064 
 COMPASS            SA6    A3          CLEAR ERROR FILE                                    CMP30       6789          I
          -CPS064 
 COMPASS            EQ     SFP2                                                            CMP30       6790          I
          -CPS064 
 COMPASS   SFP1     BSS    0                                                               CMP30       6791          I
          -CPS064 
 COMPASS                                                                                   CMP30       6792          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       6793          I
          -CPS064 
 COMPASS            SA2    E+2                                                             CMP30       6794          I
          -CPS064 
 COMPASS            ELSE   2                                                               CMP30       6795          I
          -CPS064 
 COMPASS            IFC    LT, "MODEL" 75 ,1                                               CMP30       6796          I
          -CPS064 
 COMPASS            FETCH  E,FWB,X2                                                        CMP30       6797          I
          -CPS064 
 COMPASS                                                                                   CMP30       6798          I
          -CPS064 
 COMPASS            SX1    A3                                                              CMP30       6799          I
          -CPS064 
 COMPASS            NZ     X2,SFP2     IF BUFFERS HAVE BEEN SWITCHED                       CMP30       6800          I
          -CPS064 
 COMPASS            RJ     SBA         SET ERROR BUFFER ADDRESS                            CMP30       6801          I
          -CPS064 
 COMPASS   SFP2     SA3    CP.LISTF                                                        CMP30       6802          I
          -CPS064 
 COMPASS            SX1    R                                                               CMP30       6803          I
          -CPS064 
 COMPASS            ZR     X3,SFP3     IF NO LISTING                                       CMP30       6804          I
          -CPS064 
 COMPASS            RJ     SBA         SET CROSS REFERENCE BUFFER ADDRESS                  CMP30       6805          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1137    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   SFP3     SX1    S                                                               CMP30       6806          I
          -CPS064 
 COMPASS            SX3    X0                                                              CMP30       6807          I
          -CPS064 
 COMPASS            RJ     SBA         SET SCRATCH BUFFER ADDRESS                          CMP30       6808          I
          -CPS064 
 COMPASS                                                                                   CMP30       6809          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       6810          I
          -CPS064 
 COMPASS            SX1    G                                                               CMP30       6811          I
          -CPS064 
 COMPASS            ELSE   1                                                               CMP30       6812          I
          -CPS064 
 COMPASS            SX1    GDUM                                                            CMP30       6813          I
          -CPS064 
 COMPASS                                                                                   CMP30       6814          I
          -CPS064 
 COMPASS            SX0    X3          SCRATCH BUFFER ADDRESS                              CMP30       6815          I
          -CPS064 
 COMPASS            RJ     SBA         SET GTEXT BUFFER ADDRESS                            CMP30       6816          I
          -CPS064 
 COMPASS                                                                                   CMP30       6817          I
          -CPS064 
 COMPASS            IFNE   DEBUG,0,2                                                       CMP30       6818          I
          -CPS064 
 COMPASS            SX1    D                                                               CMP30       6819          I
          -CPS064 
 COMPASS            RJ     SBA         SET SNAPPER BUFFER ADDRESS                          CMP30       6820          I
          -CPS064 
 COMPASS                                                                                   CMP30       6821          I
          -CPS064 
 COMPASS   B        IFEQ   CP#IR,0                                                         CMP30       6822          I
          -CPS028 
 COMPASS   B        IFEQ   CP#RM,0                                                         CMP30       6823          I
          -CPS064 
 COMPASS            SA1    B+1         CHANGE *FET LGO,OBUF,OBUFL,7*                       CMP30       6824          I
          -CPS064 
 COMPASS            SX7    BBUFL       TO     *FET LGO,,BBUFL,7*                           CMP30       6825          I
          -CPS064 
 COMPASS            SX2    X1          FOR SBA                                             CMP30       6826          I
          -CPS064 
 COMPASS            BX6    X1-X2                                                           CMP30       6827          I
          -CPS064 
 COMPASS            SA7    B+4         LIMIT = BBUFL                                       CMP30       6828          I
          -CPS064 
 COMPASS            SA6    A1          FIRST = 0                                           CMP30       6829          I
          -CPS064 
 COMPASS   B        ELSE                                                          S028 996 CPS028       748          I
          -CPS064 
 COMPASS   B        IFEQ   CP#RM,6                                                S028 997 CPS028       749          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1138    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   B        IFC    LT, "MODEL" 75                                         S028 998 CPS028       750          I
          -CPS064 
 COMPASS            SX2    BBUFL                                                  S028 999 CPS028       751          I
          -CPS064 
 COMPASS            STORE  B,BFS=X2                                               S0281000 CPS028       752          I
          -CPS064 
 COMPASS   B        ENDIF                                                                  CMP30       6830          I
          -CPS064 
 COMPASS                                                                                   CMP30       6831          I
          -CPS064 
 COMPASS            SX1    B                                                               CMP30       6832          I
          -CPS064 
 COMPASS            SX3    X0                                                              CMP30       6833          I
          -CPS064 
 COMPASS            RJ     SBA         SET BINARY BUFFER ADDRESS                           CMP30       6834          I
          -CPS064 
 COMPASS                                                                                   CMP30       6835          I
          -CPS064 
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       6836          I
          -CPS064 
 COMPASS            SX1    X                                                               CMP30       6837          I
          -CPS064 
 COMPASS            ELSE   1                                                               CMP30       6838          I
          -CPS064 
 COMPASS            SX1    /PASS1/XDUM                                                     CMP30       6839          I
          -CPS064 
 COMPASS                                                                                   CMP30       6840          I
          -CPS064 
 COMPASS            SX0    X3          BINARY BUFFER ADDRESS                               CMP30       6841          I
          -CPS064 
 COMPASS            RJ     SBA         SET XTEXT BUFFER ADDRESS                            CMP30       6842          I
          -CPS064 
 COMPASS                                                                                   CMP30       6843          I
          -CPS064 
 COMPASS            IFNE   DEBUG,0,3                                                       CMP30       6844          I
          -CPS064 
 COMPASS            SX0    X3                                                              CMP30       6845          I
          -CPS064 
 COMPASS            SX1    /DEBUG/P                                                        CMP30       6846          I
          -CPS064 
 COMPASS            RJ     SBA         SET PATCHES BUFFER ADDRESS                          CMP30       6847          I
          -CPS064 
 COMPASS                                                                                   CMP30       6848          I
          -CPS064 
 COMPASS            BX1    X0                                                              CMP30       6849          I
          -CPS064 
 COMPASS            RJ     ACL         ADJUST CORE LIMITS                                  CMP30       6850          I
          -CPS064 
 COMPASS                                                                                   CMP30       6851          I
          -CPS064 
 COMPASS            EQ     SFP         RETURN                                              CMP30       6852          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1139    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS064 
 COMPASS   SIR      SPACE  4                                                               CMP30       6853          I
          -CPS028 
 COMPASS  **        SIR - SET INTERFACE REGION.                                            CMP30       6854          I
          -CPS028 
 COMPASS  *         ENTRY  (A0) = SCM FIELD LENGTH.                                        CMP30       6855          I
          -CPS028 
 COMPASS  *                (X0) = LCM FIELD LENGTH.                                        CMP30       6856          I
          -CPS028 
 COMPASS                                                                                   CMP30       6857          I
          -CPS028 
 COMPASS                                                                                   CMP30       6858          I
          -CPS028 
 COMPASS   OLDIR    IFNE   CP#IR,0                                                         CMP30       6859          I
          -CPS028 
 COMPASS                                                                                   CMP30       6860          I
          -CPS028 
 COMPASS   SIR      PS                 RETURN EXIT                                         CMP30       6861          I
          -CPS028 
 COMPASS            SA1    77B                                                             CMP30       6862          I
          -CPS028 
 COMPASS            PL     X1,SIR      IF NOT CALLED BY A COMPILER                         CMP30       6863          I
          -CPS028 
 COMPASS            SX7    X1-1                                                            CMP30       6864          I
          -CPS028 
 COMPASS            SA7    CP.BATCH    BATCH CONTROL CELL                                  CMP30       6865          I
          -CPS028 
 COMPASS            SX6    A0          STORE FIELD LENGTHS                                 CMP30       6866          I
          -CPS028 
 COMPASS            BX7    X0                                                              CMP30       6867          I
          -CPS028 
 COMPASS            SA6    CP.AFLS                                                         CMP30       6868          I
          -CPS028 
 COMPASS            SA7    CP.AFLL                                                         CMP30       6869          I
          -CPS028 
 COMPASS            SA6    CP.NFLS                                                         CMP30       6870          I
          -CPS028 
 COMPASS            SA7    CP.NFLL                                                         CMP30       6871          I
          -CPS028 
 COMPASS            SA1    53B         SYSTEXT NAME                                        CMP30       6872          I
          -CPS028 
 COMPASS            BX6    X1                                                              CMP30       6873          I
          -CPS028 
 COMPASS            LX1    18                                                              CMP30       6874          I
          -CPS028 
 COMPASS            SX7    X1-1L0                                                          CMP30       6875          I
          -CPS028 
 COMPASS            SA6    CP.STEXT+1                                                      CMP30       6876          I
          -CPS028 
 COMPASS   +        NZ     X7,*+1      IF NOT *S=0*                                        CMP30       6877          I
          -CPS028 
 COMPASS            SA7    CP.LIB                                                          CMP30       6878          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1140    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            SA4    70B         LIST FLAG                                           CMP30       6879          I
          -CPS028 
 COMPASS            SA5    62B         ERROR COUNT                                         CMP30       6880          I
          -CPS028 
 COMPASS            SX7    B1                                                              CMP30       6881          I
          -CPS028 
 COMPASS            BX6    X5                                                              CMP30       6882          I
          -CPS028 
 COMPASS            SA6    CP.ERRCT                                                        CMP30       6883          I
          -CPS028 
 COMPASS            SA3    72B                                                             CMP30       6884          I
          -CPS028 
 COMPASS            BX7    X7*X4                                                           CMP30       6885          I
          -CPS028 
 COMPASS            MX0    42                                                              CMP30       6886          I
          -CPS028 
 COMPASS            SA7    CP.LISTF                                                        CMP30       6887          I
          -CPS028 
 COMPASS   +        NZ     X3,*+1      IF RUN(P)                                           CMP30       6888          I
          -CPS028 
 COMPASS            SA3    71B         LGO FILE NAME                                       CMP30       6889          I
          -CPS028 
 COMPASS            BX6    X0*X3                                                           CMP30       6890          I
          -CPS028 
 COMPASS                                                                                   CMP30       6891          I
          -CPS028 
 COMPASS            IFEQ   CP#RM,0,2                                                       CMP30       6892          I
          -CPS028 
 COMPASS            SX4    3                                                               CMP30       6893          I
          -CPS028 
 COMPASS            BX6    X6+X4                                                           CMP30       6894          I
          -CPS028 
 COMPASS                                                                                   CMP30       6895          I
          -CPS028 
 COMPASS            SA6    B                                                               CMP30       6896          I
          -CPS028 
 COMPASS            SA1    100B        PAGE NUMBERING FLAG                                 CMP30       6897          I
          -CPS028 
 COMPASS            BX6    X1                                                              CMP30       6898          I
          -CPS028 
 COMPASS            SA6    CP.PAGE                                                         CMP30       6899          I
          -CPS028 
 COMPASS            SX1    10          SOURCE CARD IMAGE                                   CMP30       6900          I
          -CPS028 
 COMPASS            SX2    41B                                                             CMP30       6901          I
          -CPS028 
 COMPASS            SX3    CP.CARD                                                         CMP30       6902          I
          -CPS028 
 COMPASS            RJ     MOVE                                                            CMP30       6903          I
          -CPS028 
 COMPASS            SA1    102B        EXIT JUMP INSTRUCTION                               CMP30       6904          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1141    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CPS028 
 COMPASS            BX6    X1                                                              CMP30       6905          I
          -CPS028 
 COMPASS            SA6    CP.STOP                                                         CMP30       6906          I
          -CPS028 
 COMPASS            EQ     SIR         RETURN                                              CMP30       6907          I
          -CPS028 
 COMPASS                                                                                   CMP30       6908          I
          -CPS028 
 COMPASS   OLDIR    ENDIF                                                                  CMP30       6909          I
          -CPS028 
 COMPASS   ZLC      SPACE  4                                                               CMP30       6910          I
          -CPS064 
 COMPASS  **        ZLC - ZERO FIRST 100B WORDS OF LCM FIELD LENGTH, IF ANY.               CMP30       6911          I
          -CPS064 
 COMPASS  *         THIS AREA IS USED BY *CLS* FOR RAPID CLEARING OF SCM AREAS.            CMP30       6912          I
          -CPS064 
 COMPASS                                                                                   CMP30       6913          I
          -CPS064 
 COMPASS                                                                                   CMP30       6914          I
          -CPS064 
 COMPASS   ZLC      PS                 RETURN EXIT                                         CMP30       6915          I
          -CPS064 
 COMPASS            SA1    CP.NFLL                                                         CMP30       6916          I
          -CPS028 
 COMPASS            SA1    CP.AFLL                                                S0281003 CPS028       753          I
          -CPS064 
 COMPASS            ZR     X1,ZLC      IF NO LCM FIELD LENGTH                              CMP30       6917          I
          -CPS064 
 COMPASS            MX1    0                                                               CMP30       6918          I
          -CPS064 
 COMPASS            SX2    ZLCA                                                            CMP30       6919          I
          -CPS064 
 COMPASS            SX3    100B                                                            CMP30       6920          I
          -CPS064 
 COMPASS            RJ     WLC         WRITE LCM                                           CMP30       6921          I
          -CPS064 
 COMPASS            EQ     ZLC         RETURN                                              CMP30       6922          I
          -CPS064 
 COMPASS                                                                                   CMP30       6923          I
          -CPS064 
 COMPASS   ZLCA     BSSZ   100B                                                            CMP30       6924          I
          -CPS064 
 COMPASS   COMMON   SPACE  4                                                               COMPASS    19125          I
          -CMP20  
 COMPASS  **        INITIALIZATION COMMON DECKS.                                           COMPASS    19126          I
          -CMP20  
 COMPASS                                                                                   COMPASS    19127          I
          -CMP20  
 COMPASS                                                                                   COMPASS    19128          I
          -CMP20  
 COMPASS  *CALL     COMCOPE                                                                COMPASS    19129          I
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1142    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          -CMP20  
 COMPASS   BUFFERS  TITLE  BUFFERS - INPUT/OUTPUT BUFFERS                                  CMP20        383          I
          -CPS064 
 COMPASS   ENDB     BSS    0           END OF CODE IN BUFFER                               COMPASS    19130          I
          -CPS064 
 COMPASS   BUFFERS  SPACE  4                                                               COMPASS    19131          I
          -CPS064 
 COMPASS  **        BUFFERS - INPUT/OUTPUT BUFFERS.                                        COMPASS    19132          I
          -CPS064 
 COMPASS                                                                                   COMPASS    19133          I
          -CPS064 
 COMPASS                                                                                   COMPASS    19134          I
          -CPS064 
 COMPASS            ORG    BUF                                                             COMPASS    19135          I
          -CPS064 
 COMPASS   ENDA     SPACE  4,8                                                             CPS064      1895     A     
 COMPASS  **        END OF SECONDARY OVERLAY.                                              CPS064      1896     A     
 COMPASS                                                                                   CPS064      1897     A     
 COMPASS                                                                                   CPS064      1898     A     
 COMPASS            QUAL                                                                   CPS064      1899     A     
 COMPASS   ENDA     BSS    0                                                               CPS064      1900     A     
 COMPASS   ENDB     BSS    0                                                               CPS064      1901     A     
 COMPASS   BUFFERS  TITLE  BUFFERS - INPUT/OUTPUT BUFFERS.                                 CPS064      1902     A     
 COMPASS  **        BUFFERS - INPUT/OUTPUT BUFFERS.                                        CPS064      1903          I
          -CPSA097
 COMPASS  ****      BUFFERS - INPUT/OUTPUT BUFFERS.                                CPSA097 CPSA097       14     A     
 COMPASS                                                                                   CPS064      1904     A     
 COMPASS                                                                                   CPS064      1905     A     
 COMPASS            USE    BUFFERS                                                         CPS064      1906     A     
 COMPASS            SEG    BUFFERS.                                                        CPS064      1907     A     
 COMPASS   STYPE    BSS    1           STATEMENT TYPE                                      COMPASS    19136     A     
 COMPASS   CARD     BSS    71*NCARDS+30 EXPANDED CARD AREA AND SLOP ROOM                   COMPASS    19137     A     
 COMPASS   SEQ      BSS    2*NCARDS    SEQUENCE FIELDS (73-90)                             COMPASS    19138     A     
 COMPASS   ENDSEQ   BSS    2*NCARDS    END CARD SEQUENCE FIELDS                            CMP30       6925     A     
 COMPASS   VALUES   BSS    NLITS       FOR DATA EVALUATION                                 COMPASS    19139     A     
 COMPASS   RELVEC   BSS    256         RELOCATION VECTOR                                   COMPASS    19140     A     
 COMPASS   SQIMAGE  EQU    RELVEC+66   SQUEEZED CARD BUFFER                                COMPASS    19141          I
          -CMP1   
 COMPASS            IFLE   RELVEC+256,SQIMAGE+71*NCARDS/10+3,1                             COMPASS    19142          I
          -CMP1   
 COMPASS            BSS    SQIMAGE+71*NCARDS/10+3-*                                        COMPASS    19143          I
          -CMP1   
 COMPASS   SQIMAGE  BSS    71*NCARDS/10+3                                                  CMP1          54     A     
 COMPASS   BUFFERS  BSS    0           START OF FILE BUFFERS                               COMPASS    19144     A     
 COMPASS            IFEQ   OVERLAY,0,1                                                     CPS064      1908     A     
 COMPASS   GBUF     BSS    0           SYSTEXT LOADING BUFFER                              CPS064      1909     A     
 COMPASS   EBUF     BSS    EBUFL       ERROR OUTPUT BUFFER                                 COMPASS    19145     A     
 COMPASS   RBUF     BSS    RBUFL       CROSS-REFERENCE TABLE BUFFER                        COMPASS    19146     A     
 COMPASS   SBUF     BSS    SBUFL       SCRATCH BUFFER                                      COMPASS    19147     A     
 COMPASS   DBUF     BSS    DBUFL       SNAPPER BUFFER                                      CMP14        674     A     
 COMPASS   BBUF     BSS    BBUFL       BINARY BUFFER                                       COMPASS    19148     A     
 COMPASS   BUCKET   BSS    0           END OF COMPASS                                      COMPASS    19149     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1143    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
 COMPASS   MIN.FL   EQU    BUFFERS+SBUFL+DBUFL+BBUFL+NOPCT*2+NSYMT*2+10                    CMP30       6926     A     
 COMPASS                                                                                   CMP30       6927     A     
 COMPASS  ****                                                                     CPSA097 CPSA097       15     A     
 COMPASS            IFC    GE, "MODEL" 75 ,1                                               CMP30       6928          I
          -CPS064 
 COMPASS   RM       IFEQ   CP#RM,0                                                         CMP30       6929          I
          -CPS064 
 COMPASS            ERRMI  BUFFERS-ENDLST      IF INITIALIZATION CODE IS TOO LARGE         CMP30       6930          I
          -CPS064 
 COMPASS            ERRMI  BUFFERS+SBUFL-ENDRDD                                            CMP30       6931          I
          -CPS064 
 COMPASS   RM       ENDIF                                                                  CMP30       6932          I
          -CPS064 
 COMPASS            ERRMI  BUFFERS+SBUFL+DBUFL+BBUFL-ENDOPF                                CMP30       6933          I
          -CPS064 
 COMPASS                                                                                   CMP30       6934     A     
 COMPASS            ORG    ENDB                                                            COMPASS    19150     A     
 COMPASS            SPACE  4                                                               COMPASS    19151     A     
 COMPASS  **        MINIMUM FIELD LENGTH FOR COMPASS.                                      CPSA241        6     A     
 COMPASS                                                                                   CPSA241        7     A     
 COMPASS   MFL=     EQU    MIN.FL                                                          CPSA241        8     A     
 COMPASS                                                                                   CPSA241        9     A     
 COMPASS            END    COMPASS                                                         COMPASS    19152     A     
 COMPASS  *CWEOR 14                                                                        AIDTEXT        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - COMPASS 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          COMPASS                  19152     13638
          CMP1                        54        28
          CMP3                         3         0
          CP13226                      6         4
          CMP4                         5         1
          CMP5                        14        12
          CMP6                        82        75
          CMP7                        18        14
          CMP8                        21         2
          CMP9                        52        52
          CMP10                       22        21
          CMP11                       12         5
          CMP12                       41        31
          CMP13                        4         0
          CP12752                      3         3
          CMP5A                       17        10
          CMP14                      674       494
          CMP15                       34        10
          CMP16                        6         0
          CMP17                      248       224
          CMP18                      144       111
          CMP19                      399       342
          CMP20                      383       241
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1144    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          CMP21                        3         2
          CMP22                       12        12
          CMP24                      585       493
          CMP25                       80        44
          CMP26                       48        38
          CMP27                       36        23
          CMP28                       10        10
          CMP17A                       6         4
          CMP029                     198       139
          CMP029A                      2         2
          CMP030                      22        18
          CMP031                      12         0
          CMP034                      55         0
          CMP039                       5         5
          CMP041                      52        49
          CMP042                     335       243
          CMP64G                     555       496
          CMP043                     156       111
          CMP30                     6934      4999
          CMP30A                       1         0
          CPS002                      69        68
          CPS003                       3         3
          CPS004                      93        93
          CPS005                      30        29
          CMP036                      41        41
          CMP054                       7         6
          CMP057                       2         2
          CMP069                      12        12
          CMP085                       1         1
          CMP052                       7         7
          CMP109                       1         1
          CMP136                      58        58
          CPS005A                      3         3
          CPS008                       8         8
          CPS009                       6         6
          CPS010                     145        93
          CPS011                      93        77
          CPS012                      71        70
          CPS020                       2         0
          CPS028                     668       381
          CMP165                     239       239
          CMP051                       2         2
          CMP064                       6         6
          CMP162                       1         1
          CPS038                       2         2
          CPS047                       6         5
          CMP111                      14        14
          CMP146                      43        43
          CPS026                      62        61
          CPS032                       3         3
          CPS052                       3         3
          CPS056                       2         0
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1145    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          CPS061                      10         8
          CPS062                      38        38
          CPS063                       2         2
          CPS064                    1907      1845
          CMP146A                      2         2
          CMP149                       2         2
          CPS057                       2         1
          CPS066                       7         7
          CPS069                      24        24
          CPS073                      20        20
          CP114                       47        38
          CPSCPRT                      1         0
          CP096A                     505       493
          CPS106                       3         3
          CPS110                       2         2
          S3143CP                     12         6
          CPS*76                       2         1
          CP139CP                     72        55
          CP147                      526       490
          CP154                       52        52
          CPS085                      17        17
          CPS126                       1         1
          CPS127                       6         6
          CPS135                       9         9
          CPS153                       2         1
          CPS*77                       1         0
          CPSVER34                     1         0
          CP161CP                      3         2
          F7540CP                    140         2
          CPS146                       1         1
          CPS167                       4         0
          CPS118X                     16        16
          CPS173                      19        19
          CPS076X                      7         0
          CPS144                      15        15
          CPS147X                      6         6
          CPS151                       8         8
          CPS161                       3         1
          CPS164X                      4         4
          CPS172                      24        24
          CPS176                      11         8
          FEAT184N                    57        55
          FEAT184NA                    4         4
          CPS*78                       1         0
          CPSA070                      7         7
          CPSA083                      6         6
          CPSA096                      6         6
          CPSA098                      4         4
          CPSA097                     11        11
          CPSA094                      7         7
          CPS168                       3         3
          CPSA106                      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/28. 19.11.32.      PAGE1146    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          CPS188                       1         1
          CPS192                       2         2
          CPSA112                      7         0
          CPS198                       3         3
          F4810A                     358       222
          F4810B                     288       241
          CPSA115                     38        38
          CPS202                       3         3
          CPSA117                      2         2
          CPSA119                      1         1
          CPSA125                     69        50
          CPSA126                     37        37
          CPS*79                       1         0
          CPSA129                      9         9
          CPSA138                     18        14
          CPSA132                      3         3
          CPSA134                     74        72
          CPSA142                    104        99
          CPS186                       2         2
          CPS191                       1         1
          CPS213                      11        11
          CPS216                       4         4
          CPS218                       7         7
          CPS227                       1         1
          CPSA141                     11        11
          CPSA168                     15        13
          CPS234                       7         5
          CPS239                      11         9
          CPS243                       1         1
          CPS247                       6         1
          CPSA158                      1         1
          CPSA161                      1         1
          CPS236                      65        56
          CPS240                      17        15
          CPS*80                       1         0
          CPS251                       7         7
          F4820                      853       742
          F4820A                      60        60
          RSM4159                     46        46
          SIE7969                      3         3
          CPSA116                      4         4
          CPSA140                      7         7
          CPSA169                      1         1
          CPS214                      34        34
          CPSA181                     16         8
          CPSA184                     16        15
          CPSA195                      2         2
          CPS232                       3         3
          CPS0253                     14        14
          CPS254                       4         4
          CPS0257                      1         1
          CPS258                      35        35
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1147    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          CPS0263                      1         1
          CPS0267                      4         4
          CPS*81                       2         1
          F4830CP                    158       149
          AIDTEXT                      1         1
          CPSA197                     31        22
          CPSA198                     33        33
          CPSA200                      4         4
          CPSA213                     26        18
          CPSA214                      4         4
          CPS0275                      1         1
          CPSA175                      2         2
          CPSA186                      6         6
          CPSA199                      2         2
          CPSA208                     36        36
          CPSA218                      1         1
          CPSA220                      9         9
          CPSA225                      6         3
          CPSA226                     14        11
          CPSA229                     10        10
          CPSA246                     24        24
          CPS211                       2         0
          CPS0241                      1         1
          CPS0289                      2         2
          CPS*82                       1         1
          F4820B                     471       471
          CPSA227                     16        16
          CPSA233                      5         5
          CPSA234                      3         3
          CPSA235                      2         2
          CPSA236                      1         1
          CPSA240                      3         3
          CPSA241                      5         5
          CPSA251                     12        12
          CPS0320                      6         6
          CPSA259                      6         6
          CPS0094                      6         6
          CPS0325                      1         1
          CPS0338                      4         4
          CPS0340                     11        11
          CPS0343                     12        12
          CPS2608                     52        52
          CPSA265                    138       132
          CPSA266                      6         6
          CPSA274                      4         4
          CPS2627                      6         5
          CPS2628                      3         3
          CPSA281                    493       464
          CPSA282                      5         5
          CPS0329                      2         2
          CPS2667                      2         2
          CPSA286                      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/28. 19.11.32.      PAGE1148    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN COMPASS 
  
          CPSA287                     35        35
          CPSA288                    209       209
          CPSA293                     77        77
          CPSA297                     46        46
          CPSA300                      1         1
          CPS2658                      8         8
          CPS2659                     10        10
          CPS2672                     31        31
          CPS2660                      9         9
          CPSA291                      6         6
          CPSA305                      8         8
          CPS0328                      3         3
          PSRLEVEL                     2         2
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN AIDTEXT 
  
 AIDTEXT  *DECK,AIDTEXT                                                                    AIDTEXT        2     A     
 AIDTEXT            IDENT  AIDTEXT                                                         AIDTEXT        3     A     
 AIDTEXT            STEXT                                                                  AIDTEXT        4     A     
 AIDTEXT            TITLE  AID - REDEFINE INSTRUCTIONS FOR V.                              AIDTEXT        5     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT        6     A     
 AIDTEXT  **        REDEFINE *OBI BJ* TO BE ILLEGAL OPCODE.                                AIDTEXT        7     A     
 AIDTEXT                                                                                   AIDTEXT        8     A     
 AIDTEXT   'BB      CPSYN  OBB                                                             AIDTEXT        9     A     
 AIDTEXT                                                                                   AIDTEXT       10     A     
 AIDTEXT            PURGDEF OBB                                                            AIDTEXT       11     A     
 AIDTEXT                                                                                   AIDTEXT       12     A     
 AIDTEXT   OBB      OPDEF  I,J                                                             AIDTEXT       13     A     
 AIDTEXT   O        ERR                *OB_I B_J* REDEFINED FOR V                          AIDTEXT       14     A     
 AIDTEXT            'B_I   B_J                                                             AIDTEXT       15     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       16     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       17     A     
 AIDTEXT  **        REDEFINE *RO BK* TO BE ILLEGAL OPCODE.                                 AIDTEXT       18     A     
 AIDTEXT                                                                                   AIDTEXT       19     A     
 AIDTEXT   'OB      CPSYN  ROB                                                             AIDTEXT       20     A     
 AIDTEXT                                                                                   AIDTEXT       21     A     
 AIDTEXT            PURGDEF ROB                                                            AIDTEXT       22     A     
 AIDTEXT                                                                                   AIDTEXT       23     A     
 AIDTEXT   ROB      OPDEF  I                                                               AIDTEXT       24     A     
 AIDTEXT   O        ERR                *RO B_I* REDEFINED FOR V                            AIDTEXT       25     A     
 AIDTEXT            'O     B_I                                                             AIDTEXT       26     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       27     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       28     A     
 AIDTEXT  **        REDEFINE *SB0 BJ+BK* TO BE ILLEGAL OPCODE.                             AIDTEXT       29     A     
 AIDTEXT                                                                                   AIDTEXT       30     A     
 AIDTEXT   #BB+B    CPSYN  SBB+B                                                           AIDTEXT       31     A     
 AIDTEXT                                                                                   AIDTEXT       32     A     
 AIDTEXT            PURGDEF  SBB+B                                                         AIDTEXT       33     A     
 AIDTEXT                                                                                   AIDTEXT       34     A     
 AIDTEXT   SBB+B    OPDEF  I,J,K                                                           AIDTEXT       35     A     
 AIDTEXT   O        ERRZR  I           *SB0 B_J+B_K* REDEFINED FOR V                       AIDTEXT       36     A     
 AIDTEXT            #B_I   B_J+B_K                                                         AIDTEXT       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/28. 19.11.32.      PAGE1149    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN AIDTEXT 
  
 AIDTEXT            ENDM                                                                   AIDTEXT       38     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       39     A     
 AIDTEXT  **        REDEFINE *SB0 BJ-BK* TO BE ILLEGAL OPCODE.                             AIDTEXT       40     A     
 AIDTEXT                                                                                   AIDTEXT       41     A     
 AIDTEXT   #BB-B    CPSYN  SBB-B                                                           AIDTEXT       42     A     
 AIDTEXT                                                                                   AIDTEXT       43     A     
 AIDTEXT            PURGDEF  SBB-B                                                         AIDTEXT       44     A     
 AIDTEXT                                                                                   AIDTEXT       45     A     
 AIDTEXT   SBB-B    OPDEF  I,J,K                                                           AIDTEXT       46     A     
 AIDTEXT   O        ERRZR  I           *SB0 B_J-B_K* REDEFINED FOR V                       AIDTEXT       47     A     
 AIDTEXT            #B_I   B_J-B_K                                                         AIDTEXT       48     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       49     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       50     A     
 AIDTEXT  **        REDEFINE *SB0 -BJ+BK* TO BE ILLEGAL OPCODE.                            AIDTEXT       51     A     
 AIDTEXT                                                                                   AIDTEXT       52     A     
 AIDTEXT   #B-B+B   CPSYN  SB-B+B                                                          AIDTEXT       53     A     
 AIDTEXT                                                                                   AIDTEXT       54     A     
 AIDTEXT            PURGDEF  SB-B+B                                                        AIDTEXT       55     A     
 AIDTEXT                                                                                   AIDTEXT       56     A     
 AIDTEXT   SB-B+B   OPDEF  I,J,K                                                           AIDTEXT       57     A     
 AIDTEXT   O        ERRZR  I           *SB0 -B_J+B_K* REDEFINED FOR V                      AIDTEXT       58     A     
 AIDTEXT            #B_I   -B_J+B_K                                                        AIDTEXT       59     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       60     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       61     A     
 AIDTEXT  **        REDEFINE *SB0 BJ* TO BE ILLEGAL OPCODE.                                AIDTEXT       62     A     
 AIDTEXT                                                                                   AIDTEXT       63     A     
 AIDTEXT   #BB      CPSYN  SBB                                                             AIDTEXT       64     A     
 AIDTEXT                                                                                   AIDTEXT       65     A     
 AIDTEXT            PURGDEF  SBB                                                           AIDTEXT       66     A     
 AIDTEXT                                                                                   AIDTEXT       67     A     
 AIDTEXT   SBB      OPDEF  I,J                                                             AIDTEXT       68     A     
 AIDTEXT   O        ERRZR  I           *SB0 B_J* REDEFINED FOR V                           AIDTEXT       69     A     
 AIDTEXT            #B_I   B_J                                                             AIDTEXT       70     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       71     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       72     A     
 AIDTEXT  **        REDEFINE *SB0 -BJ* TO BE ILLEGAL OPCODE.                               AIDTEXT       73     A     
 AIDTEXT                                                                                   AIDTEXT       74     A     
 AIDTEXT   #B-B     CPSYN  SB-B                                                            AIDTEXT       75     A     
 AIDTEXT                                                                                   AIDTEXT       76     A     
 AIDTEXT            PURGDEF  SB-B                                                          AIDTEXT       77     A     
 AIDTEXT                                                                                   AIDTEXT       78     A     
 AIDTEXT   SB-B     OPDEF  I,J                                                             AIDTEXT       79     A     
 AIDTEXT   O        ERRZR  I           *SB0 -B_J* REDEFINED FOR V                          AIDTEXT       80     A     
 AIDTEXT            #B_I   -B_J                                                            AIDTEXT       81     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       82     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       83     A     
 AIDTEXT  **        REDEFINE *ERN D* TO BE ILLEGAL OPCODE.                                 AIDTEXT       84     A     
 AIDTEXT                                                                                   AIDTEXT       85     A     
 AIDTEXT   #ER      OPSYN  ERN                                                             AIDTEXT       86     A     
 AIDTEXT                                                                                   AIDTEXT       87     A     
 AIDTEXT            PURGMAC  ERN                                                           AIDTEXT       88     A     
 AIDTEXT                                                                                   AIDTEXT       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/28. 19.11.32.      PAGE1150    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN AIDTEXT 
  
 AIDTEXT   ERN      MACRO  D                                                               AIDTEXT       90     A     
 AIDTEXT   O        ERRNZ  D           *ERN _D* REDEFINED FOR V                            AIDTEXT       91     A     
 AIDTEXT            #ER    D                                                               AIDTEXT       92     A     
 AIDTEXT            ENDM                                                                   AIDTEXT       93     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT       94     A     
 AIDTEXT  **        REDEFINE *RPN D* TO BE ILLEGAL OPCODE.                                 AIDTEXT       95     A     
 AIDTEXT                                                                                   AIDTEXT       96     A     
 AIDTEXT   #RP      OPSYN  RPN                                                             AIDTEXT       97     A     
 AIDTEXT                                                                                   AIDTEXT       98     A     
 AIDTEXT            PURGMAC RPN                                                            AIDTEXT       99     A     
 AIDTEXT                                                                                   AIDTEXT      100     A     
 AIDTEXT   RPN      MACRO  D                                                               AIDTEXT      101     A     
 AIDTEXT   O        ERR                *RPN D* REDEFINED FOR V                             AIDTEXT      102     A     
 AIDTEXT            #RP    D                                                               AIDTEXT      103     A     
 AIDTEXT            ENDM                                                                   AIDTEXT      104     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT      105     A     
 AIDTEXT  **        REDEFINE *PSN D* TO BE ILLEGAL OPCODE IF D.NE.0.                       AIDTEXT      106     A     
 AIDTEXT                                                                                   AIDTEXT      107     A     
 AIDTEXT   #SN      OPSYN  PSN                                                             AIDTEXT      108     A     
 AIDTEXT                                                                                   AIDTEXT      109     A     
 AIDTEXT            PURGMAC PSN                                                            AIDTEXT      110     A     
 AIDTEXT                                                                                   AIDTEXT      111     A     
 AIDTEXT   PSN      MACRO  D                                                               AIDTEXT      112     A     
 AIDTEXT   O        ERRNZ  D           *PSN _D* REDEFINED FOR V                            AIDTEXT      113     A     
 AIDTEXT            #SN    D                                                               AIDTEXT      114     A     
 AIDTEXT            ENDM                                                                   AIDTEXT      115     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT      116     A     
 AIDTEXT  **        REDEFINE *AJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.                   AIDTEXT      117     A     
 AIDTEXT                                                                                   AIDTEXT      118     A     
 AIDTEXT   #AJ      OPSYN  AJM                                                             AIDTEXT      119     A     
 AIDTEXT                                                                                   AIDTEXT      120     A     
 AIDTEXT            PURGMAC AJM                                                            AIDTEXT      121     A     
 AIDTEXT                                                                                   AIDTEXT      122     A     
 AIDTEXT   AJM      MACRO  M,D                                                             AIDTEXT      123     A     
 AIDTEXT   O        ERRPL  D-40B       *AJM _M,_D* REDEFINED FOR V                         AIDTEXT      124     A     
 AIDTEXT            #AJ    M,D                                                             AIDTEXT      125     A     
 AIDTEXT            ENDM                                                                   AIDTEXT      126     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT      127     A     
 AIDTEXT  **        REDEFINE *IJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.                   AIDTEXT      128     A     
 AIDTEXT                                                                                   AIDTEXT      129     A     
 AIDTEXT   #IJ      OPSYN  IJM                                                             AIDTEXT      130     A     
 AIDTEXT                                                                                   AIDTEXT      131     A     
 AIDTEXT            PURGMAC IJM                                                            AIDTEXT      132     A     
 AIDTEXT                                                                                   AIDTEXT      133     A     
 AIDTEXT   IJM      MACRO  M,D                                                             AIDTEXT      134     A     
 AIDTEXT   O        ERRPL  D-40B       *IJM _M,_D* REDEFINED FOR V                         AIDTEXT      135     A     
 AIDTEXT            #IJ    M,D                                                             AIDTEXT      136     A     
 AIDTEXT            ENDM                                                                   AIDTEXT      137     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT      138     A     
 AIDTEXT  **        REDEFINE *FJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.                   AIDTEXT      139     A     
 AIDTEXT                                                                                   AIDTEXT      140     A     
 AIDTEXT   #FJ      OPSYN  FJM                                                             AIDTEXT      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/28. 19.11.32.      PAGE1151    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN AIDTEXT 
  
 AIDTEXT                                                                                   AIDTEXT      142     A     
 AIDTEXT            PURGMAC FJM                                                            AIDTEXT      143     A     
 AIDTEXT                                                                                   AIDTEXT      144     A     
 AIDTEXT   FJM      MACRO  M,D                                                             AIDTEXT      145     A     
 AIDTEXT   O        ERRPL  D-40B       *FJM _M,_D* REDEFINED FOR V                         AIDTEXT      146     A     
 AIDTEXT            #FJ    M,D                                                             AIDTEXT      147     A     
 AIDTEXT            ENDM                                                                   AIDTEXT      148     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT      149     A     
 AIDTEXT  **        REDEFINE *EJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.                   AIDTEXT      150     A     
 AIDTEXT                                                                                   AIDTEXT      151     A     
 AIDTEXT   #EJ      OPSYN  EJM                                                             AIDTEXT      152     A     
 AIDTEXT                                                                                   AIDTEXT      153     A     
 AIDTEXT            PURGMAC EJM                                                            AIDTEXT      154     A     
 AIDTEXT                                                                                   AIDTEXT      155     A     
 AIDTEXT   EJM      MACRO  M,D                                                             AIDTEXT      156     A     
 AIDTEXT   O        ERRPL  D-40B       *EJM _M,_D* REDEFINED FOR V                         AIDTEXT      157     A     
 AIDTEXT            #EJ    M,D                                                             AIDTEXT      158     A     
 AIDTEXT            ENDM                                                                   AIDTEXT      159     A     
 AIDTEXT            SPACE  4,8                                                             AIDTEXT      160     A     
 AIDTEXT            END                                                                    AIDTEXT      161     A     
 AIDTEXT  *CWEOR 14                                                                        NADTEXT        1     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - AIDTEXT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          AIDTEXT                    160       160
          NADTEXT                      1         1
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NADTEXT 
  
 NADTEXT  *DECK,NADTEXT                                                                    NADTEXT        2     A     
 NADTEXT            IDENT  NADTEXT                                                         NADTEXT        3     A     
 NADTEXT            BCU                                                                    NADTEXT        4     A     
 NADTEXT            STEXT                                                                  NADTEXT        5     A     
 NADTEXT            TITLE  NAD MACRO PROTOTYPES.                                           NADTEXT        6     A     
 NADTEXT            SPACE  4                                                               NADTEXT        7     A     
 NADTEXT  ***       NAD MACRO PROTOTYPES.                                                  NADTEXT        8     A     
 NADTEXT  *         DON CROUSE (04,15,81)                                                  NADTEXT        9     A     
 NADTEXT   NADOP    SPACE  4                                                               NADTEXT       10     A     
 NADTEXT  **        NADOP - DEFINE BC INSTRUCTION MACRO.                                   NADTEXT       11     A     
 NADTEXT  *         NADOP  NAME,CTL,VAL                                                    NADTEXT       12     A     
 NADTEXT  *         ENTRY  (NAME) = MNEMONIC NAME.                                         NADTEXT       13     A     
 NADTEXT  *                (CTL) = 0 - 4-BIT ADDRESS.  (SAB)                               NADTEXT       14     A     
 NADTEXT  *                        1 - (16 - 4-BIT) ADDRESS.  (SLC)                        NADTEXT       15     A     
 NADTEXT  *                        2 - (15 - 4-BIT) ADDRESS.  (TAB)                        NADTEXT       16     A     
 NADTEXT  *                        3 - 8-BIT ADDRESS.  (ADN)                               NADTEXT       17     A     
 NADTEXT  *                        4 - 9-BIT RELATIVE ADDRESS.  (UJR)                      NADTEXT       18     A     
 NADTEXT  *                        5 - 4-BIT CHANNEL AND NO ADDRESS.  (IAN)                NADTEXT       19     A     
 NADTEXT  *                        6 - 8-BIT ADDRESS AND OPTIONAL                          NADTEXT       20     A     
 NADTEXT  *                            INDEXING. (LDD)                                     NADTEXT       21     A     
 NADTEXT  *                        7 - 4-BIT CHANNEL AND 4-BIT ADDRESS.  (INT)             NADTEXT       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/28. 19.11.32.      PAGE1152    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NADTEXT 
  
 NADTEXT  *                        8 - 16 BIT INSTRUCTION,NO ADDRESS (JFA)                 NADTEXT       23     A     
 NADTEXT  *                        9 - 8 BIT ADDRESS BACKWARD ONLY (RTB)                   NADTEXT       24     A     
 NADTEXT  *                       10 - 12-BIT ADDRESS.  (FNA)                              NADTEXT       25     A     
 NADTEXT  *                       11 - 2 16-BIT ADDRESS I/O.  (IAM)                        NADTEXT       26     A     
 NADTEXT  *                            WITH 2 INSTRUCTION PARAMETERS.                      NADTEXT       27     A     
 NADTEXT  *                       12 - 2 16-BIT ADDRESS.  (TST)                            NADTEXT       28     A     
 NADTEXT  *                            WITH 3 INSTRUCTION PARAMETERS.                      NADTEXT       29     A     
 NADTEXT  *                       13 - 7 BIT ADDRESS (BIT 8 SET = BACKWARD)  (L1R)         NADTEXT       30     A     
 NADTEXT  *                                          (BIT 8 ZERO = FORWARD)                NADTEXT       31     A     
 NADTEXT  *                       14 - 16 BIT INSTRUCTION WITH 16 BIT                      NADTEXT       32     A     
 NADTEXT  *                            ADDRESS.  (LJM)                                     NADTEXT       33     A     
 NADTEXT  *                       15 - 16 BIT INSTRUCTION WITH 3 16 BIT                    NADTEXT       34     A     
 NADTEXT  *                            ADDRESSES  (QGT)                                    NADTEXT       35     A     
 NADTEXT  *                       16 - 4 BIT ADDRESS AND 15-4 BIT FLAG.   (SCM)            NADTEXT       36     A     
 NADTEXT  *                       17 - 16 BIT INSTRUCTION AND 16 BIT RELATIVE              NADTEXT       37     A     
 NADTEXT  *                            FORWARD ADDRESS.   (CCU)                            NADTEXT       38     A     
 NADTEXT  *         (VAL) = 16-BIT OPERATION CODE VALUE.                                   NADTEXT       39     A     
 NADTEXT  *                                                                                NADTEXT       40     A     
 NADTEXT  *                                                                                NADTEXT       41     A     
 NADTEXT            PURGMAC NADOP                                                          NADTEXT       42     A     
 NADTEXT                                                                                   NADTEXT       43     A     
 NADTEXT   NADOP    MACRO  NAME,CTL,VAL PERIPHERAL MACHINE CODES                           NADTEXT       44     A     
 NADTEXT   NAME     NDOP   CTL,0#_VAL                                                      NADTEXT       45     A     
 NADTEXT            ENDM                                                                   NADTEXT       46     A     
 NADTEXT   OPS      SPACE  4                                                               NADTEXT       47     A     
 NADTEXT  *         BUFFER CONTROLLER OPCODES.                                             NADTEXT       48     A     
 NADTEXT                                                                                   NADTEXT       49     A     
 NADTEXT                                                                                   NADTEXT       50     A     
 NADTEXT            NADOP  SLS,3,0000                                                      NADTEXT       51     A     
 NADTEXT            NADOP  SAB,0,0100                                                      NADTEXT       52     A     
 NADTEXT            NADOP  CAB,0,0200                                                      NADTEXT       53     A     
 NADTEXT            NADOP  MAB,0,0300                                                      NADTEXT       54     A     
 NADTEXT            NADOP  SCA,0,0400                                                      NADTEXT       55     A     
 NADTEXT            NADOP  XA1,0,0401                                                      NADTEXT       56     A     
 NADTEXT            NADOP  XA2,0,0402                                                      NADTEXT       57     A     
 NADTEXT            NADOP  TIA,0,0403                                                      NADTEXT       58     A     
 NADTEXT            NADOP  SRC,0,0580                                                      NADTEXT       59     A     
 NADTEXT            NADOP  SLC,1,0580                                                      NADTEXT       60     A     
 NADTEXT            NADOP  SRO,0,0500                                                      NADTEXT       61     A     
 NADTEXT            NADOP  TA1,3,0600                                                      NADTEXT       62     A     
 NADTEXT            NADOP  TA2,3,0700                                                      NADTEXT       63     A     
 NADTEXT            NADOP  INT,5,0800                                                      NADTEXT       64     A     
 NADTEXT            NADOP  CBT,0,0880                                                      NADTEXT       65     A     
 NADTEXT            NADOP  TIS,0,0840                                                      NADTEXT       66     A     
 NADTEXT            NADOP  CBF,0,0800                                                      NADTEXT       67     A     
 NADTEXT            NADOP  TLS,0,0810                                                      NADTEXT       68     A     
 NADTEXT            NADOP  TAB,2,0810                                                      NADTEXT       69     A     
 NADTEXT            NADOP  TCY,0,0820                                                      NADTEXT       70     A     
 NADTEXT            NADOP  TI5,0,0840                                                      NADTEXT       71     A     
 NADTEXT            NADOP  SCM,16,0900                                                     NADTEXT       72     A     
 NADTEXT            NADOP  SMB,7,0A00                                                      NADTEXT       73     A     
 NADTEXT            NADOP  CMB,7,0B00                                                      NADTEXT       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/28. 19.11.32.      PAGE1153    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NADTEXT 
  
 NADTEXT            NADOP  SOA,5,0C00                                                      NADTEXT       75     A     
 NADTEXT            NADOP  CZA,5,0C01                                                      NADTEXT       76     A     
 NADTEXT            NADOP  SZA,5,0C02                                                      NADTEXT       77     A     
 NADTEXT            NADOP  COA,5,0C03                                                      NADTEXT       78     A     
 NADTEXT            NADOP  MAW,3,0D00                                                      NADTEXT       79     A     
 NADTEXT            NADOP  SAW,3,0E00                                                      NADTEXT       80     A     
 NADTEXT            NADOP  UCS,8,0F00                                                      NADTEXT       81     A     
 NADTEXT            NADOP  IRT,0,0F01                                                      NADTEXT       82     A     
 NADTEXT            NADOP  PSH,0,0F02                                                      NADTEXT       83     A     
 NADTEXT            NADOP  POP,0,0F03                                                      NADTEXT       84     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT       85     A     
 NADTEXT            NADOP  ADN,3,1000                                                      NADTEXT       86     A     
 NADTEXT            NADOP  SBN,3,1100                                                      NADTEXT       87     A     
 NADTEXT            NADOP  LMN,3,1200                                                      NADTEXT       88     A     
 NADTEXT            NADOP  LPN,3,1300                                                      NADTEXT       89     A     
 NADTEXT            NADOP  T1N,3,1400                                                      NADTEXT       90     A     
 NADTEXT            NADOP  T2N,3,1500                                                      NADTEXT       91     A     
 NADTEXT            NADOP  LCN,3,1600                                                      NADTEXT       92     A     
 NADTEXT            NADOP  LFA,3,1700                                                      NADTEXT       93     A     
 NADTEXT            NADOP  EAD,6,1800                                                      NADTEXT       94     A     
 NADTEXT            NADOP  LDN,6,1800                                                      NADTEXT       95     A     
 NADTEXT            NADOP  ENA,6,1800                                                      NADTEXT       96     A     
 NADTEXT            NADOP  EAR,4,1B00                                                      NADTEXT       97     A     
 NADTEXT            NADOP  EAI,6,1C00                                                      NADTEXT       98     A     
 NADTEXT            NADOP  LIA,6,1C00                                                      NADTEXT       99     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      100     A     
 NADTEXT            NADOP  E1D,6,2000                                                      NADTEXT      101     A     
 NADTEXT            NADOP  EN1,3,2000                                                      NADTEXT      102     A     
 NADTEXT            NADOP  IN1,3,2100                                                      NADTEXT      103     A     
 NADTEXT            NADOP  EI1,3,2200                                                      NADTEXT      104     A     
 NADTEXT            NADOP  E1R,4,2300                                                      NADTEXT      105     A     
 NADTEXT            NADOP  E1I,6,2400                                                      NADTEXT      106     A     
 NADTEXT            NADOP  LB1,6,2400                                                      NADTEXT      107     A     
 NADTEXT            NADOP  LI1,6,2400                                                      NADTEXT      108     A     
 NADTEXT            NADOP  E2D,6,2800                                                      NADTEXT      109     A     
 NADTEXT            NADOP  EN2,3,2800                                                      NADTEXT      110     A     
 NADTEXT            NADOP  EI2,3,2900                                                      NADTEXT      111     A     
 NADTEXT            NADOP  IN2,3,2A00                                                      NADTEXT      112     A     
 NADTEXT            NADOP  E2R,4,2B00                                                      NADTEXT      113     A     
 NADTEXT            NADOP  E2I,6,2C00                                                      NADTEXT      114     A     
 NADTEXT            NADOP  LB2,6,2C00                                                      NADTEXT      115     A     
 NADTEXT            NADOP  LI2,6,2C00                                                      NADTEXT      116     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      117     A     
 NADTEXT            NADOP  T1D,6,3000                                                      NADTEXT      118     A     
 NADTEXT            NADOP  T1R,4,3300                                                      NADTEXT      119     A     
 NADTEXT            NADOP  T1I,6,3400                                                      NADTEXT      120     A     
 NADTEXT            NADOP  T2D,6,3800                                                      NADTEXT      121     A     
 NADTEXT            NADOP  T2R,4,3B00                                                      NADTEXT      122     A     
 NADTEXT            NADOP  T2I,6,3C00                                                      NADTEXT      123     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      124     A     
 NADTEXT            NADOP  LDD,6,4000                                                      NADTEXT      125     A     
 NADTEXT            NADOP  LDR,4,4300                                                      NADTEXT      126     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1154    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NADTEXT 
  
 NADTEXT            NADOP  LDI,6,4400                                                      NADTEXT      127     A     
 NADTEXT            NADOP  LCD,6,4800                                                      NADTEXT      128     A     
 NADTEXT            NADOP  LCR,4,4B00                                                      NADTEXT      129     A     
 NADTEXT            NADOP  LCI,6,4C00                                                      NADTEXT      130     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      131     A     
 NADTEXT            NADOP  LUD,6,5000                                                      NADTEXT      132     A     
 NADTEXT            NADOP  LUR,4,5300                                                      NADTEXT      133     A     
 NADTEXT            NADOP  LUI,6,5400                                                      NADTEXT      134     A     
 NADTEXT            NADOP  LLD,6,5800                                                      NADTEXT      135     A     
 NADTEXT            NADOP  LLR,4,5B00                                                      NADTEXT      136     A     
 NADTEXT            NADOP  LLI,6,5C00                                                      NADTEXT      137     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      138     A     
 NADTEXT            NADOP  ADD,6,6000                                                      NADTEXT      139     A     
 NADTEXT            NADOP  ADR,4,6300                                                      NADTEXT      140     A     
 NADTEXT            NADOP  ADI,6,6400                                                      NADTEXT      141     A     
 NADTEXT            NADOP  SBD,6,6800                                                      NADTEXT      142     A     
 NADTEXT            NADOP  SBR,4,6B00                                                      NADTEXT      143     A     
 NADTEXT            NADOP  SBI,6,6C00                                                      NADTEXT      144     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      145     A     
 NADTEXT            NADOP  LMD,6,7000                                                      NADTEXT      146     A     
 NADTEXT            NADOP  LMR,4,7300                                                      NADTEXT      147     A     
 NADTEXT            NADOP  LMI,6,7400                                                      NADTEXT      148     A     
 NADTEXT            NADOP  LPD,6,7800                                                      NADTEXT      149     A     
 NADTEXT            NADOP  LPR,4,7B00                                                      NADTEXT      150     A     
 NADTEXT            NADOP  LPI,6,7C00                                                      NADTEXT      151     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      152     A     
 NADTEXT            NADOP  RAD,6,8000                                                      NADTEXT      153     A     
 NADTEXT            NADOP  RAR,4,8300                                                      NADTEXT      154     A     
 NADTEXT            NADOP  RAI,6,8400                                                      NADTEXT      155     A     
 NADTEXT            NADOP  AOD,6,8800                                                      NADTEXT      156     A     
 NADTEXT            NADOP  AOR,4,8B00                                                      NADTEXT      157     A     
 NADTEXT            NADOP  AOI,6,8C00                                                      NADTEXT      158     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      159     A     
 NADTEXT            NADOP  RUD,6,9000                                                      NADTEXT      160     A     
 NADTEXT            NADOP  RUR,4,9300                                                      NADTEXT      161     A     
 NADTEXT            NADOP  RUI,6,9400                                                      NADTEXT      162     A     
 NADTEXT            NADOP  RLD,6,9800                                                      NADTEXT      163     A     
 NADTEXT            NADOP  RLR,4,9B00                                                      NADTEXT      164     A     
 NADTEXT            NADOP  RLI,6,9C00                                                      NADTEXT      165     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      166     A     
 NADTEXT            NADOP  STD,6,A000                                                      NADTEXT      167     A     
 NADTEXT            NADOP  STR,4,A300                                                      NADTEXT      168     A     
 NADTEXT            NADOP  STI,6,A400                                                      NADTEXT      169     A     
 NADTEXT            NADOP  CLD,6,A800                                                      NADTEXT      170     A     
 NADTEXT            NADOP  CLR,4,AB00                                                      NADTEXT      171     A     
 NADTEXT            NADOP  CLI,6,AC00                                                      NADTEXT      172     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      173     A     
 NADTEXT            NADOP  SJD,6,B000                                                      NADTEXT      174     A     
 NADTEXT            NADOP  SJR,4,B300                                                      NADTEXT      175     A     
 NADTEXT            NADOP  SJI,6,B400                                                      NADTEXT      176     A     
 NADTEXT            NADOP  UJD,6,B800                                                      NADTEXT      177     A     
 NADTEXT            NADOP  UJR,4,BB00                                                      NADTEXT      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/28. 19.11.32.      PAGE1155    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NADTEXT 
  
 NADTEXT            NADOP  UJI,6,BC00                                                      NADTEXT      179     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      180     A     
 NADTEXT            NADOP  ZJD,6,C000                                                      NADTEXT      181     A     
 NADTEXT            NADOP  ZJR,4,C300                                                      NADTEXT      182     A     
 NADTEXT            NADOP  ZJI,6,C400                                                      NADTEXT      183     A     
 NADTEXT            NADOP  NJD,6,C800                                                      NADTEXT      184     A     
 NADTEXT            NADOP  NJR,4,CB00                                                      NADTEXT      185     A     
 NADTEXT            NADOP  NJI,6,CC00                                                      NADTEXT      186     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      187     A     
 NADTEXT            NADOP  PJD,6,D000                                                      NADTEXT      188     A     
 NADTEXT            NADOP  PJR,4,D300                                                      NADTEXT      189     A     
 NADTEXT            NADOP  PJI,6,D400                                                      NADTEXT      190     A     
 NADTEXT            NADOP  MJD,6,D800                                                      NADTEXT      191     A     
 NADTEXT            NADOP  MJR,4,DB00                                                      NADTEXT      192     A     
 NADTEXT            NADOP  MJI,6,DC00                                                      NADTEXT      193     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      194     A     
 NADTEXT            NADOP  TJD,6,E000                                                      NADTEXT      195     A     
 NADTEXT            NADOP  TJR,4,E300                                                      NADTEXT      196     A     
 NADTEXT            NADOP  TJI,6,E400                                                      NADTEXT      197     A     
 NADTEXT            NADOP  FJD,6,E800                                                      NADTEXT      198     A     
 NADTEXT            NADOP  FJR,4,EB00                                                      NADTEXT      199     A     
 NADTEXT            NADOP  FJI,6,EC00                                                      NADTEXT      200     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      201     A     
 NADTEXT            NADOP  XIS,3,F000                                                      NADTEXT      202     A     
 NADTEXT            NADOP  RIP,3,F100                                                      NADTEXT      203     A     
 NADTEXT            NADOP  EIN,3,F200                                                      NADTEXT      204     A     
 NADTEXT            NADOP  DIN,3,F300                                                      NADTEXT      205     A     
 NADTEXT            NADOP  RTI,3,F400                                                      NADTEXT      206     A     
 NADTEXT            NADOP  RTB,9,F500                                                      NADTEXT      207     A     
 NADTEXT            NADOP  CCU,17,F600                                                     NADTEXT      208     A     
 NADTEXT            NADOP  CCL,17,F601                                                     NADTEXT      209     A     
 NADTEXT            NADOP  EIC,3,F700                                                      NADTEXT      210     A     
 NADTEXT            NADOP  L1R,13,F800                                                     NADTEXT      211     A     
 NADTEXT            NADOP  L2R,13,F900                                                     NADTEXT      212     A     
 NADTEXT            NADOP  LJM,14,FA00                                                     NADTEXT      213     A     
 NADTEXT            NADOP  CAS,3,FA00                                                      NADTEXT      214     A     
 NADTEXT            NADOP  QPT,12,FB00                                                     NADTEXT      215     A     
 NADTEXT            NADOP  QPB,12,FB01                                                     NADTEXT      216     A     
 NADTEXT            NADOP  QB2,12,FB11                                                     NADTEXT      217     A     
 NADTEXT            NADOP  QB1,12,FB21                                                     NADTEXT      218     A     
 NADTEXT            NADOP  QB3,12,FB31                                                     NADTEXT      219     A     
 NADTEXT            NADOP  QGT,15,FB02                                                     NADTEXT      220     A     
 NADTEXT            NADOP  QG2,15,FB12                                                     NADTEXT      221     A     
 NADTEXT            NADOP  QG1,15,FB22                                                     NADTEXT      222     A     
 NADTEXT            NADOP  QG3,15,FB32                                                     NADTEXT      223     A     
 NADTEXT            NADOP  QCL,12,FB03                                                     NADTEXT      224     A     
 NADTEXT            NADOP  PSM,3,FD00                                                      NADTEXT      225     A     
 NADTEXT            NADOP  POM,3,FE00                                                      NADTEXT      226     A     
 NADTEXT            NADOP  RID,8,FF00                                                      NADTEXT      227     A     
 NADTEXT            NADOP  JFA,8,FF01                                                      NADTEXT      228     A     
 NADTEXT            NADOP  JFA1,8,FF02                                                     NADTEXT      229     A     
 NADTEXT            SPACE  2,16                                                            NADTEXT      230     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1156    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN NADTEXT 
  
 NADTEXT  **        DEVICE INTERFACE INSTRUCTIONS                                          NADTEXT      231     A     
 NADTEXT                                                                                   NADTEXT      232     A     
 NADTEXT            NADOP  IAN,5,0000                                                      NADTEXT      233     A     
 NADTEXT            NADOP  IAC,7,1000                                                      NADTEXT      234     A     
 NADTEXT            NADOP  IAM,11,2000                                                     NADTEXT      235     A     
 NADTEXT            NADOP  OAN,10,3000                                                     NADTEXT      236     A     
 NADTEXT            NADOP  OAC,7,4000                                                      NADTEXT      237     A     
 NADTEXT            NADOP  OAM,11,5000                                                     NADTEXT      238     A     
 NADTEXT            NADOP  CHN,10,6000                                                     NADTEXT      239     A     
 NADTEXT            NADOP  ACN,10,7000                                                     NADTEXT      240     A     
 NADTEXT            NADOP  DCN,10,8000                                                     NADTEXT      241     A     
 NADTEXT            NADOP  FNA,10,9000                                                     NADTEXT      242     A     
 NADTEXT            NADOP  DR1,8,A000                                                      NADTEXT      243     A     
 NADTEXT            NADOP  DR2,8,A001                                                      NADTEXT      244     A     
 NADTEXT            NADOP  IR1,8,A002                                                      NADTEXT      245     A     
 NADTEXT            NADOP  IR2,8,A003                                                      NADTEXT      246     A     
 NADTEXT            NADOP  JT0,12,B00A                                                     NADTEXT      247     A     
 NADTEXT            NADOP  JF0,12,B002                                                     NADTEXT      248     A     
 NADTEXT            NADOP  JT0I,12,B00E                                                    NADTEXT      249     A     
 NADTEXT            NADOP  JF0I,12,B006                                                    NADTEXT      250     A     
 NADTEXT            NADOP  JT1,12,B008                                                     NADTEXT      251     A     
 NADTEXT            NADOP  JF1,12,B000                                                     NADTEXT      252     A     
 NADTEXT            NADOP  JT1I,12,B00C                                                    NADTEXT      253     A     
 NADTEXT            NADOP  JF1I,12,B004                                                    NADTEXT      254     A     
 NADTEXT            NADOP  JT2,12,B009                                                     NADTEXT      255     A     
 NADTEXT            NADOP  JF2,12,B001                                                     NADTEXT      256     A     
 NADTEXT            NADOP  JT2I,12,B00D                                                    NADTEXT      257     A     
 NADTEXT            NADOP  JF2I,12,B005                                                    NADTEXT      258     A     
 NADTEXT            NADOP  JMP,12,B001                                                     NADTEXT      259     A     
 NADTEXT            NADOP  WAT,10,C000                                                     NADTEXT      260     A     
 NADTEXT            NADOP  SEN,10,D000                                                     NADTEXT      261     A     
 NADTEXT            NADOP  MCH,10,E000                                                     NADTEXT      262     A     
 NADTEXT            NADOP  HLT,10,F000                                                     NADTEXT      263     A     
 NADTEXT            SPACE  4                                                               NADTEXT      264     A     
 NADTEXT            END                                                                    NADTEXT      265     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - NADTEXT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          NADTEXT                    264       264
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CWEOR2  
  
 CWEOR2   *DECK CWEOR2                                                                     CWEOR2         1     A     
 CWEOR2   *CWEOR,0                                                                         CWEOR2         2     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CWEOR2  
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CWEOR2                       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/28. 19.11.32.      PAGE1157    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CWEOR2  
  
0 
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCMOPT 
  
 CDCMOPT  *COMDECK CDCMOPT                                                                 CDCMOPT        1     A     
 CDCMOPT   CDCMOPT  TITLE  C D C M O P T  -  CDCM INSTALLATION PARAMETERS.                 CDCMOPT        2     A     
 CDCMOPT  ****                                                                             CDCMOPT        3     A     
 CDCMOPT  ***       C D C M O P T - CDCM INSTALLATION PARAMETERS.                          CDCMOPT        4     A     
 CDCMOPT                                                                                   CDCMOPT        5     A     
 CDCMOPT  *         **************************************************************         CDCMOPT        6     A     
 CDCMOPT  *         *      DFLTX, DFLTY                                          *         CDCMOPT        7     A     
 CDCMOPT  *         *                                                            *         CDCMOPT        8     A     
 CDCMOPT  *         *      DEFAULT FILE NAMES FOR SCRATCH FILES IF INTERMEDIATE  *         CDCMOPT        9     A     
 CDCMOPT  *         *      FILE OVERFLOWS THE CM OR LCM STORAGE AREA.  THESE TWO *         CDCMOPT       10     A     
 CDCMOPT  *         *      NAMES ARE USED ALTERNATELY.                           *         CDCMOPT       11     A     
 CDCMOPT   DFLTX    MICRO  1,7,$ZZZCDM1$                                         *         CDCMOPT       12     A     
 CDCMOPT   DFLTY    MICRO  1,7,$ZZZCDM2$                                         *         CDCMOPT       13     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       14     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       15     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       16     A     
 CDCMOPT  *         *      FLINC                                                 *         CDCMOPT       17     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       18     A     
 CDCMOPT  *         *      APPLIES ONLY IF WORKSPACE FOR INTERMEDIATE FILE IS IN *         CDCMOPT       19     A     
 CDCMOPT  *         *      CM.  DEFINES AMOUNT OF INCREASE IN WORKSPACE SIZE     *         CDCMOPT       20     A     
 CDCMOPT  *         *      EACH TIME AN INCREASE IS NECESSARY.                   *         CDCMOPT       21     A     
 CDCMOPT   FLINC    EQU    20000B                                                *         CDCMOPT       22     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       23     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       24     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       25     A     
 CDCMOPT  *         *      FLINL                                                 *         CDCMOPT       26     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       27     A     
 CDCMOPT  *         *      APPLIES ONLY IF WORKSPACE FOR INTERMEDIATE FILE IS IN *         CDCMOPT       28     A     
 CDCMOPT  *         *      LCM.  DEFINES AMOUNT OF INCREASE IN WORKSPACE SIZE    *         CDCMOPT       29     A     
 CDCMOPT  *         *      EACH TIME AN INCREASE IS NECESSARY.                   *         CDCMOPT       30     A     
 CDCMOPT   FLINL    EQU    40000B                                                *         CDCMOPT       31     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       32     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       33     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       34     A     
 CDCMOPT  *         *      FUDL                                                  *         CDCMOPT       35     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       36     A     
 CDCMOPT  *         *      FUDGE FACTOR BY WHICH TO REDUCE THE LCM MAXFL FOR     *         CDCMOPT       37     A     
 CDCMOPT  *         *      PURPOSES OF DETERMINING WHAT CAN BE OBTAINED.  THIS   *         CDCMOPT       38     A     
 CDCMOPT  *         *      IS NEEDED BECAUSE OF A NOS DEFICIENCY IN HANDLING     *         CDCMOPT       39     A     
 CDCMOPT  *         *      LCM ALLOCATION;  IF AN APPLICATION PERMANENTLY HOLDS  *         CDCMOPT       40     A     
 CDCMOPT  *         *      ON TO SOME LCM, THEN A JOB REQUESTING LCM IT BELIEVES *         CDCMOPT       41     A     
 CDCMOPT  *         *      POSSIBLE TO GET MAY IN FACT NEVER GET IT.  EVEN WORSE,*         CDCMOPT       42     A     
 CDCMOPT  *         *      THE REQUESTING JOB CANNOT BE DROPPED.                 *         CDCMOPT       43     A     
 CDCMOPT   FUDL     EQU    40000B                                                *         CDCMOPT       44     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       45     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       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/28. 19.11.32.      PAGE1158    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCMOPT 
  
 CDCMOPT  *         **************************************************************         CDCMOPT       47     A     
 CDCMOPT  *         *      INTLTH                                                *         CDCMOPT       48     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       49     A     
 CDCMOPT  *         *      LENGTH OF INTERMEDIATE FILE HEADER + REFERENCE WORDS. *         CDCMOPT       50     A     
 CDCMOPT  *         *      MAY NOT BE LESS THAN 2.                               *         CDCMOPT       51     A     
 CDCMOPT  *         *      NUMBER OF REFERENCE WORDS = INTLTH - 1                *         CDCMOPT       52     A     
 CDCMOPT  *         *      TOTAL LENGTH OF EACH INT. ENTRY = INTLTH + LINELTH    *         CDCMOPT       53     A     
 CDCMOPT   INTLTH   EQU    3                                                     *         CDCMOPT       54     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       55     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       56     A     
 CDCMOPT  *         *      LINELTH                                               *         CDCMOPT       57     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       58     A     
 CDCMOPT  *         *      MAXIMUM LENGTH IN CM WORDS OF SOURCE LINES READ FROM  *         CDCMOPT       59     A     
 CDCMOPT  *         *      THE COMPILE FILE AND ALSO THE AMOUNT STORED IN THE    *         CDCMOPT       60     A     
 CDCMOPT  *         *      INTERMEDIATE FILE.  SHOULD NOT HAVE TO BE CHANGED,    *         CDCMOPT       61     A     
 CDCMOPT  *         *      BECAUSE 170 PRODUCTS NORMALLY HAVE A COMPILE FILE IN  *         CDCMOPT       62     A     
 CDCMOPT  *         *      WHICH THE UPDATE SEQUENCE NUMBER EXTENDS TO COLUMN 80.*         CDCMOPT       63     A     
 CDCMOPT   LINELTH  EQU    9                                                     *         CDCMOPT       64     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       65     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       66     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       67     A     
 CDCMOPT  *         *      MAXC                                                  *         CDCMOPT       68     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       69     A     
 CDCMOPT  *         *      LARGEST AMOUNT OF CM THAT WILL BE USED FOR THE        *         CDCMOPT       70     A     
 CDCMOPT  *         *      INTERMEDIATE FILE.  IF CM IS USED, IT IS MAINTAINED   *         CDCMOPT       71     A     
 CDCMOPT  *         *      BY USE OF A CMM VARIABLE-POSITION BLOCK.  IF IT       *         CDCMOPT       72     A     
 CDCMOPT  *         *      OVERFLOWS, THEN THE ENTIRE WORKSPACE IS COPIED TO     *         CDCMOPT       73     A     
 CDCMOPT  *         *      MASS-STORAGE, BUT WHEN IT IS SHRUNK AND RE-WRITTEN,   *         CDCMOPT       74     A     
 CDCMOPT  *         *      IT WILL AGAIN BE STORED IN CM, SINCE MOST PROGRAMS    *         CDCMOPT       75     A     
 CDCMOPT  *         *      WILL NOT INVOLVE WORKSPACE OVERFLOW.  THE VALUE FOR   *         CDCMOPT       76     A     
 CDCMOPT  *         *      *MAXC* SHOULD BE LIMITED SO AS NOT TO PLACE AN UNDUE  *         CDCMOPT       77     A     
 CDCMOPT  *         *      BURDEN ON THE SYSTEM - PROBABLY NO MORE THAN 200000B. *         CDCMOPT       78     A     
 CDCMOPT  *         *      NOTE THAT IF A LARGER AMOUNT OF LCM CAN BE OBTAINED,  *         CDCMOPT       79     A     
 CDCMOPT  *         *      THEN LCM AND NOT CM WILL BE USED FOR THE WORKSPACE.   *         CDCMOPT       80     A     
 CDCMOPT   MAXC     EQU    140000B                                               *         CDCMOPT       81     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       82     A     
 CDCMOPT   CDCMOPT  SPACE  4,8                                                             CDCMOPT       83     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       84     A     
 CDCMOPT  *         *      MAXL                                                  *         CDCMOPT       85     A     
 CDCMOPT  *         *                                                            *         CDCMOPT       86     A     
 CDCMOPT  *         *      LARGEST AMOUNT OF LCM THAT WILL BE USED FOR THE       *         CDCMOPT       87     A     
 CDCMOPT  *         *      INTERMEDIATE FILE.  LCM IS USED IN PREFERENCE TO CM   *         CDCMOPT       88     A     
 CDCMOPT  *         *      FOR THE WORKSPACE ACCORDING TO THE ALGORITHM          *         CDCMOPT       89     A     
 CDCMOPT  *         *      DESCRIBED IN THE ROUTINE *CWS*.  IF THE WORKSPACE     *         CDCMOPT       90     A     
 CDCMOPT  *         *      OVERFLOWS AVAILABLE LCM, THEN THE ENTIRE WORKSPACE IS *         CDCMOPT       91     A     
 CDCMOPT  *         *      COPIED TO MASS-STORAGE, BUT EACH TIME IT IS SHRUNK    *         CDCMOPT       92     A     
 CDCMOPT  *         *      AND RE-WRITTEN, THE STORING IN LCM IS RESUMED.        *         CDCMOPT       93     A     
 CDCMOPT   MAXL     EQU    200000B                                               *         CDCMOPT       94     A     
 CDCMOPT  *         **************************************************************         CDCMOPT       95     A     
 CDCMOPT   CDCMOPT  TITLE  C D C M O P T  -  ASSEMBLY PARAMETERS.                          CDCMOPT       96     A     
 CDCMOPT  **        CONCATENATION MARK (DISPLAY CODE).                                     CDCMOPT       97     A     
 CDCMOPT                                                                                   CDCMOPT       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/28. 19.11.32.      PAGE1159    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCMOPT 
  
 CDCMOPT   CONCAT   EQU    65B         PRINT 1 RIGHT-ARROW OR PRINT 2 UNDERSCORE           CDCMOPT       99     A     
 CDCMOPT                                                                                   CDCMOPT      100     A     
 CDCMOPT                                                                                   CDCMOPT      101     A     
 CDCMOPT  **        DEFAULT STARTING COMMENT COLUMN.                                       CDCMOPT      102     A     
 CDCMOPT                                                                                   CDCMOPT      103     A     
 CDCMOPT   DEFCOL   EQU    30D                                                             CDCMOPT      104     A     
 CDCMOPT                                                                                   CDCMOPT      105     A     
 CDCMOPT                                                                                   CDCMOPT      106     A     
 CDCMOPT  **        MICRO SUBSTITURION MARK (DISPLAY CODE).                                CDCMOPT      107     A     
 CDCMOPT                                                                                   CDCMOPT      108     A     
 CDCMOPT   MICMARK  EQU    64B         PRINT 1 NOT-EQUAL OR PRINT 2 DOUBLE-QOUTE           CDCMOPT      109     A     
 CDCMOPT                                                                                   CDCMOPT      110     A     
 CDCMOPT  ****                                                                             CDCMOPT      111     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CDCMOPT 
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CDCMOPT                    111       111
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *DECK CDCM                                                                       CDCM           1     A     
 CDCM               IDENT  CDCM                                                            CDCM           2     A     
 CDCM                                                                                      CDCM           3     A     
 CDCM      CDCM     TITLE  CDCM - CHECK FOR DANGEROUS CODE MODIFICATION.                   CDCM           4     A     
 CDCM               COMMENT  CDCM V1.0 - CHECK DANGEROUS CODE MODIFICATION.                CDCM           5     A     
 CDCM     *CALL CDCMOPT                                                                    CDCM           6     A     
 CDCM                                                                                      CDCM           7     A     
 CDCM               SST                                                                    CDCM           8     A     
 CDCM               B1=1                                                                   CDCM           9     A     
 CDCM      CDCM     TITLE  INTERMEDIATE FILE FORMAT.                                       CDCM          10     A     
 CDCM     **        FORMAT OF INTERMEDIATE FILE.                                           CDCM          11     A     
 CDCM     *                                                                                CDCM          12     A     
 CDCM     *         THE LENGTH OF INTERMEDIATE ENTRIES IS DETERMINED BY THE                CDCM          13     A     
 CDCM     *         SYMBOLS *INTLTH* AND *LINELTH*.  BOTH ARE DEFINED IN                   CDCM          14     A     
 CDCM     *         COMDECK *CDCMOPT*.                                                     CDCM          15     A     
 CDCM     *                                                                                CDCM          16     A     
 CDCM     *         WORD 0 = HEADER WORD:                                                  CDCM          17     A     
 CDCM     *                                                                                CDCM          18     A     
 CDCM     *            1/F,50/0,9/QI                                                       CDCM          19     A     
 CDCM     *                                                                                CDCM          20     A     
 CDCM     *                                                                                CDCM          21     A     
 CDCM     *                                                                                CDCM          22     A     
 CDCM     *         WORDS 1 -> INTLTH = REFERENCE WORDS:                                   CDCM          23     A     
 CDCM     *                                                                                CDCM          24     A     
 CDCM     *            1/E,1/0,1/G,9/Q,48/SYM                                              CDCM          25     A     
 CDCM     *                                                                                CDCM          26     A     
 CDCM     *                                                                                CDCM          27     A     
 CDCM     *                                                                                CDCM          28     A     
 CDCM     *         WORDS INTLTH+1 -> INTLTH+LINELTH = LINE IMAGE WORDS:                   CDCM          29     A     
 CDCM     *                                                                                CDCM          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/28. 19.11.32.      PAGE1160    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *            CONTENTS OF LINE IMAGE                                              CDCM          31     A     
 CDCM     *                                                                                CDCM          32     A     
 CDCM     *                                                                                CDCM          33     A     
 CDCM     *   WHERE F    = 1 IF THE STATEMENT IS TO BE LISTED.                             CDCM          34     A     
 CDCM     *         QI   = QUALIFIER INDEX OF THE QUAL BLOCK CONTAINING THE                CDCM          35     A     
 CDCM     *                  INSTRUCTION.  ZERO IF IN THE GLOBAL BLOCK.                    CDCM          36     A     
 CDCM     *         E    = 1 IF SYMBOL IS AN EXTERNAL.                                     CDCM          37     A     
 CDCM     *         G    = 1 IF SYMBOL IS EXPLICITLY QUALIFIED.                            CDCM          38     A     
 CDCM     *         Q    = QUAL INDEX OF SYMBOL (0 IF EXPLICIT GLOBAL QUALIFIER).          CDCM          39     A     
 CDCM     *         SYM  = NAME OF A SYMBOL RELATED TO THE STORE  (OR ZERO).               CDCM          40     A     
 CDCM      CDCM     TITLE  MANAGED TABLES.                                                 CDCM          41     A     
 CDCM                                                                                      CDCM          42     A     
 CDCM     **        MANAGED TABLES.                                                        CDCM          43     A     
 CDCM     *                                                                                CDCM          44     A     
 CDCM     *         THESE TABLES ARE KEPT AS CMM VARIABLE-POSITION BLOCKS.  FOR            CDCM          45     A     
 CDCM     *         A DESCRIPTION OF THE TABLE POINTERS, SEE ROUTINE *ADW*.                CDCM          46     A     
 CDCM      CDCM     SPACE  4,8                                                             CDCM          47     A     
 CDCM     **        O.ENT - ENTRY POINT NAMES.                                             CDCM          48     A     
 CDCM     *                                                                                CDCM          49     A     
 CDCM     *         ENTRY = 1 WORD.                                                        CDCM          50     A     
 CDCM     *                                                                                CDCM          51     A     
 CDCM     *         VFD    42/NAME,18/0                                                    CDCM          52     A     
 CDCM     *                                                                                CDCM          53     A     
 CDCM     *         NAME = ENTRY POINT NAME, LEFT JUSTIFIED ZERO FILL.                     CDCM          54     A     
 CDCM                                                                                      CDCM          55     A     
 CDCM      O.ENT    VFD    30/0,30/0     WORD 0 - CMM POINTER WORD                         CDCM          56     A     
 CDCM               VFD    42/0,18/0     WORD 1 - USER LENGTH                              CDCM          57     A     
 CDCM               VFD    42/0,18/200B  WORD 2 - INCREASE AMOUNT                          CDCM          58     A     
 CDCM      CDCM     SPACE  4,8                                                             CDCM          59     A     
 CDCM     **        O.EXT - EXTERNAL NAMES.                                                CDCM          60     A     
 CDCM     *                                                                                CDCM          61     A     
 CDCM     *         ENTRY = 1 WORD.                                                        CDCM          62     A     
 CDCM     *                                                                                CDCM          63     A     
 CDCM     *         VFD    42/NAME,18/0                                                    CDCM          64     A     
 CDCM     *                                                                                CDCM          65     A     
 CDCM     *         NAME = EXTERNAL NAME, LEFT JUSTIFIED ZERO FILL.                        CDCM          66     A     
 CDCM                                                                                      CDCM          67     A     
 CDCM      O.EXT    VFD    30/0,30/0     WORD 0 - CMM POINTER WORD                         CDCM          68     A     
 CDCM               VFD    42/0,18/0     WORD 1 - USER LENGTH                              CDCM          69     A     
 CDCM               VFD    42/0,18/200B  WORD 2 - INCREASE AMOUNT                          CDCM          70     A     
 CDCM      CDCM     SPACE  4,8                                                             CDCM          71     A     
 CDCM     **        O.LOC - LOCATION SYMBOLS.                                              CDCM          72     A     
 CDCM     *                                                                                CDCM          73     A     
 CDCM     *         ENTRY = 1 WORD.                                                        CDCM          74     A     
 CDCM     *                                                                                CDCM          75     A     
 CDCM     *         VFD    1/E,2/0,9/Q,48/NAME                                             CDCM          76     A     
 CDCM     *                                                                                CDCM          77     A     
 CDCM     *         E    = 1 IF SYMBOL IS AN ENTRY POINT.                                  CDCM          78     A     
 CDCM     *         Q    = NZ - QUALIFIER INDEX (INDEX INTO *O.QUL*).                      CDCM          79     A     
 CDCM     *                0  - UNQUALIFIED SYMBOL.                                        CDCM          80     A     
 CDCM     *         NAME = LOCATION SYMBOL NAME.                                           CDCM          81     A     
 CDCM                                                                                      CDCM          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/28. 19.11.32.      PAGE1161    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM      O.LOC    VFD    30/0,30/0     WORD 0 - CMM POINTER WORD                         CDCM          83     A     
 CDCM               VFD    42/0,18/0     WORD 1 - USER LENGTH                              CDCM          84     A     
 CDCM               VFD    42/0,18/10B   WORD 2 - INCREASE AMOUNT                          CDCM          85     A     
 CDCM      CDCM     SPACE  4,8                                                             CDCM          86     A     
 CDCM     **        O.QUL - QUALIFIER NAMES.                                               CDCM          87     A     
 CDCM     *                                                                                CDCM          88     A     
 CDCM     *         CONTAINS ONE ENTRY FOR EACH UNIQUE QUALIFIER NAME IN THE               CDCM          89     A     
 CDCM     *         PROGRAM.  THE TABLE IS EMPTY IF NO QUALIFIERS ARE PRESENT.             CDCM          90     A     
 CDCM     *                                                                                CDCM          91     A     
 CDCM     *         ENTRY = 1 WORD.                                                        CDCM          92     A     
 CDCM     *                                                                                CDCM          93     A     
 CDCM     *         VFD    48/NAME,12/0                                                    CDCM          94     A     
 CDCM     *                                                                                CDCM          95     A     
 CDCM     *         NAME = QUALIFIER NAME.                                                 CDCM          96     A     
 CDCM                                                                                      CDCM          97     A     
 CDCM      O.QUL    VFD    30/0,30/0     WORD 0 - CMM POINTER WORD                         CDCM          98     A     
 CDCM               VFD    42/0,18/0     WORD 1 - USER LENGTH                              CDCM          99     A     
 CDCM               VFD    42/0,18/10B   WORD 2 - INCREASE AMOUNT                          CDCM         100     A     
 CDCM      CDCM     SPACE  4,8                                                             CDCM         101     A     
 CDCM     **        O.QUS - QUALIFIER STACK.                                               CDCM         102     A     
 CDCM     *                                                                                CDCM         103     A     
 CDCM     *         LENGTH DEPENDS ON THE CURRENT SELECTION OF QUALIFIERS IN               CDCM         104     A     
 CDCM     *         EFFECT AT ANY GIVEN TIME FOR THE CURRENT PROGRAM.                      CDCM         105     A     
 CDCM     *                                                                                CDCM         106     A     
 CDCM     *         ENTRY = 1 WORD.                                                        CDCM         107     A     
 CDCM     *                                                                                CDCM         108     A     
 CDCM     *         VFD    51/0,9/QI                                                       CDCM         109     A     
 CDCM     *                                                                                CDCM         110     A     
 CDCM     *         QI = QUALIFIER INDEX = INDEX INTO *O.QUL*.                             CDCM         111     A     
 CDCM     *              ZERO IF QUALIFIER IN EFFECT IS THE GLOBAL BLOCK.                  CDCM         112     A     
 CDCM                                                                                      CDCM         113     A     
 CDCM      O.QUS    VFD    30/0,30/0     WORD 0 - CMM POINTER WORD                         CDCM         114     A     
 CDCM               VFD    42/0,18/0     WORD 1 - USER LENGTH                              CDCM         115     A     
 CDCM               VFD    42/0,18/10B   WORD 2 - INCREASE AMOUNT                          CDCM         116     A     
 CDCM      CDCM     TITLE  GLOBAL VALUES.                                                  CDCM         117     A     
 CDCM                                                                                      CDCM         118     A     
 CDCM     **        GLOBAL VALUES.                                                         CDCM         119     A     
 CDCM                                                                                      CDCM         120     A     
 CDCM                                                                                      CDCM         121     A     
 CDCM      LFNI     DATA   0LINPUT     INPUT FILE NAME FROM *I* PARAMETER                  CDCM         122     A     
 CDCM                                                                                      CDCM         123     A     
 CDCM      LFNL     DATA   0LOUTPUT    OUTPUT FILE NAME FROM *L* PARAMETER                 CDCM         124     A     
 CDCM                                                                                      CDCM         125     A     
 CDCM      LOOPT    CON    0           LIST OPTION FROM *LO* PARAMETER                     CDCM         126     A     
 CDCM                                   DEFAULT = A - LIST CODE MODIFICATION LINES         CDCM         127     A     
 CDCM                                                                                      CDCM         128     A     
 CDCM      PRINTCT  CON    0           NUMBER OF CODE MODIFICATION LINES LISTED            CDCM         129     A     
 CDCM                                                                                      CDCM         130     A     
 CDCM      PRINTL   CON    100         MAXIMUM NUMBER OF CODE MODIFICATION LINES           CDCM         131     A     
 CDCM                                   TO BE PRINTED FROM *PL* PARAMETER                  CDCM         132     A     
 CDCM                                                                                      CDCM         133     A     
 CDCM      SO.JP    CON    1           UNCONDITIONAL JUMP PROCESSING OPTION                CDCM         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/28. 19.11.32.      PAGE1162    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM                                   DEFAULT IS TO FORGET REGISTER CONTENTS             CDCM         135     A     
 CDCM                                    BETWEEN UNCONDITIONAL JUMPS                       CDCM         136     A     
 CDCM                                                                                      CDCM         137     A     
 CDCM      SO.SM    CON    1           SYSTEM MACRO PROCESSING OPTION                      CDCM         138     A     
 CDCM                                   DEFAULT IS TO RECOGNIZE SYSTEM MACROS              CDCM         139     A     
 CDCM                                                                                      CDCM         140     A     
 CDCM      SO.LM    CON    0           LOCAL MACRO PROCSSSING OPTION                       CDCM         141     A     
 CDCM                                   DEFAULT IS TO NOT RECOGNIZE LOCAL MACROS           CDCM         142     A     
 CDCM                                                                                      CDCM         143     A     
 CDCM      IFETCH   CON    0           FETCH POINTER FOR WORK SPACE IN CM OR LCM           CDCM         144     A     
 CDCM                                                                                      CDCM         145     A     
 CDCM      IFWA     CON    0           FWA OF WORKSPACE IF IN CM OR LCM                    CDCM         146     A     
 CDCM                                    FWA FROM CMM IF WORKSPACE IN CM                   CDCM         147     A     
 CDCM                                    ALWAYS = 0 IF WORKSPACE IN LCM                    CDCM         148     A     
 CDCM                                                                                      CDCM         149     A     
 CDCM      IMAX     CON    0           MAXIMUM ALLOWABLE CM OR LCM WORKSPACE SIZE          CDCM         150     A     
 CDCM                                   DETERMINED BY *CWS*                                CDCM         151     A     
 CDCM                                                                                      CDCM         152     A     
 CDCM                                                                                      CDCM         153     A     
 CDCM      INEXT    CON    0           STORE POINTER FOR WORK SPACE IN CM OR LCM           CDCM         154     A     
 CDCM                                                                                      CDCM         155     A     
 CDCM      ISIZE    CON    0           OFFSET TO END OF DATA IN WORKSPACE                  CDCM         156     A     
 CDCM                                                                                      CDCM         157     A     
 CDCM      SF       CON    0           0 - USE 1ST INTERMEDIATE FILE NAME                  CDCM         158     A     
 CDCM                                  1 - USE 2ND INTERMEDIATE FILE NAME                  CDCM         159     A     
 CDCM                                                                                      CDCM         160     A     
 CDCM      SP       CON    0           0 OR LFN OF INTERMEDIATE FILE BEING READ            CDCM         161     A     
 CDCM               CON    0           0 OR LFN OF INTERMEDIATE FILE BEING WRITTEN         CDCM         162     A     
 CDCM      CDCM     TITLE  MAIN ROUTINE.                                                   CDCM         163     A     
 CDCM                                                                                      CDCM         164     A     
 CDCM     **        CDCM - MAIN LOOP.                                                      CDCM         165     A     
 CDCM     *                                                                                CDCM         166     A     
 CDCM                                                                                      CDCM         167     A     
 CDCM               ENTRY  CDCM                                                            CDCM         168     A     
 CDCM      CDCM     SB1    1           MAIN *CDCM* ENTRY POINT                             CDCM         169     A     
 CDCM               RJ     /SCO/SCO    SET CONTROL STATEMENT OPTIONS                       CDCM         170     A     
 CDCM               RJ     CWS         COMPUTE WORK SPACE SIZE                             CDCM         171     A     
 CDCM               RJ     INF         INITIALIZE FILES                                    CDCM         172     A     
 CDCM                                                                                      CDCM         173     A     
 CDCM     **        PASS 1.  CONSISTS OF READING THE COMPILE FILE AND BUILDING             CDCM         174     A     
 CDCM     *         TABLES.  MOST OF THE WORK IS DONE IN PASS 1, BECAUSE IT ALSO           CDCM         175     A     
 CDCM     *         CONSISTS OF READING THE INTERMEDIATE FILE AS CREATED FOR               CDCM         176     A     
 CDCM     *         EACH PROGRAM AND SHRINKING IT OF ALL ENTRIES WHICH ARE                 CDCM         177     A     
 CDCM     *         NEITHER IN LOCATION TABLE *O.LOC* NOR CONTAIN ONE OR MORE              CDCM         178     A     
 CDCM     *         REFERENCES TO EXTERNALS.                                               CDCM         179     A     
 CDCM     *                                                                                CDCM         180     A     
 CDCM                                                                                      CDCM         181     A     
 CDCM      CD10     RJ     NXTLINE     READ NEXT LINE                                      CDCM         182     A     
 CDCM               NZ     X1,CD20     IF EOF - PASS 1 COMPLETE                            CDCM         183     A     
 CDCM               RJ     PCS         PROCESS CURRENT STATEMENT                           CDCM         184     A     
 CDCM               EQ     CD10        PASS 1 LOOP                                         CDCM         185     A     
 CDCM                                                                                      CDCM         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/28. 19.11.32.      PAGE1163    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     **        PASS 2.  CONSISTS OF MAKING ONE FINAL CHECK THROUGH THE                CDCM         187     A     
 CDCM     *         INTERMEDIATE FILE FOR ENTRIES TO BE LISTED DUE TO MATCHING             CDCM         188     A     
 CDCM     *         ENTRY POINTS/EXTERNALS AND THEN WRITING THE LIST OUTPUT.               CDCM         189     A     
 CDCM     *                                                                                CDCM         190     A     
 CDCM                                                                                      CDCM         191     A     
 CDCM      CD20     RJ     RWF         REWIND INTERMEDIATE FILE                            CDCM         192     A     
 CDCM      CD21     RJ     RIF         READ INTERMEDIATE FILE                              CDCM         193     A     
 CDCM               NZ     X1,CD50     IF COMPLETED                                        CDCM         194     A     
 CDCM               SA3    INTENT                                                          CDCM         195     A     
 CDCM               MI     X3,CD26     IF THIS ENTRY TO BE LISTED                          CDCM         196     A     
 CDCM                                                                                      CDCM         197     A     
 CDCM     *         MAKE FINAL CHECK FOR A MATCH WITH AN *O.LOC* ENTRY IN ORDER            CDCM         198     A     
 CDCM     *         TO PICK UP THOSE ENTRIES WHICH REFERENCE EXTERNALS.                    CDCM         199     A     
 CDCM                                                                                      CDCM         200     A     
 CDCM               SB5    B1          INDEX FOR WORD WITHIN ENTRY                         CDCM         201     A     
 CDCM               SB6    INTLTH      MAXIMUM INDEX + 1                                   CDCM         202     A     
 CDCM      CD22     SA2    B5+INTENT   NEXT SYMBOL (IF ZERO)                               CDCM         203     A     
 CDCM               NZ     X2,CD24     IF A SYMBOL PRESENT                                 CDCM         204     A     
 CDCM      CD23     SB5    B5+B1       ADVANCE INDEX                                       CDCM         205     A     
 CDCM               LT     B5,B6,CD22  LOOP FOR NUMBER OF SYMBOLS POSSIBLE (2)             CDCM         206     A     
 CDCM               EQ     CD21        DO NOT LIST THIS ENTRY                              CDCM         207     A     
 CDCM                                                                                      CDCM         208     A     
 CDCM     *         SEARCH *O.LOC* FOR CURRENT SYMBOL NAME.                                CDCM         209     A     
 CDCM                                                                                      CDCM         210     A     
 CDCM      CD24     SA1    O.LOC       FWA OF *O.LOC*                                      CDCM         211     A     
 CDCM               BX7    X2                                                              CDCM         212     A     
 CDCM               SA3    A1+B1       LENGTH OF *O.LOC*                                   CDCM         213     A     
 CDCM               IX4    X1+X3       (B4) = LWA+1 *O.LOC*                                CDCM         214     A     
 CDCM               ZR     X3,CD23     IF *O.LOC* EMPTY                                    CDCM         215     A     
 CDCM               SB4    X4                                                              CDCM         216     A     
 CDCM               SA5    B4          SAVE (LWA+1)                                        CDCM         217     A     
 CDCM               SA7    B4          STORE TARGET AT (LWA+1)                             CDCM         218     A     
 CDCM               SA4    X1-1        FIRST - 1 ENTRY                                     CDCM         219     A     
 CDCM      CD25     SA4    A4+B1       NEXT ENTRY                                          CDCM         220     A     
 CDCM               BX3    X4-X2                                                           CDCM         221     A     
 CDCM               NZ     X3,CD25     LOOP UNTIL MATCH                                    CDCM         222     A     
 CDCM               BX6    X5          RESTORE (LWA+1)                                     CDCM         223     A     
 CDCM               SB3    A4                                                              CDCM         224     A     
 CDCM               SA6    B4                                                              CDCM         225     A     
 CDCM               EQ     B3,B4,CD23  IF SYMBOL NOT FOUND                                 CDCM         226     A     
 CDCM                                                                                      CDCM         227     A     
 CDCM     *         SYMBOL MATCHES WITH AN *O.LOC* ENTRY.  THIS ENTRY WAS FOR A            CDCM         228     A     
 CDCM     *         REFERENCE TO AN EXTERNAL.                                              CDCM         229     A     
 CDCM                                                                                      CDCM         230     A     
 CDCM     *         LIST THE SOURCE LINE REPRESENTED BY THIS ENTRY, PROVIDED               CDCM         231     A     
 CDCM     *         LIST OUTPUT WAS SELECTED AND THE PRINT LIMIT HAS NOT BEEN              CDCM         232     A     
 CDCM     *         EXCEEDED.                                                              CDCM         233     A     
 CDCM                                                                                      CDCM         234     A     
 CDCM      CD26     SA2    PRINTCT     ADVANCE NUMBER OF LINES LISTED                      CDCM         235     A     
 CDCM               SX6    X2+B1                                                           CDCM         236     A     
 CDCM               SA6    A2                                                              CDCM         237     A     
 CDCM               SA5    LFNL                                                            CDCM         238     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1164    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               ZR     X5,CD21     IF NO LIST OUTPUT                                   CDCM         239     A     
 CDCM               SA1    LOOPT                                                           CDCM         240     A     
 CDCM               NZ     X1,CD21     IF SHORT LISTING SELECTED                           CDCM         241     A     
 CDCM               SA3    PRINTL      CHECK IF PRINT LIMIT EXCEEDED                       CDCM         242     A     
 CDCM               IX4    X3-X6                                                           CDCM         243     A     
 CDCM               MI     X4,CD21     IF PRINT LIMIT EXCEEDED                             CDCM         244     A     
 CDCM               SB6    INTENT+INTLTH  FWA OF LINE IMAGE                                CDCM         245     A     
 CDCM               SB7    LINELTH                                                         CDCM         246     A     
 CDCM               RJ     WRLINE      WRITE LINE                                          CDCM         247     A     
 CDCM               EQ     CD21        LOOP                                                CDCM         248     A     
 CDCM                                                                                      CDCM         249     A     
 CDCM      CD50     SA4    LFNL                                                            CDCM         250     A     
 CDCM               ZR     X4,CD51     IF NO LIST OUTPUT                                   CDCM         251     A     
 CDCM               RJ     WRITEX      COMPLETE OUTPUT FILE                                CDCM         252     A     
 CDCM                                                                                      CDCM         253     A     
 CDCM      CD51     MESSAGE  CDDFM1,,RCL  *CDCM COMPLETE* DAYFILE MESSAGE                  CDCM         254     A     
 CDCM               SA1    PRINTCT                                                         CDCM         255     A     
 CDCM               RJ     =XCDD=      CONVERT TO DECIMAL DISPLAY                          CDCM         256     A     
 CDCM               SA2    CDDFM2                                                          CDCM         257     A     
 CDCM               LX6    3*6         SHIFT COUNT LEFT 3 PLACES AND MERGE                 CDCM         258     A     
 CDCM               MX1    -3*6         WITH MESSAGE                                       CDCM         259     A     
 CDCM               BX6    X1*X6                                                           CDCM         260     A     
 CDCM               BX6    X2+X6                                                           CDCM         261     A     
 CDCM               SA6    A2                                                              CDCM         262     A     
 CDCM               MESSAGE  A6,,RCL   ISSUE LINE COUNT DAYFILE MESSAGE                    CDCM         263     A     
 CDCM               ENDRUN             ALL DONE - RETURN TO SYSTEM                         CDCM         264     A     
 CDCM                                                                                      CDCM         265     A     
 CDCM      CDDFM1   DATA   C* CDCM COMPLETE*                                               CDCM         266     A     
 CDCM      CDDFM2   DATA   3R CO,C*DE-MODIFICATION LINES*                                  CDCM         267     A     
 CDCM      ANT      TITLE  STATEMENT PROCESSING SUBROUTINES.                               CDCM         268     A     
 CDCM     **        ANT - ADD NAME TO TABLE.                                               CDCM         269     A     
 CDCM     *                                                                                CDCM         270     A     
 CDCM     *         ADDS A NAME TO A MANAGED TABLE IF NOT ALREADY PRESENT.                 CDCM         271     A     
 CDCM     *                                                                                CDCM         272     A     
 CDCM     *         ENTRY  (X1) = NAME, LEFT JUSTIFIED, ZERO FILL.                         CDCM         273     A     
 CDCM     *                (B1) = 1.                                                       CDCM         274     A     
 CDCM     *                (A2) = TABLE POINTER.                                           CDCM         275     A     
 CDCM     *                                                                                CDCM         276     A     
 CDCM     *         EXIT   (X1) = NAME, LEFT JUSTIFIED, ZERO FILL.                         CDCM         277     A     
 CDCM     *                                                                                CDCM         278     A     
 CDCM     *         USES   X - 2, 3, 4, 6, 7.                                              CDCM         279     A     
 CDCM     *                B - 4, 5, 6, 7.                                                 CDCM         280     A     
 CDCM     *                A - 1, 2, 3, 4, 5, 6, 7.                                        CDCM         281     A     
 CDCM     *                                                                                CDCM         282     A     
 CDCM     *         CALLS  ADW=.                                                           CDCM         283     A     
 CDCM                                                                                      CDCM         284     A     
 CDCM                                                                                      CDCM         285     A     
 CDCM      ANT      EQ     *+1S17      ENTRY / EXIT                                        CDCM         286     A     
 CDCM               SA3    A2+B1                                                           CDCM         287     A     
 CDCM               ZR     X3,ANT2     IF TABLE EMPTY, GO ADD                              CDCM         288     A     
 CDCM               SB5    X2          (B5) = FWA TABLE                                    CDCM         289     A     
 CDCM               SA4    B5+X3       SAVE (LWA+1)                                        CDCM         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/28. 19.11.32.      PAGE1165    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               BX7    X4                                                              CDCM         291     A     
 CDCM               SB7    A4          (B7) = LWA+1                                        CDCM         292     A     
 CDCM               BX6    X1                                                              CDCM         293     A     
 CDCM               SA6    A4          SET TARGET VALUE AT LWA+1                           CDCM         294     A     
 CDCM               SA4    B5-1        FIRST-1 ENTRY                                       CDCM         295     A     
 CDCM      ANT1     SA4    A4+B1       SEARCH LOOP                                         CDCM         296     A     
 CDCM               BX4    X6-X4                                                           CDCM         297     A     
 CDCM               NZ     X4,ANT1     LOOP UNTIL HIT                                      CDCM         298     A     
 CDCM               SB6    A4                                                              CDCM         299     A     
 CDCM               SA7    B7          RESTORE (LWA+1)                                     CDCM         300     A     
 CDCM               NE     B6,B7,ANT   IF NAME ALREADY IN TABLE, EXIT                      CDCM         301     A     
 CDCM      ANT2     RJ     ADW         ADD WORD TO TABLE                                   CDCM         302     A     
 CDCM                                   (A2) = TABLE POINTER, (X1) = WORD                  CDCM         303     A     
 CDCM               EQ     ANT         RETURN                                              CDCM         304     A     
 CDCM      CRT      TITLE  STATEMENT PROCESSING SUBROUTINES.                               CDCM         305     A     
 CDCM     **        CRT - CLEAR REGISTER TABLE.                                            CDCM         306     A     
 CDCM     *                                                                                CDCM         307     A     
 CDCM     *         CLEARS THE REGISTER TABLE *OR.REG*.  THIS CAUSES CDCM TO               CDCM         308     A     
 CDCM     *         FORGET ANY PREVIOUS REFERENCES TO ADDRESSES IN ANY OF THE              CDCM         309     A     
 CDCM     *         REGISTERS.  CALLED AT THE BEGINNING OF EACH PROGRAM UNIT               CDCM         310     A     
 CDCM     *         (*IDENT* STATEMENT), AND AFTER AN UNCONDITIONAL JUMP IF THE            CDCM         311     A     
 CDCM     *         *JP* OPTION IS SELECTED.                                               CDCM         312     A     
 CDCM     *                                                                                CDCM         313     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM         314     A     
 CDCM     *                                                                                CDCM         315     A     
 CDCM     *         EXIT   NONE.                                                           CDCM         316     A     
 CDCM     *                                                                                CDCM         317     A     
 CDCM     *         USES   X - 6.                                                          CDCM         318     A     
 CDCM     *                B - 6, 7.                                                       CDCM         319     A     
 CDCM     *                A - 6.                                                          CDCM         320     A     
 CDCM                                                                                      CDCM         321     A     
 CDCM                                                                                      CDCM         322     A     
 CDCM      CRT      EQ     *+1S17      ENTRY / EXIT                                        CDCM         323     A     
 CDCM               SB6    B0                                                              CDCM         324     A     
 CDCM               SB7    LE.REG                                                          CDCM         325     A     
 CDCM               MX6    0                                                               CDCM         326     A     
 CDCM      CRT1     SA6    B6+OR.REG                                                       CDCM         327     A     
 CDCM               SB6    B6+B1                                                           CDCM         328     A     
 CDCM               LT     B6,B7,CRT1  LOOP                                                CDCM         329     A     
 CDCM               EQ     CRT         RETURN                                              CDCM         330     A     
 CDCM      FBF      TITLE  STATEMENT PROCESSING SUBROUTINES.                               CDCM         331     A     
 CDCM     **        FBF - FIND BEGINNING OF FIELD.                                         CDCM         332     A     
 CDCM     *                                                                                CDCM         333     A     
 CDCM     *         SCANS FORWARD TO THE NEXT NON-BLANK IN THE STRING BUFFER.              CDCM         334     A     
 CDCM     *                                                                                CDCM         335     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM         336     A     
 CDCM     *                *NEXTCOL* POINTS TO A CHARACTER IN THE STRING BUFFER.           CDCM         337     A     
 CDCM     *                                                                                CDCM         338     A     
 CDCM     *         EXIT   (X6) = *NEXTCOL* = COLUMN NUMBER OF FIRST ENCOUNTERED           CDCM         339     A     
 CDCM     *                       NON-BLANK CHARACTER.  MAY NOT HAVE CHANGED.              CDCM         340     A     
 CDCM     *                                                                                CDCM         341     A     
 CDCM     *         USES   X - 1, 2, 3, 6.                                                 CDCM         342     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1166    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *                B - NONE.                                                       CDCM         343     A     
 CDCM     *                A - 1, 2, 6.                                                    CDCM         344     A     
 CDCM                                                                                      CDCM         345     A     
 CDCM                                                                                      CDCM         346     A     
 CDCM      FBF      EQ     *+1S16      ENTRY / EXIT                                        CDCM         347     A     
 CDCM               SA1    NEXTCOL                                                         CDCM         348     A     
 CDCM               SA2    X1+OR.LINE-2  INITIALIZE FETCH                                  CDCM         349     A     
 CDCM               SX6    1R          BLANK                                               CDCM         350     A     
 CDCM               SX3    A2+B1       ADDRESS OF FIRST CHAR FETCHED                       CDCM         351     A     
 CDCM      FBF1     SA2    A2+B1       NEXT CHAR                                           CDCM         352     A     
 CDCM               IX2    X6-X2                                                           CDCM         353     A     
 CDCM               ZR     X2,FBF1     LOOP ON BLANK                                       CDCM         354     A     
 CDCM               SX2    A2                                                              CDCM         355     A     
 CDCM               IX6    X2-X3                                                           CDCM         356     A     
 CDCM               IX6    X1+X6       ADVANCE COLUMN POINTER                              CDCM         357     A     
 CDCM               SA6    A1                                                              CDCM         358     A     
 CDCM               EQ     FBF         RETURN                                              CDCM         359     A     
 CDCM      GSE      TITLE  STATEMENT PROCESSING SUBROUTINES.                               CDCM         360     A     
 CDCM     **        GSE - GET STATEMENT ELEMENT.                                           CDCM         361     A     
 CDCM     *                                                                                CDCM         362     A     
 CDCM     *         *GSE* SCANS CHARACTERS IN A STATEMENT LINE AND INDICATES THE           CDCM         363     A     
 CDCM     *         PRESENCE OF THE FOLLOWING.  NOTE THAT MANY ELEMENT TYPES AS            CDCM         364     A     
 CDCM     *         DEFINED FOR THE *COMPASS* ADDRESS FIELD ARE NOT PRESENTLY              CDCM         365     A     
 CDCM     *         HANDLED BECAUSE THEY DO NOT HAVE TO BE HANDLED IN ORDER THAT           CDCM         366     A     
 CDCM     *         *CDCM* PROVIDE CORRECT RESULTS IN THE GREAT MAJORITY OF CASES.         CDCM         367     A     
 CDCM     *                                                                                CDCM         368     A     
 CDCM     *         - REGISTERS (A0-A7, B0-B7, X0-X7, A.0-A.7, B.0-B.7, X.0-X.7).          CDCM         369     A     
 CDCM     *         - SYMBOLS (1-8 CHARS IN LENGTH ACCORDING TO *COMPASS* RULES).          CDCM         370     A     
 CDCM     *         - QUALIFIED SYMBOLS ( /SYMBOL NAME/ ).                                 CDCM         371     A     
 CDCM     *         - EXTERNAL NAMES OF THE FORM =XNAME OR =YNAME.  NAME MUST              CDCM         372     A     
 CDCM     *           ADHERE TO THE RULES FOR LINKAGE SYMBOLS.                             CDCM         373     A     
 CDCM     *                                                                                CDCM         374     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM         375     A     
 CDCM     *                LINE BUFFER BEGINS AT OR.LINE.                                  CDCM         376     A     
 CDCM     *                *NEXTCOL* POINTS TO THE FIRST COLUMN TO BE FETCHED.             CDCM         377     A     
 CDCM     *                                                                                CDCM         378     A     
 CDCM     *         EXIT   (B1) = 1.                                                       CDCM         379     A     
 CDCM     *                (B2) = TYPE OF ITEM RETURNED AS FOLLOWS:                        CDCM         380     A     
 CDCM     *                       0 - REGISTER.                                            CDCM         381     A     
 CDCM     *                       1 - ORDINARY SYMBOL                                      CDCM         382     A     
 CDCM     *                       2 - QUALIFIED SYMBOL                                     CDCM         383     A     
 CDCM     *                       3 - EXTERNAL SYMBOL                                      CDCM         384     A     
 CDCM     *                       4 - ANYTHING ELSE                                        CDCM         385     A     
 CDCM     *                (X1) = ITEM VALUE AS FOLLOWS:                                   CDCM         386     A     
 CDCM     *                       FOR B2 = 0, REGISTER INDEX IN RANGE (0-23);              CDCM         387     A     
 CDCM     *                         I.E., 0=A0, 1=A1, 7=A7, 15=B7, 16=X1, ETC.             CDCM         388     A     
 CDCM     *                       FOR B2 = 1-3, NAME LEFT JUSTIFIED, ZERO FILL.            CDCM         389     A     
 CDCM     *                       FOR B2 = 4, 1ST CHAR RIGHT JUSTIFIED.                    CDCM         390     A     
 CDCM     *                                   MI IF POSITION UNDEFINED.                    CDCM         391     A     
 CDCM     *                (X2) = FOR B2 = 0-3, CHARACTER FOLLOWING ITEM IN X1.            CDCM         392     A     
 CDCM     *                       FOR B2 = 4, 2ND CHAR RIGHT JUSTIFIED.                    CDCM         393     A     
 CDCM     *                                   MI IF POSITION UNDEFINED.                    CDCM         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/28. 19.11.32.      PAGE1167    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *                (ITEMLTH) = REGISTER/SYMBOL LENGTH IN CHARACTERS, IF            CDCM         395     A     
 CDCM     *                         B2 = 0 - 3.                                            CDCM         396     A     
 CDCM     *                (NEXTCOL) POINTS TO THE CHARACTER PAST THE CHARACTER            CDCM         397     A     
 CDCM     *                         IN (X2) ABOVE.                                         CDCM         398     A     
 CDCM     *                                                                                CDCM         399     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM         400     A     
 CDCM     *                B - 2, 6, 7.                                                    CDCM         401     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM         402     A     
 CDCM     *                                                                                CDCM         403     A     
 CDCM     *         CALLS  GSN.                                                            CDCM         404     A     
 CDCM                                                                                      CDCM         405     A     
 CDCM                                                                                      CDCM         406     A     
 CDCM      GSE      EQ     *+1S17      ENTRY / EXIT                                        CDCM         407     A     
 CDCM               RJ     GSN         GET NEXT CHAR                                       CDCM         408     A     
 CDCM               R=     X2,X1-1R=                                                       CDCM         409     A     
 CDCM               NZ     X2,GSE10    IF NOT =                                            CDCM         410     A     
 CDCM                                                                                      CDCM         411     A     
 CDCM     *         = IS FIRST CHAR.  CHECK FOR =X OR =Y.                                  CDCM         412     A     
 CDCM                                                                                      CDCM         413     A     
 CDCM               BX3    X1          SAVE =                                              CDCM         414     A     
 CDCM               RJ     GSN         GET 2ND CHAR                                        CDCM         415     A     
 CDCM               BX4    X1          SAVE 2ND CHAR                                       CDCM         416     A     
 CDCM               R=     X2,X1-1RY                                                       CDCM         417     A     
 CDCM               ZR     X2,GSE1     IF =Y                                               CDCM         418     A     
 CDCM               R=     X2,X2+1RY-1RX                                                   CDCM         419     A     
 CDCM               NZ     X2,GSE17    IF NEITHER =X NOR =Y, TYPE 4                        CDCM         420     A     
 CDCM      GSE1     RJ     GSN         GET NEXT CHAR                                       CDCM         421     A     
 CDCM               R=     X2,X1-1RZ-1                                                     CDCM         422     A     
 CDCM               PL     X2,GSE16    FIRST CHAR MUST BE ALPHA FOR EXTERNAL NAME          CDCM         423     A     
 CDCM               ZR     X1,GSE16                                                        CDCM         424     A     
 CDCM                                                                                      CDCM         425     A     
 CDCM     *         FORM NAME FOR EXTERNAL.  ANY OF THE FOLLOWING CHARACTERS               CDCM         426     A     
 CDCM     *         WILL SIGNAL THE END OF THE NAME:  + - * / (BLANK) , (CARAT)            CDCM         427     A     
 CDCM                                                                                      CDCM         428     A     
 CDCM               SB7    54          SHIFT COUNT FOR FIRST CHAR                          CDCM         429     A     
 CDCM               LX4    X1,B7       FIRST CHAR OF NAME                                  CDCM         430     A     
 CDCM               SX6    B1          CURRENT NAME LENGTH                                 CDCM         431     A     
 CDCM               SA6    ITEMLTH                                                         CDCM         432     A     
 CDCM      GSE2     SB7    B7-6        SHIFT COUNT FOR NEXT CHAR                           CDCM         433     A     
 CDCM               RJ     GSN         GET NEXT CHAR                                       CDCM         434     A     
 CDCM               R=     X2,X1-1R+                                                       CDCM         435     A     
 CDCM               MI     X2,GSE3     IF CHAR LEGAL FOR NAME                              CDCM         436     A     
 CDCM               R=     X2,X2+1R+-1R/-1                                                 CDCM         437     A     
 CDCM               MI     X2,GSE4     IF ANY OF + - * /                                   CDCM         438     A     
 CDCM               R=     X2,X1-1R,                                                       CDCM         439     A     
 CDCM               ZR     X2,GSE4     IF ,                                                CDCM         440     A     
 CDCM               R=     X2,X2+1R,-1R                                                    CDCM         441     A     
 CDCM               ZR     X2,GSE4     IF (BLANK)                                          CDCM         442     A     
 CDCM               R=     X2,X1-1R^                                                       CDCM         443     A     
 CDCM               ZR     X2,GSE4     IF (CARAT)                                          CDCM         444     A     
 CDCM      GSE3     LX1    X1,B7       POSITION CHAR                                       CDCM         445     A     
 CDCM               SA2    ITEMLTH     ADVANCE NAME LENGTH                                 CDCM         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/28. 19.11.32.      PAGE1168    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SX7    X2+B1                                                           CDCM         447     A     
 CDCM               SA7    A2                                                              CDCM         448     A     
 CDCM               BX4    X4+X1                                                           CDCM         449     A     
 CDCM               SX3    X7-8        CHECK 7-CHAR MAX LENGTH FOR EXTERNAL NAMES          CDCM         450     A     
 CDCM               PL     X3,GSE15    IF NAME TOO LONG, RETURN TYPE 4 - UNDEF             CDCM         451     A     
 CDCM               EQ     GSE2        LOOP FOR NAME                                       CDCM         452     A     
 CDCM                                                                                      CDCM         453     A     
 CDCM     *         TYPE 3 RETURN - EXTERNAL NAME.                                         CDCM         454     A     
 CDCM                                                                                      CDCM         455     A     
 CDCM      GSE4     BX2    X1          (X2) = CHARACTER FOLLOWING NAME                     CDCM         456     A     
 CDCM               R=     B2,3                                                            CDCM         457     A     
 CDCM               LX1    X4          (X1) = NAME                                         CDCM         458     A     
 CDCM               EQ     GSE         RETURN                                              CDCM         459     A     
 CDCM                                                                                      CDCM         460     A     
 CDCM     *         CHECK REMAINING POSSIBLE FIRST CHARS.                                  CDCM         461     A     
 CDCM                                                                                      CDCM         462     A     
 CDCM      GSE10    BX3    X1          SAVE 1ST CHAR                                       CDCM         463     A     
 CDCM               R=     X2,X1-1R*                                                       CDCM         464     A     
 CDCM               ZR     X2,GSE12    IF FIRST CHAR IS *                                  CDCM         465     A     
 CDCM               R=     X2,X1-1R-                                                       CDCM         466     A     
 CDCM               ZR     X2,GSE12    IF FIRST CHAR IS -                                  CDCM         467     A     
 CDCM               R=     X2,X1-1R+                                                       CDCM         468     A     
 CDCM               ZR     X2,GSE12    IF FIRST CHAR IS +                                  CDCM         469     A     
 CDCM               R=     X2,X1-1R/                                                       CDCM         470     A     
 CDCM               NZ     X2,GSE19    IF FIRST CHAR NOT / GO CHECK FOR SYMBOL             CDCM         471     A     
 CDCM                                                                                      CDCM         472     A     
 CDCM     *         / IS FIRST CHAR.                                                       CDCM         473     A     
 CDCM                                                                                      CDCM         474     A     
 CDCM               RJ     GSN         GET NEXT CHAR                                       CDCM         475     A     
 CDCM               SB2    2           SET FOR QUALIFIER                                   CDCM         476     A     
 CDCM               EQ     GSE20       GO CHECK FOR SYMBOL AFTER /                         CDCM         477     A     
 CDCM                                                                                      CDCM         478     A     
 CDCM     *         TYPE 4 RETURN CASES.                                                   CDCM         479     A     
 CDCM                                                                                      CDCM         480     A     
 CDCM      GSE11    NE     B2,B1,GSE13 IF QUALIFIER, TWO CHARS ALREADY FETCHED             CDCM         481     A     
 CDCM      GSE12    RJ     GSN         GET NEXT CHAR                                       CDCM         482     A     
 CDCM      GSE13    BX2    X1          (X2) = 2ND CHAR                                     CDCM         483     A     
 CDCM               BX1    X3          (X1) = 1ST CHAR                                     CDCM         484     A     
 CDCM               EQ     GSE18       ISSUE TYPE 4 RETURN                                 CDCM         485     A     
 CDCM                                                                                      CDCM         486     A     
 CDCM      GSE15    SX1    -B1         UNDEFINED RETURN                                    CDCM         487     A     
 CDCM               SX2    -B1                                                             CDCM         488     A     
 CDCM               EQ     GSE18                                                           CDCM         489     A     
 CDCM                                                                                      CDCM         490     A     
 CDCM      GSE16    SA1    NEXTCOL     BACK UP ONE COLUMN                                  CDCM         491     A     
 CDCM               SX6    X1-1                                                            CDCM         492     A     
 CDCM               SA6    A1                                                              CDCM         493     A     
 CDCM      GSE17    BX1    X3          (X1) = 1ST CHAR FETCHED                             CDCM         494     A     
 CDCM               BX2    X4          (X2) = 2ND CHAR FETCHED                             CDCM         495     A     
 CDCM      GSE18    SB2    4                                                               CDCM         496     A     
 CDCM               EQ     GSE         RETURN                                              CDCM         497     A     
 CDCM                                                                                      CDCM         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/28. 19.11.32.      PAGE1169    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         CHECK FOR LEGAL FIRST CHAR FOR A SYMBOL NAME.  ANY CHAR IS             CDCM         499     A     
 CDCM     *         LEGAL EXCEPT (COLON) (NUMERIC) + - * / $ = (BLANK) , (CARAT)           CDCM         500     A     
 CDCM                                                                                      CDCM         501     A     
 CDCM      GSE19    SB2    B1          (B2) = 1 FOR SYMBOL                                 CDCM         502     A     
 CDCM      GSE20    ZR     X1,GSE11    IF FIRST CHAR IS COLON                              CDCM         503     A     
 CDCM               R=     X2,X1-1R0                                                       CDCM         504     A     
 CDCM               MI     X2,GSE21    ALPHA - LEGAL 1ST CHAR                              CDCM         505     A     
 CDCM               R=     X2,X2+1R0-1R9-1                                                 CDCM         506     A     
 CDCM               MI     X2,GSE11    NUMERIC NOT LEGAL                                   CDCM         507     A     
 CDCM               R=     X2,X1-1R+                                                       CDCM         508     A     
 CDCM               ZR     X2,GSE11    + NOT LEGAL                                         CDCM         509     A     
 CDCM               R=     X2,X1-1R-                                                       CDCM         510     A     
 CDCM               ZR     X2,GSE11    - NOT LEGAL                                         CDCM         511     A     
 CDCM               R=     X2,X1-1R*                                                       CDCM         512     A     
 CDCM               ZR     X2,GSE11    * NOT LEGAL                                         CDCM         513     A     
 CDCM               R=     X2,X1-1R/                                                       CDCM         514     A     
 CDCM               ZR     X2,GSE11    / NOT LEGAL                                         CDCM         515     A     
 CDCM               R=     X2,X1-1R$                                                       CDCM         516     A     
 CDCM               ZR     X2,GSE11    $ NOT LEGAL                                         CDCM         517     A     
 CDCM               R=     X2,X1-1R=                                                       CDCM         518     A     
 CDCM               ZR     X2,GSE11    = NOT LEGAL                                         CDCM         519     A     
 CDCM               R=     X2,X1-1R                                                        CDCM         520     A     
 CDCM               ZR     X2,GSE11    (BLANK) NOT LEGAL                                   CDCM         521     A     
 CDCM               R=     X2,X1-1R,                                                       CDCM         522     A     
 CDCM               ZR     X2,GSE11    , NOT LEGAL                                         CDCM         523     A     
 CDCM               R=     X2,X1-1R^                                                       CDCM         524     A     
 CDCM               ZR     X2,GSE11    (CARAT) NOT LEGAL                                   CDCM         525     A     
 CDCM                                                                                      CDCM         526     A     
 CDCM     *         FORM SYMBOL NAME.  REMAINING CHARS MAY BE ANYTHING EXCEPT              CDCM         527     A     
 CDCM     *         + - * / (BLANK) , (CARAT)                                              CDCM         528     A     
 CDCM                                                                                      CDCM         529     A     
 CDCM      GSE21    SX6    B1          STARTING SYMBOL LENGTH                              CDCM         530     A     
 CDCM               SA6    ITEMLTH                                                         CDCM         531     A     
 CDCM               SB7    54          STARTING CHAR SHIFT COUNT                           CDCM         532     A     
 CDCM               MX4    0           (X4) = SYMBOL                                       CDCM         533     A     
 CDCM      GSE22    LX1    X1,B7       SHIFT CHAR TO POSITION                              CDCM         534     A     
 CDCM               BX4    X4+X1       ADD CHAR TO SYMBOL                                  CDCM         535     A     
 CDCM               SB7    B7-6        ADVANCE SHIFT COUNT FOR NEXT CHAR                   CDCM         536     A     
 CDCM               RJ     GSN         GET NEXT CHAR                                       CDCM         537     A     
 CDCM               R=     X2,X1-1R+                                                       CDCM         538     A     
 CDCM               MI     X2,GSE23    LEGAL CHAR IF COLON OR ALPHANUMERIC                 CDCM         539     A     
 CDCM               R=     X2,X1-1R/-1                                                     CDCM         540     A     
 CDCM               MI     X2,GSE30    AT END OF SYMBOL IF + - * OR /                      CDCM         541     A     
 CDCM               R=     X2,X1-1R                                                        CDCM         542     A     
 CDCM               ZR     X2,GSE30    AT END OF SYMBOL IF (BLANK)                         CDCM         543     A     
 CDCM               R=     X2,X1-1R,                                                       CDCM         544     A     
 CDCM               ZR     X2,GSE30    AT END OF SYMBOL IF ,                               CDCM         545     A     
 CDCM               R=     X2,X1-1R^                                                       CDCM         546     A     
 CDCM               ZR     X2,GSE30    AT END OF SYMBOL IF (CARAT)                         CDCM         547     A     
 CDCM      GSE23    SA2    ITEMLTH     ADVANCE SYMBOL LENGTH                               CDCM         548     A     
 CDCM               SX6    X2+B1                                                           CDCM         549     A     
 CDCM               SA6    A2                                                              CDCM         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/28. 19.11.32.      PAGE1170    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SX3    X6-9        CHECK 8-CHAR MAX LENGTH                             CDCM         551     A     
 CDCM               MI     X3,GSE22    IF SYMBOL NOT TOO LONG                              CDCM         552     A     
 CDCM               EQ     GSE15       TYPE 4 RETURN - UNDEFINED                           CDCM         553     A     
 CDCM                                                                                      CDCM         554     A     
 CDCM     *         DETERMINE IF SYMBOL NAME IS ALSO A LEGAL REGISTER NAME.                CDCM         555     A     
 CDCM     *         (X1) = TERMINATING CHAR; (X4) = SYMBOL NAME.                           CDCM         556     A     
 CDCM                                                                                      CDCM         557     A     
 CDCM      GSE30    SB7    X1          SAVE TERMINATING CHAR                               CDCM         558     A     
 CDCM               MX7    -6          CHAR MASK                                           CDCM         559     A     
 CDCM               NE     B2,B1,GSE40 IF QUALIFIER, DO NOT CHECK FOR REGISTER             CDCM         560     A     
 CDCM               SA2    ITEMLTH                                                         CDCM         561     A     
 CDCM               SX2    X2-2        (X2) = 0 IF LENGTH = 2, 1 IF LENGTH = 3             CDCM         562     A     
 CDCM               ZR     X2,GSE31    IF LENGTH = 2                                       CDCM         563     A     
 CDCM               SX3    X2-1                                                            CDCM         564     A     
 CDCM               NZ     X3,GSE40    IF LENGTH .NE. 2 OR 3 - NOT REGISTER                CDCM         565     A     
 CDCM      GSE31    BX3    X4                                                              CDCM         566     A     
 CDCM               LX3    6           GET FIRST CHAR                                      CDCM         567     A     
 CDCM               BX1    -X7*X3                                                          CDCM         568     A     
 CDCM               SB6    B0          SET FOR A-REG NAME                                  CDCM         569     A     
 CDCM               R=     X1,X1-1RA                                                       CDCM         570     A     
 CDCM               ZR     X1,GSE32    IF FIRST CHAR = A                                   CDCM         571     A     
 CDCM               SB6    8           SET FOR B-REG NAME                                  CDCM         572     A     
 CDCM               R=     X1,X1+1RA-1RB                                                   CDCM         573     A     
 CDCM               ZR     X1,GSE32    IF FIRST CHAR = B                                   CDCM         574     A     
 CDCM               SB6    16          SET FOR X-REG NAME                                  CDCM         575     A     
 CDCM               R=     X1,X1+1RB-1RX                                                   CDCM         576     A     
 CDCM               NZ     X1,GSE40    FIRST CHAR NOT A, B, OR X - NOT REGISTER            CDCM         577     A     
 CDCM      GSE32    ZR     X2,GSE33    IF LENGTH = 2                                       CDCM         578     A     
 CDCM               LX3    6           CHECK 2ND CHAR FOR .                                CDCM         579     A     
 CDCM               BX1    -X7*X3                                                          CDCM         580     A     
 CDCM               R=     X1,X1-1R.                                                       CDCM         581     A     
 CDCM               NZ     X1,GSE40    IF NOT A.N, B.N, OR X.N FORM                        CDCM         582     A     
 CDCM      GSE33    LX3    6           GET LAST (2ND OR 3RD) CHAR TO CHECK 0-7             CDCM         583     A     
 CDCM               BX1    -X7*X3                                                          CDCM         584     A     
 CDCM               R=     X2,X1-1R0                                                       CDCM         585     A     
 CDCM               MI     X2,GSE40    IF LAST CHAR NOT NUMBERIC - NOT REGISTER            CDCM         586     A     
 CDCM               R=     X3,X2-8                                                         CDCM         587     A     
 CDCM               PL     X3,GSE40    IF LAST CHAR NOT 0-7 - NOT REGISTER                 CDCM         588     A     
 CDCM                                                                                      CDCM         589     A     
 CDCM     *         TYPE 0 RETURN.  SYMBOL NAME IS ALSO A REGISTER NAME.  COMPUTE          CDCM         590     A     
 CDCM     *         INDEX FOR A0-A7 = 0-7, B0-B7 = 8-15, AND X0-X7 = 16-23.                CDCM         591     A     
 CDCM                                                                                      CDCM         592     A     
 CDCM               SX1    B6+X2       (X1) = REGISTER INDEX                               CDCM         593     A     
 CDCM               SX2    B7          (X2) = TERMINATING CHAR                             CDCM         594     A     
 CDCM               SB2    B0                                                              CDCM         595     A     
 CDCM               EQ     GSE         RETURN                                              CDCM         596     A     
 CDCM                                                                                      CDCM         597     A     
 CDCM     *         TYPE 1 RETURN.  ORDINARY SYMBOL NAME.                                  CDCM         598     A     
 CDCM     *         TYPE 2 RETURN.  QUALIFIER SYMBOL NAME.                                 CDCM         599     A     
 CDCM                                                                                      CDCM         600     A     
 CDCM      GSE40    BX1    X4          (X1) = SYMBOL NAME                                  CDCM         601     A     
 CDCM               SX2    B7          (X2) = TERMINATING CHAR                             CDCM         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/28. 19.11.32.      PAGE1171    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               EQ     GSE         RETURN                                              CDCM         603     A     
 CDCM                                                                                      CDCM         604     A     
 CDCM     *         SUBROUTINE TO GET NEXT CHAR AND ADVANCE COLUMN COUNT.                  CDCM         605     A     
 CDCM     *         ONLY USES A1, A2, A6, X1, X2, X6                                       CDCM         606     A     
 CDCM                                                                                      CDCM         607     A     
 CDCM      GSN      EQ     *+1S17      ENTRY / EXIT                                        CDCM         608     A     
 CDCM               SA2    NEXTCOL     NEXT COLUMN NUMBER (1 IS FIRST)                     CDCM         609     A     
 CDCM               SA1    X2+OR.LINE-1  NEXT CHAR                                         CDCM         610     A     
 CDCM               SX6    X2+B1       ADVANCE COLUMN                                      CDCM         611     A     
 CDCM               SA6    A2                                                              CDCM         612     A     
 CDCM               EQ     GSN         RETURN                                              CDCM         613     A     
 CDCM                                                                                      CDCM         614     A     
 CDCM      COMCOL   CON    DEFCOL      STARTING COMMENTS COLUMN                            CDCM         615     A     
 CDCM      ITEMLTH  CON    0           SYMBOL LENGTH IN CHARACTERS                         CDCM         616     A     
 CDCM      NEXTCOL  CON    0           NEXT COLUMN TO FETCH                                CDCM         617     A     
 CDCM      PCS      TITLE  STATEMENT PROCESSING SUBROUTINES.                               CDCM         618     A     
 CDCM     **        PCS - PROCESS CURRENT STATEMENT.                                       CDCM         619     A     
 CDCM     *                                                                                CDCM         620     A     
 CDCM     *         THE CURRENT SOURCE LINE IS EXAMINED, AND INFORMATION IS                CDCM         621     A     
 CDCM     *         STORED ACCORDING TO THE TYPE OF LINE.                                  CDCM         622     A     
 CDCM     *                                                                                CDCM         623     A     
 CDCM     *         1) IF THE STATEMENT HAS A LOCATION SYMBOL, AND IF EITHER THE           CDCM         624     A     
 CDCM     *            OP-CODE FOR THIS STATEMENT OR FOR THE PREVIOUS STATEMENT            CDCM         625     A     
 CDCM     *            IS THAT OF AN EXECUTABLE INSTRUCTION, THEN AN *O.LOC* TABLE         CDCM         626     A     
 CDCM     *            ENTRY IS CREATED CONTAINING THE LOCATION SYMBOL.                    CDCM         627     A     
 CDCM     *                                                                                CDCM         628     A     
 CDCM     *         2) TABLE *OR.REG* IS MAINTAINED WITH THE MOST-RECENT VALUES            CDCM         629     A     
 CDCM     *            OF SYMBOLS FOR THE RESULT REGISTER (IF THERE IS ONE) OF             CDCM         630     A     
 CDCM     *            THIS STATEMENT.  THE NUMBER OF SYMBOLS THAT MAY BE SAVED            CDCM         631     A     
 CDCM     *            PER REGISTER IS CONTROLLED BY THE SYMBOL *PCSNVAL*.                 CDCM         632     A     
 CDCM     *                                                                                CDCM         633     A     
 CDCM     *         3) IF THE STATEMENT IS THAT OF A STORE INSTRUCTION (SA6, SA7,          CDCM         634     A     
 CDCM     *            OR EQUIVALENT), THEN AN INTERMEDIATE FILE ENTRY IS CREATED          CDCM         635     A     
 CDCM     *            CONTAINING THE CURRENT SYMBOL NAMES HELD IN THE                     CDCM         636     A     
 CDCM     *            CORRESPONDING *OR.REG* ENTRY FOR A6 OR A7.  THE LINE IMAGE          CDCM         637     A     
 CDCM     *            IS STORED WITH THE ENTRY.                                           CDCM         638     A     
 CDCM     *                                                                                CDCM         639     A     
 CDCM     *                                                                                CDCM         640     A     
 CDCM     *         ENTRY  CURRENT STATEMENT IS IN THE STRING BUFFER.                      CDCM         641     A     
 CDCM     *                                                                                CDCM         642     A     
 CDCM     *         EXIT   ALL TABLES UPDATED ACCORDINGLY.                                 CDCM         643     A     
 CDCM     *                                                                                CDCM         644     A     
 CDCM     *         USES   ALL REGISTERS.                                                  CDCM         645     A     
 CDCM                                                                                      CDCM         646     A     
 CDCM                                                                                      CDCM         647     A     
 CDCM      PCS      EQ     *+1S17      ENTRY / EXIT                                        CDCM         648     A     
 CDCM                                                                                      CDCM         649     A     
 CDCM     *         MOVE LINE IMAGE INTO ONE CHAR PER WORD STRING BUFFER.                  CDCM         650     A     
 CDCM                                                                                      CDCM         651     A     
 CDCM               SA2    OR.LINE-1   INITIALIZE STORE POINTER                            CDCM         652     A     
 CDCM               SB2    B0          CHAR/WORD COUNT                                     CDCM         653     A     
 CDCM               BX6    X2                                                              CDCM         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/28. 19.11.32.      PAGE1172    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SB3    10          CHAR/WORD MAX                                       CDCM         655     A     
 CDCM               SA6    A2                                                              CDCM         656     A     
 CDCM               MX0    -6                                                              CDCM         657     A     
 CDCM               SA1    ILINE       GET FIRST WORD                                      CDCM         658     A     
 CDCM               SX3    CONCAT                                                          CDCM         659     A     
 CDCM               SB7    A1+LINELTH                                                      CDCM         660     A     
 CDCM      PCS1     LX1    6           EXTRACT AND STORE NEXT CHARACTER                    CDCM         661     A     
 CDCM               SB2    B2+B1                                                           CDCM         662     A     
 CDCM               BX6    -X0*X1                                                          CDCM         663     A     
 CDCM               IX7    X6-X3                                                           CDCM         664     A     
 CDCM               ZR     X7,PCS2     IF CONCATENATION CHAR                               CDCM         665     A     
 CDCM               SA6    A6+B1                                                           CDCM         666     A     
 CDCM      PCS2     LT     B2,B3,PCS1  LOOP FOR CURRENT WORD                               CDCM         667     A     
 CDCM               SA1    A1+B1       GET NEXT WORD                                       CDCM         668     A     
 CDCM               SB2    B0          RESET CHAR/WORD COUNT                               CDCM         669     A     
 CDCM               SB6    A1          CHECK IF DONE                                       CDCM         670     A     
 CDCM               LT     B6,B7,PCS1  IF NOT DONE                                         CDCM         671     A     
 CDCM               SX6    B1          SET TO FIRST COLUMN IN STRING BUFFER                CDCM         672     A     
 CDCM               SA6    NEXTCOL                                                         CDCM         673     A     
 CDCM                                                                                      CDCM         674     A     
 CDCM     *         INITIALIZE TEMPORARY AREA FOR NEW STATEMENT.                           CDCM         675     A     
 CDCM                                                                                      CDCM         676     A     
 CDCM               MX7    0           CLEAR OUT TEMPORARY AREA                            CDCM         677     A     
 CDCM               SB2    PCSA                                                            CDCM         678     A     
 CDCM               SB3    PCSZ                                                            CDCM         679     A     
 CDCM      PCS3     SA7    B2                                                              CDCM         680     A     
 CDCM               SB2    B2+B1                                                           CDCM         681     A     
 CDCM               LT     B2,B3,PCS3                                                      CDCM         682     A     
 CDCM                                                                                      CDCM         683     A     
 CDCM     *         PROCESS LOCATION FIELD.                                                CDCM         684     A     
 CDCM                                                                                      CDCM         685     A     
 CDCM               RJ     FBF         FIND BEGINNING OF FIELD                             CDCM         686     A     
 CDCM               SX1    X6-3                                                            CDCM         687     A     
 CDCM               BX0    X6          (X0) = COLUMN NUMBER FROM *FBF*                     CDCM         688     A     
 CDCM               PL     X1,PCS11    IF COLUMN .GT. 3, NO LOCATION FIELD                 CDCM         689     A     
 CDCM               RJ     GSE         GET STATEMENT ELEMENT                               CDCM         690     A     
 CDCM               SA4    PCSID                                                           CDCM         691     A     
 CDCM               NZ     X4,PCS11    IF EXPECTING *IDENT* STATEMENT                      CDCM         692     A     
 CDCM               NE     B2,B1,PCS10 IF LOCATION FIELD NOT A SYMBOL                      CDCM         693     A     
 CDCM               BX6    X1          SAVE LOCATION SYMBOL                                CDCM         694     A     
 CDCM               SA6    PCSLOC                                                          CDCM         695     A     
 CDCM      PCS10    RJ     FBF         FIND BEGINNING OF FIELD                             CDCM         696     A     
 CDCM               SA2    COMCOL                                                          CDCM         697     A     
 CDCM               IX3    X6-X2                                                           CDCM         698     A     
 CDCM               MI     X3,PCS20    IF OP-CODE PRESENT                                  CDCM         699     A     
 CDCM                                                                                      CDCM         700     A     
 CDCM     *         LOCATION FIELD, BUT NO OP-CODE.  SET OP-CODE TO *CON*.                 CDCM         701     A     
 CDCM                                                                                      CDCM         702     A     
 CDCM               SA1    =0LCON      SET OPCODE = *CON*                                  CDCM         703     A     
 CDCM               BX7    X1                                                              CDCM         704     A     
 CDCM               EQ     PCS24       ENTER OP-CODE PROCESSING                            CDCM         705     A     
 CDCM                                                                                      CDCM         706     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1173    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         NO LOCATION FIELD.  CHECK IF OPCODE PRESENT.                           CDCM         707     A     
 CDCM                                                                                      CDCM         708     A     
 CDCM      PCS11    SA2    COMCOL                                                          CDCM         709     A     
 CDCM               IX3    X0-X2                                                           CDCM         710     A     
 CDCM               PL     X3,PCS90    IF NO OPCODE, LINE IS COMMENT OR ERRONEOUS          CDCM         711     A     
 CDCM                                                                                      CDCM         712     A     
 CDCM     *         PROCESS OPCODE FIELD.                                                  CDCM         713     A     
 CDCM                                                                                      CDCM         714     A     
 CDCM      PCS20    RJ     GSE         GET STATEMENT ELEMENT                               CDCM         715     A     
 CDCM               NE     B2,B1,PCS90 IF NOT SYMBOL                                       CDCM         716     A     
 CDCM               SA3    PCSID                                                           CDCM         717     A     
 CDCM               ZR     X3,PCS21    IF NOT SKIPPING TO *IDENT* STATEMENT                CDCM         718     A     
 CDCM               SA4    =0LIDENT                                                        CDCM         719     A     
 CDCM               BX4    X1-X4                                                           CDCM         720     A     
 CDCM               MX6    0                                                               CDCM         721     A     
 CDCM               NZ     X4,PCS90    IF NOT *IDENT*, SKIP STATEMENT                      CDCM         722     A     
 CDCM               SA6    A3          CLEAR *IDENT* FLAG                                  CDCM         723     A     
 CDCM      PCS21    BX7    X1          (X7) = OPCODE                                       CDCM         724     A     
 CDCM               SA7    PCSOC       STORE ORIGINAL OPCODE                               CDCM         725     A     
 CDCM                                                                                      CDCM         726     A     
 CDCM     *         CHECK IF OPCODE HAS A RESULT REGISTER (E.G. BX6, SB.7).                CDCM         727     A     
 CDCM                                                                                      CDCM         728     A     
 CDCM               MX3    4*6                                                             CDCM         729     A     
 CDCM               BX6    -X3*X1                                                          CDCM         730     A     
 CDCM               MX0    -6          (X0) = CHAR MASK                                    CDCM         731     A     
 CDCM               NZ     X6,PCS24    IF LONGER THAN 4 CHARS, NO REGISTER                 CDCM         732     A     
 CDCM               LX1    4*6         POSITION TO CHAR 4                                  CDCM         733     A     
 CDCM               BX3    -X0*X1                                                          CDCM         734     A     
 CDCM               LX1    -1*6        POSITION TO CHAR 3                                  CDCM         735     A     
 CDCM               ZR     X3,PCS22    IF OPCODE NO MORE THAN 3 CHARS LONG                 CDCM         736     A     
 CDCM               BX2    -X0*X1                                                          CDCM         737     A     
 CDCM               R=     X3,X2-1R.                                                       CDCM         738     A     
 CDCM               NZ     X3,PCS24    IF 3RD CHAR NOT ., NO REGISTER                      CDCM         739     A     
 CDCM               LX1    1*6         POSITION TO CHAR 4                                  CDCM         740     A     
 CDCM      PCS22    BX3    -X0*X1                                                          CDCM         741     A     
 CDCM               R=     X6,X3-1R0   (X6) = REGISTER NUMBER (IF A REGISTER)              CDCM         742     A     
 CDCM               MI     X6,PCS24    IF 3RD OR 4TH CHAR NOT NUMERIC                      CDCM         743     A     
 CDCM               R=     X3,X6-8                                                         CDCM         744     A     
 CDCM               PL     X3,PCS24    IF 3RD OR 4TH CHAR NOT 0-7, NOT REGISTER            CDCM         745     A     
 CDCM               BX1    X7          ORIGINAL OPCODE                                     CDCM         746     A     
 CDCM               LX1    2*6         POSITION TO CHAR 2                                  CDCM         747     A     
 CDCM               BX1    -X0*X1                                                          CDCM         748     A     
 CDCM               R=     X2,X1-1RA                                                       CDCM         749     A     
 CDCM               ZR     X2,PCS23    IF A-REGISTER                                       CDCM         750     A     
 CDCM               R=     X6,X6+8     SET FOR REGISTER INDEX OF B-REG                     CDCM         751     A     
 CDCM               R=     X2,X2+1RA-1RB                                                   CDCM         752     A     
 CDCM               ZR     X2,PCS23    IF B-REGISTER                                       CDCM         753     A     
 CDCM               R=     X6,X6+8     SET FOR REGISTER INDEX OF X-REG                     CDCM         754     A     
 CDCM               R=     X2,X2+1RB-1RX                                                   CDCM         755     A     
 CDCM               NZ     X2,PCS24    IF NOT REGISTER                                     CDCM         756     A     
 CDCM      PCS23    SA6    PCSRR       SAVE REGISTER INDEX (0-23)                          CDCM         757     A     
 CDCM               MX4    2*6         REMOVE CHARS 3-4 OF OPCODE INVOLVING                CDCM         758     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1174    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               BX7    X7*X4        RESULT REGISTER AND REPLACE WITH                   CDCM         759     A     
 CDCM               SX3    1R0           REGISTER NUMBER OF 0                              CDCM         760     A     
 CDCM               LX3    7*6                                                             CDCM         761     A     
 CDCM               BX7    X7+X3                                                           CDCM         762     A     
 CDCM                                                                                      CDCM         763     A     
 CDCM     *         FIND OPCODE IN INSTRUCTION TABLE AND SET CHARACTERISTICS.              CDCM         764     A     
 CDCM                                                                                      CDCM         765     A     
 CDCM      PCS24    SA2    PCSTT       TARGET LOCATION IN INSTRUCTION TABLE                CDCM         766     A     
 CDCM               SA7    X2          STORE OPCODE FOR TABLE SEARCH                       CDCM         767     A     
 CDCM               R=     B2,2        (B2) = 2                                            CDCM         768     A     
 CDCM               SB4    X2          (B4) = ADDR OF TARGET VALUE                         CDCM         769     A     
 CDCM               SA4    PCSITAB-2   FIRST-1 TABLE ENTRY                                 CDCM         770     A     
 CDCM      PCS25    SA4    A4+B2       NEXT ENTRY                                          CDCM         771     A     
 CDCM               BX3    X4-X7                                                           CDCM         772     A     
 CDCM               NZ     X3,PCS25    LOOP UNTIL MATCH                                    CDCM         773     A     
 CDCM               SB3    A4                                                              CDCM         774     A     
 CDCM               EQ     B3,B4,PCS90 IF NOT IN TABLE                                     CDCM         775     A     
 CDCM               SA1    A4+B1       2ND WORD OF ENTRY                                   CDCM         776     A     
 CDCM                                                                                      CDCM         777     A     
 CDCM     *         ENTER PROCESSOR IF AN ADDRESS IS PRESENT.                              CDCM         778     A     
 CDCM                                                                                      CDCM         779     A     
 CDCM               SB7    X1                                                              CDCM         780     A     
 CDCM               ZR     B7,PCS26    IF NO PROCESSOR                                     CDCM         781     A     
 CDCM               JP     B7          ENTER PROCESSOR                                     CDCM         782     A     
 CDCM                                                                                      CDCM         783     A     
 CDCM      PCS26    PL     X1,PCS90    IF OPCODE DOES NOT RESULT IN ANY CODE               CDCM         784     A     
 CDCM                                   (EXECUTABLE OR NON-EXECUTABLE)                     CDCM         785     A     
 CDCM               SA2    PCSCLC      SET PREVIOUS EXEC CODE FLAG = CURRENT / 2           CDCM         786     A     
 CDCM               AX6    X2,B1        (= 0 IF LAST INST. WAS UNCONDITIONAL JUMP)         CDCM         787     A     
 CDCM               LX1    1                                                               CDCM         788     A     
 CDCM               SA6    PCSPLC                                                          CDCM         789     A     
 CDCM               MX6    0           CURRENT EXEC CODE FLAG = 0                          CDCM         790     A     
 CDCM               SA6    A2                                                              CDCM         791     A     
 CDCM               SX6    B1                                                              CDCM         792     A     
 CDCM               R=     X7,2                                                            CDCM         793     A     
 CDCM               PL     X1,PCS80    IF OPCODE IS NOT AN EXECUTABLE INSTRUCTION          CDCM         794     A     
 CDCM               SA7    A2          CURRENT EXEC CODE FLAG = 2                          CDCM         795     A     
 CDCM               LX1    1                                                               CDCM         796     A     
 CDCM               PL     X1,PCS80    IF NO RESULT REGISTER FOR THIS OPCODE               CDCM         797     A     
 CDCM               SA6    PCSRCG      SET RESULT REGISTER FLAG                            CDCM         798     A     
 CDCM               LX1    1                                                               CDCM         799     A     
 CDCM               MX7    0                                                               CDCM         800     A     
 CDCM               PL     X1,PCS31    IF INSTRUCTION YIELDS RESULT REGISTER WITH          CDCM         801     A     
 CDCM                                   A MEANINGFUL VALUE                                 CDCM         802     A     
 CDCM               SA2    PCSRR       CLEAR *OR.REG* VALUES FOR RESULT REGISTER           CDCM         803     A     
 CDCM               SB6    B0                                                              CDCM         804     A     
 CDCM               SB7    PCSNVAL                                                         CDCM         805     A     
 CDCM      PCS30    SA7    X2+OR.REG   CLEAR *OR.REG* ENTRY                                CDCM         806     A     
 CDCM               SX2    X2+NREG                                                         CDCM         807     A     
 CDCM               SB6    B6+B1                                                           CDCM         808     A     
 CDCM               LT     B6,B7,PCS30  LOOP                                               CDCM         809     A     
 CDCM               EQ     PCS80       GO COMPLETE STATEMENT PROCESSING                    CDCM         810     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1175    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM                                                                                      CDCM         811     A     
 CDCM      PCS31    SA1    PCSOC                                                           CDCM         812     A     
 CDCM               SA2    =0LSA7                                                          CDCM         813     A     
 CDCM               IX3    X2-X1                                                           CDCM         814     A     
 CDCM               ZR     X3,PCS32    IF *SA7*                                            CDCM         815     A     
 CDCM               SX4    B1                                                              CDCM         816     A     
 CDCM               LX4    42          00000100000000000000B                               CDCM         817     A     
 CDCM               IX3    X3-X4                                                           CDCM         818     A     
 CDCM               ZR     X3,PCS32    IF *SA6*                                            CDCM         819     A     
 CDCM               SA2    =0LSA.7                                                         CDCM         820     A     
 CDCM               IX3    X2-X1                                                           CDCM         821     A     
 CDCM               ZR     X3,PCS32    IF *SA.7*                                           CDCM         822     A     
 CDCM               LX4    -6          00000001000000000000B                               CDCM         823     A     
 CDCM               IX3    X3-X4                                                           CDCM         824     A     
 CDCM               NZ     X3,PCS33    IF NOT *SA.6*                                       CDCM         825     A     
 CDCM      PCS32    SA6    PCSSTF      SET STORE FLAG                                      CDCM         826     A     
 CDCM               EQ     PCS50       GO PROCESS ADDRESS FIELD                            CDCM         827     A     
 CDCM                                                                                      CDCM         828     A     
 CDCM      PCS33    SA2    =0LR=                                                           CDCM         829     A     
 CDCM               IX3    X2-X1                                                           CDCM         830     A     
 CDCM               SX6    -B1                                                             CDCM         831     A     
 CDCM               NZ     X3,PCS50    IF OPCODE NOT *R=*                                  CDCM         832     A     
 CDCM               SA6    PCSSTF      SET STORE FLAG SO FIRST ADDRESS FIELD WILL          CDCM         833     A     
 CDCM                                   BE CHECKED FOR A RESULT REGISTER                   CDCM         834     A     
 CDCM                                                                                      CDCM         835     A     
 CDCM     *         PROCESS ADDRESS FIELD.                                                 CDCM         836     A     
 CDCM                                                                                      CDCM         837     A     
 CDCM      PCS50    RJ     FBF         FIND BEGINNING OF FIELD                             CDCM         838     A     
 CDCM               SA2    COMCOL                                                          CDCM         839     A     
 CDCM               IX2    X6-X2                                                           CDCM         840     A     
 CDCM               PL     X2,PCS90    IF NO ADDRESS FIELD                                 CDCM         841     A     
 CDCM                                                                                      CDCM         842     A     
 CDCM     *         IF OPCODE WAS *R=*, ADDRESS FIELD SHOULD BEGIN WITH REGISTER.          CDCM         843     A     
 CDCM                                                                                      CDCM         844     A     
 CDCM               SA1    PCSSTF                                                          CDCM         845     A     
 CDCM               PL     X1,PCS52    IF NOT *R=*                                         CDCM         846     A     
 CDCM               RJ     GSE         GET STATEMENT ELEMENT                               CDCM         847     A     
 CDCM               NZ     B2,PCS90    IF NOT REGISTER                                     CDCM         848     A     
 CDCM               BX7    X1          REGISTER INDEX                                      CDCM         849     A     
 CDCM               SX6    B1          SET FOR STORE                                       CDCM         850     A     
 CDCM               R=     X3,X1-7     (X1) = 6 OR 7 FOR A6, A7, RESPECTIVELY              CDCM         851     A     
 CDCM               ZR     X3,PCS51    IF A6                                               CDCM         852     A     
 CDCM               R=     X3,X3+7-6                                                       CDCM         853     A     
 CDCM               ZR     X3,PCS51    IF A7                                               CDCM         854     A     
 CDCM               SX6    B0          SET FOR NOT A STORE                                 CDCM         855     A     
 CDCM      PCS51    SA6    PCSSTF                                                          CDCM         856     A     
 CDCM               SA7    PCSRR       SET RESULT REGISTER INDEX                           CDCM         857     A     
 CDCM      PCS52    RJ     GSE         GET STATEMENT ELEMENT                               CDCM         858     A     
 CDCM               SB3    B2-4                                                            CDCM         859     A     
 CDCM               NZ     B3,PCS55    IF CANNOT BE *+ OR *-                               CDCM         860     A     
 CDCM               R=     X3,X1-1R*                                                       CDCM         861     A     
 CDCM               NZ     X3,PCS55    IF 1ST CHAR NOT *                                   CDCM         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/28. 19.11.32.      PAGE1176    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               R=     X3,X2-1R-                                                       CDCM         863     A     
 CDCM               ZR     X3,PCS53    IF *-                                               CDCM         864     A     
 CDCM               R=     X3,X2-1R+                                                       CDCM         865     A     
 CDCM               NZ     X3,PCS55    IF NEITHER *+ NOR *-                                CDCM         866     A     
 CDCM      PCS53    SA2    PCSSTF                                                          CDCM         867     A     
 CDCM               ZR     X2,PCS80    IF NOT A STORE INSTRUCTION                          CDCM         868     A     
 CDCM               MX6    1           FORCE INTERMEDIATE FILE ENTRY TO BE LISTED          CDCM         869     A     
 CDCM               SA6    PCSE                                                            CDCM         870     A     
 CDCM               EQ     PCS80       GO TO FINAL PROCESSING                              CDCM         871     A     
 CDCM                                                                                      CDCM         872     A     
 CDCM     *         PROCESS REMAINING ADDRESS FIELDS.  FIRST CHECK FOR REGISTER.           CDCM         873     A     
 CDCM                                                                                      CDCM         874     A     
 CDCM      PCS54    RJ     GSE         GET STATEMENT ELEMENT                               CDCM         875     A     
 CDCM      PCS55    NZ     B2,PCS57    IF NOT A REGISTER                                   CDCM         876     A     
 CDCM               SB3    X1          INDEX INTO *OR.REG* FOR PREVIOUS SYMBOLS            CDCM         877     A     
 CDCM               SA2    PCSVALC     (X2)= NUMBER OF SYMBOLS STORED IN *PCSVALS*         CDCM         878     A     
 CDCM      PCS56    SA3    B3+OR.REG   NEXT SYMBOL, IF ANY                                 CDCM         879     A     
 CDCM               ZR     X3,PCS54    IF NO MORE SYMBOLS FOR THIS REGISTER                CDCM         880     A     
 CDCM               SB7    X2-PCSNVAL                                                      CDCM         881     A     
 CDCM               PL     B7,PCS80    IF MAXIMUM NUMBER OF SYMBOLS ALREADY STORED         CDCM         882     A     
 CDCM               BX6    X3          STORE CURRENT SYMBOL                                CDCM         883     A     
 CDCM               SA6    X2+PCSVALS                                                      CDCM         884     A     
 CDCM               SX2    X2+B1       ADVANCE COUNT OF SYMBOLS STORED                     CDCM         885     A     
 CDCM               BX7    X2                                                              CDCM         886     A     
 CDCM               SA7    A2                                                              CDCM         887     A     
 CDCM               SB3    B3+NREG     ADVANCE FETCH INDEX                                 CDCM         888     A     
 CDCM               EQ     PCS56       LOOP FOR NEXT *OR.REG* SYMBOL                       CDCM         889     A     
 CDCM                                                                                      CDCM         890     A     
 CDCM     *          CHECK FOR AN UN-QUALIFIED SYMBOL.                                     CDCM         891     A     
 CDCM                                                                                      CDCM         892     A     
 CDCM      PCS57    SB3    B0          (B3) = 0 FOR IMPLICIT QUALIFICATION                 CDCM         893     A     
 CDCM               MX5    0           (X5) = 0 FOR NO QUALIFIER INDEX                     CDCM         894     A     
 CDCM               EQ     B2,B1,PCS63 IF A SYMBOL WITHOUT QUALIFIER                       CDCM         895     A     
 CDCM                                                                                      CDCM         896     A     
 CDCM     *         CHECK FOR EXTERNAL (=X OR =Y).                                         CDCM         897     A     
 CDCM                                                                                      CDCM         898     A     
 CDCM               SX7    B2-3                                                            CDCM         899     A     
 CDCM               NZ     X7,PCS58    IF NOT EXTERNAL                                     CDCM         900     A     
 CDCM               SA2    O.EXT                                                           CDCM         901     A     
 CDCM               RJ     ANT         ADD NAME TO TABLE                                   CDCM         902     A     
 CDCM               EQ     PCS63       GO PROCESS AS SYMBOL                                CDCM         903     A     
 CDCM                                                                                      CDCM         904     A     
 CDCM     *         CHECK FOR // PRECEDING A SYMBOL.                                       CDCM         905     A     
 CDCM                                                                                      CDCM         906     A     
 CDCM      PCS58    SX7    B2-4                                                            CDCM         907     A     
 CDCM               SB3    B1          (B3) = 1 FOR EXPLICIT QUALIFICATION                 CDCM         908     A     
 CDCM               NZ     X7,PCS59    IF CANNOT BE //                                     CDCM         909     A     
 CDCM               SX3    X1-1R/                                                          CDCM         910     A     
 CDCM               NZ     X3,PCS80    IF 1ST CHAR NOT /                                   CDCM         911     A     
 CDCM               SX4    X2-1R/                                                          CDCM         912     A     
 CDCM               NZ     X4,PCS80    IF 2ND CHAR NOT /                                   CDCM         913     A     
 CDCM               EQ     PCS62       GO GET SYMBOL                                       CDCM         914     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1177    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM                                                                                      CDCM         915     A     
 CDCM     *         CHECK FOR /(QUAL-NAME)/ PRECEDING A SYMBOL.                            CDCM         916     A     
 CDCM                                                                                      CDCM         917     A     
 CDCM      PCS59    SB2    B2-2                                                            CDCM         918     A     
 CDCM               NZ     B2,PCS80    IF NOT A QUALIFIER NAME                             CDCM         919     A     
 CDCM               SX2    X2-1R/                                                          CDCM         920     A     
 CDCM               NZ     X2,PCS80    IF NAME NOT FOLLOWED BY /                           CDCM         921     A     
 CDCM                                                                                      CDCM         922     A     
 CDCM     *         QUALIFIER NAME FOUND.  IF NOT IN *O.QUL*, ADD IT.                      CDCM         923     A     
 CDCM                                                                                      CDCM         924     A     
 CDCM               SA2    O.QUL                                                           CDCM         925     A     
 CDCM               SA3    A2+B1       *O.QUL* LENGTH                                      CDCM         926     A     
 CDCM               SB2    X2          (B2) = FWA *O.QUL*                                  CDCM         927     A     
 CDCM               ZR     X3,PCS61    IF *O.QUL* EMPTY                                    CDCM         928     A     
 CDCM               SA5    B2+X3       SAVE (LWA+1)                                        CDCM         929     A     
 CDCM               BX7    X5                                                              CDCM         930     A     
 CDCM               SB7    A5          (B7) = LWA+1                                        CDCM         931     A     
 CDCM               BX6    X1                                                              CDCM         932     A     
 CDCM               SA6    A5          SET TARGET VALUE AT LWA+1                           CDCM         933     A     
 CDCM               SA4    B2-B1       FIRST-1 ENTRY                                       CDCM         934     A     
 CDCM      PCS60    SA4    A4+B1       SEARCH LOOP                                         CDCM         935     A     
 CDCM               BX4    X6-X4                                                           CDCM         936     A     
 CDCM               NZ     X4,PCS60    LOOP UNTIL HIT                                      CDCM         937     A     
 CDCM               SB6    A4                                                              CDCM         938     A     
 CDCM               SA7    A5          RESTORE (LWA+1)                                     CDCM         939     A     
 CDCM               EQ     B6,B7,PCS61  IF NAME NOT IN TABLE                               CDCM         940     A     
 CDCM               SX5    B6-B2       (X5) = INDEX OF QUALIFIER NAME                      CDCM         941     A     
 CDCM               SX5    X5+B1                                                           CDCM         942     A     
 CDCM               EQ     PCS62                                                           CDCM         943     A     
 CDCM                                                                                      CDCM         944     A     
 CDCM      PCS61    RJ     ADW         ADD NEW NAME TO *O.QUL*                             CDCM         945     A     
 CDCM                                   (X1) = NEW NAME, (A2) = (X2) = O.QUL               CDCM         946     A     
 CDCM               BX5    X3          (X5) = NEW TABLE LENGTH = QUAL-INDEX                CDCM         947     A     
 CDCM                                                                                      CDCM         948     A     
 CDCM     *         NEXT ELEMENT AFTER QUALIFIER MUST BE SYMBOL.                           CDCM         949     A     
 CDCM                                                                                      CDCM         950     A     
 CDCM      PCS62    RJ     GSE         GET STATEMENT ELEMENT                               CDCM         951     A     
 CDCM               NE     B2,B1,PCS80 IF NOT A SYMBOL                                     CDCM         952     A     
 CDCM      PCS63    SA2    PCSVALC                                                         CDCM         953     A     
 CDCM               SB7    X2-PCSNVAL                                                      CDCM         954     A     
 CDCM               PL     B7,PCS80    IF MAXIMUM NUMBER OF SYMBOLS ALREADY STORED         CDCM         955     A     
 CDCM               BX6    X5+X1       FORM NEW ENTRY AND STORE IN *PCSVALS*               CDCM         956     A     
 CDCM               SX4    B3          G = 1 IF SYMBOL QUALIFIED                           CDCM         957     A     
 CDCM               LX4    9                                                               CDCM         958     A     
 CDCM               BX6    X4+X6                                                           CDCM         959     A     
 CDCM               LX6    -12         2/0,1/G,9/QUAL-INDEX,48/NAME                        CDCM         960     A     
 CDCM               SA6    X2+PCSVALS                                                      CDCM         961     A     
 CDCM               SX7    X2+B1       ADVANCE COUNT OF SYMBOLS STORED                     CDCM         962     A     
 CDCM               SA7    A2                                                              CDCM         963     A     
 CDCM               EQ     PCS54       LOOP FOR NEXT ADDRESS FIELD                         CDCM         964     A     
 CDCM                                                                                      CDCM         965     A     
 CDCM     *         ADD LOCATION SYMBOL(S) TO *O.LOC* IF APPROPRIATE.                      CDCM         966     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1178    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM                                                                                      CDCM         967     A     
 CDCM      PCS80    SA2    PCSCLC      NZ IF CURRENT INSTRUCTION IS EXECUTABLE             CDCM         968     A     
 CDCM               SA3    PCSPLC      NZ IF PREVIOUS INSTRUCTION WAS EXECUTABLE,          CDCM         969     A     
 CDCM                                   AND NOT AN UNCONDITIONAL, UN-INDEXED JUMP          CDCM         970     A     
 CDCM               MX6    0                                                               CDCM         971     A     
 CDCM               SA1    PCSPVL      SYMBOL FROM A PREVIOUS BSS 0, IF ANY                CDCM         972     A     
 CDCM               BX2    X2+X3                                                           CDCM         973     A     
 CDCM               SA6    A1          CLEAR PREVIOUS SYMBOL                               CDCM         974     A     
 CDCM               ZR     X2,PCS82    IF EXECUTABLE CRITERIA NOT MET                      CDCM         975     A     
 CDCM               SA5    PCSQI       CURRENT QUAL-INDEX                                  CDCM         976     A     
 CDCM               LX5    48                                                              CDCM         977     A     
 CDCM               ZR     X1,PCS81    IF NO PREVIOUS LOCATION SYMBOL                      CDCM         978     A     
 CDCM               LX1    -12         FORM *O.LOC* ENTRY                                  CDCM         979     A     
 CDCM               BX1    X1+X5       1/E,2/0,9/QUAL-INDEX,48/NAME                        CDCM         980     A     
 CDCM               SA2    O.LOC                                                           CDCM         981     A     
 CDCM               RJ     ADW         ADD WORD TO TABLE                                   CDCM         982     A     
 CDCM      PCS81    SA1    PCSLOC      SYMBOL FROM CURRENT INSTRUCTION, IF ANY             CDCM         983     A     
 CDCM               ZR     X1,PCS82    IF NONE                                             CDCM         984     A     
 CDCM               LX1    -12         FORM *O.LOC* ENTRY                                  CDCM         985     A     
 CDCM               BX1    X1+X5       1/E,2/0,9/QUAL-INDEX,48/NAME                        CDCM         986     A     
 CDCM               SA2    O.LOC                                                           CDCM         987     A     
 CDCM               RJ     ADW         ADD WORD TO TABLE                                   CDCM         988     A     
 CDCM                                                                                      CDCM         989     A     
 CDCM     *         IF THE CURRENT STATEMENT HAS A RESULT REGISTER, MOVE ENTRIES           CDCM         990     A     
 CDCM     *         FROM TABLE *PCSVALS* TO THE *OR.REG* ENTRIES FOR THE RESULT            CDCM         991     A     
 CDCM     *         REGISTER.  IF THE RESULT REGISTER IS A1-5, ALSO CLEAR THE              CDCM         992     A     
 CDCM     *         *OR.REG* ENTRIES FOR THE CORRESPONDING X-REGISTER.                     CDCM         993     A     
 CDCM                                                                                      CDCM         994     A     
 CDCM      PCS82    SA1    PCSRCG                                                          CDCM         995     A     
 CDCM               ZR     X1,PCS85    IF NO RESULT REGISTER                               CDCM         996     A     
 CDCM               SA2    PCSRR       RESULT REGISTER INDEX                               CDCM         997     A     
 CDCM               SX3    X2-8                                                            CDCM         998     A     
 CDCM               ZR     X3,PCS85    IF RESULT REGISTER = B0                             CDCM         999     A     
 CDCM               SB5    B0          *PCSVALS* FETCH INDEX                               CDCM        1000     A     
 CDCM               SB7    B0          SET FOR NOT CLEARING X-REGISTER                     CDCM        1001     A     
 CDCM               R=     B6,PCSNVAL  NUMBER OF ENTRIES TO MOVE                           CDCM        1002     A     
 CDCM               ZR     X2,PCS83    IF RESULT REGISTER = A0                             CDCM        1003     A     
 CDCM               SX4    X2-6                                                            CDCM        1004     A     
 CDCM               MX7    0                                                               CDCM        1005     A     
 CDCM               PL     X4,PCS83    IF NOT A1 - A5                                      CDCM        1006     A     
 CDCM               SB7    B1          SET TO CLEAR X-REGISTER                             CDCM        1007     A     
 CDCM      PCS83    SA3    B5+PCSVALS  NEXT SYMBOL (OR ZERO)                               CDCM        1008     A     
 CDCM               BX6    X3                                                              CDCM        1009     A     
 CDCM               SB5    B5+B1       ADVANCE FETCH INDEX                                 CDCM        1010     A     
 CDCM               SA6    X2+OR.REG                                                       CDCM        1011     A     
 CDCM               SX2    X2+NREG     ADVANCE STORE INDEX                                 CDCM        1012     A     
 CDCM               ZR     B7,PCS84    IF NOT TO CLEAR X-REGISTER                          CDCM        1013     A     
 CDCM               SA7    A6+16       CLEAR CORRESPONDING X-REGISTER                      CDCM        1014     A     
 CDCM      PCS84    LT     B5,B6,PCS83 LOOP                                                CDCM        1015     A     
 CDCM                                                                                      CDCM        1016     A     
 CDCM     *         CHECK IF AN INTERMEDIATE ENTRY IS TO BE ADDED.  IT IS IF:              CDCM        1017     A     
 CDCM     *                                                                                CDCM        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/28. 19.11.32.      PAGE1179    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *            1)  IT IS ALREADY FLAGGED AS TO BE ADDED.                           CDCM        1019     A     
 CDCM     *            2)  CURRENT INSTRUCTION IS A STORE, AND THERE IS AT LEAST           CDCM        1020     A     
 CDCM     *                ONE NON-ZERO REFERENCE WORD FOR THE RESULT REGISTER IN          CDCM        1021     A     
 CDCM     *                *OR.REG*.                                                       CDCM        1022     A     
 CDCM     *                                                                                CDCM        1023     A     
 CDCM                                                                                      CDCM        1024     A     
 CDCM      PCS85    SA5    PCSE        (X5) = FIRST WORD OF INT. FILE ENTRY                CDCM        1025     A     
 CDCM               MI     X5,PCS87    IF ALREADY DETERMINED TO BE LISTED                  CDCM        1026     A     
 CDCM               SA4    PCSSTF                                                          CDCM        1027     A     
 CDCM               ZR     X4,PCS90    IF NOT A STORE INSTRUCTION                          CDCM        1028     A     
 CDCM               SA2    PCSRR       RESULT REGISTER INDEX                               CDCM        1029     A     
 CDCM               SX2    X2+OR.REG                                                       CDCM        1030     A     
 CDCM               SB5    B0          NUMBER OF ENTRIES FETCHED                           CDCM        1031     A     
 CDCM               SB6    PCSNVAL     NUMBER OF ENTRIES TO FETCH                          CDCM        1032     A     
 CDCM               SB7    A5+B1       STORE POINTER                                       CDCM        1033     A     
 CDCM               MX4    0           ACCUMULATOR OF NON-NULL VALUES                      CDCM        1034     A     
 CDCM      PCS86    SA3    X2          GET NEXT ENTRY                                      CDCM        1035     A     
 CDCM               BX4    X4+X3                                                           CDCM        1036     A     
 CDCM               BX6    X3                                                              CDCM        1037     A     
 CDCM               SA6    B7          STORE WORD FOR INTERMEDIATE FILE                    CDCM        1038     A     
 CDCM               SX2    X2+NREG     ADVANCE FETCH POINTER                               CDCM        1039     A     
 CDCM               SB5    B5+B1                                                           CDCM        1040     A     
 CDCM               SB7    B7+B1       ADVANCE STORE POINTER                               CDCM        1041     A     
 CDCM               LT     B5,B6,PCS86  LOOP                                               CDCM        1042     A     
 CDCM               ZR     X4,PCS90    IF NO SYMBOLS INDICATED IN THIS ENTRY,              CDCM        1043     A     
 CDCM                                   DO NOT PUT IT IN INTERMEDIATE FILE                 CDCM        1044     A     
 CDCM                                                                                      CDCM        1045     A     
 CDCM     *         ADD INTERMEDIATE ENTRY.                                                CDCM        1046     A     
 CDCM                                                                                      CDCM        1047     A     
 CDCM      PCS87    SA2    PCSQI       STORE CURRENT QUALIFIER INDEX IN INT ENTRY          CDCM        1048     A     
 CDCM               BX6    X2+X5                                                           CDCM        1049     A     
 CDCM               SA6    A5                                                              CDCM        1050     A     
 CDCM               SB2    A5          (B2) = FWA OF INTERMEDIATE ENTRY                    CDCM        1051     A     
 CDCM               SB3    INTLTH      (B3) = LENGTH                                       CDCM        1052     A     
 CDCM               RJ     SIF         STORE INTERMEDIATE FILE                             CDCM        1053     A     
 CDCM               SB2    ILINE       PLACE LINE IMAGE IN INTERMEDIATE FILE               CDCM        1054     A     
 CDCM               SB3    LINELTH                                                         CDCM        1055     A     
 CDCM               RJ     SIF         STORE INTERMEDIATE FILE                             CDCM        1056     A     
 CDCM                                                                                      CDCM        1057     A     
 CDCM     *         ALL DONE - RETURN.                                                     CDCM        1058     A     
 CDCM                                                                                      CDCM        1059     A     
 CDCM      PCS90    EQ     PCS         RETURN                                              CDCM        1060     A     
 CDCM      PCSEXIT  EQU    PCS         RETURN LOCATION IF NO MORE TO DO FOR STMT           CDCM        1061     A     
 CDCM      PCSPROC  EQU    PCS80       RETURN LOCATION TO PROCESS LOCATION FIELD           CDCM        1062     A     
 CDCM                                                                                      CDCM        1063     A     
 CDCM      PCSID    CON    1           NZ IF BETWEEN *END* AND *IDENT*                     CDCM        1064     A     
 CDCM      PCSCLC   CON    0           NZ IF CURRENT STATEMENT IS EXECUTABLE CODE          CDCM        1065     A     
 CDCM      PCSPLC   CON    0           NZ IF PREVIOUS STATEMENT IS EXECUTABLE CODE         CDCM        1066     A     
 CDCM      PCSPVL   CON    0           ZERO OR LOCATION SYMBOL OF PREVIOUS STMT            CDCM        1067     A     
 CDCM      PCSQI    CON    0           CURRENT QUALIFIER INDEX                             CDCM        1068     A     
 CDCM      PCSA     BSS    0           START OF *PCS* TEMPORARY AREA TO BE CLEARED         CDCM        1069     A     
 CDCM      PCSE     BSSZ   INTLTH      INTERMEDIATE FILE ENTRY                             CDCM        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/28. 19.11.32.      PAGE1180    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM      PCSVALC  CON    0           NUMBER OF ADRS FOR CURRENT RESULT REGISTER          CDCM        1071     A     
 CDCM      PCSLOC   CON    0           ZERO OR LOCATION SYMBOL OF CURRENT STMT             CDCM        1072     A     
 CDCM      PCSOC    CON    0           CURRENT OPCODE WITH ACTUAL REGISTER NUMBER          CDCM        1073     A     
 CDCM      PCSRR    CON    0           REGISTER INDEX OF CURRENT RESULT REGISTER           CDCM        1074     A     
 CDCM      PCSRCG   CON    0           NZ IF CURRENT STATEMENT CHANGES A REGISTER          CDCM        1075     A     
 CDCM      PCSSTF   CON    0           NZ IF CURRENT STATEMENT IS A STORE                  CDCM        1076     A     
 CDCM      PCSNVAL  EQU    INTLTH-1    NUMBER OF ADDRESSES TO ASSOCIATE WITH EACH          CDCM        1077     A     
 CDCM                                   REGISTER (COULD BE SET AS HIGH AS 5)               CDCM        1078     A     
 CDCM      PCSVALS  BSSZ   PCSNVAL     ADDRESSES FOR CURRENT RESULT REGISTER               CDCM        1079     A     
 CDCM      PCSZ     BSS    0           END OF *PCS* TEMPORARY AREA TO BE CLEARED           CDCM        1080     A     
 CDCM      PCS      SPACE  4,8                                                             CDCM        1081     A     
 CDCM     **        INSTRUCTION TABLE.                                                     CDCM        1082     A     
 CDCM     *                                                                                CDCM        1083     A     
 CDCM     *         VFD    60/0L_NAME                                                      CDCM        1084     A     
 CDCM     *         VFD    1/A,1/B,1/C,1/D,39/0,18/ADR                                     CDCM        1085     A     
 CDCM     *                                                                                CDCM        1086     A     
 CDCM     *         WHERE  NAME = INSTRUCTION NAME                                         CDCM        1087     A     
 CDCM     *                A    = 1 IF ANY CODE RESULTS (EXECUTABLE OR NON-EXEC)           CDCM        1088     A     
 CDCM     *                B    = 1 IF OPCODE IS THAT OF AN EXECUTABLE INSTR               CDCM        1089     A     
 CDCM     *                C    = 1 IF OPCODE HAS A RESULT REGISTER                        CDCM        1090     A     
 CDCM     *                D    = 1 IF OPCODE HAS A RESULT REGISTER, BUT DUE TO            CDCM        1091     A     
 CDCM     *                         THE NATURE OF THE INSTRUCTION, ALL PREVIOUS            CDCM        1092     A     
 CDCM     *                         ASSOCIATED VALUES SHOULD BE DISCARDED.                 CDCM        1093     A     
 CDCM     *                ADR  = NZ IF ADDRESS OF PROCESSOR                               CDCM        1094     A     
 CDCM     *                       0 FOR NO ASSOCIATED ROUTINE                              CDCM        1095     A     
 CDCM                                                                                      CDCM        1096     A     
 CDCM                                                                                      CDCM        1097     A     
 CDCM      OPC      MACRO  NAME,A,B,C,D,ADR                                                CDCM        1098     A     
 CDCM               VFD    60/0L_NAME,1/A,1/B,1/C,1/D,38/0,18/ADR                          CDCM        1099     A     
 CDCM      OPC      ENDM                                                                   CDCM        1100     A     
 CDCM                                                                                      CDCM        1101     A     
 CDCM      PCSITAB  BSS    0           BEGINNING OF INSTRUCTION TABLE                      CDCM        1102     A     
 CDCM                                                                                      CDCM        1103     A     
 CDCM     *         STANDARD COMPASS OPCODES AND PSEUDO INSTRUCTIONS.                      CDCM        1104     A     
 CDCM                                                                                      CDCM        1105     A     
 CDCM               OPC    SA0,1,1,1                                                       CDCM        1106     A     
 CDCM               OPC    SB0,1,1,1                                                       CDCM        1107     A     
 CDCM               OPC    SX0,1,1,1                                                       CDCM        1108     A     
 CDCM               OPC    BX0,1,1,1                                                       CDCM        1109     A     
 CDCM               OPC    LX0,1,1,1                                                       CDCM        1110     A     
 CDCM               OPC    AX0,1,1,1                                                       CDCM        1111     A     
 CDCM               OPC    MX0,1,1,1,1                                                     CDCM        1112     A     
 CDCM               OPC    EQ,1,1,0,0,PC.JUMP                                              CDCM        1113     A     
 CDCM               OPC    NE,1,1                                                          CDCM        1114     A     
 CDCM               OPC    GE,1,1                                                          CDCM        1115     A     
 CDCM               OPC    LE,1,1                                                          CDCM        1116     A     
 CDCM               OPC    GT,1,1                                                          CDCM        1117     A     
 CDCM               OPC    LT,1,1                                                          CDCM        1118     A     
 CDCM               OPC    ZR,1,1,0,0,PC.JUMP                                              CDCM        1119     A     
 CDCM               OPC    NZ,1,1                                                          CDCM        1120     A     
 CDCM               OPC    PL,1,1                                                          CDCM        1121     A     
 CDCM               OPC    MI,1,1                                                          CDCM        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/28. 19.11.32.      PAGE1181    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               OPC    NG,1,1                                                          CDCM        1123     A     
 CDCM               OPC    RJ,1,1                                                          CDCM        1124     A     
 CDCM               OPC    JP,1,1,0,0,PC.JUMP                                              CDCM        1125     A     
 CDCM               OPC    PS,1,1,0,0,UJUMP                                                CDCM        1126     A     
 CDCM               OPC    IR,1,1                                                          CDCM        1127     A     
 CDCM               OPC    OR,1,1                                                          CDCM        1128     A     
 CDCM               OPC    DF,1,1                                                          CDCM        1129     A     
 CDCM               OPC    ID,1,1                                                          CDCM        1130     A     
 CDCM               OPC    NX0,1,1,1,1                                                     CDCM        1131     A     
 CDCM               OPC    ZX0,1,1,1,1                                                     CDCM        1132     A     
 CDCM               OPC    UX0,1,1,1                                                       CDCM        1133     A     
 CDCM               OPC    PX0,1,1,1                                                       CDCM        1134     A     
 CDCM               OPC    FX0,1,1,1,1                                                     CDCM        1135     A     
 CDCM               OPC    DX0,1,1,1,1                                                     CDCM        1136     A     
 CDCM               OPC    IX0,1,1,1                                                       CDCM        1137     A     
 CDCM               OPC    RX0,1,1,1,1                                                     CDCM        1138     A     
 CDCM               OPC    WX0,1,1                                                         CDCM        1139     A     
 CDCM               OPC    NO,1,1                                                          CDCM        1140     A     
 CDCM               OPC    CX0,1,1,1,1                                                     CDCM        1141     A     
 CDCM               OPC    R=,1,1,1                                                        CDCM        1142     A     
 CDCM               OPC    CR,1,1                                                          CDCM        1143     A     
 CDCM               OPC    CW,1,1                                                          CDCM        1144     A     
 CDCM               OPC    ES,1,1                                                          CDCM        1145     A     
 CDCM               OPC    RL,1,1                                                          CDCM        1146     A     
 CDCM               OPC    RE,1,1                                                          CDCM        1147     A     
 CDCM               OPC    WL,1,1                                                          CDCM        1148     A     
 CDCM               OPC    WE,1,1                                                          CDCM        1149     A     
 CDCM               OPC    MJ,1,1                                                          CDCM        1150     A     
 CDCM               OPC    XJ,1,1                                                          CDCM        1151     A     
 CDCM               OPC    RI,1,1                                                          CDCM        1152     A     
 CDCM               OPC    IB0,1,1,1,1                                                     CDCM        1153     A     
 CDCM               OPC    TB0,1,1,1,1                                                     CDCM        1154     A     
 CDCM               OPC    RO,1,1                                                          CDCM        1155     A     
 CDCM               OPC    OB0,1,1,1,1                                                     CDCM        1156     A     
 CDCM               OPC    BSS,1,0,0,0,PC.BSS                                              CDCM        1157     A     
 CDCM               OPC    BSSZ,1,0,0,0,PC.BSS                                             CDCM        1158     A     
 CDCM               OPC    COL                                                             CDCM        1159     A     
 CDCM               OPC    CON,1                                                           CDCM        1160     A     
 CDCM               OPC    DATA,1                                                          CDCM        1161     A     
 CDCM               OPC    END,0,0,0,0,PC.END                                              CDCM        1162     A     
 CDCM               OPC    ENTRY,0,0,0,0,PC.ENT                                            CDCM        1163     A     
 CDCM               OPC    ENTRYC,0,0,0,0,PC.ENT                                           CDCM        1164     A     
 CDCM               OPC    EQU,0,0,0,0,PC.EQU                                              CDCM        1165     A     
 CDCM               OPC    EXT,0,0,0,0,PC.EXT                                              CDCM        1166     A     
 CDCM               OPC    IDENT                                                           CDCM        1167     A     
 CDCM               OPC    QUAL,0,0,0,0,PC.QUAL                                            CDCM        1168     A     
 CDCM               OPC    VFD,1                                                           CDCM        1169     A     
 CDCM      PCSTA    BSS    0           LWA+1 OF *COMPASS* INSTRUCTIONS AND PSEUDOS         CDCM        1170     A     
 CDCM                                                                                      CDCM        1171     A     
 CDCM     *         SYSTEM MACROS OF INTEREST TO *CDCM*.  THESE ARE RECOGNIZED             CDCM        1172     A     
 CDCM     *         ONLY IF THE *SM* OPTION IS SELECTED (DEFAULT).                         CDCM        1173     A     
 CDCM                                                                                      CDCM        1174     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1182    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               OPC    ABORT,1,1,0,0,UJUMP                                             CDCM        1175     A     
 CDCM               OPC    ENDRUN,1,1,0,0,UJUMP                                            CDCM        1176     A     
 CDCM               OPC    SUBR,1,1                                                        CDCM        1177     A     
 CDCM      PCSTB    BSS    0           LWA+1 OF SYSTEM MACRO DEFINITIONS                   CDCM        1178     A     
 CDCM                                                                                      CDCM        1179     A     
 CDCM                                                                                      CDCM        1180     A     
 CDCM     *         LOCAL MACROS OF INTEREST TO *CDCM*.  THESE ARE RECOGNIZED              CDCM        1181     A     
 CDCM     *         ONLY IF THE *LM* OPTION IS SELECTED (DEFAULT=OFF).                     CDCM        1182     A     
 CDCM                                                                                      CDCM        1183     A     
 CDCM               OPC    RTRN,1,1,0,0,UJUMP                                              CDCM        1184     A     
 CDCM               OPC    SUBRTN,1,1                                                      CDCM        1185     A     
 CDCM               OPC    TABLE,1                                                         CDCM        1186     A     
 CDCM      PCSTC    CON    0           LWA+1 OF LOCAL MACRO DEFINITIONS                    CDCM        1187     A     
 CDCM                                                                                      CDCM        1188     A     
 CDCM      PCSTT    CON    0           LOCATION TO STORE TARGET DURING SEARCH              CDCM        1189     A     
 CDCM      PC.BSS   TITLE  PC.BSS - PROCESS *BSS* AND *BSSZ* STATEMENTS.                   CDCM        1190     A     
 CDCM     **        PC.BSS - PROCESS *BSS* AND *BSSZ* STATEMENTS.                          CDCM        1191     A     
 CDCM     *                                                                                CDCM        1192     A     
 CDCM     *         *BSS* AND *BSSZ* STATEMENTS ARE COUNTED AS GENERATING                  CDCM        1193     A     
 CDCM     *         (NON-EXECUTABLE) CODE, UNLESS THE ADDRESS FIELD CONTAINS ZERO.         CDCM        1194     A     
 CDCM                                                                                      CDCM        1195     A     
 CDCM                                                                                      CDCM        1196     A     
 CDCM      PC.BSS   BSS    0                                                               CDCM        1197     A     
 CDCM               QUAL   PC.BSS                                                          CDCM        1198     A     
 CDCM               SA5    COMCOL                                                          CDCM        1199     A     
 CDCM               RJ     FBF         FIND BEGINNING OF ADDRESS FIELD                     CDCM        1200     A     
 CDCM               IX5    X6-X5                                                           CDCM        1201     A     
 CDCM               PL     X5,BSS2     IF NO ADDRESS FIELD (SAME AS BSS 0)                 CDCM        1202     A     
 CDCM               RJ     GSE         GET STATEMENT ELEMENT                               CDCM        1203     A     
 CDCM               SX1    X1-1R0                                                          CDCM        1204     A     
 CDCM               NZ     X1,BSS1     IF ADDRESS FIELD .NE. 0                             CDCM        1205     A     
 CDCM               SX2    X2-1R                                                           CDCM        1206     A     
 CDCM               ZR     X2,BSS2     IF ADDRESS FIELD .EQ. 0                             CDCM        1207     A     
 CDCM      BSS1     SA3    PCSCLC      SET PREVIOUS EXEC CODE FLAG = CURRENT / 2           CDCM        1208     A     
 CDCM               AX6    X3,B1        (= 0 IF LAST INST. WAS UNCONDITIONAL JUMP)         CDCM        1209     A     
 CDCM               MX7    0           CURRENT EXEC CODE FLAG = 0                          CDCM        1210     A     
 CDCM               SA6    PCSPLC                                                          CDCM        1211     A     
 CDCM               SA7    A3                                                              CDCM        1212     A     
 CDCM               EQ     PCSPROC     GO COMPLETE STATEMENT PROCESSING                    CDCM        1213     A     
 CDCM                                                                                      CDCM        1214     A     
 CDCM      BSS2     SA1    PCSLOC      SAVE CURRENT LOCATION SYMBOL AS A PREVIOUS          CDCM        1215     A     
 CDCM               BX6    X1           SYMBOL FROM BSS 0                                  CDCM        1216     A     
 CDCM               SA6    PCSPVL                                                          CDCM        1217     A     
 CDCM               EQ     PCSEXIT     EXIT FROM *PCS*                                     CDCM        1218     A     
 CDCM                                                                                      CDCM        1219     A     
 CDCM               QUAL   *                                                               CDCM        1220     A     
 CDCM      PC.END   TITLE  PC.END - PROCESS *END* STATEMENT.                               CDCM        1221     A     
 CDCM     **        PC.END - PROCESS *END* STATEMENT.                                      CDCM        1222     A     
 CDCM     *                                                                                CDCM        1223     A     
 CDCM     *         WHEN AN *END* STATEMENT IS ENCOUNTERED, THE FOLLOWING                  CDCM        1224     A     
 CDCM     *         PROCESSING TAKES PLACE:                                                CDCM        1225     A     
 CDCM     *                                                                                CDCM        1226     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1183    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         1) TABLE *O.LOC* IS CHECKED FOR MATCHING NAMES IN *O.ENT*, AND         CDCM        1227     A     
 CDCM     *            THE *E* (ENTRY POINT) BIT IS SET IN EACH CORRESPONDING              CDCM        1228     A     
 CDCM     *            *O.LOC* ENTRY.  NOTE THAT *O.ENT* HAS ENTRIES ONLY FOR              CDCM        1229     A     
 CDCM     *            THE CURRENT PROGRAM UNIT.                                           CDCM        1230     A     
 CDCM     *                                                                                CDCM        1231     A     
 CDCM     *         2) THE INTERMEDIATE FILE IS READ, AND EACH ENTRY IN TURN IS            CDCM        1232     A     
 CDCM     *            DISCARDED, UNLESS IT MEETS ONE OF THE FOLLOWING CONDITIONS:         CDCM        1233     A     
 CDCM     *                                                                                CDCM        1234     A     
 CDCM     *            - THE ENTRY IS FLAGGED AS TO BE LISTED.                             CDCM        1235     A     
 CDCM     *            - AT LEAST ONE OF THE SYMBOLS IN THE ENTRY HAS A MATCHING           CDCM        1236     A     
 CDCM     *              NAME IN TABLE *O.EXT*, MEANING THIS ENTRY REPRESENTS AN           CDCM        1237     A     
 CDCM     *              EXTERNAL.  IN THIS CASE, THE *E* BIT GETS SET IN THE              CDCM        1238     A     
 CDCM     *              ENTRY, SO THE ENTRY WILL BE RETAINED.                             CDCM        1239     A     
 CDCM     *            - AT LEAST ONE OF THE SYMBOLS IN THE ENTRY IS AN EXTERNAL.          CDCM        1240     A     
 CDCM     *            - AT LEAST ONE OF THE SYMBOLS IN THE ENTRY HAS A MATCHING           CDCM        1241     A     
 CDCM     *              ENTRY IN TABLE *O.LOC*.  IN THIS CASE, THE ENTRY WILL             CDCM        1242     A     
 CDCM     *              BECOME FLAGGED TO BE LISTED.                                      CDCM        1243     A     
 CDCM     *                                                                                CDCM        1244     A     
 CDCM     *            THIS PROCESSING NORMALLY CAUSES THE INTERMEDIATE FILE TO            CDCM        1245     A     
 CDCM     *            SHRINK TO A RELATIVELY SMALL SIZE AT THE END OF EACH                CDCM        1246     A     
 CDCM     *            PROGRAM UNIT.  FOR THIS REASON, IT IS RE-WRITTEN BY STORING         CDCM        1247     A     
 CDCM     *            INTO CM OR LCM WHETHER OR NOT IT HAD PREVIOUSLY OVERFLOWED          CDCM        1248     A     
 CDCM     *            TO MASS-STORAGE.  SUBSEQUENTLY, IF IT OVERFLOWS AGAIN, IT           CDCM        1249     A     
 CDCM     *            WILL THEN GO TO MASS-STORAGE, AND THIS PROCESS IS CONTINUED         CDCM        1250     A     
 CDCM     *            USING TWO ALTERNATE SCRATCH FILES.                                  CDCM        1251     A     
 CDCM     *                                                                                CDCM        1252     A     
 CDCM     *         3) LOCATION SYMBOLS IN *O.LOC* WHICH ARE NOT THAT OF ENTRY             CDCM        1253     A     
 CDCM     *            POINTS ARE DISCARDED.                                               CDCM        1254     A     
 CDCM     *                                                                                CDCM        1255     A     
 CDCM     *         4) TABLES AND VARIABLES ARE RESET FOR THE NEXT PROGRAM UNIT.           CDCM        1256     A     
 CDCM     *                                                                                CDCM        1257     A     
 CDCM     *         5) AFTER PROCESSING AN *END* PSEUDO, SUBSEQUENT STATEMENTS ARE         CDCM        1258     A     
 CDCM     *            IGNORED UNTIL AN *IDENT* OR END OF FILE IS ENCOUNTERED.             CDCM        1259     A     
 CDCM                                                                                      CDCM        1260     A     
 CDCM                                                                                      CDCM        1261     A     
 CDCM      PC.END   BSS    0           ENTRY FROM *PCS*                                    CDCM        1262     A     
 CDCM               QUAL   PC.END                                                          CDCM        1263     A     
 CDCM                                                                                      CDCM        1264     A     
 CDCM     *         SET THE ENTRY POINT BIT IN ALL *O.LOC* ENTRIES FOR WHICH A             CDCM        1265     A     
 CDCM     *         MATCHING NAME IS PRESENT IN TABLE *O.ENT*.                             CDCM        1266     A     
 CDCM                                                                                      CDCM        1267     A     
 CDCM               SA1    O.LOC       (B2) = FWA *O.LOC*                                  CDCM        1268     A     
 CDCM               SA2    A1+B1                                                           CDCM        1269     A     
 CDCM               SB2    X1                                                              CDCM        1270     A     
 CDCM               ZR     X2,END10    IF *O.LOC* EMPTY                                    CDCM        1271     A     
 CDCM               SA3    O.ENT       (B5) = FWA *O.ENT*                                  CDCM        1272     A     
 CDCM               SA4    A3+B1                                                           CDCM        1273     A     
 CDCM               SB3    B2+X2       (B3) = LWA+1 *O.LOC*                                CDCM        1274     A     
 CDCM               ZR     X4,END10    IF *O.ENT* EMPTY                                    CDCM        1275     A     
 CDCM               SB5    X3                                                              CDCM        1276     A     
 CDCM               SA5    B5+X4       SAVE (LWA+1 *O.ENT*)                                CDCM        1277     A     
 CDCM               MX0    12                                                              CDCM        1278     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1184    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SB7    A5          (B7) = LWA+1 *O.ENT*                                CDCM        1279     A     
 CDCM      END1     SA1    B2          NEXT *O.LOC* ENTRY                                  CDCM        1280     A     
 CDCM               MI     X1,END3     IF ALREADY SET AS AN ENTRY POINT                    CDCM        1281     A     
 CDCM               BX6    -X0*X1                                                          CDCM        1282     A     
 CDCM               LX6    12                                                              CDCM        1283     A     
 CDCM               SA6    A5          STORE TARGET VALUE AT (LWA+1 OF *O.ENT*)            CDCM        1284     A     
 CDCM               SA3    B5-1        FIRST-1 ENTRY                                       CDCM        1285     A     
 CDCM      END2     SA3    A3+B1       SEARCH LOOP                                         CDCM        1286     A     
 CDCM               BX3    X3-X6                                                           CDCM        1287     A     
 CDCM               NZ     X3,END2     LOOP UNTIL HIT                                      CDCM        1288     A     
 CDCM               SB6    A3                                                              CDCM        1289     A     
 CDCM               EQ     B6,B7,END3  IF NAME NOT IN *O.ENT*                              CDCM        1290     A     
 CDCM               MX7    1                                                               CDCM        1291     A     
 CDCM               BX1    -X0*X1                                                          CDCM        1292     A     
 CDCM               BX6    X1+X7       ADD ENTRY POINT BIT                                 CDCM        1293     A     
 CDCM               SA6    A1                                                              CDCM        1294     A     
 CDCM      END3     SB2    B2+B1       ADVANCE *O.LOC* FETCH POINTER                       CDCM        1295     A     
 CDCM               LT     B2,B3,END1  LOOP FOR *O.LOC* ENTRIES                            CDCM        1296     A     
 CDCM               BX7    X5          RESTORE (LWA+1 OF *O.ENT*)                          CDCM        1297     A     
 CDCM               SA7    A5                                                              CDCM        1298     A     
 CDCM                                                                                      CDCM        1299     A     
 CDCM     *         PROCESS INTERMEDIATE FILE.                                             CDCM        1300     A     
 CDCM                                                                                      CDCM        1301     A     
 CDCM      END10    SA2    SP+1                                                            CDCM        1302     A     
 CDCM               ZR     X2,END11    IF INTERMEDIATE FILE IN CM OR LCM                   CDCM        1303     A     
 CDCM               WRITER X2,RCL      ISSUE EOR WRITE ON INTERMEDIATE FILE                CDCM        1304     A     
 CDCM      END11    RJ     RWF         REWIND INTERMEDIATE FILE                            CDCM        1305     A     
 CDCM                                                                                      CDCM        1306     A     
 CDCM     *         READ NEXT INTERMEDIATE ENTRY.                                          CDCM        1307     A     
 CDCM                                                                                      CDCM        1308     A     
 CDCM      END12    RJ     RIF         READ INTERMEDIATE FILE                              CDCM        1309     A     
 CDCM               NZ     X1,END50    IF FINISHED READING INTERMEDIATE FILE               CDCM        1310     A     
 CDCM               SA3    INTENT      1ST WORD OF ENTRY                                   CDCM        1311     A     
 CDCM               MI     X3,END24    IF THIS ENTRY ALREADY FLAGGED                       CDCM        1312     A     
 CDCM               SB6    B1          INDEX FOR WORD WITHIN ENTRY                         CDCM        1313     A     
 CDCM               SB7    INTLTH      MAXIMUM INDEX + 1                                   CDCM        1314     A     
 CDCM               MX0    0           (X0) = KEEP / DO NOT KEEP FLAG                      CDCM        1315     A     
 CDCM      END13    SA2    B6+INTENT   NEXT SYMBOL (IF ANY)                                CDCM        1316     A     
 CDCM               ZR     X2,END15    IF NO SYMBOL                                        CDCM        1317     A     
 CDCM               PL     X2,END16    IF NOT AN EXTERNAL                                  CDCM        1318     A     
 CDCM      END14    SX0    B1          FLAG AS TO KEEP                                     CDCM        1319     A     
 CDCM      END15    SB6    B6+B1       ADVANCE INDEX                                       CDCM        1320     A     
 CDCM               LT     B6,B7,END13  LOOP FOR NUMBER OF SYMBOLS POSSIBLE (2)            CDCM        1321     A     
 CDCM               ZR     X0,END12    IF NOT TO KEEP THIS ENTRY                           CDCM        1322     A     
 CDCM               EQ     END24       GO KEEP THIS ENTRY                                  CDCM        1323     A     
 CDCM                                                                                      CDCM        1324     A     
 CDCM     *         IF SYMBOL NAME APPEARS IN EITHER *O.EXT* OR *O.ENT*, THEN SET          CDCM        1325     A     
 CDCM     *         THE ENTRY POINT FLAG AND CLEAR THE QUAL-INDEX FIELD FOR                CDCM        1326     A     
 CDCM     *         THIS ENTRY.                                                            CDCM        1327     A     
 CDCM                                                                                      CDCM        1328     A     
 CDCM      END16    SA1    O.EXT       (B2) = FWA OF *O.EXT*                               CDCM        1329     A     
 CDCM               SB3    B0          INDICATE SEARCHING *O.EXT*                          CDCM        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/28. 19.11.32.      PAGE1185    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM      END17    SA3    A1+B1                                                           CDCM        1331     A     
 CDCM               SB2    X1                                                              CDCM        1332     A     
 CDCM               ZR     X3,END19     IF TABLE EMPTY                                     CDCM        1333     A     
 CDCM               SB5    B2+X3       (B5) = LWA+1 TABLE                                  CDCM        1334     A     
 CDCM               SA5    B5          SAVE (LWA+1)                                        CDCM        1335     A     
 CDCM               MX7    12          LEFT JUSTIFY SYMBOL NAME FOR SEARCH                 CDCM        1336     A     
 CDCM               BX6    X5                                                              CDCM        1337     A     
 CDCM               BX7    -X7*X2                                                          CDCM        1338     A     
 CDCM               LX7    12                                                              CDCM        1339     A     
 CDCM               SA7    B5          STORE TARGET AT (LWA+1)                             CDCM        1340     A     
 CDCM               SA4    B2-B1       FIRST-1 ENTRY                                       CDCM        1341     A     
 CDCM      END18    SA4    A4+B1       NEXT ENTRY                                          CDCM        1342     A     
 CDCM               BX4    X4-X7                                                           CDCM        1343     A     
 CDCM               NZ     X4,END18    LOOP UNTIL HIT                                      CDCM        1344     A     
 CDCM               SB4    A4                                                              CDCM        1345     A     
 CDCM               SA6    B5          RESTORE (LWA+1)                                     CDCM        1346     A     
 CDCM               EQ     B4,B5,END19  IF NAME NOT IN TABLE                               CDCM        1347     A     
 CDCM               LX7    -12                                                             CDCM        1348     A     
 CDCM               MX3    1           SET ENTRY POINT BIT IN INTERMEDIATE FILE            CDCM        1349     A     
 CDCM               BX7    X7+X3        ENTRY                                              CDCM        1350     A     
 CDCM               SA7    A2                                                              CDCM        1351     A     
 CDCM               EQ     END14       GO FLAG TO KEEP                                     CDCM        1352     A     
 CDCM                                                                                      CDCM        1353     A     
 CDCM      END19    NZ     B3,END20    IF BOTH *O.EXT* AND *O.ENT* SEARCHED                CDCM        1354     A     
 CDCM               SB3    B1                                                              CDCM        1355     A     
 CDCM               SA1    O.ENT       NOW SEARCH *O.ENT*                                  CDCM        1356     A     
 CDCM               EQ     END17                                                           CDCM        1357     A     
 CDCM                                                                                      CDCM        1358     A     
 CDCM     *         SEARCH *O.LOC* FOR CURRENT SYMBOL NAME.  QUALIFIERS ARE                CDCM        1359     A     
 CDCM     *         HANDLED AS FOLLOWS:                                                    CDCM        1360     A     
 CDCM     *                                                                                CDCM        1361     A     
 CDCM     *         - IF THE REFERENCE (SYMBOL ENTRY IN THE INTERMEDIATE) IS               CDCM        1362     A     
 CDCM     *           EXPLICITLY QUALIFIED (G=1), OR IF THE REFERENCE IS IN THE            CDCM        1363     A     
 CDCM     *           GLOBAL QUAL BLOCK, THEN THE NAME IN *O.LOC* MUST MATCH THE           CDCM        1364     A     
 CDCM     *           QUALIFIER INDEX (THIS INCLUDES A QUALIFIER INDEX OF ZERO             CDCM        1365     A     
 CDCM     *           FOR THE CASE OF AN EXPLICIT GLOBAL QUALIFICATION).                   CDCM        1366     A     
 CDCM     *                                                                                CDCM        1367     A     
 CDCM     *         - IF THE REFERENCE IS NOT EXPLICITLY QUALIFIED, AND IF                 CDCM        1368     A     
 CDCM     *           THE STORE INSTRUCTION IS NOT IN THE GLOBAL BLOCK, THEN UP TO         CDCM        1369     A     
 CDCM     *           TWO (2) SEARCHES OF *O.LOC* WILL BE MADE.  THE FIRST WILL            CDCM        1370     A     
 CDCM     *           BE FOR A NAME HAVING THE SAME QUALIFIER INDEX AS THE ONE IN          CDCM        1371     A     
 CDCM     *           WHICH THE INSTRUCTION RESIDES, AND, IF NOT FOUND, THE SECOND         CDCM        1372     A     
 CDCM     *           WILL BE FOR A NAME WITH A QUALIFIER INDEX OF ZERO.                   CDCM        1373     A     
 CDCM                                                                                      CDCM        1374     A     
 CDCM      END20    MX7    -9          (X1) = QUAL-INDEX OF THIS INSTRUCTION               CDCM        1375     A     
 CDCM               SA1    INTENT                                                          CDCM        1376     A     
 CDCM               BX1    -X7*X1                                                          CDCM        1377     A     
 CDCM               SB2    B1          FLAG ONLY ONE SEARCH                                CDCM        1378     A     
 CDCM               BX3    X2          (X4) = QUAL-INDEX OF REFERENCE                      CDCM        1379     A     
 CDCM               LX3    12               = QUAL-INDEX TO USE IN SEARCH                  CDCM        1380     A     
 CDCM               BX4    -X7*X3                                                          CDCM        1381     A     
 CDCM               MX7    48                                                              CDCM        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/28. 19.11.32.      PAGE1186    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               ZR     X1,END21    IF INSTRUCTION IN GLOBAL QUAL BLOCK                 CDCM        1383     A     
 CDCM               LX3    -12+59-57   CHECK G FLAG                                        CDCM        1384     A     
 CDCM               MI     X3,END21    IF EXPLICITLY QUALIFIED                             CDCM        1385     A     
 CDCM               SB2    B0          FLAG TWO SEARCHES, IF NECESSARY                     CDCM        1386     A     
 CDCM               BX4    X1          SET TO USE QUAL-INDEX OF INSTRUCTION                CDCM        1387     A     
 CDCM      END21    BX3    X2          INTERMEDIATE FILE SYMBOL ENTRY                      CDCM        1388     A     
 CDCM               SA1    O.LOC       FWA OF *O.LOC*                                      CDCM        1389     A     
 CDCM               LX3    12          PUT IN QUAL-INDEX FOR SEARCH                        CDCM        1390     A     
 CDCM               BX3    X7*X3                                                           CDCM        1391     A     
 CDCM               BX6    X3+X4                                                           CDCM        1392     A     
 CDCM               LX6    -12                                                             CDCM        1393     A     
 CDCM               SA3    A1+B1       LENGTH OF *O.LOC*                                   CDCM        1394     A     
 CDCM               IX4    X1+X3       (B5) = LWA+1 *O.LOC*                                CDCM        1395     A     
 CDCM               ZR     X3,END15    IF *O.LOC* EMPTY                                    CDCM        1396     A     
 CDCM               SB5    X4                                                              CDCM        1397     A     
 CDCM               SA5    B5          SAVE (LWA+1)                                        CDCM        1398     A     
 CDCM               SA6    A5          STORE TARGET AT (LWA+1)                             CDCM        1399     A     
 CDCM               SA4    X1-1        FIRST - 1 ENTRY                                     CDCM        1400     A     
 CDCM      END22    SA4    A4+B1       NEXT ENTRY                                          CDCM        1401     A     
 CDCM               BX3    X4-X6                                                           CDCM        1402     A     
 CDCM               NZ     X3,END22    LOOP UNTIL MATCH                                    CDCM        1403     A     
 CDCM               BX6    X5          RESTORE (LWA+1)                                     CDCM        1404     A     
 CDCM               SB4    A4                                                              CDCM        1405     A     
 CDCM               MX7    48                                                              CDCM        1406     A     
 CDCM               SA6    B5                                                              CDCM        1407     A     
 CDCM               NE     B4,B5,END23  IF SYMBOL FOUND                                    CDCM        1408     A     
 CDCM               NZ     B2,END15    IF NOT TO SEARCH USING GLOBAL QUALIFIER             CDCM        1409     A     
 CDCM               MX4    0           SET TO SEARCH FOR UNQUALIFIED SYMBOL                CDCM        1410     A     
 CDCM               SB2    B1          SET TO INDICATE 2ND SEARCH                          CDCM        1411     A     
 CDCM               EQ     END21       REPEAT SEARCH                                       CDCM        1412     A     
 CDCM                                                                                      CDCM        1413     A     
 CDCM     *         SYMBOL MATCHES WITH AN *O.LOC* ENTRY.  FLAG THIS INTERMEDIATE          CDCM        1414     A     
 CDCM     *         ENTRY TO BE LISTED.                                                    CDCM        1415     A     
 CDCM                                                                                      CDCM        1416     A     
 CDCM      END23    SA1    INTENT      SET *TO BE LISTED* BIT IN WD 0 OF ENTRY             CDCM        1417     A     
 CDCM               MX7    1                                                               CDCM        1418     A     
 CDCM               BX7    X1+X7                                                           CDCM        1419     A     
 CDCM               SA7    A1                                                              CDCM        1420     A     
 CDCM                                                                                      CDCM        1421     A     
 CDCM     *         KEEP CURRENT INTERMEDIATE ENTRY.                                       CDCM        1422     A     
 CDCM                                                                                      CDCM        1423     A     
 CDCM      END24    SB2    INTENT                                                          CDCM        1424     A     
 CDCM               SB3    INTLTH+LINELTH                                                  CDCM        1425     A     
 CDCM               RJ     SIF         STORE INTERMEDIATE FILE                             CDCM        1426     A     
 CDCM               EQ     END12       LOOP FOR NEXT INTERMEDIATE ENTRY                    CDCM        1427     A     
 CDCM                                                                                      CDCM        1428     A     
 CDCM     *         FINISHED PROCESSING INTERMEDIATE FILE.  RESET VARIOUS                  CDCM        1429     A     
 CDCM     *         INFORMATION FOR NEXT *IDENT*.                                          CDCM        1430     A     
 CDCM                                                                                      CDCM        1431     A     
 CDCM      END50    SX7    B1                                                              CDCM        1432     A     
 CDCM               SA7    PCSID       SET *SKIPPING TO IDENT* FLAG                        CDCM        1433     A     
 CDCM               MX6    0                                                               CDCM        1434     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1187    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA6    PCSCLC      RESET CURRENT EXECUTABLE CODE FLAG                  CDCM        1435     A     
 CDCM               SA6    O.ENT+1     RESET ENTRY POINT NAME TABLE                        CDCM        1436     A     
 CDCM               SA6    O.EXT+1     RESET EXTERNAL NAME TABLE                           CDCM        1437     A     
 CDCM               SA6    O.QUL+1     RESET QUALIFIER NAME TABLE                          CDCM        1438     A     
 CDCM               SA6    O.QUS+1     RESET QUALIFIER STACK TABLE                         CDCM        1439     A     
 CDCM               SA6    PCSQI       RESET CURRENT QUALIFIER INDEX                       CDCM        1440     A     
 CDCM               RJ     CRT         CLEAR REGISTER TABLE                                CDCM        1441     A     
 CDCM               SA1    O.LOC       SHRINK *O.LOC* TO ONLY LEAVE THOSE LOCATION         CDCM        1442     A     
 CDCM               SA2    A1+B1        SYMBOLS WHICH ARE ENTRY POINTS                     CDCM        1443     A     
 CDCM               BX6    X2          (X6) = NEW LENGTH                                   CDCM        1444     A     
 CDCM               SB5    B0          (B5) = FETCH POINTER                                CDCM        1445     A     
 CDCM               SB6    B0          (B6) = STORE POINTER                                CDCM        1446     A     
 CDCM               SB7    X2                                                              CDCM        1447     A     
 CDCM      END51    ZR     B7,END53    IF NO MORE                                          CDCM        1448     A     
 CDCM               SA3    X1+B5       NEXT ENTRY                                          CDCM        1449     A     
 CDCM               SB7    B7-B1                                                           CDCM        1450     A     
 CDCM               SB5    B5+B1       ADVANCE FETCH POINTER                               CDCM        1451     A     
 CDCM               PL     X3,END52    IF NOT AN ENTRY POINT                               CDCM        1452     A     
 CDCM               BX7    X3          STORE ENTRY                                         CDCM        1453     A     
 CDCM               SA7    X1+B6                                                           CDCM        1454     A     
 CDCM               SB6    B6+B1       ADVANCE STORE POINTER                               CDCM        1455     A     
 CDCM               EQ     END51       LOOP                                                CDCM        1456     A     
 CDCM                                                                                      CDCM        1457     A     
 CDCM      END52    SX6    X6-1        DECREMENT NEW LENGTH                                CDCM        1458     A     
 CDCM               EQ     END51       LOOP                                                CDCM        1459     A     
 CDCM                                                                                      CDCM        1460     A     
 CDCM      END53    SA6    A2          STORE UPDATED LENGTH                                CDCM        1461     A     
 CDCM               EQ     PCSEXIT     EXIT FROM *PCS*                                     CDCM        1462     A     
 CDCM                                                                                      CDCM        1463     A     
 CDCM               QUAL   *                                                               CDCM        1464     A     
 CDCM      PC.ENT   TITLE  PC.ENT - PROCESS *ENTRY* AND *ENTRYC* STATEMENTS.               CDCM        1465     A     
 CDCM     **        PC.ENT - PROCESS *ENTRY* AND *ENTRYC* STATEMENTS.                      CDCM        1466     A     
 CDCM     *                                                                                CDCM        1467     A     
 CDCM     *         WHEN *ENTRY* OR *ENTRYC* IS ENCOUNTERED, THE SYMBOLS IN THE            CDCM        1468     A     
 CDCM     *         ADDRESS FIELD ARE ADDED TO THE TABLE *O.ENT* IF NOT ALREADY            CDCM        1469     A     
 CDCM     *         PRESENT.  AT *END* PROCESSING (IN *PC.END*), ALL NEW *O.LOC*           CDCM        1470     A     
 CDCM     *         ENTRIES FOR THE CURRENT PROGRAM UNIT ARE CHECKED FOR A                 CDCM        1471     A     
 CDCM     *         MATCHING NAME IN *O.ENT*.                                              CDCM        1472     A     
 CDCM                                                                                      CDCM        1473     A     
 CDCM                                                                                      CDCM        1474     A     
 CDCM      PC.ENT   BSS    0           ENTRY FROM *PCS*                                    CDCM        1475     A     
 CDCM               QUAL   PC.ENT                                                          CDCM        1476     A     
 CDCM               SA5    COMCOL      BEGINNING DEFAULT COMMENT COLUMN                    CDCM        1477     A     
 CDCM               RJ     FBF         FIND BEGINNING OF FIELD                             CDCM        1478     A     
 CDCM               IX5    X6-X5                                                           CDCM        1479     A     
 CDCM               PL     X5,PCSEXIT  IF NO ADDRESS FIELD, EXIT                           CDCM        1480     A     
 CDCM      ENT1     RJ     GSE         GET STATEMENT ELEMENT                               CDCM        1481     A     
 CDCM               NE     B2,B1,PCSEXIT  IF NOT SYMBOL, ERROR                             CDCM        1482     A     
 CDCM               SX5    X2-1R,      (X5) = 0 IF NOT END OF ADDRESS FIELD                CDCM        1483     A     
 CDCM               SA2    O.ENT                                                           CDCM        1484     A     
 CDCM               RJ     ANT         ADD NAME TO TABLE                                   CDCM        1485     A     
 CDCM               ZR     X5,ENT1     LOOP IF MORE SYMBOLS                                CDCM        1486     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1188    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               EQ     PCSEXIT     EXIT FROM *PCS*                                     CDCM        1487     A     
 CDCM               QUAL   *                                                               CDCM        1488     A     
 CDCM      PC.EQU   TITLE  PC.EQU - PROCESS *EQU* STATEMENT.                               CDCM        1489     A     
 CDCM     **        PC.EQU - PROCESS *EQU* STATEMENT.                                      CDCM        1490     A     
 CDCM     *                                                                                CDCM        1491     A     
 CDCM     *         AN *EQU* STATEMENT CAUSES AN ENTRY TO BE ADDED TO TABLE                CDCM        1492     A     
 CDCM     *         *O.LOC* IF THE ADDRESS FIELD VALUE IS CURRENTLY IN *O.LOC*.            CDCM        1493     A     
 CDCM     *         IF NOT FOUND, THE *EQU* STATEMENT IS IGNORED, BECAUSE                  CDCM        1494     A     
 CDCM     *         *COMPASS* WOULD NOT HAVE DEFINED THE SYMBOL, AND ANY SUB-              CDCM        1495     A     
 CDCM     *         SEQUENT REFERENCES TO IT WOULD CAUSE AN ASSEMBLY ERROR.                CDCM        1496     A     
 CDCM                                                                                      CDCM        1497     A     
 CDCM                                                                                      CDCM        1498     A     
 CDCM      PC.EQU   BSS    0           ENTRY FROM *PCS*                                    CDCM        1499     A     
 CDCM               QUAL   PC.EQU                                                          CDCM        1500     A     
 CDCM               RJ     FBF         FIND BEGINNING OF FIELD                             CDCM        1501     A     
 CDCM               SA2    COMCOL                                                          CDCM        1502     A     
 CDCM               MX0    1           SET TO TRY CURRENT QUAL-IND, THEN GLOBAL            CDCM        1503     A     
 CDCM                                   IF NECESSARY                                       CDCM        1504     A     
 CDCM               IX2    X6-X2                                                           CDCM        1505     A     
 CDCM               PL     X2,PCSEXIT  IF NO ADDRESS FIELD, EXIT FROM *PCS*                CDCM        1506     A     
 CDCM               RJ     GSE         GET STATEMENT ELEMENT                               CDCM        1507     A     
 CDCM               EQ     B2,B1,EQU5  IF SYMBOL                                           CDCM        1508     A     
 CDCM                                                                                      CDCM        1509     A     
 CDCM     *         CHECK FOR QUALIFIER.                                                   CDCM        1510     A     
 CDCM                                                                                      CDCM        1511     A     
 CDCM               SB3    B2-2                                                            CDCM        1512     A     
 CDCM               NZ     B3,EQU2     IF NOT A QUALIFIED SYMBOL                           CDCM        1513     A     
 CDCM               SX2    X2-1R/                                                          CDCM        1514     A     
 CDCM               NZ     X2,PCSEXIT  IF NAME NOT FOLLOWED BY /                           CDCM        1515     A     
 CDCM               SA2    O.QUL                                                           CDCM        1516     A     
 CDCM               SA3    A2+B1       *O.QUL* LENGTH                                      CDCM        1517     A     
 CDCM               ZR     X3,PCSEXIT  IF NO QUALIFIERS DEFINED, MUST BE ERROR             CDCM        1518     A     
 CDCM               SB2    X2          (B2) = FWA *O.QUL*                                  CDCM        1519     A     
 CDCM               SA5    B2+X3       SAVE (LWA+1)                                        CDCM        1520     A     
 CDCM               BX7    X5                                                              CDCM        1521     A     
 CDCM               SB7    A5          (B7) = LWA+1                                        CDCM        1522     A     
 CDCM               BX6    X1                                                              CDCM        1523     A     
 CDCM               SA6    A5          SET TARGET VALUE AT LWA+1                           CDCM        1524     A     
 CDCM               SA4    B2-B1       FIRST-1 ENTRY                                       CDCM        1525     A     
 CDCM      EQU1     SA4    A4+B1       SEARCH LOOP                                         CDCM        1526     A     
 CDCM               BX4    X6-X4                                                           CDCM        1527     A     
 CDCM               NZ     X4,EQU1     LOOP UNTIL HIT                                      CDCM        1528     A     
 CDCM               SB6    A4                                                              CDCM        1529     A     
 CDCM               SA7    A5          RESTORE (LWA+1)                                     CDCM        1530     A     
 CDCM               EQ     B6,B7,PCSEXIT  IF QUALIFIER NAME NOT IN TABLE, ERROR            CDCM        1531     A     
 CDCM               SX0    B6-B2       (X0) = INDEX OF QUALFIER NAME                       CDCM        1532     A     
 CDCM               SX0    X0+B1                                                           CDCM        1533     A     
 CDCM               EQ     EQU4        GO GET SYMBOL                                       CDCM        1534     A     
 CDCM                                                                                      CDCM        1535     A     
 CDCM      EQU2     SB3    B2-4                                                            CDCM        1536     A     
 CDCM               NZ     B3,PCSEXIT  IF CANNOT BE //                                     CDCM        1537     A     
 CDCM               SX3    X1-1R/                                                          CDCM        1538     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1189    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SX4    X2-1R/                                                          CDCM        1539     A     
 CDCM               ZR     X3,EQU3     IF 1ST CHAR IS /                                    CDCM        1540     A     
 CDCM               SX3    X1-1R*      CHECK FOR EQU  *                                    CDCM        1541     A     
 CDCM               NZ     X3,PCSEXIT  IF 1ST CHAR NOT *                                   CDCM        1542     A     
 CDCM               SX4    X2-1R                                                           CDCM        1543     A     
 CDCM               NZ     X4,PCSEXIT  IF 2ND CHAR NOT BLANK                               CDCM        1544     A     
 CDCM               EQ     /PC.BSS/BSS2  GO PROCESS LOCATION SYMBOL SAME AS BSS 0          CDCM        1545     A     
 CDCM                                                                                      CDCM        1546     A     
 CDCM      EQU3     NZ     X4,PCSEXIT  IF 2ND CHAR NOT /                                   CDCM        1547     A     
 CDCM               MX0    0           SET TO USE GLOBAL QUALIFIER                         CDCM        1548     A     
 CDCM      EQU4     RJ     GSE         GET STATEMENT ELEMENT                               CDCM        1549     A     
 CDCM               NE     B2,B1,PCSEXIT  IF NOT SYMBOL, ERROR                             CDCM        1550     A     
 CDCM                                                                                      CDCM        1551     A     
 CDCM     *         SYMBOL FOUND.  DETERMINE IF IN TABLE *O.LOC*.                          CDCM        1552     A     
 CDCM                                                                                      CDCM        1553     A     
 CDCM      EQU5     PL     X0,EQU7     IF A QUALIFIER WAS SPECIFIED                        CDCM        1554     A     
 CDCM               SA5    PCSQI       IF QUALIFIER IN EFFECT, SEARCH *O.LOC*              CDCM        1555     A     
 CDCM               NZ     X5,EQU6     WITH CURRENT QUAL-INDEX                             CDCM        1556     A     
 CDCM               MX0    0           NO QUALIFIER IN EFFECT SO ONLY SEARCH ONCE          CDCM        1557     A     
 CDCM               EQ     EQU8         USING GLOBAL QUAL-INDEX = 0                        CDCM        1558     A     
 CDCM                                                                                      CDCM        1559     A     
 CDCM      EQU6     LX5    48          INDEX OF CURRENT QUALIFIER                          CDCM        1560     A     
 CDCM               EQ     EQU8                                                            CDCM        1561     A     
 CDCM                                                                                      CDCM        1562     A     
 CDCM      EQU7     BX5    X0          SET QUALIFIER INDEX                                 CDCM        1563     A     
 CDCM               LX5    48                                                              CDCM        1564     A     
 CDCM      EQU8     BX6    X1                                                              CDCM        1565     A     
 CDCM               LX6    -12                                                             CDCM        1566     A     
 CDCM               SA2    O.LOC                                                           CDCM        1567     A     
 CDCM               BX6    X5+X6       (X6) = VFD 3/0,9/(QUAL-IND),48/NAME                 CDCM        1568     A     
 CDCM               SA3    A2+B1       *O.LOC* LENGTH                                      CDCM        1569     A     
 CDCM               SB2    X2          (B2) = FWA *O.LOC*                                  CDCM        1570     A     
 CDCM               ZR     X3,PCSEXIT  IF *O.LOC* EMPTY, ADDRESS UNDEFINED                 CDCM        1571     A     
 CDCM               SA5    B2+X3       SAVE (LWA+1)                                        CDCM        1572     A     
 CDCM               BX7    X5                                                              CDCM        1573     A     
 CDCM               SB7    A5          (B7) = LWA+1                                        CDCM        1574     A     
 CDCM               SA6    A5          SET TARGET VALUE AT LWA+1                           CDCM        1575     A     
 CDCM               SA4    B2-B1       FIRST-1 ENTRY                                       CDCM        1576     A     
 CDCM      EQU9     SA4    A4+B1       SEARCH LOOP                                         CDCM        1577     A     
 CDCM               BX4    X6-X4                                                           CDCM        1578     A     
 CDCM               NZ     X4,EQU9     LOOP UNTIL HIT                                      CDCM        1579     A     
 CDCM               SB6    A4                                                              CDCM        1580     A     
 CDCM               SA7    A5          RESTORE (LWA+1)                                     CDCM        1581     A     
 CDCM               NE     B6,B7,EQU10 IF LOCATION SYMBOL FOUND                            CDCM        1582     A     
 CDCM               PL     X0,PCSEXIT  IF LAST SEARCH WAS WAS GLOBAL                       CDCM        1583     A     
 CDCM               MX0    0           NOW SEARCH WITH GLOBAL QUALIFICATION                CDCM        1584     A     
 CDCM               SX5    B0                                                              CDCM        1585     A     
 CDCM               EQ     EQU7                                                            CDCM        1586     A     
 CDCM                                                                                      CDCM        1587     A     
 CDCM      EQU10    SA4    PCSLOC      CURRENT LOCATION SYMBOL                             CDCM        1588     A     
 CDCM               SA1    PCSQI       CURRENT QUALIFIER INDEX                             CDCM        1589     A     
 CDCM               ZR     X4,PCSEXIT  IF THERE WAS NO LOCATION SYMBOL                     CDCM        1590     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1190    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               BX1    X4+X1                                                           CDCM        1591     A     
 CDCM               LX1    48          3/0,9/(QUAL-IND),48/0                               CDCM        1592     A     
 CDCM               SA2    O.LOC                                                           CDCM        1593     A     
 CDCM               RJ     ADW         ADD NEW ENTRY TO *O.LOC*                            CDCM        1594     A     
 CDCM               EQ     PCSEXIT     EXIT FROM *PCS*                                     CDCM        1595     A     
 CDCM                                                                                      CDCM        1596     A     
 CDCM               QUAL   *                                                               CDCM        1597     A     
 CDCM      PC.EXT   TITLE  PC.EXT - PROCESS *EXT* STATEMENT.                               CDCM        1598     A     
 CDCM     **        PC.EXT - PROCESS *EXT* STATEMENT.                                      CDCM        1599     A     
 CDCM     *                                                                                CDCM        1600     A     
 CDCM     *         WHEN AN *EXT* STATEMENT IS ENCOUNTERED, THE SYMBOLS IN THE             CDCM        1601     A     
 CDCM     *         ADDRESS FIELD ARE ADDED TO THE TABLE *O.EXT* IF NOT ALREADY            CDCM        1602     A     
 CDCM     *         PRESENT.  AT *END* PROCESSING IN *PC.END*, DURING THE                  CDCM        1603     A     
 CDCM     *         PROCESSING OF ADDRESS FIELD SYMBOLS, ANY SYMBOL WHICH HAS A            CDCM        1604     A     
 CDCM     *         MATCHING ENTRY IN TABLE *O.EXT* WILL CAUSE THE EP BIT TO BE            CDCM        1605     A     
 CDCM     *         SET IN THE RESULTING INTERMEDIATE FILE ENTRY.                          CDCM        1606     A     
 CDCM                                                                                      CDCM        1607     A     
 CDCM                                                                                      CDCM        1608     A     
 CDCM      PC.EXT   BSS    0           ENTRY FROM *PCS*                                    CDCM        1609     A     
 CDCM               QUAL   PC.EXT                                                          CDCM        1610     A     
 CDCM               SA5    COMCOL      BEGINNING DEFAULT COMMENT COLUMN                    CDCM        1611     A     
 CDCM               RJ     FBF         FIND BEGINNING OF FIELD                             CDCM        1612     A     
 CDCM               IX5    X6-X5                                                           CDCM        1613     A     
 CDCM               PL     X5,PCSEXIT  IF NO ADDRESS FIELD, EXIT                           CDCM        1614     A     
 CDCM      EXT1     RJ     GSE         GET STATEMENT ELEMENT                               CDCM        1615     A     
 CDCM               NE     B2,B1,PCSEXIT  IF NOT SYMBOL, ERROR                             CDCM        1616     A     
 CDCM               SX5    X2-1R,      (X5) = 0 IF NOT END OF ADDRESS FIELD                CDCM        1617     A     
 CDCM               SA2    O.EXT                                                           CDCM        1618     A     
 CDCM               RJ     ANT         ADD NAME TO TABLE                                   CDCM        1619     A     
 CDCM               ZR     X5,EXT1     LOOP IF MORE SYMBOLS                                CDCM        1620     A     
 CDCM               EQ     PCSEXIT     EXIT FROM *PCS*                                     CDCM        1621     A     
 CDCM               QUAL   *                                                               CDCM        1622     A     
 CDCM      PC.JUMP  TITLE  PC.JUMP - PROCESS JUMP INSTRUCTIONS.                            CDCM        1623     A     
 CDCM     **        PC.JUMP - PROCESS JUMP INSTRUCTIONS.                                   CDCM        1624     A     
 CDCM     *                                                                                CDCM        1625     A     
 CDCM     *         THIS ROUTINE IS USED FOR AN INSTRUCTION WHICH CAN BE AN                CDCM        1626     A     
 CDCM     *         UNCONDITIONAL JUMP, DEPENDING ON THE CONTENTS OF THE ADDRESS           CDCM        1627     A     
 CDCM     *         FIELD.  FOR THE PURPOSES OF CDCM OUTPUT, UNCONDITIONAL                 CDCM        1628     A     
 CDCM     *         ACTUALLY MEANS NOT ONLY UNCONDITIONAL, BUT ALSO NOT LIKELY             CDCM        1629     A     
 CDCM     *         TO JUMP INTO MODIFIED CODE.  THIS CONDITION IS CONSIDERED TO           CDCM        1630     A     
 CDCM     *         BE MET IF ONLY IF ALL OF THE FOLLOWING CONDITIONS ARE MET:             CDCM        1631     A     
 CDCM     *                                                                                CDCM        1632     A     
 CDCM     *                A) THERE ARE NO REGISTERS IN THE ADDRESS FIELD.                 CDCM        1633     A     
 CDCM     *                B) THERE ARE NO *+ OR *- DESIGNATORS IN THE ADDRESS             CDCM        1634     A     
 CDCM     *                   FIELD.  * BY ITSELF IS OK.                                   CDCM        1635     A     
 CDCM                                                                                      CDCM        1636     A     
 CDCM                                                                                      CDCM        1637     A     
 CDCM      PC.JUMP  BSS    0           ENTRY FROM *PCS*                                    CDCM        1638     A     
 CDCM               QUAL   PC.JUMP                                                         CDCM        1639     A     
 CDCM               SA1    PCSCLC      SET PREVIOUS EXEC CODE FLAG = CURRENT / 2           CDCM        1640     A     
 CDCM               SB3    X1          (B3) = CURRENT *PCSCLC* SETTING                     CDCM        1641     A     
 CDCM               AX6    X1,B1        (= 0 IF LAST INST. WAS UNCONDITIONAL JUMP)         CDCM        1642     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1191    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               R=     X7,2        CURRENT EXEC CODE FLAG = 2 FOR INSTRUCTIONS         CDCM        1643     A     
 CDCM               SA6    PCSPLC       OTHER THAN UNCONDITIONAL JUMPS                     CDCM        1644     A     
 CDCM               SA7    A1                                                              CDCM        1645     A     
 CDCM               SA5    COMCOL      BEGINNING DEFAULT COMMENT COLUMN                    CDCM        1646     A     
 CDCM               RJ     FBF         FIND BEGINNING OF ADDRESS FIELD                     CDCM        1647     A     
 CDCM               IX5    X6-X5                                                           CDCM        1648     A     
 CDCM               PL     X5,JMP3     IF NO ADDRESS, EITHER UNCOND. OR ERROR              CDCM        1649     A     
 CDCM      JMP1     RJ     GSE         GET NEXT ADDRESS FIELD ELEMENT                      CDCM        1650     A     
 CDCM               NZ     B2,JMP4     IF NOT A REGISTER                                   CDCM        1651     A     
 CDCM               SX1    X1-8        B0 REGISTER OK                                      CDCM        1652     A     
 CDCM               NZ     X1,PCSPROC  NOT UNCONDITIONAL, GO COMPLETE PROCESSING           CDCM        1653     A     
 CDCM      JMP2     NZ     X4,JMP1     IF MORE ADDRESS FIELDS                              CDCM        1654     A     
 CDCM      JMP3     SX7    B1          SET FOR UNCONDITIONAL JUMP                          CDCM        1655     A     
 CDCM               SA7    PCSCLC                                                          CDCM        1656     A     
 CDCM               SA1    SO.JP                                                           CDCM        1657     A     
 CDCM               ZR     X1,PCSPROC  IF *JP* NOT SELECTED                                CDCM        1658     A     
 CDCM               RJ     CRT         CLEAR REGISTER TABLE                                CDCM        1659     A     
 CDCM               EQ     PCSPROC     GO COMPLETE PROCESSING                              CDCM        1660     A     
 CDCM                                                                                      CDCM        1661     A     
 CDCM                                                                                      CDCM        1662     A     
 CDCM      JMP4     SX3    X1-1R*      CHECK FOR * IN ADDRESS FIELD                        CDCM        1663     A     
 CDCM               SX4    X2-1R       (X4) = 0 IF AT END OF ADDRESS FIELD                 CDCM        1664     A     
 CDCM               NZ     X3,JMP2     IF ADDRESS DOES NOT BEGIN WITH *                    CDCM        1665     A     
 CDCM               ZR     X4,JMP3     IF ADDRESS FIELD CONTAINS * (ALONE)                 CDCM        1666     A     
 CDCM               EQ     PCSPROC     NOT UNCONDITIONAL, GO COMPLETE PROCESSING           CDCM        1667     A     
 CDCM                                                                                      CDCM        1668     A     
 CDCM               QUAL   *                                                               CDCM        1669     A     
 CDCM      UJUMP    EQU    /PC.JUMP/JMP3                                                   CDCM        1670     A     
 CDCM      PC.QUAL  TITLE  PC.QUAL - PROCESS *QUAL* STATEMENT.                             CDCM        1671     A     
 CDCM     **        PC.QUAL - PROCESS *QUAL* STATEMENT.                                    CDCM        1672     A     
 CDCM     *                                                                                CDCM        1673     A     
 CDCM     *         A *QUAL* STATEMENT CAUSES THE TABLES *O.QUL* AND *O.QUS* TO            CDCM        1674     A     
 CDCM     *         BE UPDATED AND THE CURRENT QUALIFIER INDEX *PCSQI* TO BE               CDCM        1675     A     
 CDCM     *         UPDATED.  THERE ARE THREE (3) CASES.                                   CDCM        1676     A     
 CDCM     *                                                                                CDCM        1677     A     
 CDCM     *         1) ADDRESS FIELD CONTAINS A NAME:  NAME IS ADDED TO *O.QUL*            CDCM        1678     A     
 CDCM     *            IF NOT ALREADY THERE.  AN ENTRY IS ADDED TO *O.QUS*                 CDCM        1679     A     
 CDCM     *            CONTAINING THE CURRENT QUALIFIER INDEX.  *PCSQI* IS SET             CDCM        1680     A     
 CDCM     *            TO THE CURRENT QUALIFIER INDEX.                                     CDCM        1681     A     
 CDCM     *                                                                                CDCM        1682     A     
 CDCM     *         2) ADDRESS FIELD IS BLANK:  AN ENTRY IS ADDED TO *O.QUS* FOR           CDCM        1683     A     
 CDCM     *            GLOBAL QUALIFICATION (ZERO VALUE).  *PCSQI* IS SET TO ZERO.         CDCM        1684     A     
 CDCM     *                                                                                CDCM        1685     A     
 CDCM     *         3) ADDRESS FIELD CONTAINS *:  IF THERE ARE ANY ENTRIES IN              CDCM        1686     A     
 CDCM     *            *O.QUS*, THE LAST ONE IS REMOVED, THUS POPPING THE STACK.           CDCM        1687     A     
 CDCM     *            *PCSQI* IS SET TO THE QUALIFIER INDEX FROM THE PREVIOUS             CDCM        1688     A     
 CDCM     *            *O.QUS* ENTRY (OR ZERO IF *O.QUS* IS EMPTY).                        CDCM        1689     A     
 CDCM                                                                                      CDCM        1690     A     
 CDCM                                                                                      CDCM        1691     A     
 CDCM      PC.QUAL  BSS    0           ENTRY FROM *PCS*                                    CDCM        1692     A     
 CDCM               QUAL   PC.QUAL                                                         CDCM        1693     A     
 CDCM               RJ     FBF         FIND BEGINNING OF FIELD                             CDCM        1694     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1192    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA2    COMCOL                                                          CDCM        1695     A     
 CDCM               IX2    X6-X2                                                           CDCM        1696     A     
 CDCM               PL     X2,QUL3     IF NO ADDRESS FIELD                                 CDCM        1697     A     
 CDCM               RJ     GSE         GET STATEMENT ELEMENT                               CDCM        1698     A     
 CDCM               NE     B2,B1,QUL5  IF NOT A SYMBOL                                     CDCM        1699     A     
 CDCM               SA2    O.QUL                                                           CDCM        1700     A     
 CDCM               SA3    A2+B1       *O.QUL* LENGTH                                      CDCM        1701     A     
 CDCM               ZR     X3,QUL2     IF *O.QUL* EMPTY                                    CDCM        1702     A     
 CDCM               SB2    X2          (B2) = FWA *O.QUL*                                  CDCM        1703     A     
 CDCM               SA5    B2+X3       SAVE (LWA+1)                                        CDCM        1704     A     
 CDCM               BX7    X5                                                              CDCM        1705     A     
 CDCM               SB7    A5          (B7) = LWA+1                                        CDCM        1706     A     
 CDCM               BX6    X1                                                              CDCM        1707     A     
 CDCM               SA6    A5          SET TARGET VALUE AT LWA+1                           CDCM        1708     A     
 CDCM               SA4    B2-1        FIRST-1 ENTRY                                       CDCM        1709     A     
 CDCM      QUL1     SA4    A4+B1       SEARCH LOOP                                         CDCM        1710     A     
 CDCM               BX4    X6-X4                                                           CDCM        1711     A     
 CDCM               NZ     X4,QUL1     LOOP UNTIL HIT                                      CDCM        1712     A     
 CDCM               SB6    A4                                                              CDCM        1713     A     
 CDCM               SA7    A5          RESTORE (LWA+1)                                     CDCM        1714     A     
 CDCM               EQ     B6,B7,QUL2  IF QUALIFIER NAME NOT IN TABLE                      CDCM        1715     A     
 CDCM               SX1    B6-B2       (X1) = INDEX OF QUALIFIER NAME                      CDCM        1716     A     
 CDCM               SX1    X1+B1                                                           CDCM        1717     A     
 CDCM               EQ     QUL4        GO ADD TO *O.QUS*                                   CDCM        1718     A     
 CDCM                                                                                      CDCM        1719     A     
 CDCM      QUL2     RJ     ADW         ADD WORD TO TABLE *O.QUL*                           CDCM        1720     A     
 CDCM                                   (X1) = NEW NAME, (A2) = (X2) = O.QUL               CDCM        1721     A     
 CDCM               BX1    X3          (X1) = NEW LENGTH OF *O.QUL*                        CDCM        1722     A     
 CDCM               EQ     QUL4             = CURRENT QUAL-INDEX                           CDCM        1723     A     
 CDCM                                                                                      CDCM        1724     A     
 CDCM      QUL3     MX1    0           SET QUAL-INDEX = 0                                  CDCM        1725     A     
 CDCM      QUL4     SA2    O.QUS                                                           CDCM        1726     A     
 CDCM               RJ     ADW         ADD WORD TO TABLE *O.QUS*                           CDCM        1727     A     
 CDCM               SA6    PCSQI       SET CURRENT QUAL-INDEX                              CDCM        1728     A     
 CDCM               EQ     PCS90       RETURN TO MAIN STATEMENT PROCESSOR                  CDCM        1729     A     
 CDCM                                                                                      CDCM        1730     A     
 CDCM      QUL5     SB2    B2-4                                                            CDCM        1731     A     
 CDCM               NZ     B2,PCS90    IF NOT QUAL *                                       CDCM        1732     A     
 CDCM               SX1    X1-1R*                                                          CDCM        1733     A     
 CDCM               NZ     X1,PCS90    IF NOT QUAL *                                       CDCM        1734     A     
 CDCM               SX2    X2-1R                                                           CDCM        1735     A     
 CDCM               NZ     X2,PCS90    IF NOT QUAL *                                       CDCM        1736     A     
 CDCM                                                                                      CDCM        1737     A     
 CDCM     *         QUAL * FOUND.  REMOVE THE TOP ENTRY FROM THE QUALIFIER STACK           CDCM        1738     A     
 CDCM     *         AND SET THE CURRENT QUALIFIER INDEX TO THAT OF THE PREVIOUS            CDCM        1739     A     
 CDCM     *         ENTRY.                                                                 CDCM        1740     A     
 CDCM                                                                                      CDCM        1741     A     
 CDCM               SA2    O.QUS+1     *O.QUS* LENGTH                                      CDCM        1742     A     
 CDCM               MX6    0           SET FOR ZERO QUAL-INDEX                             CDCM        1743     A     
 CDCM               SA1    A2-B1       *O.QUS* FWA                                         CDCM        1744     A     
 CDCM               ZR     X2,QUL6     IF *O.QUS* ALREADY EMPTY                            CDCM        1745     A     
 CDCM               SX6    X2-1        SHORTEN BY ONE ENTRY                                CDCM        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/28. 19.11.32.      PAGE1193    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA6    A2                                                              CDCM        1747     A     
 CDCM               ZR     X6,QUL6     IF NOW EMPTY                                        CDCM        1748     A     
 CDCM               IX3    X1+X6       NEW LWA+1                                           CDCM        1749     A     
 CDCM               SA4    X3-1        GET THE NEW TOP ENTRY                               CDCM        1750     A     
 CDCM               BX6    X4                                                              CDCM        1751     A     
 CDCM      QUL6     SA6    PCSQI       SET CURRENT QUAL-INDEX                              CDCM        1752     A     
 CDCM               EQ     PCSEXIT     EXIT FROM *PCS*                                     CDCM        1753     A     
 CDCM                                                                                      CDCM        1754     A     
 CDCM               QUAL   *                                                               CDCM        1755     A     
 CDCM      ADW      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        1756     A     
 CDCM     **        ADW - ADD WORD TO TABLE IN CMM VARIABLE BLOCK.                         CDCM        1757     A     
 CDCM     *                                                                                CDCM        1758     A     
 CDCM     *         ADDS A WORD TO A MANAGED TABLE.  CMM VARIABLE-POSITION BLOCKS          CDCM        1759     A     
 CDCM     *         ARE USED FOR THE TABLES TO ALLOW FOR THE FLEXIBILITY TO                CDCM        1760     A     
 CDCM     *         INTERFACE WITH OTHER LANGUAGES IN THE FUTURE.                          CDCM        1761     A     
 CDCM     *                                                                                CDCM        1762     A     
 CDCM     *         TABLE POINTERS ARE OF THE FOLLOWING FORMAT:                            CDCM        1763     A     
 CDCM     *                                                                                CDCM        1764     A     
 CDCM     *         WD 0   VFD    30/(BLOCK-SIZE),30/(BLOCK-FWA)                           CDCM        1765     A     
 CDCM     *         WD 1   VFD    42/0,18/LENGTH                                           CDCM        1766     A     
 CDCM     *         WD 2   VFD    42/0,18/INCR                                             CDCM        1767     A     
 CDCM     *                                                                                CDCM        1768     A     
 CDCM     *         WORD 0 IS THE POINTER WORD WHICH IS MAINTAINED BY CMM.  IT IS          CDCM        1769     A     
 CDCM     *         SET TO ZERO UNTIL THE BLOCK IS FIRST ALLOCATED.                        CDCM        1770     A     
 CDCM     *                                                                                CDCM        1771     A     
 CDCM     *                LENGTH = LENGTH OF ACTUAL DATA IN BLOCK.  THIS IS               CDCM        1772     A     
 CDCM     *                         UPDATED BY *ADW* OR BY ANY USERS OF THE BLOCK.         CDCM        1773     A     
 CDCM     *                INCR   = AMOUNT BY WHICH THE BLOCK-SIZE IS INCREASED            CDCM        1774     A     
 CDCM     *                         WHENEVER AN INCREASE IS NECESSARY.  MAY BE             CDCM        1775     A     
 CDCM     *                         MODIFIED AT RUN-TIME IF DESIRED.                       CDCM        1776     A     
 CDCM     *                                                                                CDCM        1777     A     
 CDCM     *                                                                                CDCM        1778     A     
 CDCM     *         ENTRY  (X1) = WORD.                                                    CDCM        1779     A     
 CDCM     *                (X2) = CMM POINTER WORD.                                        CDCM        1780     A     
 CDCM     *                (B1) = 1.                                                       CDCM        1781     A     
 CDCM     *                (A2) = TABLE POINTER.                                           CDCM        1782     A     
 CDCM     *                                                                                CDCM        1783     A     
 CDCM     *         EXIT   (X1) = (X6) = WORD.                                             CDCM        1784     A     
 CDCM     *                (X2) = FWA OF TABLE.                                            CDCM        1785     A     
 CDCM     *                (X3) = LENGTH OF TABLE.                                         CDCM        1786     A     
 CDCM     *                (B1) = 1.                                                       CDCM        1787     A     
 CDCM     *                (A6) = ADDRESS OF WORD.                                         CDCM        1788     A     
 CDCM     *                                                                                CDCM        1789     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        1790     A     
 CDCM     *                B - 4, 5, 6, 7.                                                 CDCM        1791     A     
 CDCM     *                A - 1, 2, 3, 4, 5, 6, 7.                                        CDCM        1792     A     
 CDCM     *                                                                                CDCM        1793     A     
 CDCM     *         CALLS  CMM.ALV, CMM.GLV.                                               CDCM        1794     A     
 CDCM                                                                                      CDCM        1795     A     
 CDCM                                                                                      CDCM        1796     A     
 CDCM      ADW      EQ     *+1S17      ENTRY / EXIT                                        CDCM        1797     A     
 CDCM      ADW1     SA3    A2+B1       USED LENGTH                                         CDCM        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/28. 19.11.32.      PAGE1194    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               BX6    X2          (B7) = CMM LENGTH                                   CDCM        1799     A     
 CDCM               SB6    X3          (B6) = USED LENGTH                                  CDCM        1800     A     
 CDCM               AX6    30                                                              CDCM        1801     A     
 CDCM               SB7    X6                                                              CDCM        1802     A     
 CDCM               LT     B6,B7,ADW4  IF ROOM FOR ANOTHER WORD                            CDCM        1803     A     
 CDCM               BX6    X1          SAVE X1 AND A2                                      CDCM        1804     A     
 CDCM               SX7    A2                                                              CDCM        1805     A     
 CDCM               SA6    ADWSV                                                           CDCM        1806     A     
 CDCM               SA7    A6+B1                                                           CDCM        1807     A     
 CDCM               NZ     X2,ADW2     IF TABLE ALREADY ALLOCATED                          CDCM        1808     A     
 CDCM               SX4    A2          (X4) = ADDRESS OF POINTER WORD                      CDCM        1809     A     
 CDCM               SX3    3*1S6+1     SIZE-CODE = 3 (LWA CAN GROW OR SHRINK)              CDCM        1810     A     
 CDCM                                  TYPE-CODE = 1 (CMM UPDATES POINTER WORD)            CDCM        1811     A     
 CDCM               SA2    A3+B1       (X2) = BLOCK-SIZE                                   CDCM        1812     A     
 CDCM               RJ     =XCMM.ALV   ALLOCATE VARIABLE BLOCK                             CDCM        1813     A     
 CDCM               EQ     ADW3        GO RESTORE ENTRY REGISTERS                          CDCM        1814     A     
 CDCM                                                                                      CDCM        1815     A     
 CDCM      ADW2     BX1    X2          (X1) = BLOCK-FWA                                    CDCM        1816     A     
 CDCM               SA2    A3+B1       (X2) = AMOUNT OF INCREASE                           CDCM        1817     A     
 CDCM               RJ     =XCMM.GLV   GROW BLOCK AT LWA                                   CDCM        1818     A     
 CDCM                                                                                      CDCM        1819     A     
 CDCM      ADW3     SA1    ADWSV       RESTORE X1 AND A2                                   CDCM        1820     A     
 CDCM               SA2    A1+B1                                                           CDCM        1821     A     
 CDCM               SA2    X2                                                              CDCM        1822     A     
 CDCM               EQ     ADW1        REPEAT                                              CDCM        1823     A     
 CDCM                                                                                      CDCM        1824     A     
 CDCM      ADW4     BX6    X1          (X6) = WORD                                         CDCM        1825     A     
 CDCM               SA6    X2+B6       STORE WORD IN TABLE                                 CDCM        1826     A     
 CDCM               SX7    X3+B1       ADVANCE TABLE USED LENGTH                           CDCM        1827     A     
 CDCM               BX3    X7          (X3) = NEW USED LENGTH                              CDCM        1828     A     
 CDCM               SA7    A3                                                              CDCM        1829     A     
 CDCM               EQ     ADW         RETURN                                              CDCM        1830     A     
 CDCM                                                                                      CDCM        1831     A     
 CDCM      ADWSV    BSSZ   2           REGISTER SAVE AREA                                  CDCM        1832     A     
 CDCM      AWS      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        1833     A     
 CDCM     **        AWS - ALLOCATE WORK SPACE FOR INTERMEDIATE FILE.                       CDCM        1834     A     
 CDCM     *                                                                                CDCM        1835     A     
 CDCM     *         ALLOCATES ADDITIONAL WORK SPACE FOR THE INTERMEDIATE FILE.             CDCM        1836     A     
 CDCM     *         THE FILE IS INITIALLY TARGETTED FOR EITHER CM OR LCM BY *CWS*,         CDCM        1837     A     
 CDCM     *         WHICHEVER HAS THE LARGER AVAILABLE AREA.                               CDCM        1838     A     
 CDCM     *                                                                                CDCM        1839     A     
 CDCM     *         IF IN CM, A VARIABLE-POSITION *CMM* BLOCK IS USED, AND IS              CDCM        1840     A     
 CDCM     *         INCREASED, WHEN NECESSARY, BY *FLINC* WORDS, UP TO THE                 CDCM        1841     A     
 CDCM     *         ALLOWED MAXIMUM.  IF IN LCM, THE SPACE IS OBTAINED DIRECTLY            CDCM        1842     A     
 CDCM     *         BY ISSUING *MEMORY* REQUESTS FOR *FLINL* WORDS, UP TO THE              CDCM        1843     A     
 CDCM     *         ALLOWED MAXIMUM.                                                       CDCM        1844     A     
 CDCM     *                                                                                CDCM        1845     A     
 CDCM     *         IF EITHER THE CM OR LCM AREA EXCEEDS THE ALLOWED MAXIMUM, THEN         CDCM        1846     A     
 CDCM     *         AN ERROR STATUS IS RETURNED, AND NO FURTHER ALLOCATION TAKES           CDCM        1847     A     
 CDCM     *         PLACE.                                                                 CDCM        1848     A     
 CDCM     *                                                                                CDCM        1849     A     
 CDCM     *                                                                                CDCM        1850     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1195    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        1851     A     
 CDCM     *                                                                                CDCM        1852     A     
 CDCM     *         EXIT   (X6) = 0 IF SPACE WAS OBTAINED.                                 CDCM        1853     A     
 CDCM     *                       -1 IF WORK SPACE OVERFLOW.                               CDCM        1854     A     
 CDCM     *                (B1) = 1.                                                       CDCM        1855     A     
 CDCM     *                IFWA = 0 IF WORK SPACE IS IN LCM.                               CDCM        1856     A     
 CDCM     *                       NZ FWA IF IN CM.                                         CDCM        1857     A     
 CDCM     *                                                                                CDCM        1858     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        1859     A     
 CDCM     *                B - 4, 5, 6, 7.                                                 CDCM        1860     A     
 CDCM     *                A - 1, 2, 3, 4, 5, 6, 7.                                        CDCM        1861     A     
 CDCM     *                                                                                CDCM        1862     A     
 CDCM     *         CALLS  CMM.ALV, CMM.GLV, SYS=.                                         CDCM        1863     A     
 CDCM                                                                                      CDCM        1864     A     
 CDCM                                                                                      CDCM        1865     A     
 CDCM      AWS      EQ     *+1S17      ENTRY / EXIT                                        CDCM        1866     A     
 CDCM               SA1    IMAX        MAXIMUM WORKSPACE SIZE                              CDCM        1867     A     
 CDCM               SA3    IFWA        WORKSPACE FWA                                       CDCM        1868     A     
 CDCM               SA4    AWSM        CURRENT WORKSPACE SIZE                              CDCM        1869     A     
 CDCM               IX6    X1-X4       (MAX) - (CURRENT)                                   CDCM        1870     A     
 CDCM               SB7    X3                                                              CDCM        1871     A     
 CDCM               ZR     X3,AWS3     IF FWA = 0, THEN WORKSPACE IS IN LCM                CDCM        1872     A     
 CDCM                                                                                      CDCM        1873     A     
 CDCM     *         CHECK IF ROOM FOR MORE CM WORKSPACE.                                   CDCM        1874     A     
 CDCM                                                                                      CDCM        1875     A     
 CDCM               SX7    FLINC       AMOUNT OF INCREASE FOR CM                           CDCM        1876     A     
 CDCM               ZR     X6,AWS5     IF CM WORKSPACE FULL                                CDCM        1877     A     
 CDCM                                                                                      CDCM        1878     A     
 CDCM     *         ALLOCATE ADDITIONAL CM WORKSPACE.                                      CDCM        1879     A     
 CDCM                                                                                      CDCM        1880     A     
 CDCM               IX2    X6-X7       (X7) = MIN (FLINC, (MAX-CURRENT) )                  CDCM        1881     A     
 CDCM               PL     X2,AWS1                                                         CDCM        1882     A     
 CDCM               BX7    X6                                                              CDCM        1883     A     
 CDCM      AWS1     IX6    X4+X7       UPDATE CURRENT SIZE                                 CDCM        1884     A     
 CDCM               SA6    A4                                                              CDCM        1885     A     
 CDCM               BX2    X7          (X2) = BLOCK-SIZE OR AMOUNT OF INCREASE             CDCM        1886     A     
 CDCM               NE     B7,B1,AWS2  IF NOT FIRST REQUEST FOR CM WORKSPACE               CDCM        1887     A     
 CDCM               SX3    3*1S6+1     SIZE-CODE = 3 (LWA CAN GROW OR SHRINK)              CDCM        1888     A     
 CDCM                                  TYPE-CODE = 1 (CMM MAINTAINS POINTER WORD)          CDCM        1889     A     
 CDCM               SX4    IFWA        ADDRESS OF POINTER WORD                             CDCM        1890     A     
 CDCM               RJ     =XCMM.ALV   ALLOCATE VARIABLE BLOCK                             CDCM        1891     A     
 CDCM               SX6    B0                                                              CDCM        1892     A     
 CDCM               EQ     AWS         RETURN                                              CDCM        1893     A     
 CDCM                                                                                      CDCM        1894     A     
 CDCM      AWS2     SA1    IFWA        (X1) = BLOCK-FWA                                    CDCM        1895     A     
 CDCM               RJ     =XCMM.GLV   GROW BLOCK AT LWA                                   CDCM        1896     A     
 CDCM               SX6    B0                                                              CDCM        1897     A     
 CDCM               EQ     AWS         RETURN                                              CDCM        1898     A     
 CDCM                                                                                      CDCM        1899     A     
 CDCM     *         CHECK IF ROOM FOR MORE LCM WORKSPACE.                                  CDCM        1900     A     
 CDCM                                                                                      CDCM        1901     A     
 CDCM      AWS3     SX7    FLINL       AMOUNT OF INCREASE FOR LCM                          CDCM        1902     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1196    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               ZR     X6,AWS5     IF ALREADY AT MAXIMUM                               CDCM        1903     A     
 CDCM                                                                                      CDCM        1904     A     
 CDCM     *         ALLOCATE ADDITIONAL SPACE FOR WORKSPACE IN LCM.                        CDCM        1905     A     
 CDCM                                                                                      CDCM        1906     A     
 CDCM               IX2    X6-X7       (X7) = MIN (FLINL, (MAX-CURRENT) )                  CDCM        1907     A     
 CDCM               PL     X2,AWS4                                                         CDCM        1908     A     
 CDCM               BX7    X6                                                              CDCM        1909     A     
 CDCM      AWS4     IX7    X4+X7       UPDATE CURRENT SIZE                                 CDCM        1910     A     
 CDCM               SA7    A4                                                              CDCM        1911     A     
 CDCM               LX7    30          FORM *MEMORY* REQUEST FOR NEW LCM FL                CDCM        1912     A     
 CDCM               SA7    MEMARG                                                          CDCM        1913     A     
 CDCM               MEMORY ECS,MEMARG,RCL  REQUEST LCM FL                                  CDCM        1914     A     
 CDCM               SX6    B0                                                              CDCM        1915     A     
 CDCM               EQ     AWS         RETURN                                              CDCM        1916     A     
 CDCM                                                                                      CDCM        1917     A     
 CDCM     *         WORKSPACE OVERFLOW.                                                    CDCM        1918     A     
 CDCM                                                                                      CDCM        1919     A     
 CDCM      AWS5     SX6    -B1                                                             CDCM        1920     A     
 CDCM               EQ     AWS         RETURN                                              CDCM        1921     A     
 CDCM                                                                                      CDCM        1922     A     
 CDCM      AWSM     CON    0           CURRENT SIZE OF CM OR LCM WORKSPACE                 CDCM        1923     A     
 CDCM      CVL      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        1924     A     
 CDCM     **        CALLS THE PP PROGRAM *CVL*.                                            CDCM        1925     A     
 CDCM     *                                                                                CDCM        1926     A     
 CDCM     *         ENTRY  (X1) = ADDRESS OF PARAMETER BLOCK.                              CDCM        1927     A     
 CDCM     *                (X2) = REQUEST.                                                 CDCM        1928     A     
 CDCM     *                (B1) = 1.                                                       CDCM        1929     A     
 CDCM     *                                                                                CDCM        1930     A     
 CDCM     *         EXIT   (B1) = 1.                                                       CDCM        1931     A     
 CDCM     *                                                                                CDCM        1932     A     
 CDCM     *         USES   X - 1, 2, 6.                                                    CDCM        1933     A     
 CDCM     *                B - NONE.                                                       CDCM        1934     A     
 CDCM     *                A - NONE.                                                       CDCM        1935     A     
 CDCM     *                                                                                CDCM        1936     A     
 CDCM     *         CALLS  SYS=.                                                           CDCM        1937     A     
 CDCM                                                                                      CDCM        1938     A     
 CDCM                                                                                      CDCM        1939     A     
 CDCM      CVL1     RJ     SYS=        MAKE RA+1 CALL                                      CDCM        1940     A     
 CDCM                                                                                      CDCM        1941     A     
 CDCM      CVL=     PS                 ENTRY/EXIT                                          CDCM        1942     A     
 CDCM               MX6    -18         POSITION PARAMETER BLOCK ADDRESS                    CDCM        1943     A     
 CDCM               BX1    -X6*X1                                                          CDCM        1944     A     
 CDCM               LX2    18                                                              CDCM        1945     A     
 CDCM               SX6    4RCVLP/16   SET *CVL* CALL                                      CDCM        1946     A     
 CDCM               BX1    X2+X1       MERGE REQUEST                                       CDCM        1947     A     
 CDCM               LX6    40                                                              CDCM        1948     A     
 CDCM               BX6    X6+X1                                                           CDCM        1949     A     
 CDCM               EQ     CVL1        MAKE CALL                                           CDCM        1950     A     
 CDCM      CWS      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        1951     A     
 CDCM     **        CWS - COMPUTE MAXIMUM SIZE FOR WORK SPACE.                             CDCM        1952     A     
 CDCM     *                                                                                CDCM        1953     A     
 CDCM     *         DETERMINES THE AMOUNT OF AVAILABLE WORK SPACE FOR THE                  CDCM        1954     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1197    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         INTERMEDIATE FILE.  IT IS ALLOCATED TO EITHER CM OR LCM, BUT           CDCM        1955     A     
 CDCM     *         NOT BOTH.  IF NOT ON A 180-CLASS MODEL OR A 176 (I.E., A MODEL         CDCM        1956     A     
 CDCM     *         WITH DIRECT-ACCESS LCM ACCESSIBLE VIA *RXI* OR *WXI* INSTRUC-          CDCM        1957     A     
 CDCM     *         TIONS), WORKSPACE MUST GO TO CM.  THE AMOUNT IS DETERMINED BY          CDCM        1958     A     
 CDCM     *         THE FOLLOWING:                                                         CDCM        1959     A     
 CDCM     *                                                                                CDCM        1960     A     
 CDCM     *           SPACE = MAX [MIN(AVAILCM,MAXC), MIN((MAXFLLCM-FUDL),MAXL)]           CDCM        1961     A     
 CDCM     *                                                                                CDCM        1962     A     
 CDCM     *         WHERE AVAILCM  = AVAILABLE AMOUNT OF CM (ACCORDING TO CMM).            CDCM        1963     A     
 CDCM     *               MAXC     = MAXIMUM AMOUNT OF CM THAT WILL BE USED                CDCM        1964     A     
 CDCM     *                          (INSTALLATION OPTION).                                CDCM        1965     A     
 CDCM     *               MAXFLLCM = LCM MAXFL.                                            CDCM        1966     A     
 CDCM     *               FUDL     = AMOUNT TO REDUCE LCM MAXFL TO ENSURE WE CAN           CDCM        1967     A     
 CDCM     *                          GET IT (INSTALLATION OPTION).                         CDCM        1968     A     
 CDCM     *               MAXL     = MAXIMUM AMOUNT OF LCM THAT WILL BE USED               CDCM        1969     A     
 CDCM     *                          (INSTALLATION OPTION).                                CDCM        1970     A     
 CDCM     *                                                                                CDCM        1971     A     
 CDCM     *                                                                                CDCM        1972     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        1973     A     
 CDCM     *                                                                                CDCM        1974     A     
 CDCM     *         EXIT   (B1) = 1.                                                       CDCM        1975     A     
 CDCM     *                IFWA = 0 IF WORKSPACE TO GO IN LCM.                             CDCM        1976     A     
 CDCM     *                       1 IF WORKSPACE TO GO IN CM.                              CDCM        1977     A     
 CDCM     *                IMAX = MAXIMUM ALLOWABLE SIZE OF WORKSPACE.                     CDCM        1978     A     
 CDCM     *                                                                                CDCM        1979     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        1980     A     
 CDCM     *                B - 7.                                                          CDCM        1981     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM        1982     A     
 CDCM     *                                                                                CDCM        1983     A     
 CDCM     *         CALLS  CMM.GFS, CVL=, SYS=.                                            CDCM        1984     A     
 CDCM                                                                                      CDCM        1985     A     
 CDCM                                                                                      CDCM        1986     A     
 CDCM      CWS      EQ     *+1S17      ENTRY / EXIT                                        CDCM        1987     A     
 CDCM               SX1    B1          GET SIZE OF LARGEST BLOCK THAT CMM WILL             CDCM        1988     A     
 CDCM               SX2    B0           ALLOCATE UP TO MAXFL                               CDCM        1989     A     
 CDCM               RJ     =XCMM.GFS                                                       CDCM        1990     A     
 CDCM               AX6    6                                                               CDCM        1991     A     
 CDCM               SX6    X6-1        ROUND DOWN 100-177B CM WORDS                        CDCM        1992     A     
 CDCM               LX6    6                                                               CDCM        1993     A     
 CDCM               SX4    MAXC        INSTALLATION-DEFINED MAXIMUM SIZE FOR CM            CDCM        1994     A     
 CDCM               IX3    X6-X4       (X6) = MIN (AVAILCM,MAXC)                           CDCM        1995     A     
 CDCM               MI     X3,CWS1                                                         CDCM        1996     A     
 CDCM               BX6    X4                                                              CDCM        1997     A     
 CDCM      CWS1     SB7    X6          SAVE CM VALUE                                       CDCM        1998     A     
 CDCM               GETMC  GETMCW      GET MACHINE CHARACTERISTICS                         CDCM        1999     A     
 CDCM               SA2    GETMCW                                                          CDCM        2000     A     
 CDCM               MX3    3           EXAMINE BITS 18-20 (180-CLASS OR 176)               CDCM        2001     A     
 CDCM               LX2    59-20                                                           CDCM        2002     A     
 CDCM               BX2    X3*X2                                                           CDCM        2003     A     
 CDCM               MX7    0           SET FOR ZERO AVAILABLE LCM                          CDCM        2004     A     
 CDCM               ZR     X2,CWS2     IF NOT RUNNING ON 180-CLASS OR 176 MODEL            CDCM        2005     A     
 CDCM               MEMORY ECS,MEMARG,RCL  GET MAXFL FOR LCM                               CDCM        2006     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1198    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA1    MEMARG                                                          CDCM        2007     A     
 CDCM               AX1    30                                                              CDCM        2008     A     
 CDCM               SX7    X1-FUDL                                                         CDCM        2009     A     
 CDCM               SX4    MAXL        INSTALLATION-DEFINED MAXIMUM LCM SIZE               CDCM        2010     A     
 CDCM               IX3    X7-X4       (X7) = MIN ( (MAXFLLCM-FUDL), MAXL)                 CDCM        2011     A     
 CDCM               MI     X3,CWS2                                                         CDCM        2012     A     
 CDCM               BX7    X4                                                              CDCM        2013     A     
 CDCM      CWS2     SX6    B0          SET FOR *IFWA* = 0 IF USING LCM                     CDCM        2014     A     
 CDCM               SX4    B7                                                              CDCM        2015     A     
 CDCM               IX3    X7-X4       LCM - CM                                            CDCM        2016     A     
 CDCM               PL     X3,CWS3     IF (LCM) .GE. (CM)                                  CDCM        2017     A     
 CDCM               SX6    B1          SET FOR *IFWA* = 1 IF USING CM                      CDCM        2018     A     
 CDCM               BX7    X4                                                              CDCM        2019     A     
 CDCM      CWS3     SA7    IMAX        SAVE WORKSPACE SIZE                                 CDCM        2020     A     
 CDCM               SA6    IFWA        SAVE CM / LCM INDICATOR                             CDCM        2021     A     
 CDCM               EQ     CWS         RETURN                                              CDCM        2022     A     
 CDCM                                                                                      CDCM        2023     A     
 CDCM      GETMCW   CON    0           *GETMC* ARGUMENT WORD                               CDCM        2024     A     
 CDCM      MEMARG   VFD    30/-1,30/0  *MEMORY* ARGUMENT WORD                              CDCM        2025     A     
 CDCM      RIF      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        2026     A     
 CDCM     **        RIF - READ INTERMEDIATE FILE.                                          CDCM        2027     A     
 CDCM     *                                                                                CDCM        2028     A     
 CDCM     *         READS ONE ENTRY FROM THE INTERMEDIATE FILE.  IF IN CM OR LCM,          CDCM        2029     A     
 CDCM     *         THE POSITION IS DETERMINED BY THE POINTERS AS INDICATED BELOW.         CDCM        2030     A     
 CDCM     *         IF ON A FILE, *RDW=* IS CALLED.                                        CDCM        2031     A     
 CDCM     *                                                                                CDCM        2032     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2033     A     
 CDCM     *                *IFWA*   = FWA OF THE WORKSPACE IF IN CM OR LCM.                CDCM        2034     A     
 CDCM     *                *IFETCH* = CURRENT POSITION IF IN CM OR LCM.                    CDCM        2035     A     
 CDCM     *                *ISIZE*  = LWA+1 OF DATA IF IN CM OR LCM.                       CDCM        2036     A     
 CDCM     *                                                                                CDCM        2037     A     
 CDCM     *         EXIT   (X1) = 0 IF ENTRY READ.                                         CDCM        2038     A     
 CDCM     *                       NZ IF AT END OF INTERMEDIATE FILE.                       CDCM        2039     A     
 CDCM     *                (B1) = 1.                                                       CDCM        2040     A     
 CDCM     *                ENTRY IS STORED AT *INTENT*.                                    CDCM        2041     A     
 CDCM     *                                                                                CDCM        2042     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        2043     A     
 CDCM     *                B - 2, 3, 4, 5, 6, 7.                                           CDCM        2044     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM        2045     A     
 CDCM     *                                                                                CDCM        2046     A     
 CDCM     *         CALLS  RDW=.                                                           CDCM        2047     A     
 CDCM                                                                                      CDCM        2048     A     
 CDCM                                                                                      CDCM        2049     A     
 CDCM     *         READ INTERMEDIATE ENTRY FROM LCM.                                      CDCM        2050     A     
 CDCM                                                                                      CDCM        2051     A     
 CDCM      RIF1     SX7    B1          (X7) = 1                                            CDCM        2052     A     
 CDCM               RX6    X4          READ 1ST WORD                                       CDCM        2053     A     
 CDCM               SB4    B1          (B4) = NUMBER OF WORDS READ                         CDCM        2054     A     
 CDCM               SA6    INTENT      STORE 1ST WORD                                      CDCM        2055     A     
 CDCM      RIF2     IX4    X4+X7       ADVANCE LCM FETCH ADDRESS                           CDCM        2056     A     
 CDCM               RX6    X4          READ WORD                                           CDCM        2057     A     
 CDCM               SB4    B4+B1       ADVANCE WORD COUNT                                  CDCM        2058     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1199    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA6    A6+B1       STORE WORD                                          CDCM        2059     A     
 CDCM               LT     B4,B7,RIF2  LOOP                                                CDCM        2060     A     
 CDCM               MX1    0           (X1) = 0 FOR TRANSFER COMPLETE                      CDCM        2061     A     
 CDCM                                                                                      CDCM        2062     A     
 CDCM     *         ENTRY / EXIT.                                                          CDCM        2063     A     
 CDCM                                                                                      CDCM        2064     A     
 CDCM      RIF      EQ     *+1S17      ENTRY / EXIT                                        CDCM        2065     A     
 CDCM               SA2    SP                                                              CDCM        2066     A     
 CDCM               NZ     X2,RIF4     IF INTERMEDIATE ON FILE                             CDCM        2067     A     
 CDCM               SA2    IFWA        NZ IF CM, ZR IF LCM                                 CDCM        2068     A     
 CDCM               SA3    ISIZE       LENGTH OF STORED DATA                               CDCM        2069     A     
 CDCM               SA4    IFETCH      (X4) = FETCH POINTER                                CDCM        2070     A     
 CDCM               IX6    X4-X3                                                           CDCM        2071     A     
 CDCM               SX1    -B1         SET FOR EOI STATUS                                  CDCM        2072     A     
 CDCM               PL     X6,RIF      IF AT END OF INTERMEDIATE FILE                      CDCM        2073     A     
 CDCM               SB7    INTLTH+LINELTH  (B7) = ENTRY LENGTH                             CDCM        2074     A     
 CDCM               SX7    X4+B7       ADVANCE FETCH POINTER                               CDCM        2075     A     
 CDCM               SA7    A4                                                              CDCM        2076     A     
 CDCM               ZR     X2,RIF1     IF INTERMEDIATE IN LCM                              CDCM        2077     A     
 CDCM               IX2    X4+X2       (X2) = SOURCE                                       CDCM        2078     A     
 CDCM               SX3    INTENT      (X3) = DESTINATION                                  CDCM        2079     A     
 CDCM               MX7    -1                                                              CDCM        2080     A     
 CDCM      RIF3     SA1    X2          MOVE LOOP                                           CDCM        2081     A     
 CDCM               BX6    X1                                                              CDCM        2082     A     
 CDCM               SA6    X3                                                              CDCM        2083     A     
 CDCM               IX2    X2-X7       ADVANCE SOURCE                                      CDCM        2084     A     
 CDCM               IX3    X3-X7       ADVANCE DESTINATION                                 CDCM        2085     A     
 CDCM               SB7    B7-B1                                                           CDCM        2086     A     
 CDCM               NZ     B7,RIF3     LOOP                                                CDCM        2087     A     
 CDCM               MX1    0           (X1) = 0 FOR TRANSFER COMPLETE                      CDCM        2088     A     
 CDCM               EQ     RIF         RETURN                                              CDCM        2089     A     
 CDCM                                                                                      CDCM        2090     A     
 CDCM     *         READ INTERMEDIATE FROM FILE.                                           CDCM        2091     A     
 CDCM                                                                                      CDCM        2092     A     
 CDCM      RIF4     READW  X2,INTENT,INTLTH+LINELTH                                        CDCM        2093     A     
 CDCM               EQ     RIF         RETURN, (X1) = STATUS                               CDCM        2094     A     
 CDCM                                                                                      CDCM        2095     A     
 CDCM      INTENT   BSS    INTLTH      INTERMEDIATE FILE ENTRY                             CDCM        2096     A     
 CDCM      ILINE    BSS    LINELTH     LINE IMAGE PART OF INTERMEDIATE FILE ENTRY          CDCM        2097     A     
 CDCM      RWF      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        2098     A     
 CDCM     **        RWF - REWIND INTERMEDIATE FILE.                                        CDCM        2099     A     
 CDCM     *                                                                                CDCM        2100     A     
 CDCM     *         IF THE INTERMEDIATE FILE IS IN CM OR LCM, THE POINTERS ARE             CDCM        2101     A     
 CDCM     *         RESET.  IF ON MASS-STORAGE, A *REWIND* IS ISSUED, FOLLOWED BY          CDCM        2102     A     
 CDCM     *         A *READ* TO BEGIN THE READING OF DATA WHICH ALWAYS FOLLOWS.            CDCM        2103     A     
 CDCM     *                                                                                CDCM        2104     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2105     A     
 CDCM     *                                                                                CDCM        2106     A     
 CDCM     *         EXIT   (B1) = 1.                                                       CDCM        2107     A     
 CDCM     *                                                                                CDCM        2108     A     
 CDCM     *         USES   X - 1, 2, 6, 7.                                                 CDCM        2109     A     
 CDCM     *                B - NONE.                                                       CDCM        2110     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1200    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *                A - 1, 2, 6, 7.                                                 CDCM        2111     A     
 CDCM     *                                                                                CDCM        2112     A     
 CDCM     *         CALLS  CIO=.                                                           CDCM        2113     A     
 CDCM                                                                                      CDCM        2114     A     
 CDCM                                                                                      CDCM        2115     A     
 CDCM      RWF      EQ     *+1S17      ENTRY / EXIT                                        CDCM        2116     A     
 CDCM               SA1    INEXT       SET WORKSPACE SIZE FOR READ                         CDCM        2117     A     
 CDCM               MX7    0           RESET FETCH AND STORE POINTERS                      CDCM        2118     A     
 CDCM               BX6    X1                                                              CDCM        2119     A     
 CDCM               SA6    ISIZE                                                           CDCM        2120     A     
 CDCM               SA7    A1                                                              CDCM        2121     A     
 CDCM               SA7    IFETCH                                                          CDCM        2122     A     
 CDCM               SA2    SP          CHECK PREVIOUS INTERMEDIATE (SCRATCH-1)             CDCM        2123     A     
 CDCM               ZR     X2,RWF1     IF SCRATCH-1 NOT USED                               CDCM        2124     A     
 CDCM               RETURN X2          RETURN SCRATCH-1                                    CDCM        2125     A     
 CDCM                                                                                      CDCM        2126     A     
 CDCM      RWF1     SA2    SP+1        SET INTERMEDIATE JUST WRITTEN TO NOW BE             CDCM        2127     A     
 CDCM               BX7    X2           READ (SCRATCH-2 -> SCRATCH-1)                      CDCM        2128     A     
 CDCM               SA7    A2-B1                                                           CDCM        2129     A     
 CDCM               MX6    0           CLEAR SCRATCH-2 TO START OVER IN CM/LCM             CDCM        2130     A     
 CDCM               SA6    A2                                                              CDCM        2131     A     
 CDCM               ZR     X2,RWF      IF SCRATCH-2 NOT ON FILE                            CDCM        2132     A     
 CDCM               REWIND X2          REWIND SCRATCH-2                                    CDCM        2133     A     
 CDCM               READ   X2          BEGIN READ OF INTERMEDIATE                          CDCM        2134     A     
 CDCM               EQ     RWF         RETURN                                              CDCM        2135     A     
 CDCM      SIF      TITLE  INTERMEDIATE FILE AND TABLE MANAGEMENT.                         CDCM        2136     A     
 CDCM     **        SIF - STORE INTERMEDIATE FILE.                                         CDCM        2137     A     
 CDCM     *                                                                                CDCM        2138     A     
 CDCM     *         STORES INFORMATION INTO THE INTERMEDIATE FILE, EITHER CM, LCM,         CDCM        2139     A     
 CDCM     *         OR MASS-STORAGE.  INCREASES THE WORK SPACE IF NECESSARY.               CDCM        2140     A     
 CDCM     *         IF THE WORKSPACE CANNOT BE INCREASED, THEN THE WORKSPACE IS            CDCM        2141     A     
 CDCM     *         WRITTEN TO A FILE, AND THAT FILE IS USED FOR THE REMAINDER OF          CDCM        2142     A     
 CDCM     *         THE CURRENT PROGRAM UNIT.                                              CDCM        2143     A     
 CDCM     *                                                                                CDCM        2144     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2145     A     
 CDCM     *                (B2) = FWA OF DATA                                              CDCM        2146     A     
 CDCM     *                (B3) = LENGTH OF DATA.                                          CDCM        2147     A     
 CDCM     *                *IFWA*   = FWA OF THE WORKSPACE IF IN CM OR LCM.                CDCM        2148     A     
 CDCM     *                *INEXT*  = CURRENT STORE POINTER IF IN CM OR LCM.               CDCM        2149     A     
 CDCM     *                                                                                CDCM        2150     A     
 CDCM     *         EXIT   (B1) = 1.                                                       CDCM        2151     A     
 CDCM     *                                                                                CDCM        2152     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        2153     A     
 CDCM     *                B - 4, 5, 6, 7.                                                 CDCM        2154     A     
 CDCM     *                A - 1, 2, 3, 4, 5, 6, 7.                                        CDCM        2155     A     
 CDCM     *                                                                                CDCM        2156     A     
 CDCM     *         CALLS  AWS, WTO=, WTW=.                                                CDCM        2157     A     
 CDCM                                                                                      CDCM        2158     A     
 CDCM                                                                                      CDCM        2159     A     
 CDCM      SIF      EQ     *+1S17      ENTRY / EXIT                                        CDCM        2160     A     
 CDCM               SA2    SP+1                                                            CDCM        2161     A     
 CDCM               NZ     X2,SIF11    IF WORKSPACE ON FILE                                CDCM        2162     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1201    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM                                                                                      CDCM        2163     A     
 CDCM     *         CHECK IF ROOM TO STORE ENTRY IN CURRENT WORKSPACE.                     CDCM        2164     A     
 CDCM                                                                                      CDCM        2165     A     
 CDCM      SIF1     SA1    INEXT       NEXT AVAILABLE WORD IN WORK SPACE                   CDCM        2166     A     
 CDCM               SA2    AWSM        CURRENT SIZE                                        CDCM        2167     A     
 CDCM               SX1    X1+B3                                                           CDCM        2168     A     
 CDCM               IX7    X2-X1                                                           CDCM        2169     A     
 CDCM               PL     X7,SIF7     IF ROOM FOR THIS INSERTION                          CDCM        2170     A     
 CDCM                                                                                      CDCM        2171     A     
 CDCM     *         INCREASE WORKSPACE SIZE, IF POSSIBLE.                                  CDCM        2172     A     
 CDCM                                                                                      CDCM        2173     A     
 CDCM               RJ     AWS         ALLOCATE WORK SPACE                                 CDCM        2174     A     
 CDCM               MI     X6,SIF2     IF WORKSPACE OVERFLOW, COPY TO FILE                 CDCM        2175     A     
 CDCM               EQ     SIF1        TRY AGAIN                                           CDCM        2176     A     
 CDCM                                                                                      CDCM        2177     A     
 CDCM     *         COPY WORKSPACE TO A FILE.                                              CDCM        2178     A     
 CDCM                                                                                      CDCM        2179     A     
 CDCM      SIF2     SX6    B2          SAVE B2 AND B3                                      CDCM        2180     A     
 CDCM               SX7    B3                                                              CDCM        2181     A     
 CDCM               SA6    SIFA                                                            CDCM        2182     A     
 CDCM               SA7    A6+B1                                                           CDCM        2183     A     
 CDCM               SX7    X           SET FOR SCRATCH-1                                   CDCM        2184     A     
 CDCM               SA1    SF                                                              CDCM        2185     A     
 CDCM               ZR     X1,SIF3     IF TO USE SCRATCH-1                                 CDCM        2186     A     
 CDCM               SX7    Y           SET FOR SCRATCH-2                                   CDCM        2187     A     
 CDCM      SIF3     SA7    SP+1        SET FILE NAME FOR INTERMEDIATE WRITE                CDCM        2188     A     
 CDCM               SX3    B1                                                              CDCM        2189     A     
 CDCM               BX6    X1-X3       REVERSE FILE FLAG                                   CDCM        2190     A     
 CDCM               SA6    A1                                                              CDCM        2191     A     
 CDCM               SX2    X7          (X2) = FET ADDRESS                                  CDCM        2192     A     
 CDCM               SA1    IFWA                                                            CDCM        2193     A     
 CDCM               SA3    INEXT       (X3) = STORE POINTER = AMOUNT TO TRANSFER           CDCM        2194     A     
 CDCM               ZR     X1,SIF5     IF WORKSPACE IN LCM                                 CDCM        2195     A     
 CDCM               WRITEW X2,X1,X3                                                        CDCM        2196     A     
 CDCM      SIF4     SA2    SP+1        (X2) = FET ADDRESS                                  CDCM        2197     A     
 CDCM               SA3    SIFA        RESTORE B2 AND B3                                   CDCM        2198     A     
 CDCM               SA4    A3+B1                                                           CDCM        2199     A     
 CDCM               SB2    X3                                                              CDCM        2200     A     
 CDCM               SB3    X4                                                              CDCM        2201     A     
 CDCM               EQ     SIF11       GO WRITE CURRENT ENTRY TO FILE                      CDCM        2202     A     
 CDCM                                                                                      CDCM        2203     A     
 CDCM      SIF5     SX0    B0          (X0) = TRANSFER ADDRESS                             CDCM        2204     A     
 CDCM               BX5    X3          (X5) = AMOUNT TO TRANSFER                           CDCM        2205     A     
 CDCM               SB2    X7          (B2) = FET ADDRESS                                  CDCM        2206     A     
 CDCM      SIF6     RX6    X0          READ WORD FROM LCM                                  CDCM        2207     A     
 CDCM               WRITEO B2          WRITE WORD FROM (X6)                                CDCM        2208     A     
 CDCM               SX1    B1                                                              CDCM        2209     A     
 CDCM               IX0    X0+X1       ADVANCE TRANSFER ADDRESS                            CDCM        2210     A     
 CDCM               IX5    X5-X1       REDUCE TRANSFER COUNT                               CDCM        2211     A     
 CDCM               NZ     X5,SIF6     LOOP                                                CDCM        2212     A     
 CDCM               EQ     SIF4        TRANSFER COMPLETE                                   CDCM        2213     A     
 CDCM                                                                                      CDCM        2214     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1202    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         ADD ENTRY TO WORKSPACE.                                                CDCM        2215     A     
 CDCM                                                                                      CDCM        2216     A     
 CDCM      SIF7     SA1    IFWA                                                            CDCM        2217     A     
 CDCM               SA2    INEXT       STORE POINTER                                       CDCM        2218     A     
 CDCM               IX6    X1+X2                                                           CDCM        2219     A     
 CDCM               SB7    X6          INITIALIZE STORE ADDRESS                            CDCM        2220     A     
 CDCM               SA3    B2-B1       INITIALIZE FETCH ADDRESS                            CDCM        2221     A     
 CDCM               SB4    B0          INITIALIZE COUNT                                    CDCM        2222     A     
 CDCM               SX7    X2+B3       ADVANCE *INEXT*                                     CDCM        2223     A     
 CDCM               SA7    A2                                                              CDCM        2224     A     
 CDCM               ZR     X1,SIF9     IF IN LCM                                           CDCM        2225     A     
 CDCM      SIF8     SA3    A3+B1       FETCH WORD                                          CDCM        2226     A     
 CDCM               BX6    X3                                                              CDCM        2227     A     
 CDCM               SA6    B7          STORE WORD                                          CDCM        2228     A     
 CDCM               SB4    B4+B1       ADVANCE COUNT                                       CDCM        2229     A     
 CDCM               SB7    B7+B1       ADVANCE STORE ADDRESS                               CDCM        2230     A     
 CDCM               LT     B4,B3,SIF8  LOOP                                                CDCM        2231     A     
 CDCM               EQ     SIF         RETURN                                              CDCM        2232     A     
 CDCM                                                                                      CDCM        2233     A     
 CDCM      SIF9     SA3    A3+B1       FETCH FIRST WORD                                    CDCM        2234     A     
 CDCM               SX7    X2          INITIALIZE STORE ADDRESS                            CDCM        2235     A     
 CDCM      SIF10    WX3    X7          STORE WORD                                          CDCM        2236     A     
 CDCM               SB4    B4+B1       ADVANCE COUNT                                       CDCM        2237     A     
 CDCM               SA3    A3+B1       FETCH NEXT WORD                                     CDCM        2238     A     
 CDCM               SX7    X7+B1       ADVANCE STORE ADDRESS                               CDCM        2239     A     
 CDCM               LT     B4,B3,SIF10 LOOP                                                CDCM        2240     A     
 CDCM               EQ     SIF         RETURN                                              CDCM        2241     A     
 CDCM                                                                                      CDCM        2242     A     
 CDCM     *         WRITE INTERMEDIATE ENTRY TO FILE.                                      CDCM        2243     A     
 CDCM                                                                                      CDCM        2244     A     
 CDCM      SIF11    WRITEW X2,B2,B3    WRITE INTERMEDIATE                                  CDCM        2245     A     
 CDCM               EQ     SIF         RETURN                                              CDCM        2246     A     
 CDCM                                                                                      CDCM        2247     A     
 CDCM      SIFA     CON    0,0         B2, B3 SAVE AREA                                    CDCM        2248     A     
 CDCM      INF      TITLE  INPUT/OUTPUT ROUTINES.                                          CDCM        2249     A     
 CDCM     **        INF - INITIALIZE FILES.                                                CDCM        2250     A     
 CDCM     *                                                                                CDCM        2251     A     
 CDCM     *         PERFORMS INITIALIZATION OF FILES USED BY CDCM AS FOLLOWS:              CDCM        2252     A     
 CDCM     *                                                                                CDCM        2253     A     
 CDCM     *         - FOR THE INPUT FILE:                                                  CDCM        2254     A     
 CDCM     *           - GETS THE INPUT FILE NAME FROM ENTRY POINT *LFNI* AND               CDCM        2255     A     
 CDCM     *             STORES IT IN FET *I*.                                              CDCM        2256     A     
 CDCM     *           - ISSUES A *REWIND* ON *I* (UNLESS THE FILE NAME = *INPUT*).         CDCM        2257     A     
 CDCM     *           - ISSUES THE FIRST *READ* ON *I*.                                    CDCM        2258     A     
 CDCM     *         - IF LIST OUTPUT IS SPECIFIED:                                         CDCM        2259     A     
 CDCM     *           - GETS THE LIST FILE NAME FROM ENTRY POINT *LFNL* AND                CDCM        2260     A     
 CDCM     *             STORES IT IN FET *L*.                                              CDCM        2261     A     
 CDCM     *           - DETERMINES PRINT DENSITY TO USE (VIA CALL TO *GETPAGE*).           CDCM        2262     A     
 CDCM     *             IF 8LPI, WRITES CONTROL CHARACTER TO LIST FILE.                    CDCM        2263     A     
 CDCM     *           - PLACES THE DATE AND TIME IN TITLE LINE FOR LIST FILE.              CDCM        2264     A     
 CDCM     *         - FOR THE SCRATCH FILES, WHICH MAY OR MAY NOT BE NEEDED:               CDCM        2265     A     
 CDCM     *           - STORES THE TWO FILE NAMES DEFINED BY *DFLTX* AND *DFLTY*           CDCM        2266     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1203    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *             IN FETS *X* AND *Y*, RESPECTIVELY, AND ISSUES A *RETURN*           CDCM        2267     A     
 CDCM     *             ON EACH OF THEM.                                                   CDCM        2268     A     
 CDCM     *                                                                                CDCM        2269     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2270     A     
 CDCM     *                (LFNI) = NAME OF INPUT FILE.                                    CDCM        2271     A     
 CDCM     *                (LFNL) = NAME OF LIST FILE.                                     CDCM        2272     A     
 CDCM     *                                                                                CDCM        2273     A     
 CDCM     *         EXIT   (B1) = 1.                                                       CDCM        2274     A     
 CDCM     *                                                                                CDCM        2275     A     
 CDCM     *         USES   X - ALL.                                                        CDCM        2276     A     
 CDCM     *                B - ALL.                                                        CDCM        2277     A     
 CDCM     *                A - ALL.                                                        CDCM        2278     A     
 CDCM     *                                                                                CDCM        2279     A     
 CDCM     *         CALLS  CIO=, CPM=, SYS=, WTW=.                                         CDCM        2280     A     
 CDCM                                                                                      CDCM        2281     A     
 CDCM                                                                                      CDCM        2282     A     
 CDCM      INF      EQ     *+1S17      ENTRY / EXIT                                        CDCM        2283     A     
 CDCM               SA1    LFNI        NAME OF INPUT FILE                                  CDCM        2284     A     
 CDCM               SA2    I                                                               CDCM        2285     A     
 CDCM               MX0    42          SAVE LOWER 18 BITS OF FET(0)                        CDCM        2286     A     
 CDCM               BX6    -X0*X2                                                          CDCM        2287     A     
 CDCM               BX6    X6+X1                                                           CDCM        2288     A     
 CDCM               SA6    A2                                                              CDCM        2289     A     
 CDCM               SA4    =0LINPUT                                                        CDCM        2290     A     
 CDCM               IX3    X1-X4                                                           CDCM        2291     A     
 CDCM               ZR     X3,INF1     IF NAME = *INPUT*, DO NOT REWIND                    CDCM        2292     A     
 CDCM               REWIND I                                                               CDCM        2293     A     
 CDCM      INF1     READ   I           INITIATE FIRST READ (AKA 'PRIME THE PUMP')          CDCM        2294     A     
 CDCM               SA1    LFNL        NAME OF OUTPUT FILE                                 CDCM        2295     A     
 CDCM               ZR     X1,INF3     IF NO LIST OUTPUT                                   CDCM        2296     A     
 CDCM               SA2    L                                                               CDCM        2297     A     
 CDCM               MX0    42          SAVE LOWER 18 BITS OF FET(0)                        CDCM        2298     A     
 CDCM               BX6    -X0*X2                                                          CDCM        2299     A     
 CDCM               BX6    X6+X1                                                           CDCM        2300     A     
 CDCM               SA6    A2                                                              CDCM        2301     A     
 CDCM               GETPAGE  WRTEMP    DETERMINE PRINT DENSITY TO USE                      CDCM        2302     A     
 CDCM               SA1    WRTEMP                                                          CDCM        2303     A     
 CDCM               MX4    -8                                                              CDCM        2304     A     
 CDCM               AX1    12+8        POSITION TO *PS*                                    CDCM        2305     A     
 CDCM               BX6    -X4*X1                                                          CDCM        2306     A     
 CDCM               SA6    LINEMAX                                                         CDCM        2307     A     
 CDCM               SA6    LINECT      SET TO PUT OUT TITLE FIRST TIME                     CDCM        2308     A     
 CDCM               MX4    -4                                                              CDCM        2309     A     
 CDCM               AX1    8           POSITION TO *PD*                                    CDCM        2310     A     
 CDCM               BX6    -X4*X1                                                          CDCM        2311     A     
 CDCM               AX6    3           0 IF 6LPI, 1 IF 8LPI                                CDCM        2312     A     
 CDCM               SA6    PAGEPD                                                          CDCM        2313     A     
 CDCM               ZR     X6,INF2     IF 6LPI                                             CDCM        2314     A     
 CDCM               WRITEW L,LPI8,1    WRITE PAGE CONTROL FOR 8LPI                         CDCM        2315     A     
 CDCM      INF2     DATE   TDATE       GET DATE FOR TITLE                                  CDCM        2316     A     
 CDCM               CLOCK  TTIME       GET TIME FOR TITLE                                  CDCM        2317     A     
 CDCM      INF3     SA1    =0L"DFLTX"  NAME OF SCRATCH FILE 1                              CDCM        2318     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1204    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA3    X                                                               CDCM        2319     A     
 CDCM               MX0    42          SAVE LOWER 18 BITS OF FET(0)                        CDCM        2320     A     
 CDCM               BX6    -X0*X3                                                          CDCM        2321     A     
 CDCM               BX6    X6+X1                                                           CDCM        2322     A     
 CDCM               SA6    A3                                                              CDCM        2323     A     
 CDCM               RETURN A3,RCL      RETURN SCRATCH FILE 1                               CDCM        2324     A     
 CDCM               SA2    =0L"DFLTY"  NAME OF SCRATCH FILE 2                              CDCM        2325     A     
 CDCM               SA4    Y                                                               CDCM        2326     A     
 CDCM               BX7    -X0*X4                                                          CDCM        2327     A     
 CDCM               BX7    X7+X2                                                           CDCM        2328     A     
 CDCM               SA7    A4                                                              CDCM        2329     A     
 CDCM               RETURN A4,RCL      RETURN SCRATCH FILE 2                               CDCM        2330     A     
 CDCM               EQ     INF         RETURN                                              CDCM        2331     A     
 CDCM      NXTLINE  TITLE  INPUT/OUTPUT ROUTINES.                                          CDCM        2332     A     
 CDCM     **        NXTLINE - READ NEXT LINE.                                              CDCM        2333     A     
 CDCM     *                                                                                CDCM        2334     A     
 CDCM     *         READS THE NEXT LINE OF THE INPUT FILE INTO THE WORKING                 CDCM        2335     A     
 CDCM     *         BUFFER.  LINES ARE IGNORED IF THEY CONSIST OF ANY OF THE               CDCM        2336     A     
 CDCM     *         FOLLOWING:                                                             CDCM        2337     A     
 CDCM     *                                                                                CDCM        2338     A     
 CDCM     *         - ALL-BLANK LINE.                                                      CDCM        2339     A     
 CDCM     *         - * IN COLUMN 1 (COMMENT).                                             CDCM        2340     A     
 CDCM     *         - , IN COLUMN 1 (CONTINUATION LINES CURRENTLY IGNORED).                CDCM        2341     A     
 CDCM     *                                                                                CDCM        2342     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2343     A     
 CDCM     *                                                                                CDCM        2344     A     
 CDCM     *         EXIT   (X1) = 0  - LINE READ INTO *ILINE*.                             CDCM        2345     A     
 CDCM     *                     = NZ - EOF/EOI ENCOUNTERED.                                CDCM        2346     A     
 CDCM     *                (B1) = 1.                                                       CDCM        2347     A     
 CDCM     *                                                                                CDCM        2348     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        2349     A     
 CDCM     *                B - 2, 3, 4, 5, 6, 7.                                           CDCM        2350     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM        2351     A     
 CDCM     *                                                                                CDCM        2352     A     
 CDCM     *         CALLS  CIO=, RDH=.                                                     CDCM        2353     A     
 CDCM                                                                                      CDCM        2354     A     
 CDCM                                                                                      CDCM        2355     A     
 CDCM      NXTLINE  EQ     *+1S17      ENTRY / EXIT                                        CDCM        2356     A     
 CDCM      NXT1     READH  I,ILINE,LINELTH  READ SOURCE LINE TO WORKING BUFFER             CDCM        2357     A     
 CDCM               ZR     X1,NXT2     IF DATA READ (NO EOR/EOF/EOI)                       CDCM        2358     A     
 CDCM               MI     X1,NXTLINE  IF EOF/EOI, EXIT                                    CDCM        2359     A     
 CDCM               READ   I           RE-ISSUE THE READ                                   CDCM        2360     A     
 CDCM               EQ     NXT1        LOOP                                                CDCM        2361     A     
 CDCM                                                                                      CDCM        2362     A     
 CDCM      NXT2     SA4    ILINE       CHECK FOR LINES TO BE IGNORED                       CDCM        2363     A     
 CDCM               MX2    -6                                                              CDCM        2364     A     
 CDCM               LX4    6                                                               CDCM        2365     A     
 CDCM               BX3    -X2*X4      1ST CHAR OF LINE                                    CDCM        2366     A     
 CDCM               SX6    X3-1R*                                                          CDCM        2367     A     
 CDCM               ZR     X6,NXT1     SKIP IF * IN COL 1                                  CDCM        2368     A     
 CDCM               SX7    X3-1R,                                                          CDCM        2369     A     
 CDCM               ZR     X7,NXT1     SKIP IF , IN COL 1                                  CDCM        2370     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1205    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               EQ     NXTLINE     RETURN, (X1) = 0                                    CDCM        2371     A     
 CDCM      WRITEX   TITLE  INPUT/OUTPUT ROUTINES.                                          CDCM        2372     A     
 CDCM     **        WRITEX - COMPLETE LIST FILE.                                           CDCM        2373     A     
 CDCM     *                                                                                CDCM        2374     A     
 CDCM     *          - WRITES LINE CONTAINING COUNT OF POTENTIAL CODE-MODIFICATION         CDCM        2375     A     
 CDCM     *            PROBLEMS.                                                           CDCM        2376     A     
 CDCM     *          - WRITES ** PRINT LIMIT EXCEEDED ** LINE IF NECESSARY.                CDCM        2377     A     
 CDCM     *          - RESETS PRINT DENSITY IF IT WAS SET TO 8LPI.                         CDCM        2378     A     
 CDCM     *          - ISSUES EOR WRITE.                                                   CDCM        2379     A     
 CDCM     *                                                                                CDCM        2380     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2381     A     
 CDCM     *                                                                                CDCM        2382     A     
 CDCM     *         EXIT   NONE.                                                           CDCM        2383     A     
 CDCM     *                                                                                CDCM        2384     A     
 CDCM     *         USES   X - 0, 1, 2, 3, 4, 6, 7.                                        CDCM        2385     A     
 CDCM     *                B - 2, 3, 4, 5, 6, 7.                                           CDCM        2386     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM        2387     A     
 CDCM     *                                                                                CDCM        2388     A     
 CDCM     *         CALLS  CDD=, CIO=, WRTITL, WTW=.                                       CDCM        2389     A     
 CDCM                                                                                      CDCM        2390     A     
 CDCM                                                                                      CDCM        2391     A     
 CDCM      WRITEX   EQ     *+1S17      ENTRY / EXIT                                        CDCM        2392     A     
 CDCM               SA2    PRINTL      PRINT LIMIT                                         CDCM        2393     A     
 CDCM               SA1    PRINTCT     ACTUAL NUMBER OF LINES DETECTED                     CDCM        2394     A     
 CDCM               IX0    X2-X1                                                           CDCM        2395     A     
 CDCM               RJ     =XCDD=      CONVERT ACTUAL TO DECIMAL DISPLAY                   CDCM        2396     A     
 CDCM               MX7    8*6         SET TO PRINT SHORTER LINE                           CDCM        2397     A     
 CDCM               SB7    ELINEL1                                                         CDCM        2398     A     
 CDCM               PL     X0,WTX1     IF PRINT LIMIT NOT EXCEEDED                         CDCM        2399     A     
 CDCM               SA2    LOOPT                                                           CDCM        2400     A     
 CDCM               NZ     X2,WTX1     IF SHORT LISTING SELECTED                           CDCM        2401     A     
 CDCM               MX7    10*6        SET TO PRINT LONGER LINE                            CDCM        2402     A     
 CDCM               SB7    ELINEL2                                                         CDCM        2403     A     
 CDCM      WTX1     BX7    X7*X4                                                           CDCM        2404     A     
 CDCM               SA7    ELINEV      STORE COUNT IN LINE                                 CDCM        2405     A     
 CDCM               SX0    B7          (X0) = LINE LENGTH                                  CDCM        2406     A     
 CDCM               SA2    LINEMAX                                                         CDCM        2407     A     
 CDCM               SA3    LINECT                                                          CDCM        2408     A     
 CDCM               IX6    X2-X3                                                           CDCM        2409     A     
 CDCM               SX6    X6-3                                                            CDCM        2410     A     
 CDCM               PL     X6,WTX2     IF FINAL LINE WILL FIT ON THIS PAGE                 CDCM        2411     A     
 CDCM               RJ     WRTITL                                                          CDCM        2412     A     
 CDCM      WTX2     WRITEW L,ELINE,X0  WRITE FINAL LINE                                    CDCM        2413     A     
 CDCM               SA1    PAGEPD                                                          CDCM        2414     A     
 CDCM               ZR     X1,WTX3     IF 6LPI                                             CDCM        2415     A     
 CDCM               WRITEW L,LPI6,1    RESET PRINTER CONTROL TO 6LPI                       CDCM        2416     A     
 CDCM      WTX3     WRITER L,RCL       WRITE END OF RECORD                                 CDCM        2417     A     
 CDCM               EQ     WRITEX      RETURN                                              CDCM        2418     A     
 CDCM      WRLINE   TITLE  INPUT/OUTPUT ROUTINES.                                          CDCM        2419     A     
 CDCM     **        WRLINE - WRITE LINE TO LIST FILE.                                      CDCM        2420     A     
 CDCM     *                                                                                CDCM        2421     A     
 CDCM     *         WRITES A LINE TO THE LIST FILE VIA *WRITEH*.  KEEPS TRACK OF           CDCM        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/28. 19.11.32.      PAGE1206    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         LINE COUNT AND CALLS *WRTITL* WHEN NECESSARY TO START A NEW            CDCM        2423     A     
 CDCM     *         PAGE.                                                                  CDCM        2424     A     
 CDCM     *                                                                                CDCM        2425     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2426     A     
 CDCM     *                (B6) = FWA OF LINE.                                             CDCM        2427     A     
 CDCM     *                (B7) = LINE LENGTH IN WORDS.                                    CDCM        2428     A     
 CDCM     *                                                                                CDCM        2429     A     
 CDCM     *         EXIT   NONE.                                                           CDCM        2430     A     
 CDCM     *                                                                                CDCM        2431     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        2432     A     
 CDCM     *                B - 2, 3, 4, 5, 6, 7.                                           CDCM        2433     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM        2434     A     
 CDCM     *                                                                                CDCM        2435     A     
 CDCM     *         CALLS  WRTITL, WTH=.                                                   CDCM        2436     A     
 CDCM                                                                                      CDCM        2437     A     
 CDCM                                                                                      CDCM        2438     A     
 CDCM      WRLINE   EQ     *+1S17      ENTRY / EXIT                                        CDCM        2439     A     
 CDCM               SA4    LINECT      ADVANCE LINE/PAGE COUNT                             CDCM        2440     A     
 CDCM               SA3    LINEMAX                                                         CDCM        2441     A     
 CDCM               SX6    X4+B1                                                           CDCM        2442     A     
 CDCM               SA6    A4                                                              CDCM        2443     A     
 CDCM               IX2    X4-X3                                                           CDCM        2444     A     
 CDCM               MI     X2,WRL1     IF NOT PAGE OVERFLOW                                CDCM        2445     A     
 CDCM               SX6    B6          SAVE B6, B7                                         CDCM        2446     A     
 CDCM               SX7    B7                                                              CDCM        2447     A     
 CDCM               SA6    WRTEMP                                                          CDCM        2448     A     
 CDCM               SA7    A6+B1                                                           CDCM        2449     A     
 CDCM               SX7    4           RESET LINE COUNT                                    CDCM        2450     A     
 CDCM               SA7    A4                                                              CDCM        2451     A     
 CDCM               RJ     WRTITL      WRITE TITLE LINE                                    CDCM        2452     A     
 CDCM               SA3    WRTEMP      RESTORE B6, B7                                      CDCM        2453     A     
 CDCM               SA4    A3+B1                                                           CDCM        2454     A     
 CDCM               SB6    X3                                                              CDCM        2455     A     
 CDCM               SB7    X4                                                              CDCM        2456     A     
 CDCM      WRL1     WRITEH L,B6,B7     WRITE CODED LINE                                    CDCM        2457     A     
 CDCM               EQ     WRLINE      RETURN                                              CDCM        2458     A     
 CDCM      WRTITL   TITLE  INPUT/OUTPUT ROUTINES.                                          CDCM        2459     A     
 CDCM     **        WRTITL - WRITE TITLE LINE.                                             CDCM        2460     A     
 CDCM     *                                                                                CDCM        2461     A     
 CDCM     *         ADVANCES PAGE NUMBER AND WRITES THE TITLE LINE TO THE LIST             CDCM        2462     A     
 CDCM     *         FILE.                                                                  CDCM        2463     A     
 CDCM     *                                                                                CDCM        2464     A     
 CDCM     *         ENTRY  (B1) = 1.                                                       CDCM        2465     A     
 CDCM     *                                                                                CDCM        2466     A     
 CDCM     *         EXIT   NONE.                                                           CDCM        2467     A     
 CDCM     *                                                                                CDCM        2468     A     
 CDCM     *         USES   X - 1, 2, 3, 4, 6, 7.                                           CDCM        2469     A     
 CDCM     *                B - 2, 3, 4, 5, 6, 7.                                           CDCM        2470     A     
 CDCM     *                A - 1, 2, 3, 4, 6, 7.                                           CDCM        2471     A     
 CDCM     *                                                                                CDCM        2472     A     
 CDCM     *         CALLS  CDD=, WTW=.                                                     CDCM        2473     A     
 CDCM                                                                                      CDCM        2474     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1207    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM                                                                                      CDCM        2475     A     
 CDCM      WRTITL   EQ     *+1S17      ENTRY / EXIT                                        CDCM        2476     A     
 CDCM               SA1    PAGENO      ADVANCE PAGE NUMBER                                 CDCM        2477     A     
 CDCM               SX6    X1+B1                                                           CDCM        2478     A     
 CDCM               SA6    A1                                                              CDCM        2479     A     
 CDCM               RJ     =XCDD=      CONVERT TO DECIMAL DISPLAY                          CDCM        2480     A     
 CDCM               LX6    4*6         STORE PAGE NUMBER IN TITLE                          CDCM        2481     A     
 CDCM               MX1    -2*6        INSERT LINE TERMINATOR                              CDCM        2482     A     
 CDCM               BX6    X1*X6                                                           CDCM        2483     A     
 CDCM               SA6    TPAGE                                                           CDCM        2484     A     
 CDCM               WRITEW L,TITL,TITLL  WRITE TITLE                                       CDCM        2485     A     
 CDCM               EQ     WRTITL      RETURN                                              CDCM        2486     A     
 CDCM      IODATA   TITLE  I/O STORAGE AND FETS.                                           CDCM        2487     A     
 CDCM      WRTEMP   BSS    2           REGISTER SAVE AREA                                  CDCM        2488     A     
 CDCM      LINEMAX  CON    0           MAXIMUM LINES PER PAGE                              CDCM        2489     A     
 CDCM      LINECT   CON    0           NUMBER OF LINES WRITTEN ON CURRENT PAGE             CDCM        2490     A     
 CDCM      PAGENO   CON    1           PAGE NUMBER FOR NEXT TITLE TO BE WRITTEN            CDCM        2491     A     
 CDCM      PAGEPD   CON    0           0 - 6LPI, 1 - 8LPI                                  CDCM        2492     A     
 CDCM      LPI6     DATA   8LS   6LPI                                                      CDCM        2493     A     
 CDCM      LPI8     DATA   8LT   8LPI                                                      CDCM        2494     A     
 CDCM      TITL     DATA   50H1        L I N E S  W I T H  C O D E  M O D I F I            CDCM        2495     A     
 CDCM               DATA   20HC A T I O N                                                  CDCM        2496     A     
 CDCM               DATA   20HCDCM 1.0                                                     CDCM        2497     A     
 CDCM      TDATE    DATA   10H                                                             CDCM        2498     A     
 CDCM      TTIME    DATA   10H                                                             CDCM        2499     A     
 CDCM               DATA   10H      PAGE                                                   CDCM        2500     A     
 CDCM      TPAGE    CON    0                                                               CDCM        2501     A     
 CDCM               DATA   2L                                                              CDCM        2502     A     
 CDCM               DATA   2L                                                              CDCM        2503     A     
 CDCM      TITLL    EQU    *-TITL                                                          CDCM        2504     A     
 CDCM                                                                                      CDCM        2505     A     
 CDCM      ELINE    DATA   2L  ,2L                                                         CDCM        2506     A     
 CDCM               DATA   30H          LINES WITH POTENTIAL                               CDCM        2507     A     
 CDCM               DATA   30H CODE-MODIFICATION PROBLEMS -                                CDCM        2508     A     
 CDCM      ELINEV   DATA   0                                                               CDCM        2509     A     
 CDCM      ELINEL1  EQU    *-ELINE                                                         CDCM        2510     A     
 CDCM               DATA   38L          *** PRINT LIMIT EXCEEDED ***                       CDCM        2511     A     
 CDCM      ELINEL2  EQU    *-ELINE                                                         CDCM        2512     A     
 CDCM                                                                                      CDCM        2513     A     
 CDCM     *         FETS AND BUFFERS.                                                      CDCM        2514     A     
 CDCM                                                                                      CDCM        2515     A     
 CDCM      I        FILEB  IBUF,IBUFL  INPUT FILE FET                                      CDCM        2516     A     
 CDCM      L        FILEB  LBUF,LBUFL  OUTPUT FILE FET                                     CDCM        2517     A     
 CDCM      X        FILEB  XBUF,XBUFL  INTERMEDIATE FILE-1 FET                             CDCM        2518     A     
 CDCM      Y        FILEB  YBUF,YBUFL  INTERMEDIATE FILE-2 FET                             CDCM        2519     A     
 CDCM                                                                                      CDCM        2520     A     
 CDCM      IBUFL    EQU    2001B       LENGTH OF INPUT CIO BUFFER                          CDCM        2521     A     
 CDCM      IBUF     BSS    IBUFL       INPUT CIO BUFFER                                    CDCM        2522     A     
 CDCM                                                                                      CDCM        2523     A     
 CDCM      LBUFL    EQU    2001B       LENGTH OF OUTPUT CIO BUFFER                         CDCM        2524     A     
 CDCM      LBUF     BSS    LBUFL       OUTPUT CIO BUFFER                                   CDCM        2525     A     
 CDCM                                                                                      CDCM        2526     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1208    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM      XBUFL    EQU    2001B       LENGTH OF INTERMEDIATE FILE-1 BUFFER                CDCM        2527     A     
 CDCM      XBUF     BSS    XBUFL       INTERMEDIATE FILE-1 BUFFER                          CDCM        2528     A     
 CDCM                                                                                      CDCM        2529     A     
 CDCM      YBUFL    EQU    2001B       LENGTH OF INTERMEDIATE FILE-2 BUFFER                CDCM        2530     A     
 CDCM      YBUF     BSS    YBUFL       INTERMEDIATE FILE-2 BUFFER                          CDCM        2531     A     
 CDCM                                                                                      CDCM        2532     A     
 CDCM     *         --------------------------------------------------------------         CDCM        2533     A     
 CDCM      OR.FIX   EQU    *           BEGINNING OF FIXED-LENGTH STORAGE AREA              CDCM        2534     A     
 CDCM     *         --------------------------------------------------------------         CDCM        2535     A     
 CDCM               TITLE  FIXED-LENGTH STORAGE.                                           CDCM        2536     A     
 CDCM     **        FIXED-LENGTH STORAGE.                                                  CDCM        2537     A     
 CDCM     *                                                                                CDCM        2538     A     
 CDCM     *         THE FOLLOWING AREA OVERWRITES THE INITIALIZATION ROUTINES.             CDCM        2539     A     
 CDCM               SPACE  4,8                                                             CDCM        2540     A     
 CDCM     **        OR.REG - REGISTER TABLE.                                               CDCM        2541     A     
 CDCM     *                                                                                CDCM        2542     A     
 CDCM     *         CONTAINS THE NAMES OF THE MOST RECENTLY ENCOUNTERED SYMBOLS            CDCM        2543     A     
 CDCM     *         ASSOCIATED WITH EACH OF THE 24 MACHINE REGISTERS.                      CDCM        2544     A     
 CDCM     *         THE NUMBER OF SYMBOLS SAVED FOR EACH REGISTER IS CONTROLLED            CDCM        2545     A     
 CDCM     *         BY *PCSNVAL*.                                                          CDCM        2546     A     
 CDCM     *                                                                                CDCM        2547     A     
 CDCM     *         ENTRY = 1 WORD.  SAME FORMAT AS *O.LOC* ENTRIES.                       CDCM        2548     A     
 CDCM                                                                                      CDCM        2549     A     
 CDCM      NREG     EQU    24          NUMBER OF REGISTERS                                 CDCM        2550     A     
 CDCM      LE.REG   EQU    NREG*PCSNVAL  TABLE LENGTH                                      CDCM        2551     A     
 CDCM      OR.REG   BSS    LE.REG                                                          CDCM        2552     A     
 CDCM               SPACE  4,8                                                             CDCM        2553     A     
 CDCM     **        OR.LINE - STRING BUFFER.                                               CDCM        2554     A     
 CDCM     *                                                                                CDCM        2555     A     
 CDCM     *         CONTAINS CURRENT LINE IMAGE AS ONE CHARACTER PER WORD WITH             CDCM        2556     A     
 CDCM     *         EACH CHARACTER STORED IN THE LOW-ORDER CHARACTER POSITION.             CDCM        2557     A     
 CDCM                                                                                      CDCM        2558     A     
 CDCM                                                                                      CDCM        2559     A     
 CDCM      LE.LINE  EQU    10*LINELTH  STRING BUFFER LENGTH                                CDCM        2560     A     
 CDCM      OR.LINE  BSS    LE.LINE     STRING BUFFER                                       CDCM        2561     A     
 CDCM               CON    0           TO END SEARCH FOR NON-BLANK IF ALL-BLANK            CDCM        2562     A     
 CDCM                                                                                      CDCM        2563     A     
 CDCM      ENDZ     EQU    *           END OF FIXED-LENGTH STORAGE AREA                    CDCM        2564     A     
 CDCM      SCO      TITLE  SCO - SET CONTROL STATEMENT OPTIONS.                            CDCM        2565     A     
 CDCM     **        SCO - SET CONTROL STATEMENT OPTIONS.                                   CDCM        2566     A     
 CDCM     *                                                                                CDCM        2567     A     
 CDCM     *         THIS ROUTINE IS OVERWRITTEN AFTER INITIALIZATION.                      CDCM        2568     A     
 CDCM                                                                                      CDCM        2569     A     
 CDCM                                                                                      CDCM        2570     A     
 CDCM               ORG    OR.FIX                                                          CDCM        2571     A     
 CDCM               QUAL   SCO                                                             CDCM        2572     A     
 CDCM      SCO      EQ     *+1S17      ENTRY / EXIT                                        CDCM        2573     A     
 CDCM                                                                                      CDCM        2574     A     
 CDCM     *         UNPACK CONTROL STATEMENT BY *UPC=*.                                    CDCM        2575     A     
 CDCM                                                                                      CDCM        2576     A     
 CDCM               SA5    RA.CCD      FWA OF CONTROL STATEMENT                            CDCM        2577     A     
 CDCM               SB7    ARGLST      FWA FOR UNPACKED ARGUMENTS                          CDCM        2578     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1209    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               RJ     =XUPC=      UNPACK CONTROL CARD.                                CDCM        2579     A     
 CDCM               SB7    B0                                                              CDCM        2580     A     
 CDCM               NZ     X6,SCO10    IF ERROR DURING UNPACK                              CDCM        2581     A     
 CDCM                                                                                      CDCM        2582     A     
 CDCM     *         PROCESS ARGUMENTS.                                                     CDCM        2583     A     
 CDCM                                                                                      CDCM        2584     A     
 CDCM               SB2    ARGLST      (B2) = ARGUMENT POINTER (SKIP NAME CALL)            CDCM        2585     A     
 CDCM               MX0    42                                                              CDCM        2586     A     
 CDCM      SCO1     SB2    B2+B1       NEXT ARGUMENT                                       CDCM        2587     A     
 CDCM               SA1    B2                                                              CDCM        2588     A     
 CDCM               ZR     X1,SCO4     IF NO MORE ARGUMENTS                                CDCM        2589     A     
 CDCM               SA2    PARAMS-1    FWA-1 MAIN PARAMETER LIST                           CDCM        2590     A     
 CDCM               SX3    X1                                                              CDCM        2591     A     
 CDCM               MX5    0           (X5) = 0 IF NO EQUIVALENCE                          CDCM        2592     A     
 CDCM               ZR     X3,SCO2     IF NOT EQUIVALENCED                                 CDCM        2593     A     
 CDCM               SX3    X1-1R=                                                          CDCM        2594     A     
 CDCM               SB2    B2+B1                                                           CDCM        2595     A     
 CDCM               SA5    B2          (X5) = VALUE IF EQUIVALENCED                        CDCM        2596     A     
 CDCM               ZR     X3,SCO2     IF EQUIVALENCED                                     CDCM        2597     A     
 CDCM               SB7    B0          KEYWORD FOLLOWED BY OTHER THAN , ( . ) =            CDCM        2598     A     
 CDCM               EQ     SCO10                                                           CDCM        2599     A     
 CDCM                                                                                      CDCM        2600     A     
 CDCM      SCO2     SA2    A2+B1       NEXT LIST ENTRY                                     CDCM        2601     A     
 CDCM               ZR     X2,SCO3     IF ARGUMENT NOT FOUND                               CDCM        2602     A     
 CDCM               BX3    X1-X2                                                           CDCM        2603     A     
 CDCM               BX3    X0*X3                                                           CDCM        2604     A     
 CDCM               NZ     X3,SCO2     LOOP                                                CDCM        2605     A     
 CDCM               SB3    X2          JUMP TO PROCESSOR                                   CDCM        2606     A     
 CDCM               JP     B3                                                              CDCM        2607     A     
 CDCM                                                                                      CDCM        2608     A     
 CDCM      SCO3     BX1    X0*X1                                                           CDCM        2609     A     
 CDCM               SB7    B1                                                              CDCM        2610     A     
 CDCM               RJ     =XSFN=      SPACE FILL NAME                                     CDCM        2611     A     
 CDCM               LX6    -6                                                              CDCM        2612     A     
 CDCM               SA6    SCOERR1                                                         CDCM        2613     A     
 CDCM               EQ     SCO10       GO TO ERROR EXIT                                    CDCM        2614     A     
 CDCM                                                                                      CDCM        2615     A     
 CDCM     *         SET UP INSTRUCTION TABLE ACCORDING TO *SM* AND *LM* OPTIONS.           CDCM        2616     A     
 CDCM                                                                                      CDCM        2617     A     
 CDCM      SCO4     SX7    PCSTA       SET FOR -SM, -LM                                    CDCM        2618     A     
 CDCM               SA1    SO.SM                                                           CDCM        2619     A     
 CDCM               SA2    SO.LM                                                           CDCM        2620     A     
 CDCM               LX1    1                                                               CDCM        2621     A     
 CDCM               BX3    X1+X2                                                           CDCM        2622     A     
 CDCM               SB6    X3-1                                                            CDCM        2623     A     
 CDCM               MI     B6,SCO6     IF -SM, -LM                                         CDCM        2624     A     
 CDCM               SX7    PCSTB       SET FOR SM, -LM                                     CDCM        2625     A     
 CDCM               EQ     B6,B1,SCO6  IF SM, -LM                                          CDCM        2626     A     
 CDCM               SX7    PCSTC       SET FOR SM, LM                                      CDCM        2627     A     
 CDCM               GT     B6,B1,SCO6  IF SM, LM                                           CDCM        2628     A     
 CDCM                                                                                      CDCM        2629     A     
 CDCM     *         IF *LM* BUT NOT *SM* WAS SELECTED, MOVE LOCAL MACRO ENTRIES            CDCM        2630     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1210    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         DOWN OVER SYSTEM MACRO ENTRIES, AND SET TARGET LOCATION                CDCM        2631     A     
 CDCM     *         ACCORDINGLY.                                                           CDCM        2632     A     
 CDCM                                                                                      CDCM        2633     A     
 CDCM               SB7    PCSTC-PCSTB  (B7) = NUMBER OF LOCAL MACROS                      CDCM        2634     A     
 CDCM               SX7    PCSTA+PCSTC-PCSTB                                               CDCM        2635     A     
 CDCM               ZR     B7,SCO6     IF NO LOCAL MACRO ENTRIES                           CDCM        2636     A     
 CDCM               SX2    PCSTB       FETCH ADDRESS = START OF LOCAL MACROS               CDCM        2637     A     
 CDCM               SX3    PCSTA       STORE  ADDRESS = START OF SYSTEM MACROS             CDCM        2638     A     
 CDCM               MX0    -1                                                              CDCM        2639     A     
 CDCM      SCO5     SA4    X2          MOVE LOOP                                           CDCM        2640     A     
 CDCM               BX6    X4                                                              CDCM        2641     A     
 CDCM               IX2    X2-X0       ADVANCE FETCH ADDRESS                               CDCM        2642     A     
 CDCM               SA6    X3                                                              CDCM        2643     A     
 CDCM               SB7    B7-B1                                                           CDCM        2644     A     
 CDCM               IX3    X3-X0       ADVANCE STORE ADDRESS                               CDCM        2645     A     
 CDCM               NZ     B7,SCO5     LOOP                                                CDCM        2646     A     
 CDCM      SCO6     SA7    PCSTT       SET TARGET LOCATION FOR INSTRUCTION TABLE           CDCM        2647     A     
 CDCM               EQ     SCO         RETURN                                              CDCM        2648     A     
 CDCM                                                                                      CDCM        2649     A     
 CDCM     *         ERROR PROCESSING.                                                      CDCM        2650     A     
 CDCM                                                                                      CDCM        2651     A     
 CDCM      SCO10    MESSAGE  (=C/ CDCM ABORT - CONTROL STATEMENT ERROR/),,RCL              CDCM        2652     A     
 CDCM               ZR     B7,SCO12    IF SYNTAX ERROR                                     CDCM        2653     A     
 CDCM               SB6    SCOERR1     SET FOR APPROPRIATE 2ND MESSAGE                     CDCM        2654     A     
 CDCM               EQ     B7,B1,SCO11 IF MAIN PARAM NOT RECOGNIZED                        CDCM        2655     A     
 CDCM               SB6    SCOERR2     OPTION NOT RECOGNIZED                               CDCM        2656     A     
 CDCM      SCO11    MESSAGE  B6,,RCL                                                       CDCM        2657     A     
 CDCM      SCO12    ABORT                                                                  CDCM        2658     A     
 CDCM                                                                                      CDCM        2659     A     
 CDCM     *         *I* PARAMETER.                                                         CDCM        2660     A     
 CDCM                                                                                      CDCM        2661     A     
 CDCM      PR.I     NZ     X5,I.1      IF NAME SPECIFIED                                   CDCM        2662     A     
 CDCM               SA5    DEF.I       SET 2ND DEFAULT                                     CDCM        2663     A     
 CDCM      I.1      BX6    X5                                                              CDCM        2664     A     
 CDCM               SA6    LFNI        SET INPUT FILE NAME                                 CDCM        2665     A     
 CDCM               EQ     L.1         GO TO COMMON CODE                                   CDCM        2666     A     
 CDCM                                                                                      CDCM        2667     A     
 CDCM      DEF.I    DATA   0LCOMPILE   KEYWORD ONLY DEFAULT FOR INPUT FILE                 CDCM        2668     A     
 CDCM                                                                                      CDCM        2669     A     
 CDCM     *         *L* PARAMETER.                                                         CDCM        2670     A     
 CDCM                                                                                      CDCM        2671     A     
 CDCM      PR.L     ZR     X5,SCO1     RETURN IF NAME NOT SPECIFIED                        CDCM        2672     A     
 CDCM               BX6    X5                                                              CDCM        2673     A     
 CDCM               SA6    LFNL        SET OUTPUT FILE NAME                                CDCM        2674     A     
 CDCM               SX2    1R0         CHECK FOR L=0                                       CDCM        2675     A     
 CDCM               LX6    6                                                               CDCM        2676     A     
 CDCM               BX6    X2-X6                                                           CDCM        2677     A     
 CDCM               NZ     X6,L.1      IF NOT L=0                                          CDCM        2678     A     
 CDCM               MX7    0                                                               CDCM        2679     A     
 CDCM               SA7    A6          ZERO OUTPUT FILE NAME                               CDCM        2680     A     
 CDCM               EQ     SCO1                                                            CDCM        2681     A     
 CDCM                                                                                      CDCM        2682     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1211    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM      L.1      SB7    B0          SET FOR SYNTAX ERROR                                CDCM        2683     A     
 CDCM               SX4    X5                                                              CDCM        2684     A     
 CDCM               NZ     X4,SCO10    IF NAME NOT FOLLOWED BY , . ( )                     CDCM        2685     A     
 CDCM               BX1    X0*X5                                                           CDCM        2686     A     
 CDCM               RJ     CFN         CHECK FOR VALID FILE NAME                           CDCM        2687     A     
 CDCM               NZ     X6,SCO10    IF FILE NAME BAD                                    CDCM        2688     A     
 CDCM               EQ     SCO1        RETURN TO MAIN LOOP                                 CDCM        2689     A     
 CDCM                                                                                      CDCM        2690     A     
 CDCM     *         *LO* PARAMETER.                                                        CDCM        2691     A     
 CDCM                                                                                      CDCM        2692     A     
 CDCM      PR.LO    ZR     X5,SCO1     RETURN IF OPTION NOT SPECIFIED                      CDCM        2693     A     
 CDCM               SB7    B0          SET FOR SYNTAX ERROR                                CDCM        2694     A     
 CDCM               SX4    X5                                                              CDCM        2695     A     
 CDCM               NZ     X4,SCO10    IF OPTION NOT FOLLOWED BY , . ( )                   CDCM        2696     A     
 CDCM               SA1    LSTLO                                                           CDCM        2697     A     
 CDCM      LO.1     BX2    X1-X5                                                           CDCM        2698     A     
 CDCM               ZR     X1,SO.8     IF ILLEGAL OPTION                                   CDCM        2699     A     
 CDCM               SX7    X1          OPTION VALUE                                        CDCM        2700     A     
 CDCM               BX2    X0*X2                                                           CDCM        2701     A     
 CDCM               SA1    A1+B1       NEXT ENTRY                                          CDCM        2702     A     
 CDCM               NZ     X2,LO.1     LOOP                                                CDCM        2703     A     
 CDCM               SA7    LOOPT       SET *LO* OPTION                                     CDCM        2704     A     
 CDCM               EQ     SCO1        RETURN TO MAIN ROUTINE                              CDCM        2705     A     
 CDCM                                                                                      CDCM        2706     A     
 CDCM     *         *PL* PARAMETER.                                                        CDCM        2707     A     
 CDCM                                                                                      CDCM        2708     A     
 CDCM      PR.PL    ZR     X5,SCO1     RETURN IF NO VALUE SPECIFIED                        CDCM        2709     A     
 CDCM               SB7    B0          SET FOR SYNTAX ERROR                                CDCM        2710     A     
 CDCM               SX4    X5                                                              CDCM        2711     A     
 CDCM               NZ     X4,SCO10    IF VALUE NOT FOLLOWED BY , . ( )                    CDCM        2712     A     
 CDCM               SB7    B1          SPECIFY DECIMAL                                     CDCM        2713     A     
 CDCM               SB6    B2          SAVE B2                                             CDCM        2714     A     
 CDCM               RJ     =XDXB=      CONVERT DISPLAY CODE TO BINARY                      CDCM        2715     A     
 CDCM               SB7    B0          SET FOR SYNTAX ERROR                                CDCM        2716     A     
 CDCM               MX0    42          RESTORE X0                                          CDCM        2717     A     
 CDCM               SB2    B6          RESTORE B2                                          CDCM        2718     A     
 CDCM               NZ     X4,SCO10    IF ERROR                                            CDCM        2719     A     
 CDCM               SA6    PRINTL      SAVE PRINT LIMIT VALUE                              CDCM        2720     A     
 CDCM               EQ     SCO1        RETURN TO MAIN ROUTINE                              CDCM        2721     A     
 CDCM                                                                                      CDCM        2722     A     
 CDCM     *         *SO* PARAMETER.                                                        CDCM        2723     A     
 CDCM                                                                                      CDCM        2724     A     
 CDCM      PR.SO    SA3    LSTSO       SET UP ALL 2ND DEFAULT VALUES                       CDCM        2725     A     
 CDCM      SO.0     SA4    A3+B1       WORD 2 OF TABLE ENTRY                               CDCM        2726     A     
 CDCM               ZR     X3,SO.1     IF END OF TABLE                                     CDCM        2727     A     
 CDCM               LX4    30          FETCH 2ND DEFAULT VALUE                             CDCM        2728     A     
 CDCM               SX7    X4                                                              CDCM        2729     A     
 CDCM               SA7    X3                                                              CDCM        2730     A     
 CDCM               SA3    A4+B1                                                           CDCM        2731     A     
 CDCM               EQ     SO.0        LOOP                                                CDCM        2732     A     
 CDCM                                                                                      CDCM        2733     A     
 CDCM      SO.1     ZR     X5,SCO1     RETURN IF NO OPTIONS SELECTED                       CDCM        2734     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1212    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM               SA1    LSTSO       SET UP ALL INITIAL VALUES                           CDCM        2735     A     
 CDCM      SO.2     SA2    A1+B1       WORD 2 OF ENTRY                                     CDCM        2736     A     
 CDCM               ZR     X1,SO.3     IF END OF TABLE                                     CDCM        2737     A     
 CDCM               SX6    X2                                                              CDCM        2738     A     
 CDCM               SA6    X1                                                              CDCM        2739     A     
 CDCM               SA1    A2+B1       NEXT TABLE ENTRY WORD 1                             CDCM        2740     A     
 CDCM               EQ     SO.2        LOOP                                                CDCM        2741     A     
 CDCM                                                                                      CDCM        2742     A     
 CDCM      SO.3     SA4    ZEROVAL                                                         CDCM        2743     A     
 CDCM               IX4    X4-X5                                                           CDCM        2744     A     
 CDCM               BX4    X0*X4                                                           CDCM        2745     A     
 CDCM               NZ     X4,SO.5     IF NOT A ZERO VALUE                                 CDCM        2746     A     
 CDCM               SA1    LSTSO       CLEAR ALL OPTIONS                                   CDCM        2747     A     
 CDCM      SO.4     ZR     X1,SO.7     IF END OF TABLE                                     CDCM        2748     A     
 CDCM               MX6    0                                                               CDCM        2749     A     
 CDCM               SA6    X1                                                              CDCM        2750     A     
 CDCM               SA1    A1+2        NEXT TABLE ENTRY WORD 1                             CDCM        2751     A     
 CDCM               EQ     SO.4        LOOP                                                CDCM        2752     A     
 CDCM                                                                                      CDCM        2753     A     
 CDCM      SO.5     SX2    X5-1R-      CHECK FOR PRECEDING MINUS SIGN                      CDCM        2754     A     
 CDCM               SA1    LSTSO                                                           CDCM        2755     A     
 CDCM               SB3    B1+B1                                                           CDCM        2756     A     
 CDCM               SX6    B1          SET FOR SETTING OPTION                              CDCM        2757     A     
 CDCM               NZ     X2,SO.6     IF OPTION NOT PRECEDED BY MINUS SIGN                CDCM        2758     A     
 CDCM               SX6    B0          SET FOR CLEARING OPTION                             CDCM        2759     A     
 CDCM               SB2    B2+B1       FETCH OPTION                                        CDCM        2760     A     
 CDCM               SA5    B2                                                              CDCM        2761     A     
 CDCM      SO.6     BX2    X1-X5       SEARCH TABLE OF *SO* OPTIONS                        CDCM        2762     A     
 CDCM               ZR     X1,SO.8     IF ILLEGAL OPTION                                   CDCM        2763     A     
 CDCM               BX2    X0*X2                                                           CDCM        2764     A     
 CDCM               SB4    X1          ADDRESS TO SET OR CLEAR OPTION                      CDCM        2765     A     
 CDCM               SA1    A1+B3       NEXT TABLE ENTRY                                    CDCM        2766     A     
 CDCM               NZ     X2,SO.6     LOOP                                                CDCM        2767     A     
 CDCM               SA6    B4          SET OR CLEAR OPTION                                 CDCM        2768     A     
 CDCM      SO.7     SX1    X5                                                              CDCM        2769     A     
 CDCM               ZR     X1,SCO1     IF NO MORE OPTIONS                                  CDCM        2770     A     
 CDCM               SB7    B0          SET FOR SYNTAX ERROR                                CDCM        2771     A     
 CDCM               SX2    X5-1R/                                                          CDCM        2772     A     
 CDCM               NZ     X2,SCO10    ERROR IF NOT FOLLOWED BY , ( . ) /                  CDCM        2773     A     
 CDCM               SB2    B2+B1       NEXT OPTION                                         CDCM        2774     A     
 CDCM               SA5    B2                                                              CDCM        2775     A     
 CDCM               EQ     SO.3        LOOP                                                CDCM        2776     A     
 CDCM                                                                                      CDCM        2777     A     
 CDCM      SO.8     SB7    B1+B1       SET FOR *UNKNOWN OPTION* MESSAGE                    CDCM        2778     A     
 CDCM               BX1    X0*X5                                                           CDCM        2779     A     
 CDCM               RJ     =XSFN=      SPACE FILL NAME                                     CDCM        2780     A     
 CDCM               LX6    -6                                                              CDCM        2781     A     
 CDCM               SA6    SCOERR2     SET NAME                                            CDCM        2782     A     
 CDCM               EQ     SCO10       GO TO ERROR EXIT                                    CDCM        2783     A     
 CDCM                                                                                      CDCM        2784     A     
 CDCM     *         SUBROUTINE TO CHECK FOR VALID FILE NAME.                               CDCM        2785     A     
 CDCM     *         ENTRY - (X1) = NAME LEFT JUSTIFIED ZERO FILL.                          CDCM        2786     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1213    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         EXIT  - (X6) = 0 IF NAME VALID.                                        CDCM        2787     A     
 CDCM     *                        NZ IF NAME NOT VALID.                                   CDCM        2788     A     
 CDCM     *         USES  - X2, X3, X4, X6.                                                CDCM        2789     A     
 CDCM                                                                                      CDCM        2790     A     
 CDCM                                                                                      CDCM        2791     A     
 CDCM      CFN      EQ     *+1S17      ENTRY / EXIT                                        CDCM        2792     A     
 CDCM               SX6    1RZ+1       PRESET ERROR RETURN AND ALLOW ONLY A - Z            CDCM        2793     A     
 CDCM               SX2    X1           FOR FIRST CHAR                                     CDCM        2794     A     
 CDCM               MX3    -6          CHAR MASK                                           CDCM        2795     A     
 CDCM               ZR     X1,CFN      IF ZERO NAME                                        CDCM        2796     A     
 CDCM               NZ     X2,CFN      ERROR IF MORE THAN 7 CHARS                          CDCM        2797     A     
 CDCM               BX2    X1                                                              CDCM        2798     A     
 CDCM      CFN1     LX2    6           LOOK AT NEXT CHAR                                   CDCM        2799     A     
 CDCM               BX4    -X3*X2                                                          CDCM        2800     A     
 CDCM               ZR     X4,CFN2     IF NO MORE CHARS                                    CDCM        2801     A     
 CDCM               IX4    X4-X6       CHECK 1ST CHAR ALPHA, REMAINING ALPHANUM            CDCM        2802     A     
 CDCM               PL     X4,CFN      IF                                                  CDCM        2803     A     
 CDCM               SX6    1R+         ALLOW A - 9 FOR REMAINING CHARS                     CDCM        2804     A     
 CDCM               EQ     CFN1        LOOP                                                CDCM        2805     A     
 CDCM                                                                                      CDCM        2806     A     
 CDCM      CFN2     MX6    0           NORMAL RETURN                                       CDCM        2807     A     
 CDCM               EQ     CFN                                                             CDCM        2808     A     
 CDCM      SCO      TITLE  CONTROL STATEMENT PARAMETER LISTS.                              CDCM        2809     A     
 CDCM     **        CONTROL STATEMENT TABLES AND VALUES.                                   CDCM        2810     A     
 CDCM     *                                                                                CDCM        2811     A     
 CDCM     *         ARGUMENTS ARE FETCHED FROM RA+70FF BY *UPC=*.                          CDCM        2812     A     
 CDCM     *                                                                                CDCM        2813     A     
 CDCM      ARGLSTL  EQU    30B         LENGTH OF ARGUMENT LIST                             CDCM        2814     A     
 CDCM      ARGLST   BSS    ARGLSTL     ARGUMENT LIST FORMED BY *UPC=*                      CDCM        2815     A     
 CDCM                                                                                      CDCM        2816     A     
 CDCM     **        THE MAIN PARAMETER TABLE CONSISTS OF ONE-WORD ENTRIES AND IS           CDCM        2817     A     
 CDCM     *         TERMINATED BY A ZERO WORD.  ENTRY FORMAT IS AS FOLLOWS:                CDCM        2818     A     
 CDCM     *                                                                                CDCM        2819     A     
 CDCM     *         VFD    42/PAR,18/PADR                                                  CDCM        2820     A     
 CDCM     *                                                                                CDCM        2821     A     
 CDCM     *         WHERE  PAR  = PARAMETER NAME (1-7 CHARS IN LENGTH, LEFT                CDCM        2822     A     
 CDCM     *                       JUSTIFIED ZERO FILL).                                    CDCM        2823     A     
 CDCM     *                PADR = ADDRESS OF PROCESSOR.                                    CDCM        2824     A     
 CDCM                                                                                      CDCM        2825     A     
 CDCM                                                                                      CDCM        2826     A     
 CDCM      PARAMS   VFD    42/0LI,18/PR.I        I  - INPUT FILE                           CDCM        2827     A     
 CDCM               VFD    42/0LL,18/PR.L        L  - LIST FILE                            CDCM        2828     A     
 CDCM               VFD    42/0LLO,18/PR.LO      LO - LIST OPTIONS                         CDCM        2829     A     
 CDCM               VFD    42/0LPL,18/PR.PL      PL - PRINT LIMIT                          CDCM        2830     A     
 CDCM               VFD    42/0LSO,18/PR.SO      SO - SCANNING OPTIONS                     CDCM        2831     A     
 CDCM               VFD    60/0                  END OF LIST                               CDCM        2832     A     
 CDCM                                                                                      CDCM        2833     A     
 CDCM     **        TABLE OF OPTIONS FOR THE *LO* PARAMETER.  CONSISTS OF ONE-WORD         CDCM        2834     A     
 CDCM     *         ENTRIES AND IS TERMINATED BY A ZERO WORD.                              CDCM        2835     A     
 CDCM     *                                                                                CDCM        2836     A     
 CDCM     *         VFD    42/OPT,18/VAL                                                   CDCM        2837     A     
 CDCM     *                                                                                CDCM        2838     A     
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1214    
  
0         LIST OF CONTROL, ACTIVE, AND/OR INACTIVE CARDS IN CDCM    
  
 CDCM     *         WHERE  OPT = NAME OF OPTION.                                           CDCM        2839     A     
 CDCM     *                VAL = VALUE OF OPTION.                                          CDCM        2840     A     
 CDCM                                                                                      CDCM        2841     A     
 CDCM                                                                                      CDCM        2842     A     
 CDCM      LSTLO    VFD    42/0LA,18/0           LO=A                                      CDCM        2843     A     
 CDCM               VFD    42/0LS,18/1           LO=S                                      CDCM        2844     A     
 CDCM               CON    0                     END OF TABLE                              CDCM        2845     A     
 CDCM                                                                                      CDCM        2846     A     
 CDCM     **        TABLE OF OPTIONS FOR THE *SO* PARAMETER.  CONSISTS OF TWO-WORD         CDCM        2847     A     
 CDCM     *         ENTRIES AND IS TERMINATED BY A ZERO WORD.  THE SECOND DEFAULT          CDCM        2848     A     
 CDCM     *         AND THE INITIAL VALUES FOR ALL OPTIONS ARE SET FROM THE 2ND            CDCM        2849     A     
 CDCM     *         WORD OF EACH ENTRY.                                                    CDCM        2850     A     
 CDCM     *                                                                                CDCM        2851     A     
 CDCM     *         VFD    42/OPT,18/ADRS                                                  CDCM        2852     A     
 CDCM     *         VFD    30/DEF2,30,IV                                                   CDCM        2853     A     
 CDCM     *                                                                                CDCM        2854     A     
 CDCM     *         WHERE  OPT  = NAME OF OPTION                                           CDCM        2855     A     
 CDCM     *                ADRS = ADDRESS TO STORE VALUE                                   CDCM        2856     A     
 CDCM     *                DEF2 = 2ND DEFAULT                                              CDCM        2857     A     
 CDCM     *                IV   = INITIAL VALUE                                            CDCM        2858     A     
 CDCM                                                                                      CDCM        2859     A     
 CDCM      LSTSO    VFD    42/0LJP,18/SO.JP      SO=JP                                     CDCM        2860     A     
 CDCM               VFD    30/1,30/1                                                       CDCM        2861     A     
 CDCM               VFD    42/0LSM,18/SO.SM      SO=SM                                     CDCM        2862     A     
 CDCM               VFD    30/1,30/1                                                       CDCM        2863     A     
 CDCM               VFD    42/0LLM,18/SO.LM      SO=LM                                     CDCM        2864     A     
 CDCM               VFD    30/1,30/0                                                       CDCM        2865     A     
 CDCM               CON    0                     END OF TABLE                              CDCM        2866     A     
 CDCM      ZEROVAL  VFD    6/1H0,48/0,6/1H/      ZERO SPECIFICATION IN OPTION LIST         CDCM        2867     A     
 CDCM                                                                                      CDCM        2868     A     
 CDCM      SCOERR1  DATA   C*           UNRECOGNIZABLE*                                    CDCM        2869     A     
 CDCM      SCOERR2  DATA   C*           UNKNOWN OPTION*                                    CDCM        2870     A     
 CDCM                                                                                      CDCM        2871     A     
 CDCM               END    CDCM                                                            CDCM        2872     A     
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - CDCM    
  
          IDENTIFIER               TOTAL    ACTIVE
  
          CDCM                      2872      2872
  
          0        1         2         3         4         5         6         7         8
          12345678901234567890123456789012345678901234567890123456789012345678901234567890
0     SUMMARY OF UPDATE IDENTIFIERS WITHIN DECK - TOTALS
  
          IDENTIFIER               TOTAL    ACTIVE
  
          YANK$$$                      0         0
          COMPASS                  19152     13638
          SCP05                        0         0
          CPC1                         0         0
          MCPC1                        0         0
          CCIO1                        0         0
          COPE1                        0         0
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1215    
  
          CSRT1                        0         0
          CPC2                         0         0
          CMP1                        54        28
          CMP3                         3         0
          CP13226                      6         4
          CMP4                         5         1
          CMP5                        14        12
          CMP6                        82        75
          CMP7                        18        14
          CMP8                        21         2
          CMP9                        52        52
          CMP10                       22        21
          CMP11                       12         5
          CMP12                       41        31
          CMP13                        4         0
          CP12752                      3         3
          CMP5A                       17        10
          CMP14                      674       494
          CMP15                       34        10
          CMP16                        6         0
          CMP17                      248       224
          CMP18                      144       111
          CMP19                      399       342
          CMP20                      383       241
          CMP21                        3         2
          COMTEXT                     12         0
          CMP22                       12        12
          CMP24                      585       493
          CMP25                       80        44
          CMP26                       48        38
          CMP27                       36        23
          CMP28                       10        10
          CMP17A                       6         4
          CMP029                     198       139
          CMP029A                      2         2
          CMP030                      22        18
          CMP031                      12         0
          CMP034                      55         0
          CMP039                       5         5
          CMP041                      52        49
          CMP042                     335       243
          CMP64G                     555       496
          CMP043                     156       111
          CPC30                        0         0
          COMPCOM                    622       497
          CMP30                     6934      4999
          CMP30A                       1         0
          CPS001                       0         0
          CPS002                      69        68
          CPS003                       3         3
          CPS004                      93        93
          CPS005                      30        29
          CMP036                      41        41
          CMP054                       7         6
          CMP057                       2         2
          CMP069                      12        12
          CMP085                       1         1
          CWEOR                        2         2
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1216    
  
          CMP052                       7         7
          CMP109                       1         1
          CMP136                      58        58
          CPS005A                      3         3
          CPS008                       8         8
          CPS009                       6         6
          CPS010                     145        93
          CPS011                      93        77
          CPS012                      71        70
          CPS020                       2         0
          CPS028                     752       465
          CMP165                     239       239
          CMP051                       2         2
          CMP064                       6         6
          CMP162                       1         1
          L376F                        0         0
          CPS038                       2         2
          CPS047                       6         5
          CMP111                      14        14
          HISTORY                      3         3
          L380                         0         0
          CMP146                      43        43
          CPS026                      62        61
          CPS032                       3         3
          CPS052                       3         3
          CPS056                       2         0
          CPS061                      10         8
          CPS062                      38        38
          CPS063                       2         2
          CPS064                    1909      1847
          CMP146A                      2         2
          L383                         1         1
          CMP149                       2         2
          CPS057                       2         1
          CPS066                       7         7
          CPS069                      24        24
          CPS073                      20        20
          L383F                        1         1
          L386                         1         1
          L393                         1         1
          L397                         1         1
          CP114                       54        45
          L401                         1         1
          L406                         1         1
          CPSCPRT                      8         6
          CP096A                     510       498
          L410                         1         1
          CPS106                       7         7
          CPS110                       6         6
          CPS112                       5         5
          L414                         1         1
          S3143CP                     17        11
          *L420*                       1         1
          CPS*76                       6         4
          CP139CP                    166       148
          CP147                      529       493
          CP154                       55        55
          CPS085                      21        21
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1217    
  
          *L428*                       1         1
          CPS126                       5         5
          CPS127                      10        10
          CPS130                       4         4
          CPS135                      12        12
          CPS141                       7         4
          *L433*                       1         1
          *L439*                       1         1
          CPS150                       4         4
          CPS153                       5         4
          *L446*                       1         1
          CPS*77                       5         3
          CPSVER34                     4         3
          CP161CP                      6         5
          F7540CP                    144         6
          F7820CP                      6         6
          CPS146                       5         5
          CPS167                       7         3
          *L452*                       1         1
          CPS118X                     20        20
          CPS173                      23        23
          *L460*                       1         1
          CPS076X                     12         5
          CPS144                      19        19
          CPS147X                     11        11
          CPS151                      13        13
          CPS161                       6         4
          CPS164X                      7         7
          CPS172                      28        28
          CPS176                      15        12
          *L470*                       1         1
          F4720                        0         0
          COMCARG                    131       131
          COMCCDD                     64        64
          COMCCFD                     95        77
          COMCCIO                    118       112
          COMCCOD                     57        57
          COMCCPT                     78        77
          COMCDXB                    115       109
          COMCMTM                    142       142
          COMCMTP                    511       508
          COMCMVE                    229       224
          COMCRDC                    111       109
          COMCRDH                    148       146
          COMCRDO                     98        95
          COMCRDS                    184       180
          COMCRDW                    431       421
          COMCRSR                    166       166
          COMCSFN                     54        54
          COMCSRT                    325       303
          COMCSST                     70        70
          COMCSTF                     51        47
          COMCSVR                    176       176
          COMCSYS                    174       168
          COMCUPC                    121       121
          COMCWOD                     77        77
          COMCWTC                     75        74
          COMCWTH                    128       125
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1218    
  
          COMCWTO                     86        70
          COMCWTS                    179       174
          COMCWTW                    368       362
          COMCXJR                     74        74
          COMCZTB                     55        55
          CPUREL                     232       216
          CALLCPU                     56        56
          FEAT184N                    61        59
          FEAT184NA                    7         7
          CPS*78                       5         3
          CPSA070                     11        11
          CPSA083                     10        10
          CPSA096                     10        10
          CPSA098                      9         9
          CPSA097                     15        15
          CPSA094                     11        11
          CPS168                       7         7
          CPSA104                     51        50
          CPSA107                      8         8
          *L477*                       1         1
          CPSA106                      8         8
          CPS188                       5         5
          CPS192                       7         7
          CPSA112                     11         4
          CPS198                       7         7
          *L485*                       1         1
          F4720A                      61        58
          F4720B                      24        24
          F4720C                     446       442
          F4720D                      21        21
          F4810A                     362       226
          F4810B                     291       244
          CPSA115                     43        43
          CPS202                       7         7
          CPSA117                      6         6
          CPSA119                      5         5
          CPSA123                      7         7
          CPSA125                     73        54
          CPSA126                     42        42
          *L498*                       1         1
          CPS*79                       5         3
          CPSA129                     12        12
          CPSA133                      6         6
          CPSA138                     22        18
          *L505*                       1         1
          CPSA132                      7         7
          CPSA134                     79        77
          CPSA142                    131       124
          CPS186                       5         5
          CPS191                       5         5
          CPS213                      15        15
          CPS216                       9         9
          CPS218                      11        11
          CPS227                       5         5
          *L508*                       1         1
          CPSA141                     16        16
          CPSA163                      8         8
          CPSA168                     21        19
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1219    
  
          CPS219A                      3         3
          CPS234                      11         9
          CPS239                      14        12
          CPS243                       5         5
          CPS247                      10         5
          CPSA158                      5         5
          CPSA161                      6         6
          CPS236                      76        67
          CPS240                      21        19
          CPS*80                       5         3
          CPSA159                      0         0
          *L518*                       1         1
          *L528*                       1         1
          CPS251                      11        11
          F4820                      857       746
          F4820A                      63        63
          RSM4159                     50        50
          F233CMU                    158       158
          SIE7969                      7         7
          CPSA116                      8         8
          CPSA140                     12        12
          CPSA148                     10        10
          CPSA169                      6         6
          CPS214                      37        37
          CPSA181                     22        14
          CPSA184                     20        19
          CPSA187                      6         6
          CPSA195                      6         6
          CPSA196                      3         3
          CPSA204                     47        25
          CPS232                       8         8
          CPS0253                     17        17
          CPS254                       7         7
          CPS0257                      7         7
          CPS258                      39        39
          CPS0263                      5         5
          CPS0267                      8         8
          *L538*                       1         1
          CPS*81                       6         4
          F4830CP                    162       153
          AIDTEXT                    161       161
          CPSA197                     34        25
          CPSA198                     37        37
          CPSA200                      9         9
          CPSA210                      5         5
          CPSA213                     30        22
          CPSA214                      9         9
          CPS0275                      5         5
          CPS0278                      5         5
          CPS0279                     11        11
          CPS0281                      8         8
          *L552*                       1         1
          CPSA175                      6         6
          CPSA186                     11        11
          CPSA199                      8         8
          CPSA208                     40        40
          CPSA216                      6         6
          CPSA218                      5         5
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1220    
  
          CPSA220                     12        12
          CPSA225                      9         6
          CPSA226                     19        16
          CPSA229                     15        15
          CPSA230                     33        23
          CPSA246                     29        29
          CPS211                       6         4
          CPS0241                      5         5
          CPS0287                     13        13
          CPS0289                      8         8
          CPS0303                     20        20
          CPS0307                     21        21
          *L564*                       1         1
          CPS*82                       5         5
          F4820B                     475       475
          NADTEXT                    265       265
          CPSA227                     22        22
          CPSA233                      8         8
          CPSA234                     10        10
          CPSA235                      7         7
          CPSA236                      6         6
          CPSA240                      9         9
          CPSA241                      9         9
          CPSA242                    142       141
          CPSA243                     35        35
          CPSA244                     28        28
          CPSA245                    220       220
          CPSA251                     19        19
          CPS0306                     17        15
          CPS0320                     11        11
          CPS0323                     25        24
          *L577*                       1         1
          CPSA257                     15        15
          CPSA259                     10        10
          CPS0094                     12        12
          CPS0325                      6         6
          CPS0338                     11        11
          CPS0340                     18        18
          CPS0343                     19        19
          CPS0345                     17        14
          *L587*                       1         1
          CPSA261                      5         5
          CPS2608                     60        60
          *L601*                       1         1
          CPSA265                    145       139
          COMCCPM                     56        56
          *L617*                       1         1
          CPSA266                     11        11
          *L628*                       1         1
          *L642*                       1         1
          CPSA274                     15        15
          CPS2627                     12        11
          CPS2628                      9         9
          *L650*                       1         1
          CPSA276                      9         9
          CPSA281                    500       471
          CPSA282                     11        11
          CPSA283                      6         5
1UNLABELED OLDPL              MASTER AUDIT, IDENT CARD TOTAL          UPDATE 1.4-871.      24/05/28. 19.11.32.      PAGE1221    
  
          CPS0329                      7         7
          CPS2667                     10        10
          *L670*                       1         1
          CPSA284                     84        83
          CPSA286                     10        10
          CPSA287                     43        43
          CPSA288                    218       218
          CPSA289                      7         7
          CPSA292                      7         7
          CDCM                      2872      2872
          CDCMOPT                    111       111
          CWEOR2                       2         2
          CPSA293                     90        90
          CPSA295                     11        11
          CPSA297                     58        58
          CPSA300                      6         6
          CPS2658                     14        14
          CPS2659                     18        18
          CPS2672                     41        41
          *L688*                       1         1
          *L716*                       1         1
          CPS2660                     15        15
          *L739*                       1         1
          CPSA291                     14        14
          CPSA305                     19        19
          CPSA306                      8         8
          CPS0328                      9         9
          *L780*                       1         1
          *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                     2         2
119.14.03.UCLP, 17, 031,     78.208KLNS.
